extracting points coordinates

Hi !
How can I extract the coordinates XYZ of many points in a drawing?
I would like to save them in a file .txt, .csv, or .xls to import in
other applications...
Can you suggest me something to do?
Thanks a lot!
Reply to
dginko
Loading thread data ...
dginko wrote in news:492bd767$0$18151$ snipped-for-privacy@reader3.news.tin.it:
(Defun C:extpt (/ c1 cor countr cx cy cz ed en f fln numf sset1 x y yn z) (Setq fln (Strcat (GetString "\nPoint file name: ") ".pnt" ) f (Open fln "r") ) (If (/= f Nil) (Progn (Close f) (Setq yn (Ascii (Strcase (GetString "A file with this name already exists.\nDo you want to replace it? " ) ) ) ) ) (Setq yn 89) ) (If (/= f Nil) (Progn (Close f) (Setq yn (Ascii (Strcase (GetString "A file with this name already exists.\nDo you want to replace it? " ) ) ) ) ) (Setq yn 89) ) (If (= yn 89) (Progn (Setq f (Open fln "w") sset1 (SsGet "x" (List (Cons 0 "point"))) countr 0 numf (SsLength sset1) ) (If (Not (Zerop numf)) (Progn (While (< countr numf) (Setq EN (SsName sset1 countr) ED (EntGet EN) cor (Assoc 10 ed) c1 (CDR cor) x (CAR c1) y (CADR c1) z (CADDR c1) cx (RtoS x 2 4) cy (RtoS y 2 4) cz (RtoS z 2 4) ) (Write-Line (Strcat cx " " cy " " cz) f) (Setq countr (1+ countr)) ) ) ) ) ) (Close f) (Prin1) )
Reply to
Phantomdrsfter
Phantomdrsfter ha scritto:
excellent! thanks a lot!
Reply to
dginko

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.