EPS读取对象属性并写入到.txt

EPS获取对象属性常用的函数有：

1、GetSelGeoValue( index, attrField) ’获取当前选择集指定地物的属性
index----选择集地物的索引号，从0开始；
attrField----要获取的属性字段名称。

2、GetObjectAttr( geoID, attrField) ‘获取对象属性
geoID ----- 地物ID
attrField ----- 要获取的属性字段名称,见下表

常用第1种获取对象属性，第2中需要先获得ID才能再进行对象属性获取。以下是EPS获取对象属性并写入txt中的程序：

Sub OnClick()
      SSProcess.PushUndoMark  
      SSProcess.ClearSelection  
      SSProcess.ClearSelectCondition  
      SSProcess.SetSelectCondition "SSObj_Type", "==", "POINT"
      SSProcess.SelectFilter  
		geocount=      SSProcess.GetSelGeoCount  
		if geocount>0 then
			dim fso, tf, i
			dim  id,code1,code2, layer, color, chline,XLK
			set fso=CreateObject("Scripting.FileSystemObject")
			set tf=fso.CreateTextFile("C:\Users\lenovo\Desktop\3333\test.txt",true)
			XLK="KING"
			for i=0 to geocount-1
				id=      SSProcess.GetSelGeoValue(i, "SSObj_ID" )       ''获取当前选择集指定地物的属性
				code1=      SSProcess.GetSelGeoValue(i, "SSObj_Code" )       ''获取当前选择集指定地物的属性
				code2=      SSProcess.GetObjectAttr(Cint(id),"SSObj_Code")     ''获取对象属性
				layer=      SSProcess.GetObjectAttr(Cint(id),"SSObj_LayerName")    ''获取对象属性
				color=      SSProcess.GetObjectAttr(Cint(id),"SSObj_Color")    ''获取对象属性
				chline=code1 &","& layer &","& color &","& code2 &","& XLK
				tf.writeline(chline)
			next
			tf.close
		end if
End Sub