import data excel to autocad

[mohammadreza]

hi every body
is there any lisp about this issue?
: i have a excel sheet that include coordinates and a text in every row
i need to import that text to those coordinate in autocad!

[devitg]

5 hours ago, mohammadreza said:

hi every body
is there any lisp about this issue?
: i have a excel sheet that include coordinates and a text in every row
i need to import that text to those coordinate in autocad!

@mohammadreza. Please upload both xls and DWG to apply it. It will be easiest. if the XLS is saved as CSV,"comma separated value" 

 

[BIGAL]

Like devitg post XLS, yes can read Excel direct. Only question is there always a header line ?

 

You could do it in Excel using a Concatenate command just copy in example column E to Autocad command line.

 

 

=CONCATENATE("(command ",CHAR(34),"TEXT",CHAR(34)," ",CHAR(34),A1,",",B1,CHAR(34)," ","2.5 0 ",CHAR(34),C1,CHAR(34),")")

 

Edited April 28 by BIGAL

[Jonathan Handojo]

If all you're after is importing the text, then I'd go with what @BIGAL suggested. By forming some formulae, you can create the necessary strings that you can simply just paste into the command line:

 

 

30000 is just an example text height that's set, and 0.0 is the rotation angle.

[fuccaro]

I do agree that the "Excel" way is easier. But if you wish my Lisp solution, here you are:

(defun c:pp()
  (setq separator ";")
  (setq textHeight 0.5)
  (setq fileName (getfiled "coords text" "" "CSV" 0)
	file (open fileName "r")
	)
  (while (setq row (read-line file))
    (setq p1 (1+ (vl-string-position (ascii separator) row))
	  p2 (1+ (vl-string-position (ascii separator) row p1))
	  x (read (substr row 1 p1))
	  y (read (substr row (1+ p1) (- p2 p1)))
	  txt (substr row (1+ p2))
	  )
    (entmake (list (cons 0 "TEXT") (list 10 x y 0) (cons 1 txt)(cons 40 textHeight)))
    )
  (close file)
  )

Save the Excel sheet in CSV format. Because the "comma" sometimes is not comma, open the file in notepad and examine the separator. Change the second line in this Lisp accordingly.

Also you may wish to change the text height -in the third line.

Enjoy!

[BIGAL]

You can say open an excel, then in CAD get current range eg A1:C100 skip row 1 as its a header, then just read the 3 cells in the row.

 

Need a sample XLS then can do code.

[SLW210]

You can set up the Excel as shown by BIG AL, then make it a Script file to put the text in AutoCAD.

 

You can also use VBA in Excel to send the text to AutoCAD. Add Text In AutoCAD Using Excel & VBA - My Engineering World

 

We need a File from you.

[BIGAL]

Thats a good Excel example may add to my add line, circle, pline, macro example.