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-国产软件践行者

[图文教程] 通过对话框选择多个点实例

[复制链接]

2017-1-16 15:27:51 3833 0

admin 发表于 2017-1-16 15:27:51 |阅读模式

admin 楼主

2017-1-16 15:27:51

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

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

x
通过对话框选择多个点实例3 ?1 x8 z! X, o' ]# f

5 P8 o, i" K' r
, {9 r1 S- p' B2 U; o5 X+ v8 JOption Infer On
$ P+ G; K5 {, m$ q, AImports Snap, Snap.Create
1 K* T: E( C4 k! {* y; w
6 f. c* [$ |. J% q, ?! D' This is a very simple example showing you how to use a Snap.UI.BlockForm7 [) d) n' H# D& T/ q' n: J  K8 A3 h
' to create a dialog that enables the user to select multiple point locations at once.$ N6 X1 z1 R5 J; I6 T$ o

3 }+ A4 z7 R' Z; e4 p: M* q. VPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm% B6 m& `$ ?. F' w
; t* e* a5 k9 e) e% G  V! ^
    ' Declarations of the blocks on the dialog
# i# c9 y1 K+ k) |% X* p. C) k* V
  y* l7 w' z/ A! y. W3 w- x) ]& y7 z9 P9 k    Dim ptsBlock As UI.Block.SelectObject2 @) J! Z" b) ~. ]8 F" c

0 C& w4 A! {" x) z# I- m    ' Constructor for a dialog object8 J2 ^% }5 b. F$ l/ }+ M6 ^: y3 O
    Public Sub New()
$ |1 ?9 @% ^  U$ C- B
0 q" L# x8 C! d  u        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog$ J8 [$ D8 ~6 T6 _3 r
        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
% G7 w6 n! h7 k% e! _5 a+ r- \: l4 ^* H4 {+ n8 @& p+ c+ P# `# Y
        ptsBlock = New UI.Block.SelectObject6 C) c4 v8 K6 Z' J0 f
        ptsBlock.AllowMultiple = True3 c: u; |& H$ E/ M' K3 F( b# y# Z
        ptsBlock.MaskTriples =
4 W) J% n: M5 V4 x8 i% x  [" X            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
) u& i9 l( Z7 w  ?, @        ptsBlock.LabelString = "Select locations"
+ ~, [$ @! U+ d) ?) m        ptsBlock.PointOverlay = True, e5 {% i% g+ u- @% V6 C
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
/ [/ V' J4 _$ J        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
9 O- U. E- I/ K5 v+ V* O2 M% s" j" [1 H# \! }' h% q1 G
        ' Add the block to the BlockForm, o1 H4 \% E) X7 N. h; o
        Me.AddBlocks(ptsBlock)
& N; w) I# L$ A$ K* J$ @
9 M4 G9 j0 V8 ~  i  L1 N    End Sub# @; w1 g, b# Q. R2 m$ `# P3 q

" O8 S1 Q' x; X0 Z" f6 }* k    Public Shared Sub Main()0 R0 F! Z9 |- n! r, A6 Y
0 f* N8 w1 T$ _! \3 r
        ' Create and display a dialog, w: s# R, f4 u  Q, L2 t
        Dim myForm = New SnapBlockFormApplication2()8 K0 r! n, r* r3 s5 H  a
        myForm.Show()8 a: T' N. [+ @+ w9 h$ b
! s. ]) U" C, ?% L) X
    End Sub
4 u! X1 X$ V, T0 j- \1 Y- X
" |- z( H+ R- d    Public Overrides Sub OnApply()
  }" i/ f5 m( B, Z$ S- Q  U! d- R* D0 C4 _5 x" |8 a
        InfoWindow.WriteLine("You selected these locations:"). h* n) M: G" t2 `
. W- {6 ]' V) h, v, X; a4 ?
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects/ p3 C& O  P! S2 ~
            InfoWindow.WriteLine(anObj.Position)
5 ?6 i6 z& Q9 z8 z/ t5 E  P2 Z% _% V8 x        Next
8 d. p4 l5 G# p  [2 g4 T& f) x" g# j6 s' D
    End Sub4 A" W9 C# c0 ^2 h, q  K4 D0 A

3 f- ?) a& ]/ x! q' T. d    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
# @  h1 H  L! [1 {; @& @2 D  R8 s3 g& ]* \) r3 L+ H& b
        ' This is going to be annoying so don't really do it!# R* \, R* J( _# w! k, P8 b2 ~
        If changedBlock = ptsBlock Then" a+ w. T! `+ k, a3 c" ?# ^: x
            If ptsBlock.SelectedObjects.Length = 1 Then
+ z; r3 `0 w# d" b                InfoWindow.WriteLine("You picked a Location")
: E' l6 O  R: F; \& R: S+ o            Else
9 Z' z& i% I4 ?                InfoWindow.WriteLine("You picked another Location")
5 C: ]3 }  a# ]- g) [            End If5 ]% C" B7 p: E( t' h
        End If
! h  W8 z; A- c' ]: a
  m/ h) X% c5 y$ x1 B, F1 ^5 [" ?1 |    End Sub
8 _8 y* ^# W9 `
9 J, Y; M% u! g: W2 b$ _    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer' `( I! B6 E, c2 l
        Return Snap.UnloadOption.Immediately+ v/ u- Q# o. z0 F+ H: S- [
    End Function( J$ h/ ~% }1 c/ }/ c8 p; b
. C* O9 n$ H7 H6 k
End Class
) Q" D0 e6 |9 j% i* d
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了