Re: [問題] 有關autocad的tan鎖點
以下 這個問題的 解法，在一般的書上，
或者是，可以說，
在所有的書上，都不可能提到。
因為，他算是一種 突發異想，
結果，竟然可以這樣使用。
所以，你買書的目的，應該是 學習基本的語法，
至於這種奇門遁甲，只能靠程式設計師之間
口耳相傳。
多問，才能多學到一些東西。
※ 引述《zerod (雷洛德)》之銘言：
: 嗯...感謝s大
: 我自己也測試過了...超好用的
: 不管是在任何的情況都可以正確的作出切線
: 下午時候趁颱風假的時候
: 自己研究了一下
: 發現在某些特定的情況是可以用一些幾何關係找出切點來
: 但無法用在任何的情況
: 尤其是spline
: autocad是根本找不到正確切點
: 困惱已久的問題
: 感謝s大的指教
: 想想真該買本書
: 找個時間學一下autolisp
: ※ 引述《sjgau (sjgau)》之銘言：
: : ; 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()
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.20.138.94
→
08/10 08:26, , 1F
08/10 08:26, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 6 之 6 篇)：