Fuentelsp

(Derun?c:d11?(?/?h?h1?ss?I?h2?ss1)

(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?I))

¿Yo?(+?I?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 reemplazado

h1? (Con?1?h1)

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

(entmod?ss1)

)

)

)

(prin1)

)Marque Seleccione el marque que desea modificar y modifique 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.