求助：如何将DWG二维图中的Z坐标值批量置0？

srf

将3维图转化为2维图，或画图时不在意，经常将一部分实体划出平面，造成编辑时出错。所以，求助：如何将DWG二维图中的Z坐标值批量置0？最好给一个Lsp程序，不胜感激！

龙龙仔

(defun C:M0 ()
(setvar "cmdecho" 0)
(command "_.UCS" "")
(command "_.move" "_all" "" '(0 0 1e99)
"" "_.move" "_p" "" '(0 0 -1e99)
""
)
(setvar "cmdecho" 1)
(princ)
)

srf

已解决了问题，多谢！ 多谢！

liushengk

有用哈！！

ronatiger

如果对象不在与xy平面平行的平面上，如一条直线，一个端点坐标为（0，0，-1）另一个端点坐标为（10，10，3），能批量使这样的对象的z坐标置零吗？对象所有的控制点z坐标都变为零。