zearling 发表于 2009-2-5 14:12:00

Lisp调用VBA请教

<p>(Vlax-Invoke-Method&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)<br/>&nbsp;&nbsp;&nbsp; 'SendCommand<br/>&nbsp;&nbsp;&nbsp;&nbsp; "(command \"cone\" pt2 D1 H2)"<br/>&nbsp;&nbsp; )</p><p>CAD无法直接执行上面的代码&nbsp; 有办法能让他直接执行吗</p>

nonsmall 发表于 2009-2-6 08:47:00

<p>(Vlax-Invoke-Method&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)<br/>&nbsp;&nbsp;&nbsp; 'SendCommand<br/>&nbsp;&nbsp;&nbsp;&nbsp; "(command \"cone\" pt2 D1 H2) "<br/>)</p><p>注意"(command \"cone\" pt2 D1 H2) "后面加个空格<br/></p>
页: [1]
查看完整版本: Lisp调用VBA请教