Align the extension lines to the short line of each selected size

[Nikon]

Hello everyone.
You need to select several sizes and align the extension lines to the short line of each selected size.
Maybe there is such a program?

Edited yesterday at 08:18 PM by Nikon

[GLAVCVS]

I don't think we've understood your question yet (at least I haven't). 

You might need to elaborate a bit and add some more images.

Edited 9 hours ago by GLAVCVS

[mhupp]

I'm guessing they have a drawing and want all the long blue dim extension lines to be shortened to where the dimension is. but the top blue one looks like its pulling from the right and left like the dimension itself is inside the feature its measuring. were the bottom red is only pulling from the right.

[Nikon]

3 hours ago, GLAVCVS said:

I don't think we've understood your question yet (at least I haven't). 

You might need to elaborate a bit and add some more images.

Sometimes the extension lines of associative dimensions are stretched (for example, to the origin of coordinates ) when inserted into another drawing.

Now I've found a way to disable dimensions associativity, but I don't really like it. I only find out that the dimensions have lost their connection with the object when I insert them into another drawing (or turn on the annotation monitor).
So I thought it would be possible to align the extension lines to a smaller extension line. 
Maybe there is a better way...

; disable associativity of only selected dimensions
(defun c:DimAssOf ( / ss)
  (vl-load-com)

  (prompt "\nSelect DIMENSION to disable associativity: ")
  (setq ss (ssget '((0 . "DIMENSION")))) 

  (if ss
    (progn
      (command "_.DIMDISASSOCIATE" ss "")
      (prompt
        (strcat
          "\nDone: associativity is disabled for "
          (itoa (sslength ss))
          " dimensions."
        )
      )
    )
  )

  (princ)
)

extension lines.dwg

Edited 6 hours ago by Nikon

[Nikon]

1 hour ago, mhupp said:

I'm guessing they have a drawing and want all the long blue dim extension lines to be shortened to where the dimension is. but the top blue one looks like its pulling from the right and left like the dimension itself is inside the feature its measuring. were the bottom red is only pulling from the right

The blue dimension should become the same as the red one.

[GLAVCVS]

(defun c:DimAssOf ( / ss e le n)
  (vl-load-com)

  (prompt "\nSelect DIMENSION to disable associativity: ")
  (setq ss (ssget '((0 . "DIMENSION"))))

  (if ss
    (progn
      (command "_.DIMDISASSOCIATE" ss "")
      (prompt
        (strcat
          "\nDone: associativity is disabled for "
          (itoa (sslength ss))
          " dimensions."
        )
      )
      (while (setq e (ssname ss (setq n (if n (1+ n) 0))))
	(setq le (entget e))
	(entmod (subst (list 14 (cadr (assoc 13 le)) (caddr (assoc 14 (entget e))) 0.0) (assoc 14 le) le))
      )
    )
  )

  (princ)
)

 

[GLAVCVS]

1 minute ago, GLAVCVS said:

(defun c:DimAssOf ( / ss e le n)
  (vl-load-com)

  (prompt "\nSelect DIMENSION to disable associativity: ")
  (setq ss (ssget '((0 . "DIMENSION"))))

  (if ss
    (progn
      (command "_.DIMDISASSOCIATE" ss "")
      (prompt
        (strcat
          "\nDone: associativity is disabled for "
          (itoa (sslength ss))
          " dimensions."
        )
      )
      (while (setq e (ssname ss (setq n (if n (1+ n) 0))))
	(setq le (entget e))
	(entmod (subst (list 14 (cadr (assoc 13 le)) (caddr (assoc 14 (entget e))) 0.0) (assoc 14 le) le))
      )
    )
  )

  (princ)
)

 

Do you really need to disassociate the dimension?

If you don't need to for another reason, you can delete that part of the code.

[GLAVCVS]

3 minutes ago, GLAVCVS said:

Do you really need to disassociate the dimension?

If you don't need to for another reason, you can delete that part of the code.

Like that

[Nikon]

39 minutes ago, GLAVCVS said:

Do you really need to disassociate the dimension?

If you don't need to for another reason, you can delete that part of the code.

@GLAVCVS Thank you very much, but you only need to choose the "stretched" dimensions.
If you choose the usual dimensions, they may change.

Yes, associativity can be left on.

(defun c:DimAlignExtLine ( / ss e le n)
  (vl-load-com)

  (prompt "\nSelect the dimensions for alignment: ")
  (setq ss (ssget '((0 . "DIMENSION"))))

  (if ss
    (progn
    (while (setq e (ssname ss (setq n (if n (1+ n) 0))))
	(setq le (entget e))
	(entmod (subst (list 14 (cadr (assoc 13 le)) (caddr (assoc 14 (entget e))) 0.0) (assoc 14 le) le))
      )
    )
  )

  (princ)
)

 

Edited 1 hour ago by Nikon