CAD学习开发 发表于 2009-4-28 04:17:00

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

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

gdzhou 发表于 2009-4-30 11:21:00

<p>Cass中的CASS码,是存在图元的厚度属性中吧</p><p></p>

CAD学习开发 发表于 2009-5-3 11:16:00

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

yd139 发表于 2009-5-31 20:07:00

<p>On Error Resume Next<br/>Set AcadApp = GetObject(, "Autocad.application")&nbsp;&nbsp; '启动Autocad2000<br/>'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/>AcadApp.Visible = True</p><p><br/>&nbsp;AppActivate AcadApp.Caption&nbsp; 'Cad得到焦点</p><p><br/>Dim acadobj As AcadObject</p><p>AcadApp.ActiveDocument.Utility.GetEntity acadobj, pnt, "提示"&nbsp;&nbsp; '单选</p><p>&nbsp;Dim xType As Variant<br/>&nbsp;Dim xData As Variant<br/>&nbsp;<br/>&nbsp;acadobj.GetXData "", xType, xData<br/>&nbsp;&nbsp;&nbsp;b = UBound(xType)<br/>&nbsp; AcadApp.ActiveDocument.Utility.Prompt vbCrLf<br/>'MsgBox B</p><p>If IsEmpty(xType) Then<br/>&nbsp;AcadApp.ActiveDocument.Utility.Prompt "无扩展数据!"<br/>Exit Sub<br/>End If</p><p>&nbsp;For CC = 0 To b<br/>&nbsp;ac = xType(CC) &amp; "-&gt;"<br/>&nbsp;AB = xData(CC)</p><p>&nbsp;AcadApp.ActiveDocument.Utility.Prompt Str(CC) &amp; "&nbsp; " &amp; ac &amp; AB<br/>&nbsp;AcadApp.ActiveDocument.Utility.Prompt vbCrLf<br/></p>

slsldu 发表于 2009-6-3 16:50:00

页: [1]
查看完整版本: 如何获取CASS中实体的CASS码?