[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫
(defun c:ad();auto dimension of chamfer
(setq p1 (getpoint "\nChoose point A of chamfer:" ))
(setq p2 (getpoint "\nChoose point B of chamfer:" ))
(setq l (distance p1 p2))
(setq an (angle p1 p2))
(setq hf (/ l 2))
(setq hfp (polar p1 an hf ))
(setq rl (abs(* l (cos an))))
(setq rrl (rtos rl))
(setq text (strcat "C" rrl))
(command "mleader" hfp pause text "")
(princ)
)
各位大哥大姊好,以上是我寫的兩直角線之倒角距離檢測及標註功能。
問題: 目前使用者必須點選倒角的兩個端點才可以使用,不知道能不能寫成==>游標變成一個選取框,點選單一個倒角邊線就好
LISP 載點:
https://drive.google.com/file/d/0B61nY9hX4j4NcVhlSGVNbFdXMnM/view?usp=sharing
(setq p1 (getpoint "\nChoose point A of chamfer:" ))
(setq p2 (getpoint "\nChoose point B of chamfer:" ))
(setq l (distance p1 p2))
(setq an (angle p1 p2))
(setq hf (/ l 2))
(setq hfp (polar p1 an hf ))
(setq rl (abs(* l (cos an))))
(setq rrl (rtos rl))
(setq text (strcat "C" rrl))
(command "mleader" hfp pause text "")
(princ)
)
各位大哥大姊好,以上是我寫的兩直角線之倒角距離檢測及標註功能。
問題: 目前使用者必須點選倒角的兩個端點才可以使用,不知道能不能寫成==>游標變成一個選取框,點選單一個倒角邊線就好
LISP 載點:
https://drive.google.com/file/d/0B61nY9hX4j4NcVhlSGVNbFdXMnM/view?usp=sharing
jaco4942 在 2015-08-10, 15:32 作了第 2 次修改
jaco4942- 初級會員
- 文章總數 : 65
年齡 : 31
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 5705
威望值 : 14
注冊日期 : 2009-12-01
回復: [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫
可否給個圖說明~你說的標註情形?
judyyai- 管理顧問
- 文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30401
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
回復: [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫
我編輯了我原本的文章,我加了示意圖。這個lisp指令一下,user只要點選兩個紅點,它就會自動測倒角距離,並用引線將之標示出來。 但我希望能夠讓user點一個線就好,不必點兩個端點
jaco4942- 初級會員
- 文章總數 : 65
年齡 : 31
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 5705
威望值 : 14
注冊日期 : 2009-12-01
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章