[原创]：一个画角平分线的LSP

bsq

这是我学LSP后写的第三个程序，请高手不要笑话！

2. 
   
3. ; bisect.lsp
   
4. ;平分角，拾取两条线并从其交点绘制平分线延长至第一个拾取点。
   
5. ;如果两线平行则中止。
   
6. 
   
7. (defun getln (PR)
   
8.    (setq TYPE "nil"
   
9.    PRMPT (strcat "\n拾取" PR "线： "))
   
10.    (while (/= TYPE "LINE")
    
11.       (if (/= (setq TEMP (entsel PRMPT)) nil)
    
12.          (progn
    
13.             (setq LN1 (entget (car TEMP))
    
14.             TYPE (cdr (assoc 0 LN1)))
    
15.             (if (/= TYPE "LINE")
    
16.             (print (strcat "不能截开 " TYPE)))
    
17.          )
    
18.          (print "Invalid point")
    
19.       )
    
20.    ) ;end while
    
21. ) ;end getln()
    
22. 
    
23. (defun C:BISECT(/ P1 P2 P3 P4 PIK1 PIK2 LN1 P5 P6 ANGA ANGB ANGC TEMP TYPE)
    
24.    (getln "第一条")
    
25.    (setq P1 (cdr (assoc 10 LN1))
    
26.       P2 (cdr (assoc 11 LN1))
    
27.       PIK1 (osnap (cadr TEMP) "near")
    
28.    )
    
29.    (getln "第二条")
    
30.    (setq p3 (cdr (assoc 10 LN1))
    
31.       P4 (cdr (assoc 11 LN1))
    
32.       PIK2 (osnap (cadr TEMP) "near")
    
33.    )
    
34.    ; 取交点和角度
    
35.    (setq P5 (inters P1 P2 P3 P4 nil)
    
36.       ANGA (angle P5 PIK1)
    
37.       ANGB (angle P5 PIK2)
    
38.    )
    
39.    (if (> ANGA ANGB)
    
40.       (setq ANGC (+ (/ (+ (- (* 2 pi) ANGA) ANGB) 2) ANGA))
    
41.       (setq ANGC (+ (/ (- ANGB ANGA) 2) ANGA))
    
42.    )
    
43.    ; 从交点绘制平分线到一定长度
    
44.    (command "LINE" P5 (polar P5 ANGC (distance P5 PIK1)) "")      
    
45.    (prin1)
    
46. ); end bisect.lsp

<br /> ; bisect.lsp<br /> ;平分角，拾取两条线并从其交点绘制平分线延长至第一个拾取点。<br /> ;如果两线平行则中止。<br /> <br /> (defun getln (PR)<br />    (setq TYPE "nil"<br />    PRMPT (strcat "\n拾取" PR "线： "))<br />    (while (/= TYPE "LINE")<br />       (if (/= (setq TEMP (entsel PRMPT)) nil)<br />          (progn<br />             (setq LN1 (entget (car TEMP))<br />             TYPE (cdr (assoc 0 LN1)))<br />             (if (/= TYPE "LINE")<br />             (print (strcat "不能截开 " TYPE)))<br />          )<br />          (print "Invalid point")<br />       )<br />    ) ;end while<br /> ) ;end getln()<br /> <br /> (defun C:BISECT(/ P1 P2 P3 P4 PIK1 PIK2 LN1 P5 P6 ANGA ANGB ANGC TEMP TYPE)<br />    (getln "第一条")<br />    (setq P1 (cdr (assoc 10 LN1))<br />       P2 (cdr (assoc 11 LN1))<br />       PIK1 (osnap (cadr TEMP) "near")<br />    )<br />    (getln "第二条")<br />    (setq p3 (cdr (assoc 10 LN1))<br />       P4 (cdr (assoc 11 LN1))<br />       PIK2 (osnap (cadr TEMP) "near")<br />    )<br />    ; 取交点和角度<br />    (setq P5 (inters P1 P2 P3 P4 nil)<br />       ANGA (angle P5 PIK1)<br />       ANGB (angle P5 PIK2)<br />    )<br />    (if (> ANGA ANGB)<br />       (setq ANGC (+ (/ (+ (- (* 2 pi) ANGA) ANGB) 2) ANGA))<br />       (setq ANGC (+ (/ (- ANGB ANGA) 2) ANGA))<br />    )<br />    ; 从交点绘制平分线到一定长度<br />    (command "LINE" P5 (polar P5 ANGC (distance P5 PIK1)) "")       <br />    (prin1) <br /> ); end bisect.lsp

jianqiang21c

最初由 bsq 发布
[B]这是我学LSP后写的第三个程序，请高手不要笑话！[code]
; bisect.lsp
;平分角，拾取两条线并从其交点绘制平分线延长至第一个拾取点。
;如果两线平行则中止。

(defun getln (PR)
   (setq TYPE "nil"
   PRMP... [/B]

不生气哥哥写的这个很不错哦，在老师的指导下，我也写了个角平分的，我用的是生成直线的方法，呵呵，这段来到论坛真的学到很多东西的。
另外不生气GG你的程序好像有一点小毛病哦，你画两条相交直线然后顺时针两两生线，到最后一个老是到别的方向，不知道是怎么回事，不生气GG帮我指点一下这个程序唠：）

(defun c:jPF ()
  (setq ens (entget(car(entsel "\n选取第一条线:")))
      ens1 (entget(car(entsel "\n选取第二条线:")))
      )
    (if (and ins ens1)
      (progn
      (setq pd (cdr(assoc 0 ens))
            pd1 (cdr(assoc 0 ens1))
            )
      (cond ((/= pd "line") (princ "请选择线!"))
            ((/= pd1 "line") (princ "请选择线!")))
      )
      nil
      )

  (setq  gpt1 (cdr(assoc 10 ens))
         gpt2 (cdr(assoc 11 ens))
         gpt3 (cdr(assoc 10 ens1))
         gpt4 (cdr(assoc 11 ens1))
               )
(setq ang1 (angtos (angle gpt1 gpt2) 0 2)
      ang2 (angtos (angle gpt3 gpt4) 0 2)
      )
(setq ints (inters gpt1 gpt2 gpt3 gpt4 nil)
       angx  (/ (abs(- (atof ang1) (atof ang2))) 2)
       angxl   (rtos(+ (min (atof ang1) (atof ang2)) angx))
       angxll   (polar ints (angtof angxl) 51888)                       ;我要发发发
       angxlll   (polar ints (angtof (rtos(+ (atof angxl) 90))) 591888) ;我就要发发发
      )
       (command ".xline" ints angxll  angxlll "")
  )