Zmena vsetkych linetype scale.
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=3171
Datum vytištění: 27.čer.2026 v 21:43
Téma: Zmena vsetkych linetype scale.
Odeslal: Sirus
Předmět: Zmena vsetkych linetype scale.
Datum odeslání: 28.zář.2006 v 15:32
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)
|
|
Odpovědi:
Odeslal: Ferdinand
Datum odeslání: 06.říj.2006 v 14:25
_AI_SELALL - Linetype scale
-------------
-FerTh-
|
Odeslal: Sirus
Datum odeslání: 11.říj.2006 v 10:47
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
|
Odeslal: Ferdinand
Datum odeslání: 13.říj.2006 v 13:43
To bylo řešeno v lispu B.lsp - už nevím, ve kterém tématu to proběhlo.
-------------
-FerTh-
|
|