有哪位高手能帮我如何用选择集引用

[复制链接]

verygood1979

1 主题	1 帖子	1 银币

初来乍到

Rank: 1

铜币: 5

发消息

发表于 2003-6-9 14:07:00 | 显示全部楼层 |阅读模式

'selections................
Dim ssetobj As AcadSelectionSet
Dim pickpnt1(0 To 2) As Double
Dim pickpnt2(0 To 2) As Double
Dim ftype(0) As Integer
Dim fdata(0) As Variant
ftype(0) = 8
fdata(0) = "0"
Dim filtertype As Variant
Dim filterdata As Variant
filtertype = ftype
filterdata = fdata
pickpnt1(0) = corecenpoint(0) - R1 - 1: pickpnt1(1) = corecenpoint(1) - CM / 2 - L / 2: pickpnt1(2) = 0
pickpnt2(0) = corecenpoint(0) - LM / 2 + 3: pickpnt2(1) = corecenpoint(1) - CM / 2 + L / 2 - DM: pickpnt2(2) = 0
Set ssetobj = 电容器CAD.ActiveDocument.SelectionSets.Add("objmold")
ssetobj.Select acSelectionSetCrossing, pickpnt1, pickpnt2, filtertype, filterdata
Dim pickedobjs As AcadEntity
Dim mirrorobjs
For Each pickedobjs In ssetobj
Set mirrorobjs = pickedobjs.Mirror(centerlinepnt3, centerlinepnt4)
Next
ssetobj.Delete
'................
每次都失败，无法引用
请发EMIL:verygood1979@163.com

使用道具举报