可以編輯一個程序來解決。

(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)
);復制到記事本，以【.lsp】為后綴命名。autoLISP加載后，命令為：TES