Dear All,
I am using Microstation v8 2004 Edition with VBA. I am trying to capture the Orthogonal lines. Here i attached the Video Clip please find it and give me the ideas for do this.
Note: In that video Clip i am using the Place Orthogonal Shape Tool But i am trying same concept in capturing LineString.
Thanks & Regards,
Karthik M
Bentley Accredited Developer: iTwin Platform - AssociateLabyrinth Technology | dev.notes() | cad.point
Hi jon, I am using the AccuDrawHints object with the iprimitive commands for implement Orthogonal lines but its not correctly working.here i attached my vba code please find it and tell me what is my mistake how to i solve it.
Testing.mvba
Hi Karthik,
Unknown said:please find it and tell me what is my mistake how to i solve it
It sounds like request for commercial work ... to read and try to understand undocumented code (despite of it's VBA) and to analyse what is wrong is beyond my free time options. And in fact, ouside my wilingness too.
With regards,
Jan
Hi Jon,
Jon: It sounds like request for commercial work..
Sorry jon for my English i am new for using the AccuDrawHints in VBA, so i am facing the problem in AccuDrawHints.SetOrientationByRotation. Actually I need Orthogonal lines i am using the following Code for AccuDrawHints.SetOrientationByRotation but its not rotated exactly 90 from the base angle.
Dim angles As Double Dim oRotMatrix1 As Matrix3d angles=13 oRotMatrix1 = Matrix3dFromAxisAndRotationAngle(2, Radians(angles) + (1.57)) CommandState.AccuDrawHints.SetOrientationByRotation oRotMatrix1
Here 13 is the Base angle.