AutoCad - VBA y Autocad

Hola a tod@s!

Estoy realizando un proyecto en el cual utilizo estas dos herramientas. Para el mismo tengo que trabajar a partir de un plano de una oficina (layer de paredes, layer de puertas, etc) y realizar diferentes calculos.

Lo que no entiendo es como interactuar con estas layers, es decir si por ejemplo creo un rayo como saber si ha intersectado con la pared. Al tener el plano dibujado de antemano no se como trabajar con las entidades que incluye cada capa. A su vez tampoco se como sacar las coordenadas de dicho plano para tener una referencia a la hora de dibujar.

Espero que alguien me pueda ayudar. Muchas gracias

estamos en Abril.26... aun lo necesitas ?

Utiliza esta funcion Intersectwith, solamente debes enviarles los objetos que deseas saber si intersectan.

Saludos

Ing Zeus Alberto Paez Renteria

[email protected]

Public Function IntersectWith(Object1 As AcadObject, Object2 As AcadObject) As Boolean
Dim Intersection As Variant
Dim x As Integer
IntersectWith = False
Intersection = Object1.IntersectWith(Object2, acExtendNone)
If VarType(Intersection) <> vbEmpty Then
For x = LBound(Intersection) To UBound(Intersection)
IntersectWith = True
Exit Function
Next x
End If
End Function

Zeus... preguntaste que si realmente la interseccion... debe ser real... o debe analizarse en las otras 3 opciones restantes... ah.. y la version de AutoCad ..?
Saludos desde Peru...