[测试]：用entmod修改尺寸文本颜色的怪现象

心梦相随

用entmod修改尺寸文本的颜色[即DIMENSION下的TEXT]，
发现必须要用两次的entmod才能把字体的颜色改变，不知道这是为什么啊？？
有兴趣的可以试试在14、2002、2004下都是如此。

xyp1964

找不着文本颜色的dxf代码，改用vla-put-TextColor 函数实现：
[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址:
① http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
② http://www.mjtd.com/bbs/viewFile.asp?Boardid=3&ID=19043
|;


(defun c:test ()
  (cmdla0)
  (setq no11 (uint 1 "" "\n颜色号" no11)
        s1 (usel1 0 "DIMENSION" "标注")
        )
  (vla-put-TextColor (Obj s1) no11)
  (cmdla1)
)[/php]