Community
I'm new to vb.net and i'm trying to make some basic code to use in my programs.
I was wondering if some of you could give me your thought about my code.
Shared Function UCS_Set(ByVal DBIn As Database, ByVal Point1 As Point3d, ByVal Point2 As Point3d, Optional ByVal Z_axix_InLine_With_Points As Boolean = False) As Matrix3d Dim ZAxis As Vector3d Dim yAxis As Vector3d Dim xAxis As Vector3d Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor Try If Z_axix_InLine_With_Points = True Then ZAxis = Point1.GetVectorTo(Point2).GetNormal yAxis = ZAxis.GetPerpendicularVector.GetNormal xAxis = yAxis.CrossProduct(ZAxis).GetNormal() Else xAxis = Point1.GetVectorTo(Point2).GetNormal yAxis = xAxis.GetPerpendicularVector.GetNormal ZAxis = xAxis.CrossProduct(yAxis).GetNormal() End If Dim NewMatrix3d As Matrix3d = Matrix3d.AlignCoordinateSystem(Point3d.Origin, Vector3d.XAxis, Vector3d.YAxis, Vector3d.ZAxis, Point1, xAxis, yAxis, ZAxis) UCS_Set = NewMatrix3d Catch UCS_Set = Nothing End Try End Function
Hi There,
It's hard to give you some help on that one, especially that you don't tell what is the issue with the code and what you are trying to achieve exactly... Is the code not producing the expected result or you don't know how to get it done?
Are you aware about the AutoCAD DevBlog, you will find there many useful code samples:
http://adndevblog.typepad.com/autocad/
Regards,
Philippe.