Please create a LISP routine that will trim dimension extension lines

[Anonymous]

Can someone please create a LISP routine that will trim dimension extension lines.

See below... 

[Kent1Cooper]

Wipeout?  Put it behind everything else, and then put the Dimensions behind the Wipeout.

The only alternative is probably to drag the definition points over to the right-edge wall line, but I wouldn't recommend separating those from their associated plan elements.

EDIT:  Actually, another alternative is to assign large values of the DIMEXO variable to each Dimension, but that would be a pain, since there would be numerous different values you'd have to figure out.

[sergiojavorouski]

Please, try this

(defun c:td (/ CNT ENTG ENTN P1 P2 P3 P4 SS1)
(setvar "cmdecho" 0)
(setq *error* nil)
(if (setq ss1 (ssget (list (cons 0 "DIMENSION"))))
   (if (setq p1 (getpoint "\nSelect first point: "))
      (if (setq p2 (getpoint p1 "\nSelect second point: "))
         (progn (setq cnt (sslength ss1))
            (repeat cnt
               (setq entn (ssname ss1 (setq cnt (1- cnt))))
               (setq entg (entget entn))
               (setq p3 (inters p1 p2 (cdr (assoc 10 entg)) (cdr (assoc 14 entg)) nil))
               (setq p4 (inters p1 p2 (cdr (assoc 13 entg)) (polar (cdr (assoc 13 entg)) 

                                 (angle (cdr (assoc 10 entg)) (cdr (assoc 14 entg))) 1) nil ))
               (setq entg (subst (cons 13 p3) (assoc 13 entg) entg))
               (entmod entg)
               (setq entg (subst (cons 14 p4) (assoc 14 entg) entg))
               (entmod entg)
            )
         )
      )
   )
)
(princ)
)

[Michiel.Valcke]

dimbreak?

[sergiojavorouski]

Move the reference points of the dimensions to the reference line.

[ВeekeeCZ]

Try THIS free app. 

[Kent1Cooper]

This was probably not an option at the time of Message 1, but in more recent versions you can get that directly in a Dimension Style setting.  Before:

Change the setting:

and the result, without wipeouts or changing the definition points of any of the Dimensions [so they retain their Associativity if done that way, and they update with Stretching of the dimensioned things even if not Associative]:

[sergiojavorouski]

I hadn't seen this option.

It's really better.
Thanks.