Distance to Text - LISP Request

[JohnC_ISM]

looking to get a lisp that take the info from the distance command and prints to screen to insert wherever, scaled according to dimscale

autocad LDT 09

text style is romans

text font size is 0.075 of dimscale

with the foot sign 

see image.

[john.uhden]

If you have LDT, why not just add a distance label?

[JohnC_ISM]

its just easier, rather than having to change the label from the bearing/dist label im using to the right scaled label just to have to change it back for later. 

[Kent1Cooper · Accepted solution]

How about just using an Aligned Dimension, in a Style defined to suppress both extension lines and both dimension lines?

That way, if you Stretch the geometry, it will correct automatically -- you won't need to Erase it and redo the DIST-to-Text routine.

[ВeekeeCZ]

---

@JohnC_ISM wrote:

its just easier...

---

... to ask others to write me a lisp than make an effort myself.

I like this approach.

[john.uhden]

I should probably "lend" you my LABEL_IT routine which provides for
multiple formats (B+D, Distance only, make your own) with tag and leader
options and all the text style controls. It was made for LDT and can label
entire polylines even if nested in an xref. It can create a table from
tagged segments including both lines and arcs.

##- Please type[image: Label_It-1.jpg]
[image: Label_It-2.jpg]

[john.uhden]

Those images didn't make it responding from Outlook.

[JohnC_ISM]

or i dont know how to write one myself.....thanks tho

[JohnC_ISM]

ill try this out. seems like a better option