; 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