Maravilloso código fuente de ejemplo de Cadvba

thisdrawing.sendcommand " "

Sub arc1()

Para i = 1 a 99

esta pintura. Envía el comando c&vbCr&2p&vbCr&i&","&i&vbCr&I+1&","&I+1&vbCr

Siguiente I

Conector final

Subarc 2()

Etiquete p(2) como doble

Para i = 1,5 a 99,5

p(0) = i: p(1) = i: p( 2) = 0

Esta pintura. Espacio modelo AddCircle p, Sqr(2)/2

Siguiente yo

Conector final