Topic: Dim Text Offset Problem ?

[eesm]

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

[Cathy]

(setvar "dimgap" 0.5) ?

[CAB]

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

What do you mean by drawing zone?

[eesm]

I want to change dimensions from existing drawing. Dimgap change dimensions style but I want to change dimensions in my existing drawing.

[Tharwat]

I want to change dimensions from existing drawing. Dimgap change dimensions style but I want to change dimensions in my existing drawing.

Are you wanting to change all dimension styles in a drawing or only the selected ones by a user or a specific dimension style ?

[eesm]

I want to change  only the selected ones...

[Tharwat]

Code - Auto/Visual Lisp: [Select]

1. (defun c:Test (/ gp sel in sn)
2.   (vl-load-com)
3.   (if (not acdoc)
4.     (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
5.   )
6.   (if (and (setq gp (getdist "\n Specify Text gap <offset> :"))
7.            (setq sel (ssget "_:L" '((0 . "*DIMENSION"))))
8.       )
9.     (progn
10.       (vla-StartUndoMark acdoc)
11.       (repeat (setq in (sslength sel))
12.         (setq sn (ssname sel (setq in (1- in))))
13.         (vla-put-textgap (vlax-ename->vla-object sn) gp)
14.       )
15.       (vla-endUndoMark acdoc)
16.     )
17.     (princ)
18.   )
19.   (princ)
20. )
21.  

[eesm]

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

[Tharwat]

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

You're welcome ....