[求助] 如何将ARC替换成CIRCLE？

newbuser

这贴都过去这么多年了啊。我才刚看到耶。不过没关系，吸收了这组源码。

fawn_lgc

这个是我的程序里面用的，参数完全不改变

1. (defun arctocircle(elist / ename)
   
2.   (setq ename(cdr(assoc -1 elist)))
   
3.   (entdel ename)
   
4.   (setq elist(subst '(0 . "CIRCLE") '(0 . "ARC")elist))
   
5.   (mapcar '(lambda(x)  
   
6.        (setq elist(vl-remove(assoc x elist)elist))
   
7.        )
   
8.     '(-1 330 5 100 100 100 50 51)
   
9.     )
   
10.   (entmake elist)
    
11.   )

(defun arctocircle(elist / ename)<br />   (setq ename(cdr(assoc -1 elist)))<br />   (entdel ename)<br />   (setq elist(subst '(0 . "CIRCLE") '(0 . "ARC")elist))<br />   (mapcar '(lambda(x)  <br />        (setq elist(vl-remove(assoc x elist)elist))<br />        )<br />     '(-1 330 5 100 100 100 50 51)<br />     )<br />   (entmake elist)<br />   )