How to make "dynamic" move object on screen(like acad comand move or copy).

[chwast3]

Hi.

I have little problem(i write simple program which drawing few lines) and I wonder if it is possible to make "dynamic" move this lines to point that i choose on screen (with showing this lines on screen too).

If someone have any idea or link to place where i can find any info would be great (full program would be best option ;] ).

THX.

[Ed Jobe]

Sorry, the vba api doesn't support that. You need to use jigs in .NET.

[chwast3]

Sorry, the vba api doesn't support that. You need to use jigs in .NET.

Can you write something more about that problem (where i can find any more information about that problem), i learn everything about vba from books and website. Im not programer.

Thx.

[fixo]

I know this isn't good idea to use SendCommand
but this code is working for me:

Option Explicit

Sub MoveEnt()

    Dim oEnt As AcadEntity
    Dim pickPt As Variant
    Dim fpt As Variant
    Dim osm As Integer
    On Error GoTo Err_Control

    ThisDrawing.Utility.GetEntity oEnt, pickPt, vbCrLf & "Select object to move >> "
    If oEnt Is Nothing Then Exit Sub
    On Error GoTo Err_Control

    With ThisDrawing
        osm = .GetVariable("OSMODE")
        .SetVariable "OSMODE", 513    '// <-- change snap setting to your needs
        fpt = .Utility.GetPoint(, "Pick first point")

        If IsEmpty(fpt) Then
            GoTo Exit_Here
        End If

    End With

    Dim strh As String, strp1 As String
    strh = oEnt.Handle
    strp1 = Replace(CStr(fpt(0)), ",", ".") & "," & _
            Replace(CStr(fpt(1)), ",", ".") & "," & _
            Replace(CStr(fpt(2)), ",", ".")

    ThisDrawing.SetVariable "CMDECHO", 0
    ThisDrawing.SendCommand "-OSNAP _NONE "
    ThisDrawing.SendCommand "_MOVE " & _
                            "(handent " & Chr(34) & strh & Chr(34) & ")" & vbCr & _
                            vbCr & strp1 & vbCr & "pause" & vbCr

Exit_Here:

    With ThisDrawing
        .Regen acActiveViewport
        .SetVariable "OSMODE", osm
        .SetVariable "CMDECHO", 1
    End With

Err_Control:
    If Err.Number <> 0 Then
        MsgBox Err.Description
        Resume Exit_Here
    End If

End Sub

~'J'~