CAD VB.NET Shop ObjectId() To ObjectIdCollection

CAD VB.NET Shop ObjectId() To ObjectIdCollection

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

Please follow WeChat's public account ByCAD