這是學來的:
Sub allsel()
Dim sel1 As AcadSelectionSet
Set sel1 = ThisDrawing.SelectionSets.Add("Sd")
Call sel1.Select(acSelectionSetPrevious)
sel1.Highlight (True)
sco = sel1.Count
MsgBox CStr(sco) & "個物件被選擇"
End Sub
以上只能顯示N個物件被選擇
請問:如果要顯示內容該如何設定?
例如:數值
例如:字串 @3600x5
如果要把N個選擇的物件(數值)在VBA做資料排序,請問該如何做?
謝謝!!