如何在CAD中解决两条不相交或不共面的线段连接问题

第一步，用记事本把以下内容保存为z0.lsp文件

第二步，点击工具—AUTOLISP——加载——z0.lsp文件

第三步，命令行输入z0，回车，选ALL，回车，所有不共面的线条全部归零。

以下为记事本内容——

(defun C:Z0 ( / SS1)

(setvar ＂cmdecho＂ 0)

(if (setq SS1 (ssget))

(progn

(command ＂.undo＂ ＂be＂)

(princ ＂n正在处理图形数据，请稍候...＂)

(terpri)

(command ＂.ucs＂ ＂w＂)

(command ＂.move＂ SS1 ＂＂ '(0 0 1e99) ＂＂ ＂.move＂ ＂p＂ ＂＂ '(0 0 -1e99) ＂＂)

(princ ＂nOK，已将所选图元Z坐标值全部归零。＂)

(command ＂.undo＂ ＂e＂)

);end progn

);end (if (/= SS1 nil)

(princ)

);end (defun C:Z=0 ( / SS1)

以上是如何在CAD中解决两条不相交或不共面的线段连接问题的详细内容。更多信息请关注PHP中文网其他相关文章！