Dim Text Offset Problem ?

[eren_esm731604]

Hi
I want to change dim text offset of the drawing zone with lisp. how can I do it?

[nod684]

Hi
I want to change dim text offset of the drawing zone with lisp. how can I do it?

try this :

(defun c:test (/ )
(setq cmd1 (getvar "cmdecho")) 
(setvar "cmdecho" 0) 
(setq DIMNEW (entsel "\n Select Dimension to Adjust Dimension Text Offset:"))
(command "dimoverride" "dimgap" "3" "" DIMNEW) <<<<----- change the "3" to your desired text offset
(setvar "cmdecho" cmd1) 
(princ)
)

[eren_esm731604]

that is what I am looking for. thanks a lot.

[nod684]

that is what I am looking for. thanks a lot.

No problem!

[Orzabal]

I've modified nod684's code a bit : credit goes to nod still for the help...

This will enable you to input your desired Txt Offset and will also enable you to select multiple dimensions that you want to change :

(defun c:test (/ )
(setq cmd1 (getvar "cmdecho")) 
(setvar "cmdecho" 0)
(setq TOffset (getreal "\nEnter Desired Text Offset :  "))
(prompt "\nSelect Dimension to Adjust Dimension Text Offset:")
	(while
		(if (setq en (ssget '((0 . "DIMENSION"))))
			(command "dimoverride" "dimgap" TOffset "" en "")
		(Princ "\nNo Dimensions selected! Try again!")
		)
	)
(setvar "cmdecho" cmd1) 
(princ "\nDone!")
(princ))

[nod684]

I've modified nod684's code a bit : credit goes to nod still for the help...

This will enable you to input your desired Txt Offset and will also enable you to select multiple dimensions that you want to change :

(defun c:test (/ )
(setq cmd1 (getvar "cmdecho")) 
(setvar "cmdecho" 0)
(setq TOffset (getreal "\nEnter Desired Text Offset :  "))
(prompt "\nSelect Dimension to Adjust Dimension Text Offset:")
	(while
		(if (setq en (ssget '((0 . "DIMENSION"))))
			(command "dimoverride" "dimgap" TOffset "" en "")
		(Princ "\nNo Dimensions selected! Try again!")
		)
	)
(setvar "cmdecho" cmd1) 
(princ "\nDone!")
(princ))

thanks meandyou...i was thinking bout this
but my one was done in a jiffy

in fact haven't had time to check if working or not lolz!

try this one; with Dimension Height as default Dimgap :

 
(defun c:test (/ )
(setq cmd1 (getvar "cmdecho")) 
(setvar "cmdecho" 0)
(setq dimtxt (getvar "Dimtxt"))
(setq TOffset (getreal "\nEnter Desired Text Offset :  <" (rtos Dimtxt) "> "))
(if (= TOffset  nil) (setq TOffset  dimtxt))
(prompt "\nSelect Dimension to Adjust Dimension Text Offset:")
	(while
		(if (setq en (ssget '((0 . "DIMENSION"))))
			(command "dimoverride" "dimgap" TOffset "" en "")
		(Princ "\nNo Dimensions selected! Try again!")
		)
	)
(setvar "cmdecho" cmd1) 
(princ "\nDone!")
(princ))

[Orzabal]

thanks meandyou...i was thinking bout this
but my one was done in a jiffy

in fact haven't had time to check if working or not lolz!

try this one; with Dimension Height as default Dimgap :

 
(defun c:test (/ )
(setq cmd1 (getvar "cmdecho")) 
(setvar "cmdecho" 0)
(setq dimtxt (getvar "Dimtxt"))
(setq TOffset (getreal "\nEnter Desired Text Offset :  <" (rtos Dimtxt) "> "))
(if (= TOffset  nil) (setq TOffset  dimtxt))
(prompt "\nSelect Dimension to Adjust Dimension Text Offset:")
	(while
		(if (setq en (ssget '((0 . "DIMENSION"))))
			(command "dimoverride" "dimgap" TOffset "" en "")
		(Princ "\nNo Dimensions selected! Try again!")
		)
	)
(setvar "cmdecho" cmd1) 
(princ "\nDone!")
(princ))

now that's better! thanks for the addition

[Tharwat]

@nod684

Localizing variables is very important in all routines , except when it is needed globally for any specific case.

[nod684]

@nod684

Localizing variables is very important in all routines , except when it is needed globally for any specific case.

Noted Tharwat thanks for the reminder...