妳好！我不知道如何用VBA閱讀CAD中的文本內容或表格內容。

Dim ssetObj作為對象' AcadSelectionSet

暗淡我壹樣長

corner 1(0)= 0:corner 1(1)= 0:corner 1(2)= 0

角2(0) = 1000:角2(1) = 1000:角2(2) = 0

出錯時轉到Err1

創建選擇集

如果不是IsNull(AcadDoc。selections sets . Item(" SSET "))然後

設置ssetObj = AcadDoc。selections sets . Item(“SSET”)

ssetObj。刪除

如果…就會結束

Err1:

設置ssetObj = AcadDoc。selections sets . Add(" SSET ")

整數形式的模糊模式

暗淡最小點，最大點

i = 0

mode = 1 ' acSelectionSetCrossing

ssetObj。選擇模式，corner1，corner2

作為對象的尺寸

對於ssetObj每個耳鼻喉科

如果輸入。EntityName = "AcDbText "然後

i = i + 1

單元格(I，1) = ENT。文本字符串

如果…就會結束

下壹個ENT

末端接頭