Zobrazit plnou verzi příspěvku: Výpis výšek z textů

Sikky
30.10.2007, 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

Ferdinand
30.10.2007, 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. Ferdinand2007-10-30 11:16:09

Sedláček
30.10.2007, 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
 

Sedláček
30.10.2007, 14:26
Nedoknčil jsem myšlenku:
Po VYPISB dát pro výběr objektů "P"

Mantlík
30.10.2007, 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é

zdrk
30.10.2007, 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í.

Mantlík
30.10.2007, 14:58
Přesně tak, to nejdůležitější jsem nakonec nenapsal

Sikky
30.10.2007, 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.

Miroslav Harant
31.10.2007, 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

Kackac
31.10.2007, 19:50

Nemohl byste prosím napsat jak to funguje? Resp. kde to nastavit příp. zrušit?
Kackac2007-10-31 19:50:53