我想问一下，如何将autocad中一条线的z坐标都改成零

hedyan

我在cad的杂志上看到有关的解释，但是看不懂，也不知道怎么用
他是这样写的
(defun C:FLATTEN ()
(command "_.UCS" "")
(command "_.move" "_all" "" '(0 0 1e99) ""
      "_.move" "_p" "" '(0 0 -1e99) "")
(princ)
)
请大虾多多指教！

myfreemind