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

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

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

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

我一般不用command,用command可能只有(command "

EDIT" ..............)用下,

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

本帖最后由 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

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

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

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

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

账号		自动登录	找回密码
密码			注册