已知半径，求作过一点和一直线相切的圆？

tm20038175 · 发表于 2012-4-15 11:59:06

xyp1964 发表于 2012-4-15 10:57
acad的标准命令
(command "circle" "ttr" )

这个对一些点很密集的多线和样条曲线可能会失灵。。。。

ZZXXQQ · 发表于 2012-4-15 15:25:14

(defun c:tt ()
(if (and (setq s1 (entsel "\n选择一条曲线 :"))
         (setq s2 (entsel "\n选择另一条曲线 :"))
         (setq r (getdist "\n圆半径 :")))
  (command "_.CIRCLE" "TTR" s1 s2 r)
)
(princ)
)

tm20038175 · 发表于 2012-4-15 15:33:00

ZZXXQQ 发表于 2012-4-15 15:25
(defun c:tt ()
(if (and (setq s1 (entsel "\n选择一条曲线 :"))
(setq s2 (entsel "\n选择 ...

谢谢啦。。。

fdb2007 · 发表于 2012-4-17 10:30:09

看看高手是如何做到的

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