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

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

1頁(共4頁) 1, 2, 3, 4  下一步

上一篇主題 下一篇主題 向下

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

發表 由 Tiger&蘋果爸 于 2009-11-18, 06:05

這是多年前學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)
)
*下載載點回覆可見*

註:下載使用時,可以先建立自己需要的圖層,然後再使用該LISP來建立鋼梁圖塊!!


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


Tiger&蘋果爸 在 2015-10-14, 07:01 作了第 5 次修改

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17192
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64609
威望值 : 12753
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.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函數運用

發表 由 judyyai 于 2009-11-18, 06:35

疑!我沒這圖塊檔!也可以用
是先用LISP畫出H型鋼,用LISP建立圖塊,用LISP插入嗎?
我是這麼覺得! 感動

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27169
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2009-11-18, 06:38

judyyai 寫到:疑!我沒這圖塊檔!也可以用
是先用LISP畫出H型鋼,用LISP建立圖塊,用LISP插入嗎?
我是這麼覺得! 感動
沒錯~
我是看了這篇文章才做出來的~
[己解決]如何使用lisp來建立圖塊?
http://www.autocad-tw.com/forum-f38/topic-t4661.htm

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17192
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64609
威望值 : 12753
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.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函數運用

發表 由 aaaaaa1111 于 2009-12-26, 16:38

很方便....謝謝分享
avatar
aaaaaa1111
一般會員
一般會員

文章總數 : 142
年齡 : 41
來自 : 台中
職業 : 行政
愛好 : 繪圖
個性 : 中性
使用年資 : 15年
使用版本 : 2008
經驗值 : 3278
威望值 : 0
注冊日期 : 2009-11-30
女 金牛座 龍

回頂端 向下

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

發表 由 DARDAR 于 2010-02-13, 12:35

謝謝蘋果爸分享,下載來試試看..... 好棒
avatar
DARDAR
高級會員
高級會員

文章總數 : 281
年齡 : 59
來自 : 台北
職業 : 營造金屬
愛好 : AutoCAD
個性 : 隨和
使用年資 : 5年↑
使用版本 : 2012
積分 : 15
經驗值 : 3900
威望值 : 90
注冊日期 : 2008-05-13
經典問與答讀者 藍鵲49號
男 白羊座 狗

回頂端 向下

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

發表 由 leoneriol 于 2011-11-28, 03:09

感謝蘋果爸分享!!!直接用lisp做這種H型鋼圖塊一定超方便的!
avatar
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 816
年齡 : 33
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 6579
威望值 : 938
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

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

發表 由 天空的雲 于 2012-11-20, 08:00

可以依據這個程式來修正畫一些相關固定尺寸的東西
主要是POLAR 函數 以下說明在給大家了解一下
(POLAR 坐標 角度 距離)
需要提供3個資料給POLAR函數 需注意角度是逕度單位



天空的雲
中級會員
中級會員

文章總數 : 104
年齡 : 46
來自 : 台中市
職業 : 測量工程,數值地形圖,2D圖
愛好 : 網路小說,遊戲
個性 : 古意
使用年資 : R9至今
使用版本 : 2008為主
積分 : 7
經驗值 : 3405
威望值 : 37
發帖精華 : 1
注冊日期 : 2008-11-11
經典問與答讀者 男 白羊座 豬

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2012-11-20, 09:28

天空的雲 寫到:可以依據這個程式來修正畫一些相關固定尺寸的東西
主要是POLAR 函數 以下說明在給大家了解一下
(POLAR 坐標 角度 距離)
需要提供3個資料給POLAR函數 需注意角度是逕度單位
謝謝天空的雲前輩補充說明喔~
竊喜

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17192
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64609
威望值 : 12753
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.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函數運用

發表 由 a9886349 于 2012-11-20, 13:05

太實用了 謝謝分享
avatar
a9886349
一般會員
一般會員

文章總數 : 63
年齡 : 35
來自 : 台灣新北市
職業 : 工程
愛好 : 遊山玩水
個性 : 開朗
使用年資 : 1年
使用版本 : 2010、2011、2012
經驗值 : 2531
威望值 : 36
注冊日期 : 2011-08-24
男 雙魚座 狗

回頂端 向下

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

發表 由 蜜柑喵喵 于 2012-11-21, 01:09

好好用喔
謝謝蘋果拔 謝謝囉
avatar
蜜柑喵喵
一般會員
一般會員

文章總數 : 24
年齡 : 27
來自 : 台北
職業 : 學生
愛好 : 動漫
個性 : 隨和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2124
威望值 : 12
注冊日期 : 2012-04-30
女 摩羯座 蛇

回頂端 向下

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

發表 由 月蜻蜓 于 2012-11-21, 09:36

有這程式還真方便畫出H Beam
也可以發展成進階版,用選單的方式輸入標準大小的型鋼!!
avatar
月蜻蜓
初級會員
初級會員

文章總數 : 46
年齡 : 46
來自 : 新竹
職業 : CAD (2D)
愛好 : 看漫畫,看科幻電影!
個性 : 溫和!
使用年資 : 20
使用版本 : AutoCADM 2013
積分 : 2
經驗值 : 2851
威望值 : 103
注冊日期 : 2010-10-16
經典問與答讀者 藍鵲552號
男 射手座 狗

回頂端 向下

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

發表 由 tan866 于 2012-11-22, 09:52

感謝 Tiger&蘋果爸 分享程序,學習了!
avatar
tan866
初級會員
初級會員

文章總數 : 67
年齡 : 40
來自 : 高雄
職業 : 繪圖
愛好 : 騎腳踏車
個性 : 開朗
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 2895
威望值 : 39
注冊日期 : 2010-10-24
藍鵲346號
男 摩羯座 龍

回頂端 向下

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

發表 由 ericwatch 于 2012-11-26, 09:23

真的很方便耶, 感謝 果爸 分享 竊喜
avatar
ericwatch
一般會員
一般會員

文章總數 : 11
年齡 : 37
來自 : kaohsiung
職業 : 待業
愛好 : 烤肉
個性 : 沈默
使用年資 : 新手初學
使用版本 : 2005
經驗值 : 1866
威望值 : 6
注冊日期 : 2012-11-06
男 白羊座 猴

回頂端 向下

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

發表 由 jenniferaptg 于 2015-01-16, 17:36

終於找到我要的畫圖方式 , 真的很方便耶, 感謝分享

jenniferaptg
專屬會員
專屬會員

文章總數 : 108
年齡 : 43
來自 : taiwan
職業 : cafe
愛好 : 電腦
個性 : 平易近人
使用年資 : 15
使用版本 : autocad2011
經驗值 : 3664
威望值 : 30
注冊日期 : 2009-01-30
藍鵲136號
女 雙子座 虎

回頂端 向下

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

發表 由 linweilung 于 2015-01-20, 04:28

我是支撐型鋼的廠商,這程式真的方便多了,謝謝了!
avatar
linweilung
一般會員
一般會員

文章總數 : 23
年齡 : 41
來自 : 台北
職業 : 建築
愛好 : 所有新奇的事物
個性 : 隨和
使用年資 : 2月
使用版本 : 2006
經驗值 : 3033
威望值 : 0
注冊日期 : 2009-09-17
男 雙子座 龍

回頂端 向下

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

發表 由 mikendung 于 2015-01-20, 05:24

因為有你世界變得更美好,謝謝您的分享

mikendung
一般會員
一般會員

文章總數 : 28
年齡 : 46
來自 : TAIWAN KAOSHIUNG
職業 : 消防工程,機電工程等等
愛好 : 新的知識,新的領域
個性 : 粗礦
使用年資 : 土法煉鋼的8年
使用版本 : 2008
經驗值 : 3322
威望值 : 0
注冊日期 : 2008-12-16
男 摩羯座 狗

回頂端 向下

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

發表 由 anna6477 于 2015-01-20, 05:38

謝謝蘋果爸分享,下載來試試看.....
謝謝分享
avatar
anna6477
初級會員
初級會員

文章總數 : 37
年齡 : 42
來自 : 新北市板橋
職業 : 水電繪圖
愛好 : 旅遊
個性 : 樂觀善良
使用年資 : 10
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 2477
威望值 : 12
注冊日期 : 2011-06-29
女 巨蟹座 兔

回頂端 向下

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

發表 由 sjy0917 于 2015-01-20, 05:39

最近好多鋼構案子,可以來加快速度了,謝謝分享..
avatar
sjy0917
一般會員
一般會員

文章總數 : 30
年齡 : 35
來自 : 台灣台北
職業 : 結構工程師
愛好 : 看書
個性 : 活潑
使用年資 : 1
使用版本 : 2014
經驗值 : 1431
威望值 : 16
注冊日期 : 2014-04-09
男 處女座 狗

回頂端 向下

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

發表 由 陳明田 于 2015-01-20, 05:41

天才老爸......真棒
avatar
陳明田
一般會員
一般會員

文章總數 : 41
年齡 : 53
來自 : 苗栗
職業 : 鋼構亂畫員
愛好 : Kawasaki GTR 1400亂亂跑
個性 : 善良
使用年資 : 無照駕駛 Auto CAD 8年
使用版本 : 2007
經驗值 : 2631
威望值 : 33
注冊日期 : 2011-02-11
男 處女座 龍

回頂端 向下

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

發表 由 lolo0314 于 2015-01-20, 05:42

很方便....謝謝分享
avatar
lolo0314
一般會員
一般會員

文章總數 : 21
年齡 : 37
來自 : 嘉義
職業 : 待業
愛好 : 營建
個性 : 運動
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1319
威望值 : -3
注冊日期 : 2014-06-16
2D基礎函授 經典問與答讀者 男 雙魚座 猴

回頂端 向下

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

發表 由 liao 于 2015-01-20, 05:51

謝謝分享!下載使用看看
avatar
liao
一般會員
一般會員

文章總數 : 15
年齡 : 40
來自 : 台北
職業 : 監工
愛好 : 遊山玩水
個性 : 溫和
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 1839
威望值 : 6
注冊日期 : 2012-12-04
經典問與答讀者 男 白羊座 蛇

回頂端 向下

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

發表 由 designfax 于 2015-01-20, 06:14

感謝蘋果大大!原來是這麼便利的方式~~!!
還停留在“搜集圖塊”複製貼上修改階段的原始人的我,敬謝收納!
avatar
designfax
一般會員
一般會員

文章總數 : 33
年齡 : 37
來自 : 高雄
職業 : 建築
愛好 : 戶外活動
個性 : 隨和
使用年資 : 7
使用版本 : 2008
經驗值 : 2832
威望值 : 36
注冊日期 : 2010-06-25
男 水瓶座 羊

回頂端 向下

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

發表 由 ctest 于 2015-01-20, 06:16

感謝蘋果爸!!!太實用了 謝謝分享
avatar
ctest
一般會員
一般會員

文章總數 : 47
年齡 : 48
來自 : 中壢
職業 : 待業
愛好 : watch
個性 : 溫和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2435
威望值 : 6
注冊日期 : 2011-09-19
男 雙子座 雞

回頂端 向下

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

發表 由 Moon Hun 于 2015-01-20, 06:25

....謝謝分享
avatar
Moon Hun
一般會員
一般會員

文章總數 : 22
年齡 : 48
來自 : 高雄
職業 :
愛好 : 賺錢花錢
個性 :
使用年資 : 25
使用版本 : 2015
經驗值 : 2236
威望值 : 36
注冊日期 : 2012-01-05
女 摩羯座 猴

回頂端 向下

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

發表 由 許大熊 于 2015-01-20, 06:57

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

文章總數 : 32
年齡 : 54
來自 : 新北市新店區
職業 : 設計工程主任
愛好 : 唱歌
個性 : 隨和
使用年資 : 20年
使用版本 : autocad 2010
經驗值 : 1637
威望值 : 6
注冊日期 : 2013-09-25
男 白羊座 兔

回頂端 向下

1頁(共4頁) 1, 2, 3, 4  下一步

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章