Potreboval by som naraz zmenit vsetky linetype scale na vykrese. Nieco som stvoril ale to nespracuvava bloky. Pomoze niekto?[code](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)[/code]

_AI_SELALL - Linetype scale

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

To bylo řešeno v lispu B.lsp - už nevím, ve kterém tématu to proběhlo.