[LISP程序]：只重生成指定部分的图形

god

regen可重生成整个acad图形，但图形较大时，耗时比较长。以下代码只重生成指定部分的图形

2. 
   
3. (defun c:rew()
   
4.         (setq sset (ssget)
   
5.         leng (sslength sset)
   
6.         )
   
7.         (setq i 0)
   
8.         (while (< i leng)
   
9.                 (setq ent (ssname sset i))   
   
10.                 (entmod (entget ent))
    
11.                 (setq i (+ i 1))
    
12.         )
    
13. )
    

<br /> (defun c:rew()<br />         (setq sset (ssget)<br />         leng (sslength sset)<br />         )<br />         (setq i 0)<br />         (while (< i leng)<br />                 (setq ent (ssname sset i))   <br />                 (entmod (entget ent))<br />                 (setq i (+ i 1))<br />         )<br /> )<br />

qiaqiadeng

来个另版
(defun C:xs ()
  (prompt "部分重生成图形")
  (command "erase" (ssget) "")
  (command "undo" 1)
)