如何在CAD中解決兩條不相交或不共面的線段連接問題

第一步，用記事本把以下內容保存爲z0.lsp文件

第二步，點擊工具—AUTOLISP——加載——z0.lsp文件

第三步，命令行輸入z0，回車，選ALL，回車，所有不共面的線條全部歸零。

以下爲記事本內容——

(defun C:Z0 ( / SS1)

(setvar ＂cmdecho＂ 0)

(if (setq SS1 (ssget))

(progn

(command ＂.undo＂ ＂be＂)

(princ ＂正在處理圖形數據，請稍候...＂)

(terpri)

(command ＂.ucs＂ ＂w＂)

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

(princ ＂OK，已將所選圖元Z座標值全部歸零。＂)

(command ＂.undo＂ ＂e＂)

);end progn

);end (if (/= SS1 nil)

(princ)

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

以上就是如何在CAD中解決兩條不相交或不共面的線段連接問題的詳細內容，更多請關注本站其它相關文章！