如何获取CASS中实体的CASS码？

CAD学习开发

我想编制一些小功能，在CASS里不知道如何使用VBA来获取实体的CASS码，请高手赐教！？

gdzhou

Cass中的CASS码，是存在图元的厚度属性中吧

CAD学习开发

我查了一些资料，像是在扩展属性里，正在进一步研究中。

yd139

On Error Resume Next
Set AcadApp = GetObject(, "Autocad.application")   '启动Autocad2000
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
AcadApp.Visible = True

 AppActivate AcadApp.Caption  'Cad得到焦点

Dim acadobj As AcadObject

AcadApp.ActiveDocument.Utility.GetEntity acadobj, pnt, "提示"   '单选

 Dim xType As Variant
 Dim xData As Variant
 
 acadobj.GetXData "", xType, xData
   b = UBound(xType)
  AcadApp.ActiveDocument.Utility.Prompt vbCrLf
'MsgBox B

If IsEmpty(xType) Then
 AcadApp.ActiveDocument.Utility.Prompt "无扩展数据!"
Exit Sub
End If

 For CC = 0 To b
 ac = xType(CC) & "->"
 AB = xData(CC)

 AcadApp.ActiveDocument.Utility.Prompt Str(CC) & "  " & ac & AB
 AcadApp.ActiveDocument.Utility.Prompt vbCrLf