Thaw all

[julien]

Ik ga me nog eens wagen aan het maken van een klein lispje.

Naast 'layon' zou ik graag 'Thawall' maken.

Maar ik zit al vast aan het layer venster. Hoe kan ik dit tijdelijk uitzetten? Het is al geen attdia of filedia.

[julien]

Ondertussen gevonden.

Het resultaat:

Code Selecteer Uitklappen

(defun C:tal ()
       (command "-layer" "t" "*" "")

        (princ)
)

[Remo]

of natuurlijk in vba 

Code Selecteer Uitklappen



Sub Lagenontdooien()
Dim laag As AcadLayer

    For Each laag In ThisDrawing.Layers
   
        If laag.Freeze = True Then
            laag.Freeze = False
        End If
       
    Next

End Sub




[bart]

Code Selecteer Uitklappen

(defun C:tal ()
       (command "-layer" "u" "*" "on" "*" "t" "*" "")

        (princ)
)

of deze voor
unlock
on
thaw

[Remo]

sorry kon het niet laten

Code Selecteer Uitklappen



Sub Lagenontdooien()
Dim laag As AcadLayer

    For Each laag In ThisDrawing.Layers

        If laag.Freeze = True Then
            laag.Freeze = False
        End If
       
        If laag.Lock = True Then
            laag.Lock = False
        End If
       
        If laag.LayerOn = False Then
            laag.LayerOn = True
        End If
       
    Next

End Sub



[will]

Ik ga me nog eens wagen aan het maken van een klein lispje.

Naast 'layon' zou ik graag 'Thawall' maken.

Maar ik zit al vast aan het layer venster. Hoe kan ik dit tijdelijk uitzetten? Het is al geen attdia of filedia.

Dag Julien,

Zeer bruikbare lisp
In de lisp staat als beschrijving "ontdooi alle layers met een simpele druk op de knop of met tal"
is het mogelijk om een lisp te koppelen aan een knop in acad

Heeft iemand misschien een lisp om meerdere lagen gelijktijdig te freezen

Groetjes,
Will

[Kenny H]

Zie uw topics

Knop aanmaken
http://www.cadsite.be/smf/index.php/topic,1118.0.html

Layer freeze
http://www.cadsite.be/smf/index.php/topic,1119.0.html

Groeten

Kenny