726613 发表于 2017-11-9 08:53:07

绘圆外点到圆的切线

本帖最后由 726613 于 2017-11-9 10:14 编辑

(DEFUN C:VC ()
(setvar "cmdecho" 0)
(setvar"osmode" 257)
(setq ob (ssget))
(command "LINE" ob "")
(princ)
)







xinxirong 发表于 2017-11-9 08:59:45

有纯几何的方法吗？

xinxirong 发表于 2017-11-9 09:01:01

比如两个圆。画切线，这种就不行

xinxirong 发表于 2017-11-9 10:12:19

只要外公切线，不要内公切线呢？

张大锤 发表于 2017-11-14 16:43:56

(defun c:xxx()
(setvar "osmode" 0)
(setq ss(SSGET'((0 . "insert"))))
(setq n 0)
(repeat (sslength ss)
(setq ent(ssname ss n))
(setq en(entget ent))
(setq km (cdr (assoc 2 en)))
(setq pa (cdr (assoc 10 en)))

(if (= km "300")
(progn
(setq pp (poLar pa (* 1 pi) 0))
(command "circle" pp 172.5)
(setq p1 (poLar pp (* 0.25 pi) 85))
(setq p2 (poLar pp (* 0.75 pi) 85))
(setq p3 (poLar pp (* 1.25 pi) 85))
(setq p4 (poLar pp (* 1.75 pi) 85))
(setq p5 (poLar pp (* 1.75 pi) 175))
(command "circle" pa ra)
(setq sscr(SSGET "c" pa p5 '((-4 . "<AND")(0 . "circle")(-4 . "AND>"))))
(command "_trim" sscr "" "f" p1 p2 p3 p4 p1 "" "")
(command "erase" sscr "")
))

(setq n(1+ n))
)
(setvar "osmode" 695)
(princ)
)

我有一个名为300 块名的圆   放到线上 就会切圆里的线 不知道是你想要的效果不

张大锤 发表于 2017-11-14 16:46:56

是要这样的吗/
页: [1]
查看完整版本: 绘圆外点到圆的切线