文本的颜色？

Tomislav · 发表于 2022-7-5 22:49:08

你好
我正在尝试获取所选文本的颜色。。。现在，如果文本不是ByLayer颜色，那么很容易，但是如果是，那么如何获得它。。。
我尝试了这个，但得到了错误的参数类型错误：

 (setq bottom_color(vlax-get-property(vlax-get-property(vlax-get-property                         
                    (vlax-ename->vla-object(cdr(car(entget(ssname bottomss 0)))))'Layer)'TrueColor)'ColorIndex)

请帮忙

Tharwat · 发表于 2022-7-5 22:57:53

试试这个。

或者这个，用同样的方法。

copy


(if (setq s (ssget "_+.:S:E" '((0 . "*TEXT"))))
 (setq clr (vlax-get-property (vlax-ename->vla-object (ssname s 0)) 'Color))
)

Tomislav · 发表于 2022-7-5 23:09:57

首先，你能解释一下什么S：是吗？
我知道：S和：E分别做什么，在我的lisp中，我使用了ssget和：S，但是这个组合。。。
其次，如果是ByLayer，我仍然不知道颜色的编号。。我得到每种颜色的“ByLayer”或数字256，只要它是该层的默认颜色，如果你知道我的意思，我需要该ByLayer后面的颜色：嗯：
换句话说，我需要颜色的数量，无论在哪层，在哪种颜色的文本是。。。

Tharwat · 发表于 2022-7-5 23:18:24

_+。当用户被要求选择一个对象时，其行为方式与entsel函数相同，此外，还可以将光标作为一个框来进行选择。
：S通常与前面提到的字符串模式一起使用。
：E是获取拾取框选择集中的所有内容。

除此之外，你还期待什么？

ByLayer等于256

上文已解释

Tomislav · 发表于 2022-7-5 23:29:21

256是表示ByLayer的数字，但ByLayer的颜色是什么。。。它是黄色，蓝色。。。？
如何获得具有标志ByLayer的文本的实际颜色？

Stefan BMR · 发表于 2022-7-5 23:32:45

copy

(setq e (car (entsel)))
(cond
   ((cdr (assoc 62 (entget e))))
   ((cdr (assoc 62 (tblsearch "LAYER" (cdr (assoc 8 (entget e)))))))
   )

7o7 · 发表于 2022-7-5 23:46:02

您可以使用以下代码获得实际颜色：

copy

我和斯特凡同时发帖，内容相同！！

Tomislav · 发表于 2022-7-5 23:57:25

就是这样
谢谢大家的努力。。。

[编程交流] 文本的颜色？

发表回复

精选推荐