Zobrazit plnou verzi příspěvku: Výpis výšek z textů
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"
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é
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í.
Přesně tak, to nejdůležitější jsem nakonec nenapsal
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
Nemohl byste prosím napsat jak to funguje? Resp. kde to nastavit příp. zrušit?
Kackac2007-10-31 19:50:53