自动绘圆

fjutcivil

框选图中所有多段线形成的多边形，并在每个角点绘制一个直径10的小圆

yeahyeah

研究研究多段线的组码吧

zlg258369

2. (defun c:plc (/ ss i lis name lit k)
   
3.   (defun tcp (PLINE)
   
4.     (equal (vlax-curve-getStartPoint PLINE)
   
5.      (vlax-curve-getEndPoint PLINE)
   
6.      1E-6
   
7.     )
   
8.   )
   
9.   (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
10.   (setq i 0)
    
11.   ;lis '())
    
12.   (while (< i (sslength ss))
    
13.     (if (tcp (setq name (ssname ss i)))
    
14.       (progn
    
15.   (setq lit (entget name))
    
16.   (if (= (cdr (assoc 70 lit)) 1)
    
17.     (progn
    
18.       (foreach tem lit
    
19.         (if (= (car tem) 10)
    
20.           (entmakex (list '(0 . "CIRCLE") (cons 10 (cdr tem)) '(40 . 5.0)))
    
21.         )
    
22.       )
    
23.     )
    
24.     (progn
    
25.       (setq lis '())
    
26.       (foreach tem lit
    
27.         (if (= (car tem) 10)
    
28.     (setq lis (cons tem lis))
    
29.         )
    
30.       )
    
31.       (setq k 0)
    
32.       (repeat (- (length lis) 1)
    
33.         (entmakex (list '(0 . "CIRCLE") (cons 10 (cdr (nth k lis))) '(40 . 5.0)))
    
34.         (setq k (+ k 1))
    
35.       )
    
36.     )
    
37.   )
    
38.       )
    
39.     )
    
40.     (setq i (+ i 1))
    
41.   )
    
42. )

(defun c:plc (/ ss i lis name lit k)<br />   (defun tcp (PLINE)<br />     (equal (vlax-curve-getStartPoint PLINE)<br />      (vlax-curve-getEndPoint PLINE)<br />      1E-6<br />     )<br />   )<br />   (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />   (setq i 0)<br />   ;lis '())<br />   (while (< i (sslength ss))<br />     (if (tcp (setq name (ssname ss i)))<br />       (progn<br />   (setq lit (entget name))<br />   (if (= (cdr (assoc 70 lit)) 1)<br />     (progn<br />       (foreach tem lit<br />         (if (= (car tem) 10)<br />           (entmakex (list '(0 . "CIRCLE") (cons 10 (cdr tem)) '(40 . 5.0)))<br />         )<br />       )<br />     )<br />     (progn<br />       (setq lis '())<br />       (foreach tem lit<br />         (if (= (car tem) 10)<br />     (setq lis (cons tem lis))<br />         )<br />       )<br />       (setq k 0)<br />       (repeat (- (length lis) 1)<br />         (entmakex (list '(0 . "CIRCLE") (cons 10 (cdr (nth k lis))) '(40 . 5.0)))<br />         (setq k (+ k 1))<br />       )<br />     )<br />   )<br />       )<br />     )<br />     (setq i (+ i 1))<br />   )<br /> )