Estoy buscando urgentemente un programa para dibujar arcos usando lenguaje vbA para desarrollo secundario de CAD!!!!
Enviar comando "c" amp; vbCr amp; "2p" amp; p>Siguiente i
End Sub
Sub arc2 ()
Atenuar p(2) como doble
Para i = 1,5 a 99.5
p(0) = i: p(1) = i: p(2) = 0
ThisDrawing.ModelSpace.AddCircle p, Sqr(2) / 2
Siguiente i
Fin Sub