Public Sub MoveEnt(Entity ent, Point3d basePt, Point3d targetPt)
Dim vec As Vector3d = basePt.GetVectorTo(targetPt)
Dim mt As Matrix3d = Matrix3d.Displacement(vec)
ent.TransformBy(mt)
Ent Sub
Dim vec As Vector3d = basePt.GetVectorTo(targetPt)
Dim mt As Matrix3d = Matrix3d.Displacement(vec)
ent.TransformBy(mt)
Ent Sub