[分享]自動圖塊(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顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共6頁)
[分享]自動圖塊(H型鋼),POLAR函數運用
這是多年前學LISP時,第一堂課學到的第一個「函數」POLAR,也是當初第一支程式,程式碼很單純簡單,在這裡與大家分享研討。
POLAR 可以用的地方很廣,如建立表格、畫門、畫窗等等,有興趣的朋友歡迎一起討論喔~
註:下載使用時,可以先建立自己需要的圖層,然後再使用該LISP來建立鋼梁圖塊!!
▼延伸閱讀文章:
[分享]一個學習lisp的地方
[討論]執行完繪圖指令後將物件放置預設的圖層
[討論]繪圖前儲存變數值於繪圖完成後復原的副程式
[分享]不想開一張新圖.就載入一堆的lisp程式.
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 次修改
____________________________________________________________________________________
👉[雙11優惠]2024雙11活動 教學產品7折起(免運)(點我)👈
a0982296986 and asdf6214 like this post
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
疑!我沒這圖塊檔!也可以用
是先用LISP畫出H型鋼,用LISP建立圖塊,用LISP插入嗎?
我是這麼覺得!
是先用LISP畫出H型鋼,用LISP建立圖塊,用LISP插入嗎?
我是這麼覺得!
judyyai- 管理顧問
- 文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30428
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
沒錯~judyyai 寫到:疑!我沒這圖塊檔!也可以用
是先用LISP畫出H型鋼,用LISP建立圖塊,用LISP插入嗎?
我是這麼覺得!
我是看了這篇文章才做出來的~
[己解決]如何使用lisp來建立圖塊?
https://www.autocad-tw.com/t4661-topic
Tiger&蘋果爸 在 2023-08-20, 13:30 作了第 1 次修改
____________________________________________________________________________________
👉[雙11優惠]2024雙11活動 教學產品7折起(免運)(點我)👈
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
很方便....謝謝分享
aaaaaa1111- 一般會員
- 文章總數 : 142
年齡 : 48
來自 : 台中
職業 : 行政
愛好 : 繪圖
個性 : 中性
使用年資 : 15年
使用版本 : 2008
經驗值 : 5852
威望值 : 0
注冊日期 : 2009-11-30
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
謝謝蘋果爸分享,下載來試試看.....
DARDAR- 高級會員
- 文章總數 : 337
年齡 : 66
來自 : 台北
職業 : 營造金屬
愛好 : AutoCAD
個性 : 隨和
使用年資 : 5年↑
使用版本 : 2012
積分 : 15
經驗值 : 6710
威望值 : 96
注冊日期 : 2008-05-13
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝蘋果爸分享!!!直接用lisp做這種H型鋼圖塊一定超方便的!
leoneriol- 榮譽顧問
- 文章總數 : 818
年齡 : 40
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 9183
威望值 : 960
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
可以依據這個程式來修正畫一些相關固定尺寸的東西
主要是POLAR 函數 以下說明在給大家了解一下
(POLAR 坐標 角度 距離)
需要提供3個資料給POLAR函數 需注意角度是逕度單位
主要是POLAR 函數 以下說明在給大家了解一下
(POLAR 坐標 角度 距離)
需要提供3個資料給POLAR函數 需注意角度是逕度單位
天空的雲- 中級會員
- 文章總數 : 107
年齡 : 53
來自 : 台中市
職業 : 測量工程,數值地形圖,2D圖
愛好 : 網路小說,遊戲
個性 : 古意
使用年資 : R9至今
使用版本 : 2008為主
積分 : 7
經驗值 : 5997
威望值 : 37
發帖精華 : 1
注冊日期 : 2008-11-11
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
謝謝天空的雲前輩補充說明喔~天空的雲 寫到:可以依據這個程式來修正畫一些相關固定尺寸的東西
主要是POLAR 函數 以下說明在給大家了解一下
(POLAR 坐標 角度 距離)
需要提供3個資料給POLAR函數 需注意角度是逕度單位
____________________________________________________________________________________
👉[雙11優惠]2024雙11活動 教學產品7折起(免運)(點我)👈
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
太實用了 謝謝分享
a9886349- 一般會員
- 文章總數 : 78
年齡 : 42
來自 : 台灣新北市
職業 : 工程
愛好 : 遊山玩水
個性 : 開朗
使用年資 : 1年
使用版本 : 2010、2011、2012
經驗值 : 5168
威望值 : 36
注冊日期 : 2011-08-24
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
好好用喔
謝謝蘋果拔
謝謝蘋果拔
蜜柑喵喵- 一般會員
- 文章總數 : 29
年齡 : 34
來自 : 台北
職業 : CAD繪圖員
愛好 : 動漫
個性 : 隨和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4726
威望值 : 12
注冊日期 : 2012-04-30
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
有這程式還真方便畫出H Beam
也可以發展成進階版,用選單的方式輸入標準大小的型鋼!!
也可以發展成進階版,用選單的方式輸入標準大小的型鋼!!
月蜻蜓- 初級會員
- 文章總數 : 53
年齡 : 53
來自 : 新竹
職業 : CAD (2D)
愛好 : 看漫畫,看科幻電影!
個性 : 溫和!
使用年資 : 20
使用版本 : AutoCADM 2013
積分 : 2
經驗值 : 5458
威望值 : 103
注冊日期 : 2010-10-16
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝 Tiger&蘋果爸 分享程序,學習了!
tan866- 初級會員
- 文章總數 : 79
年齡 : 47
來自 : 高雄
職業 : 繪圖
愛好 : 騎腳踏車
個性 : 開朗
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 5537
威望值 : 47
注冊日期 : 2010-10-24
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
真的很方便耶, 感謝 果爸 分享
ericwatch- 一般會員
- 文章總數 : 11
年齡 : 44
來自 : kaohsiung
職業 : 待業
愛好 : 烤肉
個性 : 沈默
使用年資 : 新手初學
使用版本 : 2005
經驗值 : 4440
威望值 : 6
注冊日期 : 2012-11-06
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
終於找到我要的畫圖方式 , 真的很方便耶, 感謝分享
jenniferaptg- 一般會員
- 文章總數 : 135
年齡 : 50
來自 : taiwan
職業 : cafe
愛好 : 電腦
個性 : 平易近人
使用年資 : 15
使用版本 : 用最熟的那一版
經驗值 : 6365
威望值 : 30
注冊日期 : 2009-01-30
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
我是支撐型鋼的廠商,這程式真的方便多了,謝謝了!
linweilung- 一般會員
- 文章總數 : 27
年齡 : 48
來自 : 台北
職業 : 建築
愛好 : 所有新奇的事物
個性 : 隨和
使用年資 : 2月
使用版本 : 2006
經驗值 : 5621
威望值 : 0
注冊日期 : 2009-09-17
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
因為有你世界變得更美好,謝謝您的分享
mikendung- 一般會員
- 文章總數 : 37
年齡 : 53
來自 : 高雄市
職業 : 消防工程,機電工程等等
愛好 : 新的知識,新的領域
個性 : 粗礦
使用年資 : 土法煉鋼的8年
使用版本 : 2008
經驗值 : 5937
威望值 : 6
注冊日期 : 2008-12-16
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
謝謝蘋果爸分享,下載來試試看.....
謝謝分享
謝謝分享
anna6477- 初級會員
- 文章總數 : 53
年齡 : 49
來自 : 新北市板橋
職業 : 水電繪圖
愛好 : 旅遊
個性 : 樂觀善良
使用年資 : 10
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 5127
威望值 : 18
注冊日期 : 2011-06-29
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
最近好多鋼構案子,可以來加快速度了,謝謝分享..
sjy0917- 一般會員
- 文章總數 : 31
年齡 : 42
來自 : 台灣台北
職業 : 結構工程師
愛好 : 看書
個性 : 活潑
使用年資 : 1
使用版本 : 2014
經驗值 : 4008
威望值 : 16
注冊日期 : 2014-04-09
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
天才老爸......真棒
陳明田- 一般會員
- 文章總數 : 51
年齡 : 60
來自 : 苗栗
職業 : 工
愛好 : 大自然
個性 : 善良
使用年資 : 帥
使用版本 : 2018
經驗值 : 5245
威望值 : 33
注冊日期 : 2011-02-11
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
很方便....謝謝分享
lolo0314- 一般會員
- 文章總數 : 21
年齡 : 44
來自 : 嘉義
職業 : 待業
愛好 : 營建
個性 : 運動
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 3893
威望值 : -3
注冊日期 : 2014-06-16
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
謝謝分享!下載使用看看
liao- 一般會員
- 文章總數 : 19
年齡 : 47
來自 : 台北
職業 : 監工
愛好 : 遊山玩水
個性 : 溫和
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 4429
威望值 : 6
注冊日期 : 2012-12-04
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝蘋果大大!原來是這麼便利的方式~~!!
還停留在“搜集圖塊”複製貼上修改階段的原始人的我,敬謝收納!
還停留在“搜集圖塊”複製貼上修改階段的原始人的我,敬謝收納!
designfax- 一般會員
- 文章總數 : 38
年齡 : 44
來自 : 高雄
職業 : 建築
愛好 : 戶外活動
個性 : 隨和
使用年資 : 7
使用版本 : 2008
經驗值 : 5423
威望值 : 36
注冊日期 : 2010-06-25
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝蘋果爸!!!太實用了 謝謝分享
ctest- 一般會員
- 文章總數 : 59
年齡 : 55
來自 : 中壢
職業 : 待業
愛好 : watch
個性 : 溫和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 5061
威望值 : 12
注冊日期 : 2011-09-19
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
....謝謝分享
Moon Hun- 一般會員
- 文章總數 : 22
年齡 : 55
來自 : 高雄
職業 : 商
愛好 : 賺錢花錢
個性 : 悶
使用年資 : 25
使用版本 : 2015
經驗值 : 4810
威望值 : 36
注冊日期 : 2012-01-06
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
另外可用動態圖塊方式,將所需的尺寸一次建置,使用時只要點選需要的尺寸即可.
許大熊- 一般會員
- 文章總數 : 33
年齡 : 61
來自 : 新北市新店區
職業 : 設計工程主任
愛好 : 唱歌
個性 : 隨和
使用年資 : 20年
使用版本 : autocad 2010
經驗值 : 4214
威望值 : 6
注冊日期 : 2013-09-25
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共6頁)
這個論壇的權限:
您 無法 在這個版面回復文章