/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解冻 解锁 所有图层
**** Hidden Message *****

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)
(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
页: [1] 2 3
查看完整版本: 层操作开始、结束