Question

求一段vb二次开发cad的代码

如题，我主要是在遍历空间实体，然后获得实体属性这儿不知道怎么写，哪位大侠能提供一段这样的代码，如果能把各种实体都讲一下，那更好。
首先谢谢你们的回答，但是我要的是纯vb代码， laiwenyi2006的是vba代码，我给个具体的实体嘛，就块。我使用的工具是VB6.0，cad2006

Answer 1

((-1 . <图元名: 7aa0bf88>) (0 . "LWPOLYLINE") (330 . <图元名: 7aa0bcf8>) (5 .
"F1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbPolyline") (90 . 5) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 558.344
515.854) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1019.94 765.048) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 1253.07 499.552) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
817.118 194.464) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 434.786 268.99) (40 .
0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

LWPOLYLINE 的DXF组码值为：
100
子类标记 (AcDbPolyline)

90
顶点数

70
多段线标志（按位编码）；默认值为 0：
1 = 关闭；128 = Plinegen

43
固定宽度（可选；默认值 = 0）。如果设置为可变宽度（代码 40 和/或 41），则不使用

38
标高（可选；默认值 = 0）

39
厚度（可选；默认值 = 0）

10
顶点坐标（在 OCS 中），多个条目；每个顶点一个条目
DXF：X 值；APP：二维点

20
DXF：顶点坐标的 Y 值（在 OCS 中），多个条目；每个顶点一个条目

40
起点宽度（多个条目；每个顶点一个条目）（可选；默认值 = 0；多个条目）。如果设置为固定宽度（代码 43），则不使用

41
端点宽度（多个条目；每个顶点一个条目）（可选；默认值 = 0；多个条目）。如果设置为固定宽度（代码 43），则不使用

42
凸度（多个条目；每个顶点一个条目）（可选；默认值 = 0）

210
拉伸方向（可选；默认值 = 0, 0, 1）
DXF：X 值；APP：三维矢量

220, 230
DXF：拉伸方向的 Y 值和 Z 值（可选）

Answer 2

Option Explicit

Sub test()
Dim ent As AcadEntity
For Each ent In ThisDrawing.ModelSpace
MsgBox ent.EntityName '采用循环，输出各个实体的实体名
Next
MsgBox "共有" & ThisDrawing.ModelSpace.Count & "个实体！“"
End Sub

具体需要什么属性，得你自己把握了。