表格内字体颜色怎么改，请教一下
附件内几个表格字体颜色是黄色的，怎么在不炸开表格的情况下改一下所有字体的颜色，请高手支招，谢谢！！双击进入格子，选择文字，一个个改 andyhua 发表于 2020-1-15 09:19
双击进入格子，选择文字，一个个改
老师您好，您的法子我竟然无言以对，不过您自己可以先验证一下，附件的表格不炸开真的能改？？ (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)
) wang_cn10 发表于 2020-1-15 14:58
(defun c:test ( / en ss ent x n )
(setq en (strcat "\C" (itoa (getint "请输入颜色代号：")) ";"))
...
您好，谢谢提供解决方法，可是为什么只能更改一次啊，更改一次后，我试着保存关闭再打开也不行呢，再打开就固定到更改的颜色，无法再改变了 xj6019 发表于 2020-1-15 15:48
您好，谢谢提供解决方法，可是为什么只能更改一次啊，更改一次后，我试着保存关闭再打开也不行呢，再打开 ...
因为你原来的图文字颜色为"\c65535;"改了之后不是这个了，具体你可以查看表格组码，改一下这里就行 wang_cn10 发表于 2020-1-15 20:58
因为你原来的图文字颜色为"\c65535;"改了之后不是这个了，具体你可以查看表格组码，改一下这里就行
明白是怎么回事了，不可以弄成一种通用的吗，这个样使用有点太局限了吧，好改的话，麻烦稍微完善一下，谢谢！！ 本帖最后由 panliang9 于 2020-1-19 09:09 编辑
用stripmtext将将表格的文字的属性全部剥掉。就可以直接在属性里改文字的颜色了。
非常感谢您提供的解决方法，谢谢！！
页:
[1]