请各位大虾指点：如何全图平移？

mylious

全图坐标平移一个常数，最好用vb


谢谢

Student

(defun c:py(/ x y ss)


         (setq x(getreal "x平移:"))


         (setq y(getreal "y平移:"))


         (setq ss(ssget "x"))


         (command "_.move" ss "" '(0 0) (list x y))


)


供参考。