[VBA函数]：将选择集内数传给数组

fjw_ok

将选择集内数传给数组

2. 
   
3.   [FONT=courier new]
   
4. Public Function zhuanhuan(sset, aary)
   
5. Dim sset As AcadSelectionSet
   
6. Dim aary(100) As Variant
   
7. For i = 0 To sset.Count - 1
   
8. aary(i) = GetDXFCodeValue(sset.Item(i), 1)
   
9. Next
   
10. End Function
    
11. 
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> Public Function zhuanhuan(sset, aary)<br /> Dim sset As AcadSelectionSet<br /> Dim aary(100) As Variant<br /> For i = 0 To sset.Count - 1<br /> aary(i) = GetDXFCodeValue(sset.Item(i), 1)<br /> Next<br /> End Function<br /> <br />   [/FONT]<br />