置入当前层(加上置入当前颜色和线型)

liminnet · 发表于 2008-6-16 15:35:00

提示: 作者被禁止或删除内容自动屏蔽

"觉得好，就打赏"

还没有人打赏，支持一下

liminnet · 发表于 2008-6-17 19:54:00

提示: 作者被禁止或删除内容自动屏蔽

caoyin · 发表于 2008-6-18 09:38:00

;;只要稍微动变通一下脑筋
(defun c:zt (/ aa)
(if (setq aa (ssget))
    (command "_.chprop" aa ""
             "_la" (getvar "clayer")
             "_c" (getvar "cecolor")
             "_lt" (getvar "celtype") "")
)
(print)
)

liminnet · 发表于 2008-6-18 09:56:00

提示: 作者被禁止或删除内容自动屏蔽

tender138 · 发表于 2018-7-12 15:05:23

不错，留个记号

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

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-6-16 15:35:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽 "觉得好，就打赏" 打赏还没有人打赏，支持一下

	回复使用道具举报置顶卡变色卡显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-6-17 19:54:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-6-18 09:56:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

置入当前层(加上置入当前颜色和线型)

浏览过的版块