请代写“点选图元更改图层名称”程序

bai2000 · 发表于 2015-6-9 20:54:17

回复瞧瞧。。。。

110318 · 发表于 2015-6-9 21:46:31

回复看看,学习下

USER2128 · 发表于 2015-6-10 08:02:24

感谢荒野孤行! 感谢分享程序!

香田里浪人 · 发表于 2015-6-10 15:27:04

本帖最后由香田里浪人于 2015-7-21 06:25 编辑

好像这样也可以
(defun c:gxtcm()
(graphscr)
(setvar "cmdecho" 0)
(prompt "\n更新图层名称:")
(setq e1 (ssget))
(setq mylayer (getstring "请输入新图层名<0>:"))
(if (or (= myLayer "") (= myLayer nil)) (setq myLayer "0"))
(setq oldla (getvar "clayer"))
(command "layer" "make" mylayer "")
(setq e2 (cons 8 mylayer))
(setq i 0)
(repeat (sslength e1)
(setq e4 (entget (ssname e1 i)))
(setq e5 (assoc 8 e4))
(setq e4 (subst e2 e5 e4))
(entmod e4)
(setq i (1+ i))
)
(princ "\n所选实体图层名已更改 ")
(princ (cdr e2))
(princ)
)

bobosky168 · 发表于 2015-6-10 16:32:08

我觉得很实用，看看

Rimford · 发表于 2015-6-10 16:36:43

高手都喜欢这么干

ko217 · 发表于 2015-7-20 23:01:01

遇到同样的困难

wangxf888 · 发表于 2015-7-22 01:31:37

进来学习的

杜阳 · 发表于 2015-7-25 15:58:23

alexmai · 发表于 2015-7-26 23:16:55

看看，学习了

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

[已解答] 请代写“点选图元更改图层名称”程序