如何遍历图层表

啵浪鼓 · 发表于 2009-10-5 00:31:00

下面的程序目的找出图层内所有含EC*为开头的图层,并将所有以EC为开头的图层按日期先后将其本来颜色改成41#~50#颜色(如将EC20091003换成41#色,EC20090929换成42#色),也有些图层可能是年份2009省略为09,比较麻烦的事! 遍历完后再依据当前时间新建图层

简言之,程序想要的结果是,避免新日期图层与老日期图层的颜色重叠!

在写下面的程序,想要遍历图层表,发现tblsearch "layer" "ec*" 返回的值是nil,该如何写这段代码,求教!

(defun c:ECN ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget "X" '((8 . "EC*"))))        ;;;此段代码有误,应将查找物体改为遍历图层
(command ".chprop" ss "" "C" "61" "")
)
(setq date1 (rtos (getvar "cdate")2 0))
(setq ecn (strcat "EC" date1))
(if (not(tblsearch "layer" ecn))
     (command "layer" "new" ecn "set" ecn "c" "5" ecn "")
     (command "layer" "set" ecn "")
)
(setvar "CMDECHO" 1)
(princ)
)

Andyhon · 发表于 2009-10-5 09:38:00

Ref info:
http://discussion.autodesk.com/forums/thread.jspa?threadID=462100

caoyin · 发表于 2009-10-5 11:05:00

本帖最后由作者于 2009-10-6 9:10:24 编辑

(defun c:ECN (/ LAYS COL NEW)
(setq LAYS (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
        COL 40)
(vlax-for N LAYS
    (if (wcmatch (vla-get-name N) "EC*")
      (vla-put-color N (setq COL (1+ COL)))
    )
)
(setq NEW (strcat "EC" (rtos (getvar "cdate")2 0)))
(vl-catch-all-apply 'vla-add (list LAYS NEW))
(vla-put-color (vla-item LAYS NEW) 200)
(princ)
)

如果要按照层名顺序更改，需要先遍历统一层名

明经网友 *发表于 2009-10-5 18:21:00* · 发表于 2009-10-5 18:21:00

謝謝caoyin版主﹐我不懂vlisp語法﹐COL 40這里出錯了﹐不知道怎么處理了

(setq LAYS (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))
COL 40))

結果:
; error: Too many actual parameters

啵浪鼓 · 发表于 2009-10-5 18:25:00

謝謝2樓和caoyin版主﹐我不懂vlisp語法﹐在3樓的程序中,COL 40即出錯了﹐不曉得錯在哪了﹐該如何處理?

(setq LAYS (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))
COL 40) )

; error: Too many actual parameters

caoyin · 发表于 2009-10-5 21:06:00

可能是整形转换字符串的问题？不好意思，忘了。请提供测试文件。

(setq COL (itoa ((1+ COL))))

明经网友 *发表于 2009-10-5 23:47:00* · 发表于 2009-10-5 23:47:00

提供dwg测试图,程序就在一楼,后面的写不下去了

啵浪鼓 · 发表于 2009-10-5 23:48:00

程序都在一楼了,后面的写不下去了,提供dwg档供测试,麻烦caoyin版主了!

caoyin · 发表于 2009-10-6 09:05:00

3楼修正了一下

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

如何遍历图层表

本帖子中包含更多资源