Luis posted a code to revise dimension arrows on the AutoDesk's forum. I modifed it slightly.
Just thought I would pass it on...
;;;by Luis E. February 2006 www.geometricad.com
(defun ChgArrow1 (arr / data ename elist pt obj p10 p11 p13 p14)
(if (and (setq data (entsel "\n* Select Dimension to change Arrowhead *"))
(setq ename (car data))
(eq (cdadr (setq elist (entget ename))) "DIMENSION")
(setq pt (osnap (cadr data) "_end")))
(progn (setq obj (vlax-ename->vla-object ename)
p10 (cdr (assoc 10 elist))
p11 (cdr (assoc 11 elist))
p13 (cdr (assoc 13 elist))
p14 (cdr (assoc 14 elist)))
(if (< (distance pt p10) (distance pt p13))
(vla-put-Arrowhead2Type obj arr)
(vla-put-Arrowhead1Type obj arr)
)
)
)
(princ))
;;;
(defun c:CHD1 (/ arrx1)
(setq arrx1 (getreal "\n* Enter Arrow number type <0 thru 19): "))
(if arrx1 (ChgArrow1 arrx1))
(princ)
)
(defun ChgArrow2 (arr1 arr2 / data ename elist pt obj p10 p11 p13 p14)
(if (and (setq data (entsel "\n* Select arrowhead of dimension to change *"))
(setq ename (car data))
(eq (cdadr (setq elist (entget ename))) "DIMENSION")
(setq pt (osnap (cadr data) "_end")))
(progn (setq obj (vlax-ename->vla-object ename)
p10 (cdr (assoc 10 elist))
p11 (cdr (assoc 11 elist))
p13 (cdr (assoc 13 elist))
p14 (cdr (assoc 14 elist)))
(if (< (distance pt p10) (distance pt p13))
(vla-put-Arrowhead2Type
obj
(if (eq (vla-get-Arrowhead2Type obj) arr2)
arr1
arr2))
(vla-put-Arrowhead1Type
obj
(if (eq (vla-get-Arrowhead1Type obj) arr2)
arr1
arr2)))))
(princ))
;;;
(defun c:CHD2 (/ arrx1 arrx2)
(if arrx1 (setq arrx1 (getreal "\n* Enter Arrow number type <0 thru 19): ")))
(if arrx2 (setq arrx2 (getreal "\n* Enter Arrow number type <0 thru 19): ")))
(ChgArrow2 arrx1 arrx2)
(princ)
)
Gary
