Fuentelsp
(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.