Achieved in this way
Dim Direction(), Origin()
SelectAll "CATDrwSearch.2DGeometry.Name=BomHead_Line*"
count = Selection.Count2
For i = 1 To count
ReDim Direction(2), Origin(2)
Set Line=Selection.Item2(i).Value
Line.GetDirection(Direction)
Line.GetOrigin(Origin)...
Hi,
This way of moving is not good:
In the case of unknown coordinate values, you cannot delete a line and then create a new line, especially when there are multiple lines.
So, how to easily move a line(Line2D)?
Thanks!