topic Re: in VBA Forum

Line

Anonymous — Wed, 04 Sep 2002 03:18:31 GMT

how can i control a line
if the StartPoint and endPoint are parallel to X axis

Re: Line

Anonymous — Wed, 04 Sep 2002 04:03:52 GMT

It's not quite clear what you're asking. Maybe a bit more explanation would help. Perhaps the Z values of your Start and End point are set to something other than 0. Just a wild guest at this point.

Joe
--

Re:

Anonymous — Wed, 04 Sep 2002 04:15:34 GMT

Only what i need is checking for straight
line

i try like this

If Entity.Angle <> 0
Then
MsgBox "Line is NOT parallel to X axis... note
endpoint"

End If

But when Angel is 180 i have the same

i like to do something like if angle
<> 0 or <>180 then

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"joesu" <
href="mailto:joesu@worldnet.att.net">joesu@worldnet.att.net> wrote in
message
href="news:f10ab67.0@WebX.maYIadrTaRb">news:f10ab67.0@WebX.maYIadrTaRb...
It's
not quite clear what you're asking. Maybe a bit more explanation would help.
Perhaps the Z values of your Start and End point are set to something other
than 0. Just a wild guest at this point.

Joe
--

Re:

Anonymous — Wed, 04 Sep 2002 04:26:02 GMT

if y coordinates are equal

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

LHGO <
href="mailto:hguerrero@flowserve.com">hguerrero@flowserve.com> wrote in
message
href="news:66C8CB87BEC023C0BCDC30BEEBFB8C2F@in.WebX.maYIadrTaRb">news:66C8CB87BEC023C0BCDC30BEEBFB8C2F@in.WebX.maYIadrTaRb...

Only what i need is checking for straight
line

i try like this

If Entity.Angle <> 0
Then
MsgBox "Line is NOT parallel to X axis... note
endpoint"

End If

But when Angel is 180 i have the same

i like to do something like if angle
<> 0 or <>180 then

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

"joesu" <
href="mailto:joesu@worldnet.att.net">joesu@worldnet.att.net> wrote in
message
href="news:f10ab67.0@WebX.maYIadrTaRb">news:f10ab67.0@WebX.maYIadrTaRb...
It's
not quite clear what you're asking. Maybe a bit more explanation would help.
Perhaps the Z values of your Start and End point are set to something other
than 0. Just a wild guest at this point.

Joe
--

Re:

Anonymous — Wed, 04 Sep 2002 04:28:14 GMT

but how to do ??

if y coordinates are equal

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Joe C. Parker" <
href="mailto:joepark@iol.ie">joepark@iol.ie> wrote in message
href="news:1D9931821868F748CB7DA4A0C9011D5A@in.WebX.maYIadrTaRb">news:1D9931821868F748CB7DA4A0C9011D5A@in.WebX.maYIadrTaRb...

if y coordinates are equal

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

LHGO <
href="mailto:hguerrero@flowserve.com">hguerrero@flowserve.com> wrote
in message
href="news:66C8CB87BEC023C0BCDC30BEEBFB8C2F@in.WebX.maYIadrTaRb">news:66C8CB87BEC023C0BCDC30BEEBFB8C2F@in.WebX.maYIadrTaRb...

Only what i need is checking for straight
line

i try like this

If Entity.Angle <> 0
Then
MsgBox "Line is NOT parallel to X axis... note
endpoint"

End If

But when Angel is 180 i have the same

i like to do something like if angle
<> 0 or <>180 then

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"joesu" <
href="mailto:joesu@worldnet.att.net">joesu@worldnet.att.net> wrote
in message
href="news:f10ab67.0@WebX.maYIadrTaRb">news:f10ab67.0@WebX.maYIadrTaRb...
It's
not quite clear what you're asking. Maybe a bit more explanation would
help. Perhaps the Z values of your Start and End point are set to
something other than 0. Just a wild guest at this point.

Joe
--

Re:

Anonymous — Wed, 04 Sep 2002 04:49:27 GMT

Here, I wrote you a little function that returns whether the line is parallel to the X axis.

Joe
--
Public Function ParallelToXAxis() As Boolean
Dim oEntity As AcadEntity
Dim Point As Variant
Dim oLine As AcadLine

On Error Resume Next
ThisDrawing.Utility.GetEntity oEntity, Point, "Select line "
If Err Then Exit Function

If TypeOf oEntity Is AcadLine Then
Set oLine = oEntity
If oLine.Angle = 0 Or oLine.Angle = 180 Then ParallelToXAxis = True
End If
End Function

Re:

Anonymous — Wed, 04 Sep 2002 04:58:48 GMT

Warning! That last post is wrong. Unfortunately, the AutoCAD documentation is in error. The following, however,
works fine.

Joe
--
Public Function ParallelToXAxis() As Boolean
Dim oEntity As AcadEntity
Dim Point As Variant
Dim oLine As AcadLine

On Error Resume Next
ThisDrawing.Utility.GetEntity oEntity, Point, "Select line "
If Err Then Exit Function

If TypeOf oEntity Is AcadLine Then
Set oLine = oEntity
With ThisDrawing.Utility
If .AngleToString(oLine.Angle, acDegrees, 0) = 0 Or .AngleToString(oLine.Angle, acDegrees, 0) = 180 Then
ParallelToXAxis = True
End If
End With
End If
End Function

Re:

Anonymous — Wed, 04 Sep 2002 05:11:04 GMT

thanks

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"joesu" <
href="mailto:joesu@worldnet.att.net">joesu@worldnet.att.net> wrote in
message
href="news:f10ab67.5@WebX.maYIadrTaRb">news:f10ab67.5@WebX.maYIadrTaRb...
Warning!
That last post is wrong. Unfortunately, the AutoCAD documentation is in error.
The following, however,
works fine.

Joe
--
Public Function ParallelToXAxis() As Boolean
Dim oEntity
As AcadEntity
Dim Point As Variant
Dim oLine As AcadLine

On Error Resume Next
  ThisDrawing.Utility.GetEntity oEntity,
Point, "Select line "
  If Err Then Exit Function

If TypeOf oEntity Is AcadLine Then
    Set oLine =
oEntity
    With ThisDrawing.Utility

      If .AngleToString(oLine.Angle,
acDegrees, 0) = 0 Or .AngleToString(oLine.Angle, acDegrees, 0) = 180 Then

        ParallelToXAxis = True

      End If
    End
With
  End If
End Function

Re:

Anonymous — Wed, 04 Sep 2002 07:30:34 GMT

Na, the code in your last post looks fine, you just forgot that the
angle property returns a value in radians, not degrees.

Just for giggles, using your original idea about the elements:

if oLine.startpoint(0) = oLine.endpoint(0) then ParallelToXAxis = True

-Josh 🙂

joesu wrote:

> Warning! That last post is wrong. Unfortunately, the AutoCAD
> documentation is in error. The following, however,
> works fine.
>
> Joe

Re:

Anonymous — Wed, 04 Sep 2002 07:30:34 GMT

Which makes it wrong because it didn't have the AngleToString functions [which I would have had
had I not relied on the documentation].

Joe
--

Re:

Anonymous — Wed, 04 Sep 2002 09:28:07 GMT

Hi Joe,
True, the docs do say dgrees and I see your point, I should have looked a
little closer at the change in your second post. I just glanced at it
and thought you went the anglefromXaxis route. Not criticizing or
anything, but to explore yet another route, how about:

If oLine.Angle = 0 Or oLine.Angle = PI Then ParallelToXAxis = True

Obviously, this is something you probably would want to limit to even
increments of degrees, but for even increments it's a breeze to convert
on the fly once you start looking at it as PI radians = 180 degrees and
2PI radians = 360 degrees,,,,
PI/12 = 15
PI/6 = 30
PI/2 = 90
PI = 180
3(PI/2) = 270 'or 3 X 90 = 270, ect.
2PI = 360
yatta, yatta, yatta

-Josh

joesu wrote:

> Which makes it wrong because it didn't have the AngleToString functions
> [which I would have had
> had I not relied on the documentation].
>
> Joe
> --
>

Re:

Anonymous — Wed, 04 Sep 2002 11:06:52 GMT

That's an option. However, now I have to toat around the function to get Pi instead of using the AutoCAD built-in function of AngleToString. I guess it's a personal preference thing 'cause either way works.

Joe
--