Help needed for modification of block extraction lisp

[Tom Beauford]

Should these be other way around XY not YX ?

Coordinates for locations are provided using two sets of numbers on a simple Cartesian coordinate system. This way, locations can be found using easting/northing (or x,y) pairs. As a convention, the pair is typically represented easting first, northing second.

As a licensed surveyor for 47 years who also used GIS that's the only way I've ever seen it labeled but what Peter said about Survey Data could also be true as Civil 3D offers many options for importing Survey Data including Northing, Easting, Elevation & Description or Station, Offset, Elevation & Description (which offers options for labeling points that way as well).

[BIG-AL]

Try this for block vaues as text. No mention of what to do with the answer, a table, a csv, to Excel please advise.

(defun c:txblk ( / ss bname lst lst2 x)
(defun Nestedtext (blockName / ename ret)
 (setq ename (tblobjname "block" blockName)
       ret   (entget ename)
       )
	   (setq lst '())
  (if ename
      (while (setq ename (entnext ename))
	    (if (= (car (assoc 1 (entget ename))) 1)
		(setq lst (cons (cdr (assoc 1 (entget ename))) lst))
		)
      )
  )
(setq lst (reverse lst))  
)
(setq lst2 '())
(setq ss (ssget '((0 . "insert"))))
(repeat (setq x (sslength ss))
(setq bname (cdr (assoc 2 (entget (ssname ss (setq x (1- x)))))))
(Nestedtext  bname)
(setq lst2 (cons lst lst2))
)
(setq lst2 (reverse lst2))
(princ lst2)
(princ)
)
(c:txblk)

[Osama.Omari]

Open AutoCAD from the Ribbon select Insert then to right select “Extract Data”
Or type “DATAEXTRACTION”
1.png
Next
2.png
Save dxe file with name you want.
3.png
Now you can select a folder full of drawings that contains blocks with attributes you want to extract to file or table or both
4.png
After selecting the folder all the drawings in the folder and subfolders will be included
5.png
Next

[Osama.Omari]

Next

next
 6.png

Next
7.png
Next
8.png
Next save to excel and AutoCAD Table
9.png
Next
t_exl.png
Next