(setvar？" cmdecho "？0)
(setvar？“blipmode”？0)
(princ？" \n請選擇要修改的標簽")
(setq？ss？(ssget？'((0?。？"尺寸"))))
(如果？(/=?ss？零)
(程序
(setq？我？0)
(重復？(sslength？ss)
(setq？ss1？(entget？(ssname？ss？我))
我？(+?我？1)
h1？(rtos？(cdr？(assoc？42?ss1))？2?2);；獲取標簽值；最後的2表示兩位小數。
h2？(assoc？1?ss1)
h1？(strcat？" \ \ a 1；\\U+00D8 "？h1？" { \ \ H0.7x\\s+0.005^+0.002；}");；替換的內容
h1？(弊？1?h1)
ss1？(subst？h1？h2？ss1))
(entmod？ss1)
)
)
)
(prin1)
)勾選想要修改的標記，修改想要的值。替換內容是第壹個是直徑，第二個是數值，第三個是妳想要的差值。根據需要進行修改。