求等分经验!麻烦高手出手相助!

chenbh2

感谢明经平台,我的附件直线生线段lsp,只能做出一条
线段,麻烦高手出手帮我改成图片效果!祝新年快乐!

xyp1964

2. ;;直线生杆
   
3. (defun c:tt ()
   
4.   ;; 等分子函数，根据两点点及等分数量得出等分点列表
   
5.   (defun tt-df (p1 p2 n)
   
6.     (if        (> (1- n) 0)
   
7.       (cons (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))
   
8.             (tt-df (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))
   
9.                    p2
   
10.                    (1- n)
    
11.             )
    
12.       )
    
13.     )
    
14.   )
    
15.   (setvar "osmode" 4)
    
16.   (setvar "cmdecho" 0)
    
17.   (while (and (setq p1 (getpoint "\n杆路起点: "))
    
18.               (setq p2 (getpoint p1 "\n杆路终点: "))
    
19.          )
    
20.     (setq cd  (distance p1 p2)
    
21.           nn  (/ cd 12.)
    
22.           n   (atoi (rtos nn 2 0))
    
23.           lst (tt-df p1 p2 n)
    
24.           lst (append (list p1) lst (list p2))
    
25.           i   0
    
26.     )
    
27.     (mapcar '(lambda (x) (vl-cmdf "CIRCLE" x 1.5)) lst)
    
28.     (while (and        (setq p1 (nth i lst))
    
29.                 (setq p2 (nth (1+ i) lst))
    
30.            )
    
31.       (setq rad        (angle p1 p2)
    
32.             p1a        (polar p1 rad 1.5)
    
33.             p2a        (polar p2 rad -1.5)
    
34.             i        (1+ i)
    
35.       )
    
36.       (COMMAND "LINE" p1a p2a "")
    
37.     )
    
38.   )
    
39.   (princ)
    
40. )

;;直线生杆<br /> (defun c:tt ()<br />   ;; 等分子函数，根据两点点及等分数量得出等分点列表<br />   (defun tt-df (p1 p2 n)<br />     (if        (> (1- n) 0)<br />       (cons (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))<br />             (tt-df (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))<br />                    p2<br />                    (1- n)<br />             )<br />       )<br />     )<br />   )<br />   (setvar "osmode" 4)<br />   (setvar "cmdecho" 0)<br />   (while (and (setq p1 (getpoint "\n杆路起点: "))<br />               (setq p2 (getpoint p1 "\n杆路终点: "))<br />          )<br />     (setq cd  (distance p1 p2)<br />           nn  (/ cd 12.)<br />           n   (atoi (rtos nn 2 0))<br />           lst (tt-df p1 p2 n)<br />           lst (append (list p1) lst (list p2))<br />           i   0<br />     )<br />     (mapcar '(lambda (x) (vl-cmdf "CIRCLE" x 1.5)) lst)<br />     (while (and        (setq p1 (nth i lst))<br />                 (setq p2 (nth (1+ i) lst))<br />            )<br />       (setq rad        (angle p1 p2)<br />             p1a        (polar p1 rad 1.5)<br />             p2a        (polar p2 rad -1.5)<br />             i        (1+ i)<br />       )<br />       (COMMAND "LINE" p1a p2a "")<br />     )<br />   )<br />   (princ)<br /> )

chenbh2

谢谢 版主!元宵快乐!

chenbh2

非常感谢版主相助!元宵节让我吃上大餐,祝版主元宵节快乐!
(setvar "osmode" 4)改为(setvar "osmode" 0)
完美解决!
期盼版主能帮我解决框选线段绘外角平分线的源码!