[分享]自動圖塊(H型鋼),POLAR函數運用
+121
安東尼
pigbloodcake
Panny
amy831217
arch260
herrozonia
bjackwang
kaods
mstact
ahorng
文-
ken000ken
diy6010
Allen5168
ws567309
tacoamos
ya198515
jz092896
linwhelming
糖糖的主人
Unique
kinyoliu
archarch
ken2205
ksonrj
JK_Nash
anais99
aero7258
leofucidin
wuwubaibai
JohnnyTsungChen
dawr
cantwocantwocan
alou0323
林先好
李泊彥
oopsyyyyy
yuting120
雨林林
rickyyang
keybo
cawang
payuer
car86
wgninpd
ianlcc
winterberry
SRCman
dd0916
jasmine0922
kfc5668
阿權
qaz6605
PUPU-CTO
amy610811
hanmitan
klarencee
denniskc
明月心
gn00713242
kingdot
hycsyh
kaihung
paulwan
eddieliu
jenglung15
airboyee
林冠維
sky_region
et1029et
minture
foschia
brucecad
kit92064
korea
學習小孩
qbbsd0073
rockao
meet_emily
koko789
lin6512_07
ayumi
haohao
yz05366
qq711222
johnnycad
kimtime
poiuyy
junbafa74
dlv2503
ching1791
jasminyouto
crihy
d4f58845
shiehung
jason0401
mysads
ling1027
許大熊
Moon Hun
ctest
designfax
liao
lolo0314
陳明田
sjy0917
anna6477
mikendung
linweilung
jenniferaptg
ericwatch
tan866
月蜻蜓
蜜柑喵喵
a9886349
天空的雲
leoneriol
DARDAR
aaaaaa1111
judyyai
Tiger&蘋果爸
125 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第4頁(共6頁)
[分享]自動圖塊(H型鋼),POLAR函數運用
主題回顧 :
這是多年前學LISP時,第一堂課學到的第一個「函數」POLAR,也是當初第一支程式,程式碼很單純簡單,在這裡與大家分享研討。
POLAR 可以用的地方很廣,如建立表格、畫門、畫窗等等,有興趣的朋友歡迎一起討論喔~
註:下載使用時,可以先建立自己需要的圖層,然後再使用該LISP來建立鋼梁圖塊!!
▼延伸閱讀文章:
[分享]一個學習lisp的地方
[討論]執行完繪圖指令後將物件放置預設的圖層
[討論]繪圖前儲存變數值於繪圖完成後復原的副程式
[分享]不想開一張新圖.就載入一堆的lisp程式.
這是多年前學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程式.
Tiger&蘋果爸 在 2023-09-09, 23:07 作了第 7 次修改
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
a0982296986 and asdf6214 like this post
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
謝謝分享,下載研究看看
qaz6605- 初級會員
- 文章總數 : 193
年齡 : 46
來自 : 台南市
職業 : 繪圖員
愛好 : 有關電腦的
個性 : 外向
使用年資 : 剛剛初道
使用版本 : 2006
積分 : 2
經驗值 : 6574
威望值 : 82
注冊日期 : 2008-12-31
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝分享,很實用的工具。
阿權- 初級會員
- 文章總數 : 18
年齡 : 41
來自 : 雲林
職業 : 電力系統
愛好 : 攝影,羽球
個性 : 隨和,樂觀
使用年資 : 新手初學
使用版本 : 新手初學
積分 : 1
經驗值 : 2711
威望值 : 6
注冊日期 : 2017-07-23
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
真的很厲害!感謝分享!
kfc5668- 一般會員
- 文章總數 : 30
年齡 : 48
來自 : 台北
職業 : 帷幕牆設計
愛好 : 登山
個性 : 內向
使用年資 : 15年
使用版本 : autocad2008
經驗值 : 5271
威望值 : 0
注冊日期 : 2010-09-10
jasmine0922- 一般會員
- 文章總數 : 5
年齡 : 32
來自 : 高雄
職業 : 建築業
愛好 : 音樂
個性 : 樂觀
使用年資 : 5
使用版本 : 2016
經驗值 : 2427
威望值 : 0
注冊日期 : 2018-03-07
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
~~~感謝蘋果爸提共分享~~~
dd0916- 初級會員
- 文章總數 : 62
年齡 : 47
來自 : taipei
職業 : ME
愛好 : MOVIE
個性 : 良善
使用年資 : 10
使用版本 : 17
積分 : 1
經驗值 : 2683
威望值 : 30
注冊日期 : 2018-03-07
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝分享 很實用的
SRCman- 一般會員
- 文章總數 : 15
年齡 : 31
來自 : 台北
職業 : 土木領域
愛好 : 水族
個性 : 幽默
使用年資 : 8年
使用版本 : 2018
經驗值 : 2475
威望值 : 0
注冊日期 : 2018-03-14
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
太實用了,謝謝分享!
winterberry- 一般會員
- 文章總數 : 3
年齡 : 38
來自 : 台中
職業 : 繪圖助理
愛好 : 閱讀
個性 : 開朗
使用年資 : 2年
使用版本 : 2014
經驗值 : 2874
威望值 : 0
注冊日期 : 2016-12-07
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
很方便、也很實用的一個LISP
ianlcc- 一般會員
- 文章總數 : 159
年齡 : 49
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 5335
威望值 : 69
注冊日期 : 2012-06-24
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
正需要這個材料,真是雪中送炭也,謝謝分享!
wgninpd- 一般會員
- 文章總數 : 11
年齡 : 62
來自 : 台北
職業 : 待業
愛好 : 玩
個性 : 慢熟
使用年資 : 4年
使用版本 : 2004
經驗值 : 4807
威望值 : 0
注冊日期 : 2011-09-28
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
請多多分享論壇的「炭」,給更多朋友吧~wgninpd 寫到:正需要這個材料,真是雪中送炭也,謝謝分享!
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝蘋果爸分享,下載來試看看
car86- 一般會員
- 文章總數 : 62
年齡 : 42
來自 : 台灣省桃園縣
職業 : 繪圖員
愛好 : 繪圖
個性 : 內斂
使用年資 : 2年
使用版本 : 2012
經驗值 : 4375
威望值 : 22
注冊日期 : 2013-07-11
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝蘋果爸熱心提供、工作上時常使用、非常的方便。
payuer- 初級會員
- 文章總數 : 37
年齡 : 62
來自 : 桃園
職業 : 營造
愛好 : 運動
個性 : 大方
使用年資 : 新手初學
使用版本 : 2010
積分 : 2
經驗值 : 5104
威望值 : 39
注冊日期 : 2011-04-02
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
謝謝您的分享,
試試看!!
試試看!!
cawang- 一般會員
- 文章總數 : 21
年齡 : 61
來自 : 台北市
職業 : 建築
愛好 : 音樂
個性 : 沉默
使用年資 : 10年
使用版本 : 2006
經驗值 : 4856
威望值 : 6
注冊日期 : 2011-09-28
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
一樣是需要畫鋼構的有用到
萬分感謝
萬分感謝
keybo- 一般會員
- 文章總數 : 10
年齡 : 44
來自 : 高雄
職業 : 結構設計
愛好 : 電腦
個性 : 一般
使用年資 : 20年
使用版本 : 2016
經驗值 : 2329
威望值 : 12
注冊日期 : 2018-07-18
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝大大無私的分享 感恩
rickyyang- 專屬會員
- 文章總數 : 196
年齡 : 45
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 17
使用版本 : AutoCAD 2023
經驗值 : 4543
威望值 : 36
注冊日期 : 2014-11-11
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝蘋果爸~來試看看
雨林林- 一般會員
- 文章總數 : 15
年齡 : 39
來自 : 新北市
職業 : 鐵件設計
愛好 : 打電玩
個性 : 安靜
使用年資 : 4年
使用版本 : AUTOCAD2012
經驗值 : 3820
威望值 : 0
注冊日期 : 2014-06-17
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
非常實用~感謝分享~~
yuting120- 一般會員
- 文章總數 : 16
年齡 : 45
來自 : 宜蘭
職業 : 建築設計
愛好 : 編織
個性 : 安靜
使用年資 : 10
使用版本 : 2012
經驗值 : 2171
威望值 : 12
注冊日期 : 2019-01-14
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝分享!!!!!
oopsyyyyy- 一般會員
- 文章總數 : 47
年齡 : 30
來自 : 台北
職業 : 結構助理工程師
愛好 : 看電影
個性 : 活潑
使用年資 : 3
使用版本 : 2017
經驗值 : 2315
威望值 : 6
注冊日期 : 2019-01-19
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝蘋果爸,這對篇文章對於剛學習LISP語法的人非常有幫助,感謝您
李泊彥- 一般會員
- 文章總數 : 4
年齡 : 30
來自 : 彰化市
職業 : 設計工程師
愛好 : 閱讀
個性 : 幽默
使用年資 : 10
使用版本 : 2016
經驗值 : 1696
威望值 : 0
注冊日期 : 2020-03-04
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝分享 是否也有槽鋼圖塊呢...
林先好- 一般會員
- 文章總數 : 3
年齡 : 34
來自 : 新竹
職業 : 鋼鐵
愛好 : 鋼鐵
個性 : 鋼鐵
使用年資 : 2
使用版本 : 2014
經驗值 : 1671
威望值 : 0
注冊日期 : 2020-03-24
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
謝謝蘋果爸的分享~
alou0323- 一般會員
- 文章總數 : 17
年齡 : 49
來自 : 台中
職業 : 建築
愛好 : 運動
個性 : 好學
使用年資 : 2hrs/day
使用版本 : 2014
經驗值 : 3457
威望值 : 6
注冊日期 : 2015-07-16
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝分享,非常需要這個功能
cantwocantwocan- 一般會員
- 文章總數 : 6
年齡 : 41
來自 : Taipei
職業 : 結構設計
愛好 : 看書
個性 : 開朗
使用年資 : 12
使用版本 : 2008
經驗值 : 1621
威望值 : 0
注冊日期 : 2020-05-26
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
不知道還能不能下載,感謝分享
dawr- 一般會員
- 文章總數 : 9
年齡 : 40
來自 : New Taipei City
職業 : 水處理工程
愛好 : 電玩
個性 : 好欺負
使用年資 : 7
使用版本 : Mechanical 2020
經驗值 : 1623
威望值 : 0
注冊日期 : 2020-06-15
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
謝謝蘋果爸分享,來嘗試看看。
JohnnyTsungChen- 一般會員
- 文章總數 : 9
年齡 : 35
來自 : 台灣台中
職業 : 營造業
愛好 : 繪圖
個性 : 極度厭世
使用年資 : 全天
使用版本 : 2018
經驗值 : 1766
威望值 : 0
注冊日期 : 2020-01-19
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
看來這個對鋼構拆圖得非常需要
先收集起來
謝謝大大的分享
先收集起來
謝謝大大的分享
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4194
威望值 : 0
注冊日期 : 2014-04-18
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第4頁(共6頁)
這個論壇的權限:
您 無法 在這個版面回復文章