第一步，用記事本把以下內容儲存為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中文網其他相關文章！
