[LISP函数]：在Lisp中如何获取图元的颜色索引号

qqppx · 发表于 2005-11-19 17:22:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教高手，在Lisp中如何获取图元的颜色索引号

Underway · 发表于 2005-11-19 19:40:35

图元的颜色索引号為 62
(cdr (assoc 62 (entget ee)))

qqppx · 发表于 2005-11-19 22:12:33

但是有些随层的图元没有62啊，

Underway · 发表于 2005-11-19 22:16:13

Command: (tblsearch "layer" "0")
((0 . "LAYER") (2 . "0") (70 . 0) (62 . 254) (6 . "CONTINUOUS"))

Command: (cdr (assoc 62 (tblsearch "layer" "0")))
254

xyp1964 · 发表于 2005-11-19 22:16:37

[FONT=courier new]
(load"xyp_lib.vlx")
(xyp-get-Color (car(entsel)))
[/FONT]

复制代码

taner · 发表于 2005-11-19 23:07:54

http://www.xdcad.net/forum/showt ... 2372335#post2372335

nigma · 发表于 2005-11-20 18:23:32

(load"xyp_lib.vlx")
(xyp-get-Color (car(entsel)))
这种代码为什么在r14中不认识.
我用那个(vl-load-com)还是没用?

taner · 发表于 2005-11-20 18:35:34

最初由 nigma 发布
[B](load"xyp_lib.vlx")
(xyp-get-Color (car(entsel)))
这种代码为什么在r14中不认识.
我用那个(vl-load-com)还是没用? [/B]

[php](defun get-layandcol (ename / ent col)
(setq ent (entget ename))
(setq lay (cdr (assoc 8 ent)))
(cond
((setq col (cdr (assoc 62 ent))))
((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent)))))))
)
(if (cdr (assoc 62 ent))
(list lay col)
(list lay col "bylayer")
)
)

(nth 1 (get-layandcol (car (entsel))))
[/php]

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：在Lisp中如何获取图元的颜色索引号

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块