; file: pp-tan.lsp ;| (load "pp-tan.lsp") pp-tan 選第一個點： 選第二個點： 會自動做出一條 公切線 |; (defun c:pp-tan( / p1 p2 p1n p2n i) (setq p1 (getpoint "選第一個點：")) (setq p2 (getpoint p1 "\n選第二個點：")) ; for i=1 to 7 do ... (setq i 1) (while (<= i 7) (command "line" p1 (setq p2n (osnap p2 "tan")) "") (command "erase" "l" "") ; ------------------------------ (command "line" p2n (setq p1n (osnap p1 "tan")) "") (command "erase" "l" "") ; ------------------------------ (setq p1 p1n p2 p2n) (setq i (1+ i)) ); end while (command "line" p1n p2n "") (princ) ); end of pp-tan() ※ 引述《sjgau (sjgau)》之銘言： : 你好像 問對人了 : 之前，寫AutoCAD 中文書的 大作者也 : 問過 類似的問題，我有給他 滿意的答覆 : 等角圖的立體是 假的，用 2D 的橢圓 : 來模擬 3D 的圓。 : AutoCAD 好像沒有辦法使用 物件鎖點 TAN : 對兩個 橢圓作公切線 : 我的想法是 寫一個 簡單的 LISP 去處理 : 我可以 e-mail 這個 LISP 給你 試試看 : 有沒有 興趣？ : 我的 e-mail: [email protected] : ※ 引述《zerod (雷洛德)》之銘言： : : 不知道大家在使用autocad2000之後的版本 : : 在使用tan的鎖點功能時 : : 非常難切到我們想要的點 : : 我常用osnap轉為等角圖來繪圖 : : 在使用物件鎖點的tan功用時 : : 常常就tan(切)不到我們想要的切點 : : 例如我們想畫圓柱的等角圖時 : : 勢必要畫兩個等角橢圓及兩條切線 : : 這時想要畫這兩條切線實在是難上加難啊 : : 有沒有大大也有這方法困難 : : 該如何解決呢? --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.193.222.89