第一步,用记事本把以下内容保存为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中文网其他相关文章!