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

verygood1979

'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

yicol