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

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

[复制链接]

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

2470

主题

1275

回帖

8万

积分

管理员

PLM之家站长

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

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

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

x
8 u8 S9 B+ Z3 |7 |& R3 Y' Q9 E
NX二次开发源码分享: 创建视图到指定方向, ?# N5 h* X9 [* N7 W, r# s" J! {2 m
' u; h+ N# v* ^: ?
[mw_shl_code=c,true]Imports System
1 T5 G* j2 T. LImports NXOpen
& i* Y$ a1 h, a# I1 v5 L1 Q  }
; q2 w' H4 N( x* c: X/ yModule TrimetricViewFromBelow8 w2 @0 `  P0 `. J; M# z, G

* l( N  _6 Q8 f4 f    Sub Main (ByVal args() As String)
! G5 |: F" A$ k/ o$ ?2 M. b  x0 i5 ^
        Dim theSession As Session = Session.GetSession()
1 q2 h, K7 W) n: L        Dim basePrt As BasePart = theSession.Parts.BaseWork4 }& x. B# J' y6 L7 W5 |
        Dim workPart As CAE.CaePart = Nothing
, P0 z. ^+ ], b+ c! [  H/ S3 ~' r; b5 r) b* j; W3 c
        Dim origin1 As Point3d = Nothing  E) Q2 N/ z% I  o
        Dim vector1 As Vector3d = Nothing
  e" p) j9 \' C, e& Z
% W9 r+ \  V' M  f9 A/ B9 A2 B( H        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
( x# `/ ]% ^1 l7 X& D' B7 g        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg' w2 J( ^  k8 Y. |% q+ B" A% B
        Dim Xz As Double = 0.0
$ i, S3 M# P1 Q' A% s5 G5 @        Dim angle As Double = -44.0
! ~7 P, Y- Y& b
* A+ l2 G: S4 ]& F0 s        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then% d0 C+ J4 C, Y. y8 q
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
  }3 ?, y7 `9 K5 E, Q        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
% W, Z+ c+ ~0 e1 L4 k) g            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)5 j: T7 o9 L* a; q! u0 F
        End If: S0 a& \8 ?6 _! F, W3 w

% p2 X9 ~  V& g6 c        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _. Y+ E$ h: u  m- E3 e! M% F9 Z
                                               View.ScaleAdjustment.Fit)
2 D9 t& m4 }7 s5 X; j5 n$ x& o3 F* @0 G) E9 S5 \, ?5 A* ~7 P
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
& b2 U- p1 e' @" |% ]9 y) [" P    + B2 T: G7 S% p& S  K( q! t
        vector1 = New Vector3d(Xx, Xy, Xz)
3 d5 t6 d* L' P   
2 ?! S! ~, m. C        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
7 M5 }- _* Z/ G. Q5 d( B, j
* u; C5 [: T8 z' ^; ]        workPart.ModelingViews.WorkView.Fit()8 u* Q3 f, G. K2 h

: A4 e4 L3 S" A    End Sub
1 L5 A. r; K% y; k! a( q# ~$ p5 l( i% {. ]7 K7 K
End Module8 |! _, V; ^9 E1 d( a' C- ?2 |3 ]
' negative trimetric view[/mw_shl_code]
# ]4 |; w4 t* z  Z: a4 f
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了