[求助]无痕大哥

wwwbxd

你好啊

我是WWWBXD

想问版主一个问题

就是一个DWG文件里有好多布局(最多256个)

每个布局里是一张A4的图纸,图框是一个属性块.

块里有两个属性是页码和页数

页码是布局从左到右或从右到左依次排列

我怎么样用LISP自动生成页码和页数

无痕大哥帮帮忙

狂刀无痕

给个参考，你自己根据需要修改吧

3. ;| xgetlayatts = 取布局中的块属性----by lxx.2009.2.16
4. 参数 tags = 属性名或属性名列表，字符串
5. 返回: list 列表
6. 实例: (xgetlayatts (list"AA" "BB"))
7. ->(("AA" "a") ("BB" "1") ("AA" "b") ("BB" "2") ("AA" "c") ("BB" "3"))
8. |;
9. (defun xgetlayatts (tags / lays n lst a x atts tag y)
10.   (if (not(listp tags)) (setq tags (list tags)))
11.   (setq lays (vlax-get (vla-get-activedocument (vlax-get-acad-object))'layouts)
12.    n   (1- (vla-get-count lays))
13.   )
14.   (repeat n
15.     (setq a (vla-item lays n)
16.    n (1- n)
17.     )
18.     (vlax-for x (vla-get-block a)
19.       (if (and (wcmatch (vla-get-objectname x) "*Block*")
20.         (setq atts (vlax-invoke x 'getattributes))
21.    )
22. (mapcar
23.    '(lambda (y)
24.       (if (member (setq tag (vla-get-tagstring y)) tags)
25.         (setq lst (cons (list tag (vla-get-textstring y)) lst))
26.       )
27.     )
28.    atts
29. )
30.       )
31.     )
32.   )
33.   lst
34. )

;| xgetlayatts = 取布局中的块属性----by lxx.2009.2.16 参数 tags = 属性名或属性名列表，字符串 返回: list 列表 实例: (xgetlayatts (list"AA" "BB")) ->(("AA" "a") ("BB" "1") ("AA" "b") ("BB" "2") ("AA" "c") ("BB" "3")) |; (defun xgetlayatts (tags / lays n lst a x atts tag y)   (if (not(listp tags)) (setq tags (list tags)))   (setq lays (vlax-get (vla-get-activedocument (vlax-get-acad-object))'layouts)    n   (1- (vla-get-count lays))   )   (repeat n     (setq a (vla-item lays n)    n (1- n)     )     (vlax-for x (vla-get-block a)       (if (and (wcmatch (vla-get-objectname x) "*Block*")         (setq atts (vlax-invoke x 'getattributes))    ) (mapcar    '(lambda (y)       (if (member (setq tag (vla-get-tagstring y)) tags)         (setq lst (cons (list tag (vla-get-textstring y)) lst))       )     )    atts )       )     )   )   lst )

wwwbxd

谢谢无痕版主
我已经做好了  很实用
同时评价不错

LLXXZZ

时间差也太大了吧

adc

LZ刚从外星球回来

菡萏

wwwbxd 发表于 2012-4-6 21:40
谢谢无痕版主
我已经做好了  很实用
同时评价不错

观棋烂柯，仙界一日，人间百年！

wwwbxd

这两三年工作太紧张了
没时间学习lisp
最近有点时间想复习一下啊

laoguiqi

这两三年工作太紧张了
没时间学习lisp