我对AutoCAD二次开发14.5.2记录和实体对应的惟一性的改进
<p>AUTOCAD二次开发的14.5.2 编程思路</p><p>1 ObjectID、Handle和对象本身</p><p>2 记录和实体对应的惟一性</p><p>我对其改进主要使用了MSHFlexGrid1控件，增加了其可视性。<br/><br/>Option Explicit <br/>Dim EntStr As String, EntColor As String<br/>Private Sub MSHFlexGrid1_RowColChange()<br/> Dim Ent As Object <br/> 'Entstr恢复原来已经取的值<br/> If EntStr <> "" Then <br/> Set Ent = obj_Doc.HandleToObject(EntStr)<br/> Ent.Color = EntColor <br/> End If<br/> '点击行所取的值<br/> EntStr = Trim(MSHFlexGrid1.TextMatrix(jj, 17)) <br/> If EntStr <> "" Then<br/> Set Ent = obj_Doc.HandleToObject(EntStr)<br/> EntColor = Ent.Color<br/>End Sub<br/>相比二次开发程序示例而言，直观性更好。</p><p>效果见图</p><p></p><p>点击任意行实体变色，rowchange换成任意行实体恢复原来实体。</p>
页:
[1]