Zdravím,šlo by tlačítko fungující jako přepínač?Jedná se mě o rychlé zmrazení / rozmrazení dané hladiny.Hladina by byla přímo definována v příkazu, nechci vybírat ! např: "text1"Když by to šlo maskou*, bylo by to úžasné :-)    např: "text*"díky moc Ondřej

Šlo, zkuste:[CODE];Layer Freeze/Thaw toggle (Arkance Systems)(vl-load-com)(setq *acaddoc* (vla-get-activedocument (vlax-get-acad-object)))(defun C:LFT ( / LFT_name flg lo) (setq LFT_name "MOJEHLADINA") ; layer to process (cond      ( (= (strcase (getvar 'CLayer)) (strcase LFT_name))        (princ "\nCannot freeze current layer")      )      ( (setq lo (tblobjname "LAYER" LFT_name))        (setq lo (vlax-ename->vla-object lo))        (vlax-put lo 'Freeze (setq flg (~ (vlax-get lo 'Freeze))))        (if (= flg 0) (vla-regen *acaddoc* acActiveViewport))      )      ( (princ (strcat "\nLayer " LFT_name " does not exist."))) ) (princ))(setq *LFTM_status* nil)(defun C:LFTM ( / LFT_name) (setq LFT_name "MOJEHLADINY*") ; layers to process (mask) (command "_-LAYER" (if *LFTM_status* "_FR" "_TH") LFT_name "") (setq *LFTM_status* (not *LFTM_status*)) (princ))(princ "\nLFT and LFTM toggle loaded.")(princ)[/CODE]

Opět báječné, díky moc...