回复 ljpnb 的帖子
做什么事儿都要有规则！没有规矩，不成方圆！
你要这么理解那也没办法.我的理解就是选择性的操作可以考虑随意一点,但结果肯定只能有一个,如果有两个,那就是程序还不够好,纯属个人对编程的理解... 本帖最后由 Gu_xl 于 2011-7-6 23:11 编辑
回复 ljpnb 的帖子
过程随意，结果肯定也是随意的！如果随意，为了保证结果唯一，就需要在程序中多加判断，例如随意选择直线上两个点后，就还需要增加一个判断选项，园画在哪边，需要多输入一个操作！操作上不太方便！程序的使用就是为了简洁方便！ 这个能不能改成输入距离不一样吗
;; 在两相交直线的角平分线上画圆
;; 需要e派工具箱的支持
(defun c:tt ()
(if (and (setq e1 (entsel "\n选择第一条相交线:"))
(setq e2 (entsel "\n选择第二条相交线:"))
)
(setq s1 (car e1)
p1 (osnap (cadr e1) "nea")
s2 (car e2)
p2 (osnap (cadr e2) "nea")
p0 (car (xyp-get-Inters s1 s2 0))
p3 (xyp-get-MidPoint
(polar p0 (angle p0 p1) 50)
(polar p0 (angle p0 p2) 50)
)
p3 (polar p0 (angle p0 p3) 50)
s4 (xyp-circle p3 10)
)
)
(princ)
)
xyp1964 发表于 2012-4-15 10:17 static/image/common/back.gif
院长，好久没见你大显身手了，不错啊这程序
整平分线 交点距离 画圆
页:
1
[2]