CAD中，對于多線段，該段VBA程式可以訪問e物件的Area、Layer等屬性，但卻不能訪問Coordinates、Coordinates(1)等屬性資訊，哪位大神幫忙解決一下，不勝感激，下附代碼。
Public Sub Test_Some()
Dim e As Object
Dim SObject As Object
On Error Resume Next
Set SObject = ThisDrawing.SelectionSets.Add("Object") '將物件賦值給變數
SObject.SelectOnScreen '螢屏選擇物件
For Each e In SObject
Debug.Print e.Layer
Debug.Print e.Area
'Debug.Print e.Coordinates '該句無法運行通過，沒有結果
'Debug.Print e.Coordinates(1) '該句無法運行通過，沒有結果
Next
SObject.Clear
SObject.Delete
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/141636.html
標籤：VBA