版主，帮忙看看我写的这个小程序速度慢，问题出在哪

lty

这些圆弧原来是二维多段线，我分解后编成圆弧的

cq4920

不是应该读取圆弧的圆心点坐标和半径值 然后entmake画圆吗？

cq4920

1. (entmake (list '(0 . "CIRCLE") (cons 10 10_list) (cons 40 40_list)))

复制代码

x_s_s_1

以前写过，希望对您有用

2. ;;;桩重画
   
3. (DEFUN C:xcct (/ ss n en ent pt lst)
   
4.   (SETQ        ss  (SSGET '((0 . "arc,circle")(8 . "桩")))
   
5.         lst nil
   
6.   )
   
7.   (REPEAT (SETQ N (SSLENGTH SS))
   
8.     (SETQ EN (SSNAME SS (SETQ N (1- N))))
   
9.     (setq ent (entget en))
   
10.     (SETQ PT (CDR (ASSOC 10 ent)))
    
11.     (if        (null (vl-remove-if-not '(lambda (x) (equal pt x 1e-6)) lst)
    
12.         )
    
13.       (progn (setq lst (cons pt lst))
    
14.              (entmake (list '(0 . "circle")
    
15.                             (cons 10 pt)
    
16.                             (assoc 8 ent)
    
17.                             (assoc 6 ent)
    
18.                             (assoc 40 ent)
    
19.                       )
    
20.              )
    
21.       )
    
22.     )
    
23.     (entdel en)
    
24.   )
    
25.   (princ)
    
26. )

;;;桩重画<br /> (DEFUN C:xcct (/ ss n en ent pt lst)<br />   (SETQ        ss  (SSGET '((0 . "arc,circle")(8 . "桩")))<br />         lst nil<br />   )<br />   (REPEAT (SETQ N (SSLENGTH SS))<br />     (SETQ EN (SSNAME SS (SETQ N (1- N))))<br />     (setq ent (entget en))<br />     (SETQ PT (CDR (ASSOC 10 ent)))<br />     (if        (null (vl-remove-if-not '(lambda (x) (equal pt x 1e-6)) lst)<br />         )<br />       (progn (setq lst (cons pt lst))<br />              (entmake (list '(0 . "circle")<br />                             (cons 10 pt)<br />                             (assoc 8 ent)<br />                             (assoc 6 ent)<br />                             (assoc 40 ent)<br />                       )<br />              )<br />       )<br />     )<br />     (entdel en)<br />   )<br />   (princ)<br /> )

x_s_s_1

您的速度慢是因为用了join和overkill命令

lty

x_s_s_1 发表于 2020-3-24 21:39
以前写过，希望对您有用

谢谢，效果非常棒，我当时没想起来别的办法

lty

cq4920 发表于 2020-3-24 20:07

你的代码只有一行，我不明白

cq4920

lty 发表于 2020-3-25 15:00
你的代码只有一行，我不明白

怎么会不明白呢？

lty

cq4920 发表于 2020-3-25 18:02
怎么会不明白呢？

你的程序我试了，也非常棒，效果很好，谢谢了