CAD Fórum : měřítko https://www.cadforum.cz/forum/ Thu, 04 Jun 2026 19:53:11 +0000 Sun, 18 May 2008 18:06:47 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=6462 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[měřítko : jasný , sem ho zapomněl spustit,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31571&title=meritko#31571 Autor: jersey
Předmět: 6462
Zasláno: 18.kvě.2008 v 18:06

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

]]> Sun, 18 May 2008 18:06:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31571&title=meritko#31571 <![CDATA[měřítko : 1) Načtete lisp 2) Spustíte jej...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31568&title=meritko#31568 Autor: PepaR
Předmět: 6462
Zasláno: 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
]]> Sun, 18 May 2008 14:56:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31568&title=meritko#31568 <![CDATA[měřítko : ak ted už vážně netušim, v nástrojích...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31567&title=meritko#31567 Autor: jersey
Předmět: 6462
Zasláno: 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 ????]]> Sun, 18 May 2008 13:47:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31567&title=meritko#31567 <![CDATA[měřítko : V pátek jsem to zkoušel a funkce...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31562&title=meritko#31562 Autor: PepaR
Předmět: 6462
Zasláno: 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.
uploads/20080518_082700_SCALEAXIS.lsp


Upravil PepaR - 18.kvě.2008 v 08:27]]> Sun, 18 May 2008 08:27:06 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31562&title=meritko#31562 <![CDATA[měřítko : vubec se mi to nedaří rozběhat,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31561&title=meritko#31561 Autor: jersey
Předmět: 6462
Zasláno: 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ň.
 
?
 


Upravil jersey - 17.kvě.2008 v 19:11]]> Sat, 17 May 2008 19:10:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31561&title=meritko#31561 <![CDATA[měřítko : Pri spustenem lispu si vyberete...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31524&title=meritko#31524 Autor: alfred
Předmět: 6462
Zasláno: 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.]]> Fri, 16 May 2008 06:56:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31524&title=meritko#31524 <![CDATA[měřítko : dobrý den, zatím sem neměl možnost...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31522&title=meritko#31522 Autor: jersey
Předmět: 6462
Zasláno: 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?]]> Thu, 15 May 2008 21:55:04 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31522&title=meritko#31522 <![CDATA[měřítko : Doplnil jdem nějaká podtržítka...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31478&title=meritko#31478 Autor: Sedláček
Předmět: 6462
Zasláno: 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)
)
]]> Tue, 13 May 2008 13:04:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31478&title=meritko#31478 <![CDATA[měřítko : nějak mi to nejde rozchodit, načetl...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31475&title=meritko#31475 Autor: jersey
Předmět: 6462
Zasláno: 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?]]> Tue, 13 May 2008 12:00:42 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31475&title=meritko#31475 <![CDATA[měřítko : Byla by byla, trošku jsem pohledal...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31466&title=meritko#31466 Autor: PepaR
Předmět: 6462
Zasláno: 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


Upravil PepaR - 12.kvě.2008 v 19:40]]> Mon, 12 May 2008 19:37:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6462&PID=31466&title=meritko#31466