I use similar on following one,
where command is accordingly layer
name on wich you want to offset the objects
I mean:
OF - offset
Dim - layer name
Easier to remember for me...
Hth
(defun C:OFDim (/)
(vl-load-com)
(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
(command "._-layer" "m" "dim" "c" "7" "dim" "")
(vlax-for layts (vla-get-layouts
(vla-get-activedocument
(vlax-get-acad-object)))
(vlax-for obj (vla-get-block layts
(if (wcmatch (vla-get-objectName obj) "*Text,*MText,*Dimension")
(vla-put-Layer obj "Dim")
)
)
)
)
(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
(princ)
)
(princ "\n >>> Type OFDIM to execute...")
(princ)
~'J'~