绘圆外点到圆的切线

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

本帖最后由 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

有纯几何的方法吗？

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

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

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

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

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

(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

是要这样的吗/

账号		自动登录	找回密码
密码			注册

[源码] 绘圆外点到圆的切线

本帖子中包含更多资源

点评

本帖子中包含更多资源