CAD marca automáticamente los símbolos de diámetro y las tolerancias (tolerancias fijas, no se requiere entrada), se requiere código fuente LSP, no hay otros requisitos, estoy familiarizado con CAD.

(defun?c：d11?(?/?h?h1?ss?i?h2?ss1) (setvar? "cmdecho"?0) (setvar? "blipmode"?0) (princ?"Por favor seleccione lo que desee para modificar la etiqueta") (setq?ss?(ssget?'((0????"))) (setq?ss?(ssget?'((0????"))))DIMENSIÓN")) )) (if?(/=?ss?nil) (progn

(setq?i?0)

(repetir?(sslength?ss)

( setq?ss1?(entget?(ssname?ss?i)) i?( ?i?1) h1?(rtos?(cdr?(assoc?42?ss1))?2?2);; Obtener el valor de etiqueta Los últimos 2 dígitos representan 2 dígitos después del punto decimal h2?(assoc?1??ss1) h1?(strcat?"\\\A1;\\U 00D8"?h1?"{\\\ H0. 7x;\\\S 0.005^ 0.002;}");; reemplazó h1?(cons?1?h1) ss1?(subst?h1?h2?ss1))

(entmod?ss1)

) ) ) ) ) ) (prin1)

p>)

Cuadro: seleccione la anotación que desea modificar para modificar el valor que desea. uno es el diámetro. El segundo es el valor y el tercero es la diferencia que desea.