CADSoftTools

Code: Select all

<font color="blue">Public Sub</font id="blue"> ResetScaling()
    <font color="blue">Me</font id="blue">.scl = 1.0!
    <font color="blue">Me</font id="blue">.prev_scale = 1.0!
    <font color="blue">Me</font id="blue">.pos.X = ((<font color="blue">Me</font id="blue">.cadPictBox.ClientRectangle.Width - <font color="blue">Me</font id="blue">.curClRect.Width) / 2)
    <font color="blue">Me</font id="blue">.pos.Y = ((<font color="blue">Me</font id="blue">.cadPictBox.ClientRectangle.Height - <font color="blue">Me</font id="blue">.curClRect.Height) / 2)
    <font color="blue">Me</font id="blue">.cadPictBox.Invalidate()
<font color="blue">End Sub</font id="blue">

Code: Select all

<font color="blue">Public Sub</font id="blue"> DrawCADImage(<font color="blue">ByVal</font id="blue"> gr <font color="blue">As</font id="blue"> Graphics)
    <font color="blue">If</font id="blue"> (<font color="blue">Not Me</font id="blue">.FCADImage <font color="blue">Is Nothing</font id="blue">) <font color="blue">Then
        Try
            Me</font id="blue">.deactiv = <font color="blue">False
            Me</font id="blue">.Shift()
            <font color="blue">Dim</font id="blue"> ef1 <font color="blue">As New</font id="blue"> RectangleF(<font color="blue">Me</font id="blue">.pos.X, <font color="blue">Me</font id="blue">.pos.Y, (<font color="blue">Me</font id="blue">.curClRect.Width * <font color="blue">Me</font id="blue">.scl), (<font color="blue">Me</font id="blue">.curClRect.Height * <font color="blue">Me</font id="blue">.scl))
            <font color="blue">Me</font id="blue">.FCADImage.Draw(gr, ef1)
        <font color="blue">Catch</font id="blue"> obj1 <font color="blue">As</font id="blue"> Exception
        <font color="blue">End Try
    End If
End Sub</font id="blue">

Code: Select all

<font color="blue">Public Sub</font id="blue"> cadPictBox_MouseUp(<font color="blue">ByVal</font id="blue"> sender <font color="blue">As</font id="blue"> System.Object, <font color="blue">ByVal</font id="blue"> e <font color="blue">As</font id="blue"> System.Windows.Forms.MouseEventArgs) <font color="blue">Handles</font id="blue"> cadPictBox.MouseUp
    <font color="blue">Dim</font id="blue"> Ent <font color="blue">As</font id="blue"> CADEntity
    ...

    Ent = FCADImage.SelectExt(e.X, e.Y)
    <font color="blue">If Not</font id="blue"> (Ent <font color="blue">Is Nothing</font id="blue">) <font color="blue">Then</font id="blue">
        Ent.Selected = <font color="blue">False</font id="blue">
        FCADImage.ClearMarkers()
        FCADImage.InvalidateSelectEntity(cadPictBox, Me.scl)
    <font color="blue">End If</font id="blue">
    ...

Code: Select all

    Dim Ent As CADEntity
    ...

    Ent = FCADImage.SelectExt(e.X, e.Y)
    If Not (Ent Is Nothing) Then
        Ent.Selected = False
        FCADImage.ClearMarkers()
        FCADImage.InvalidateSelectEntity(cadPictBox, Me.scl)
    End If
    ...

Code: Select all

    Ent = FCADImage.SelectExt(e.X, e.Y) <font color="green">'<i>SelectExt</i> returns nearest entity to the mouse cursor </font id="green">
    <font color="blue">If Not</font id="blue"> (Ent <font color="blue">Is Nothing</font id="blue">) <font color="blue">Then</font id="blue">
        Ent.Selected = <font color="blue">False</font id="blue"> <font color="green"> '<i>Selected</i> defines whether entity is selected</font id="green">
        FCADImage.ClearMarkers() '<font color="green"><i>ClearMarkers</i> removes all selecting markers from the inner collection</font id="green">
        FCADImage.InvalidateSelectEntity(cadPictBox, Me.scl) '<font color="green"><i>InvalidateSelectEntity</i> - redraws selected entities (without markers)</font id="green">
    <font color="blue">End If</font id="blue">
    ...