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)
标签：Dim,ObjHandle,传递,Chr,参数,Thisdrawing,SendCommand,vbCr From： https://www.cnblogs.com/birdflying/p/17811326.html