用户登陆
站点日历
站点统计
最新评论
CAD VB.NET Shop ObjectId() To ObjectIdCollection [ 日期：2022-02-10 ] [ 来自：AutoCAD VB.net中数组ObjectId()转ObjectIdCollection
比如：SelectionSet.GetObjectIds 或 Group.GetAllEntityIds 就是ObjectId()
| 程序代码： |
Dim acTypValAr(0) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "TEXT"), 0)
Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection(acSelFtr)
If acSSPrompt.Status = PromptStatus.OK Then
Dim acSSet As SelectionSet = acSSPrompt.Value
'ObjectId() To ObjectIdCollection
Dim IDC As ObjectIdCollection = New ObjectIdCollection(acSSet.GetObjectIds)
'......
End If
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦！ |