topic Re: VBA Code to Select/Filter Vertical and Horizontal Lines in VBA Forum

VBA Code to Select/Filter Vertical and Horizontal Lines

Anonymous — Fri, 03 Mar 2017 00:56:01 GMT

Hi,

I would like to know if it is possible to select all vertical lines and make them a particular colour, and to then select all horizontal lines and make them a certain colour using VBA? I feel like i need to use delta x and y or the angles e.g 90, 180, 270.

Would anyone be able to assist me?

Re: VBA Code to Select/Filter Vertical and Horizontal Lines

Anonymous — Fri, 03 Mar 2017 07:15:05 GMT

Is there any sample .dwg file ??

Re: VBA Code to Select/Filter Vertical and Horizontal Lines

Ed__Jobe — Fri, 03 Mar 2017 15:26:42 GMT

First you would create a selection set, filtering for all lines.

Then in a Select..Case structure, examine the AcadLine.Angle property

I would then set the line's Layer property and leave the color as ByLayer. That way you can use LAYISO.

Remember, acad lisp and vba express angles in radians.

You should find code samples in this forum for all of the steps above.

Re: VBA Code to Select/Filter Vertical and Horizontal Lines

Anonymous — Sun, 05 Mar 2017 20:51:20 GMT

Here is an example of my drawing. I know how to do it manually by using the qselect command but no other way

Re: VBA Code to Select/Filter Vertical and Horizontal Lines

Anonymous — Mon, 06 Mar 2017 05:38:25 GMT

Dim obj As AcadObject Dim line_obj As AcadLine For Each obj In Thisdrawing.Modelspace If TypeOf obj Is AcadLine Then Set line_obj = obj If line_obj.angle = 0 Then line_obj.color = acRed If Int(line_obj.angle / pi) = 180 Then line_obj.color = acRed line_obj.Update End If Next obj

Re: VBA Code to Select/Filter Vertical and Horizontal Lines

HoshangMustafa — Sun, 11 Apr 2021 12:00:54 GMT

You wrote:

I know how to do it manually by using the qselect command

How can you do it manually by using quick select command?