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

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

[复制链接]

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

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

admin 楼主

2018-3-24 09:25:27

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

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

x
9 w) O& Z' Q: W- x+ n% y) n
NX二次开发源码分享: 创建视图到指定方向7 d3 {3 P5 w3 Z7 E, F3 C
5 K' v" _5 {3 `2 h3 j/ f/ V
[mw_shl_code=c,true]Imports System
* K( W  U/ d% H2 bImports NXOpen
' Y, X% ^0 A2 ?# n* Y" `/ `8 ~* ^/ \8 ^6 Q
Module TrimetricViewFromBelow% x/ x$ B$ r9 y( e/ A
; Q% {- m6 J6 W
    Sub Main (ByVal args() As String)
* B& r0 d5 J4 Q" `0 v0 X: m* T% j$ j: o( O0 [* X- o9 w! n0 s
        Dim theSession As Session = Session.GetSession()
* C) z; G1 g8 }7 b$ h        Dim basePrt As BasePart = theSession.Parts.BaseWork5 Q! M1 ~4 o5 N* n6 k
        Dim workPart As CAE.CaePart = Nothing
5 j# G) x5 o5 V. X8 \: E, o9 ]7 F" q' K2 D# x# B% N9 S
        Dim origin1 As Point3d = Nothing( R* S4 S) T2 u, `4 F  I
        Dim vector1 As Vector3d = Nothing5 p4 x: p7 z7 C/ X3 b) `/ V* I

4 @3 U1 k+ I4 D" ^# d        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
, ~8 W; C3 h. }" }        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg# L( @5 v  y) l: ~
        Dim Xz As Double = 0.0
8 A/ R1 D& O$ R2 i1 [, z8 z        Dim angle As Double = -44.0
# ?; o) W7 ~: D* [2 h2 W8 ?
2 u8 L# z! X+ U" M; o        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then& H$ T, H( D( o9 Y( U; T
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)& ?. l% `# ~( C0 h
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
9 e5 ?' u4 D4 \+ }% s            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)( W! ]) r" k! J1 [/ D" m* t
        End If  E& O/ P5 ^4 {

0 a) V0 i% w$ k8 a        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _5 V. p- y3 m- ^# d4 z3 i" {/ C
                                               View.ScaleAdjustment.Fit)
. C& {! Q3 w% U$ l3 ^: b% i3 ?9 `% s
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin& d" d3 l. ]$ m+ Y( W
      Y: s# _; d/ W/ B, Z/ n+ A
        vector1 = New Vector3d(Xx, Xy, Xz)
1 _( W8 N  [, o* |   
4 j, t; x2 w: i- @/ ~        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
3 `! ?5 O2 ^3 Q  R2 s' Q' y  W( L# ]  c7 M2 u0 P
        workPart.ModelingViews.WorkView.Fit()- \# S* Y# P8 H- d1 d' ^6 H
! M# c& Q. L3 Y( f
    End Sub6 @# v" ?+ J) l/ {, i

8 |9 |+ Y# v$ t; O+ Y: J' D  BEnd Module+ P; X: T# M) z/ ^) D6 t
' negative trimetric view[/mw_shl_code]
2 \+ Q  r/ s8 ?8 y, s. P9 b
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了