cad图里面很多很多的图元都不是在同一平面上的，请问怎样才能最方便的把所有的图元放在同一个平面上呢？

来源：百度知道 编辑：UC知道 时间：2024/09/24 12:01:15
是让他们在同一标高...
原来的图层不变....

  1. 如果是很多块的话，我没有办法，如果是其它对象的话，可以一键完成这个动作。

  2. AutoCAD里面，对象在Z轴移动到无穷远，然后移动回来，你会发现Z的坐标全部是0了。

  3. 程序就是这个原理来解决同一个平面的问题。

  4. ;;;;;;Z坐标归零;;
    (defun c:z0 ( / #os1 &kw)
     (setvar "cmdecho" 0)
     (setvar "blipmode" 0)
     (setq #os1 (getvar "osmode"))
     (command "ucs" "")
     (if (setq &kw (ssget "x" (list (cons 0 "~INSERT"))));;选择所有对象
      (progn
       (setvar "osmode" 0)
       (princ "\n请等待，正在归零")
       (command "MOVE" &kw "" '(0 0 1e99) "" "move" "p" "" '(0 0 -1e99)