杭州交通信息网评价晚钟电影:cad vba 图层问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/10 08:17:11
我参加了个变电站的施工，想把变电站电缆的安放用三维图形画出来。而且有个界面。点某一电压等级的就那几条出来，其他的隐藏。。。。。
做了个例子试验。
Private Sub button1_Click()
Dim layer0 As AcadLayer
layer0.Name = line
If CheckBox1.Value = True Then
layer0.LayerOn = True
Else
layer0.LayerOn = False
End If
End Sub
却显示 “运行时错误91 对象变量或With块变量未设置“
请问这是怎么回事。
做了个例子试验。
Private Sub button1_Click()
Dim layer0 As AcadLayer
layer0.Name = line
If CheckBox1.Value = True Then
layer0.LayerOn = True
Else
layer0.LayerOn = False
End If
End Sub
却显示 “运行时错误91 对象变量或With块变量未设置“
请问这是怎么回事。
你没有对layer0赋值.
请使用layer0=ThisDrawing.Layers.Add("New_Layer")(建立一个新的层)
或使用layer0=AcadLayers.Item(--)方法(取得已经存在的层.)