标签：info Dim nx1980 objlist Lw 二次开发 Integer ug ufs vb.net连接数据库

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

标签：info,Dim,nx1980,objlist,Lw,二次开发,Integer,ug,ufs,vb.net连接数据库
来源： https://www.cnblogs.com/qqqking/p/15624983.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。