DXF组码370筛选线宽的问题



[Visual Basic] 纯文本查看 复制代码

Dim fType(2) As Integer
Dim fData(2) As Variant
fType(0) = 0
fData(0) = "LWPOLYLINE"
fType(1) = 62
fData(1) = 2
fType(2) = 370 '370 '不行？
fData(2) = acLnWt211
ss.SelectOnScreen fType, fData

如上，用370和acLnWt211筛选线宽为2.11毫米的黄色多段线，为什么ss的count为0呢？
只用下面的代码

[Visual Basic] 纯文本查看 复制代码

Dim fType(2) As Integer
Dim fData(1) As Variant
fType(0) = 0
fData(0) = "LWPOLYLINE"
fType(1) = 62
fData(1) = 2
ss.SelectOnScreen fType, fData

就能筛选出来，加上

[Visual Basic] 纯文本查看 复制代码

fType(2) = 370 '370 '不行？
fData(2) = acLnWt211

就不行了，哪位大佬知道是怎么回事啊

newer

把LISP的 (entget ent) 的数据贴上来看看。



newer 发表于 2018-4-23 12:21
把LISP的 (entget ent) 的数据贴上来看看。

这几天天天加班也没来得及上论坛，下面是

[XML] 纯文本查看 复制代码

((-1 . <图元名: -41076f8>) (0 . "LWPOLYLINE") (330 . <图元名: -1e45308>) (5 . 
"19139") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 2) (370 
. 50) (100 . "AcDbPolyline") (90 . 2) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) 
(10 -12460.1 -635.071) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -11604.9 -40.8543) 
(40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

非常感谢

newer

 发表于 2018-4-25 18:22
这几天天天加班也没来得及上论坛，下面是[mw_shl_code=xml,true]((-1 . ) (0 . "LWPOLYLINE") (330 . ) ( ...

你看你这个数据里面，也没有370组码的定义啊，你过滤怎么能选到呢



newer 发表于 2018-4-25 18:48
你看你这个数据里面，也没有370组码的定义啊，你过滤怎么能选到呢

(370
. 50)

这个不是？用lisp能选择，VBA不能选择
lisp代码：(entget (ssname (ssget '((370 . 50)))0))
VBA代码：
fType(0) = 370: fData(0) = 50
ss.SelectOnScreen fType, fData



newer 发表于 2018-4-25 18:48
你看你这个数据里面，也没有370组码的定义啊，你过滤怎么能选到呢

这个不是吗

newer

 发表于 2018-4-25 18:52
这个不是吗

你这个是什么版本的CAD？ 你换下高版本的CAD，看看，确定是不是CAD的BUG



newer 发表于 2018-4-25 19:40
你这个是什么版本的CAD？ 你换下高版本的CAD，看看，确定是不是CAD的BUG

我的是08版本的cad，高版本的电脑配置低，装不起啊，你那里用VBA也可以筛选370组码？