[分享]：一个经常用的自定义函数SUB_UPD

xyp1964

[php];|
--------------------------------------------------------
功能 : 更改图元DXF组码以修改实体属性
方式 : (SUB_UPD 实体名 DXF码 新值)

实例1 : 改圆半径为500
(sub_upd (car(entsel"\n选择圆 : ")) 40 500)

实例2 : 改文本为"晓东空间"
(sub_upd (car(entsel"\n选择文本 : ")) 1 "晓东空间")

实例3 : 改块的插入点为(0 0 0)
(sub_upd (car(entsel"\n选择块 : ")) 10 '(0 0 0))

--------------------------------------------------------
|;
(defun sub_upd (#ename #code #new / cc)
  (setq        cc (subst (cons #code #new)
                  (assoc #code (entget #ename))
                  (entget #ename)
           )
  )
  (entmod cc)
  (entupd #ename)
)[/php]

狂刀

2. 
   
3. ;; 不仅可以改，还可以加。如默认颜色随层组码６２是没有的，这个可以加上，从而实现“改变”颜色的功能。
   
4. ;; by 狂刀
   
5. (defun subdxf (ent id val /)
   
6.   (if (not(member id '(0 -1 5)))
   
7.      (entmod (append (if (= 'ENAME (type ent))(entget ent) ent) (list (cons id val)) ))
   
8.   )
   
9. )

<br /> ;; 不仅可以改，还可以加。如默认颜色随层组码６２是没有的，这个可以加上，从而实现“改变”颜色的功能。<br /> ;; by 狂刀<br /> (defun subdxf (ent id val /)<br />   (if (not(member id '(0 -1 5)))<br />      (entmod (append (if (= 'ENAME (type ent))(entget ent) ent) (list (cons id val)) ))<br />   )<br /> )

yshf

狂刀长老：
   (= 'ENAME ent)是不是错了，应该是(= 'ENAME (type ent))？

狂刀

哦，是的。嘻嘻，你真行