[讨论]关于画切线的问题？

阳春白雪 · 发表于 2004-7-4 14:26:00

像这样的两个圆，要画这两个圆的切线，有没有什么更好的方法！

说来看看。

BDYCAD · 发表于 2004-7-4 14:57:00

;by ＢＤＹＣＡＤ
; 2004-07-04
(defun c:tt (/ d1 d2 d1c d2c d1r d2r )
(setq d1 (entsel "\n请选择 d :"))
(setq d2 (entsel "\n请选择 D :"))
(setq d1c (cdr (assoc 10 (entget (car d1)))))
(setq d2c (cdr (assoc 10 (entget (car d2)))))
(setq d1r (cdr (assoc 40 (entget (car d1)))))
(setq d2r (cdr (assoc 40 (entget (car d2)))))
(vl-cmdf "line" "_tan" (polar d1c (/ pi 2.0) d1r) "_tan"(polar d2c (/ pi 2.0) d2r)"")
(setq sl(entlast))
(vl-cmdf ".mirror" sl "" d1c d2c "n")
(princ))

阳春白雪 · 发表于 2004-7-4 14:27:00

怎么图片传不上来呀？

阳春白雪 · 发表于 2004-7-4 14:27:00

怎么回事呀

一休 · 发表于 2004-7-4 14:33:00

阳春白雪发表于2004-7-4 14:27:00怎么图片传不上来呀？

可能是你的文件太大，或者是格式不对。

阳春白雪 · 发表于 2004-7-4 14:42:00

哦，谢谢提醒，

是太大了，现在我传上来，大家看一下，怎么画这两个圆的切线，（简单一点的办法哦）

cqnj023 · 发表于 2004-7-4 15:47:00

还有相交叉的一组切线没画哟

BDYCAD · 发表于 2004-7-4 15:54:00

本帖最后由作者于 2004-7-4 16:53:37 编辑

楼上的, 搞掂了 (defun c:tt (/ d1 d2 d1c d2c d1r d2r )
(setq d1 (entsel "\n请选择 d :"))
(setq d2 (entsel "\n请选择 D :"))
(setq d1c (cdr (assoc 10 (entget (car d1)))))
(setq d2c (cdr (assoc 10 (entget (car d2)))))
(setq d1r (cdr (assoc 40 (entget (car d1)))))
(setq d2r (cdr (assoc 40 (entget (car d2)))))
(vl-cmdf "line" "_tan" (polar d1c (/ pi 2.0) d1r) "_tan"(polar d2c (/ pi 2.0) d2r)"")
(setq sl1(entlast))
(IF (> (DISTANCE D1C D2C) (+ D1R D2R))
(progn
(setq tp1 (polar d1c (+ (angle d1c d2c) (/ pi 10)) d1r))
(setq tp2 (polar d2c (- (angle d2c d1c) (/ pi 10)) d2r))
(vl-cmdf "line" "_tan" tp1 "_tan"tp2"")
(setq sl2 (entlast))
(vl-cmdf ".mirror" sl1 sl2 "" d1c d2c "n"))
(vl-cmdf ".mirror" sl1 "" d1c d2c "n"))
(princ))

莫名 · 发表于 2004-7-4 18:14:00

捕捉就行了！

FJQZ456 · 发表于 2004-7-4 19:20:00

画这两个圆的切线好像不用像8楼那么复杂吧！对象捕捉不是有个“切点”吗。

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

[讨论]关于画切线的问题？

本帖子中包含更多资源

本帖子中包含更多资源