Código fuente CAD de Android

(setvar?" cmdecho "?0)

(setvar? " blipmode"? 0)

(princ?" \nPor favor seleccione la etiqueta a modificar")

(setq?ss?(ssget?'((0?.?" size" ))))

(if?(/=?ss?zero)

(programa

(setq?i?0)

(¿Duplicado? (sslength? ss)

(setq? ss1? (entget? (ssname? ss? me))

¿Yo? (? yo? 1)

h1? (rtos?(cdr?(assoc?42?ss1))?2?2);; Obtenga el valor de la etiqueta;; los últimos 2 representan dos decimales. ? (assoc?1?ss1)

h1? (strcat?" \ \ a 1;\\U 00D8 "?h1?" { \ \ H0.7x\\s 0.005^ 0.002;}" );;Contenido de reemplazo

h1? (con?1?h1)

ss1? (subst?h1?h2?ss1))

(entmod ? ss1)

)

)

)

(prin1)

) Marque la casilla que desea modificar etiqueta, modificar el valor deseado. El contenido del reemplazo es que el primero es el diámetro, el segundo es el valor y el tercero es la diferencia que desea. Modificar según sea necesario.