AutoCAD - měřítko

Vytisknout stránku | Zavřít okno

měřítko

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=6462
Datum vytištění: 04.čer.2026 v 23:29

Téma: měřítko

Odeslal: jersey
Předmět: měřítko
Datum odeslání: 07.kvě.2008 v 19:15

Dobrý den, Jak zvětším měřítko výkresu pouze v jedné ose, ( konkrétně se mi jedná o průhyb venkovního vedení, kdy v ose X musím zvětšit měřítko, aby byl znázorněněný průhyb vedení zřetelný na výkresu)

předem děkuji

-------------
S pozdravem Jersey

Odpovědi:

Odeslal: Vladimír Michl
Datum odeslání: 07.kvě.2008 v 19:40

Popis možností najdete v tipu (VIP):

http://www.cadforum.cz/cadforum/qaID.asp?tip=2124 - http://www.cadforum.cz/cadforum/qaID.asp?tip=2124

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: jersey
Datum odeslání: 07.kvě.2008 v 19:47

Dobrý den, všiml sem si toho, ale nemám ACAD od vaší firmy :o(((

-------------
S pozdravem Jersey

Odeslal: PepaR
Datum odeslání: 08.kvě.2008 v 08:30

Nevím co je v tipu, ale snadno lze toho docílit, když si entity převedete na blok a ten může mít v každé ose jiné měřítko.

-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz

Odeslal: jersey
Datum odeslání: 12.kvě.2008 v 18:13

to ano, ale něco jednodušího? nejaká utilitka?

-------------
S pozdravem Jersey

Odeslal: PepaR
Datum odeslání: 12.kvě.2008 v 19:37

Byla by byla, trošku jsem pohledal na fórech a přikládm výsledek - nezkoušel jsem, tak kdyžtak napište zda je funkční.

uploads/20080512_193718_Scaleaxis.lsp" rel="nofollow - uploads/20080512_193718_Scaleaxis.lsp

-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz

Odeslal: jersey
Datum odeslání: 13.kvě.2008 v 12:00

nějak mi to nejde rozchodit, načetl sem lips a pakl se snažil přijít na to jak dostat měřítko jen v jedné ose :o((( nevíte jak by to mělo pracovat?

-------------
S pozdravem Jersey

Odeslal: Sedláček
Datum odeslání: 13.kvě.2008 v 13:04

Doplnil jdem nějaká podtržítka pro angilcké příkazy a parametry.

Funguje to tak, že vytvoří pomocný blok (_block..), vloží ho se změněným měřítkem (_insert..), rozbije ho (_explode..) a vyčistí výkres (_purge..)

;;;SCALEAXIS.LSP

;--------------------------------------------------
; ERROR TRAPPING
;--------------------------------------------------

(defun errtrap (msg)
(cond
    ((not msg))
    (
      (member msg '("Function cancelled" "quit / exit abort"))
      (command "undo" "")
    )
    (
      (princ (strcat "\nError: " msg))
      (command "undo" "")
    )
);cond
);defun

;--------------------------------------------------
; MAIN ROUTINE
;--------------------------------------------------

(defun c:scaleaxis (/ *error* *ss1 bspt ax mult refpt refdx newdx)

(command "._undo" "_end" "._undo" "_begin")
(setq *error* errtrap)

(setq ss1 (ssget))
(setq bspt (getpoint "\nSelect basepoint: "))
(initget "X Y Z")
(if
(not
(setq ax (getkword "\nSpecify axis to scale: <X> "))
);not
(setq ax "X")
);if

(if
(not
    (setq mult (getreal "\nEnter scale factor or <Reference>: "))
);not
(progn
    (setq refpt1 (getpoint "\nSpecify reference length: "))
    (setq refdx (getdist refpt1 "\nSpecify second point: "))
    (setq newdx (getdist refpt1 "\nSpecify new length: "))
    (setq mult (/ newdx refdx))
);progn
);if

(setvar "expert" 2)
(setvar "explmode" 1)
(command "._-block" "SCALETEMP" bspt ss1 "")
(command "._-insert" "SCALETEMP" ax mult bspt "0")
(command "._explode" "_last" "")
(command "._-purge" "_blocks" "SCALETEMP" "_n")
(setvar "expert" 1)

(command "._undo" "_end")

(princ)
(*error* nil)
)

Odeslal: jersey
Datum odeslání: 15.kvě.2008 v 21:55

dobrý den, zatím sem neměl možnost to vyzkoušet, chtěl bych se¨zeptat, když nahraju lips jak pak postupuju s prvkem, abych si určil kterou osu chci v měřítku zvětšit?

-------------
S pozdravem Jersey

Odeslal: alfred
Datum odeslání: 16.kvě.2008 v 06:56

Pri spustenem lispu si vyberete osu (X, Y, Z) a pak meritko.

zmente si radku :
(setq ax (getkword "\nSpecify axis to scale: <X> "))

na
(setq ax (getkword "\nSpecify axis to scale: [osa X/osa Y/osa Z] <X> "))

Mate tak hned vypsany jak moznosti volby tak defaultni nastaveni.

Odeslal: jersey
Datum odeslání: 17.kvě.2008 v 19:10

vubec se mi to nedaří rozběhat, po nactení lispu, do příkazový řádky napíšu jakou osu chci dám měřítko, ale pořád se mi hejbe ve dvou osách zároveň.

-------------
S pozdravem Jersey

Odeslal: PepaR
Datum odeslání: 18.kvě.2008 v 08:27

V pátek jsem to zkoušel a funkce šlapala bez problémů. Přikládám upravenou a lokalizovanou verzi - viz příspěvky alfreda a pana Sedláčka.

http://www.cadforum.cz/forum/uploads/20080518_082700_SCALEAXIS.lsp - uploads/20080518_082700_SCALEAXIS.lsp

-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz

Odeslal: jersey
Datum odeslání: 18.kvě.2008 v 13:47

ak ted už vážně netušim, v nástrojích načtu AUTOlips, vyderu požadovaný lips, načtu ho, možnostech mám nastavenou cestu, a pak by to mělo normálně fungovat? do příkazový řádky napsat osu, dám měřítko a objekt by se měl zvětšit v požadovaný ose. Nezapomněl sem někde na něco ????

-------------
S pozdravem Jersey

Odeslal: PepaR
Datum odeslání: 18.kvě.2008 v 14:56

1) Načtete lisp

2) Spustíte jej příkazem SCALEAXIS

3) Vyberete objekty

4) Zadáte osu

5) Zadáte měřítko

-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz

Odeslal: jersey
Datum odeslání: 18.kvě.2008 v 18:06

jasný , sem ho zapomněl spustit, díky moc!

-------------
S pozdravem Jersey

Vytisknout stránku | Zavřít okno