Thisdrawing

VBA不像lisp可以随意在命令行参数中传递对象，但可以采取如下方法： Dim obj as AcadXXX Dim ObjHandle as String …… '将对象句柄转换成lisp表达式字符串，传递过去 ObjHandle = "(list(handent" & Chr(34) & obj ......