(TransientDrawingMode.DirectTopmost, 128, New IntegerCollection()) Private Function PickNextPoint() As Boolean Private Function GetSecondPoint(basePt As Point3d, ByRef pt As Point3d) As Booleanĭim opt As New PromptPointOptions(vbLf & "Pick next corner: ") Private Function GetFirstPoint(ByRef pt As Point3d) As Booleanĭim opt As New PromptPointOptions(vbLf & "Pick first corner: ")ĭim res As PromptPointResult = _editor.GetPoint(opt)ĮlseIf res.Status = PromptStatus.Keyword Thenĭim intOpt As New PromptIntegerOptions(vbLf & "Enter color number (1 to 7): ")ĭim intRes As PromptIntegerResult = _editor.GetInteger(intOpt)
()ĭim p As New (_points.Count)įor i As Integer = 0 To _points.Count - 1 _editor.PointMonitor -= New PointMonitorEventHandler(AddressOf _editor_PointMonitor) If _pline IsNot Nothing AndAlso _pickDone Then _editor.PointMonitor += New PointMonitorEventHandler(AddressOf _editor_PointMonitor) 'Handling mouse cursor moving during picking Public ReadOnly Property Perimeter() As Double Public ReadOnly Property Area() As Double You can remove the length of some of those calls by removing the Namespace qualification ( with an additional Imports statement, etc.) as well, if you like. Here's the C# code Sean was kind enough to link previously, converted from C# to VB.NET using DeveloperFusion ( so you may need to fix some errors, etc.). This gives you the ability to reference any Type ( Class), Property, Method, or Event you'd need from the source, without converting, nor learning C# ( which I do highly recommend). NET ), is to compile the C# code into an assembly, which you load into your VB.NET projects as reference(s). So new, in fact, that you could easily start learning C#, methinks.Īnother option ( as you are using.
but I'm too new to VB.Net to translate it today.
0 kommentar(er)
