Change Exiting Cell Scale Value.

Dear all,

                I am using Microstation v8 2004 Edition and VBA . i want change my existing cell element scale size any one tell me how to change the cell scale size.

Advance thanks!

regards,

Karthik M

Parents Reply
  • Hi jan,

              Thanks for your response, I am tried ScaleUniform also but the cell scale is won't to change(Scale size is 1.0). Here i attached my dgn and i am using following code.

    Public Sub check()
    Dim ele As Element
    Dim eleEnum As ElementEnumerator
    Dim i As Long
    Dim eles() As Element
    
    Set eleEnum = ActiveModelReference.GetSelectedElements
    
    eles = eleEnum.BuildArrayFromContents
    
    For i = 0 To UBound(eles)
        Set ele = eles(i)
        If ele.IsCellElement Then
            ele.ScaleUniform Point3dZero, 1#
            ele.Rewrite
        End If
    Next i
    
    End Sub

    1106.Testing.dgn

Children