Export data from the PipeNetworks to CSV

hosneyalaa — Sat, 22 May 2021 21:18:15 GMT

(defun c:ShortestNetworkPathTOcsv ( / ACADOBJ ACTIVEUNDO ADDPIPENETWORK01 ADOC COORDENDINVERT COORDENDPOINTX COORDENDPOINTY COORDENDPOINTZ COORDL1 COORDL2 COORDLENGTH2D COORDLENGTH3D COORDMAXIMUMCOVER COORDMINIMUMCOVER COORDN COORDRADIUS COORDROTATION COORDS COORDSLOPE COORDSTARTINVERT COORDSTARTPOINTX COORDSTARTPOINTY COORDSTARTPOINTZ COORDSUMPELEVATION COORDX COORDY COORDZ CSV DEL ENT I NAMEPIPENETWORK OPF PIDMINPATHARRAY PIPEAPP PIPEDOC PIPENETWORK PTH SPPIDMINPATHARRAY SPPIDMINPATHARRAY01 SS STRUCTURE01 STRUCTURE02 X) (defun *error* ( msg ) (if opf (close opf)) (vla-EndUndoMark adoc) (if (not (wcmatch (strcase msg T) "*break*,*cancel*,*exit*")) (princ (strcat "Error: " msg)) ) ) (setq pipeapp (strcat "HKEY_LOCAL_MACHINE\\" (if vlax-user-product-key (vlax-user-product-key) (vlax-product-key) ) ) pipeapp (vl-registry-read pipeapp "Release") pipeapp (substr pipeapp 1 (vl-string-search "." pipeapp (+ (vl-string-search "." pipeapp) 1) ) ) pipeapp (vla-getinterfaceobject (vlax-get-acad-object) (strcat "AeccXUiPipe.AeccPipeApplication." pipeapp) ) ) (setq pipedoc (vla-get-activedocument pipeapp)) (setq PipeNetwork (vlax-get pipedoc 'PipeNetworks)) (setq namePipeNetwork (vlax-get-property (setq addPipeNetwork01(vlax-invoke-method PipeNetwork 'item 0)) 'name )) (setq Structure01 (vlax-ename->vla-object (setq ent (car (entsel "\nSelect Structure01 "))))) (setq Structure02 (vlax-ename->vla-object (setq ent (car (entsel "\nSelect Structure02 "))))) (vlax-invoke-method addPipeNetwork01 'FindShortestNetworkPath Structure01 Structure02 'pidMinPathArray 'pdMinPathLength) (setq sppidMinPathArray (vlax-safearray->list pidMinPathArray)) (setq sppidMinPathArray01 (append sppidMinPathArray (list Structure02)) ) (defun getcoords (ln) (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ln)))) (defun lst->str (lst del) (apply 'strcat (append (list (car lst)) (mapcar '(lambda (x) (strcat del x)) (cdr lst))))) (setq acadobj (vlax-get-acad-object) adoc (vla-get-ActiveDocument acadobj) activeundo nil) (if (= 0 (logand 8 (getvar "UNDOCTL"))) (vla-StartUndoMark adoc) (setq activeundo T)) ;;https://www.cadtutor.net/forum/topic/70959-text-polyline-data-to-csv/ (if (and (setq ss sppidMinPathArray01) (setq pth (getfiled "Select CSV Output file" "" "csv" 1)) ) (progn (setq del (cond ((vl-registry-read "HKEY_CURRENT_USER\\Control Panel\\International" "sList")) (";"))) (repeat (setq i (length ss)) (setq coords (nth (setq i (1- i)) ss)) (if (= 2 (vlax-get-property (vlax-get-property coords 'PartFamily) 'Domain )) (progn (setq coordn (vlax-get-property coords 'name)) (setq coordX (vlax-get-property (vlax-get-property coords 'position) 'X) ) (setq coordY (vlax-get-property (vlax-get-property coords 'position) 'Y) ) (setq coordZ (vlax-get-property (vlax-get-property coords 'position) 'Z) ) (setq coordSumpElevation (vlax-get-property coords 'SumpElevation )) (setq coordRotation (vlax-get-property coords 'Rotation )) (setq csv (cons (strcat coordn del (lst->str (mapcar 'rtos (list coordX coordY coordZ coordSumpElevation coordRotation)) del)) csv) ) );;;(progn (progn (setq coordn (vlax-get-property coords 'name)) (CAR (vlax-safearray->list (vlax-variant-value (vlax-get-property coords 'PointAtParam 0)))) (setq coordStartPointX (CAR (vlax-safearray->list (vlax-variant-value (vlax-get-property coords 'PointAtParam 0)))) ) (setq coordStartPointY (CADR (vlax-safearray->list (vlax-variant-value (vlax-get-property coords 'PointAtParam 0)))) ) (setq coordStartPointZ (CADDR (vlax-safearray->list (vlax-variant-value (vlax-get-property coords 'PointAtParam 0)))) ) (setq coordStartINVERT (- coordStartPointZ (/ (vlax-get-property coords 'InnerHeight) 2)) ) (setq coordEndPointX (CAR (vlax-safearray->list (vlax-variant-value (vlax-get-property coords 'PointAtParam 1)))) ) (setq coordEndPointY (CADR (vlax-safearray->list (vlax-variant-value (vlax-get-property coords 'PointAtParam 1)))) ) (setq coordEndPointZ (CADDR (vlax-safearray->list (vlax-variant-value (vlax-get-property coords 'PointAtParam 1)))) ) (setq coordEndINVERT (- coordEndPointZ (/ (vlax-get-property coords 'InnerHeight) 2)) ) (setq coordRadius (vlax-get-property coords 'Radius) ) (setq coordLength2D (vlax-get-property coords 'Length2D) ) (setq coordLength3D (vlax-get-property coords 'Length3D) ) (setq coordMaximumCover (vlax-get-property coords 'MaximumCover ) ) (setq coordMinimumCover (vlax-get-property coords 'MinimumCover) ) (setq coordSlope (vlax-get-property coords 'Slope) ) (setq coordL1 (list coordStartPointX coordStartPointY coordStartPointZ ) ) (setq coordL2 (list coordStartINVERT coordEndPointX coordEndPointY coordEndPointZ coordEndINVERT coordRadius coordLength2D coordLength3D coordMaximumCover coordMinimumCover coordSlope) ) (strcat (strcat coordn del (lst->str (mapcar 'rtos coordL1) del)) del " " del " " del (lst->str (mapcar 'rtos coordL2) del)) (setq csv (cons (strcat (strcat coordn del (lst->str (mapcar 'rtos coordL1) del)) del " " del " " del (lst->str (mapcar 'rtos coordL2) del)) csv) ) ;;; (setq csv (cons (strcat coordn del (lst->str (mapcar 'rtos coordL) del)) csv) ) );;(progn );;;IF );; (repeat (if (setq opf (open pth "w")) (progn (foreach x (cons "NAME;StartPointX;StartPointY;StartPointZ;SumpElevation;Rotation;StartINVERT;EndPointX;EndPointY;EndPointZ;EndINVERT;Radius;Length2D;Length3D;MaximumCover;MinimumCover;Slope" csv) (write-line x opf)) (close opf) ;;(reverse csv) ; (startapp "explorer" pth) ; <-- To directly open the CSV file, uncomment this line ) (alert "\nCSV file not successfully created! Please check that the file is closed and try again!") ) (startapp "explorer" pth);opin excel ) ) (if activeundo nil (vla-EndUndoMark adoc)) (princ) )

Re: Export data from the PipeNetworks to CSV

tony1978 — Mon, 24 May 2021 06:09:33 GMT

cool but you can just copy the data from the Panorama copy to clipboard and paste to excel? Did this do something different?

Re: Export data from the PipeNetworks to CSV

hosneyalaa — Mon, 24 May 2021 14:31:11 GMT

@Jeff_M AND

What is your idea of the code

I guess the difference is in
Arrangement elements of the Network
And in the output information and the determination of the path quickly

Re: Export data from the PipeNetworks to CSV

Jeff_M — Mon, 24 May 2021 16:55:57 GMT

@tony1978 The big differences I see:

With this lisp you can select just 2 structures and it will list all pipes and structures between them in one view. Whereas the Panorama shows all pipes in one view and all structures in another.

@hosneyalaa It looks like it does what you intended it to do. I like how it shows the structures and pipes in the order they appear in the drawing.

Re: Export data from the PipeNetworks to CSV

hosneyalaa — Mon, 24 May 2021 19:00:10 GMT

@Jeff_M

Thank
On this explanation
I cannot explain well because my English is not good

Thank ALL

Re: Export data from the PipeNetworks to CSV

tony1978 — Mon, 24 May 2021 19:04:21 GMT

oh ok I see what you are saying. Makes since.

Re: Export data from the PipeNetworks to CSV

albayatya — Mon, 10 Feb 2025 17:34:35 GMT

Hey Jeff,

can you reimport after the edits on the pipe network. as you know on Blocks we do Attout then Attin.

is there something similar without paying for extension.

Thanks

Re: Export data from the PipeNetworks to CSV

michael — Thu, 13 Feb 2025 14:12:48 GMT

See C:\Program Files\Autodesk\AutoCAD 20XX\C3D\Sample\Civil 3D API\DotNet\VB.NET\PipeSample

This exports all pipe and manhole information to Excel. Years ago (V2006?) and one of my first vb learning projects I used this and amended the code to import the data back into Civil3d. You just needed to tweak to export the Handle or ObjectID I think.

I still use this occasionally now to change notes or other elements for Bim/Production.

Mike

topic Export data from the PipeNetworks to CSV in Civil 3D Customization Forum

Export data from the PipeNetworks to CSV

Re: Export data from the PipeNetworks to CSV

Re: Export data from the PipeNetworks to CSV

Re: Export data from the PipeNetworks to CSV

Re: Export data from the PipeNetworks to CSV

Re: Export data from the PipeNetworks to CSV

Re: Export data from the PipeNetworks to CSV

Re: Export data from the PipeNetworks to CSV