vba can't set the arrowheadtype

CHIEN JUNG WU

Dear Sir :

  I NEED A HELP !!

WHEN I RUN THE VBA FOR BRICSYS CAD , I WANT TO CHANGE THE ARROWHEAD1TYPE & ARROWHEAD1TYPE  LIKE :

returnObj.Arrowhead1Type = acArrowDefault     ( THE ARROWHEADTYPE CAN'T CHANGE TO DEFAULT)

BUT

returnObj.Arrowhead1Type = acArrowDotSmall   CAN CHANGE TO SMALL-DOT

I TRY THE SAME VBA PROGRAM ON AUTOCAD , AUTOCAD CAN CHANGE THE ARROWHEADTYPE TO DEFAULT

THANKS

 

 

CHIEN JUNG WU

DIR SIR :

MY VBA CODE :

 

Public Sub MOD_ARROW1()
    Dim returnObj As AcadObject
    Dim basePnt As Variant

    On Error Resume Next
    ThisDrawing.UTILITY.GetEntity returnObj, basePnt, "SELECT DIM :"
        If Err <> 0 Then
                Err.Clear
            Exit Sub
        Else
            returnObj.Arrowhead1Type = acArrowDefault
            returnObj.Arrowhead2Type = acArrowDotSmall
            returnObj.DimensionLineExtend = 0
            returnObj.Update
        End If
End Sub

THANKS