Zobrazit plnou verzi příspěvku: Změna měřítka

boobs
29.03.2011, 15:53
Potrebuji zmenit meritko jiz hotoveho vykresu z 1:1 na 1:2, aby se vesel na A3, ale aby velikost pisma, sipek u kot zustala stejna. Dekuji predem za odpoved

flesar
30.03.2011, 07:26
Předpokládám, že geometrii i popis máte v modelovém prostoru. Zvětšete dvakrát rámeček a upravte celkové měřítko kótovacího styluDo budoucna zkuste pro výkres použít výkresový prostor.

Seiner
30.03.2011, 08:03
Souhlasím, že výkresový prostor je to správné. Ale v praxi se přesto setkávám spíš s tím, že vše je v modelovém prostoru :-)
Kdysi jsem pro změnu měřítka smolil lispík, třeba pomůže.
Kóty je třeba obnovit, existující texty se musí předělat ručně.
Názvy bloků jsou samozřejmě dle zvyklostí.
 
;NASTAVENÍ MĚŘÍTKA;*******************(defun c:def()(setq osm (getvar "OSMODE"))(setvar "OSMODE" 0)(setq mer1 (getreal "Urči faktor zmenšení: "))(setq mer (GETVAR "USERR1"))(if (or (= mer nil)(= mer 0))(setq mer mer1))(setvar "USERR1" mer1)(setq skup (ssget "X" '((-4 . "<OR")(2 . "RAZKONST")(2 . "RAZPROJ")(2 . "A0")(2 . "A1")(2 . "A2")(2 . "A3")(2 . "A4")(2 . "RAMECEK")(2 . "RAMECEK1")(2 . "RAMECEK2")(2 . "RADEK")(2 . "NADST")(2 . "RADEK1")(2 . "NADST1")(2 . "RAZPOKR")(2 . "RAZEXT")(-4 . "OR>"))))(if (/= skup nil)(progn(command "_scale" skup "" "0,0" (/ mer1 mer))(command "_limits" (list (* (/ mer1 mer)(car(getvar "limmin"))) (* (/ mer1 mer)(cadr(getvar "limmin"))))                   (list (* (/ mer1 mer)(car(getvar "limmax"))) (* (/ mer1 mer)(cadr(getvar "limmax")))))(SETVAR "TEXTSIZE" (* (/ mer1 mer)(GETVAR "TEXTSIZE")))(SETVAR "DIMSCALE" mer1)(SETVAR "LTSCALE" (* (/ mer1 mer) (GETVAR "LTSCALE")))(setq mer mer1)(command "ZOOM" "_all")))(setvar "OSMODE" osm))

boobs
02.04.2011, 20:37
Dekuji