PLM之家PLMHome-工业软件践行者

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

[复制链接]

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

2470

主题

1275

回帖

8万

积分

管理员

PLM之家站长

积分
82170
QQ
发表于 2018-3-24 09:25:27 | 显示全部楼层 |阅读模式

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

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

x
; o2 c( F/ W/ s! \$ S
NX二次开发源码分享: 创建视图到指定方向
8 x! ?) O; G/ s7 k! F9 f7 w& i/ ?5 {& w, |
[mw_shl_code=c,true]Imports System
4 h- d; L" F9 ]) ]Imports NXOpen$ r" Y* H& U1 b

; g; t4 i' a" S$ tModule TrimetricViewFromBelow' {) W! O8 o7 V, s1 b- u

2 A7 e5 u, j  w    Sub Main (ByVal args() As String)
# ^/ F+ E6 i0 V# z4 G8 L& V
, M, u% D4 W6 M        Dim theSession As Session = Session.GetSession()$ M; S7 N2 v+ M; m. R, E! C2 v5 V
        Dim basePrt As BasePart = theSession.Parts.BaseWork
" g  W- q; ~7 p        Dim workPart As CAE.CaePart = Nothing
0 i6 `! [: B9 W" {: Y% t% P. ^% u+ O$ }* x" z7 K' v; n3 W
        Dim origin1 As Point3d = Nothing
) ^% W3 g, J' O5 d3 q' z1 J0 W% O3 A        Dim vector1 As Vector3d = Nothing
' @% n: n% p$ w3 W  O% o& F$ d+ a
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
' J% k1 P1 R+ \/ T" b# R        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg$ h, Q: B/ x$ J9 S9 d
        Dim Xz As Double = 0.0& j# |) `  C; S( S
        Dim angle As Double = -44.0
& R4 S1 t/ S8 e9 ?6 n$ ^0 n  Y+ W# q3 h8 q" o
        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then( m* J! f) ~2 O9 f; u! S5 f
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)' B; _8 L" D+ s4 C$ M$ k$ s
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
# @; r$ N: G6 P            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
$ `+ b9 F/ Z, ^- F5 ^. {+ i$ J9 R        End If; [9 k8 F6 V% l/ f+ b0 d9 I9 f% p
8 [" N9 x2 A% u. S, |3 ?0 a
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _' v5 z% H/ h) L
                                               View.ScaleAdjustment.Fit)( F9 k+ e2 x, ^
  n; s/ Q3 i- W5 o9 q' n, s
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin7 l/ d# L- |2 w1 k2 P" H9 p* U, E% s* T
    $ J6 N% C6 x; A
        vector1 = New Vector3d(Xx, Xy, Xz)' Y. L" S9 ^! A1 S5 b! \" _
   
) B' B/ J" C% n9 Q* R+ v- q; z" |        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)8 ~* a7 [( t  F% Y, q& s
5 w1 r$ a! l0 P
        workPart.ModelingViews.WorkView.Fit()
' r/ o+ z# t5 o3 }
. u  h2 C8 @; G. J    End Sub7 ?$ c7 g( e  K, J& k5 t! z

7 B" v/ K3 L9 D* cEnd Module
2 R7 t0 J2 e$ f1 M2 g3 q( ^% S1 k' negative trimetric view[/mw_shl_code]
2 s, _+ R9 Y9 k/ S4 u
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了