AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Ioaoe110[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 2020-310[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oiu15010[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 2020-211[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Ia15010[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aizyao10[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Uos15010[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 BPl3tjj[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Ziao1510
[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oo-2-110[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Zuoiy_10[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aizyao11[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Iyb_1510[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aoe1-111[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Uos15011[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aoe2da10[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aoe2da11[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aoe10

[分享]自動圖塊(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

6頁(共6頁) 上一頁  1, 2, 3, 4, 5, 6

向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 Tiger&蘋果爸 2009-11-18, 2:05 pm

主題回顧 :

這是多年前學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程式.


Tiger&蘋果爸 在 2023-09-09, 11:07 pm 作了第 7 次修改

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Sesa2011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Youtub11 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oiea2011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oe20011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Fbi20011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21027
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88088
威望值 : 16855
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

a0982296986 and asdf6214 like this post

回頂端 向下


[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 arch260 2022-12-08, 10:55 am

謝謝大大分享,等等來試用看看
arch260
arch260
一般會員
一般會員

文章總數 : 5
年齡 : 39
來自 : 新北市
職業 : 繪圖員
愛好 :
個性 :
使用年資 : 5
使用版本 : 2010
經驗值 : 694
威望值 : 0
注冊日期 : 2022-04-26
女 獅子座 鼠

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 herrozonia 2022-12-08, 2:39 pm

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

成功了, 真的太好用了, 謝謝大大的分享
herrozonia
herrozonia
一般會員
一般會員

文章總數 : 8
年齡 : 31
來自 : 新北
職業 : 助理工程師
愛好 : 快速並且正確完成工作
個性 : 開朗
使用年資 : 新手初學
使用版本 : 2022
經驗值 : 494
威望值 : 0
注冊日期 : 2022-11-29
男 天秤座 猴

Tiger&蘋果爸 likes this post

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 amy831217 2023-06-06, 11:26 am

超級感謝!!!!!!!
amy831217
amy831217
一般會員
一般會員

文章總數 : 2
年齡 : 29
來自 : 台中市
職業 : 學生
愛好 : 建築
個性 : 和善
使用年資 : 2
使用版本 : 2016
經驗值 : 2834
威望值 : 6
注冊日期 : 2016-06-09
女 射手座 狗

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 Panny 2023-06-08, 10:52 am

謝謝分享,初學~剛接觸鋼構,還在努力中 熱情
Panny
Panny
一般會員
一般會員

文章總數 : 9
年齡 : 39
來自 : 新北市
職業 : 待業
愛好 : 研究
個性 : 放空
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 337
威望值 : 0
注冊日期 : 2023-05-10
女 巨蟹座 鼠

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 pigbloodcake 2023-07-12, 4:46 pm


這相當方便
pigbloodcake
pigbloodcake
一般會員
一般會員

文章總數 : 48
年齡 : 42
來自 : 高雄市
職業 : 繪圖員
愛好 : 上網瀏覽手機相關訊息
個性 : 謹慎
使用年資 : 5
使用版本 : 2014
經驗值 : 1713
威望值 : 0
注冊日期 : 2020-02-10
男 天秤座 雞

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 安東尼 2023-08-27, 8:14 pm

感謝無私分享
安東尼
安東尼
一般會員
一般會員

文章總數 : 25
年齡 : 50
來自 : 桃園
職業 : 待業
愛好 : 音樂
個性 : 誠實
使用年資 : 5年
使用版本 : 2022
經驗值 : 339
威望值 : 0
注冊日期 : 2023-07-23
男 摩羯座 牛

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 d93xjp61212 2023-09-06, 10:20 pm

感謝蘋果爸分享
d93xjp61212
d93xjp61212
贊助會員
贊助會員

文章總數 : 21
年齡 : 38
來自 : 宜蘭
職業 : 機電
愛好 : 解決問題
個性 : 對工作固執,有時候懶惰所以一直再找方法
使用年資 : 10
使用版本 : 2022
經驗值 : 781
威望值 : 0
注冊日期 : 2022-04-13
男 射手座 牛

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 d93xjp61212 2023-09-06, 11:41 pm

蘋果爸,想請教您,(command “Layer” “m” “0”  這段的做用
d93xjp61212
d93xjp61212
贊助會員
贊助會員

文章總數 : 21
年齡 : 38
來自 : 宜蘭
職業 : 機電
愛好 : 解決問題
個性 : 對工作固執,有時候懶惰所以一直再找方法
使用年資 : 10
使用版本 : 2022
經驗值 : 781
威望值 : 0
注冊日期 : 2022-04-13
男 射手座 牛

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 Tiger&蘋果爸 2023-09-07, 6:14 pm

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

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Sesa2011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Youtub11 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oiea2011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oe20011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Fbi20011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21027
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88088
威望值 : 16855
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 d93xjp61212 2023-09-08, 9:49 pm

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列(不知道我的:註解對嗎)
抱歉  我是初學者  研究著妳們分享出來的東西
d93xjp61212
d93xjp61212
贊助會員
贊助會員

文章總數 : 21
年齡 : 38
來自 : 宜蘭
職業 : 機電
愛好 : 解決問題
個性 : 對工作固執,有時候懶惰所以一直再找方法
使用年資 : 10
使用版本 : 2022
經驗值 : 781
威望值 : 0
注冊日期 : 2022-04-13
男 射手座 牛

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 Tiger&蘋果爸 2023-09-10, 4:02 pm

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)
)

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Sesa2011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Youtub11 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oiea2011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oe20011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Fbi20011 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21027
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88088
威望值 : 16855
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 usheraya 2024-01-18, 8:18 am

感謝分享很棒的程式

____________________________________________________________________________________
[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Ioaoe110 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Zuoiy_10 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 2020-211 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aizyao11 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Iyb_1510
[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aizyao10 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 BPl3tjj.png [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Ziao1510 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oo-2-110 [分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oooa_110
usheraya
usheraya
一般會員
一般會員

文章總數 : 9
年齡 : 34
來自 : 台北市
職業 : 工程
愛好 : 運動
個性 : 開朗
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1795
威望值 : 6
注冊日期 : 2019-05-17
男 雙子座 蛇

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 canon2993 2024-01-18, 3:54 pm

謝謝蘋果爸分享
canon2993
canon2993
專屬會員
專屬會員

文章總數 : 25
年齡 : 41
來自 : 嘉義
職業 :
愛好 : 畫圖
個性 : 外向
使用年資 : 10
使用版本 : 2018
經驗值 : 2328
威望值 : 0
注冊日期 : 2018-02-01
男 天蝎座 狗

回頂端 向下

[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Empty 回復: [分享]自動圖塊(H型鋼),POLAR函數運用

發表 由 Tanya 2024-02-01, 4:56 pm

剛好需要用到H型鋼,研究研究,謝謝蘋果爸分享。
Tanya
Tanya
榮譽顧問
榮譽顧問

文章總數 : 380
年齡 : 49
來自 : 埔里鎮
職業 : 服務業
愛好 : 畫圖&音樂&大自然
個性 : 隨和
使用年資 : 2年
使用版本 : MAP 2011
積分 : 28
最佳解答 : 1
經驗值 : 7176
威望值 : 739
注冊日期 : 2010-03-06
藍鵲168號
男 天蝎座 虎

回頂端 向下

6頁(共6頁) 上一頁  1, 2, 3, 4, 5, 6

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Ioaoe110[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 2020-310[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oiu15010[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 2020-211[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Ia15010[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aizyao10[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Uos15010[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 BPl3tjj[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Ziao1510
[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Oo-2-110[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Zuoiy_10[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aizyao11[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Iyb_1510[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aoe1-111[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Uos15011[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aoe2da10[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aoe2da11[分享]自動圖塊(H型鋼),POLAR函數運用 - 頁 6 Aoe10