求教，怎样才能将3dpolyline加入选择集？

galaxy24

datavalue值是什么？


请高手指点

雪山飞狐_lzh

画一个3dpolyline,命令行键入下列Lisp函数查看结果 (entget(car(entsel)))

galaxy24

我不会用lisp函数


一直都是用的VBA

雪山飞狐_lzh

命令: (entget(car(entsel)))
选择对象: ((-1 . <图元名: 7ef74078>) (0 . "POLYLINE") (330 . <图元名:
7ef5ccf8>) (5 . "107") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDb3dPolyline") (66 . 1) (10 0.0 0.0 0.0) (70 . 8) (40 . 0.0) (41 .
0.0) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 0))

galaxy24

Dim mode As Variant
mode = acSelectionSetFence
'----------------------------------
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 0 dataValue(0) = "AcDb3dPolyline"
'=======================
paom.SelectByPolygon mode, ppoint, gpCode, dataValue 我试过，好像不行

雪山飞狐_lzh

DXF组码0


(0 . "OLYLINE")