How to convert 3d points to 2d and draw 2d diagram from it

[avinash00002002]

Hi,

I have some points in 3D. I want to convert elevation and side view from this points how to do?

[devitg]

@avinash00002002  as I can see the csv lost the points numbers . I aad it.

p1	316604.674	2083201.95	47.723	25	BK244
p2	316609.195	2083201.95	47.723	26	BK244
p3	316604.674	2083197.04	47.723	24	BK244
p4	316609.195	2083197.04	47.723	23	BK244
p5	316606.886	2083204.08	62.152	54	CA
p6	316606.895	2083194.96	62.152	53	CA
p7	316606.889	2083204.22	60.184	51	CU
p8	316606.903	2083194.77	60.184	52	CU
p9	316607.41	2083201.98	61.219	104	S 1
p10	316606.487	2083201.98	61.219	48	S 1
p11	316606.473	2083197.14	61.219	47	S 1
p12	316607.385	2083197.12	61.219	105	S 1
p13	316607.415	2083201.99	63.192	107	S 2
p14	316606.491	2083202	63.192	49	S 2
p15	316606.468	2083197.14	63.192	50	S 2
p16	316607.395	2083197.12	63.192	106	S 2

What do it mean the columns 5 and 6 ?

[avinash00002002]

Colum 4 & 5 is total station identification number. No use of that

[komondormrex]

hey,

for that particular csv.

(defun c:draw_tower ( / csv_file_name csv_file_id csv_list csv_line min_col_1 min_col_2 min_col_3)
  (setq csv_file_name "YOUR_DRIVE:\\YOUR_PATH\\BK 244.CSV"
	csv_file_id (open csv_file_name "r")
  )
  (while (setq csv_line (read-line csv_file_id))
    	(setq csv_list (append csv_list (list (read (strcat "(" (vl-string-translate "," " " csv_line) ")")))))
  )
  (close csv_file_id)
  (setq csv_list (mapcar '(lambda (coordinates_list) (list (car coordinates_list)
							   (cadr coordinates_list)
							   (caddr coordinates_list)
			  			     )
			  )
			  csv_list
		  )
	min_col_1 (apply 'min (mapcar 'car csv_list))
	min_col_2 (apply 'min (mapcar 'cadr csv_list))
	min_col_3 (apply 'min (mapcar 'caddr csv_list))
	csv_list (mapcar '(lambda (coordinates_list) (list (- (car coordinates_list) min_col_1)
							   (- (cadr coordinates_list) min_col_2)
							   (- (caddr coordinates_list) min_col_3)
						     )
			    )
			 csv_list
		 )
  )
  (foreach line '((2 4) (9 12) (13 16) (2 13) (4 16) (7 5) (5 9) (5 13) (8 6) (6 12) (6 16))
    (vla-addline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
                         		  (vlax-3d-point (cdr (nth (1- (car line)) csv_list)))
                         		  (vlax-3d-point (cdr (nth (1- (cadr line)) csv_list)))
    )
  )
  (foreach line '((3 4) (11 12) (15 16) (3 11) (11 15) (8 6) (4 12) (12 16))
    (vla-addline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
                         		  (vlax-3d-point (list (+ 11.5 (car (nth (1- (car line)) csv_list)))
							       		(caddr (nth (1- (car line)) csv_list)))
					    )
                         		  (vlax-3d-point (list (+ 11.5 (car (nth (1- (cadr line)) csv_list)))
							       		(caddr (nth (1- (cadr line)) csv_list)))
					    )
    )
  )
)

[leeminardi]

A very simple solution if you just want to import the point into AutoCAD is to use the concatenate command in Excel. Then copy and paste the contents of column G into the command prompt in AutoCAD.

Fill down cell G1 which contains

=CONCATENATE("point ",A1,",",B1,",",C1)

If you want the points in 2D just set x, y, or z to zero. Or use flatten in AutoCAD.

[avinash00002002]

Hi!

Thanks for your reply, How you coding can you explain because I have to draw plan view also other more tower also. So, I want to try myself.

please explain the code.

Thanks,

Avinash

[komondormrex]

well, program draws lines according to points' marking in your original dwg. points' absolute coordinates are getting from csv file and then converted to relative coordinates by substracting minimum column's value from each coordinate per column. then program draws lines from paired vertices numbered according to rows numbers minus 1 for lisp function 'nth'. front projection comes from 2nd and 3rd coordinates per point from csv, side projection comes from 1st and 3rd coordinates respectively. that's it. 

[avinash00002002]

II don't understand please elobrate.

[komondormrex]

you've got absolute coordinanates in XYZ. to draw front projection you need to use X and Z coordinates as X and Y coordinates in X0Y plane. to draw side projection you need to use Y and Z coordinates as X and Y coordinates respectively in X0Y plane too. numbers in sublists in 'foreach' statement are numbers of tower vertices to draw a line from to. 

[Sea-Haven]

If you load the points into CIV3D and have matching description keys then it will string correct.

Ok now elevation views is easy go to a layout and do mview for each view, 2 ways use VPOINT can set manually -vpoint 1,1,1 or 1,0,0 or 0,1,1 or use the view wheel to set direction.

Note did UCS w 1st on dwg

Whilst you have all the points not sure how auto wise it will know which points join to which points.

[avinash00002002]

I tried myself for creating plan view and it is not working.

Code:

(foreach line '((4 2) (2 1) (1 3) (3 4))
(vla-addline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
(vlax-3d-point (car (nth (1- (car line)) csv_list)))
(vlax-3d-point (cadr (nth (1- (cadr line)) csv_list)))
)
)

any idea where I have done a mistake.

Thanks,

Avinash

[komondormrex]

Do you have points' csv for these other towers?

[komondormrex]

for left tower front view should go like that

(foreach line '((16 17) (2 10) (10 12) (12 1) (3 7) (7 6) (6 4) (17 6) (16 7))

(vla-addline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
(vlax-3d-point (car (nth (1- (car line)) csv_list)))
(vlax-3d-point (cadr (nth (1- (cadr line)) csv_list)))
)
)

[avinash00002002]

yes I have .csv files for all towers