[分享]自動圖塊(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顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共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
ling1027- 一般會員
- 文章總數 : 77
年齡 : 49
來自 : 新竹
職業 : CAD副工程師
愛好 : 認真的過生活
個性 : 冷靜...又熱清
使用年資 : 8年
使用版本 : 2004
經驗值 : 5277
威望值 : 48
注冊日期 : 2011-04-16
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
感覺很棒
感謝大大分享
下載後來研究看看
下載後來研究看看
mysads- 一般會員
- 文章總數 : 46
年齡 : 41
來自 : 嘉義
職業 : 工程師
愛好 : 電腦、看書
個性 : 沉默寡言
使用年資 : 新手初學
使用版本 : 2012
經驗值 : 5049
威望值 : 36
注冊日期 : 2011-07-20
jason0401- 初級會員
- 文章總數 : 71
年齡 : 51
來自 : Taichung, Taiwan
職業 : 自由業
愛好 : CAD sketchup
個性 : 殿殿的
使用年資 : 3 Year
使用版本 : 2010
積分 : 2
經驗值 : 5507
威望值 : 117
注冊日期 : 2010-09-18
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
lisp 程式 應用 讚讚 謝謝
shiehung- 一般會員
- 文章總數 : 60
年齡 : 62
來自 : taichung
職業 : 商 (建築設計
愛好 : 自行車 玩電腦
個性 : 好相處 好靜
使用年資 : 10
使用版本 : 2010
經驗值 : 5046
威望值 : 30
注冊日期 : 2011-10-02
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝大大分享,小弟我以後有能力一定會造福人群!
d4f58845- 一般會員
- 文章總數 : 19
年齡 : 38
來自 : 彰化
職業 : 文書整理
愛好 : 交友
個性 : 開朗
使用年資 : 4
使用版本 : 2012
經驗值 : 5067
威望值 : 6
注冊日期 : 2011-02-11
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
多謝各位大大提供分享,看起來真的不錯...
crihy- 初級會員
- 文章總數 : 178
年齡 : 48
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 7203
威望值 : 477
注冊日期 : 2008-05-13
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
看來非常實用謝謝分享程式感恩
jasminyouto- 一般會員
- 文章總數 : 21
年齡 : 49
來自 : 高雄市
職業 : 遊艇內裝
愛好 : 大自然
個性 : 隨和
使用年資 : 19年
使用版本 : 2016
經驗值 : 5379
威望值 : 6
注冊日期 : 2010-04-19
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
真是方便又好用的LSP謝謝了
ching1791- 一般會員
- 文章總數 : 112
年齡 : 52
來自 : 知識
職業 : 工
愛好 : 郊遊
個性 : 平庸
使用年資 : 4
使用版本 : 2004
經驗值 : 6337
威望值 : 30
注冊日期 : 2008-05-13
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
好厲害!!不過LISP想學的話要如何下手!要去哪邊上課呢?一直想學可是沒有這方面資訊。
dlv2503- 一般會員
- 文章總數 : 36
年齡 : 42
來自 : 台中
職業 : 工程設計師
愛好 : 兜風、看電視
個性 : 開朗
使用年資 : 約8年
使用版本 : 2014~2012都曾使用過
經驗值 : 5901
威望值 : 0
注冊日期 : 2008-10-03
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
很想學LISP,不知如何入門,有空來好好研究一下~感謝分享~
junbafa74- 初級會員
- 文章總數 : 80
年齡 : 50
來自 : 台中
職業 : 施工圖繪圖員
愛好 : 跑步運動
個性 : 開朗
使用年資 : 約3年
使用版本 : 2014
積分 : 2
經驗值 : 4291
威望值 : 78
注冊日期 : 2014-02-26
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝分享,真是佛心來的
poiuyy- 初級會員
- 文章總數 : 226
年齡 : 50
來自 : 台中
職業 : 小監
愛好 : 電影
個性 : 中庸
使用年資 : 5
使用版本 : 2010
積分 : 2
經驗值 : 4731
威望值 : 84
注冊日期 : 2014-06-24
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
正好我需要!謝謝大大的無私分享!來使用去~~
kimtime- 一般會員
- 文章總數 : 122
年齡 : 39
來自 : 台中
職業 : 專案主任工程師
愛好 : 看書、運動、打電腦
個性 : 內向
使用年資 : 7年
使用版本 : 2018
經驗值 : 4903
威望值 : 82
注冊日期 : 2012-11-08
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
台灣這方面的資訊真的不多...dlv2503 寫到:好厲害!!不過LISP想學的話要如何下手!要去哪邊上課呢?一直想學可是沒有這方面資訊。
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
polar 一定要下載測試一下,感謝。
johnnycad- 一般會員
- 文章總數 : 17
年齡 : 46
來自 : 新竹
職業 : 光電
愛好 : 運動
個性 : 內外向
使用年資 : 5
使用版本 : 2004
經驗值 : 4562
威望值 : 0
注冊日期 : 2012-06-19
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝分享,學習LISP中
qq711222- 一般會員
- 文章總數 : 19
年齡 : 43
來自 : 中華人民共和國
職業 : 建築
愛好 : 電腦
個性 : 悶燒
使用年資 : 6
使用版本 : 2010
經驗值 : 4124
威望值 : 6
注冊日期 : 2013-09-15
yz05366- 一般會員
- 文章總數 : 41
年齡 : 38
來自 : 高雄
職業 : 電子
愛好 : 打球
個性 : 善良
使用年資 : 8年
使用版本 : 2020
經驗值 : 4341
威望值 : 24
注冊日期 : 2013-06-18
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝分享,實用的工具
幫助很大
幫助很大
haohao- 初級會員
- 文章總數 : 111
年齡 : 44
來自 : TAIPEI
職業 : 儘量學
愛好 : 棒球
個性 : 溫和
使用年資 : 初學新手
使用版本 : 初學新手
積分 : 2
經驗值 : 5226
威望值 : 148
注冊日期 : 2012-02-07
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝蘋果爸的分享,好實用的工具
ayumi- 初級會員
- 文章總數 : 60
年齡 : 47
來自 : TAIWAN,TAINAN
職業 : CAD繪圖員
愛好 : TV
個性 : 動靜皆宜
使用年資 : 12
使用版本 : auto cad 2008
積分 : 1
經驗值 : 5847
威望值 : 15
注冊日期 : 2009-05-21
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
自動圖塊lisp真的是方便好用的小程式,感謝蘋果爸提供。
其實花點時間學習lisp的撰寫,完成之後的小程式可以幫助繪圖者省下許多的繪製時間,這是很值得學習的。
lin6512_07- 初級會員
- 文章總數 : 55
年齡 : 47
來自 : 台北市
職業 : 電機
愛好 : 戶外活動
個性 : 外向
使用年資 : 8年
使用版本 : 2008
積分 : 2
經驗值 : 5390
威望值 : 99
注冊日期 : 2010-10-10
koko789- 一般會員
- 文章總數 : 28
年齡 : 42
來自 : 台北縣
職業 : 商
愛好 : 鐵件
個性 : 冏
使用年資 : 5年
使用版本 : 3年
經驗值 : 4124
威望值 : 3
注冊日期 : 2013-11-03
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
工作需要用到哦~謝謝分享~
meet_emily- 高級會員
- 文章總數 : 125
年齡 : 54
來自 : 宜蘭
職業 : 學習
愛好 : 電影,音樂
個性 : 有點呆板,但不古板!有點天真,但不失真!有點強硬,但不強勢!
使用年資 : 6
使用版本 : 2010
積分 : 12
經驗值 : 6150
威望值 : 62
回帖精華 : 1
注冊日期 : 2008-10-12
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
正需要這個,一直想要更深入學習acad使用,但是這關始終無法開始,謝謝。
rockao- 一般會員
- 文章總數 : 20
年齡 : 61
來自 : 新竹
職業 : 商
愛好 : 釣魚
個性 : 平和
使用年資 : 18年
使用版本 : 2008
經驗值 : 4881
威望值 : 0
注冊日期 : 2011-08-21
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
感謝蘋果爸!
不知道能否用在C型鋼,來試試看~
不知道能否用在C型鋼,來試試看~
qbbsd0073- 一般會員
- 文章總數 : 18
年齡 : 42
來自 : 新北市
職業 : 建築施工圖
愛好 : 拼圖
個性 : 大眾化
使用年資 : 約20年
使用版本 : 2024
經驗值 : 3741
威望值 : 0
注冊日期 : 2014-09-20
回復: [分享]自動圖塊(H型鋼),POLAR函數運用
可以的!qbbsd0073 寫到:感謝蘋果爸!
不知道能否用在C型鋼,來試試看~
只了解語法再改良修改即可~
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共6頁)
這個論壇的權限:
您 無法 在這個版面回復文章