我对AutoCAD二次开发14.5.2记录和实体对应的惟一性的改进

兰州人

AutoCAD二次开发的14.5.2 编程思路

1 ObjectID、Handle和对象本身

2 记录和实体对应的惟一性

我对其改进主要使用了MSHFlexGrid1控件，增加了其可视性。

Option Explicit
Dim EntStr As String, EntColor As String
Private Sub MSHFlexGrid1_RowColChange()
  Dim Ent As Object 
  'Entstr恢复原来已经取的值
  If EntStr <> "" Then
    Set Ent = obj_Doc.HandleToObject(EntStr)
    Ent.Color = EntColor
  End If
  '点击行所取的值
  EntStr = Trim(MSHFlexGrid1.TextMatrix(jj, 17)) 
  If EntStr <> "" Then
    Set Ent = obj_Doc.HandleToObject(EntStr)
    EntColor = Ent.Color
End Sub
相比二次开发程序示例而言，直观性更好。

效果见图

点击任意行实体变色，rowchange换成任意行实体恢复原来实体。