【已解决】想在多段线每个顶点画个圆

lisp_beginner

想在多段线每个顶点画个圆，谢谢

newer

API 随手就写了

1. (defun c:tt ()
   
2.   (if (and (setq r (getreal "\n输入半径<退出>:"))
   
3.            (setq e (car
   
4.                      (xdrx_entsel "\n选择多段线<退出>:" '((0 . "*polyline")))
   
5.                    )
   
6.            )
   
7.       )
   
8.     (progn (xdrx_begin)
   
9.            (xdrx_polyline_compress e)
   
10.            (mapcar '(lambda (x) (xdrx_circle_make x r))
    
11.                    (setq pts (xdrx_getpropertyvalue e "vertices"))
    
12.            )
    
13.            (xdrx_prompt "\n绘制了" (length pts) "个圆")
    
14.            (xdrx_end)
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    

(defun c:tt ()<br />   (if (and (setq r (getreal "\n输入半径<退出>:"))<br />            (setq e (car<br />                      (xdrx_entsel "\n选择多段线<退出>:" '((0 . "*polyline")))<br />                    )<br />            )<br />       )<br />     (progn (xdrx_begin)<br />            (xdrx_polyline_compress e)<br />            (mapcar '(lambda (x) (xdrx_circle_make x r))<br />                    (setq pts (xdrx_getpropertyvalue e "vertices"))<br />            )<br />            (xdrx_prompt "\n绘制了" (length pts) "个圆")<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

ymcui2005

2. (defun c:tt ()
   
3.   (setq ss (ssget ":s" '((0 . "LWPOLYLINE"))))
   
4.   (Repeat (setq i (SSlength ss))
   
5.     (foreach ass (ENTGET (SSNAME ss (setq i (1- i))))
   
6.       (if (= (car ass) 10)
   
7.         (command "_.CIRCLE" (cdr ass) "d" 5)
   
8.       )
   
9.     )
   
10.   )
    
11.   (PRINC)
    
12. )

(defun c:tt ()<br />   (setq ss (ssget ":s" '((0 . "LWPOLYLINE"))))<br />   (Repeat (setq i (SSlength ss))<br />     (foreach ass (ENTGET (SSNAME ss (setq i (1- i))))<br />       (if (= (car ass) 10)<br />         (command "_.CIRCLE" (cdr ass) "d" 5)<br />       )<br />     )<br />   )<br />   (PRINC)<br /> )

marting

1. (defun c:tt (/ s tmp)
   
2.   (if (and (setq r (getreal "\n半径<退出>:"))
   
3.            (setq s (ssget '((0 . "*polyline"))))
   
4.       )
   
5.     (foreach l
   
6.               (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
   
7.               (mapcar '(lambda (x)
   
8.                          (and (not (vl-position x tmp))
   
9.                               (setq tmp (cons x tmp))
   
10.                               (entmakex (list '(0 . "circle") (cons 10 x) (cons 40 r)))
    
11.                          )
    
12.                        )
    
13.                       (list (vlax-curve-getstartpoint l)
    
14.                             (vlax-curve-getendpoint l)
    
15.                       )
    
16.               )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    

(defun c:tt (/ s tmp)<br />   (if (and (setq r (getreal "\n半径<退出>:"))<br />            (setq s (ssget '((0 . "*polyline"))))<br />       )<br />     (foreach l<br />               (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))<br />               (mapcar '(lambda (x)<br />                          (and (not (vl-position x tmp))<br />                               (setq tmp (cons x tmp))<br />                               (entmakex (list '(0 . "circle") (cons 10 x) (cons 40 r)))<br />                          )<br />                        )<br />                       (list (vlax-curve-getstartpoint l)<br />                             (vlax-curve-getendpoint l)<br />                       )<br />               )<br />     )<br />   )<br />   (princ)<br /> )<br />

lisp_beginner

谢谢楼上各位大师

sicky111

都是高手。