[求助]：图层更名问题

wql · 发表于 2006-5-13 06:24:55

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

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

×

请教如何用Lisp更改已知的图层名？谢谢！

eachy · 发表于 2006-5-13 09:02:32

最初由 wql 发布
[B]请教如何用Lisp更改已知的图层名？谢谢！ [/B]

_$ (tblsearch "layer" "1")
((0 . "LAYER") (2 . "1") (70 . 0) (62 . 7) (6 . "Continuous"))
_$ (setq el (entget (tblobjname "layer" "1")))
((-1 . <图元名: 7ef920e0>) (0 . "LAYER") (330 . <图元名: 7ef90c10>) (5 . "124") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "1") (70 . 0) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ef90c78>) (347 . <图元名: 7ef90f78>))
_$ (entmod (subst '(2 . "3") '(2 . "1") el))
((-1 . <图元名: 7ef920e0>) (0 . "LAYER") (330 . <图元名: 7ef90c10>) (5 . "124") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "3") (70 . 0) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ef90c78>) (347 . <图元名: 7ef90f78>))
_$
_$

_$ (command ".rename" "la" "3" "444")
nil
_$
_$

_$ (vla-put-name (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "444") "6666")
nil
_$
_$
_$ (vla-put-name (vlax-ename->vla-object (tblobjname "layer" "6666")) "223")
nil
_$
_$

aeo · 发表于 2006-5-14 17:18:00

rename命令

(tblobjname "layer" "name")改dxf2码
或用vla方法

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

[求助] [求助]：图层更名问题

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

相关帖子

Re: [求助]：图层更名问题