Vytisknout stránku | Zavřít okno

hromadná zmena veľkostí bloku

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD web, prohlížečů, DWG a DXF, Design Review, Navisworks, nadstavby, Drive a cloud Autodesk
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=35225
Datum vytištění: 27.čvc.2026 v 13:27


Téma: hromadná zmena veľkostí bloku
Odeslal: cvirikovec
Předmět: hromadná zmena veľkostí bloku
Datum odeslání: 17.čer.2024 v 07:15
ahojte, 
pri kopírovaní množstva blokov som zistil že niektoré nemajú mierku 1 ale 0,01 (ano je to dané inými jednotkami v tých rôznych výkresoch). 
Existuje prosím nejaký príkaz alebo lisp ktorý by zadefinoval - všetky bloky v tomto výkrese majú veľkosť 1 - ale nezmenil by ich tvar. 

ďakujem 


Odpovědi:
Odeslal: Petr75
Datum odeslání: 17.čer.2024 v 08:41
Buď můžete vybrat všechny bloky a pak nastavit měřítko na 1 nebo můžete použít lisp program viz. níže.
(defun c:BlockReset ( / ss blk i)
(setq i 0)
(setq ss (ssget "_X" '(( 0 . "INSERT")))) ; reset všech bloků
; (setq ss (ssget '(( 0 . "INSERT")))) ; reset jen vybraných bloků
(if ss
(repeat (sslength ss)
(setq blk (vlax-ename->vla-object (ssname ss i)))
(vlax-put-property blk 'XEffectiveScaleFactor 1.0)
(vlax-put-property blk 'YEffectiveScaleFactor 1.0)
(vlax-put-property blk 'ZEffectiveScaleFactor 1.0)
(setq i (1+ i))
)
)
(princ)
)


Vytisknout stránku | Zavřít okno