Lisp调用VBA请教

zearling

(Vlax-Invoke-Method       (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)
    'SendCommand
     "(command \"cone\" pt2 D1 H2)"
   )

CAD无法直接执行上面的代码  有办法能让他直接执行吗

nonsmall

(Vlax-Invoke-Method       (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)
    'SendCommand
     "(command \"cone\" pt2 D1 H2) "
)

注意"(command \"cone\" pt2 D1 H2) "后面加个空格