Zobrazit plnou verzi příspěvku: Vypis souradnic do vykresu

Kroupík
21.10.2005, 10:42
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

musil
21.10.2005, 10:49
^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

Mantlík
21.10.2005, 11:55
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)

Kroupík
21.10.2005, 12:17
[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, @

Pepa
21.10.2005, 12:43
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.
 
 

musil
21.10.2005, 13:12
omluvám se tohle bylo na ltecko,a má to být na jednom řádku.

Mantlík
21.10.2005, 15:15
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

musil
22.10.2005, 08:37
^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

Kroupík
24.10.2005, 09:19
Dekuji vsem za pomoc!

orlik
24.10.2005, 13:18
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)
   )
)