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

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

[复制链接]

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

2470

主题

1275

回帖

8万

积分

管理员

PLM之家站长

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

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

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

x
; f- B8 ]2 h; L) _
NX二次开发源码分享: 创建视图到指定方向# i: ^7 n$ J# P4 z7 M& a1 g) u
: l" h: w5 z$ H( ^  a5 B* H3 W
[mw_shl_code=c,true]Imports System
8 [) ^/ G4 Q; J6 Z, E( k. nImports NXOpen8 c6 X/ o6 q" K% o7 P

$ J  S5 |; P# @2 w3 U7 cModule TrimetricViewFromBelow, d# [: ?+ G: Q: C# P0 j; Z

( N; x/ a0 @3 ~" `# ^    Sub Main (ByVal args() As String) : B% a. ~+ d: f% [3 e0 a2 i# N
: q9 `( S6 `1 ?0 i2 l6 o* h
        Dim theSession As Session = Session.GetSession()
; ^' O1 s1 i, d$ g- v6 G        Dim basePrt As BasePart = theSession.Parts.BaseWork* M1 j1 w7 {+ r2 }3 t
        Dim workPart As CAE.CaePart = Nothing3 v, i$ Z! Z9 G

8 H! S7 R( N( f2 d        Dim origin1 As Point3d = Nothing
, z' L: n7 i" a, J" n0 Z        Dim vector1 As Vector3d = Nothing
3 \+ t2 R: k( {1 ^2 A, F4 h1 }, G5 r/ b# `) \7 y
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
7 y' N" W, p' U" V        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg# Z) a: B  U% q  {9 B
        Dim Xz As Double = 0.0
! j3 z% ^% k  o3 ]( ^& F, G        Dim angle As Double = -44.0$ S4 S. ]7 x/ q9 G; t9 F5 ~+ u% D

4 m8 O. z4 E' I2 b' S" z4 C        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
, G; F% v/ v# M8 Q* A- Z, Z' L            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)0 ]- ]0 B  W; a% ]7 Q
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
6 l* A- n. `7 L) q3 S            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
6 E' k$ S3 \$ u1 f5 E1 x6 s        End If" z" L& e- V# @# h: D
4 a' R+ ]+ ~4 U& K4 _9 F
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _0 V5 a2 R$ S; B( A7 [; W
                                               View.ScaleAdjustment.Fit)4 o0 r0 ^; P' D0 E" W7 b& d4 e. h
3 X5 c* _+ _" ^4 _
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin$ w9 ], k+ u- u" W! f8 i( H! R
   
' l7 M4 e8 A5 a) w+ h        vector1 = New Vector3d(Xx, Xy, Xz)8 H! d8 J' |* L7 g
    6 y# I" [2 z: W& B: m8 s/ M# H
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
7 c; K; x8 ]$ @
3 G0 B* v, x2 s  z: [; @" T        workPart.ModelingViews.WorkView.Fit()
2 S. j% u4 E% m; F- x# |! o7 W* j/ x
    End Sub: w, Y. R1 p+ F" m& j
& X  P" y  L5 N4 d
End Module. o8 }8 L: |+ k7 F3 H) t
' negative trimetric view[/mw_shl_code]
# @' M" \/ K& B) D. j  c" b- g
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了