CAD图怎么归零

CAD图怎么归零

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

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

 (setvar "cmdecho" 0)

 (setvar "blipmode" 0)

 (setq #os1 (getvar "osmode"))

 (setvar "o成轴被是smode" 0)

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

 (command "ucs" "")

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

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

  (progn

   (setq &k距似段处注销连下校w (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 "MO仍眼希妒济基镇VE" "all" "" '(0 0 1e99) "" "move" "p" "" '(移镇右多难听告翻蛋城混0 0 -1e99) "")

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

  )

 )

 (princ "\nOK已经归零")

 (setvar "osmo需de" #os1)

 (setvar "cmdecho" 1)

 (princ)

)

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