(vl-load-com)
(defun c:DimLnSpcX ( / ss i ent el)
(if (setq ss (ssget '((0 . "Dimension"))))
(repeat (setq i (sslength ss))
(setq ent (ssname ss (setq i (1- i)))
el (entget ent '("ACAD"))
)
(if(= 1(cdr(assoc 41 el)))
(entmod (subst (cons 41 0.8)(assoc 41 el)el))
(entmod (subst (cons 41 1.0)(assoc 41 el)el))
);; if
);; repeat
);; if
(princ)
);; DimLnSpcX
I've added a macro for it to both Shortcut Menus in the CUI 'Dimension Object Menu' and 'Dimension Objects Menu' so I can right-click a selection of Dimensions to toggle the line spacing.^P(or C:DimLnSpcX (load "DimLnSpcX.lsp"));DimLnSpcX