顧問教學
加入贊助
聯絡我們![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe1-111](https://i.servimg.com/u/f67/12/31/59/66/aoe1-111.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Empty](https://2img.net/i/empty.gif)
[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫
由 jaco4942 周二 4 8月 2015 - 17:26
(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 在 周一 10 8月 2015 - 15:32 作了第 2 次修改
jaco4942- 初級會員
- 文章總數 : 65
年齡 : 31
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 5539
威望值 : 14
注冊日期 : 2009-12-01
回復： [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫
由 judyyai 周五 7 8月 2015 - 8:19
可否給個圖說明~你說的標註情形?
____________________________________________________________________________________
![[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 BPl3tjj.png](https://i.imgur.com/BPl3tjj.png.png)
judyyai- 管理顧問
- 文章總數 : 7782
年齡 : 46
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30220
威望值 : 3609
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
回復： [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫
由 jaco4942 周日 9 8月 2015 - 9:24
我編輯了我原本的文章，我加了示意圖。這個lisp指令一下，user只要點選兩個紅點，它就會自動測倒角距離，並用引線將之標示出來。 但我希望能夠讓user點一個線就好，不必點兩個端點
jaco4942- 初級會員
- 文章總數 : 65
年齡 : 31
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 5539
威望值 : 14
注冊日期 : 2009-12-01
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章