Potreboval by som naraz zmenit vsetky linetype scale na vykrese. Nieco som stvoril ale to nespracuvava bloky. Pomoze niekto?

(defun c:ltsc1 (/ ent ent2)   (princ "\nPracujem....prosim cakajte\n")   (setq ent3 (entnext))   (while (/= nil ent3)     (progn       (setq ent2 (entget ent3))       (if (/= nil (assoc 48 ent2))       (setq ent2 (subst (cons 48 1) (assoc 48 ent2) ent2)))       ;SSGET       (entmod ent2)       (princ "\rO\r-")       (setq ent3 (entnext ent3))       )      )   (command "regenall")   (princ "\nHotovo")   (princ)

Hmmm, tak som to skusil a zistil som ze to len oznaci vsetky objekty na obrazovke, to mi nepomoze.

Moj program by mal (podla helpu k autolispu) prechadzat vsetky entity na vykrese (aj v blokoch) a menit im vlastnost linetype scale. Program sice prechadza vsetky entity vykresu ale zmeni len tie, ktore lezia mimo blokov (nelezia v ziadnom bloku). V pripade ze je prikaz spusteny vtedy ked je editovany blok opravi entity otvoreneho bloku.

Takze sa este raz pytam ako upravit ten moj program aby fungoval aj v blokoch.

Dakujem