cad坐标归零lisp_CAD图怎么归零

展开全部

原理，就是把图元Z轴线移动的负无穷远，然e68a84e8a2ad62616964757a686964616f31333335336530后移动到正无穷，除了块就可以Z轴线归零了。用autoLISP来解决。;;;;;;Z坐标归零;;

(defun c:z0 ( / &kw &k1 #os1)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(setq #os1 (getvar "osmode"))

(setvar "osmode" 0)

(princ "\n请等待，正在归零")

(command "ucs" "")

(setq &k1 (ssget "X"));;检查是否有图元

(if (/= &k1 nil);;如果有图元就归零

(progn

(setq &kw (ssget "x" (list (cons 0 "INSERT"))));;选择所有的块

(if (/= &kw nil)

(command "MOVE" "all" "r" &kw "" '(0 0 1e99) "" "move" "p" "" '(0 0 -1e99) "")

);;如果有块的话，选择除了块以外的对象z坐标归零

(if (= &kw nil)

(command "MOVE" "all" "" '(0 0 1e99) "" "move" "p" "" '(0 0 -1e99) "")

);;如果没有块，那么坐标归零

)

)

(princ "\nOK已经归零")

(setvar "osmode" #os1)

(setvar "cmdecho" 1)

(princ)

)

;以上内容复制到记事本，以(Z0.lsp)命名，autoLISP加载了，命令：Z0除了块就可以归零了。