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

主題回顧 :

這是多年前學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來建立鋼梁圖塊!!


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

謝謝無私分享~~

許大熊 寫到:另外可用動態圖塊方式,將所需的尺寸一次建置,使用時只要點選需要的尺寸即可.

大大您說的沒錯～
相關操作請參考 >> [分享]動態圖塊-圖塊表格運用

感謝大大分享
下載後來研究看看

感恩蘋果爸，真的造福好多不會寫 Lisp 的人！

lisp 程式 應用 讚讚 謝謝

感謝大大分享，小弟我以後有能力一定會造福人群！

多謝各位大大提供分享，看起來真的不錯...

看來非常實用謝謝分享程式感恩

真是方便又好用的LSP謝謝了

好厲害!!不過LISP想學的話要如何下手!要去哪邊上課呢?一直想學可是沒有這方面資訊。

很想學LISP，不知如何入門，有空來好好研究一下～感謝分享～

感謝分享，真是佛心來的

正好我需要!謝謝大大的無私分享!來使用去~~

dlv2503 寫到:好厲害!!不過LISP想學的話要如何下手!要去哪邊上課呢?一直想學可是沒有這方面資訊。

台灣這方面的資訊真的不多...

polar 一定要下載測試一下，感謝。

感謝分享，學習LISP中

哇!!!這樣以後建立圖塊就很方便了

感謝分享，實用的工具
幫助很大

感謝蘋果爸的分享，好實用的工具

自動圖塊lisp真的是方便好用的小程式，感謝蘋果爸提供。
其實花點時間學習lisp的撰寫，完成之後的小程式可以幫助繪圖者省下許多的繪製時間，這是很值得學習的。

感謝分享~

工作需要用到哦~謝謝分享~

正需要這個，一直想要更深入學習acad使用，但是這關始終無法開始，謝謝。

感謝蘋果爸！
不知道能否用在C型鋼，來試試看～

qbbsd0073 寫到:感謝蘋果爸！
不知道能否用在C型鋼，來試試看～

可以的！
只了解語法再改良修改即可～