在CAD窗口中绘矩形标记

guohq

1. Public Sub DrawScreenRectangle(ByVal Pt1 As Point3d, ByVal Pt2 As Point3d, Optional ByVal icolor As Integer = 1, Optional ByVal bHighLighted As Boolean = False)
   
2.         Dim MinX As Double = Math.Min(Pt1.X, Pt2.X)
   
3.         Dim MaxX As Double = Math.Max(Pt1.X, Pt2.X)
   
4.         Dim MinY As Double = Math.Min(Pt1.Y, Pt2.Y)
   
5.         Dim MaxY As Double = Math.Max(Pt1.Y, Pt2.Y)
   
6.         If MaxX > MinX AndAlso MaxY > MinY Then
   
7.             Doc.Editor.DrawVector(New Point3d(MinX, MinY, 0), New Point3d(MaxX, MinY, 0), icolor, bHighLighted)
   
8.             Doc.Editor.DrawVector(New Point3d(MaxX, MinY, 0), New Point3d(MaxX, MaxY, 0), icolor, bHighLighted)
   
9.             Doc.Editor.DrawVector(New Point3d(MaxX, MaxY, 0), New Point3d(MinX, MaxY, 0), icolor, bHighLighted)
   
10.             Doc.Editor.DrawVector(New Point3d(MinX, MaxY, 0), New Point3d(MinX, MinY, 0), icolor, bHighLighted)
    
11.         End If
    
12.     End Sub

Public Sub DrawScreenRectangle(ByVal Pt1 As Point3d, ByVal Pt2 As Point3d, Optional ByVal icolor As Integer = 1, Optional ByVal bHighLighted As Boolean = False)<br />         Dim MinX As Double = Math.Min(Pt1.X, Pt2.X)<br />         Dim MaxX As Double = Math.Max(Pt1.X, Pt2.X)<br />         Dim MinY As Double = Math.Min(Pt1.Y, Pt2.Y)<br />         Dim MaxY As Double = Math.Max(Pt1.Y, Pt2.Y)<br />         If MaxX > MinX AndAlso MaxY > MinY Then<br />             Doc.Editor.DrawVector(New Point3d(MinX, MinY, 0), New Point3d(MaxX, MinY, 0), icolor, bHighLighted)<br />             Doc.Editor.DrawVector(New Point3d(MaxX, MinY, 0), New Point3d(MaxX, MaxY, 0), icolor, bHighLighted)<br />             Doc.Editor.DrawVector(New Point3d(MaxX, MaxY, 0), New Point3d(MinX, MaxY, 0), icolor, bHighLighted)<br />             Doc.Editor.DrawVector(New Point3d(MinX, MaxY, 0), New Point3d(MinX, MinY, 0), icolor, bHighLighted)<br />         End If<br />     End Sub