申请一个LSP程序，将两条不平行线按角度三等分

yunfengning

申请一个LSP程序，框选两条不平行线，按角度三等分。

Gu_xl

回复 yunfengning 的帖子

1. ;;;(Get3PtAngle p1 p2 p3) = 求3点逆时针角度.
   
2. ;;;参数: p1 p2 p3 点. p2为角点.
   
3. ;;;返回:　弧度角.
   
4. (defun Get3PtAngle (p1 p2 p3 / ans a b an)
   
5.    (setq ans (list(angle p1 p2)(angle p3 p2))
   
6.   a (apply 'min ans)
   
7.   b (apply 'max ans)
   
8.   an (- b a))
   
9.    (if (= a (car ans))
   
10.      an
    
11.      (- (* 2 PI) an)
    
12.    )
    
13. )
    
14. 
    
15. (defun c:tt()
    
16.   (princ "\n***逆时针方向选取直线***")
    
17.   (if
    
18.     (and (setq l1 (entsel "\n 第一条直线 :"))
    
19.        (= "LINE" (cdr (assoc 0 (setq enl1 (entget (car l1))))))
    
20.        (setq l2 (entsel "\n 第二条直线 :"))
    
21.        (= "LINE" (cdr (assoc 0 (setq enl2 (entget (car l2))))))
    
22.        )
    
23.     (progn
    
24.       (setq p1 (cadr l1)
    
25.             l1 (car l1)
    
26.             p10 (cdr (assoc 10 enl1))
    
27.             p11 (cdr (assoc 11 enl1))
    
28.             p2 (cadr l2)
    
29.             l2 (car l2)
    
30.             p20 (cdr (assoc 10 enl2))
    
31.             p21 (cdr (assoc 11 enl2))
    
32.             p0 (inters p10 p11 p20 p21 nil)
    
33.             )
    
34.       (if p0
    
35.         (progn
    
36.       (if (< (distance p1 p10) (distance p1 p11)) (setq p1 p10) (setq p1 p11))
    
37.       (if (< (distance p2 p20) (distance p2 p21)) (setq p2 p20) (setq p2 p21))
    
38.       (setq ang (Get3PtAngle p1 p0 p2)
    
39.             ang0 (angle p0 p1)
    
40.             ang1 (+ ang0 (/ ang 3))
    
41.             ang2 (+ ang1 (/ ang 3))
    
42.             d (/ (+ (distance p0 p1) (distance p0 p2)) 2)
    
43.             )
    
44.       (command "line" p0 (strcat "@" (rtos d 2 4) "<" (angtos ang1 0 4)) "")
    
45.       (command "line" p0 (strcat "@" (rtos d 2 4) "<" (angtos ang2 0 4)) "")
    
46.       )
    
47.         (alert "两直线无交点！")
    
48.         )
    
49.       )
    
50.     (alert "请选择两条直线")
    
51.     )
    
52.   )
    

;;;(Get3PtAngle p1 p2 p3) = 求3点逆时针角度.<br /> ;;;参数: p1 p2 p3 点. p2为角点.<br /> ;;;返回:　弧度角.<br /> (defun Get3PtAngle (p1 p2 p3 / ans a b an)<br />    (setq ans (list(angle p1 p2)(angle p3 p2))<br />   a (apply 'min ans)<br />   b (apply 'max ans)<br />   an (- b a))<br />    (if (= a (car ans))<br />      an<br />      (- (* 2 PI) an)<br />    )<br /> )<br /> <br /> (defun c:tt()<br />   (princ "\n***逆时针方向选取直线***")<br />   (if<br />     (and (setq l1 (entsel "\n 第一条直线 :"))<br />        (= "LINE" (cdr (assoc 0 (setq enl1 (entget (car l1))))))<br />        (setq l2 (entsel "\n 第二条直线 :"))<br />        (= "LINE" (cdr (assoc 0 (setq enl2 (entget (car l2))))))<br />        )<br />     (progn<br />       (setq p1 (cadr l1)<br />             l1 (car l1)<br />             p10 (cdr (assoc 10 enl1))<br />             p11 (cdr (assoc 11 enl1))<br />             p2 (cadr l2)<br />             l2 (car l2)<br />             p20 (cdr (assoc 10 enl2))<br />             p21 (cdr (assoc 11 enl2))<br />             p0 (inters p10 p11 p20 p21 nil)<br />             )<br />       (if p0<br />         (progn<br />       (if (< (distance p1 p10) (distance p1 p11)) (setq p1 p10) (setq p1 p11))<br />       (if (< (distance p2 p20) (distance p2 p21)) (setq p2 p20) (setq p2 p21))<br />       (setq ang (Get3PtAngle p1 p0 p2)<br />             ang0 (angle p0 p1)<br />             ang1 (+ ang0 (/ ang 3))<br />             ang2 (+ ang1 (/ ang 3))<br />             d (/ (+ (distance p0 p1) (distance p0 p2)) 2)<br />             )<br />       (command "line" p0 (strcat "@" (rtos d 2 4) "<" (angtos ang1 0 4)) "")<br />       (command "line" p0 (strcat "@" (rtos d 2 4) "<" (angtos ang2 0 4)) "")<br />       )<br />         (alert "两直线无交点！")<br />         )<br />       )<br />     (alert "请选择两条直线")<br />     )<br />   )<br />

198526

两条不平行的线形成的角度有两个，确定用哪个吗

yunfengning

点击端点确定角的大小。

haha

要不要拆分？

haha

把目的效果图发到chenlong_qq@163.com,有空我帮您解决。
注明明经编程

yunfengning

已发，非常感谢。

yunfengning

感谢Gu_xl ，您的程序CAD2004测试可用。

yunfengning

谢谢haha