CAD Fórum : hromadná zmena veľkostí bloku https://www.cadforum.cz/forum/ Thu, 02 Jul 2026 13:28:15 +0000 Mon, 17 Jun 2024 08:41:55 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=35225 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[hromadná zmena veľkostí bloku : Buď můžete vybrat všechny bloky...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=35225&PID=130087&title=hromadna-zmena-velkosti-bloku#130087 Autor: Petr75
Předmět: 35225
Zasláno: 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)
)
]]> Mon, 17 Jun 2024 08:41:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=35225&PID=130087&title=hromadna-zmena-velkosti-bloku#130087 <![CDATA[hromadná zmena veľkostí bloku : ahojte,pri kopírovaní množstva...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=35225&PID=130086&title=hromadna-zmena-velkosti-bloku#130086 Autor: cvirikovec
Předmět: 35225
Zasláno: 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 
]]> Mon, 17 Jun 2024 07:15:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=35225&PID=130086&title=hromadna-zmena-velkosti-bloku#130086