[求助]如何改变颜色 问题已解决

qsb506

我用框选后进行长度计算（论坛上已有），想问下如何能做到选中后用黑色显示，计算后再恢复原来的颜色。

如何改变颜色

caoyin

所谓框选就是 SSGET ，在SSGET选择过程中LISP应该无法改变颜色

qsb506

caoyin发表于2007-10-31 16:11:00所谓框选就是 SSGET ，在SSGET选择过程中LISP应该无法改变颜色

怎么会无法改变颜色呢，下面这个就行，只是不是LISP源码。

我要的就是这个程序的效果。

 

caoyin

你说的是选择后改颜色，这个很简单啊，改了颜色再恢复，只是觉得没有必要

特别是对于有的图块（子图元不随块），计算速度很慢（要修改块内图元，这样就修改了块定义。 要么就不能实现改颜色）

用entmod修改dxf组码62或

vla-put-color

qsb506

问题已解决，先改为黄色进行长度计算，最后再更改为颜色随层。

(setq N 0)
(repeat (sslength SS)
   (setq CURVE (vlax-ename->vla-object (ssname SS N)))
   (vla-put-Color CURVE acYellow);改为黄色
   .
   .
   (setq N (1+ N))
 )
  .
  .
(setq N 0)
 (repeat (sslength SS)
   (setq CURVE (vlax-ename->vla-object (ssname SS N)))
   (vla-put-Color CURVE acByLayer);改为随层
   (setq N (1+ N))
 )