I tried to draw circle. It draw circle but it has angle. Sounds like it draw from top view. How do I fix?
originpoint.x = 2: originpoint.y = 2 ': originpoint.Z = 0
Set cellelements(0) = CreateEllipseElement2(Nothing, originpoint, 1.25, 1.25, rotmatrix)
Set mycell = CreateCellElement1("MLSE", cellelements, originpoint)
ActiveModelReference.AddElement mycell mycell.Redraw
End Sub
itotakayuki: I tried to draw circle. It draw circle but it has angle. Dim rotmatrix As Matrix3d Set cellelements(0) = CreateEllipseElement2(Nothing, originpoint, 1.25, 1.25, rotmatrix)
I tried to draw circle. It draw circle but it has angle.
Dim rotmatrix As Matrix3d Set cellelements(0) = CreateEllipseElement2(Nothing, originpoint, 1.25, 1.25, rotmatrix)
You have used variable rotmatrix without initialising it. I dont' think VBA initialises a Matrix3d, so be specific:
Dim rotmatrix As Matrix3d rotmatrix = Matrix3dIdentity
Regards, Jon Summers LA Solutions
Mr. Jon,
It works. Thank you very much! I appriciate.