PLM之家精品课程培训,联系电话:18301858168 QQ: 939801026

  • NX二次开培训

    NX二次开培训

    适合初级入门或想深入了解二次开发的工程师,本培训结合ufun,NXOpen C++,大量的实例及官方内部的开发技术对于老鸟也值得借鉴!.

    NX CAM二次开发培训报名 NX二次开发基础培训报名
  • PLM之家Catia CAA二次开发培训

    Catia二次开发培训

    Catia二次开发的市场大,这方面开发人才少,难度大。所以只要你掌握了开发,那么潜力巨大,随着时间的积累,你必将有所用武之地!

  • PLM之Teamcenter最佳学习方案

    Teamcenter培训

    用户应用基础培训,管理员基础培训,管理员高级培训,二次开发培训应有尽有,只要你感兴趣肯学习,专业多年经验大师级打造!

  • PLM之Tecnomatix制造领域培训

    Tecnomatix培训

    想了解制造领域数字化吗?想了解工厂,生产线设计吗?数字化双胞胎,工业4.0吗?我们的课程虚位以待!

PLM之家PLMHome-国产软件践行者

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

[复制链接]

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

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

admin 楼主

2018-3-24 09:25:27

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

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

x

3 o! o2 l( M0 v: C% DNX二次开发源码分享: 创建视图到指定方向
; I& ~3 h* G1 a7 T3 _  D, G. n" t+ Z' W. B4 o3 ^! z8 d/ e; z2 I) Y
[mw_shl_code=c,true]Imports System4 x& X" l" F7 r8 R. H, P$ R
Imports NXOpen
  A. Z" Q2 C6 |. H; ?7 Q
5 l+ O% r/ @- n2 J% g7 y# xModule TrimetricViewFromBelow
4 a, C9 _5 F! G0 x  A8 g; `% j: |- w% Y- {7 x$ o+ `
    Sub Main (ByVal args() As String) - m6 }+ ]+ k0 I) L3 u, N9 m

' [4 i; _5 E; ^! h- R, K) N9 |        Dim theSession As Session = Session.GetSession()
" B7 D( o* s9 K/ n+ z0 x& V        Dim basePrt As BasePart = theSession.Parts.BaseWork
* ^+ Z+ G/ S- E) g# N7 F        Dim workPart As CAE.CaePart = Nothing% w, u9 m" H5 Z5 H* B& i
0 J2 x+ ]7 E# `4 ?6 \9 O9 s; p
        Dim origin1 As Point3d = Nothing
0 W5 Y# l- x! _1 v        Dim vector1 As Vector3d = Nothing
! s+ `0 W! H# c2 ]. w3 g% i+ R: N3 _/ q0 d! Z" G+ o$ W  I
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg7 D# _# B! x" l' Z' X' o
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg0 {. b% m( j. Z+ Q+ g7 Q; A
        Dim Xz As Double = 0.0
+ ~% c3 ~5 R' i        Dim angle As Double = -44.0
2 c" J/ G7 }( `2 z" d$ a% f
& f1 w5 ~/ K$ r$ s" j  X* h0 w( H        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then6 ]" D6 b% i; q2 J, z
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
& l, }% U3 V  s        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then* m% E; M8 h' _& e0 O  G
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
! E5 M; k6 }" C+ p& \6 E* a& ~        End If5 e3 Q4 w+ P& m# K. P( o
( Q+ ~+ ?+ b+ p( d0 ~; m  \4 D# w
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _% h6 O, ]# X  {0 l3 U( E- \8 X
                                               View.ScaleAdjustment.Fit)8 I( E8 _0 E+ n9 H% U

3 L9 r3 y' [5 u$ x9 J' ]        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin# k+ W8 C6 }7 ^: Q! Y: K8 D& |
   
* d7 a7 x$ f1 P8 ~( c        vector1 = New Vector3d(Xx, Xy, Xz)
! J7 K* ?  v# C$ G! N5 ?/ Q4 J    " |8 J- G* W% O( S
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
  {$ C, E% }4 K  U1 N. R- M2 m2 `  F
        workPart.ModelingViews.WorkView.Fit()
& e) _0 W1 m1 Y* E! ~  n
5 d; p' `: X! [7 a9 q# I    End Sub
# x. n3 ^  p! m3 v% [2 u) [' l9 m8 I% }+ f& g
End Module5 ~4 K  l. R1 n
' negative trimetric view[/mw_shl_code]
6 }6 h" h8 g+ H( j
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 注册

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

    本网站(plmhome.com)为PLM之家工业软件学习官网站

    展示的视频材料全部免费,需要高清和特殊技术支持请联系 QQ: 939801026

    PLM之家NX CAM二次开发专题模块培训报名开始啦

    我知道了