selectionset结合Move,rotate使用

兰州人

2. Private Sub Form_Load()
3.   Dim tempSet As AcadSelectionSet
4.   Set tempSet = mmm
5. End Sub
6. Function mmm() As AcadSelectionSet
7.   Dim Sset As AcadSelectionSet
8.   Set Sset = DrawingGB6170Front(1, 2)
9.   Dim pp(0 To 2) As Double
10.   pp(0) = 100: pp(1) = 100: pp(2) = 0
11.   For ii = 0 To Sset.Count - 1
12.     Sset.Item(ii).Rotate pp, 90 * 3.1415926 / 180
13.   Next ii
14.   Set mmm = Sset
15. End Function
16. Function CreateSelectionSet() As AcadSelectionSet
17.   Dim appAutoCAD As AutoCAD.AcadApplication
18.   On Error Resume Next
19.   Set appAutoCad = GetObject(, "AutoCAD.Application")
20.   If Err Then
21.     Err.Clear
22.     Set appAutoCad = CreateObject("AutoCAD.Application")
23.   End If
24.   appAutoCad.Visible = True
25.   Dim AcadDoc As AcadDocument
26.   Set AcadDoc = appAutoCad.ActiveDocument
27.   With AcadDoc
28.     On Error Resume Next
29.     If Not IsNull(.SelectionSets.Item("MySetSelectionSet")) Then
30.       Set CreateSelectionSet = .SelectionSets.Item("MySetSelectionSet")
31.       CreateSelectionSet.Delete
32.     End If
33.     Set CreateSelectionSet = .SelectionSets.Add("MySetSelectionSet")
34.   End With
35. End Function
37. Function DrawingGB6170Front(xDirection As Double, yDirection As Double) As AcadSelectionSet
38.     Dim CadEntity As New MyAcadEntity
39.   Dim objModelSpace As AcadModelSpace
40.   Set objModelSpace = CadEntity.objModelSpace
41.   NN = objModelSpace.Count - 1
42.   Dim tempCollection() As AcadEntity
43.   ReDim tempCollection(NN) As AcadEntity
44.   Dim Sset As AcadSelectionSet
45. For ii = 0 To objModelSpace.Count - 1
46.   Set tempCollection(ii) = objModelSpace.Item(ii)
47.   
48.   Set Sset = CreateSelectionSet
49. Next ii
50.   Sset.AddItems tempCollection
51.   Set DrawingGB6170Front = Sset
52. End Function

Private Sub Form_Load()   Dim tempSet As AcadSelectionSet   Set tempSet = mmm End Sub Function mmm() As AcadSelectionSet   Dim Sset As AcadSelectionSet   Set Sset = DrawingGB6170Front(1, 2)   Dim pp(0 To 2) As Double   pp(0) = 100: pp(1) = 100: pp(2) = 0   For ii = 0 To Sset.Count - 1     Sset.Item(ii).Rotate pp, 90 * 3.1415926 / 180   Next ii   Set mmm = Sset End Function Function CreateSelectionSet() As AcadSelectionSet   Dim app<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> As AutoCAD.AcadApplication   On Error Resume Next   Set appAutoCad = GetObject(, "AutoCAD.Application")   If Err Then     Err.Clear     Set appAutoCad = CreateObject("AutoCAD.Application")   End If   appAutoCad.Visible = True   Dim AcadDoc As AcadDocument   Set AcadDoc = appAutoCad.ActiveDocument   With AcadDoc     On Error Resume Next     If Not IsNull(.SelectionSets.Item("MySetSelectionSet")) Then       Set CreateSelectionSet = .SelectionSets.Item("MySetSelectionSet")       CreateSelectionSet.Delete     End If     Set CreateSelectionSet = .SelectionSets.Add("MySetSelectionSet")   End With End Function Function DrawingGB6170Front(xDirection As Double, yDirection As Double) As AcadSelectionSet     Dim CadEntity As New MyAcadEntity   Dim objModelSpace As AcadModelSpace   Set objModelSpace = CadEntity.objModelSpace   NN = objModelSpace.Count - 1   Dim tempCollection() As AcadEntity   ReDim tempCollection(NN) As AcadEntity   Dim Sset As AcadSelectionSet For ii = 0 To objModelSpace.Count - 1   Set tempCollection(ii) = objModelSpace.Item(ii)      Set Sset = CreateSelectionSet Next ii   Sset.AddItems tempCollection   Set DrawingGB6170Front = Sset End Function

muzi2005888

收下学习一下

style6301

要是能配上注解就好了，顺便在注上代码的功能、目的、接口等信息