|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
$ b6 t& i1 n1 Q: u/ ]/ j, VNX二次开发源码分享： 创建视图到指定方向3 Z5 l& j* y R% d0 ?" H
5 f' u6 A5 T; @; c/ p
[mw_shl_code=c,true]Imports System. R: Q+ P* I& }7 R: p- u1 U- i
Imports NXOpen
! a: T+ ~! L6 |7 e
: z) s7 F/ M" ?0 |Module TrimetricViewFromBelow
. L4 b. e2 w: g5 g1 A W7 J8 c3 `; f+ b+ g: V6 R2 |
Sub Main (ByVal args() As String)
' t' R& H% G1 w! ^% a1 W3 g: G' ?. U! |; D2 ]
Dim theSession As Session = Session.GetSession()
t: Y1 d3 N& A6 m2 Y# t% f Dim basePrt As BasePart = theSession.Parts.BaseWork
3 ~. M4 w# k! ]2 A4 k* ` Dim workPart As CAE.CaePart = Nothing+ _ U& P( s. `1 H$ @) p% O7 T6 a. m
/ V3 ~0 D0 k6 G5 I* F) W/ F5 b
Dim origin1 As Point3d = Nothing
u" b- c7 G' r; ~+ f Dim vector1 As Vector3d = Nothing
. ^9 H& G; x# H" g: G2 K/ \
/ {: ]) @9 N4 y, J5 b Dim Xx As Double = 0.63121905864762995 ' 50.86 deg# L: B# j4 | g! p
Dim Xy As Double = 0.77560460287442845 ' 39.14 deg
/ V0 l$ d8 y. r, c( B* ? Dim Xz As Double = 0.02 C' I* l2 Y! ] U ^7 P# c
Dim angle As Double = -44.0
, h2 E! o2 h5 A& n" M/ J- s. F# u9 G) P
If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
4 T' E' v7 a$ B; L* |( a% a workPart = CType(theSession.Parts.BaseWork, CAE.SimPart). O$ }: n$ g& f. l7 R+ i1 C1 w
ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then6 {$ u8 n$ F( @. | p2 B: B7 Q7 u
workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
$ \7 ] I2 k* x6 b- Q End If. r( F7 F+ P8 W
* |( j0 g# o6 C2 S8 d" s, i+ R
workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
. h, i0 F- X4 Y& i M+ O View.ScaleAdjustment.Fit)
1 ] u. u: U7 [4 }% K0 W7 V' `9 w+ c6 r* \3 z, @# C( h. e
origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
4 P# [4 ^$ h9 P" N0 d! b
9 @4 h% Q3 W3 V7 h vector1 = New Vector3d(Xx, Xy, Xz)
& d- ~6 n4 ]* \0 [- _ , z4 M# r& S. q5 B2 Q% ~" C2 c
workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
5 h ?1 x% p5 j! p- y
" y. F( Q3 R' _, W1 t workPart.ModelingViews.WorkView.Fit()
3 M7 ^# H9 l/ v1 T: o% z, X
1 ^ b V5 s0 M: b- p- } End Sub
& _6 S/ |. N" c5 X4 O* [/ o: F
* E, B2 w* h( M$ U; o/ YEnd Module
) L: e9 D% C* ]( Q' negative trimetric view[/mw_shl_code]
/ O* |4 b+ {9 f c1 X" o* M |
|
|小黑屋|PLM之家-专注工业软件生态建设，大模型CAD创新生态
( 沪ICP备2026005248号-1 )
发表于 2018-3-24 09:25:27
