作者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