[求助]：如何修改Z轴坐标为0

月影水飘飘

画平面图
可是Z轴却不是0
倒角命令用不了了

xyp1964

加载zzgl.lsp，运行zzgl。

xjjy

(defun C:z0()
   (setvar "cmdecho" 0)
   (setvar "blipmode" 0)
   (graphscr)
   (prompt "Z向归零:") (terpri)

   (princ "请选择要归零的实体")
   (setq s (ssget))
   (setq len (sslength s))
   (setq index 0)

   (repeat len
      (setq a (entget (ssname s index)))

      (setq b10 (assoc 10 a))
      (setq b11 (assoc 11 a))

      (setq x10 (cadr b10))
      (setq y10 (caddr b10))

      (setq x11 (cadr b11))
      (setq y11 (caddr b11))

      (setq b101 (cons 10 (list x10 y10 0)))
      (setq b111 (cons 11 (list x11 y11 0)))

      (setq a (subst b101 b10 a))
      (entmod a)
      (setq a (subst b111 b11 a))
      (entmod a)

      (setq index (+ index 1))
   )
   (princ "成功")
   (princ)
)

shovlken

看了一下，自编了个小程序，自问没有其他人那么复杂。。（可能是我水平不够吧。。。上面各楼主的方法我好多都看不懂）
(defun c:zo()
   (command "move" "all" "" "0,0,0" "0,0,1e99")
   (command "move" "all" "" "0,0,0" "0,0,-1e99")
)

由于本人是自学的，没人指导，如果有什么地方不对请多原谅。。。。（本人实践是可以的）
编的虽然简单，功能是：将所有的线条（除了block以外）的z轴坐标全部归0，如果需要部分归0的话，就要在“all”进行改动，将会令程序变的复杂多拉（在此不作解释），不过如果只是画平面图，把所有的线条放平更好。

xcajcj

;标高(Z坐标)归零实用程序
(defun C:Z=0 ()
(setvar "cmdecho" 0);关闭命令回显
(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "");恢复为默认坐标系
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
(setvar "cmdecho" 1)
(princ)
);end (defun C:Z=0 ()