求使DWG或DXF文件中所有的东东的Z坐标变为零的工具

邓绍萌

matichen

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


别人写的，没看懂，但很好用。
谁知道(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "")这句什么意思请告诉一下。

baozhiliang

1e99就是它的Z坐标平移了10的99次幂，具体这个值有多大？你自己算一算就知道了，总之，按常理这个数值应该比你图挡中所有图元的Z坐标都要大上很多很多........这样，相对于10的99次幂来说，图元的Z坐标也就被忽略为“0”了，最恰当的比喻就类似数学中的趋于无穷小了，经过第一次平移后，所有图元的Z坐标就是一个统一的值，即都到10的99次幂高度了，再经过第二次平移Z坐标又被平移了-10的99次幂了，从而所有图元Z坐标也就都变为“0”了，罗嗦这些，不知明白没？这是一个很巧妙的技巧，我也很佩服！大家继续努力吧！

matichen

雷

(defun C:che()  
(setq a (ssget "x"))
(command "change" a "" "p" "e" 0 "" "")  
(princ)
)