简单图元更新

自贡黄明儒

;;152.1 [功能] 局部重生 by Lee Mac
;;示例 (MJ:Update (entget (car(entsel))))
(defun MJ:Update (enlist)
  (entupd (cdr (assoc -1 enlist)))
)
;;[功能]简单图元更新
;;示例 (Update (car(entsel)))

1. (defun Update (e)
   
2.   (entmod (cons -1 e))
   
3. )
   

(defun Update (e)<br />   (entmod (cons -1 e))<br /> )<br />

;;选择单行文字(Update (car(entsel)) '((62 . 2) (1 . "31")))

1. (defun Update (e Lst)
   
2.   (cond        (Lst (entmod (cons (cons -1 e) Lst)))
   
3.         (T (entmod (cons -1 e)))
   
4.   )
   
5. )
   

(defun Update (e Lst)<br />   (cond        (Lst (entmod (cons (cons -1 e) Lst)))<br />         (T (entmod (cons -1 e)))<br />   )<br /> )<br />

伪书虫86

干乜用的呢  
   

成仔

回复为看看，感觉这样回复交流少了

lea丶丶

6666666666666666666666666666

ynhh

黄工威武黄工威武

longzh0542

从没有在黄大师的贴子里如此的靠前，学习

菜卷鱼

黄大师发力了啊

myfrankie

乍看是怎么回事

429014673

回复为看看，感觉这样回复交流少了

ptime

学习学习！！

xiaolong1487

论坛刚 修复就发好东西了！

USER2128

这个要支持，想当年，我只上明经的

clinber

支持黄大师啊啊