vlr-pers-p

(vlr-pers-p reaktor)

Sprawdza czy reaktor jest stały - czyli czy działa też po ponowym otwarciu rysunku.

Przykład:

(vl-load-com)
(setq reaktor (vlr-command-reactor nil '((:vlr-commandWillStart . commandWillStart))))

(defun commandWillStart(reactor_object list)
    (alert (vl-princ-to-string list))
)

; Ustawiamy reaktor jako stały:
(vlr-pers reaktor )
; zwraca 
#<VLR-COMMAND-REACTOR>

sprawdzamy czy jest stały
(vlr-pers-p reaktor )
;funkcja zwraca:
#<VLR-COMMAND-REACTOR>

Ustawiamy reaktor jako ulotny - aktywny tylko w bieżącej sesji pracy z rysunkiem
(vlr-pers-release reaktor )

Sprawdzamy czy stały
(vlr-pers-p reaktor )
; funkcja zwraca nil