yang686526

[求助]无痕大哥
www.dimcax.com
[求助]无痕大哥
你好啊
我是wwwbxd
想问版主一个问题
就是一个dwg文件里有好多布局(最多256个)
每个布局里是一张a4的图纸,图框是一个属性块.
块里有两个属性是页码和页数
页码是布局从左到右或从右到左依次排列
我怎么样用lisp自动生成页码和页数
无痕大哥帮帮忙
d
给个参考，你自己根据需要修改吧
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
( ((listp tags)) ( tags ( tags)))
( lays (vlax-get (vla-get-activedocument ())'layouts)
n (1- (vla-get-count lays))
)
( n
( a (vla-item lays n)
n (1- n)
)
( x (vla-get-block a)
( ( ( (vla-get-objectname x) "*block*")
( atts (vlax-invoke x 'getattributes))
)
(
'( (y)
( ( ( tag (vla-get-tagstring y)) tags)
( lst ( ( tag (vla-get-textstring y)) lst))
)
)
atts
)
)
)
)
lst
)
d