土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
精品试听季，好课抢鲜听
工程师进阶必备，全套项目资料包来袭！
登录
/
注册
登录土木在线
学习职场硬技能
持续上新实用资料
讲师答疑&多端学习
获取最新政策资讯
免费职称评审服务
立即登录
新用户领取770优惠券
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
建筑设计
\
CAD下载及教程
\
求助：lsp获取颜色
求助：lsp获取颜色
各位大虾，在lsp中怎么才能获得点选对象的颜色号呀，请用最简便的方式，谢谢
发布于
2007-06-30 22:51:30
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（3 ）
zml1984
;;;获取对象颜色
(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
2007-07-21 14:36:21
来自 PC
评论
举报
luyu9635
谢谢大虾
2007-07-07 19:31:07
来自 PC
评论
举报
加载更多
相关推荐
luyu9635
这个家伙什么也没有留下。。。
主题
11
回复
15
粉丝
0
+ 关注
私信
CAD下载及教程
返回版块
52.09 万条内容 · 667 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（3 ）
-
zml1984
;;;获取对象颜色
2007-07-21 14:36:21
来自 PC
评论
举报
-
luyu9635
谢谢大虾
2007-07-07 19:31:07
来自 PC
评论
举报
加载更多(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