0 Members and 1 Guest are viewing this topic.
(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))(setq LayCol (vla-get-Layers ActDoc))(setq LayDict (vla-GetExtensionDictionary LayCol))(setq LayStDict (vl-catch-all-apply 'vla-Item (list LayDict "ACAD_LAYERSTATES")))
Public Sub DeleteLaterStateTemp() ThisDrawing.SendCommand "-layer" & vbCr ThisDrawing.SendCommand "a" & vbCr ThisDrawing.SendCommand "d" & vbCr ThisDrawing.SendCommand "temp" & vbCr & vbCr & vbCr End Sub
Public Sub DelLayerState() Dim colLayers As AcadLayers Dim objDict As AcadDictionary Dim objLayerStates As AcadDictionary Dim objXrec As AcadXRecord Set colLayers = Me.Layers If colLayers.HasExtensionDictionary Then Set objDict = colLayers.GetExtensionDictionary Set objLayerStates = objDict("Acad_LayerStates") objLayerStates("temp").Delete End IfEnd Sub
ThisDrawing.Layers
Public Sub DelLayerState() Dim colLayers As AcadLayers Dim objDict As AcadDictionary Dim objLayerStates As AcadDictionary Dim objXrec As AcadXRecord Set colLayers = ThisDrawing.Layers If colLayers.HasExtensionDictionary Then Set objDict = colLayers.GetExtensionDictionary Set objLayerStates = objDict("ACAD_LAYERFILTERS") objLayerStates("adf").Delete End IfEnd Sub