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

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

3頁(共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函數運用

發表 由 學習小孩 于 2015-01-28, 16:30

實用的程式
avatar
學習小孩
初級會員
初級會員

文章總數 : 42
年齡 : 31
來自 : 高雄
職業 : 水電,消防,旅館新建設計規劃工程等
愛好 : 聽歌 游泳 學新技能
個性 : 待評
使用年資 : 5年
使用版本 : 2008
積分 : 1
經驗值 : 2740
威望值 : 31
注冊日期 : 2010-10-27
經典問與答讀者 藍鵲544號
男 雙魚座 虎

回頂端 向下

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

發表 由 korea 于 2015-01-30, 02:57

感謝蘋果爸的分享 快速又方便 之前是怎麼畫都怪怪的
avatar
korea
一般會員
一般會員

文章總數 : 10
年齡 : 33
來自 : 新竹
職業 : 待業
愛好 : 攝影
個性 : 普通
使用年資 : 6年
使用版本 : 2012
經驗值 : 1567
威望值 : 0
注冊日期 : 2013-08-14
女 處女座 鼠

回頂端 向下

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

發表 由 kit92064 于 2015-05-08, 10:05

謝謝 偷笑
avatar
kit92064
一般會員
一般會員

文章總數 : 30
年齡 : 42
來自 : 高雄
職業 :
愛好 : 閱讀
個性 : 普通
使用年資 : 5
使用版本 : 2004
經驗值 : 2750
威望值 : 0
注冊日期 : 2010-08-09
女 摩羯座 虎

回頂端 向下

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

發表 由 brucecad 于 2015-07-02, 09:01

感謝! 蘋果爸的教學
avatar
brucecad
初級會員
初級會員

文章總數 : 23
年齡 : 43
來自 : Hsinchu
職業 : engineer
愛好 : book
個性 : nice
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 997
威望值 : 6
注冊日期 : 2015-05-03
男 處女座 虎

回頂端 向下

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

發表 由 foschia 于 2015-07-06, 05:56

謝謝蘋果爸,真是超級實用!! 讚啦!!
avatar
foschia
一般會員
一般會員

文章總數 : 45
年齡 : 39
來自 : 高雄
職業 : 工務
愛好 : 美食烹飪
個性 : 開朗
使用年資 : 初學
使用版本 : 初學
經驗值 : 1341
威望值 : 6
注冊日期 : 2014-09-12
女 水瓶座 馬

回頂端 向下

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

發表 由 minture 于 2015-07-17, 08:05

感謝頻果爸無私分享
avatar
minture
初級會員
初級會員

文章總數 : 32
年齡 : 31
來自 : 新北市
職業 : excel autocad
愛好 : 宅在家裡
個性 : 隨遇而安
使用年資 : 10
使用版本 : autocad2010
積分 : 1
經驗值 : 1057
威望值 : 51
注冊日期 : 2015-07-16
男 水瓶座 牛

回頂端 向下

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

發表 由 et1029et 于 2015-10-14, 06:10

自動圖塊!?
好新奇呀!
感謝蘋果爸的分享喔~

客滿了!
不能下載...
avatar
et1029et
初級會員
初級會員

文章總數 : 356
年齡 : 36
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 3318
威望值 : 324
注冊日期 : 2013-07-02
藍鵲666號
女 天蝎座 猴

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2015-10-14, 07:02

et1029et 寫到:客滿了!
不能下載...
謝謝回報!
已經補上備用載點~
竊喜

____________________________________________________________________________________
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函數運用

發表 由 sky_region 于 2015-11-16, 10:56

很方便,感謝你的分享。
avatar
sky_region
一般會員
一般會員

文章總數 : 28
年齡 : 36
來自 : 台北市士林區
職業 : 工程師
愛好 : autocad
個性 : 活潑
使用年資 : 7年
使用版本 : 2010
AutoCAD基礎篇等級 : 10星級
經驗值 : 2932
威望值 : 9
注冊日期 : 2010-02-05
男 金牛座 雞

回頂端 向下

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

發表 由 林冠維 于 2015-11-17, 06:57

感謝大大分享 趕緊來使用看看
avatar
林冠維
一般會員
一般會員

文章總數 : 13
年齡 : 27
來自 : 花蓮
職業 : 繪圖員
愛好 : 聽音樂
個性 : 開朗
使用年資 : 新手初學
使用版本 : 2014
經驗值 : 1223
威望值 : 0
注冊日期 : 2014-08-04
男 處女座 馬

回頂端 向下

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

發表 由 airboyee 于 2015-12-17, 02:12

感謝蘋果大大無私的分享,很實用的工具
avatar
airboyee
一般會員
一般會員

文章總數 : 25
年齡 : 37
來自 : 中國
職業 : 工程師
愛好 : 哈拉
個性 : 內向
使用年資 : 10
使用版本 : 2008
經驗值 : 2658
威望值 : 0
注冊日期 : 2010-10-07
男 摩羯座 羊

回頂端 向下

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

發表 由 jenglung15 于 2015-12-17, 02:55

感謝蘋果爸分享..畫型鋼就不用再一條一條的複製了 竊喜
avatar
jenglung15
一般會員
一般會員

文章總數 : 28
年齡 : 37
來自 : 台中
職業 : 營造
愛好 : work
個性 : 外向
使用年資 : 新手初學
使用版本 : 2002
經驗值 : 1962
威望值 : 0
注冊日期 : 2012-09-27
男 金牛座 猴

回頂端 向下

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

發表 由 eddieliu 于 2015-12-19, 06:31

試試看
avatar
eddieliu
一般會員
一般會員

文章總數 : 6
年齡 : 42
來自 : taipei
職業 : 待業
愛好 : 唱歌
個性 : 隨和
使用年資 : 14年
使用版本 : 2012
經驗值 : 969
威望值 : 0
注冊日期 : 2015-03-17
男 雙子座 兔

回頂端 向下

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

發表 由 paulwan 于 2015-12-22, 15:14

以後畫工字便不需要慢慢畫
avatar
paulwan
初級會員
初級會員

文章總數 : 51
年齡 : 30
來自 : Hong Kong
職業 : Student
愛好 : information
個性 : Nice
使用年資 : Beginning
使用版本 : 2008
積分 : 1
經驗值 : 2240
威望值 : 66
注冊日期 : 2012-07-17
男 巨蟹座 兔

回頂端 向下

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

發表 由 kaihung 于 2016-02-15, 07:45

多爬文真是有益
謝謝蘋爸分享
avatar
kaihung
一般會員
一般會員

文章總數 : 3
年齡 : 33
來自 : 台中市
職業 : 工程繪圖
愛好 : 聽音樂
個性 : 積極向上
使用年資 : 10年
使用版本 : AutoCAD 2016
經驗值 : 627
威望值 : 0
注冊日期 : 2016-02-15
男 天秤座 鼠

回頂端 向下

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

發表 由 hycsyh 于 2016-02-26, 08:41

非常棒的資訊
能否向版大請教
是否有VBA的範例?
avatar
hycsyh
一般會員
一般會員

文章總數 : 32
年齡 : 46
來自 : 高雄
職業 : 工程師
愛好 : 電影
個性 : 執著
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1018
威望值 : 0
注冊日期 : 2015-06-11
男 天蝎座 狗

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2016-02-26, 09:00

hycsyh 寫到:非常棒的資訊
能否向版大請教
是否有VBA的範例?
目前沒有VBA的範例~
你可以在網路GOOGLE一下!
竊喜

____________________________________________________________________________________
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函數運用

發表 由 kingdot 于 2016-05-27, 01:18

早鳥有蟲吃
avatar
kingdot
一般會員
一般會員

文章總數 : 29
年齡 : 54
來自 : taoyuan
職業 : civil
愛好 : read
個性 : nice
使用年資 : 20
使用版本 : 2010
經驗值 : 2906
威望值 : -3
注冊日期 : 2010-03-08
男 雙魚座 兔

回頂端 向下

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

發表 由 gn00713242 于 2016-10-07, 08:37

感謝蘋果爸!!下載下來試試看
avatar
gn00713242
初級會員
初級會員

文章總數 : 19
年齡 : 36
來自 : 台中市
職業 : 工程師
愛好 : 什麼都好
個性 : 好好先生
使用年資 : 5
使用版本 : 2010
積分 : 1
經驗值 : 2553
威望值 : 12
注冊日期 : 2011-01-24
藍鵲675號
男 獅子座 雞

回頂端 向下

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

發表 由 明月心 于 2016-10-29, 17:19

感謝分享

明月心
初級會員
初級會員

文章總數 : 90
年齡 : 44
來自 : 高雄
職業 : 消防人員
愛好 : 聽音樂
個性 : 開朗
使用年資 : 5年以上
使用版本 : 2012
積分 : 1
經驗值 : 3857
威望值 : 58
注冊日期 : 2008-05-13
經典問與答讀者 藍鵲445號
女 射手座 鼠

回頂端 向下

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

發表 由 denniskc 于 2016-11-27, 07:12

真的很方便耶!謝謝版大。
avatar
denniskc
一般會員
一般會員

文章總數 : 30
年齡 : 48
來自 : Taoyuan
職業 : Civil
愛好 : game
個性 : SONG
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2015
威望值 : 6
注冊日期 : 2012-08-21
男 獅子座 雞

回頂端 向下

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

發表 由 klarencee 于 2017-01-02, 17:18

實在是太剛好了...剛想要畫工字樁.謝謝
avatar
klarencee
一般會員
一般會員

文章總數 : 16
年齡 : 29
來自 : 台北
職業 : 學生
愛好 : AUTOCAD
個性 : 正常人
使用年資 : 2年
使用版本 : 2013
經驗值 : 1555
威望值 : 0
注冊日期 : 2013-09-22
男 摩羯座 兔

回頂端 向下

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

發表 由 hanmitan 于 2017-02-24, 02:50

很實用,謝謝分享,下載使用看看
avatar
hanmitan
一般會員
一般會員

文章總數 : 13
年齡 : 36
來自 : 台中市
職業 : 結構設計
愛好 : 書籍
個性 : 幽默
使用年資 : 3年
使用版本 : 2006及2013
經驗值 : 1311
威望值 : 0
注冊日期 : 2014-05-19
男 射手座 猴

回頂端 向下

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

發表 由 amy610811 于 2017-09-25, 08:42

最近好多鋼構需要繪製剛好來下載試用
avatar
amy610811
初級會員
初級會員

文章總數 : 46
年齡 : 45
來自 : 內湖區
職業 : 繪圖
愛好 : play
個性 : good
使用年資 : 10
使用版本 : 2014
積分 : 2
經驗值 : 2929
威望值 : 18
注冊日期 : 2010-04-16
藍鵲185號
2010聚會勳章 女 獅子座 鼠

回頂端 向下

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

發表 由 PUPU-CTO 于 2017-10-13, 15:46

回顧這幾年前的文,除了令人感動之外,還有很多要學習的地方....用心
avatar
PUPU-CTO
一般會員
一般會員

文章總數 : 7
年齡 : 47
來自 : 高雄鳳山
職業 : 拿鐵
愛好 : 美食,運動
個性 : 中庸
使用年資 : 28年
使用版本 : 2011
經驗值 : 62
威望值 : 6
注冊日期 : 2017-09-24
男 天秤座 狗

回頂端 向下

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

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


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