[LISP函数]：图层状态快速保存和恢复的简短小程序

masterlong · 发表于 2009-5-25 00:48:16

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

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

×

想达到10分还有点难度啊

看了下手里的通用型程序还真不多
这个算一个
功能其实很简单
最重要的是使用很方便
QS记忆
QQ恢复
对经常需要打开关闭图层的人来说
不进入管理界面就可以快速切换图层状态还是有点用的

;;当前图层状态快速保存
(defun c:qs()
(setvar "cmdecho" 0)
;;如果状态名存在,删除后需要2E
;;如果不存在,需要3E
(command "layer" "a" "d" "yuuboo" "" "")
(if (= "LAYER" (getvar "cmdnames"))
(command "a" "s" "yuuboo" "" "" "")
(command "layer" "a" "s" "yuuboo" "" "" "")
)
(graphscr)
(princ "当前图层状态已经被保存.状态名:yuuboo")
(princ)
)

;;快速恢复已保存图层状态
(defun c:qq()
(setvar "cmdecho" 0)
;;如果状态名存在,恢复后需要2E
;;如果不存在,需要3E
(command "layer" "a" "r" "yuuboo" "" "")
(if (= "LAYER" (getvar "cmdnames"))
(progn (command) (princ "未发现图层状态名"))
(princ "图层状态已经恢复.可能需要运行regen命令来重绘图元.")
)
(princ)
)

c961806787 · 发表于 2013-12-11 14:22:20

一定要顶,非常实用！！

w379106181 · 发表于 2018-1-19 17:47:24

谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享

sicky111 · 发表于 2018-1-21 00:01:12

学习了。

chen7560152 · 发表于 2019-6-30 18:06:07

学习学习了~~~！！！！

shpdzhj · 发表于 2021-2-11 14:29:34

这个很实用，谢谢分享。

tigcat · 发表于 2021-9-8 23:09:44

帮了大忙,感谢楼主的好程序!

egoroom · 发表于 2022-4-16 12:18:02

学习学习学习

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

[LISP函数]：图层状态快速保存和恢复的简短小程序

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

相关帖子