欲修改属性块文字的颜色

torcky 发表于 2004-2-18 23:06:00

我想从选择到的众多图元中将块中带属性的文字的颜色进行修改;

请各位大虾给个思路或lisp源码,先谢了!!!

torcky 发表于 2004-2-20 20:32:00

感谢无痕和meflying;我运行了meflying给的程序,不能执行下去.之后我略做了修改

如下(带*号的语句为我的修改处)

(defun c:tt2 () (setq ma (car (entsel))) (setq bname (cdr (assoc 0 (entget ma)))) (if (= bname "INSERT") (setq ma (entnext ma)) ;;;****** (while ma ;;;****** (setq mas (entget ma)) (if (assoc 62 mas) (setq mas (subst (cons 62 5) (assoc 62 mas) mas)) (setq mas (append mas (list (cons 62 5)))) ) (entmod mas) (setq ma (entnext ma)) ;;;****** ) ) (command "_.regen") (princ) )

运行后我发现: 1 程序运行不稳定,只成功了一次;而且还删除了一些无关的图元,

2 无法控制循环只在所选择的块中运行

yankeeliu 发表于 2023-2-3 15:22:36

花溪四如发表于 2005-7-23 12:52
根本不用这么烦琐，菜单：修改－－对象－－属性－－块属性管理器即可

修改后，文字颜色是改了，文字位置偏了，这个调整量更大，更不好改

菜鸟初来乍到 发表于 2023-9-1 23:34:23

龙龙仔发表于 2004-2-23 13:52
;;將塊中帶屬性的文字的顏色進行修改

太好用了，非常感谢楼主分享

无痕发表于 2004-2-18 23:36:00

lsp：

找到insert，entnext取属性

vla：

Block.GetAttributes

torcky 发表于 2004-2-19 21:15:00

附上我的源代码,请各位大虾在指点一二:

(defun c:t2 () (setq me (nentsel)) (setq ma (car me )) (setq bname (cdr(assoc 0 (entget(car(nth 3 me )))))) (if (= bname "INSERT") (while ma (if (= (assoc 0(entget ma)) "ATTDEF") (command "change" ma "" "p" "c" 5 "") ) (setq ma (entnext ma)) ) ) )

问题: 1 无法控制循环从块的第一个图元开始

2 没有完成预期目标

meflying 发表于 2004-2-20 08:39:00

while之前也用一次(setq ma (entnext ma))就可以了

仔细比较一下你的程序，看看有那些问题

(defun c:t2 () (setq ma (car (entsel))) (setq bname (cdr (assoc 0 (entget ma)))) (if (= bname "INSERT") (while (setq ma (entnext ma)) (setq mas (entget ma)) (if (assoc 62 mas) (setq mas (subst (cons 62 5) (assoc 62 mas) mas)) (setq mas (append mas (list (cons 62 5)))) ) (entmod mas) ) ) (command "_.regen") (princ) )

龙龙仔 发表于 2004-2-23 13:52:00

;;將塊中帶屬性的文字的顏色進行修改<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

 (defun C:TTT (/ SS N)<o:p></o:p>

 (setq SS (ssget '((0 . "INSERT") (66 . 1)))<o:p></o:p>

 N 0<o:p></o:p>

 )<o:p></o:p>

 (if SS<o:p></o:p>

 (repeat (sslength SS)<o:p></o:p>

 (RIB (ssname SS N) 5)<o:p></o:p>

 (setq N (1+ N))<o:p></o:p>

 )<o:p></o:p>

 )<o:p></o:p>

 (command "_.regen")<o:p></o:p>

 (princ)<o:p></o:p>

)<o:p></o:p>

<o:p> </o:p>

<o:p>;;;我在菜鳥時期</o:p>e2002版主提供給我的(有關讀取塊中"attrib"物件)<o:p></o:p>

;;;----------------------------------------------------------------<o:p></o:p>

(defun RIB (<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:place><st1:City>EN</st1:City> <st1:State>COL</st1:State></st1:place> / ATTRIB-OBJECT-ARRAY ATTRIB-OHJECT-LIST N OB)<o:p></o:p>

 (setq <st1:place>OB</st1:place> (vlax-ename->vla-object EN))<o:p></o:p>

 (if (and (= (vla-get-objectname <st1:place>OB</st1:place>) "AcDbBlockReference")<o:p></o:p>

 (= (vla-get-hasattributes <st1:place>OB</st1:place>) :vlax-true)<o:p></o:p>

 )<o:p></o:p>

 (progn<o:p></o:p>

 (setq ATTRIB-OBJECT-ARRAY<o:p></o:p>

 (vlax-variant-value<o:p></o:p>

 (vla-getattributes <st1:place>OB</st1:place>)<o:p></o:p>

 )<o:p></o:p>

 ATTRIB-OBJECT-LIST<o:p></o:p>

 (vlax-safearray->list<o:p></o:p>

 ATTRIB-OBJECT-ARRAY<o:p></o:p>

 )<o:p></o:p>

 )<o:p></o:p>

 (setq N 0)<o:p></o:p>

 (repeat (length ATTRIB-OBJECT-LIST)<o:p></o:p>

 (vla-put-color (nth N ATTRIB-OBJECT-LIST) <st1:State><st1:place>COL</st1:place></st1:State>)<o:p></o:p>

 (setq N (1+ N))<o:p></o:p>

 )<o:p></o:p>

 )<o:p></o:p>

 )<o:p></o:p>

)<o:p></o:p>

;;;----------------------------------------------------------------|;<o:p></o:p>

torcky 发表于 2004-2-25 19:34:00

问题解决了。

谢谢各位大虾！

yfywk 发表于 2004-12-4 23:14:00

为什么只能改为5号色蓝色呢？？

不能改为其他的吗？

龙龙仔 发表于 2004-12-6 12:59:00

(rib ename color)---(RIB (ssname SS N) 5)

花溪四如 发表于 2005-7-23 12:52:00

根本不用这么烦琐，菜单：修改－－对象－－属性－－块属性管理器即可

页: [1] 2

明经CAD社区's Archiver

欲修改属性块文字的颜色