PLM之家PLMHome-工业软件与AI结合践行者

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

[复制链接]

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

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

admin 楼主

2018-3-24 09:25:27

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

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

x

2 `) F# Z- w8 U, f& I, H- cNX二次开发源码分享: 创建视图到指定方向; }# E7 [& y; Y4 K7 \0 L* \8 d8 j

2 D( R. c& c3 r9 B- h  {4 j[mw_shl_code=c,true]Imports System
3 _  v) [, J7 t) e1 p! TImports NXOpen
3 I# v$ i9 K8 V4 K3 C- }. k. N0 M% q) N  `# q  e0 R
Module TrimetricViewFromBelow0 {& y: q# v6 ?7 B
% p7 {: y7 M3 i
    Sub Main (ByVal args() As String)
% K9 i9 X* M- M4 i- k. m- w$ G: t/ `: v& K# A! ^( y
        Dim theSession As Session = Session.GetSession()
4 d" i* G( G* x/ v1 C        Dim basePrt As BasePart = theSession.Parts.BaseWork. ^7 k  r$ g6 S  F0 y
        Dim workPart As CAE.CaePart = Nothing
) U$ N3 i8 u( s: Y# p' U( {
6 y6 c8 y. V4 J% l5 _        Dim origin1 As Point3d = Nothing6 l) B3 Z) y) u% E  v% Y$ Z
        Dim vector1 As Vector3d = Nothing7 m! X5 c4 [3 E$ R4 v" n6 M6 d
7 A) _. d2 T# F/ C2 J
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg' k1 U  O. Q) m  t- e
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
3 V. z$ H+ h6 Z- w        Dim Xz As Double = 0.0/ x3 c4 _* f1 ]" F6 E  l' y- t
        Dim angle As Double = -44.0' m- a$ j* P6 B' {
- K- Q% f* Y8 v- c$ \5 n  k1 @
        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
. {# C2 a4 U8 M" M" b            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
( ], F1 K# C7 Y        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then- X2 d1 m& U0 y
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)/ g. n* v: T, ^: m  S& e- w& b+ P5 K
        End If
  `8 w* H! I* A( f1 ^+ H3 ~" b% y! X# D  Y
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _2 j* z# k+ [: z$ A" n
                                               View.ScaleAdjustment.Fit)- @* W: K: l4 q( ^* E

% j. H- X4 M& L        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin1 N: b$ J* u$ c
   
0 G3 t0 _$ H# b- k* j  V        vector1 = New Vector3d(Xx, Xy, Xz). f1 k' p  J4 C3 J3 {8 k$ d) q
   
9 M% O8 d4 G8 A+ a& i1 R        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)* e# ~4 @- `7 {( B; d" H2 s
* T2 d" H$ M9 y3 A
        workPart.ModelingViews.WorkView.Fit()! v( z8 S* \& K# p7 P, X) }- t

# A' N7 r) G: `  I    End Sub3 J. i  J' H- _* R+ y# B

  v8 Z' u. \0 m# n( `* ]6 gEnd Module
! A3 n; |0 h0 K. R' negative trimetric view[/mw_shl_code]# w2 c: C# m8 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二次开发专题模块培训报名开始啦

    我知道了