PLM之家PLMHome-工业软件与AI结合践行者

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

[复制链接]

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

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

admin 楼主

2018-3-24 09:25:27

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

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

x

: |+ b5 h! J. y& Q5 W: ?NX二次开发源码分享: 创建视图到指定方向' _8 ], V8 P5 j
' C  i9 \4 D& i1 b% u( _. P
[mw_shl_code=c,true]Imports System
$ ~: z) M5 h% T' ^6 z9 l5 X2 \Imports NXOpen" V& O2 M' C5 s

0 [4 |3 j# S6 q5 H6 o" sModule TrimetricViewFromBelow
7 i1 A% v+ q1 z9 n" v
& t5 m; `( P! V) B* Y    Sub Main (ByVal args() As String) 6 C- x' F' e4 _( U6 a/ a
% q. A$ T- s3 I$ \* g( O- Y1 |
        Dim theSession As Session = Session.GetSession()- {: C6 j' f/ c. u) M; I
        Dim basePrt As BasePart = theSession.Parts.BaseWork
! z7 v7 c* v% X9 I/ Y        Dim workPart As CAE.CaePart = Nothing
4 t3 P; o$ v  ?: r# M3 v9 T
* D5 l2 d' I2 V4 ?6 |8 K        Dim origin1 As Point3d = Nothing5 t7 m5 r, m4 d/ ~- t
        Dim vector1 As Vector3d = Nothing
( y! ]. c/ C7 Y5 g3 F/ l4 ^
8 Q6 f, Y' J) u9 }. T( Y        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
  e! ?3 p' F8 X        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg3 m1 U8 f8 |" p" g$ ?2 C
        Dim Xz As Double = 0.0# S% }& A2 f  _3 F  }
        Dim angle As Double = -44.0
8 J: J, n( _. V5 U4 r  ~" u' x" W( [9 K& s5 V( `% I3 X* V1 M, K1 z
        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then( _. `1 S2 a: `% r5 f
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
- U) A' A+ @5 C        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
, w" x7 o) o# V3 v+ i: Q* _& m            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
3 |4 h% p+ X! ~) t6 z8 W# r        End If
' f4 \& K8 E' t8 W% s5 Y- Y. ?9 }: K+ H( C# \6 |" k8 x+ o/ ?' K, u
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _+ e- |0 o2 W0 G& b
                                               View.ScaleAdjustment.Fit)1 B+ X+ n% F2 `) k, X" D3 ?

+ \8 A5 i4 a) K' J$ Q        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
2 r0 a8 C& Y& D! K   
2 v, f7 p3 t! n, N8 S( t) L& ?" n        vector1 = New Vector3d(Xx, Xy, Xz)0 c! `2 B8 D& F( s5 H1 m$ g/ h
   
* ?6 c. b3 d5 A" [$ t        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
* O. J6 O" [8 L9 w
& `" w* {) {0 q, v3 p+ K, c: z        workPart.ModelingViews.WorkView.Fit()
9 Z, E% G5 b. P5 A8 H1 O+ V* ?
/ I+ l  n$ R% y; W- M    End Sub
7 z( R4 ^1 C; b( @3 z) c: l! V- X( X9 g( w/ B, }  ^3 t- ~
End Module
( H( C5 _- q" c' negative trimetric view[/mw_shl_code]) U3 A/ n, Z1 E+ i0 \9 i3 T# p
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 doTeam.tech
回复

使用道具 举报

发表回复

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

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

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

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

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

    我知道了