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)
把对象传递到Thisdrawing.SendCommand的参数中去
发布时间 2023-11-05 22:06:40作者: 大力水手008