把AutoCAD VBA的对象传递到Thisdrawing.SendCommand的参数中去

VBA不像lisp可以随意在命令行参数中传递对象，但可以采取如下方法：

Dim obj as AcadXXX

Dim ObjHandle as String

……

'将对象句柄转换成lisp表达式字符串，传递过去

ObjHandle = "(list(handent" & Chr(34) & obj.Handle & Chr(34) & "))"

 

ThisDrawing.SendCommand ("REGION" & vbCr & ObjHandle & vbCr & vbCr & vbCr)