Delete the first
ThisDrawing.Utility.GetEntity objText, dblPickedPoint, "Select text "
"Joe Sutphin" wrote in message
news:201A9F248E81C8C8BA78BD8DBBFF2C9E@in.WebX.SaUCah8kaAW...
> Dim objText As AcadText
> Dim dblPickedPoint(0 To 2) As Double
>
> ThisDrawing.Utility.GetEntity objText, dblPickedPoint, "Select text "
>
> ThisDrawing.Utility.GetEntity objText, dblPickedPoint, "Select text "
> MsgBox "Insertion Point of text is: " & objText.InsertionPoint(0) & ", "
&
> _
> objText.InsertionPoint(1) & ", "
&
> _
> objText.InsertionPoint(2)
>
> Joe
>
> Get a free subscription to "The Daily Visual" newsletter at
> mailto:omnisource@worldnet.att.net?subject=DailyVisual
> Dedicated to Visual LISP programmers
>
> "Matthew Kyle" wrote in message
> news:0BF9D087986E63E9BCA5B7F52D7A4BAE@in.WebX.SaUCah8kaAW...
> > How do I use the SendCommand to rotate a piece of text then use the
> > SendCommand to move it?
> >
> > What I'm trying to do is insert a door tag, rotate it to match the door
> > direction using the insertion point,
> > and then move it into position using the insertion point once again.
> >
> > I can get the SendCommand to work, but I don't know to select the insert
> > point of the text automatically.
> >
> > --
> > Matthew Kyle
> > Kephart Architects
> > Denver, CO
> > 303/ 832-4474
> >
>
