[VBA程序]：关于图层的冻结和解冻

lagier2005 · 发表于 2004-12-16 20:55:17

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

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

×

'冻结除当前层以外的所有图层
Public Sub DrawFreezeAll()
Dim layObj As AcadLayer, laycount As Integer, i As Integer
laycount = ThisDrawing.Layers.count
For i = 0 To laycount - 1
   Set layObj = ThisDrawing.Layers.Item(i)
   If Not (layObj.Freeze) Then
      layObj.Freeze = True
   End If
Next i
ThisDrawing.Utility.Prompt vbNewLine & "除当前层外,所有图层已冻结!"
End Sub
'解冻除当前层以外的所有图层
Public Sub DrawThawAll()
Dim layObj As AcadLayer, laycount As Integer, i As Integer
laycount = ThisDrawing.Layers.count
For i = 0 To laycount - 1
   Set layObj = ThisDrawing.Layers.Item(i)
   If layObj.Freeze Then
      layObj.Freeze = False
   End If
Next i
ThisDrawing.Regen acActiveViewport
ThisDrawing.Utility.Prompt vbNewLine & "所有图层已解冻! OK!"
End Sub

自由的鱼 · 发表于 2004-12-17 23:52:03

楼主再多写几个，还有隐藏图层！

yanhao119 · 发表于 2005-10-19 16:36:29

这个怎么用呀？

xyz518mm · 发表于 2005-10-22 08:21:06

期待有后续的教程出现

YXJ1666 · 发表于 2005-12-21 14:04:23

很不错!!

一组有用的代码,强烈申请在写几个,并能尽快上传1

谢谢

xyz518mm · 发表于 2005-12-21 21:37:02

真是不错
谢谢提供了

gyc2001 · 发表于 2006-1-18 12:51:34

请问命令行如何输入

dazhu-119 · 发表于 2006-1-26 02:23:34

我也发两个。
;锁定除当前层的所有图层
(defun c:lockall()
(command "-layer" "lo" "*" "")
(command "-layer" "u" (getvar 'clayer) "")
)

;解锁所有层
(defun c:unlockall()
(command "-layer" "u" "*" "")
)

tchthong · 发表于 2006-6-8 13:04:57

请问楼主的代码怎么用？

lizuizui · 发表于 2006-6-10 17:01:55

大家用CAD2006不就行了吗

lcx · 发表于 2006-6-12 06:55:55

呵呵，不好意思，还一直再用R14＋tch3.6

killer9806 · 发表于 2006-6-12 11:35:40

用VBA编这种好像太难了，用LSP好像要简单一点哦

cad1510 · 发表于 2006-6-15 15:38:43

学习以下

riyuecao · 发表于 2006-6-22 00:29:43

好东西找了好久了谢谢楼主的分享了

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

[VBA程序]：关于图层的冻结和解冻

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

相关帖子