画圆的切线

pxr201419 · 发表于 2019-5-28 07:52:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

作图法：过圆外一点画圆的切线，2个红色的小圆圆心即为切点
(defun c:qx( / ee p0 p1 py cc tt ll jj y1 py1 y2 py2);作圆的切线
(setvar "OSMODE" 0)
(SETQ ee (car (ENTSEL "\n选择圆：")) i 0 r 1)
(SETQ P0 (GETPOINT "\n在圆外选一点："))
(setq p1 (vlax-curve-getclosestpointto (vlax-ename->vla-object ee)(trans p0 1 0) acExtendBoth))
(SETQ PY (CDR (ASSOC 10 (ENTGET ee))))
(setq cc (distance py p0))
(setq rr (CDR (ASSOC 40 (ENTGET ee))))
(SETQ LL (SQRT (- (* cc cc)(* rr rr))))
(SETQ jj (* 180 (/ (ATAN (/ LL rr)) pi)))
(command "circle" p1 (/ rr 8.0))
(setq y1 (entlast))
(COMMAND "ROTATE" y1 "" py jj)
(SETQ PY1 (CDR (ASSOC 10 (ENTGET Y1))))
(command "change" y1 "" "p" "c" "red" "")
(prompt "\n切点1坐标：")(princ py1)
(command "line" py1 py "")
(command "line" py1 p0 "")
(command "line" p0 py "")
(command "mirror" y1 "" p0 py "")
(setq y2 (entlast))
(SETQ PY2 (CDR (ASSOC 10 (ENTGET Y2))))
(prompt "\n切点2坐标：")(princ py2)
(command "line" py2 py "")
(command "line" py2 p0 "")
(command "regen")(princ)
)
(prompt "画圆的切线，命令：qx")(princ)

Yruz · 发表于 2019-5-28 09:02:10

不错的，赞一个

aisong220 · 发表于 2019-5-28 09:18:07

jshailinqq · 发表于 2019-5-28 10:36:07

这功能也是。。。

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

[每日一码] 画圆的切线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。