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

[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫

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

[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫

發表 由 jaco4942 于 2015-08-04, 10: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


jaco4942 在 2015-08-10, 08:32 作了第 2 次修改
avatar
jaco4942
初級會員
初級會員

文章總數 : 65
年齡 : 25
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 3158
威望值 : 14
注冊日期 : 2009-12-01
男 天秤座 猴

回頂端 向下

回復: [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫

發表 由 judyyai 于 2015-08-07, 01:19

可否給個圖說明~你說的標註情形?

____________________________________________________________________________________
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聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

回復: [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫

發表 由 jaco4942 于 2015-08-09, 02:24

我編輯了我原本的文章,我加了示意圖。這個lisp指令一下,user只要點選兩個紅點,它就會自動測倒角距離,並用引線將之標示出來。 但我希望能夠讓user點一個線就好,不必點兩個端點
avatar
jaco4942
初級會員
初級會員

文章總數 : 65
年齡 : 25
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 3158
威望值 : 14
注冊日期 : 2009-12-01
男 天秤座 猴

回頂端 向下

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


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