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!
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

(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? <N> " ) ) ) ) ) (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? <N> " ) ) ) ) ) (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) )
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
Phantomdrsfter ha scritto:

<cut>
excellent! thanks a lot!
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.