CAD Fórum : Vypis souradnic do vykresu https://www.cadforum.cz/forum/ Sat, 25 Apr 2026 07:36:24 +0000 Mon, 24 Oct 2005 13:18:59 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=1544 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Vypis souradnic do vykresu : Je pro zajimavost, lze to upravovat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6357&title=vypis-souradnic-do-vykresu#6357 Autor: orlik
Předmět: 1544
Zasláno: 24.říj.2005 v 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)
   )
)

]]> Mon, 24 Oct 2005 13:18:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6357&title=vypis-souradnic-do-vykresu#6357 <![CDATA[Vypis souradnic do vykresu : Dekuji vsem za pomoc! ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6348&title=vypis-souradnic-do-vykresu#6348 Autor: Kroupík
Předmět: 1544
Zasláno: 24.říj.2005 v 09:19

Dekuji vsem za pomoc! ]]> Mon, 24 Oct 2005 09:19:43 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6348&title=vypis-souradnic-do-vykresu#6348 <![CDATA[Vypis souradnic do vykresu : ^C^C_id;\_USERS1;$M=$(rtos,$(i...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6342&title=vypis-souradnic-do-vykresu#6342 Autor: musil
Předmět: 1544
Zasláno: 22.říj.2005 v 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)



Upravil musil]]> Sat, 22 Oct 2005 08:37:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6342&title=vypis-souradnic-do-vykresu#6342 <![CDATA[Vypis souradnic do vykresu : Protože se objevilo několik žádostí,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6339&title=vypis-souradnic-do-vykresu#6339 Autor: Mantlík
Předmět: 1544
Zasláno: 21.říj.2005 v 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 na
kladné souřadnice zabudována absolutní hodnota (v ČR ani SR se ve
skuteč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

]]> Fri, 21 Oct 2005 15:15:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6339&title=vypis-souradnic-do-vykresu#6339 <![CDATA[Vypis souradnic do vykresu : omluvám se tohle bylo na ltecko,a...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6330&title=vypis-souradnic-do-vykresu#6330 Autor: musil
Předmět: 1544
Zasláno: 21.říj.2005 v 13:12

omluvám se tohle bylo na ltecko,a má to být na jednom řádku.]]> Fri, 21 Oct 2005 13:12:50 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6330&title=vypis-souradnic-do-vykresu#6330 <![CDATA[Vypis souradnic do vykresu : Pošlete mi Váš mail a pošlu Vám...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6327&title=vypis-souradnic-do-vykresu#6327 Autor: Radim Cech
Předmět: 1544
Zasláno: 21.říj.2005 v 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.

 

 

]]> Fri, 21 Oct 2005 13:03:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6327&title=vypis-souradnic-do-vykresu#6327 <![CDATA[Vypis souradnic do vykresu : protože to má být _LEADER ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6325&title=vypis-souradnic-do-vykresu#6325 Autor: Pepa
Předmět: 1544
Zasláno: 21.říj.2005 v 12:43

protože to má být _LEADER]]> Fri, 21 Oct 2005 12:43:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6325&title=vypis-souradnic-do-vykresu#6325 <![CDATA[Vypis souradnic do vykresu : musil napsal(a):^C^C_id;\_s...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6324&title=vypis-souradnic-do-vykresu#6324 Autor: Kroupík
Předmět: 1544
Zasláno: 21.říj.2005 v 12:17

Původně odeslal(a) musil musil napsal(a):

^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)""";;

To mi bohuzel v mem ADT2005 nefunguje, pise to neznamy prikazy _lead, er, @

]]> Fri, 21 Oct 2005 12:17:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6324&title=vypis-souradnic-do-vykresu#6324 <![CDATA[Vypis souradnic do vykresu : V AutoCADu 2005/2006 lze snadno...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6321&title=vypis-souradnic-do-vykresu#6321 Autor: Vladimír Michl
Předmět: 1544
Zasláno: 21.říj.2005 v 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)]]> Fri, 21 Oct 2005 12:09:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6321&title=vypis-souradnic-do-vykresu#6321 <![CDATA[Vypis souradnic do vykresu : Pošlete mi adresu, pošlu Vám lispík,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6319&title=vypis-souradnic-do-vykresu#6319 Autor: Mantlík
Předmět: 1544
Zasláno: 21.říj.2005 v 11:55

Pošlete mi adresu, pošlu Vám lispík, bez kterého se neobejdu

můj mail: doprava@ppu-babtie.cz

]]> Fri, 21 Oct 2005 11:55:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1544&PID=6319&title=vypis-souradnic-do-vykresu#6319