How to create a lisp program displaying coordinates

[bharthts01]

Which parts specifically do you not understand?

If you do not understand my explanations, I would expect you to ask questions for clarification, not bluntly dismiss the explanation out of hand.

I'll choose to ignore the immature comment while you reconsider which one of us is asking for help.

Ok my bad, my apologies for that ignorant comment.

Basically what you're trying to say is if I put a number after

(strcat "X=" (rtos (car p)) "\\XY=" (rtos (cadr p)))

(strcat "X=4" (rtos (car p)) "\\XY=" (rtos (cadr p)))

This should then change the 'gap' between each of the x and y coordinates?

EDIT: No, it doesn't it just adds a number in front of the x and y coordinates.

The luprec and And lunits just confuse me, I put a number e.g. 3/4 and it adds fractions to the end of the coordinates.

[Lee Mac]

Basically what you're trying to say is if I put a number after

(strcat "X=" (rtos (car p)) "\\XY=" (rtos (cadr p)))

(strcat "X=4" (rtos (car p)) "\\XY=" (rtos (cadr p)))

This should then change the 'gap' between each of the x and y coordinates?

EDIT: No, it doesn't it just adds a number in front of the x and y coordinates.

The luprec and And lunits just confuse me, I put a number e.g. 3/4 and it adds fractions to the end of the coordinates.

To explain further, the rtos function (as used in my code) converts the X & Y numerical coordinate values of the selected point into strings to be used with the DimOrdinate command.

The rtos function takes the following format:

(rtos <number> <units> <precision>)

If the units and precision parameters are not supplied, rtos will use the current values of the LUNITS and LUPREC System Variables.

To use specific Units and Precision, supply the rtos function with the units and precision parameters, hence, in my code:

(strcat "X=" (rtos (car p)) "\\XY=" (rtos (cadr p)))

becomes:

(strcat "X=" (rtos (car p) 2 0) "\\XY=" (rtos (cadr p) 2 0))

Here, 2=decimal and 0=zero decimal places.

The "\\X" part of the string:

(strcat "X=" (rtos (car p) 2 0) "\\XY=" (rtos (cadr p)2 0))

forces the subsequent text ("Y=....") onto a new line beneath the dimordinate dimension line.

Removing the "\\X" from the string will keep everything on the same line:

(strcat "X=" (rtos (car p) 2 0) " Y=" (rtos (cadr p) 2 0))

[bharthts01]

:

(strcat "X=" (rtos (car p) 2 0) " Y=" (rtos (cadr p) 2 0))

I think I just about follow you on that one, I've done it so I've edited to the code out so it displays X and Y on the same line (like you've stated removal of "\\XY=" to just Y=.

I've done all that but when it comes to running the lisp I get this error "malformed list on input". I'm going to assume this means I've entered the code wrong.

(defun c:dimo ( / p )
    (while (setq p (getpoint "\nSpecify Point <Exit>: "))
        (command "_.dimordinate" "_non" p "_T" (strcat "X=" (rtos (car p) 2 0) "Y=" (rtos (cadr p) 2 0)
    )
    (princ)
)

If it helps this is the new code, I've edited out the xy so it shows the coordinates on the same line

[bharthts01]

I see I've sorted it now by simply adding 2 0 into the code it's changed it to 9 digits and put it on the same line.

[Lee Mac]

Close...

The malformed list on input indicates that you are missing one or more closing parentheses ")"

You are also missing the pause for the final point, corrected:

(defun c:dimo ( / p )
    (while (setq p (getpoint "\nSpecify Point <Exit>: "))
        (command "_.dimordinate" "_non" p "_T" (strcat "X=" (rtos (car p) 2 0) " Y=" (rtos (cadr p) 2 0)) "\\")
    )
    (princ)
)

[bharthts01]

Wow thought I'd never understand this Java language stuff. Thanks for the help mate. Really appreciated.

[cadplayer]

Annother way to do your workset without any lisp to look for oportonities with blocks. It´s very easy to learn. You make a block with two attributes and than you marks text from attributes an put right button of mouse. You can read textfield in tab an choice it. Than you give a charakter for textobject... Take a look on Lynn Allen´s explanation she´s done it only with text but you can also do the same with a attribute. (http://www.youtube.com/watch?v=2cDal...eature=related).

You have to marke a object in a block and give properties for x&y coordinates.
Try it if you can´t understand Autolisp in the beginning.

cheers Dirk

[JGC]

Hello
I am a setting out engineer just getting into Autocad. I am able to scale and localize the drawings at the minute. I am now looking to id points and note the eastings and northings by the points, so that I can print it off to take out on site. The lisp program here, when I run it, only gives me 2 decimal places (10's of mm) where I need 3 decimal places (mm accuracy).
Can anyone please change the code for 3 decimal places.

I have found mulitleader type lisps that give me 3 decimal places. However for some reason the co-ords come up in a massive size.

[Lee Mac]

The lisp program here, when I run it, only gives me 2 decimal places (10's of mm) where I need 3 decimal places (mm accuracy).
Can anyone please change the code for 3 decimal places.

Read this post:

http://www.cadtutor.net/forum/showth...l=1#post491719

[JGC]

I have had a look at the thread and then a look at the lisp code.

I have changed "(defun go_ne ()(setvar "luprec" 2)" to "(defun go_ne ()(setvar "luprec" 3)" and this seems to work.

I have seen your name on a couple of other threads I repled to yesterday. (I have found other multileader lisps that do the same thing, but the text comes out massive compared to the dwg.)

Thankyou for your time.