修改块中文字属性值的程序

brainstorm

(defun c:test (/ ss en)
    (Defun put-visible (bn visible / bl) ;   
 (If (Assoc 66 (EntGet bn))
     (Progn (SetQ bn (EntNext bn)
    bl (EntGet bn)
     )
     (While (= "ATTRIB" (Cdr (Assoc 0 bl)))
         (setq bl (subst (cons 70
          (if visible
       0
       1
          )
           )
           (assoc 70 bl)
           bl
    )
         )
         (entmod bl)
         (entupd bn)
         (SetQ bl (EntGet (SetQ bn (EntNext bn))))
     )
     )
 )
    )

    (setq ss (ssget '((66 . 1))))
    (setq n 0)
    (repeat (sslength ss)
 (setq en (ssname ss n))
 (put-visible en t);可见
 ;(put-visible en nil)不可见
 (setq n (1+ n))
    )
)

lazybones

说过一次了，天正建筑门窗编号在windown_text图层，直接关闭/打开或冻结/解冻该图层就行了

头大无恼

能不能改一下,不用输入原属性块的属性值

只要选择需要修改的图块

则自动生成属性列表

如:

(1)-工程名称

(2)-图纸比例

.....

然后只要输入对应的修改序号就可以

头大无恼

能不能改一下,不用输入原属性块的属性值

只要选择需要修改的图块

则自动属性中的标记或者提示,然后列表

如:

(1)-工程名称

(2)-图纸比例

.....

lionguns

学到一招！~~

hdlyt11

哈哈哈，踏破铁鞋无觅处，得来全不费功夫，太幸运了

yoyoho

感谢诸位对属性块的热烈讨论

受惠了,谢谢大家!

artken

ZZXXQQ能不能帮忙改成这样啊

1。根据属性的标记改：原来的属性值是不一样的，但都改成一样的

2. 能不能支持多选，就是(SSGET)选择很多属性块（一个一个块地循环)

比如：原来有一个块名叫ABC的属性块，其中的一个属性标记是："体重"，这个属性块COPY用了很多次并都改了“体重”的值，这样“体重”的值也就有很多，比如120,130,150,180...现在想一次性将所有“体重”的值全改为“140”。

能做吗？

就跟这个是功能一样，但是执行有错

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=69928

xotoo

ZZXXQQ发表于2007-10-29 9:25:00重写一下函数就行了。(DEFUN  C:A  ()  (CHATTRIB \"qwer\" \"asdf\")  (PRINC))

Z版，为什么我不能正确运行，提示：错误 : no function definition: CHATTRIB

我的版本为2009，块中需要替换的属性内容为汉字，并且是多行文字……

ZZXXQQ

原程序中替换的属性不是多行文字。

2009没用过，不知是否属性可以用多行文字了。

上面提示错误是无CHATTRIB函数。要将本贴中CHATTRIB函数加载后才行。定义的函数C:A只是针对一楼楼主的要求写的调用CHATTRIB的函数。