能写个小程序搞定！
（AutoLISP代码来啦）
lisp
(defun c:tes (/ &k1 &kw1 obj xk)
(if (null vlax-dump-object) (vl-load-com))
(if (and
(setq xk (getdist n请输入线宽（毫米）：))
(setq xk (* xk 100))
(princ n请选择要改的对象：)
(setq &kw1 (ssget))
)
(progn
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1))
(setq obj (vlax-ename->vla-object &k1))
(vla-put-Lineweight obj xk)
)
)
)
(princ)
)
? 复制上面全部代码 → 粘贴到记事本 → 另存为 `tes.lsp`（后缀必须是 `.lsp`！别存成.txt！）
? CAD里输入 `AP` 回车 → 找到这个文件加载一下
? 然后直接输命令 `TES` 就能用了！
提示你输毫米数，比如想设成0.5mm，就敲 `0.5`；选完对象自动批量改线宽～
（小声：记得CAD得支持LISP，有些精简版可能不行哈）
（AutoLISP代码来啦）
lisp
(defun c:tes (/ &k1 &kw1 obj xk)
(if (null vlax-dump-object) (vl-load-com))
(if (and
(setq xk (getdist n请输入线宽（毫米）：))
(setq xk (* xk 100))
(princ n请选择要改的对象：)
(setq &kw1 (ssget))
)
(progn
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1))
(setq obj (vlax-ename->vla-object &k1))
(vla-put-Lineweight obj xk)
)
)
)
(princ)
)
? 复制上面全部代码 → 粘贴到记事本 → 另存为 `tes.lsp`（后缀必须是 `.lsp`！别存成.txt！）
? CAD里输入 `AP` 回车 → 找到这个文件加载一下
? 然后直接输命令 `TES` 就能用了！
提示你输毫米数，比如想设成0.5mm，就敲 `0.5`；选完对象自动批量改线宽～
（小声：记得CAD得支持LISP，有些精简版可能不行哈）