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

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

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

向下

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

發表 由 Tiger&蘋果爸 于 2009-11-18, 14: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, 14:01 作了第 5 次修改

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

文章總數 : 17826
年齡 : 42
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 68109
威望值 : 13268
注冊日期 : 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函數運用

發表 由 qaz6605 于 2017-10-17, 07:58

謝謝分享,下載研究看看

qaz6605
初級會員
初級會員

文章總數 : 174
年齡 : 39
來自 : 台南市
職業 : 繪圖員
愛好 : 有關電腦的
個性 : 外向
使用年資 : 剛剛初道
使用版本 : 2006
積分 : 2
經驗值 : 4235
威望值 : 82
注冊日期 : 2008-12-31
經典問與答讀者 藍鵲285號
男 處女座 馬

回頂端 向下

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

發表 由 阿權 于 2017-11-05, 17:53

感謝分享,很實用的工具。
avatar
阿權
初級會員
初級會員

文章總數 : 15
年齡 : 34
來自 : 雲林
職業 : 電力系統
愛好 : 攝影,羽球
個性 : 隨和,樂觀
使用年資 : 新手初學
使用版本 : 新手初學
積分 : 1
經驗值 : 428
威望值 : 6
注冊日期 : 2017-07-23
2D+3D線上 男 天秤座 豬

回頂端 向下

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

發表 由 kfc5668 于 2017-12-25, 18:03

真的很厲害!感謝分享!
avatar
kfc5668
一般會員
一般會員

文章總數 : 26
年齡 : 41
來自 : 台北
職業 : 帷幕牆設計
愛好 : 登山
個性 : 內向
使用年資 : 15年
使用版本 : autocad2008
經驗值 : 2987
威望值 : 0
注冊日期 : 2010-09-10
男 天秤座 龍

回頂端 向下

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

發表 由 jasmine0922 于 2018-03-09, 09:19

來試試!
avatar
jasmine0922
一般會員
一般會員

文章總數 : 5
年齡 : 25
來自 : 高雄
職業 : 建築業
愛好 : 音樂
個性 : 樂觀
使用年資 : 5
使用版本 : 2016
經驗值 : 159
威望值 : 0
注冊日期 : 2018-03-07
女 處女座 猴

回頂端 向下

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

發表 由 dd0916 于 2018-03-09, 13:02

~~~感謝蘋果爸提共分享~~~
avatar
dd0916
一般會員
一般會員

文章總數 : 38
年齡 : 41
來自 : taipei
職業 : ME
愛好 : MOVIE
個性 : 良善
使用年資 : 10
使用版本 : 17
經驗值 : 304
威望值 : 12
注冊日期 : 2018-03-07
男 雙子座 蛇

回頂端 向下

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

發表 由 SRCman 于 2018-03-16, 12:40

感謝分享 很實用的
avatar
SRCman
一般會員
一般會員

文章總數 : 10
年齡 : 24
來自 : 台北
職業 : 土木領域
愛好 : 水族
個性 : 幽默
使用年資 : 8年
使用版本 : 2018
經驗值 : 177
威望值 : 0
注冊日期 : 2018-03-14
男 獅子座 雞

回頂端 向下

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

發表 由 winterberry 于 2018-04-03, 10:32

太實用了,謝謝分享!
avatar
winterberry
一般會員
一般會員

文章總數 : 2
年齡 : 32
來自 : 台中
職業 : 繪圖助理
愛好 : 閱讀
個性 : 開朗
使用年資 : 2年
使用版本 : 2014
經驗值 : 601
威望值 : 0
注冊日期 : 2016-12-07
女 天蝎座 牛

回頂端 向下

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

發表 由 ianlcc 于 2018-07-02, 17:30

很方便、也很實用的一個LISP
avatar
ianlcc
一般會員
一般會員

文章總數 : 60
年齡 : 43
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 2519
威望值 : 33
注冊日期 : 2012-06-24
顧問外掛程式 藍鵲486號
男 雙魚座 兔

回頂端 向下

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

回頂端


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