设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [编程申请]：朋友请帮忙帮忙
返回列表 发新帖
查看: 571|回复: 4

[编程申请]：朋友请帮忙帮忙

[复制链接]
eye
发表于 2003-8-14 09:10:26 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
CAD R14中，能编一些小命令
把打开的图中的块的名称及数量显示出来吗
图中, 帮忙, 小命

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

PLgis
发表于 2003-8-14 11:23:00 | 显示全部楼层
下面的代码已通过
(defun c:BlockList()
        (princ "\nBlock Table\n------------------------------")
        (princ "\nNo.\t\tName\t\tNumber")
        (princ "\n------------------------------")
        (setq i 0)
        (setq tbl(tblnext "block" t))
        (while tbl
                (setq i(1+ i))
                (setq bName(cdr(assoc 2 tbl)))
                (setq ss(ssget "x" (list (assoc 2 tbl))))
                (setq n(if ss (sslength ss) 0))
                (princ (strcat "\n" (itoa i) "\t\t" bName "\t\t\t" (itoa n)))
                (setq tbl(tblnext "block"))
        )
        (if(= i 0)
                (princ "\nNo Blocks in the DWG.")
        )
          (princ)
)

如果当前文件中没有块，输出如下：
Command: blocklist

Block Table
------------------------------
No.     Name           Number
------------------------------
No Blocks in the DWG.

Command:


如果当前文件中有块，输出如下：
Command: blocklist

Block Table
------------------------------
No.     Name           Number
------------------------------
------------------------------
No.     Name           Number
------------------------------
1      blkZDT          3
2      blkTYG          14
3      blkTYX          12
4      blkDDT          0
5      blkFA           50
6      g               0
7      blkNSG          177
8      blkRH           1017
9      blk83           10
10     blk1            1937
11     blk53           166
12     blkCHQG         0
13     blk0            0

供参考
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

chenhang1203
发表于 2003-8-14 16:50:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
请问我的图纸怎么有那么多代*的块是什么啊？也无法清除好象，谁能看看怎么回事？
命令: ap APPLOAD 已成功加载 BlockList.lsp。


命令:
命令:
命令: blocklist
Block Table
------------------------------
No.     Name           Number
------------------------------
1      DOT       0
2      B09030                     14
3      _Dot              0
4      *D3       0
5      *X4       0
6      *X5       0
7      *X6       0
8      YB              2
9      *D8       0
10         *U9       0
11         A$C382B6545       0
12         _Oblique              0
13         _None              0
14         *D13       0
15         *D14       0
16         *D15       0
17         *D16       0
18         *D17       0
19         *D18       0
20         *D19       0
21         *D20       0
22         *D21       0
23         *D22       0
24         *D23       0
25         *D24       0
26         *D25       0
27         *D26       0
28         *D27       0
29         *D28       0
30         *D29       0
31         *D30       0
32         *D31       0
33         *D32       0
34         *D33       0
35         *D34       0
36         *D35       0
37         *D36       0
38         *D37       0
39         *D38       0
40         *D39       0
41         *D40       0
42         *D41       0
43         *D42       0
44         *D43       0
45         *D44       0
46         *D45       0
47         *D46       0
48         *D47       0
49         *D48       0
50         *D49       0
51         *D50       0
52         *D51       0
53         *D52       0
54         *D53       0
55         *D54       0
56         *D55       0
57         *D56       0
58         *D57       0
59         *D58       0
60         *D59       0
61         *D60       0
62         *D61       0
63         *D62       0
64         *D63       0
65         *D64       0
66         *D65       0
67         *D66       0
68         *D67       0
69         *D68       0
70         *D69       0
71         *D70       0
72         *D71       0
73         *D72       0
74         *D73       0
75         *D74       0
76         *D75       0
77         *D76       0
78         *D77       0
79         *D78       0
80         *D79       0
81         _Origin2              0
82         *D81       0
83         *D82       0
84         *D83       0
85         *D84       0
86         *D85       0
87         *D86       0
88         *D87       0
89         *D88       0
90         *D89       0
91         *D90       0
92         *D91       0
93         *D92       0
94         *D93       0
95         *D94       0
96         *D95       0
97         *D96       0
98         *D97       0
99         *D98       0
100     *D99              0
101     *D100                     0
102     *D101                     0
103     *D102                     0
104     *D103                     0
105     *D104                     0
106     *D105                     0
107     *D106                     0
108     *D107                     0
109     *D108                     0
110     *D109                     0
111     *D110                     0
112     *D111                     0
113     *D112                     0
114     *D113                     0
115     *D114                     0
116     *D115                     0
117     *D116                     0
118     *D117                     0
119     *D118                     0
120     *D119                     0
121     *D120                     0
122     *D121                     0
123     *D122                     0
124     *D123                     0
125     *D124                     0
126     *D125                     0
127     *D126                     0
128     *D127                     0
129     *D128                     0
130     *D129                     0
131     *D130                     0
132     *D131                     0
133     *D132                     0
134     *D133                     0
135     *D134                     0
136     *D135                     0
137     *D136                     0
138     *D137                     0
139     *D138                     0
140     *D139                     0
141     *D140                     0
142     *D141                     0
143     *D142                     0
144     *D143                     0
145     *D144                     0
146     *D145                     0
147     dhj       69
148     ffghg                     6
149     *D148                     0
150     *D149                     0
151     *D150                     0
152     *D151                     0
153     *D152                     0
154     *D153                     0
155     *D154                     0
156     *D155                     0
157     *D156                     0
158     *D157                     0
159     *D158                     0
160     *D159                     0
161     *D160                     0
162     *D161                     0
163     *D162                     0
164     *D163                     0
165     *D164                     0
166     *D165                     0
167     *D166                     0
168     *D167                     0
169     *D168                     0
170     *D169                     0
171     *D170                     0
172     *D171                     0
173     *D172                     0
174     *D173                     0
175     *D174                     0
176     *D175                     0
177     *D176                     0
178     *D177                     0
179     *D178                     0
180     *D179                     0
181     *D180                     0
182     *D181                     0
183     *D182                     0
184     *D183                     0
185     *D184                     0
186     *D185                     0
187     *D186                     0
188     *D187                     0
189     *D188                     0
190     *D189                     0
191     *D190                     0
192     *D191                     0
193     *D192                     0
194     *D193                     0
195     *D194                     0
196     *D195                     0
197     ghgg              1
198     *D197                     0
199     *D198                     0
200     *D199                     0
201     *D200                     0
202     *D201                     0
203     *D202                     0
204     *D203                     0
205     *D204                     0
206     *D205                     0
207     *D206                     0
208     *D207                     0
209     *D208                     0
210     *D209                     0
211     *D210                     0
212     *D211                     0
213     *D212                     0
214     *D213                     0
215     *D214                     0
216     *D215                     0
217     *D216                     0
218     *D217                     0
219     *D218                     0
220     *D219                     0
221     *D220                     0
222     *D221                     0
223     *D222                     0
224     *D223                     0
225     *D224                     0
226     *D225                     0
227     *D226                     0
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

无痕
发表于 2003-8-14 23:03:35 | 显示全部楼层
这些是无名块
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

chenhang1203
发表于 2003-8-15 09:04:39 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
请问怎么把它们弄掉呢？为什么有这么多无名块呢？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-20 17:27 , Processed in 0.376087 second(s), 40 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表