层操作开始、结束

/db_自贡黄明儒_ · 发表于 2016-8-23 13:48:15

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

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

×

本帖最后由 /db_自贡黄明儒_ 于 2016-8-23 14:06 编辑

仿照编组的开始与结束，写了个层操作开始、结束
;;编组开始;(command "_.undo" "be")
(defun _StartUndo (*DOC*)
  (_EndUndo *DOC*)
  (vla-StartUndoMark *DOC*)
)
;;结束编组;(if (= 8 (logand (getvar "undoctl") 8)) (command "_.undo" "_e"))
(defun _EndUndo       (*DOC*)
  (if (= 8 (logand 8 (getvar 'UNDOCTL)))
(vla-EndUndoMark *DOC*)
  )
)

;;1.2  解冻解锁所有图层

游客，如果您要查看本帖隐藏内容请回复

casd · 发表于 2016-8-23 14:17:02

学习一下看看

819534890 · 发表于 2016-8-23 14:23:42

学习学习，good

HLCAD · 发表于 2016-8-23 18:08:17

感谢黄大师分享程序

hao3ren · 发表于 2016-8-24 00:39:24

看看怎么用

dycla2001 · 发表于 2016-8-29 19:24:35

看看一看》》》》》》》》》》》

abc498091367 · 发表于 2016-8-29 19:40:21

学习学习，good

lucas3 · 发表于 2016-8-30 08:54:51

什么叫做“ 层操作开始、结束”

q3_2006 · 发表于 2016-8-31 17:02:18

要记录什么??

st788796 · 发表于 2016-8-31 17:15:04

(layerstate-save layerstatename mask viewport)
... your layer operation
(layerstate-restore layerstatename viewport[restoreflags])
(layerstate-delete layerstatename)

zz159504 · 发表于 2016-9-15 22:07:55

看一看》》》》

天若有情007 · 发表于 2016-10-17 12:21:35

不错，学习学习

qianzj · 发表于 2016-10-18 14:21:10

看看怎么用

cq_qg68 · 发表于 2016-11-24 22:39:08

如何列出所有关闭和冻结的图层？

sachindkini · 发表于 2016-11-25 18:52:17

see the hidden content

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

[每日一码] 层操作开始、结束

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