labelling coordinates

Just another quick question. How would i go about putting the coorinates of a point on the drawing.

So when I id a point, i can put a label of its value on the drawing?

Thanks for any info

On my way out of the door now, but if you search in the VBA, lisp and Customization part of the forum, there is a lisp in there called CR.lsp written by Lee Mac (do a search on that forum on threads started by Tiger and you should find it at the top of the list) that does just that.

I think you could explore FIELDS where you can put an x,y coordinate at the ends of lines.

Or there is Ordinate dimension, which only gives you an x coordinate or a y coordinate at a time (depending on which way you pull the crosshair).

Or you could find a lisp programme which can write a point number in the drawing, and write that point number with the x,y,z coordinates into an external file.

It leaves less room for error if you can get the computer to write coordinates, rather than writing and then entering numbers manually.

Instead of adding to an ancient thread (which makes following very difficult), you could try going to Asmi's site where his lisp ordi.lsp will do what you want it to.

Well I thought adding to a thread which has a good few members who are all on about a similar sort of thing would be a sensible idea. Appologise if it was too difficult to follow but i copied the exact .lsp that I was talking about into my post. So it should have explained it all really.

Anyway, thanks for that site, very usefull! It's only the last 2 day's I have tried to improve my ability on AutoCAD (been at a very basic stage for along time)

That LSP is what I am after, but for some reason, when i select a point and then go to plot the xy coordinates, the line does not come from the exact point, but is offset by 40. Had a quick look at the lsp in notepad, and can't see anything refering to this. I am running AutoCAD2009

That is because the lisp is based on the dimensioning in AutoCAD, and the offset you are seeing is the extension line offset.

If you go into Format, Dimension style, Lines and Arrows, Extension Lines, you will be able to set this offset from origin to 0, and then you will have no gap.

Hey do you have this lisp? I was wondering if you could share it? The link for asmi's site is no longer valid ...apparantly. Thanks!

From ASMI...

AsmiTools_Ordi.zip

thncx i chk this file its good

if u have another files same like this so plz share at this page plzzzz

Another very simple one:

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:mpt [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] _MText norm pt [b][color=RED])[/color][/b]
 [i][color=#990099];; © Lee Mac 2010[/color][/i]

 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] _MText [b][color=RED]([/color][/b] pt val norm [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]entmakex[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#a52a2a]"MTEXT"[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#a52a2a]"AcDbEntity"[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#a52a2a]"AcDbMText"[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]UCSXDIR[b][color=RED]))[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b]  val[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]210[/color][/b] norm[b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] norm [b][color=RED]([/color][/b][b][color=BLUE]trans[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009999]0.[/color][/b] [b][color=#009999]0.[/color][/b] [b][color=#009999]1.[/color][/b][b][color=RED])[/color][/b] [b][color=#009900]1[/color][/b] [b][color=#009900]0[/color][/b] [b][color=BLUE]t[/color][/b][b][color=RED]))[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]terpri[/color][/b][b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#a52a2a]"\rSpecify Point: "[/color][/b][b][color=RED]))[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]trans[/color][/b] pt [b][color=#009900]1[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED]))[/color][/b]
   
   [b][color=RED]([/color][/b]_MText pt
     [b][color=RED]([/color][/b][b][color=BLUE]apply[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]strcat[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#a52a2a]"X = "[/color][/b] [b][color=#a52a2a]"\nY = "[/color][/b] [b][color=#a52a2a]"\nZ = "[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]rtos[/color][/b] pt[b][color=RED]))[/color][/b]
     [b][color=RED])[/color][/b]
     norm
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
[b][color=RED])[/color][/b]

i cant go through like this style i dont no how to put like this text in cad sorry for this question,

I don't understand.

Do you not know how to load the LISP code? If not, see here.