如何在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中文網其他相關文章！