VBA and Autocad

[tlko]

Hi,

 

i have a problem and i can`t find a solution. I'm working with a file of an office and i have to make some modifications on it. The office has different layers as for exmaple (walls, furniture...) and i don't know how to work with them.

 

More precisely, I need to picture some rays and evaluate the points of intersections with these layers. Also i can't obtain the coordenates of the vertices of the office or of any object that is inside this layers. I really need some help please.

 

Thanks a lot,

Cesar

[SEANT]

I’m having a bit of trouble picturing the setup: Is there a sample file available that would help with the “problem definition”?

[tlko]

Hi,

 

The key of the project is to be able to interact with the entities of the layers.

 

In the file attached there is a simple office to explain you what i want to do. I'm going to work in 3D but for this problem is not necessarily. The vba project ask the user to place a circle in it which would be our origin point. Then it comes the problem, because i start doing rays from this origin in every angle and i have to know the points of intersection with the layer of the wall. I don't know how to work with the objects of a layer.

 

Also as i have post previously i can't obtain the coordenates of the vertices of the office with commands.

 

Thanks SEANT

office_sample.dwg

[SEANT]

The way I would approach this problem would be to create a selection set with all the geometry on the target layer. See the information in this thread about filtered selection sets.

 

http://www.cadtutor.net/forum/showthread.php?t=38124

http://www.cadtutor.net/forum/showthread.php?t=28949

 

An iteration of that selection set could be set to query the Start/Endpoints of all the lines within the set to get the coordinates and/or used with the ray to call the IntersectWith method.

 

You will likely find VBA somewhat lacking in the necessary tools, though, when you switch to 3D. You may be better off exploring the new VB.NET options.

[tlko]

Thanks SEANT!!!!

 

I start now with your advice. I expect it works!