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

看看高手是如何做到的
页: 1 [2]
查看完整版本: 已知半径，求作过一点和一直线相切的圆？