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,
since 1985: GIS, CAD, Engineering (Civil) Senior Consultant : [Autodesk Civil 3D , Esri ArcGIS,, Bentley MS V4 - V8i, GeoGraphics, Bentley Map V8i, InRoads, HHK Geograf, IBr DAVID, VertiGIS ] Dev: [C, C++, Basic , Java, SQL, FORTRAN, UML][direct quote by: http://en.wikipedia.org/wiki/Helmut_Schmidt]: "Wer Kritik übel nimmt, hat etwas zu verbergen"Wer Grammatik- und/oder Rechtschreibfehler findet, der darf sie behalten :-)
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.
Karthik M 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.
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
oRotMatrix1 = Matrix3dFromAxisAndRotationAngle(2, Radians(angles) + (1.57))
Here 13 is the Base angle.