[分享]自動圖塊(H型鋼)，POLAR函數運用

由 **Tiger&蘋果爸** 2009-11-18, 14:05

主題回顧 :

這是多年前學LISP時，第一堂課學到的第一個「函數」POLAR，也是當初第一支程式，程式碼很單純簡單，在這裡與大家分享研討。
POLAR 可以用的地方很廣，如建立表格、畫門、畫窗等等，有興趣的朋友歡迎一起討論喔～

代碼:: (defun C:RHSTEEL () (SETVAR "CMDECHO" 0) (SETQ OLDOSMODE (GETVAR "OSMODE")) (SETQ OLDLAYEAR (GETVAR "CLAYER")) (SETQ BN (GETSTRING "\n輸入圖塊名稱:"));;;GETSTRING請輸入字串 (setq P1 (getpoint "\n指定圖塊插入點:") H (GETREAL "\n輸入鋼梁深度(H):") W (GETREAL "\n輸入鋼梁寬度(W):") t1 (GETREAL "\n輸入腹板厚度(t1):") t2 (GETREAL "\n輸入翼板厚度(t2):") ) (setq P2 (polar P1 0 W) P3 (POLAR p2 (* pi 0.5) t2) P4 (POLAR p3 pi (- (* W 0.5)(* t1 0.5))) P5 (POLAR p4 (* pi 0.5) (- (* H 1)(* t2 2))) P6 (POLAR p5 0 (- (* W 0.5)(* t1 0.5))) P7 (POLAR p6 (* pi 0.5) t2) P8 (POLAR p7 PI W) P9 (POLAR p8 (* pi 1.5) t2) P10 (POLAR p9 0 (- (* W 0.5)(* t1 0.5))) P11 (POLAR p10 (* pi 1.5) (- (* H 1)(* t2 2))) P12 (POLAR p11 pi (- (* W 0.5)(* t1 0.5))) A1 (POLAR P11 PI t1) A2 (POLAR P11 (* PI 0.5) t2) A3 (POLAR P10 PI t1) A4 (POLAR P10 (* PI 1.5) t2) A5 (POLAR P4 0 t1) A6 (POLAR P4 (* PI 0.5) t2) A7 (POLAR P5 0 t1) A8 (POLAR P5 (* PI 1.5) t2) ) (SETVAR "OSMODE" 0) (command "LAYER" "M" "0" "" "Pline" P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 "c") (SETVAR "CLAYER" OLDLAYEAR) (command "ZOOM" P1 P7) (command "FILLET" "R" "13" "FILLET" A1 A2 "FILLET" A3 A4 "FILLET" A5 A6 "FILLET" A7 A8 "FILLET" "R" "0") (command "ZOOM" "P") (COMMAND "-BLOCK" BN (INTERS P1 P7 P2 P8) "L" "") (COMMAND "-INSERT" BN P1 "" "") (SETVAR "OSMODE" OLDOSMODE) (SETVAR "CLAYER" OLDLAYEAR) (PRIN1) )

👇使用ChatGPT加上中文註解

代碼:: (defun C:RHSTEEL () (SETVAR "CMDECHO" 0) ; 關閉命令提示 (SETQ OLDOSMODE (GETVAR "OSMODE")) ; 儲存舊的 OSMODE 設定 (SETQ OLDLAYEAR (GETVAR "CLAYER")) ; 儲存舊的圖層設定 (SETQ BN (GETSTRING "\n輸入圖塊名稱:")) ; 使用GETSTRING請求輸入字串 ; 使用GETREAL請求輸入數值 (setq P1 (getpoint "\n指定圖塊插入點:") H (GETREAL "\n輸入鋼梁深度(H):") W (GETREAL "\n輸入鋼梁寬度(W):") t1 (GETREAL "\n輸入腹板厚度(t1):") t2 (GETREAL "\n輸入翼板厚度(t2):") ) ; 計算其他點的位置 (setq P2 (polar P1 0 W) P3 (POLAR p2 (* pi 0.5) t2) P4 (POLAR p3 pi (- (* W 0.5)(* t1 0.5))) P5 (POLAR p4 (* pi 0.5) (- (* H 1)(* t2 2))) P6 (POLAR p5 0 (- (* W 0.5)(* t1 0.5))) P7 (POLAR p6 (* pi 0.5) t2) P8 (POLAR p7 PI W) P9 (POLAR p8 (* pi 1.5) t2) P10 (POLAR p9 0 (- (* W 0.5)(* t1 0.5))) P11 (POLAR p10 (* pi 1.5) (- (* H 1)(* t2 2))) P12 (POLAR p11 pi (- (* W 0.5)(* t1 0.5))) A1 (POLAR P11 PI t1) A2 (POLAR P11 (* PI 0.5) t2) A3 (POLAR P10 PI t1) A4 (POLAR P10 (* PI 1.5) t2) A5 (POLAR P4 0 t1) A6 (POLAR P4 (* PI 0.5) t2) A7 (POLAR P5 0 t1) A8 (POLAR P5 (* PI 1.5) t2) ) (SETVAR "OSMODE" 0) ; 設定 OSMODE 為 0，關閉物件捕捉模式 ; 創建多段線圖形，表示鋼梁的形狀 (command "LAYER" "M" "0" "" "Pline" P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 "c") ; 還原舊的圖層設定 (SETVAR "CLAYER" OLDLAYEAR) ; 進行圖形縮放 (command "ZOOM" P1 P7) ; 使用圓角命令連接線段 (command "FILLET" "R" "13" "FILLET" A1 A2 "FILLET" A3 A4 "FILLET" A5 A6 "FILLET" A7 A8 "FILLET" "R" "0") ; 再次進行圖形縮放 (command "ZOOM" "P") ; 創建圖塊並插入 (COMMAND "-BLOCK" BN (INTERS P1 P7 P2 P8) "L" "") (COMMAND "-INSERT" BN P1 "" "") ; 還原原始的 OSMODE 和圖層設定 (SETVAR "OSMODE" OLDOSMODE) (SETVAR "CLAYER" OLDLAYEAR) (PRIN1) )

*下載載點回覆可見*

註：下載使用時，可以先建立自己需要的圖層，然後再使用該LISP來建立鋼梁圖塊!!
[分享]自動圖塊(H型鋼)，POLAR函數運用 - 頁 6 G0196

▼延伸閱讀文章：
[分享]一個學習lisp的地方
[討論]執行完繪圖指令後將物件放置預設的圖層
[討論]繪圖前儲存變數值於繪圖完成後復原的副程式
[分享]不想開一張新圖.就載入一堆的lisp程式.

由 **arch260** 2022-12-08, 10:55

謝謝大大分享，等等來試用看看

由 **herrozonia** 2022-12-08, 14:39

Tiger&蘋果爸寫到:
herrozonia 寫到:如果可以新增r可以自己Key進去就太好了
你可以自己試試加上去程式碼及修改程式碼😎
👇1.在 t2 輸入翼板厚度下面新增加一行
代碼:
t2 (GETREAL "\n輸入翼板厚度(t2):") RR (GETREAL "\n圓角半徑(R):")

👇2.把原來的程式碼 "R" 13 改為 "R" RR
代碼:
(command "FILLET" "R" 13 (command "FILLET" "R" RR

成功了, 真的太好用了, 謝謝大大的分享

由 **amy831217** 2023-06-06, 11:26

超級感謝!!!!!!!

由 **Panny** 2023-06-08, 10:52

謝謝分享,初學~剛接觸鋼構,還在努力中

由 **pigbloodcake** 2023-07-12, 16:46

讚
這相當方便

由 **安東尼** 2023-08-27, 20:14

感謝無私分享

由 **d93xjp61212** 2023-09-06, 22:20

感謝蘋果爸分享

由 **d93xjp61212** 2023-09-06, 23:41

蘋果爸，想請教您，（command “Layer” “m” “0” 這段的做用

由 **Tiger&蘋果爸** 2023-09-07, 18:14

d93xjp61212 寫到:蘋果爸，想請教您，（command “Layer” “m” “0” 這段的做用

就是設置目前層為0層

代碼:: 指令: -LAYER 目前的圖層: 「0」輸入選項 [?/建立(M)/設定(S)/新建(N)/更名(R)/打開(ON)/關閉(OFF)/顏色(C)/線型(L)/線粗(LW)/透明度(TR)/材料(MAT)/出圖(P)/凍結(F)/解凍(T)/鎖住(LO)/解鎖(U)/狀態(A)/描述(D)/調和(E)/外部參考(X)]: M 輸入新圖層的名稱 (成為目前的圖層) <0>: 0

由 **d93xjp61212** 2023-09-08, 21:49

Tiger&蘋果爸寫到:
d93xjp61212 寫到:蘋果爸，想請教您，（command “Layer” “m” “0” 這段的做用
就是設置目前層為0層
代碼:
指令: -LAYER 目前的圖層: 「0」輸入選項 [?/建立(M)/設定(S)/新建(N)/更名(R)/打開(ON)/關閉(OFF)/顏色(C)/線型(L)/線粗(LW)/透明度(TR)/材料(MAT)/出圖(P)/凍結(F)/解凍(T)/鎖住(LO)/解鎖(U)/狀態(A)/描述(D)/調和(E)/外部參考(X)]: M 輸入新圖層的名稱 (成為目前的圖層) <0>: 0

感謝蘋果爸指導
在請問那語法內為什麼不用 -LAYER 那個-號呢
(SETVAR "CMDECHO" 0);;;關閉物件鎖點模式
(SETQ OLDOSMODE (GETVAR "OSMODE"));先將原物件鎖點模式直儲存
(SETQ OLDLAYEAR (GETVAR "CLAYER"))
(SETVAR "OSMODE" OLDOSMODE);還原物件鎖點
(SETVAR "CLAYER" OLDLAYEAR)
(PRIN1)
那裏面的這幾段呢? 分別為 2 3 4 41 42 43列(不知道我的:註解對嗎)
抱歉我是初學者研究著妳們分享出來的東西

由 **Tiger&蘋果爸** 2023-09-10, 16:02

d93xjp61212 寫到:
感謝蘋果爸指導
在請問那語法內為什麼不用 -LAYER 那個-號呢
(SETVAR "CMDECHO" 0);;;關閉物件鎖點模式
(SETQ OLDOSMODE (GETVAR "OSMODE"));先將原物件鎖點模式直儲存
(SETQ OLDLAYEAR (GETVAR "CLAYER"))
(SETVAR "OSMODE" OLDOSMODE);還原物件鎖點
(SETVAR "CLAYER" OLDLAYEAR)
(PRIN1)
那裏面的這幾段呢? 分別為 2 3 4 41 42 43列(不知道我的:註解對嗎)
抱歉我是初學者研究著妳們分享出來的東西

👇使用ChatGPT加上中文註解

代碼:: (defun C:RHSTEEL () (SETVAR "CMDECHO" 0) ; 關閉命令提示 (SETQ OLDOSMODE (GETVAR "OSMODE")) ; 儲存舊的 OSMODE 設定 (SETQ OLDLAYEAR (GETVAR "CLAYER")) ; 儲存舊的圖層設定 (SETQ BN (GETSTRING "\n輸入圖塊名稱:")) ; 使用GETSTRING請求輸入字串 ; 使用GETREAL請求輸入數值 (setq P1 (getpoint "\n指定圖塊插入點:") H (GETREAL "\n輸入鋼梁深度(H):") W (GETREAL "\n輸入鋼梁寬度(W):") t1 (GETREAL "\n輸入腹板厚度(t1):") t2 (GETREAL "\n輸入翼板厚度(t2):") ) ; 計算其他點的位置 (setq P2 (polar P1 0 W) P3 (POLAR p2 (* pi 0.5) t2) P4 (POLAR p3 pi (- (* W 0.5)(* t1 0.5))) P5 (POLAR p4 (* pi 0.5) (- (* H 1)(* t2 2))) P6 (POLAR p5 0 (- (* W 0.5)(* t1 0.5))) P7 (POLAR p6 (* pi 0.5) t2) P8 (POLAR p7 PI W) P9 (POLAR p8 (* pi 1.5) t2) P10 (POLAR p9 0 (- (* W 0.5)(* t1 0.5))) P11 (POLAR p10 (* pi 1.5) (- (* H 1)(* t2 2))) P12 (POLAR p11 pi (- (* W 0.5)(* t1 0.5))) A1 (POLAR P11 PI t1) A2 (POLAR P11 (* PI 0.5) t2) A3 (POLAR P10 PI t1) A4 (POLAR P10 (* PI 1.5) t2) A5 (POLAR P4 0 t1) A6 (POLAR P4 (* PI 0.5) t2) A7 (POLAR P5 0 t1) A8 (POLAR P5 (* PI 1.5) t2) ) (SETVAR "OSMODE" 0) ; 設定 OSMODE 為 0，關閉物件捕捉模式 ; 創建多段線圖形，表示鋼梁的形狀 (command "LAYER" "M" "0" "" "Pline" P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 "c") ; 還原舊的圖層設定 (SETVAR "CLAYER" OLDLAYEAR) ; 進行圖形縮放 (command "ZOOM" P1 P7) ; 使用圓角命令連接線段 (command "FILLET" "R" "13" "FILLET" A1 A2 "FILLET" A3 A4 "FILLET" A5 A6 "FILLET" A7 A8 "FILLET" "R" "0") ; 再次進行圖形縮放 (command "ZOOM" "P") ; 創建圖塊並插入 (COMMAND "-BLOCK" BN (INTERS P1 P7 P2 P8) "L" "") (COMMAND "-INSERT" BN P1 "" "") ; 還原原始的 OSMODE 和圖層設定 (SETVAR "OSMODE" OLDOSMODE) (SETVAR "CLAYER" OLDLAYEAR) (PRIN1) )