图层特性管理器批量改图层线宽

lvbin2ooo

如图，图层特性管理器，想要用lisp 批量修改里头所有线宽“0.0”改为“0.4”，求大神给思路或代码；

附，转发站内，LEE MAC的一个图层提取器，很强大。

Linhay

只把0.0改成0.4吗?默认的不改?

lvbin2ooo

Linhay 发表于 2015-11-24 12:03
只把0.0改成0.4吗?默认的不改?

默认的不用。但是想把0.0改为默认也行。

lvbin2ooo

自己学艺不精，刚才搜集了下，想到：
(command "layer"  "s" "LEVEL11"   "L" "Continuous" "" "LW" "0.4" "" "")

这样就可以修改  LEVEL11的线宽为0.4了，但是如何批量选择 LW 是0.0的图层呢；

Linhay

2. (defun c:tt (/ lwn *DOC lname)
   
3.   (VL-LOAD-COM)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq *Doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
6.    (vlax-for n (vla-get-layers *DOC)
   
7.         (setq lwn (vla-get-LineWeight n))
   
8.         ;;;(setq lname (vla-get-name n))
   
9.         (if (= lwn 0)
   
10.             (vla-put-Lineweight n 40)  ;;(command "-layer" "lw" "0.40" lname "");;
    
11.         )
    
12.    )
    
13.   (setvar "cmdecho" 1)
    
14.   (princ)
    
15. )

(defun c:tt (/ lwn *DOC lname)<br />   (VL-LOAD-COM)<br />   (setvar "cmdecho" 0)<br />   (setq *Doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />    (vlax-for n (vla-get-layers *DOC)<br />         (setq lwn (vla-get-LineWeight n))<br />         ;;;(setq lname (vla-get-name n))<br />         (if (= lwn 0)<br />             (vla-put-Lineweight n 40)  ;;(command "-layer" "lw" "0.40" lname "");;<br />         )<br />    )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

lvbin2ooo

Linhay 发表于 2015-11-25 13:49

非常感谢。vlisp 确实不擅长，自己以为自己已经懂了lisp..才发现自己只是一个小微粒。。谢谢。

xfjiamy

谢谢楼主分享

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

wlj96167

回帖是一种美德！感谢楼主的无私分享 谢谢

wlj96167

回帖是一种美德！感谢楼主的无私分享 谢谢