如何获取CASS中实体的CASS码?
我想编制一些小功能,在CASS里不知道如何使用VBA来获取实体的CASS码,请高手赐教!? <p>Cass中的CASS码,是存在图元的厚度属性中吧</p><p></p> 我查了一些资料,像是在扩展属性里,正在进一步研究中。 <p>On Error Resume Next<br/>Set AcadApp = GetObject(, "Autocad.application") '启动Autocad2000<br/>'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/>AcadApp.Visible = True</p><p><br/> AppActivate AcadApp.Caption 'Cad得到焦点</p><p><br/>Dim acadobj As AcadObject</p><p>AcadApp.ActiveDocument.Utility.GetEntity acadobj, pnt, "提示" '单选</p><p> Dim xType As Variant<br/> Dim xData As Variant<br/> <br/> acadobj.GetXData "", xType, xData<br/> b = UBound(xType)<br/> AcadApp.ActiveDocument.Utility.Prompt vbCrLf<br/>'MsgBox B</p><p>If IsEmpty(xType) Then<br/> AcadApp.ActiveDocument.Utility.Prompt "无扩展数据!"<br/>Exit Sub<br/>End If</p><p> For CC = 0 To b<br/> ac = xType(CC) & "->"<br/> AB = xData(CC)</p><p> AcadApp.ActiveDocument.Utility.Prompt Str(CC) & " " & ac & AB<br/> AcadApp.ActiveDocument.Utility.Prompt vbCrLf<br/></p>
页:
[1]