shalei021647 发表于 2011-11-14 16:03 
不管咋说还是谢谢版主,不过这个试用了一下,似乎不能满足要求哦,虽然图纸都是一个模板出来的,但是有一部 ...
给你个程序,可将每个图纸左下角点移动到WCS原点。其余的自己参考着改一下。

- (defun c:Move00()
- (princ "nMove all from extmin to 0,0")
- (setvar "cmdecho" 0)
- (command "zoom" "e")
- (command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")
- (command "zoom" "e")
- (setvar "cmdecho" 1)
- (princ)
- )
|