如何实现关闭已选择实体的图层？？

egua · 发表于 2007-1-9 13:34:00

想编一个程序：
输入命令，从屏幕选择实体，程序判断已选实体的图层，然后将其关闭！
判高手指点一下～

wyj7485 · 发表于 2007-1-9 13:45:00


Sub test()
Dim Obj As Object
Dim PickP As Variant
ThisDrawing.Utility.GetEntity Obj, PickP, "选择要关闭该层的图元:"
ThisDrawing.Layers.Item(Obj.Layer).LayerOn = False
End Sub

egua · 发表于 2007-1-9 14:02:00

多谢啦
还想问问如果用选择集的方法可以么？
同时实现cad的框选功能，并且像输入cad命令一样，敲选回车后才关闭图层～

wyj7485 · 发表于 2007-1-9 14:07:00

选择集当然可以，只是选择集里的实体不一定都在一个层上，这样就要遍历选择集来处理

egua · 发表于 2007-1-9 15:04:00

多谢斑竹，我写了如下代码：看看有什么问题哦

copy


Sub test()
Dim ssetobj As AcadSelectionSet
Dim s As AcadSelectionSet
On Error Resume Next
     Set ssetobj = ThisDrawing.SelectionSets.Add("egua")
     If Err Then
         Err.Clear
         Set ssetobj = ThisDrawing.SelectionSets.Item("egua")
     End If
     ssetobj.Clearssetobj.SelectOnScreen
For Each s In ssetobj
ThisDrawing.Layers.Item(s.Layer).LayerOn = False
Next s
End Sub

afeng11 · 发表于 2011-11-3 14:58:00

Sub test()
Dim ssetobj As AcadSelectionSet
Dim s As AcadSelectionSet这里有问题，要改成这样：Dim s As AcadEntity
On Error Resume Next
   Set ssetobj = ThisDrawing.SelectionSets.Add("egua")
   If Err Then
      Err.Clear
      Set ssetobj = ThisDrawing.SelectionSets.Item("egua")
   End If
   ssetobj.Clear

ssetobj.SelectOnScreen
For Each s In ssetobj
   ThisDrawing.Layers.Item(s.Layer).LayerOn = False
Next s
End Sub

如何实现关闭已选择实体的图层？？

发表回复

精选推荐