从图案填充中获取颜色名称。

Juergen · 发表于 2022-7-5 15:19:25

嗨，用户们，

我想从中获取颜色书名和颜色名称
选中图案填充并将名称作为文本写入
图纸。（参见图片）

有人能帮忙吗。

谢谢

尤尔根。

登录/注册后可看大图

ronjonp · 发表于 2022-7-5 15:41:35

这里有一个提示：

copy

(if (setq e (car (entsel)))
 (alert (vl-princ-to-string (cdr (assoc 430 (entget e)))))
)

rkmcswain · 发表于 2022-7-5 15:51:40

它总是彩色的吗？
或者可能是ACI颜色或RGB？

Lee Mac · 发表于 2022-7-5 16:01:48

另一个应该解释一切。。。

copy

(defun objectcolour ( enx / col )
   (cond
       (   (cdr (assoc 430 enx)))
       (   (setq col (cdr (assoc 420 enx)))
           (mapcar '(lambda ( x ) (lsh (lsh (fix col) x) -24)) '(8 16 24))
       )
       (   (setq col (cdr (assoc 62 enx))))
       (   (objectcolour (entget (tblobjname "layer" (cdr (assoc 8 enx))))))
   )
)

要测试：

copy

(defun c:test ( / ent )
   (if (setq ent (car (entsel)))
       (print (objectcolour (entget ent)))
   )
   (princ)
)

rkmcswain · 发表于 2022-7-5 16:12:10

不错@李麦克

Juergen · 发表于 2022-7-5 16:19:52

嗨ronjonp，嗨Lee，

谢谢你的帮助。

更多地了解lisp对我有很大帮助。

@rkmcswain：是的，它总是彩色的。
（我需要它来命名我们的调色板）

[编程交流] 从图案填充中获取颜色名称。

发表回复

精选推荐