캐드맵님께.

Private Sub Command1()
Dim sset As Object
Set sset = ThisDrawing.SelectionSets.Add(“SS1”) ‘=> 수정

Dim xdataType As Variant
Dim xdata As Variant
Dim xd As Variant
Dim xdi As Integer
xdi = 0

Dim msgstr As String
Dim appName As String
Dim ent As AcadEntity
appName = “MY_APP”

For Each ent In ThisDrawing.ModelSpace ‘=> 수정

msgstr = “”
xdi = 0
ent.GetXData appName, xdataType, xdata

If VarType(xdataType) <> vbEmpty Then
For Each xd In xdata
msgstr = msgstr & vbCrLf & xdataType(xdi) _
& “: ” & xd
xdi = xdi + 1
Next xd
End If

If msgstr = “” Then msgstr = vbCrLf & “NONE”
MsgBox appName & ” xdata on ” & ent.ObjectName & _
“:” & vbCrLf & msgstr
Next ent
End Sub

죄송한데 캐드맵님이 지금 하시는 직업이 어떻게 되는지 궁금합니다.
프로그래머가 아니라면 제가 설명하는 부분으로는 상당히 부족한것 같아 말씀드리는 것이니 오해 없으시길 바랍니다.

그리고 GetXData 메소드는 사실상 AutoCad에서 사용하지 않는 부분입니다.
확장된 부분이라 프로그램상 필요한 데이타를 프로그래머가 임의로 넣었다가 참조해서 사용할 수 있는 부분입니다.

C 의 arx 와 VB 의 dvb