Maravilloso código fuente de ejemplo de Cadvba
thisdrawing.modelspace.addarc()
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