选择方法选择对象并将其放入选择集中
签名对象。选择模式[,点1][,点2][,过滤器类型][,过滤器数据]对象;选择集;此方法适用于的对象。模式;AcSelect枚举;仅输入;acSelectionSetWindow;acSelectionSetCrossing;acSelectionSetPrevious;acSelectionSetLast;acSelectionSetAll第1点;变体(双倍数组);仅输入;可选;指定点1的3D WCS坐标或坐标数组。有关点1的正确使用,请参阅模式定义;变体(三元双精度阵列);仅输入;可选;指定点2的3D WCS坐标。有关点2的正确使用,请参阅模式定义;整数仅输入;可选;指定要使用的过滤器类型的DXF组码
过滤数据;变种仅输入;可选;要筛选的值。备注此方法支持筛选机制
以下选择模式可用:;窗口;选择矩形区域内的所有对象,其角点由点1和点2定义;交叉;选择矩形区域内或与矩形区域相交的对象,其角点由点1和点2定义;上一页;选择最近的选择集。如果在图纸空间和模型空间之间切换并尝试使用选择集,则忽略此模式
;最后一个;选择最近创建的可见对象
;所有;选择所有对象
有关更多选择模式选项,请参阅SelectByPolygon、SelectAtPoint和SelectOnScreen方法
和你';我还会找到以下示例 ' 本例首先通过交叉和将成员添加到选择集中 ' 然后过滤圆
 
 ' 创建选择集 ;将ssetObj设置为AcadSelectionSet ;设置ssetObj=ThisDrawing.SelectionSets。添加(“SSET”)
 
 
 ' 将位于(28,17,0)和
交叉点内的所有对象添加到选择集中 ' (-3.3,-3.6,0) ;Dim模式为整数 ;将拐角1(0到2)变暗为双 ;将拐角2(0到2)变暗为双 
 ;模式=acSelectionSetCrossing ;转角1(0)=28:corner1(1)=17:Cornel1(2)=0 ;转角2(0)=-3.3:corner2(1)=-3.6:Cornel2(2)=0 ;ssetObj。选择模式、转弯1、转弯2 
 ' 将位于(28,17,0)和
交叉点内的所有圆添加到选择集中 ' (-3.3,-3.6,0),从当前图形中过滤 ;Dim gpCode(0)为整数 ;Dim数据值(0)作为变量 ;gpCode(0)=0 ;数据值(0)=“0”;圆圈“
 
 ;Dim groupCode作为变量,dataCode作为变体 ;groupCode=gpCode ;数据代码=数据值 
 ;ssetObj。选择模式、转角1、转角2、组码、数据码 
结束Sub 感谢Ric在选择Autocad屏幕上的所有内容方面提供的帮助,我找到了另一个解决方案 '背景  '设置过滤标准 ;gpCode(0)=0 ;数据值(0)=“0”;“行”
 
 '选择LW多段线 ;ssetObj。选择acSelectionSetAll、gpCode、dataValue,根据您的建议,我使用了filter和AcSelectional,让autocad自动选择所有内容,并将它们放入一个集合中。 即#039;就是这样!祝贺 大家好,在网上搜索了几个小时后,我发现了这个巨大的话题。It#039;这几乎是我需要的
我运行了这个程序,一切正常。但是我需要对程序和I 35;039;我是vba编程新手。所以我';考虑到目前为止大部分的艰苦工作已经完成,我乞求一点帮助
首先,我需要打开dxf文件而不是dwg文件。本人';我试图改变这一点,但我失败了
在dxf文件中,我有连续线和中心(x2)线
连续线用于等离子切割,中心线(x2)用于弯曲线
所以我需要把它们分开,不仅在长度计算中,而且在数字计算中
类似于:dxf1:总切割线长度=600mm切割线数量=7
页:
1
[2]