wmz 发表于 2007-5-9 14:28:00

关于移动旋转问题

<div>请教各位大侠:用VBA如何能实现下面LISP这样的功能:</div><div>(defun c:MyMove()</div><div>&nbsp;&nbsp;&nbsp; (setq s (ssget "a")) ;选择图上全部图元</div><div>&nbsp;&nbsp;&nbsp; (setq p1 (list 0 0) p2 (list 10 10))</div><div>&nbsp;&nbsp;&nbsp; (command "move" s "" p1 p2)</div><div>)</div><div></div>

weianhui 发表于 2007-5-10 15:25:00

先选好对象，再用sendcommand "move" s "" p1 p2，我想应该可以

wmz 发表于 2007-5-10 20:12:00

问题是,我就是想完全用VBA写,实际上,我已经用VBA调用了一段LSP代码实现了(急等着用),但就是不想去麻烦LSP,因为我的图要进行全图换带,计算是VB的强项,是LSP的弱项,由次才有了此想法,而我手头又缺乏VBA资料,不知道用VBA怎样去操作全部选择的整个图元实体.

wmz 发表于 2007-5-13 13:56:00

恳请明总出山!

mccad 发表于 2007-5-13 15:38:00

<p>VBA的操作方式总是与LISP不同，因为LISP可以直接用Command函数来完成，而VBA如果使用SendCommand则显得不专业，而且本身SendCommand方法就有BUG的。</p><p>但通过VBA对图元进行操作，则需要为每一个图元进行一次操作，如移动，则对每个图元执行一次move方法。</p>
页: [1]
查看完整版本: 关于移动旋转问题