CADsite forum

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.

Ondertussen gevonden.

Het resultaat:

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

        (princ)
)

of natuurlijk in vba  :-)



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




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

        (princ)
)

of deze voor
unlock
on
thaw

sorry kon het niet laten



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



Citaat van: julien op do 16 03 2006, 10:50:07
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

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