¿Cómo genera el comando SendCommand variables en lugar de números al programar en Autocad VBA?

Al programar en Autocad VBA, la línea de comando SendCommand no puede ingresar directamente variables numéricas. Puede ingresar variables de caracteres. Cuando se necesitan variables numéricas, primero debe convertir las variables numéricas en variables de caracteres (preste atención a. formato), por ejemplo: dibuje cinco Cinco círculos con coordenadas centrales y diferentes radios. (Efectivo en la versión CAD 2015).

Sub yuan()

Atenuar cc(0 a 2) como doble

Atenuar r como doble

Dim cs, rs As String'variables de caracteres de radio y coordenadas del centro del círculo

cc(0) = 10: cc(1) = 15: cc(2) = 0

r = 20

Para i = 1 a 5

cc(0) = 10 i * 2: cc(1) = 15 i * 3

r = 20 i * 4

cs = CStr(cc(0)) amp; "," amp; CStr(cc(1)) amp; " CStr(cc(2) ) 'Convierte las coordenadas del centro del círculo en caracteres

rs = CStr(r) 'Convierte los valores del radio en caracteres

ThisDrawing.SendCommand "_circle" amp vbCr amp; vbCr amp; rs amp; vbCr

ZoomExtents

Siguiente

Fin Sub