pl线交点附近画圆

ljpnb

Gu_xl 发表于 2011-7-6 22:52
回复 ljpnb 的帖子

做什么事儿都要有规则！没有规矩，不成方圆！

你要这么理解那也没办法.我的理解就是选择性的操作可以考虑随意一点,但结果肯定只能有一个,如果有两个,那就是程序还不够好,纯属个人对编程的理解...

Gu_xl

回复 ljpnb 的帖子

过程随意，结果肯定也是随意的！如果随意，为了保证结果唯一，就需要在程序中多加判断，例如随意选择直线上两个点后，就还需要增加一个判断选项，园画在哪边，需要多输入一个操作！操作上不太方便！程序的使用就是为了简洁方便！

男人的诱惑

这个能不能改成输入距离不一样吗

xyp1964

2. ;; 在两相交直线的角平分线上画圆
   
3. ;; 需要e派工具箱的支持
   
4. (defun c:tt ()
   
5.   (if (and (setq e1 (entsel "\n选择第一条相交线:"))
   
6.     (setq e2 (entsel "\n选择第二条相交线:"))
   
7.       )
   
8.     (setq s1 (car e1)
   
9.    p1 (osnap (cadr e1) "nea")
   
10.    s2 (car e2)
    
11.    p2 (osnap (cadr e2) "nea")
    
12.    p0 (car (xyp-get-Inters s1 s2 0))
    
13.    p3 (xyp-get-MidPoint
    
14.         (polar p0 (angle p0 p1) 50)
    
15.         (polar p0 (angle p0 p2) 50)
    
16.       )
    
17.    p3 (polar p0 (angle p0 p3) 50)
    
18.    s4 (xyp-circle p3 10)
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )

;; 在两相交直线的角平分线上画圆<br /> ;; 需要e派工具箱的支持<br /> (defun c:tt ()<br />   (if (and (setq e1 (entsel "\n选择第一条相交线:"))<br />     (setq e2 (entsel "\n选择第二条相交线:"))<br />       )<br />     (setq s1 (car e1)<br />    p1 (osnap (cadr e1) "nea")<br />    s2 (car e2)<br />    p2 (osnap (cadr e2) "nea")<br />    p0 (car (xyp-get-Inters s1 s2 0))<br />    p3 (xyp-get-MidPoint<br />         (polar p0 (angle p0 p1) 50)<br />         (polar p0 (angle p0 p2) 50)<br />       )<br />    p3 (polar p0 (angle p0 p3) 50)<br />    s4 (xyp-circle p3 10)<br />     )<br />   )<br />   (princ)<br /> )

【KAIXIN】

xyp1964 发表于 2012-4-15 10:17

院长，好久没见你大显身手了，不错啊这程序
整平分线 交点距离 画圆