各位大虾，在lsp中怎么才能获得点选对象的颜色号呀，请用最简便的方式，谢谢
各位大虾，在lsp中怎么才能获得点选对象的颜色号呀，请用最简便的方式，谢谢
2楼
以前好像有写过，好像写的不是很好！
现在刚写的如下：
(defun c:tt (/ data col)
(if (setq data (entget (ssname (ssget (getpoint)) 0)))
(cond
((setq col (cdr (assoc 62 data))))
((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 data)))))
)
)
)
)
)
回复
3楼
谢谢大虾
回复
4楼
;;;获取对象颜色
(defun C:TT (/ SS ENT COL)
(if (setq SS (nentsel "\n请点取对象: "))
(progn
(setq ENT (entget (car SS)))
(if (setq COL (cdr (assoc 62 ENT)))
()
(setq COL
(cdr (assoc 62
(tblsearch "layer" (cdr (assoc 8 ENT)))
)
)
)
)
(princ COL)
)
)
(princ)
)
更多关于对象组码的讨论见：http://www.acad.net.cn/viewthread.php?tid=176&pid=681&page=1&extra=page%3D1
回复
