topic Re: in VBA Forum

Move & Rotate using SendCommand

Anonymous — Fri, 05 Jan 2001 07:37:28 GMT

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

Re: Move & Rotate using SendCommand

Anonymous — Fri, 05 Jan 2001 10:24:17 GMT

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
>

Re:

Anonymous — Fri, 05 Jan 2001 10:26:41 GMT

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
> >
>