图纸图元局部重生成命令

haibinpro

eatools中的局部生成是怎么实现的，很好用啊。
有没有单独的一个文件。

不喜一大摞的工具包，虽然有些实用，但部分设置会跟原设置冲突。

不知道cad有没有这个命令呢。
cad有局部打开和regen，但似乎没有局部重生成。

能有lsp源程序最好，
没有也可以，我用lsp重定义下该指令。
谁能提供下。

______________________________________________________________________________
找到两个程序。

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 />

效果不错，正是我所需要的。

2. 
   
3. (defun C:xs ()
   
4. (prompt "部分重生成图形")
   
5. (command "erase" (ssget) "")
   
6. (command "undo" 1)
   
7. )
   

<br /> (defun C:xs ()<br /> (prompt "部分重生成图形")<br /> (command "erase" (ssget) "")<br /> (command "undo" 1)<br /> )<br />

也能实现局部重生成，但有时会突然转移视图到某处。不知何故。
有谁可以帮忙解释一下这两个程序么，顺便学习程序语法函数。
看到command "erase"总觉得怪怪的。
难道是复制图元，删除后重建图元。有cad重建模型从而实现局部重生成。