How to take size(width, hight) by event click in autocad

Anonymous — Tue, 05 Nov 2013 10:14:23 GMT

Hello Everyone,

Everyone can help me. How can i take size(width, hight) of rectangle in file autocad when i click it. And then will show this information on form in vb.net. I hope everyone can help me. Thanks very much.

Re: How to take size(width, hight) by event click in autocad

Anonymous — Wed, 06 Nov 2013 01:45:29 GMT

is this difficult matter?

Re: How to take size(width, hight) by event click in autocad

Anonymous — Wed, 06 Nov 2013 14:25:23 GMT

Hi ,

With below code you can start to select a rectange and afterwards get length and width of that. Here I have create a message box to show length and width of a rectangle. I hope you can start with this code and later customize your requirement.

 <CommandMethod("TST")> Public Sub RectangleSize()
        Dim doc As Document = Application.DocumentManager.MdiActiveDocument
        Dim db As Database = doc.Database
        Dim ed As Editor = doc.Editor
        Dim _length As Double = Nothing
        Dim _area As Double = Nothing
        Dim _width As Double = Nothing
        Dim peo As PromptEntityOptions = New PromptEntityOptions(vbLf & "Please select a rectangle:")
        Dim per As PromptEntityResult = ed.GetEntity(peo)
        If per.Status <> PromptStatus.OK Then
            Return
        End If
        Using tx As Transaction = db.TransactionManager.StartTransaction()
            Dim ent As Entity = tx.GetObject(per.ObjectId, OpenMode.ForRead)
            If TypeOf ent Is Polyline Then
                Dim pl As Polyline = TryCast(ent, Polyline)
                If pl.Closed Then
                    Dim pt1 As Point2d = pl.GetPoint2dAt(0)
                    Dim pt2 As Point2d = pl.GetPoint2dAt(1)
                    Dim pt3 As Point2d = pl.GetPoint2dAt(2)
                    Dim distance1 As Double = pt1.GetDistanceTo(pt2)
                    distance1 = Math.Abs(distance1)
                    Dim distance2 As Double = pt2.GetDistanceTo(pt3)
                    distance2 = Math.Abs(distance2)
                    If distance1 > distance2 Then
                        _length = distance1
                    Else
                        _length = distance2
                    End If
                    _area = pl.Area
                    _width = _area / _length
                    MsgBox(_length & vbTab & _width)
                End If
            End If
            tx.Commit()
        End Using
    End Sub

Re: How to take size(width, hight) by event click in autocad

Anonymous — Thu, 07 Nov 2013 02:47:47 GMT

Thanks very much

topic Re: How to take size(width, hight) by event click in autocad in .NET Forum

How to take size(width, hight) by event click in autocad

Re: How to take size(width, hight) by event click in autocad

Re: How to take size(width, hight) by event click in autocad

Re: How to take size(width, hight) by event click in autocad