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
Bentley Accredited Developer: iTwin Platform - AssociateLabyrinth Technology | dev.notes() | cad.point
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