ug二次开发 vb.net nx1980

1.特征体属性

 1 Option Strict Off
 2 
 3 Imports NXOpen
 4 Imports NXOpen.UF
 5 Imports NXOpen.UF.UFAttr
 6 
 7 
 8 Module Module1
 9 
10 
11     Sub Main()
12 
13 
14         Dim theSession As Session = Session.GetSession()
15         Dim ufs As UFSession = UFSession.GetUFSession()
16         Dim Lw = theSession.ListingWindow
17         Lw.Open()
18 
19         Dim num_ As Integer = 0
20         Dim objlist As Tag() = {}
21         Dim count_ As Integer = 0
22         Dim iter_ As UFAttr.Iterator
23         Dim info_ As Info() = {}
24         Dim num2_ As Integer = 0
25 
26 
27 
28         ufs.Ui.AskGlobalSelObjectList(num_, objlist) '选中的特征体
29 
30         ufs.Attr.InitUserAttributeIterator(iter_) '估计是初始化迭代器 没它 这个GetUserAttributes出错，不知道为什么
31 
32         Dim i As Integer = 0
33         For i = 0 To num_ - 1
34             ufs.Disp.SetHighlight(objlist(i), False)
35 
36             ufs.Attr.GetUserAttributes(objlist(i), iter_, num2_, info_)
37             Lw.WriteLine(info_(0).title)
38             Lw.WriteLine(info_(0).category)
39 
40 
41         Next i
42 
43     End Sub
44 End Module

 2.特征属性循环遍历

 1 Option Strict Off
 2 Imports NXOpen
 3 Imports NXOpen.UF
 4 Imports NXOpen.UF.UFAttr
 5 Module Module1
 6     Sub Main()
 7         Dim theSession As Session = Session.GetSession()
 8         Dim ufs As UFSession = UFSession.GetUFSession()
 9         Dim Lw = theSession.ListingWindow
10         Lw.Open()
11 
12         Dim num_ As Integer = 0
13         Dim objlist As Tag() = {}
14         Dim iter_ As Iterator
15         Dim info_ As Info
16         Dim hatt As Boolean = True
17 
18         ufs.Ui.AskGlobalSelObjectList(num_, objlist) '选中的特征体
19         ufs.Attr.InitUserAttributeIterator(iter_) '估计是初始化迭代器 没它 这个GetUserAttributes出错，不知道为什么
20 
21         Dim i As Integer = 0
22         For i = 0 To num_ - 1
23             ufs.Disp.SetHighlight(objlist(i), False)
24             While hatt
25                 ufs.Attr.GetNextUserAttribute(objlist(i), iter_, info_, hatt)
26                 Lw.WriteLine(info_.title)
27             End While
28         Next i
29 
30     End Sub
31 End Module

 3.特征名

 1 Option Strict Off
 2 Imports NXOpen
 3 Imports NXOpen.UF
 4 Imports NXOpen.UF.UFAttr
 5 Module Module1
 6     Sub Main()
 7         Dim theSession As Session = Session.GetSession()
 8         Dim ufs As UFSession = UFSession.GetUFSession()
 9         Dim Lw = theSession.ListingWindow
10         Lw.Open()
11 
12         Dim num_ As Integer = 0
13         Dim objlist As Tag() = {}
14         Dim iter_ As Iterator
15         Dim info_ As Info
16         Dim hatt As Boolean = True
17         Dim feature_name_ As String = ""
18         Dim bodyTag As Tag = Tag.Null
19         ufs.Ui.AskGlobalSelObjectList(num_, objlist) '选中的特征体
20 
21         Dim i As Integer = 0
22         For i = 0 To num_ - 1
23             ufs.Disp.SetHighlight(objlist(i), False)
24             ufs.Modl.AskFeatName(objlist(i), feature_name_)
25             Lw.WriteLine(feature_name_)
26             ufs.Modl.AskFeatSysname(objlist(i), feature_name_)
27             Lw.WriteLine(feature_name_)
28             ufs.Modl.AskFeatBody(objlist(i), bodyTag)
29             ufs.Obj.AskName(bodyTag, feature_name_)
30             Lw.WriteLine(feature_name_)
31         Next i
32 
33     End Sub
34 End Module

 4. 输入窗口uc1600

 1 Option Strict Off
 2 Imports NXOpen
 3 Imports NXOpen.UF
 4 
 5 Module Module1
 6     Dim theSession As Session = Session.GetSession()
 7     Dim ufs As UFSession = UFSession.GetUFSession()
 8     Sub Main()
 9         Dim cue_ As String = "输入窗口"
10         Dim str_ As String = ""
11         Dim len_ As Integer
12         ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM) '必须要有不然弹不出窗口
13 
14         ufs.Ui.AskStringInput(cue_, str_, len_)
15 
16         ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
17 
18     End Sub
19 
20 End Module

 

 

posted @ 2021-11-30 16:55  KingMAX(没事杀杀毒)  阅读(654)  评论(0)    收藏  举报