表格内字体颜色怎么改，请教一下

xj6019

附件内几个表格字体颜色是黄色的，怎么在不炸开表格的情况下改一下所有字体的颜色，请高手支招，谢谢！！

andyhua

双击进入格子，选择文字，一个个改

xj6019

andyhua 发表于 2020-1-15 09:19
双击进入格子，选择文字，一个个改

老师您好，您的法子我竟然无言以对，不过您自己可以先验证一下，附件的表格不炸开真的能改？？

wang_cn10

(defun c:test ( / en ss ent x n )
  (setq en (strcat "\C" (itoa (getint "请输入颜色代号：")) ";"))
  (setq ss (ssget "X" (list (cons 0 "ACAD_TABLE"))))
  (repeat (setq n (sslength ss))
    (setq ent (entget (ssname ss (setq n (1- n)))))
    (mapcar '(lambda (x)
               (if (= (type (cdr x)) 'STR)
                 (if (vl-string-search "\c65535;" (cdr x))
                   (setq ent (subst (cons (car x) (vl-string-subst en "\c65535;" (cdr x))) x ent)))
                )
              )
        ent )
    (entmod ent)
   )
  (princ)
)

xj6019

wang_cn10 发表于 2020-1-15 14:58
(defun c:test ( / en ss ent x n )
  (setq en (strcat "\C" (itoa (getint "请输入颜色代号：")) ";"))
...

您好，谢谢提供解决方法，可是为什么只能更改一次啊，更改一次后，我试着保存关闭再打开也不行呢，再打开就固定到更改的颜色，无法再改变了

wang_cn10

xj6019 发表于 2020-1-15 15:48
您好，谢谢提供解决方法，可是为什么只能更改一次啊，更改一次后，我试着保存关闭再打开也不行呢，再打开 ...

因为你原来的图文字颜色为  "\c65535;"  改了之后不是这个了，具体你可以查看表格组码，改一下这里就行

xj6019

wang_cn10 发表于 2020-1-15 20:58
因为你原来的图文字颜色为  "\c65535;"  改了之后不是这个了，具体你可以查看表格组码，改一下这里就行

明白是怎么回事了，不可以弄成一种通用的吗，这个样使用有点太局限了吧，好改的话，麻烦稍微完善一下，谢谢！！

panliang9

用stripmtext将将表格的文字的属性全部剥掉。就可以直接在属性里改文字的颜色了。

xj6019

非常感谢您提供的解决方法，谢谢！！