关于移动旋转问题

wmz

请教各位大侠:用VBA如何能实现下面LISP这样的功能:

(defun c:MyMove()

    (setq s (ssget "a")) ;选择图上全部图元

    (setq p1 (list 0 0) p2 (list 10 10))

    (command "move" s "" p1 p2)

)

weianhui

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

wmz

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

wmz

恳请明总出山!

mccad

VBA的操作方式总是与LISP不同，因为LISP可以直接用Command函数来完成，而VBA如果使用SendCommand则显得不专业，而且本身SendCommand方法就有BUG的。

但通过VBA对图元进行操作，则需要为每一个图元进行一次操作，如移动，则对每个图元执行一次move方法。