(defun c:test ( / ) ; 上面的 / 的左右都要 空一格 (command "sphere" '(0 0 0) 10) (command "-group" "c" "big" "big" "L" "") ; 執行 test 之前，必須先 ; -group ; E ; big, 和 small (command "sphere" '(5 0 0) 6) (command "-group" "c" "small" "small" "L" "") (command "subtract" "G" "big" "" "G" "small" "") (princ) ) ;| 指令: -group 輸入群組選項 [?/排序(O)/加入(A)/移除(R)/分解(E)/更名(REN)/可選取的(S)/建立(C)] <建立>: e 輸入群組名稱或 [?]: big 指令: -GROUP 輸入群組選項 [?/排序(O)/加入(A)/移除(R)/分解(E)/更名(REN)/可選取的(S)/建立(C)] <建立>: e 輸入群組名稱或 [?]: small 指令: (load "test") C:TEST 指令: test sphere 指定中心點或 [三點(3P)/兩點(2P)/相切、相切、半徑(T)]: 指定半徑或 [直徑(D)] <6.0000>: 10 指令: -group 輸入群組選項 [?/排序(O)/加入(A)/移除(R)/分解(E)/更名(REN)/可選取的(S)/建立(C)] <建立>: c 輸入群組名稱或 [?]: big 輸入群組描述: big 選取物件: L 找到 1 個 選取物件: 指令: sphere 指定中心點或 [三點(3P)/兩點(2P)/相切、相切、半徑(T)]: 指定半徑或 [直徑(D)] <10.0000>: 6 指令: -group 輸入群組選項 [?/排序(O)/加入(A)/移除(R)/分解(E)/更名(REN)/可選取的(S)/建立(C)] <建立>: c 輸入群組名稱或 [?]: small 輸入群組描述: small 選取物件: L 找到 1 個 選取物件: 指令: subtract 選取要從中減去的實體、曲面或面域 .. 選取物件: G 輸入群組名稱: big 找到 1 個 選取物件: 選取要減去的實體、曲面和面域 .. 選取物件: G 輸入群組名稱: small 找到 1 個 選取物件: |; ※ 引述《tn00364361 (小氵斿)》之銘言： : 小弟我查不到如何在autolisp裡面使用subtract這個功能 : 我的程式碼: : (defun c:test (/) : (command "sphere" '(0 0 0) 10) : (command "sphere" '(5 0 0) 6) : (princ) : ) : 我想用第二個小球讓第一個大球有一個空腔 : 是否有哪位高手願意幫我一下呢 >"< -- e-mail: [email protected] 我的課程介紹網頁： http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18 AutoCAD 台灣地區菁英講師獲選 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.193.224.204