可以編輯一個(gè)程序來(lái)解決。
(defun c:tes ( / &k1 &kw1 obj xk)
(if (null vlax-dump-object) (vl-load-com) )
(if (and
(setq xk (getdist "n請(qǐng)輸入線寬單位毫米"))
(setq xk (* xk 100))
(princ "n請(qǐng)選擇對(duì)象")
(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)
);復(fù)制到記事本，以【.lsp】為后綴命名。autoLISP加載后，命令為：TES