(vla-put-TextHeight (vlax-ename->vla-object (ssname ss (setq n (1- n)))) th)
(vlax-put-property (vlax-ename->vla-object (ssname ss n)) 'ArrowheadSize ars)
(vla-put-TextGap (vlax-ename->vla-object (ssname ss n)) tof)
(defun C:test (/ scl th ars tof ss) ;was missing scl, n nolonger needed
(vl-load-com) ;needed for vla or vlax functions
(initget 7)
(setq scl (getint "\n Select Scale (50,100,200,250,500,etc) :"))
(setq th (* scl 0.00175))
(setq ars (* scl 0.002))
(setq tof (* scl 0.001))
(if (setq ss (ssget '((0 . "DIMENSION"))))
(foreach dim (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(vla-put-TextHeight (vlax-ename->vla-object dim) th)
(vla-put-ArrowheadSize (vlax-ename->vla-object dim) ars)
(vla-put-TextGap (vlax-ename->vla-object dim) tof)
) ; foreach
) ; if
) ; defun
(initget 7)
(setq scl (getint "\n Select Scale (50,100,200,250,500,etc) :"))
DIMGAP (TextGap)
DIMTXT (TextHeight)
DIMASZ (ArrowheadSize)
(defun C:test (/ scl th ars tof ss) ;was missing scl, n nolonger needed
(vl-load-com) ;needed for vla or vlax functions
(setq scl (getint "\n Select Scale (50,100,200,250,500,etc) :"))
(setvar 'DIMTXT (* scl 0.00175))
(setvar 'DIMASZ (* scl 0.002))
(setvar 'DIMGAP (* scl 0.001))
(if (setq ss (ssget '((0 . "DIMENSION"))))
(command "DIM1" "UPDATE" SS "")
)
)
If dimstyle is TOPO then line type (setvar "celtscale" (* scl 0.00025)) else (setvar "celtscale" 1)
(if (eq (getvar 'dimstyle) "TOPO")
(setvar "celtscale" (* scl 0.00025))
(setvar "celtscale" 1)
)