Question

CAD VBA中如何才能区分选中与未选中的线

最近在学习CAD VBA的一些内容遇到问题不能解决了
一个CAD图中有N条线
而用人工点选了某些线

在CAD VBA　中有没有什么属性用来区分这两部的线？
谢谢

Answer 1

Dim myset As AcadSelectionSet
Set myset = ThisDrawing.SelectionSets.Add("aaa")
myset.SelectOnScreen
n = myset.Count - 1
For i = 0 To n
MsgBox myset(i).Handle
Next
在以上代吗中，选择集“aaa中的所有对象就是你己选择的，本代码罗列出所有你选中对象的句柄，根据句柄你可以访问选择集内的任意对象。当然，你也可能根据选集中的对象属性是否为直线来做一些其它工作。因此，VBA完全可以将选择集内外的线加以区别的.

追问

问题我已知道,因为我是在excel中写VBA必须要将cad的屏激活才能使用myset.SelectOnScreen
否则出错的

请教多一个问题:
我想只要0层的线,只要实线线形的线,只要圆,圆弧,与直线
如何做过滤
因小的初学,请帮忙,谢谢

追答

Sub selectfortype()
Dim myset As AcadSelectionSet
For Each myset In ThisDrawing.SelectionSets
If myset.Name = "aaa" Then
ThisDrawing.SelectionSets.Item("aaa").Delete
Exit For
End If
Next
Set myset = ThisDrawing.SelectionSets.Add("aaa")
Dim fType(0 To 7) As Integer
Dim fData(0 To 7) As Variant
fType(0) = -4
fType(1) = -4
fType(2) = 0
fType(3) = 0
fType(4) = 0
fType(5) = -4
fType(6) = 8
fType(7) = -4
fData(0) = ""
fData(6) = "0"
fData(7) = "and>"
myset.SelectOnScreen fType, fData
n = myset.Count
MsgBox n

End Sub

Answer 2

if
typeof
obj
is
acadmline
then
如果cad是完整版的则在vba编辑器中有帮助文档

Answer 3

蓝色的点是选中的！