cad如何设置一个快捷键编辑线宽
发布网友
共2个回答
热心网友
可以编辑一个程序来解决。
(defun c:tes ( / &k1 &kw1 obj xk)(if (null vlax-mp-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
热心网友
pedit->w->xxxx
也可以自己编成lsp如下，用记事本存成1.lsp，然后在cad中用appload命令加载：
(defun c:cx
(princ "修改pline线宽")
(command "pedit" "w" )
)
