Coordinate lisp

[Madruga_SP]

Hi guys,

Happy New Year!!!

 

I need to put the coordinate about 176 blocks in my drawing.

I'm looking for a lisp to do that. I was wondering if someone could help me.

 

I'm using ID command and copy and paste the x and y coordinate. I'm wasting a lot of time.

 

I'll will be really happy if someone could help me out.

 

I'm attaching a example

Thank in advance

[ReMark]

There are plenty of lisp routines that will place coordinates in a drawing but I don't know of one that will do it automatically. Here is a description of one such program.

 

Auto Coordinate Dynamic Block is used to label coordinates automatically in the drawing instead of using any lisp. The attribute fields get the eastward and northward values, The dynamic properties of the block make it flexible and can adjust the size by Annotative scale.

[eldon]

This thread could be of use

[hmsilva]

I'm attaching a example

Hi Madruga_SP,

? the example ?

 

Henrique

[Madruga_SP]

Yep Henrique,

Because the table is complicated and I think that a lisp isn't doing that.

 

But if the code make as I want to. It will be great, mate!

 

 

I was thinking something that you pick the points and in the end create a text file with coordinates.

Then I copy and paste the results.

 

Regards

coordinate-test.dwg

[pBe]

Hi Madruga_SP,

? the example ?

 

Henrique

 

I don't see it either

 

Yep Henrique,

 

Where is the attachment Madruga_SP?

[Madruga_SP]

Sorry...

Henrique

coordinate-test.dwg

[pBe]

ACAD_TABLE with lisp is easy Madruga_SP. Do you need a table on the drawing or an external file? or both?

[Madruga_SP]

pBe,

Is not so fancy friend. Maybe a notepad or autocad text windows wil be good.

 

e.g

TEST.txt

[pBe]

Okay then, via pick points? or global?

 

no answer?

 

Anyhoo.

(defun c:nsf (/ data file ss op number coord str2dis) ;<< Not So Fancy 
 (setq data nil)
 (if (and
(ssget "_X"
       (list '(0 . "INSERT")
	     '(2 . "quadra")
	     (cons 410 (getvar 'ctab))
       )
)
(setq file
       (getfiled "Enter file name" (getvar 'dwgprefix) "txt" 1)
)
     )

   (progn
     (vlax-for	itm (setq
	      ss (vla-get-ActiveSelectionSet
		   (vla-get-ActiveDocument (vlax-get-acad-object))
		 )
	    )
(setq number (atoi (vla-get-textstring
		     (car (vlax-invoke itm 'Getattributes))
		   )
	     )
)
(setq coord (vlax-get itm 'Insertionpoint))
(if (/= number 0)
  (setq	data (cons
	       (list number
		     (strcat
		       (rtos (car coord) 2 4)
		       "\t\t"
		       (rtos (cadr coord) 2 4)
		     )
	       )
	       data
	     )
  )
)
     )
     (vla-delete ss)
     (setq op (open file "w"))
     (foreach val (vl-sort data '(lambda (a b) (< (car a) (car b))))
(princ
  (Strcat
    "\n"
    (setq str2dis (strcat (itoa (car val)) "\t" (cadr val)))
  )
)
(write-line str2dis op)
     )
     (close op)
     (startapp "Notepad" file)
   )
 )
 (princ)
)

Edited January 6, 2015 by pBe

[Madruga_SP]

Sorry for delay.

 

I went to lunch.

 

Could be pick all block's named quadra and give me the coordinates?

 

I don't know how to use your code.

Edited January 6, 2015 by Madruga_SP

[Madruga_SP]

Hi guys,

Could anybody help me out please?

 

I really need that informations...

 

Regards

[Tharwat]

Madruga , I am really surprised that you don't know how to load a lisp file !

[pBe]

Sorry for delay.

 

I went to lunch.

 

Could be pick all block's named quadra and give me the coordinates?

 

I don't know how to use your code.

 

Load the code and type NSF at the command prompt:

 

command: NSF

 

Simple like that

[Madruga_SP]

Madruga , I am really surprised that you don't know how to load a lisp file !

 

My bad guys. I've realized that I had to explode the block to renumber them.

 

The code isn't working

[Madruga_SP]

Thank you pBe!!

Your code is wonderful worked like a charm.

 

But I exploded all blocks to renumber and now it's just a circle and text.

[Tharwat]

You must be using another Attributed block than the one you have uploaded in this thread . I guess

[Madruga_SP]

You must be using another Attributed block than the one you have uploaded in this thread . I guess

 

Hi my friend Tharwat,

I had to insert all blocks again.

 

It works great!

 

Thank you

[Tharwat]

Hi my friend Tharwat,

I had to insert all blocks again.

 

It works great!

 

Thank you

 

Good to hear that

 

All credits go to pBe for the nice codes for sure

[Madruga_SP]

Good to hear that

 

All credits go to pBe for the nice codes for sure

 

Kudos for everyone!!

I'm really happy with the goal.

 

Thank you