I've been trying to find a way to achieve this movement (from old attachmentpoint coordinates to new attachmentpoint coordinates), but I feel kind of stuck.
The lisp routine for gathering info on entities (entget (car (entsel))) gives me groupcode 10, showing the x, y, z values I want (the coordinates of the attachmentpoint).
I found out by now that I can use the following to get coordinates with VBA,
Code:
MsgBox oMText.insertionPoint(1)
and have set up the follwing code to build from.
Code:
Public Sub Coords()
Dim xyz(0 To 2) As Double
xyz(0) = 100# ' can I associate the value of groupcode 10?
xyz(1) = 50# ' can I associate the value of groupcode 20?
xyz(2) = 0# ' can I associate the value of groupcode 30?
MsgBox xyz(0) & "," & xyz(1) & "," & xyz(2)
End Sub