PLM之家精品课程培训,联系电话:18301858168 QQ: 939801026

  • NX二次开培训

    NX二次开培训

    适合初级入门或想深入了解二次开发的工程师,本培训结合ufun,NXOpen C++,大量的实例及官方内部的开发技术对于老鸟也值得借鉴!.

    NX CAM二次开发培训报名 NX二次开发基础培训报名
  • PLM之家Catia CAA二次开发培训

    Catia二次开发培训

    Catia二次开发的市场大,这方面开发人才少,难度大。所以只要你掌握了开发,那么潜力巨大,随着时间的积累,你必将有所用武之地!

  • PLM之Teamcenter最佳学习方案

    Teamcenter培训

    用户应用基础培训,管理员基础培训,管理员高级培训,二次开发培训应有尽有,只要你感兴趣肯学习,专业多年经验大师级打造!

  • PLM之Tecnomatix制造领域培训

    Tecnomatix培训

    想了解制造领域数字化吗?想了解工厂,生产线设计吗?数字化双胞胎,工业4.0吗?我们的课程虚位以待!

PLM之家PLMHome-国产软件践行者

[资料] NX二次开发源码分享: 创建视图到指定方向

[复制链接]

2018-3-24 09:25:27 1940 0

admin 发表于 2018-3-24 09:25:27 |阅读模式

admin 楼主

2018-3-24 09:25:27

请使用QQ关联注册PLM之家,学习更多关于内容,更多精彩原创视频供你学习!

您需要 登录 才可以下载或查看,没有账号?注册

x
4 N. ]8 J/ B; |7 d- X' [7 j
NX二次开发源码分享: 创建视图到指定方向5 }# E( K/ g4 I+ [
3 |5 ?$ B* y+ [9 t/ s/ I. e
[mw_shl_code=c,true]Imports System& J4 v: z( ~) t% X7 c1 a0 _6 F% L  o
Imports NXOpen- ]- f( n5 Z' [, t

/ o1 I3 ^( t# ]8 u. r  o) z, QModule TrimetricViewFromBelow
. i! Z) \8 P# k+ A( e6 N2 i$ m' T( ~% S1 _1 m6 S
    Sub Main (ByVal args() As String) 9 V; H& m& ^/ S! J/ N9 f! h
# R. g! W- z& ?/ q* o0 X& H- S' J
        Dim theSession As Session = Session.GetSession()1 e$ I7 s/ }, D6 l2 I' d! E! n5 i" d
        Dim basePrt As BasePart = theSession.Parts.BaseWork4 @; P0 l6 g+ E2 B4 ?: r
        Dim workPart As CAE.CaePart = Nothing
% Y5 @8 l/ U$ \  U, q" w5 [' \' e) F; q
        Dim origin1 As Point3d = Nothing% C6 A. Y% p( `5 e) Q" @8 O3 Z
        Dim vector1 As Vector3d = Nothing! N2 A- ^4 Q0 l' p/ v
& |2 H: q9 t  k
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg+ v" o7 `+ f, O' |: p1 S( ~/ J
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg3 A# K6 a5 h; n! n$ C
        Dim Xz As Double = 0.0( G$ W! q% N) A9 u+ i6 K, M
        Dim angle As Double = -44.0
% C: Z: s* @& E+ F( k" k2 {) s0 i' p' y+ K: {
        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then2 ^2 R3 L$ {& v1 I& @# H
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
3 m3 Z% N& y* _) ]- `8 C        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then" r1 @# ?0 a# n5 u' ]" Q% k
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
1 E0 h  B( t3 L1 R7 s        End If
* }' z+ L  c4 }* `7 o( _6 O! g: w8 f  o$ \1 v
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
! J( M0 t- }6 d                                               View.ScaleAdjustment.Fit)
" W) }: ?) D& s- K9 u
# r* _% }+ T# k% A9 k5 S        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
3 ?9 F" w2 f3 j' k    9 ?9 W. E1 |5 [+ }3 j
        vector1 = New Vector3d(Xx, Xy, Xz)/ A+ E! n! U+ |3 |
   
) w' m, T# _6 i9 q        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
# L3 b! X' K, [0 T* [
7 Y9 f. c& L; \4 ~# s) Z: s        workPart.ModelingViews.WorkView.Fit()* [! O0 c- ~7 E; s+ Q9 L* l
% P9 v$ {* E1 E2 n- |/ M& e: q
    End Sub1 f0 i$ W! g: V
# `3 S( V6 a1 C2 z" v0 t' S; ^
End Module( _9 u, o0 i6 e$ {! Q) P, S! W6 v
' negative trimetric view[/mw_shl_code]; P2 A0 x, ^7 i0 g- ]3 {
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 注册

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

    本网站(plmhome.com)为PLM之家工业软件学习官网站

    展示的视频材料全部免费,需要高清和特殊技术支持请联系 QQ: 939801026

    PLM之家NX CAM二次开发专题模块培训报名开始啦

    我知道了