galaxy24 发表于 2004-8-23 11:27:00

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

datavalue值是什么？


请高手指点

雪山飞狐_lzh 发表于 2004-8-23 13:26:00

画一个<b>3dpolyline</b>,命令行键入下列Lisp函数查看结果


(entget(car(entsel)))

galaxy24 发表于 2004-8-24 09:24:00

我不会用lisp函数


一直都是用的VBA

雪山飞狐_lzh 发表于 2004-8-24 09:41:00

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

galaxy24 发表于 2004-8-24 21:04:00

Dim mode As Variant<BR>mode = acSelectionSetFence<BR>'----------------------------------<BR>Dim gpCode(0) As Integer<BR>Dim dataValue(0) As Variant<BR>gpCode(0) = 0


dataValue(0) = "AcDb3dPolyline"<BR>'=======================<BR>paom.SelectByPolygon mode, ppoint, gpCode, dataValue


我试过，好像不行

雪山飞狐_lzh 发表于 2004-8-24 21:39:00

DXF组码0


(0 . "POLYLINE")
页: [1]
查看完整版本: 求教，怎样才能将3dpolyline加入选择集？