摘要：
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 阅读全文
posted @ 2013-07-05 18:37
Lzhm216
阅读(1286)
评论(0)
推荐(0)
浙公网安备 33010602011771号