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
末端接頭