用VBA怎样实现所有图元的移动

wmz

用VBA如何能实现下面LISP这样的功能:

(defun c:MyMove()

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

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

    (command "move" s "" p1 p2)

)

兰州人

dim rr as acadentity

for each rr in thisdrawing.ModelSpace

  

  rr.Move pp1,pp2

next rr

mccad

我已经帮楼主改过标题了。

这样的问题，基本上大家都会回答。

wmz

明总:2楼的方法亦不失为一个好方法,好像VBA就只能这么办了!