try this
(defun c:Civiltocsv (/ pnts i obj pnt eastng northng elev player FEAT FEATUR FILE2OPEN F_OPEN LN LNP LST OLDBLIPMODE OLDLAYER OLDSNAP)
(vl-load-com)
(if (setq pnts (ssget '((0 . "AECC_COGO_POINT")))) ;select COGO points
(PROGN
(repeat (setq i (sslength pnts))
(setq obj (vlax-ename->vla-object (ssname pnts (setq i (1- i)))))
(setq pnt (vlax-get obj 'number)
eastng (vlax-get obj 'easting)
northng (vlax-get obj 'northing)
elev (vlax-get obj 'elevation)
;;; player (vlax-get obj 'layer)
) ;end of setq
(setq FEAT(LIST pnt eastng northng elev))
(setq FEATUR(CONS FEAT FEATUR))
) ;end of repeat
(setq lst(apply 'append FEATUR))
(setq file2open (vl-filename-mktemp "Civiltocsv" (getvar 'dwgprefix) ".csv"))
(setq f_open (open file2open "w"))
(princ "NU" f_open)
(princ ";" f_open)
(princ "X" f_open)
(princ ";" f_open)
(princ "Y" f_open)
(princ ";" f_open)
(princ " Z" f_open)
(princ ";" f_open)
(princ "\n" f_open)
(repeat (/ (length lst) 4)
(princ (rtos (car lst) 2 3) f_open)
(princ ";" f_open)
(princ (rtos (cadr lst) 2 3) f_open)
(princ ";" f_open)
(princ (rtos (caddr lst) 2 3) f_open)
(princ ";" f_open)
(princ (rtos (cadddr lst) 2 3) f_open)
(princ ";" f_open)
(princ "\n" f_open)
(setq lst (cddddr lst))
)
(close f_open)
(startapp "explorer" file2open);opin excel
(princ "No point selected!")
)) ;end of if
(princ)
)
Interesting idea that falls in line with a previous request we've had for our C3DTools. Here is what we have planned. The tool would have a create option that would take all CogoPoints in the drawing and write them directly out to a XLSx file, the file name being the same as the drawing name. Then whenever you open a drawing later (or when commanded) if the spreadsheet exists it would read the external file, adjust any points that had changed, remove any that were missing and add any that were added to the spreadsheet.
Of course on drawing close (only if any CogoPoints were changed, removed or added) it would need to update the spreadsheet to keep them synchronized.
Maybe add a setting for automatic or on prompted approval for the load / change drawing.
DotSoft: The Leading Developer
(defun c:csvTOCivil (/ C3D C3DDOC D DATA F FILEPATH I LN OCOGO OK POINTS)
(vl-load-com)
(if (setq FilePath (getfiled "Select TEXT file to read :"
(getvar "dwgprefix")
"csv"
4
)
)
(progn
(defun getC3D ()
(vl-load-com)
(setq C3D (strcat "HKEY_LOCAL_MACHINE\\"
(if vlax-user-product-key
(vlax-user-product-key)
(vlax-product-key)
)
)
C3D (vl-registry-read C3D "Release")
C3D (substr
C3D
1
(vl-string-search
"."
C3D
(+ (vl-string-search "." C3D) 1)
)
)
C3D (vla-getinterfaceobject
(vlax-get-acad-object)
(strcat "AeccXUiLand.AeccApplication." C3D)
)
)
(setq C3Ddoc (vla-get-activedocument C3D))
)
(getC3D)
(setq points (vlax-get C3Ddoc 'points))
(if filepath
(progn
(setq f (open FilePath "r"))
(setq ln (read-line f))
(while (setq ln (read-line f))
(setq data (cons (str2list ln ";") data))
)
(close f)
(setq data (reverse data))
(setq i -1)
(while (< (setq i (1+ i)) (length data))
(PROGN
(setq d (nth i data)
OK NIL)
(vlax-for s points
(if (equal (vlax-get s 'number) (FIX (atof (nth 0 d))))
(PROGN
(vla-put-elevation s (atof (nth 3 d)))
(setq OK 1)
);; (PROGN
;; (PROGN
);;IF
);;vlax-for
(if (/= OK 1)
(PROGN
(setq oCogo(vlax-invoke points 'add (list (atof (nth 1 d)) (atof (nth 2 d)) (atof (nth 3 d)))))
(setq OK NIL)
)
)
);; (PROGN
);;Vwhile
); (PROGN
);;IF
);(PROGN
);;IF
); ; ;;;; defun ;;;;
;;;str2list by John Uhden, as posted to the adesk customization newsgroup a long time ago
(defun Str2List (str pat / i j n lst)
(cond
((/= (type str) (type pat) 'STR))
((= str pat) '(""))
(T
(setq i 0
n (strlen pat)
)
(while (setq j (vl-string-search pat str i))
(setq lst (cons (substr str (1+ i) (- j i)) lst)
i (+ j n)
)
)
(reverse (cons (substr str (1+ i)) lst))
)
)
)
