作者sjgau (sjgau)
看板Cad_Cae
標題Re: [問題] 有關autocad的tan鎖點
時間Wed Sep 19 09:05:44 2007
這麼好用的東西，不忍心一個人獨享，
所以才熱心的在這裡推廣。
過去的二十幾年，AutoCAD 2D/3D 畫圖，
AutoLISP 程式設計，一般性的 fortran, C 程式設計，
一直是我工作，生活與興趣的中心。
願意無條件的跟大家分享，
有緣者得之。
e-mail:
[email protected]
※ 引述《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: 211.77.241.1