Reset Text Position for Multiple Dimension Lines

[PabloS]

Hi everyone,

 

I hope you’re all doing well.

 

I’m looking for some help with creating an AutoLISP program. Specifically, I need a script that can reset the text position of multiple selected dimension lines, processing them one at a time. This would greatly streamline my workflow, and I’d really appreciate any guidance or sample code you could provide.

 

When doing this manually:

 

Dimension that was edited returns to original design:

 

Here is an approach but I still can't get the right command:

(defun c:DimReset ( / sel )
   (if (ssget "_:L" '((0 . "*DIMENSION")))
       (progn
           (vlax-for obj
               (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
               (vla-put-verticaltextposition obj acVertCentered); ¿¿IS THERE ANY VLA FUNCTION THAT RESET TEXT POSITION ??
           )
           (vla-delete sel)
       )
   )
   (princ)
)
(vl-load-com) (princ)

 

Thank you in advance for your help!

Best regards,

Pablo

[Kvlar]

No need to use autolisp code. You can try this : Select dimension - DIMEDIT - Home .

[EnM4st3r]

you could use (setpropertyvalue ent "UsingDefaultTextPosition" 1)

so:

(defun c:DimReset ( / ss i ent)
  (setq ss (ssget "_:L" '((0 . "*DIMENSION"))))
  (setq i 0)
  (while (and ss (< i (sslength ss)))
    (setq ent (ssname ss i))
    (setpropertyvalue ent "UsingDefaultTextPosition" 1)
    (setq i (1+ i))
  )
)

 

[EnM4st3r]

as an alternative you could set dxf value 70 to 32 using entmod.

so:

(defun c:DimReset ( / ss i elist)
  (setq ss (ssget "_:L" '((0 . "*DIMENSION"))))
  (setq i 0)
  (while (and ss (< i (sslength ss)))
    (setq elist (entget (ssname ss i)))
    (entmod (subst '(70 . 32) (assoc 70 elist) elist))
    (setq i (1+ i))
  )
)

 

[BIGAL]

Another but note its hard coded for a X & Y shift.

(setq obj (vlax-ename->vla-object (car (entselect "\nPick dim "))))
(setq tpos (mapcar '+ (vlax-get obj 'TextPosition) (list 125.0 120.0 0.0))) ; X & Y change
(vlax-put obj 'TextPosition tpos)

Used in a left & right dims so always inside.