AcDbFcf类
本来我也不知道,不过是写了下列VBA程序并运行,选择ACAD图形中画好的形位公差对象后得到的。
VBA代码如下:
Sub a()
Dim Obj As AcadEntity
Dim Sel As AcadSelectionSet
On Error Resume Next
Set Sel = ThisDrawing.SelectionSets.Add("ssel")
If Err Then
Err.Clear
Set Sel = ThisDrawing.SelectionSets.Item("ssel")
End If
On Error Goto 0
Sel.SelectOnScreen
For Each Obj In Sel
MsgBox "对象ID:" & Obj.ObjectID & Chr(13) & "对象类型:" & Obj.ObjectName
Next Obj
Sel.Delete
End Sub