将所有图层的线宽一键改为0.00mm

maiko

ㄘ丶转裑ㄧ灬 发表于 2016-6-13 19:12
好吧，我错了。。。

我一般不用command,用command可能只有(command "EDIT" ..............)用下,

crtrccrt

(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-13 17:05
一句话的事情居然收两个币。。。

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

cds15980954301

(command "-layer" "lw" 0 "*" "")这句话更简单:P