dimjogline plus in dimension ... help

[leonucadomi]

hello all:

There are dimensions I need to do this to.

I have a routine to do this

It would be possible to do everything in a single selection

I mean select the dimension and place the break and the line over the text

I await comments and here I put the code, thank you

; Original by RonJonP, edited by P. Kenewell
(defun c:ltx (/ o s)
  (setvar "cmdecho" 0)
  (command "._undo" "_be")
  (if (setq s (ssget ":L" '((0 . "*TEXT,DIMENSION"))))
    (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
      (setq o (vlax-ename->vla-object e))
      (cond
         ((= "TEXT" (cdr (assoc 0 (entget e))))
            (vla-put-textstring o
               (strcat "%%O"
                  (vl-string-subst "" ""
                     (vl-string-subst "" "%%O" (vla-get-textstring o))
                  )
               )
            )
         )
         ((= "MTEXT" (cdr (assoc 0 (entget e))))
            (vla-put-textstring o
               (strcat "\\O"
                  (vl-string-subst "" "" 
                     (vl-string-subst "" "\\O" (vla-get-textstring o))
                  )
               )
            )
         )
         ((= "DIMENSION" (cdr (assoc 0 (entget e))))
            (if (= (vla-get-textoverride o) "")
               (vla-put-textoverride o "\\O<>")
               (vla-put-textoverride o
                  (strcat "\\O"
                     (vl-string-subst "" "" 
                        (vl-string-subst "" "\\O" (vla-get-textoverride o))
                     )
                  )
               )
            )
         )
      )
    )
  )
  (command "._undo" "_end")
  (setvar "cmdecho" 1)
  (princ)
)

 

 

 

 

 

 

 

 

[BIGAL]

Good old fashioned google 1st found this not sure if helpful.

 

https://help.autodesk.com/view/ACDMAC/2025/ENU/?guid=GUID-E0859F66-985A-4A20-BCB4-1B57D24DC100
 

[mhupp]

Also you can return the vla-object list with foreach by wrapping it in mapcar.  eliminating having to use (setq o (vlax-ename->vla-object e)).  Pulling the vla-object name before the cond means your checking the variable rather then check the entity up to 3 times.

 

; Original by RonJonP, edited by P. Kenewell, updated by Mhupp
(defun c:ltx (/ D O S)
  (vl-load-com)
  (setq D (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark D)
  (if (setq s (ssget ":L" '((0 . "*TEXT,DIMENSION"))))
    (foreach o (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))
      (setq typ (vla-get-ObjectName o))
      (cond
        ((= typ "AcDbText")   
          (vla-put-textstring o (strcat "%%O" (vl-string-subst "" "" (vl-string-subst "" "%%O" (vla-get-textstring o)))))
        )
        ((= typ "AcDbMText")  
          ...
        )
        ((= typ "AcDbDimension")
          ...
        )
      )
    )
  )
  (vla-endundomark D)
  (princ)
)

 

-edit

also useing the (vla-startundomark allows you to have things selected before you run the command.

Edited yesterday at 12:05 AM by mhupp

[GLAVCVS]

On 9/22/2025 at 10:32 PM, leonucadomi said:

hello all:

There are dimensions I need to do this to.

I have a routine to do this

It would be possible to do everything in a single selection

I mean select the dimension and place the break and the line over the text

I await comments and here I put the code, thank you

; Original by RonJonP, edited by P. Kenewell
(defun c:ltx (/ o s)
  (setvar "cmdecho" 0)
  (command "._undo" "_be")
  (if (setq s (ssget ":L" '((0 . "*TEXT,DIMENSION"))))
    (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
      (setq o (vlax-ename->vla-object e))
      (cond
         ((= "TEXT" (cdr (assoc 0 (entget e))))
            (vla-put-textstring o
               (strcat "%%O"
                  (vl-string-subst "" ""
                     (vl-string-subst "" "%%O" (vla-get-textstring o))
                  )
               )
            )
         )
         ((= "MTEXT" (cdr (assoc 0 (entget e))))
            (vla-put-textstring o
               (strcat "\\O"
                  (vl-string-subst "" "" 
                     (vl-string-subst "" "\\O" (vla-get-textstring o))
                  )
               )
            )
         )
         ((= "DIMENSION" (cdr (assoc 0 (entget e))))
            (if (= (vla-get-textoverride o) "")
               (vla-put-textoverride o "\\O<>")
               (vla-put-textoverride o
                  (strcat "\\O"
                     (vl-string-subst "" "" 
                        (vl-string-subst "" "\\O" (vla-get-textoverride o))
                     )
                  )
               )
            )
         )
      )
    )
  )
  (command "._undo" "_end")
  (setvar "cmdecho" 1)
  (princ)
)

 

 

 

 

 

 

 

 

 

Hi

Do you want to place the 'jog', indicating its location in each case, or in a predetermined location?

 

[GLAVCVS]

To indicate the 'jog' position 1 to 1, insert this code after the clause ((= "DIMENSION"... (entget e) ))))

 

      (if (not (tblsearch "APPID" "ACAD_DSTYLE_DIMJAG_POSITION"))
	    (regapp "ACAD_DSTYLE_DIMJAG_POSITION")
	  )
	  (if (setq pt (getpoint "\nJOG: Pick a point on the DIMENSION line"))
	    (entmod (append (entget e) (list (list -3 (list "ACAD_DSTYLE_DIMJAG_POSITION" '(1070 . 387) '(1070 . 3) '(1070 . 389) (cons 1010 pt))))))
	  )

 

[GLAVCVS]

I think I forgot something important: when there are multiple selections, it's necessary to show the user which object will be modified in each case.
Below, I've included the complete code with a zoom utility to show the user the next object to modify.

 

; Original by RonJonP, edited by P. Kenewell and GLAVCVS
(defun c:ltx (/ o s pt i p1 p2 le)
  (setvar "cmdecho" 0)
  (command "._undo" "_be")
  (if (setq s (ssget ":L" '((0 . "*TEXT,DIMENSION"))))
    (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
      (setq o (vlax-ename->vla-object e))
      (cond
         ((= "TEXT" (cdr (assoc 0 (entget e))))
            (vla-put-textstring o
               (strcat "%%O"
                  (vl-string-subst "" ""
                     (vl-string-subst "" "%%O" (vla-get-textstring o))
                  )
               )
            )
         )
         ((= "MTEXT" (cdr (assoc 0 (entget e))))
            (vla-put-textstring o
               (strcat "\\O"
                  (vl-string-subst "" ""
                     (vl-string-subst "" "\\O" (vla-get-textstring o))
                  )
               )
            )
         )
         ((= "DIMENSION" (cdr (assoc 0 (entget e))))
	  (if (not (tblsearch "APPID" "ACAD_DSTYLE_DIMJAG_POSITION"))
	    (regapp "ACAD_DSTYLE_DIMJAG_POSITION")
	  )
	  (command "_zoom" "_w" (setq i (cdr (assoc 10 (setq le (entget e))))) (polar i (angle (setq p2 (cdr (assoc 14 le))) (setq p1 (cdr (assoc 13 le)))) (distance p1 p2)))
	  (if (setq pt (getpoint "\rJOG: Pick a point on the DIMENSION line"))
	    (entmod (append (entget e) (list (list -3 (list "ACAD_DSTYLE_DIMJAG_POSITION" '(1070 . 387) '(1070 . 3) '(1070 . 389) (cons 1010 pt))))))
	  )
	  (if (= (vla-get-textoverride o) "")
	    (vla-put-textoverride o "\\O<>")
	    (vla-put-textoverride o
	      (strcat "\\O"
		      (vl-string-subst "" ""
			(vl-string-subst "" "\\O" (vla-get-textoverride o))
		      )
	      )
	    )
          )
         )
      )
    )
  )
  (command "._undo" "_end")
  (setvar "cmdecho" 1)
  (princ)
)

 

[Nikon]

1 hour ago, GLAVCVS said:

; Original by RonJonP, edited by P. Kenewell and GLAVCVS
(defun c:ltx (/ o s pt i p1 p2 le)
 (setvar "cmdecho" 0)
 (command "._undo" "_be")

Is it possible not to specify breakpoints, but just make a break to the right of the text? 

Edited 32 minutes ago by Nikon