→ sjgau:circle, ellipse, spline 的所有組合都 適合使用作公切線 09/18 17:25
※ 引述《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
; 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()