Zobrazit plnou verzi příspěvku: výpis bodů
potrboval bych poradit mam 3D objekt a potrebuju aby mi do txt souboru vypsal souradnice x y z vsech bodu ze kterych se sklada. pls poradte nedo thx
Vladimír Michl
02.01.2007, 08:56
Jaký 3D objekt? Objemový? Plošný? Z jakých 3D bodů se třeba "skládá" koule?
Pracná, ale spolehlivá a nenáročná metoda:
1. vytvořte Blok, který bude obsahovat pouze bod
2. Blok rozkopírujte do všech pozic na tělese jejichž souřadnice chcete znát
3. pomocí funkce Extrahovat atributy získate soubor (txt, xls) s potřebnými informacemi
Balda
Balda2007-01-02 09:16:45
Něco podobného jako popsal p. Balda umí frewarová nadstavba freemust.
tak aplikace sem si stahl nainstaloval a rozchodil ale nejak porad nevim co s tim je tam toho moc mohl byste to nejak priblizit dekuji
V panelu nastroju inquiry, je tlacitko Locate point (určit/definovat bod) a hned vedle jsou tlačitka pro uložení a otevředí do TXT souboru.
ano to jsem nasel ale vypisuje mi to jen 2 souradnice boud a jen tech bodu ktere oznacim ja potrebuji aby to vzalo vsechny body a abych na ne nemusel klepat pac jich tam mam opravdu moc
Aha, tak v tom případě by mohl pomoci následující LISP:
[QUOTE];;; CDF - comma delimited string (defun CDF-POINT (pt) (strcat (car pt) ", " (cadr pt) ", " (caddr pt))) ;;; SDF - space delimited, may easier be read back in to AutoCAD (defun SDF-POINT (pt) (strcat (car pt) " " (cadr pt) " " (caddr pt))) ;;; convert this SDF format back to a point with (defun STR->POINT (s) (eval (read (strcat "(" s ")")))) ;;; Write a XYZ file of all selected objects (SDF see below) (defun C:XYZ (/ ss fname f) (if (and (setq ss (ssget)) (setq fname (getfiled "Write XYZ to file" (strcat (getvar "DWGNAME") ".XYZ") "XYZ" 7)) (setq f (open fname "w"))) (foreach ele (sslist ss) ; -> [20.4] (foreach pt (getpts ele) ; -> [23.1] (write-line (cdf-point pt) f)))) (if f (close f))) ;;; => <fname>.xyz ;;; 0.45, 12.3, -34.0 For a ASC file (SDF-format) simply change all XYZ to ASC and cdf-point to sdf-point above. For the other way 'round, creating PLINES from a ascii x,y file best convert the file to a script like: PLINE 300.2,10 350.4,10.4[/QUOTE]
Anebo existuej ještě jeden nástroj pro export bodů z AutoCADu (neodzkoušeno): Points Export for AutoCADPepaR2007-01-03 13:51:22
tak lisp vypada velice zajimave akorat absolutne netusim co to je sem takovy primitivni uzivatel autocadu takze bych potreboval vystvetleni dekuji
uploads/20070102_182306_XYZ.lsp
Upozorňuji, že jsme LISP nezkoušel, našel jsme jej na jednom z anglických webu, pravděpodobně bude potřebovat odladit, ale to já nyní již nestihnu.... nezlobte se.PepaR2007-01-02 18:24:31
Sedláček
03.01.2007, 08:10
Nestačil by příkaz _LIST, vybrat objekty a následně zkopírovat údaje z textového okna přes schránku do textového souboru a zde upravit do potřebného tvaru?
P.Sedláček
tento prikaz uz jsem zkousel ale vysledkem je jen horno a dolni mez a ja potzrebuji souradncie vsech bodu ktere sou na objektu ..
tento prikaz uz jsem zkousel ale vysledkem je jen horno a dolni mez a ja potzrebuji souradncie vsech bodu ktere sou v objektu ..
Vladimír Michl
03.01.2007, 14:04
Možná by pomohlo, kdybyste vysvětlil co myslíte těmi "všemi body v objektu". Které jsou všechny body koule, válce nebo kužele?
body mam namysli kdyz date ctr + a tak sou to vsechny ty ktere sou ty modre krychlicky ..