當前位置:成語大全網 - 漢語詞典 - 妳好!我不知道如何用VBA閱讀CAD中的文本內容或表格內容。

妳好!我不知道如何用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

末端接頭