(setq?i?0)
(repeat?(sslength?ss)
(setq?ss1?(entget?(ssname?ss?i))
i?(+?i?1) h1?(rtos?(cdr?(assoc?42?ss1))?2?2);;取得標註數值;最後壹個2表示小數點後2位 h2?(assoc?1?ss1) h1?(strcat?"\\A1;\\U+00D8"?h1?"{\\H0.7x;\\S+0.005^+0.002;}");;替換的內容 h1?(cons?1?h1) ss1?(subst?h1?h2?ss1))(entmod?ss1)
)
) ) (prin1))
框選妳要修改的標註,來修改妳要的數值。替換內容是第壹個是直徑,第二個是數值,第三個是妳要的差值。根據需要來修改。