[求助]：vba中选择集方法（如SelectOnScreen）中的过滤器 dxf 厚度编码是什么

wcbao

本人用lisp函数得到一些信息如下：
(entget ent1)
((-1 . <图元名: 7ef6a2e8>) (0 . "LINE") (330 . <图元名: 7ef67cb8>) (5 . "3CD")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "JZD") (62 . 7) (6 .
"Continuous") (100 . "AcDbLine") (39 . 1.50009e+006) (10 -912.431 -129.922 0.0)
(11 -907.431 -129.922 0.0) (210 0.0 0.0 1.0))
好像厚度的编码是39 ，但在vba中提示错误？

雪山飞狐(lzh)

直线组码

组码
说明

100
子类标记 (AcDbLine)

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

10
起点（在 WCS 中）

DXF：X 值；APP：三维点

20, 30
DXF：起点的 Y 值和 Z 值（在 WCS 中）

11
端点（在 WCS 中）

DXF：X 值；APP：三维点

21, 31
DXF：端点的 Y 值和 Z 值（在 WCS 中）

210
拉伸方向（可选；默认值 = 0, 0, 1）

DXF：X 值；APP：三维矢量

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


提示什么错误？我试过39做过滤器可以的