Cómo cambiar el código de líneas y polilíneas CADVBA

El método VBA para dibujar polilíneas es AddPolyline, que toma un parámetro VerticesList (una lista de vértices).

1. Sus parámetros deben declararse como una matriz unidimensional de tipo Doble.

Cuando el número de todos los vértices de la polilínea es n (n>=2), el número de elementos de la matriz es 3n y su orden contiene los valores de las coordenadas xey de cada vértice y la dirección de avance (en radianes) como unidades).

2. Dado que una polilínea debe tener al menos 2 vértices, el número total de elementos en esta matriz debe ser al menos 6 y debe ser múltiplo de 3; de lo contrario, ACAD no aceptará ningún elemento.

Hay un artículo (/2/view-564089.htm) que utiliza un método muy engorroso para dibujar polilíneas en VBA, probablemente porque los parámetros del método no se comprenden bien.

De hecho, solo necesitamos declarar el tipo de parámetro de acuerdo con los dos requisitos mencionados anteriormente y asignar el valor correctamente para dibujar toda la polilínea de una vez. Sub?Example_AddPolyLine()

Dim?xyz()?As?Double

n?=?6?'Número de vértices

ReDim?xyz(0 ? a?3?*?n?-??1)

xyz(0)? =?4:?xyz(1)?

xyz(3)? =?5:?xyz(4)? =?7:?xyz(5)? : ?xyz(7)? =?7:?xyz(8)? =?0

xyz(9)? =?4:?xyz(10)? ) ? =?0

xyz(12)? =?5:?xyz(13)?=?6:?xyz(14)?=?0

xyz(15) ) ? =?6:?xyz(16)?=?6:?xyz(17)? =?0

Establecer?mLineObj?=?ThisDrawing.ModelSpace.AddPolyline(xyz)

ThisDrawing.Application.ZoomAll

MsgBox?"Se han agregado nuevas líneas poligonales al dibujo"

¿Fin?