[LISP] warunek na nie wybrano bloku

[wilda]

Pobieram wartość atrybutu z bloku, ale jeżeli kliknę obok bloku (nie wybiorę bloku) to chcę wartość wpisać ręcznie.
Jak to zapisać na poniższym przykładzie?

Kod: Zaznacz cały

(defun c:pobierzatrybut ()
(setq XYZ (atof (cd:BLK_GetAttValueVLA (car (entsel)) "ATR1")))
(alert (rtos XYZ))
)

[kojacek]

Pobieram wartość atrybutu z bloku, ale jeżeli kliknę obok bloku (nie wybiorę bloku) to chcę wartość wpisać ręcznie.
Jak to zapisać na poniższym przykładzie?

Kod: Zaznacz cały

(defun c:pobierzatrybut ()
(setq XYZ (atof (cd:BLK_GetAttValueVLA (car (entsel)) "ATR1")))
(alert (rtos XYZ))
)

Wszystko źle. Jeżeli nie wybiorę bloku to nie wybiorę bloku. Nie ma innej możliwości. Rozjaśnij nieco o co chodzi.

[wilda]

Jeżeli na monit o wybór obiektu wybiorę blok to zmienna XYZ przyjmie wartość atrybutu, jeżeli
na monit o wybór obiektu kliknę w puste miejsce na rysunku to chcę wówczas podać ręcznie wartość zmiennej XYZ

[wilda]

Cała noc szukania, cały dzień prób ale w końcu się udało (pewnie można lepiej) i działa!

Kod: Zaznacz cały

(setq selection(car (entsel "\n Wybierz blok:")))
(if selection
   (progn
      (setq entlist(entget selection))
         (if(= "INSERT"(cdr(assoc 0 entlist)))                  
            (setq XYZ (atof (cd:BLK_GetAttValueVLA selection "ATR1")))
            (progn   ;jeżeli wybrano inny obiekt niż blok
            (alert "to nie blok")
            (setq XYZ (getreal "podaj XYZ"))
            )
         );if blok
   );progn
   (setq XYZ (getreal "podaj XYZ"))   ;jeżeli nic nie wybrano
);if selection
(alert (rtos XYZ))