智慧住建新型基础测绘多测合一房地一体

【AutoCAD二次开发】第四节图层控制

时间：2019-12-19 08:08 作者：AcadApp 阅读：1691 评论：5

Windows10

其他

CASS9

'第四节
Sub CreateLayer() '创建图层
Dim objlyr As AcadLayer
Set objlyr = ThisDrawing.Application.ActiveDocument.Layers.Add("hello")
objlyr.color = acRed
objlyr.LayerOn = True
objlyr.Freeze = False
objlyr.Lock = False
ThisDrawing.Application.ActiveDocument.ActiveLayer = objlyr
End Sub
Sub SearchLayer() '查找图层
Dim objlyr As AcadLayer
Dim blnExist As Boolean
For Each objlyr In ThisDrawing.Application.ActiveDocument.Layers
If objlyr.Name = "hello" Then
MsgBox "图层已找到！"
blnExist = True
Exit For
End If
Next
If blnExist = False Then MsgBox "图层未找到！"
End Sub

全部评论