【已解决】求个按X值增加多段线顶点插件

lisp_beginner

如图，输入水平距离，然后给多段线增加顶点，谢谢！

Lispboy

试试

1. (defun c:tt ()
   
2.   (if (and (setq x (getreal "\n输入水平距离<退出>:"))
   
3.            (setq num (getint "\n输入点数<退出>:"))
   
4.            (setq e (car
   
5.                      (xdrx_entsel "\n选择多段线<退出>:" '((0 . "*polyline")))
   
6.                    )
   
7.            )
   
8.       )
   
9.     (progn (xdrx_begin)
   
10.            (xdrx_getpropertyvalue e "startpoint" "endpoint")
    
11.            (if (> (car #startpoint) (car #endpoint))
    
12.              (setq temp #startpoint
    
13.                    #startpoint #endpoint
    
14.                    #endpoint temp
    
15.              )
    
16.            )
    
17.            (setq i 0
    
18.                  j 0
    
19.            )
    
20.            (repeat num
    
21.              (setq p1  (mapcar '+
    
22.                                #startpoint
    
23.                                (xdrx_vector_product '(1 0 0) (* (setq i (1+ i)) x))
    
24.                        )
    
25.                    p2  (mapcar '+ p1 '(0 1 0))
    
26.                    int (xdrx_get_inters e (list p1 p2) 2)
    
27.              )
    
28.              (if int
    
29.                (progn (setq int (car int))
    
30.                       (setq inx (xdrx_polyline_onsegat e int)
    
31.                             inx (xdrx_getpropertyvalue e "-index+" inx)
    
32.                             inx (last inx)
    
33.                       )
    
34.                       (if (not (equal int (xdrx_polyline_getpointat e inx) 1e-5))
    
35.                         (progn (setq j (1+ j))
    
36.                                (xdrx_polyline_addvertexat e inx int)
    
37.                         )
    
38.                       )
    
39.                )
    
40.              )
    
41.            )
    
42.            (xdrx_prompt "\n增加了" j "个顶点.")
    
43.            (xdrx_end)
    
44.     )
    
45.   )
    
46.   (princ)
    
47. )
    
48. 
    

(defun c:tt ()<br />   (if (and (setq x (getreal "\n输入水平距离<退出>:"))<br />            (setq num (getint "\n输入点数<退出>:"))<br />            (setq e (car<br />                      (xdrx_entsel "\n选择多段线<退出>:" '((0 . "*polyline")))<br />                    )<br />            )<br />       )<br />     (progn (xdrx_begin)<br />            (xdrx_getpropertyvalue e "startpoint" "endpoint")<br />            (if (> (car #startpoint) (car #endpoint))<br />              (setq temp #startpoint<br />                    #startpoint #endpoint<br />                    #endpoint temp<br />              )<br />            )<br />            (setq i 0<br />                  j 0<br />            )<br />            (repeat num<br />              (setq p1  (mapcar '+<br />                                #startpoint<br />                                (xdrx_vector_product '(1 0 0) (* (setq i (1+ i)) x))<br />                        )<br />                    p2  (mapcar '+ p1 '(0 1 0))<br />                    int (xdrx_get_inters e (list p1 p2) 2)<br />              )<br />              (if int<br />                (progn (setq int (car int))<br />                       (setq inx (xdrx_polyline_onsegat e int)<br />                             inx (xdrx_getpropertyvalue e "-index+" inx)<br />                             inx (last inx)<br />                       )<br />                       (if (not (equal int (xdrx_polyline_getpointat e inx) 1e-5))<br />                         (progn (setq j (1+ j))<br />                                (xdrx_polyline_addvertexat e inx int)<br />                         )<br />                       )<br />                )<br />              )<br />            )<br />            (xdrx_prompt "\n增加了" j "个顶点.")<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

lisp_beginner

Lispboy 发表于 2018-11-23 16:14
试试

wow,这么快，谢谢！！

何志丹

楼上的真快