Výpis výšek z textů
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=5365
Datum vytištění: 04.čer.2026 v 20:56
Téma: Výpis výšek z textů
Odeslal: Sikky
Předmět: Výpis výšek z textů
Datum odeslání: 30.říj.2007 v 10:01
|
Mám výkres (polohopis) ve 2D, výškové body jsou určeny textem. Potřeboval bych dostat výpis souřadnic bodů (XYZ), kde X a Y jsou souřadnice textu a Z jeho obsah. příkaz _list bohužel lze použít jen pro cca 9 bodů zároveň, zbytek uteče z okna výpisu |
Odpovědi:
Odeslal: Ferdinand
Datum odeslání: 30.říj.2007 v 11:15
|
...příspěvek dle mého soudu nejspíš patří do fóra Programování... Takže texty nemáte v "reálných" výškách (tj. na "svých" Z-ových souřadnicích, ale vše v Z=0), ale 1. jsou to texty s vícenásobným výskytem - tj. např. výška1(text1) "361.00" je tam 59-krát, výška2(text2) "542.10" je tam 32-krát atd... anebo 2. je každá výška(text) jiná? Pro 1. i pro 2. případ by výpis výšek mohl řešit lisp s použitím příslušného výběrového filtru. ------------- -FerTh- |
Odeslal: Sedláček
Datum odeslání: 30.říj.2007 v 14:25
|
Zkuste tento LISPík:
(defun c:vypisb ( )
(setq mnozina (ssget )) (setq n 0) (setq a (open "c:/souradnice.txt" "w")) (if (/= mnozina nil)(progn (while (setq ent (ssname mnozina n)) (setq ed (entget ent)) (write-line (strcat (rtos (cadr (assoc 11 ed)))";"(rtos(caddr (assoc 11 ed)))";" (cdr (assoc 1 ed)) ) a) (setq n (+ n 1)) ))) (close a) ) Nejprve přes _QSELECT vybrat text.
Pak spustit VYPISB
|
Odeslal: Sedláček
Datum odeslání: 30.říj.2007 v 14:26
|
Nedoknčil jsem myšlenku: Po VYPISB dát pro výběr objektů "P"
|
Odeslal: Mantlík
Datum odeslání: 30.říj.2007 v 14:38
Nechci šťourat, ale jste si naprosto jistý, že jsou výškové body opravdu určeny textem? Jsou totiž geodeti, kteří umisťují texty na bod desetinnou tečkou (pak je nejlepší používat formát výšek XX.XX), pak jsou geodeti, kteří na bod umisťují levý bod textu, ale jsou i geodeti, kteří texty umisťují jinak. V lepším případě v nějakém konstantním vztahu k bodu, v horším anaprosto nahodile. Pokud se pak vlastní body z výkresu ztratí, jste v  . Jednou jedinkrát jsem se nechal přemluvit a dělal bez bodů - a samozřejmě jsem byl za dobrý skutek podle zásluhy potrestán. Od té doby už situaci bez bodů neberu - a radím to i Vám ....
Pro export bodů a snad i bloků existuje rutina xbody.lsp od Xanadu, možná by šla upravit i na texty
Pak taky existuje TEXT2ZVAl.lsp (podle tipu 3702) - ale nenašel jsem to. Taky text2elev.vlx (Xanadu?), která přiřadí textu z-ovou výšku
A na závěr. To, že Vám text uteče z okna výpisu, není nic strašného. lze to přece vylistovat zpět a případně přes schránku přenést do wordpadu či jiného texťáku a smazat nepotřebné ------------- J. Mantlík |
Odeslal: zdrk
Datum odeslání: 30.říj.2007 v 14:44
|
Doporučil bychm obrátit se na geodeta a vyžádat si přímo od něj soubor souřadnic.
Měl by být součástí zaměření. |
Odeslal: Mantlík
Datum odeslání: 30.říj.2007 v 14:58
Přesně tak, to nejdůležitější jsem nakonec nenapsal  ------------- J. Mantlík |
Odeslal: Sikky
Datum odeslání: 30.říj.2007 v 22:17
|
V tomto případě jsou texty opravdu zarovnány na střed, který je shodný s desetinnou tečkou, zrovna v tomto případě by pár centimetrů nehrálo roli.
Ohledně utečení - právě, že to uteče až moc, zpět můžu rolovat asi 300 řádek. Bohužel výpis vlastností jednoho bodu zabere asi 10 řádek. |
Odeslal: Miroslav Harant
Datum odeslání: 31.říj.2007 v 12:00
K tomu rolování - používejte protokolování výkresů a po uzavření výkresu pak z toho logu vytáhněte data, které potřebujete 
------------- Miroslav Harant ADT 3.3 / Win 98 SE |
Odeslal: Kackac
Datum odeslání: 31.říj.2007 v 19:50
|
Nemohl byste prosím napsat jak to funguje? Resp. kde to nastavit příp. zrušit?
------------- Kackac |