Label XY Coordinates with a Leader

[mwyant2]

I am interested in labeling points on my drawing with reference to the UCS. I would like the finished label to be a leader line with x and y on two separate lines. I have found other posts of similar ideas, but I couldn't seem to get them to work. It would be an added bonus to label each line automatically as well. I assume this will have to be a script that I write. I am working on reading up on how to write them but any help would be appreciated.

[hmsilva]

HI mwyant2

try this...



(defun C:cxy ()
(setvar "cmdecho" 0)

(setq pt1 (getpoint "\nPique o ponto a coordenar: "))
(if pt1
(progn
(setq pt2 (getpoint pt1 "\nPique ponto de inicio do texto: "))
(if pt2
(progn
(setq txtx (strcat "M=" (rtos (car pt1) 2 4) "\n"))
(setq txty (strcat "P=" (rtos (cadr pt1) 2 4) "\n"))
(princ "\n")
(command "leader" pt1 pt2 "Annotation" txtx txty "")
)
)
)
)
(setvar "cmdecho" 1)
(princ)
)

Cheers


Henrique

[mwyant2]

I ran the script and it never asks for the point that I want to label. Am I using it wrong?

[hmsilva]

Hi mwyant2

Save the cxy.lsp file in yor computer

Load the application in Autocad

Then type

C:cxy

Cheers

Henrique

[mwyant2]

Thanks for the reply. The code is great. One quesiton though how can I change it into feet and inches? It does exactly what I want it to do.

[Anonymous]

Change these two lines

(setq txtx (strcat "M=" (rtos (car pt1) 2 4) "\n"))
(setq txty (strcat "P=" (rtos (cadr pt1) 2 4) "\n"))

to these

(setq txtx (strcat "M=" (rtos (car pt1) 4 4) "\n"))
(setq txty (strcat "P=" (rtos (cadr pt1) 4 4) "\n"))

The first 4 is the unit, in this case Architectural.

1 Scientific
2 Decimal
3 Engineering (feet and decimal inches)
4 Architectural (feet and fractional inches)
5 Fractional

The second 4 is the precision. The lower the number, the lower the
precision.

--
Matt W
"Children are like TV sets. When they start acting weird, whack them across
the head with a big rubber basketball shoe."

[mwyant2]

Thank you so much for all the help. This command now does exactly what we want it to. I figured out how to change a few other things and now hopefully I am on my way to write others to help me work quicker.

Thanks

[hmsilva]

You're welcome, mwyant2

Cheers

Henrique

[Anonymous]

what's wrong with using DIMORDINATE?
format two coincident dimordinate object, horizontal and vertical, the way
they need to look then insert that where you need it

wrote in message news:4996483@discussion.autodesk.com...
I am interested in labeling points on my drawing with reference to the UCS.
I would like the finished label to be a leader line with x and y on two
separate lines. I have found other posts of similar ideas, but I couldn't
seem to get them to work. It would be an added bonus to label each line
automatically as well. I assume this will have to be a script that I write.
I am working on reading up on how to write them but any help would be
appreciated.

[mwyant2]

That is originally how I was finding the points then retyping it in to a leader box. I wanted both of the dimensions horizontal and labeled CL and PL for center line and plaster line. It is for theatre. It looks very clean and neat on the plan. It is also how everyone here is used to seeing the dimensions of a point. The script way is just much faster.

[ctpgamage]

i have attached current status of this lisp please help me some one to make my requirement (i have attached what i want to make)

please help me

[hmsilva]

---

@ctpgamage wrote:

i have attached current status of this lisp please help me some one to make my requirement (i have attached what i want to make)

please help me

---

Hi ctpgamage,

try the attached code.

Hope that helps

Henrique

[ctpgamage]

thank you very much hmsilva..you are a great person salute for you.....

[hmsilva]

You're welcome, ctpgamage
Glad I could help

Henrique

[stevesfr]

what controls the size of the arrowhead in the xyz.lsp program ?

[hmsilva]

---

@stevesfr wrote:
what controls the size of the arrowhead in the xyz.lsp program ?

---

In XYZ.lsp, the arrowhead size is defined in current dimension style (DIMASZ System Variable), and the code will add a leader with all default values, if you need to change some value, you'll need to set the property you want with the desired value.
To set a new arrowhead size try

(vla-put-verticaltextposition lead acvertcentered)
(vla-put-ArrowheadSize lead 3.0);; <<<<<
(vla-update lead)

Hope that helps

Henrique

[stevesfr]

thanks Henrique

[hmsilva]

You're welcome, stevesfr

Henrique

[joedints]

Your XYZ.lsp is wrong, it is showing the x value as north and the y value as east, they should be reversed.  

It is a very handy tool, although I do not know how to correct it. 

[Kent1Cooper]

---

@joedints wrote:

Your XYZ.lsp is wrong, it is showing the x value as north and the y value as east, they should be reversed.  

.... 

---

I was going to ask whether you were in the World Coordinate System, but I downloaded it and tried it, and you're correct.  Change these lines:

....

    tstr (strcat (strcat "N=" (rtos (car pt1) 2 4))
         (strcat "\\PE=" (rtos (cadr pt1) 2 4))

....

to reverse the X (car) and Y (cadr) coordinates:

....

    tstr (strcat (strcat "N=" (rtos (cadr pt1) 2 4))
         (strcat "\\PE=" (rtos (car pt1) 2 4))

....