Colección de citas famosas - Colección de máximas - ¡Hola! No sé cómo leer contenido de texto o contenido de tabla en CAD con VBA.

¡Hola! No sé cómo leer contenido de texto o contenido de tabla en CAD con VBA.

sublista privada()

Atenuar ssetObj como objeto 'AcadSelectionSet

atenuar mientras

esquina 1(0)= 0:esquina 1(1)= 0: esquina 1(2)= 0

Esquina 2(0) = 1000:Esquina 2(1) = 1000:Esquina 2(2) = 0

Ir a error Err1

Crear conjunto de selección

Si no es IsNull(AcadDoc. conjuntos de selecciones. Item(" SSET ")) entonces

Establecer ssetObj = AcadDoc. conjuntos de selecciones Item("SSET")

ssetObj. Eliminar

Finalizar si...

Err1:

Establecer ssetObj = AcadDoc. conjuntos de selecciones Add(" SSET ")

Modo difuso en forma de número entero

Punto mínimo tenue, punto máximo

i = 0

modo = 1 ' acSelectionSetCrossing

ssetObj. Seleccione modo, esquina1, esquina2

Como tamaño de objeto

Para ssetObj cada ENT

si es entrada. EntityName = "AcDbText "Entonces

i = i + 1

Celda(I, 1) = ENT. Cadena de texto

Termina si...

Siguiente ENT

Finalizar conector