maiko 发表于 2016-6-13 19:14:38

本帖最后由 maiko 于 2016-6-13 19:27 编辑

ㄘ丶转裑ㄧ灬 发表于 2016-6-13 19:12 static/image/common/back.gif
好吧，我错了。。。
我一般不用command,用command可能只有(command "PEDIT" ..............)用下,

crtrccrt 发表于 2016-6-14 06:50:31

本帖最后由 crtrccrt 于 2016-6-15 18:10 编辑

(defun c:cxk0 ( / first lay name )
(vl-load-com)
(setq first t)
(while (setq lay (tblnext "layer" first))
    (setq first nil)
    (setq name (cdr (assoc 2 lay)))
    (vla-put-lineweight (vlax-ename->vla-object (tblobjname "layer" name)) acLnWt000)
)
(princ)
)
(princ "\n命令是 CXK0 ")(princ)

zhangcan0515 发表于 2016-6-14 10:12:55

ㄘ丶转裑ㄧ灬 发表于 2016-6-13 17:05 static/image/common/back.gif
一句话的事情居然收两个币。。。

谢谢 真是高手啊，几行简单的代码 化腐朽为神奇。谢谢阁下

cds15980954301 发表于 2021-2-10 13:44:07


(command "-layer" "lw" 0 "*" "")这句话更简单:P
页: 1 [2]
查看完整版本: 将所有图层的线宽一键改为0.00mm