摘要：
Private Sub CommandButton1_Click()Dim pEntity As AcadObjectDim pBlock As AcadBlockReferenceDim pPolyline As AcadLWPolylineDim pSlct As AcadSelectionSet'若Entity选择集存在，则删除选择集，删除后并添加For i = 0 To ThisDrawing.SelectionSets.Count - 1If ThisDrawing.SelectionSets.Item(i).Name = "Entity" ThenSet 阅读全文
2013年7月5日
