如何修改天正实体的颜色

含泪的射手

如题，用天正建筑画图，但是偶尔会修改天正建筑中实体的颜色，不管用vlax-put-property还是用vla-put-Color都被拒绝修改，不知各位高手有没有办法解决。或者谁有修改对象颜色的代码（包含修改天正实体）的可否给个参考。

newer

这个天正就没想让你用程序去修改他的东西。

含泪的射手

难道就只能用CAD自己的命令改？太慢了。执行CAD命令太慢了。

newer

含泪的射手 发表于 2016-10-6 13:53

不用天正， 你确信CAD自己的命令能改它？ 还是天正自己的命令？

如果CAD自己的命令能改它，那你就可以写LISP去做。

含泪的射手

但是用(command "chprop"*******）命令的时候，延迟太明显了。

marting

含泪的射手 发表于 2016-10-6 14:03

有总比没有强，天正反应慢可能是他自己设计的定义对象的问题，写LISP调用命令去做吧，慢也是程序慢，你可以抽烟休息等他。

Lisphk

含泪的射手 发表于 2016-10-6 14:03

命令能改，entmod 也应该能吧，你试验过没？

含泪的射手

entmod还要慢些。当很多的时候就特别慢。

Lisphk

含泪的射手 发表于 2016-10-6 14:18

那就是天正自身的问题了，天正TS不也很好嘛，怎么不用它。

newer

含泪的射手 发表于 2016-10-6 14:18

为了测试我的判断，特意装了天正20，结果我的判断是对的，XDRX API可以对付它。给你个测试代码，修改实体的颜色，你加载XDRX API，执行看看

1. (defun c:tt ()
   
2.   (if (and (setq ss (ssget))
   
3.      (setq clr (getint "\n输入颜色号(1-254)<退出>:"))
   
4.       )
   
5.     (xdrx_entity_setproperty ss "color" clr)
   
6.   )
   
7.   (princ)
   
8. )

(defun c:tt ()<br />   (if (and (setq ss (ssget))<br />      (setq clr (getint "\n输入颜色号(1-254)<退出>:"))<br />       )<br />     (xdrx_entity_setproperty ss "color" clr)<br />   )<br />   (princ)<br /> )

含泪的射手

试试呢。十分感谢。

含泪的射手

确实可以。谢谢。现在有个新问题，如何给VLAX属性中的TrueColor 赋值呢？

newer

含泪的射手 发表于 2016-10-7 00:45

(xdrx_entity_setcolor (entlast)  '(123 123 10))

(xdrx_setpropertyvalue (entlast) "color" '(1 20 123))

(xdrx_entity_setproperty (entlast) "color" '(2 23 12))

(xdrx_entity_setproperty (entlast) "color" 200 23 12)


都行

csharp

_$ (vla-GetInterfaceObject (vlax-get-acad-object) (strcat "AutoCAD.AcCmColor." (itoa (atoi (getvar "acadver")) )))
#<VLA-OBJECT IAcadAcCmColor 0e729e68>
_$ (setq acm (vla-GetInterfaceObject (vlax-get-acad-object) (strcat "AutoCAD.AcCmColor." (itoa (atoi (getvar "acadver")) ))))
#<VLA-OBJECT IAcadAcCmColor 0e72a168>
_$ (vla-setrgb acm 120 121 120)
nil
_$ (vla-get-red acm)
120
_$ (vla-put-truecolor (vlax-ename->vla-object (entlast)) acm)
nil
_$

fn2398

路过旁听，谢谢老师！