pmq 发表于 2024-3-9 12:11:27

选择集过虑不起作用

Dim acTypValAr(1) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "Polyline,LWPOLYLINE"), 0)'线形
acTypValAr.SetValue(New TypedValue(DxfCode.Visibility, 0), 1)'对象可见

Dim acSelFtr = New SelectionFilter(acTypValAr) '将过滤条件赋值给SelectionFilter对象
Dim psr As PromptSelectionResult = ed.SelectAll(acSelFtr) '在图上选择对象

If psr.Status = PromptStatus.OK Then '如果提示状态OK，表示对象已选
   Dim SetA As SelectionSet = psr.Value
   MsgBox(SetA.Count)
End If

图上有多个图层172条多段线，只打开两个图层，执行命令还是选择了172个对象

页: [1]
查看完整版本: 选择集过虑不起作用