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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe1-113[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ioaoe110[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 2020-310[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Oiu15010[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 2020-211[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ia15010[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aizyao10[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Uos15010[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 BPl3tjj[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ziao1510
[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe15010[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Oo-2-110[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Zuoiy_10[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aizyao11[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Iyb_1510[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe1-112[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Uos15011[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe2da10[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe2da11[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe10

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

2 posters

向下

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

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


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

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

回頂端 向下

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

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

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

____________________________________________________________________________________
[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ioaoe110 [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Zuoiy_10 [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 2020-211 [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aizyao11 [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe10
[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aizyao10 [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 BPl3tjj.png [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ziao1510 [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Oo-2-110 [討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe1-111
judyyai
judyyai
管理顧問
管理顧問

文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30401
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

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

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

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe1-113[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ioaoe110[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 2020-310[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Oiu15010[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 2020-211[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ia15010[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aizyao10[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Uos15010[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 BPl3tjj[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Ziao1510
[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe15010[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Oo-2-110[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Zuoiy_10[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aizyao11[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Iyb_1510[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe1-112[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Uos15011[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe2da10[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe2da11[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫 Aoe10