change dimstyle lsp

[nychoe1]

hello everyone. I need some lsp

there are many dimstyle in dwg files.  I want to change dimexo <0> selected all dimstyle (offset from origin)

thank you all always.

[dlanorh · Accepted solution]

If i understand correctly you want to change the dimension offset in every DimStyle to 0.

This code will do that, but it will not affect any dimensions currently in the drawing. You need sothing else to do that.

;Micheal Puckett
(defun table (s / d r)
  (while (setq d (tblnext s (null d)))
    (setq r (cons (cdr (assoc 2 d)) r))
  )
)

(vl-load-com)

(defun c:xo20 ( / c_doc c_dims d_lst sty)
  (setq c_doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq c_dims (vla-get-dimstyles c_doc))
  (setq d_lst (table "DimStyle"))
  (foreach ds d_lst
    (setq sty (vla-item c_dims ds))
    (setvar 'dimexo 0.0)
    (vla-copyfrom sty c_doc)
  );end_foreach
);end_defun

[Kent1Cooper]

---

@dlanorh wrote:

.... it will not affect any dimensions currently in the drawing. You need sothing else to do that.

---

This [in very simplest terms ] will do that part, at least in the current space:

(defun C:DEO0 ()
  (command "_.dimoverride" "DIMEXO" 0 "" "_all" "")
)

[nychoe1]

thank you