Align multipe Dimension text by changing text propreties coordinates

[francine2013]

Hello,

I'm looking to find a way to align multiple dimension text. The reason is that I'm using the Viewport and some dimensions are invisible. Attached are a drawing explaining what I'm looking for. Actually I manually copied the coordinates in the properties and inserted them in the dimensions I wanted to change.

Is it possible, by using the text position X or Y coordinate, to modify by lisp the other dimensions?

Can somebody help me please.

Many thank

 

 

Dimension.dwg

[eldon]

If you don't mind drawing a temporary line, you can line them up very quickly.

 

I drew a vertical Xline through the Insertion point of the dimension that is in the right place. Then click on the other dims and drag them so that they are Perpendicular to the Xline. Then erase the Xline.

 

 

[francine2013]

Thank you for you replies, I know this solution but I'm looking for a lisp to automate this because I use model space so many time.

[francine2013]

I found a lisp on the Autodesk forum but it works only with horizontal dimension.

How to change this lisp so that it works for both cases?

Autodesk Forum : https://forums.autodesk.com/t5/autocad-forum/lisp-routine-to-slide-dimension-text/td-p/5189789

 

tt.lsp

[francine2013]

 

This is what I'm exactly looking for but I can't get the lisp to work, the DTA command doesn't appear

 

[francine2013]

 

Gile solved my request with a lisp at the end of the following page:

https://cadxp.com/topic/53420-aligner-les-textes-de-cotation-en-modifiant-les-propriétés-des-coordonnées-du-texte/

 

[francine2013]

Using Giles' lisp I noticed that the dimension lines also change place, which doesn't suit me too well. (see attache image)

Is there a solution so that the lisp doesn't do this? (see attached lisp)

DAT.lsp