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!
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!
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) )
Phantomdrsfter ha scritto:
excellent! thanks a lot!
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.