Zobrazit plnou verzi příspěvku: Vypis souradnic do vykresu
Nemate nekdo nejakou pomucku ci radu jak vkladat souradnice bodu primo do vykresu? V Microstionu staci kliknout na bod a do vykresu se umisti vypis souradnic. Kopirovani z prikazoveho radku mi moc nevyhovuje.
Machacek
21.10.2005, 10:46
třeba AAC LT Extension
^C^C_id;\_setenv;x1;$M=$(rtos,$(index,0,$(getvar,lastpoint)) );_setenv;y1;$M=$(rtos,$(index,1,$(getvar,lastpoint)));_lead er;@;\;"$M=$(getenv,x1)","""$M=$(getenv,y1)""";;
Kamil Hronovský
21.10.2005, 10:55
Co třeba staniční kóta
Pošlete mi adresu, pošlu Vám lispík, bez kterého se neobejdu
můj mail: doprava@ppu-babtie.cz
Vladimír Michl
21.10.2005, 12:09
V AutoCADu 2005/2006 lze snadno do atributu bloku nebo do prostého textu vložit dynamické pole automaticky zobrazující aktuální hodnotu X a Y (umístění.X, umístění.Y)
[QUOTE=musil] ^C^C_id;\_setenv;x1;$M=$(rtos,$(index,0,$(getvar,lastpoint)) );_setenv;y1;$M=$(rtos,$(index,1,$(getvar,lastpoint)));_lead er;@;\;"$M=$(getenv,x1)","""$M=$(getenv,y1)""";; [/QUOTE]
To mi bohuzel v mem ADT2005 nefunguje, pise to neznamy prikazy _lead, er, @
protože to má být _LEADER
Radim Cech
21.10.2005, 13:03
Pošlete mi Váš mail a pošlu Vám LISP, který mi kdysi dělal Ing.Michl
Bez něj bych nebyl schopen udělat jediný vytyčovák.
Popíše souřadnici v závislosti na hodnote USERR1 pro příslušné měřítko, tzn. že velikost odkazu a textu se řídí touto proměnnou.
omluvám se tohle bylo na ltecko,a má to být na jednom řádku.
Protože se objevilo několik žádostí, přikládám
2005-10-21_151005_JTSK.LSP
Protože byl dělán (tedy přesněji řečeno upraven - z volného zdroje) především pro vytyčováky v JTSK, je tam pro převod nakladné souřadnice zabudována absolutní hodnota (v ČR ani SR se veskutečnosti záporné souřadnice JTSK nevyskytují) - takže pro uživatelskésouřadnice, kde někdo použil i záporné hodnoty, to nebude správně fungovat !Jelikož to obsahuje funkci LEADER, nastavuje se to obdobně jako kóty v kótovacím stylu - tedy především "šipka" na konci (já nejčastěji používám "tečku"), výška písma, počet desetinných míst, apod.
Spolehlivě slouží už 8 let
^C^C_id;\_USERS1;$M=$(rtos,$(index,0,$(getvar,lastpoint)));_ USERS2;$M=$(rtos,$(index,1,$(getvar,lastpoint)));_leader;@;\ ;"$M=$(getvar,USERS1)","""$M=$(getvar,USERS2)""";;
Zdravim a mám tady ještě jedno tlačítko ted jsem ho dodelal funguje na acad2005 cz tak snad bude i jinde fungovat .
Mohl by mě někdo říct co je náročnější jestli diesl nebo lips(s lipsem ještě nekamarádim)musil38647.3902546296
Je pro zajimavost, lze to upravovat podle potreby a je to v LISPu
(defun c:uu ( / pt1 pt2 ori osmod)
(SETQ osmod (GETVAR "OSMODE"))
(setq px1 0.0 py1 0.0 pz1 0.0 pts "" pt1 (list 0.0 0.0 0.0))
(setq ori (getpoint "\n Nulovy bod : "))
(while (/= pt1 nil)
(setq pt1 (getpoint "\n Bod pro info : "))
(if (= pt1 nil) ()
(progn
(setq pt2 (getpoint "\n Bod textu : "))
(SETQ px1 (- (CAR pt1) (car ori)) py1 (- (CADR pt1) (cadr ori)))
(setq pts (strcat "X" (rtos px1 2 2) ",Y" (rtos py1 2 2)))
(SETVAR "OSMODE" 0)
(command "_qleader" pt1 pt2 "" "2" pts "")
)
)
(SETVAR "OSMODE" osmod)
)
)