gaoxiaopai(菜鸟) : Autocad图形对象一般含有句柄、对象标识、实体名称、实体类型、所在的层等,你可以遍历图中实体,就可得到你要的数据了。 如: .......set anObj=acadApp.ActiveDocument.ModelSpace count=anObj.count Dim tem as Object for i=0 to count-1 Set tem=anObj.Item(i) a=tem.EntityName b=tem.Handle c=tem.Layer ........ next i
Autocad图形对象一般含有句柄、对象标识、实体名称、实体类型、所在的层等,你可以遍历图中实体,就可得到你要的数据了。
如:
.......set anObj=acadApp.ActiveDocument.ModelSpace
count=anObj.count
Dim tem as Object
for i=0 to count-1
Set tem=anObj.Item(i)
a=tem.EntityName
b=tem.Handle
c=tem.Layer
........
next i