• EASYMAP WEB API
• EASYOBJECT

對於本 API 使用上之 bug 與建議，請 email 至jeffrey@gis.tw 向我們回報錯誤或提出相關建議，並請耐心等待我們將漏洞修復，但我們並不保證 bug 修復的時間。

GISMAP輸出模組（▲） 影像列印輸出模組（■） 模組內可以互相搭配使用

簡介 對象 嵌入 EASYOBJECT API 語言相容性 API 更新

API 概述 AddSymbolMark ■ CalculateArea checkIntersect checkIntersect2 CheckShp ClipShape CombineImages ■ ConvShp ClipShpZip ▲ CreateDraw ▲ CreateImage ■ downShpZip DrawCateTheme ▲ DrawCateThemeG ▲ DrawCateThemeDB ▲ DrawCateThemeDB1 ▲ DrawCateThemeDBKML ▲ DrawImage ■ DrawLabel ■ DrawMarkLabel ■ DrawQueryAttr ▲ DrawRiceCateThemeG ▲ DrawRiceQueryShape ▲ DrawShape ■ DrawTheme ▲ DrawTxt ▲ GetEXIF GetRange GetRangeShape

identify identify2 ImgLayout ▲ ImgLayoutAdd ▲ ImgLayoutAddAlpha ▲ InitColorPattern ▲ LoadImage ■ LoadMutiShp ▲ LoadMutiShpPrint ▲ LoadShp ▲ MergeImages ■ MergeShp MergeMultiShp OuptImgLayout ▲ Queryshape QueryBuffer RasterCapture ▲ SaveImage ■ SetFont ▲ SetCateField ▲ SetCateField1 ▲ SetCateFieldG ▲ SetCateFieldDB ▲ SetQueryShape ▲ showValue ShpToKml ShpToKml2 ShpToKml3 UpdateShpField LoadCalData ▲ SetCalCateField ▲ DrawCalCateTheme ▲ PolySelect PolyHand Dissolve

對象

要利用 EASYOBJECT API 進行開發之前您必須先熟悉 物件導向程式設計，同時也應該熟悉 COM 元件的使用。

本元件主要是提供ArcObject以外能有一個地圖元件的選擇，由於EASYOBJECT是因為專案需要而一個一個開發，所以內容並不能以ESRI公司相比，所以如果有需要增加元件功能部分，請通知我們。

版本更新說明

版本：EASYOBJECT 1.4 時間：2011/8/2 1.新增identify1函式 2.新增identify2函式 版本：EASYOBJECT 1.3 時間：2010/11/4 1.新增GetRangeShape函式 2.新增ClipShape函式 版本：EASYOBJECT 1.2 時間：2010/7/29 1.新增SetCateFieldDB函式 2.新增DrawCateThemeDB函式

載入 EASYOBJECT API

請先安裝我們所提供之 salus.exe程式，安裝完畢後，請先重開機，重開機後，你會發現在C:\Program Files\gis\SALUS\有找到一個Salus.dll，請將這個放入元件服務裡面進行註冊，相關註冊方式「按此下載」，如果註冊成功後，則可以開始使用此元件。
1.2以後版本請向甫任索取更新程式。

ASP語法：

Set ez = Server.CreateObject("SALUS.Draw")

C#語法：要在C#使用，記得需加入參考（選擇COM），就可以找到SALUS 1.0型別程式庫

SALUSLib.Draw ez = new SALUSLib.Draw();

以上兩種寫法，請各位注意，一個是用在傳統語言ASP、PHP，另一個則是用在.net上面使用。

語言相容性

EASYOBJECT 目前支援32位元之下列語言版本，如果您發現有其他可正常運作的語言我們未列出，歡迎到告訴我們。

• VB 6
• VS2005
• ASP
• PHP
• ASP.NET

API 更新

EASYOBJRCT 開發小組會持續對 API 進行 bug 修正與效率改進，更新後的 API 會自動生效，您所開發的程式無須做任何變動即可套用到最新的 API。

bsmi00lp.ttf-->Salus元件特有字型檔，將所需要的字型改名，再放入Fonts資料夾

AddSymbolMark

Method

建構式	說明
Sub AddSymbolMark(SymbolList As String)	在圖面增加圖例。

參數

屬性	類別	說明
SymbolList	String	。

---

CalculateArea

Method

建構式	說明
Function CalculateArea(connection As String, sql As String) As String	計算面積，將EASYMAP動態畫圖形寫入資料庫後，自動算面積的方法，for EP2專案。

參數

屬性	類別	說明
connection	String	資料庫連線字串。
sql	String	SQL語法。

---

checkIntersect

Method

建構式	說明
Function checkIntersect(Polya As String, Polyb As String) As Boolean	判斷兩圖形是否交集。

參數

屬性	類別	說明
Polya	String	面坐標。
Polyb	String	面坐標。

---

checkIntersect2

Method

建構式	說明
Function CheckIntersect2 (ShpPath As String,ShpType as Long, exp As String,exp As String) As Boolean	確認兩個圖形是否共邊或是有交集。

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑(逗號可多個shpfiles)。
ShpType	Long	1是Shpfile 2是Group files。
Exp	String	第一個條件fid=2555。
Exp	String	第二個條件fid=2569。

---

CheckShp

Method

建構式	說明
Function CheckShp(ShpPath As String) As String	判斷是否是正確的shpfiles。

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑。

---

ClipShape

Method

建構式	說明
Function ClipShape(FromShape , ClipPolygon) as String	透過兩個polygon，輸出共同的polygon，"x,y,x,y,x,y..."。

參數

屬性	類別	說明
FromShape	String	輸入polygons，格式："x,y,x,y,x,y..."
ClipPolygon	String	輸入polygons，格式："x,y,x,y,x,y..."

　

---

ClipShpZip

Method

建構式	說明
Function ClipShpZip(FromShp As String, Exp As String, ToShp As String , shptype as integer, outputzip As String, outputshpfile As String,type as string) As String	透過shpfile的屬性進行切圖，產生shpfiles後再轉為zip。

參數

屬性	類別	說明
FromShape	String	shpfiles路徑
Exp	String	欄位與值，例：city_id='A'
ToShp	String	要被select by theme的Shpfile
shptype	String	1是Shpfile 2是Group files
outputzip	String	zip檔案輸出，例如：d:\web\aa.zip
outputshpfile	String	要輸出實體檔案的目錄，例如d:\web 會回傳所有的檔名，有分號分隔
type	String	1:select by theme功能 2:用bbox去select shpfile（fromshape填空白） 3:select by attribute功能（fromshape填空白）

OutBox = s.ClipShpZip("C:\LandMapR19\TOWN252", "CODE='R19'", "C:\LandMapR19\GroupShp", 2, "C:\SelectShpZip", "C:\ShpZip\OutShp", "1") OutBox = s.ClipShpZip("", "175417,2561489,178925,2558459", "C:\LandMapR19\GroupShp", 2, "C:\ShpZip", "C:\ShpZip\OutRangeShp", "2") OutBox = s.ClipShpZip("", "", "C:\LandMapR19\GroupShp", 2, "C:\ShpAllZip", "C:\ShpZip\OutAllShp", "3") OutBox = s.ClipShpZip("", "NEW_SECTIO ='R190713'", "C:\LandMapR19\GroupShp", 2, "C:\ShpR190713Zip", "C:\ShpZip\OutR190713Shp", "3") OutBox = s.ClipShpZip("", "NEW_SECTIO in ('R190713' , 'R190726' )", "C:\LandMapR19\GroupShp", 2, "C:\ShpR190726Zip", "C:\ShpZip\OutR190726Shp", "3")

　

---

CombineImages

與SaveImage()、DrawLabel、DrawMarkLabel等可進行搭配，最後透過SaveImage()結束

Method

建構式	說明
Function CombineImages(SaveFile As String, BOX As String, Width As Long, Height As Long, imgPaths As String, ImgBOXList As String, MergeFile As String) As String	合併圖片。

參數

屬性	類別	說明
SaveFile	String	儲存圖片路徑。
BOX	String	左上右下坐標。
Width	Long	圖片寬度。
Height	Long	圖片高度。
imgPaths	String	多張圖片路徑。
ImgBOXList	String	多張圖片坐標範圍。
MergeFile	String	。

---

ConvShp

Method

建構式	說明
Function ConvShp(connection As String, sql As String, outputShp As String) As String	資料庫轉hpfiles。

參數

屬性	類別	說明
connection	String	資料庫連線字串。
sql	String	SQL語法。
outputShp	String	輸出成shpfiles。

---

CreateDraw

Method

建構式	說明
Sub CreateDraw(Width As Long, Height As Long)	開新畫布。

參數

屬性	類別	說明
Width	Long	圖片寬度。
Height	Long	圖片高度。

---

CreateImage

Method

建構式	說明
Function CreateImage(imgPaths As String, numW As Long, numH As Long) As String	產生新圖片。

參數

屬性	類別	說明
imgPaths	String	圖片路徑。
numW	Long	圖片寬度。
numH	Long	圖片高度。

---

downShpZip

Method

建構式	說明
Function downShpZip(ShpPath As String, BBOX As String, output As String) As String	下載shpfiles為zip。

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑。
BBOX	String	坐標範圍。
output	String	檔案輸出。

---

DrawCateTheme

Method

建構式	說明
Function DrawCateTheme(ShpPath As String, LabelField As String, OutputPath As String, OutlineColor As String, outlinesize As Long, BBOX As String, ImgWidth As Long, ImgHeight As Long) As String	進行圖形分類轉圖片。

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑。
LabelField	String	DBF Label欄位。
OutputPath	String	輸出在web的路徑 不含圖檔名稱。（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
OutlineColor	String	顏色值FF00FF。
outlinesize	Long	外框大小。
BBOX	String	如果不輸入，表示全圖，ex:minx,miny,maxx,maxy。
ImgWidth	Long	圖片寬度。
ImgHeight	Long	圖片高度。

---

DrawCateThemeG

Method(取代之前的DrawCateTheme)

建構式	說明
Function DrawCateThemeG(ShpPath As String,ShpType as Long, LabelField As String, OutputPath As String, OutlineColor As String, outlinesize As Long, BBOX As String, ImgWidth As Long, ImgHeight As Long) As String	進行群組圖形分類轉圖片，另外可以設定底圖背景與SetCateFieldG搭配。

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑(Group SHPfiles需特定轉檔)。
ShpType	Long	1是Shpfile 2是Group files。
LabelField	String	dbf 欄位。
OutputPath	String	輸出在web的路徑，含圖檔名稱。（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
OutlineColor	String	顏色值FF00FF。
outlinesize	Long	外框大小。
BBOX	String	如果不輸入，表示全圖，ex:minx,miny,maxx,maxy。
ImgWidth	Long	圖片寬度。
ImgHeight	Long	圖片高度。

---

DrawCateThemeDB

Method(取代之前的DrawCateTheme)

建構式	說明
Function DrawCateThemeDB(ShpPath As String, ShpType As Long, LabelField As String, OutputPath As String, OutlineColor As String, outlinesize As Long, BBOX As String, ImgWidth As Long, ImgHeight As Long, DBConn As String, TableName As String, Exp As String=LinkDBField的前幾個字母, TmpDbfPath As String, CheckTime as Long) As String	進行群組圖形分類轉圖片，另外可以設定底圖背景與SetCateFieldDB搭配。

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑(Group SHPfiles需特定轉檔)。
ShpType	Long	1是Shpfile 2是Group files。
LabelField	String	dbf 欄位。
OutputPath	String	輸出在web的路徑，含圖檔名稱。（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
OutlineColor	String	顏色值FF00FF。
outlinesize	Long	外框大小。
BBOX	String	如果不輸入，表示全圖，ex:minx,miny,maxx,maxy。
ImgWidth	Long	圖片寬度。
ImgHeight	Long	圖片高度。
DBConn	String	資料庫連線字串。
TableName	String	資料庫的TABLE。(例如：dbo.land 這個是要透過sql產生暫存檔)
Exp	String	與SetCateFieldDB的LinkDBField的前幾個字母作為主題圖暫存檔的分類檔案。(例如：select * from TableName where LinkDBField like 'Exp%')
TmpDbfPath	String	暫存檔存放在伺服器上的路徑。
CheckTime	Long	與上次暫存檔的差距秒數，如果是0表示暫存檔要馬上重新產製。

---

DrawCateThemeDB1

Method(DrawCateThemeDB的加強版)

建構式	說明
Function DrawCateThemeDB1(ShpPath As String, ShpType As Long, LabelField As String, OutputPath As String, OutlineColor As String, outlinesize As Long, BBOX As String, ImgWidth As Long, ImgHeight As Long, DBConn As String, TableName As String, Exp As String, TmpDbfPath As String, CheckTime as Long,Where as String) As String	進行群組圖形分類轉圖片，另外可以設定底圖背景與SetCateFieldDB搭配。回傳值為範圍

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑(Group SHPfiles需特定轉檔)。
ShpType	Long	1是Shpfile 2是Group files。
LabelField	String	dbf 欄位。
OutputPath	String	輸出在web的路徑，含圖檔名稱。（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
OutlineColor	String	顏色值FF00FF。
outlinesize	Long	外框大小。
BBOX	String	如果不輸入，表示全圖，ex:minx,miny,maxx,maxy。
ImgWidth	Long	圖片寬度。
ImgHeight	Long	圖片高度。
DBConn	String	資料庫連線字串。
TableName	String	資料庫的TABLE。(例如：dbo.land 這個是要透過sql產生暫存檔)
Exp	String	與SetCateFieldDB的LinkDBField的前幾個字母作為主題圖暫存檔的分類檔案。(例如：select * from TableName where LinkDBField like 'Exp%')
TmpDbfPath	String	暫存檔存放在伺服器上的路徑。
CheckTime	Long	與上次暫存檔的差距秒數，如果是0表示暫存檔要馬上重新產製。
Where	String	where可以增加條件（例如：a='1' and b='2'）

---

DrawCateThemeDBKML

Method(同DrawCateThemeDB，只是輸出KMZ)

建構式	說明
Function DrawCateThemeDBKML(ShpPath As String, ShpType As Long, LabelField As String, OutputPath As String, OutlineColor As String, outlinesize As Long, BBOX As String, ImgWidth As Long, ImgHeight As Long, DBConn As String, TableName As String, Exp As String=LinkDBField的前幾個字母, TmpDbfPath As String, CheckTime as Long,shpCoord as Long,ContentField as String) As String	進行群組圖形分類轉圖片，另外可以設定底圖背景與SetCateFieldDB搭配。

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑(Group SHPfiles需特定轉檔)。
ShpType	Long	1是Shpfile 2是Group files。
LabelField	String	label欄位。
OutputPath	String	輸出在web的路徑，含圖檔名稱。檔名不要KMZ
OutlineColor	String	顏色值FF00FF。
outlinesize	Long	顏色值FF00FF可空白。
Fillcolor	Long	外框大小。
BBOX	String	如果不輸入，表示全圖，ex:minx,miny,maxx,maxy-->這是WGS84坐標
DBConn	String	資料庫連線字串。
TableName	String	資料庫的TABLE。
Exp	String	與SetCateFieldDB的LinkDBField的前幾個字母作為主題圖暫存檔的分類檔案。
TmpDbfPath	String	暫存檔存放在伺服器上的路徑。
CheckTime	Long	與上次暫存檔的差距秒數，如果是0表示暫存檔要馬上重新產製。
shpCoord	Long	此為輸入的坐標系統有請輸入97,67,84
ContentField	String	點該圖形，要顯示的內容，此為資料庫的某一個欄位

s.SetCateFieldDB("D:\Rmap\GroupShp", 2, "NEW_SECTIO;LANDNO8", "DCL_LNDNO", "a1", "1;2;3;4;5;6;7;8;", "FF0000;00FF00;0000FF;FFFF00;00FFFF;FF00FF;7F7F00;007F7F;", "FF0000", CStr(1), "LANDNO", "000000", 20) s.DrawCateThemeDBKML("D:\Rmap\GroupShp", 2, "landno", "D:\DrawCateThemeDBKML", "FC0000", 1, "FFFF00", OutBox, 1024, 768, "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:/Database1.accdb;Persist Security Info=False", "V_DECLARES", "L", "D:\Temp\test\", 3000, 3, "LANDNO")

另外一個範例-找到要顯示的範圍後，載入下面的KML檔案即可 <?xml version="1.0" encoding="UTF-8"?> <kml xmlns="http://www.opengis.net/kml/2.2"> ?<%@ Language="VBScript" %> <% ba=split(Request("BBOX"),",") Set Tw = Server.CreateObject("TwTmConvert.TwTmConv.1") Call Tw.TWD97toTM2(ba(0),ba(1)) lt_x=Tw.x rb_y=Tw.y Call Tw.TWD97toTM2(ba(2),ba(3)) rb_x=Tw.x lt_y=Tw.y Call Tw.TWD97toTM2(ba(4),ba(5)) c_x=(lt_x+rb_x)/2 c_y=(lt_y+rb_y)/2 dis_x=(rb_x-lt_x)/ba(11) dis_y=(lt_y-rb_y)/ba(12) if month(now()) <= 9 then amonth = "0" & month(now()) else amonth = month(now()) end if if day(now()) <= 9 then aday = "0" & day(now()) else aday = day(now()) end if amin = hour(now())*60 + Minute(Now()) if len(amin)=1 then amin="000"& amin elseif len(amin)=2 then amin="00"& amin elseif len(amin)=3 then amin="0"& amin end if stime = year(now()) & amonth & aday & amin Randomize ABOLand = "_"& stime & Rnd(100000)*1000000 minx=c_x-dis_x*512 miny=c_y-dis_y*386 maxx=c_x+dis_x*512 maxy=c_y+dis_y*386 bbox=minx &","& miny &","& maxx &","& maxy Set ImgCap = Server.CreateObject("SALUS.Draw.1") Retval = ImgCap.Identify(c_x, c_y, "D:\web\abonew\maps\town.shp", "CODE", 10) if Retval & "" <> "" then 'bbox = ImgCap.GetRange("D:\web\abonew\maps\地政司地籍圖merge", "SECTION;AA49", "L210740^15760000") Call ImgCap.SetCateFieldDB( "D:\web\abonew\maps\地政司地籍圖merge", 1, "SECTION;AA49", "SECTION_ID;LANDNO", "IDENTIFY_CODE_SN", "6001;6002;6003;6004;6005;6006;6007;6008;", "FF0000;39C936;FFFFFF;FFFF00;00FFFF;FF00FF;7F7F00;8E8E8E;", "FFFFFF", "1", "AA49", "000000", 20) ABOLand = ABOLand & Retval 'OutBox = ImgCap.DrawCateThemeDBKML("D:\web\abonew\maps\地政司地籍圖merge", 1, "AA49", "D:\web\abonew\maps\tmp\" & ABOLand , "FC0000", 2, "", bbox, "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\web\abonew\maps\V_OWNSHIP_MAP.accdb;Persist Security Info=False", "V_OWNSHIP_MAP", Retval, "D:\web\abonew\kmz\tmp\", 96000, 97, "CONTENT","TITLE") OutBox = ImgCap.DrawCateThemeDBKML("D:\web\abonew\maps\地政司地籍圖merge", 1, "AA49", "D:\web\abonew\maps\tmp\" & ABOLand , "FC0000", 2, "", bbox, "Provider=OraOLEDB.Oracle.1;Password=1234;Persist Security Info=True;User ID=land7_9806;Data Source=aboo", "V_OWNSHIP_MAP", Retval, "D:\web\abonew\kmz\tmp\", 0, 97, "CONTENT","TITLE") end if %> <Document> <name>所有權</name> <open>1</open> <description>2009-06-18</description> <Folder> <NetworkLink> <name>aboLand</name> <open>1</open> <description>aboLand</description> <Link> <viewRefreshMode>onStop</viewRefreshMode> <viewRefreshTime>1</viewRefreshTime> <href>http://jeffrey:82/abonew/maps/tmp/<%=ABOLand%>.kmZ</href> </Link> </NetworkLink> </Folder> </Document> <%Set Tw=Nothing%> </kml>

---

DrawRiceCateThemeG

Method(DrawCateTheme的加強版)

建構式	說明
Function DrawCateThemeG(ShpPath As String,ShpType as Long, LabelField As String, OutputPath As String, OutlineColor As String, outlinesize As Long, BBOX As String, ImgWidth As Long, ImgHeight As Long, ShpPath As String) As String	進行群組圖形分類轉圖片，另外可以設定底圖背景與SetCateFieldG搭配。shape file改讀cache檔，加速圖形繪製 。

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑(Group SHPfiles需特定轉檔)。
ShpType	Long	1是Shpfile 2是Group files。
LabelField	String	dbf 欄位。
OutputPath	String	輸出在web的路徑，含圖檔名稱。（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
OutlineColor	String	顏色值FF00FF。
outlinesize	Long	外框大小。
BBOX	String	如果不輸入，表示全圖，ex:minx,miny,maxx,maxy。
ImgWidth	Long	圖片寬度。
ImgHeight	Long	圖片高度。
ShpPath	String	Cache Shape File路徑。

sPara=Split(PARA,",") FindField=sPara(0) FindValues=sPara(1) FindFillColor=sPara(2) FindOutlineColor=sPara(3) FindOutlineSize=sPara(4) FindText=sPara(5) FindLabelColor=sPara(6) If Trim(alpha) = "" Then alpha = rs("alpha") End If Call Obj.SetCateFieldG(rs("datapath"),rs("shptype"), FindField, FindValues, FindFillColor, FindOutlineColor, FindOutlineSize,FindText, FindLabelColor, rs("LabelSize")) OutBox = Obj.DrawRiceCateThemeG(rs("datapath"), rs("shptype"), rs("Labelfield"), alpha, rs("OutlineColor"), rs("outlinesize"), BBOX, WIDTH, HEIGHT,"D:\temp\")

---

DrawRiceQueryShape

Method(與SetQueryShape搭配)

建構式	說明
Function DrawRiceQueryShape(ShpPath As String,ShpType as Long,ShpPath As String,ShpType as Long, FindField As String, FindValues As String,Buffer As Long,ShpPath As String,LabelField As String,OutputPath As String, BBOX As String, ImgWidth As Long, ImgHeight As Long) As String	進行群組圖形分類轉圖片

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑(Group SHPfiles需特定轉檔)。欲查詢的shape file
ShpType	Long	1是Shpfile 2是Group files。
ShpPath	String	shpfiles路徑(Group SHPfiles需特定轉檔)。所有的shpae file,使用";"串起來
ShpType	Long	1是Shpfile 2是Group files。
FindField	String	要查詢的欄位，可用分號。
FindValues	String	要查詢的值，值要合併，中間要加^
Buffer	Long	內縮的程度。
ShpPath	String	暫存檔存放的位置
LabelField	String	dbf 欄位。
OutputPath	String	輸出在web的路徑，含圖檔名稱。（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
BBOX	String	如果不輸入，表示全圖，ex:minx,miny,maxx,maxy。
ImgWidth	Long	圖片寬度。
ImgHeight	Long	圖片高度。

'== get all layers path for Year only========== set rs1=server.createobject("adodb.recordset") 'sql="select top 120 * from layers where valid='1' and layer_one not in ('RiverArea','RMAP','R951') order by sortorder" sql="select * from layers where valid='1' order by sortorder" rs1.open sql , conn , 1 , 1 While Not rs1.Eof layer = rs1("layer") datapath = rs1("datapath") path = path & datapath & layer & ";" rs1.MoveNext Wend rs1.close Set rs1=Nothing '== Para ======================================== If CInt(QUERYINDEX) = CInt(i) Then PARA = Request("PARA") End If sPara=Split(PARA,",") FindField=sPara(0) '' NEW_SECTIO;LANDNO8 FindValues=sPara(1) '' G080113^23220000 FindFillColor=sPara(2) '' FFFFFF FindOutlineColor=sPara(3) '' FF0000 FindOutlineSize=sPara(4) '' 3 FindText=sPara(5) '' FindLabelColor=sPara(6) '' 000000 Call Obj.SetQueryShape("CULTURE", "0;1;2", "D:\web\rice3\images\farm0.gif;D:\web\rice3\images\farm1.gif;D:\web\rice3\images\farm2.gif;","F00FF0;F00FF0;F00FF0", "1;1;1", "", "F00FF0", 12) result = Obj.DrawRiceQueryShape(rs("datapath"),rs("shptype"), path, 1, FindField, FindValues,-1,"D:\Temp\", "", "", BBOX, WIDTH,HEIGHT) path = Replace(path,"\","/")

---

　

DrawImage

Method

建構式	說明
Sub DrawImage(ImgList As String, ImgWidth As Long, ImgHeight As Long, OffsetX As Long, OffsetY As Long, Alpha As Long)	shp輸出圖片。

參數

屬性	類別	說明
ImgList	String	圖片路徑。
ImgWidth	Long	圖片寬度。
ImgHeight	Long	圖片高度。
OffsetX	Long	圖片偏移X。單位是像素
OffsetY	Long	這個點的 y(垂直) 坐標。
Alpha	Long	這個點的 y(垂直) 坐標。

---

DrawLabel

Method

建構式	說明
Sub DrawLabel(LabelList As String, FontSize As Long, FontColor As Long, BackColor As Long, DrawType As Long)	在畫布加入label。

參數

屬性	類別	說明
LabelList	String	label欄位。
FontSize	Long	字體大小。
FontColor	Long	字體顏色。
BackColor	Long	背景顏色。
DrawType	Long	這個點的 y(垂直) 坐標。

---

DrawShape

Method

建構式	說明
Sub DrawShape(long ShpType ,long ShpStyle ,string ShpList,long LineWidth,long LineColor,string FullColor, string LabelList, long FontSize, long FontColor)	在畫布加入圖形。

參數

屬性	類別	說明
ShpType	Long	1=point , 2=polyline ,3=polygon
ShpStyle	Long	point ShpStyle =1 圓 , =2 圖示 polyline ShpStyle =1 實線 polygon ShpStyle =1 有外框填滿 =2 有外框不填滿 =3 無外
ShpList	string	//ShpList = x1,y1,x2,y2,...xn,yn;x2,y2,....可以多個Shape List
LineWidth	Long	線寬
LineColor	Long	線顏色 cc00ff ->204*256*256+0*256+256
FullColor	string	FullColor = 圖檔 or Color #FFFFFF
LabelList	string	LabelList = L1;L2;L3 可以為空白不顯示Label
FontSize	string	字體大小
FontColor	Long	字體顏色

---

DrawMarkLabel

Method

建構式	說明
Sub DrawMarkLabel(Label As String, X As Long, Y As Long, FontSize As Long, FontColor As Long, BackColor As Long, DrawType As Long)	在畫布加入文字。

參數

屬性	類別	說明
Label	String	label欄位。
X	Long	這個點的 x(水平) 坐標。
Y	Long	這個點的 y(垂直) 坐標。
FontSize	Long	字體大小。
FontColor	Long	字體顏色。
BackColor	Long	背景顏色。
DrawType	Long	這個點的 x(水平) 坐標。

---

DrawQueryAttr

Method(與SetQueryShape搭配)

建構式	說明
Function DrawQueryAttr(ShpPath As String,ShpType as Long, FindField As String, FindValues As String, LabelField As String, OutputPath As String, BBOX As String, ImgWidth As Long, ImgHeight As Long) As String	進行群組圖形分類轉圖片，另外可以設定底圖背景與SetCateFieldG搭配。

參數

屬性	類別	說明
ShpPath	String	shpfiles路徑(Group SHPfiles需特定轉檔)。
ShpType	Long	1是Shpfile 2是Group files。
FindField	String	要查詢的欄位，可用分號。
FindValues	String	要查詢的值，值要合併，中間要加^
LabelField	String	dbf 欄位。
OutputPath	String	輸出在web的路徑，含圖檔名稱。（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
BBOX	String	如果不輸入，表示全圖，ex:minx,miny,maxx,maxy。
ImgWidth	Long	圖片寬度。
ImgHeight	Long	圖片高度。

If CInt(QUERYINDEX) = CInt(i) Then PARA = Request("PARA") End If sPara=Split(PARA,",") FindField=sPara(0) '' NEW_SECTIO;LANDNO8 FindValues=sPara(1) '' G080113^23220000 FindFillColor=sPara(2) '' FFFFFF FindOutlineColor=sPara(3) '' FF0000 FindOutlineSize=sPara(4) '' 3 FindText=sPara(5) '' FindLabelColor=sPara(6) '' 000000 Call Obj.SetQueryShape(FindField, FindValues, FindFillColor,FindOutlineColor, FindOutlineSize, FindText, FindLabelColor, 12) result = Obj.DrawQueryAttr(rs("datapath"),rs("shptype"),FindField,FindValues,"landno","",BBOX,WIDTH,HEIGHT)

---

DrawTheme

Method

建構式	說明
Function DrawTheme(ShpPath As String, field As String, Count As Long, imgType As String, OutputPath As String, BBOX As String, ImgWidth As Long, ImgHeight As Long) As String	將圖形進行分類。

參數

屬性	類別	說明
ShpPath	number	shpfiles路徑。
field	number	欄位名稱。
Count	number	。
imgType	number	。
OutputPath	number	輸出路徑。
BBOX	number	坐標範圍。
ImgWidth	number	圖片寬度。
ImgHeight	number	圖片高度。

---

DrawTxt

Method

建構式	說明
Sub DrawTxt(LabelList As String, FontSize As Long, FontColor As Long, BackColor As Long, DrawType As Long)	在畫布加入文字。

參數

屬性	類別	說明
LabelList	String	這個點的 x(水平) 坐標。
FontSize	Long
FontColor	Long
BackColor	Long
DrawType	Long

---

GetEXIF

Method

建構式	說明
Function GetEXIF(JpgfilePath As String, title As String) As String	取得JPG圖片資訊。回傳值為內容值

參數

屬性	類別	說明
JpgfilePath	number	圖片路徑與檔名。
title	number	要取出的標題。

title  資訊欄位值
"FileName"
"FileSize"
"FileDateTime"
"CameraMake"
"CameraModel"
"DateTime"
"Resolution"
"Width"
"Height"
"Orientation"
"FlashUsed"
"FocalLength"
"DigitalZoomRatio"
"CCDWidth"
"ExposureTime"
"ApertureFNumber"
"Distance"
"ISOequivalent"
"ExposureBias"
"Whitebalance"
"LightSource"
"MeteringMode"
"ExposureProgram"
"ExposureMode"
"DistanceRange"
"Process"
"GpsLat"
"GpsLong"
"GpsAlt"
"JfifHeader"

title = “” or “All” 顯示檔案內全部資訊
title =”XX;XX;XX;”
ex: “FileName; Width; Height; GpsLat; GpsLong; GpsAlt

輸出：
Format:
Title描述:數值or字串; Title描述:數值or字串;
如檔案內無title欄位資訊，並不會出現再輸出字串

Ex:
FileName:C:\DOWNLOAD\IMG_1591.jpg;FileSize:1097145;FileDateTime:2009:02:16 22:37:52;CameraMake:Canon;
CameraModel:Canon EOS Kiss Digital N;DateTime:2008:03:28 12:16:04;Resolution:960 x 1440;Width:960;Height:1440;
Flash used:No;Focal length : 28.0mm;(35mm equivalent: 109mm);CCDWidth:9.25mm;Exposure time: 0.013 s;(1/80);
Aperture:f/22.0;ISO equiv:200;Whitebalance : Auto;
GPS Latitude:22.665720;GPS Longitude:121.031983;GPS Altitude:33.000000;

　

Ex:
Dim s As SALUSLib.Draw
Set s = New SALUSLib.Draw
Dim ret As Boolean

Dim Retval As String

Retval = s.GetEXIF("C:\DOWNLOAD\IMG_1591.jpg", "CameraMake;CameraModel;Width;Height;GpsLat;GpsLong;GpsAlt;JfifHeader;")

Set s = Nothing

MsgBox Retval

---

GetRange

Method

建構式	說明
Function GetRange(ShpPath As String, FindField As String, FindValues As String) As String	取得圖形範圍。

參數

屬性	類別	說明
ShpPath	number	shpfiles路徑。
FindField	number	要查詢的欄位，可用分號。
FindValues	number	要查詢的值，值要合併，中間要加^

EX：
s.GetRange("d:\a.shp", "new_sectio;landno8","N180912^00010000")

---

GetRangeShape

Method

建構式	說明
Function GetRangeShape(ShpPath As String,ShpType as Int, FindField As String, FindValues As String) As String	取得圖形點位。回傳用逗號區隔X,Y,X,Y,X,Y如果有part，用分號分隔

參數

屬性	類別	說明
ShpPath	number	shpfiles路徑。
FindField	number	要查詢的欄位，可用分號。
FindValues	number	要查詢的值，值要合併。

ShpType

Long

1是Shpfile 2是Group files。

EX：
s.GetRangeShape("d:\a.shp", "new_sectio;landno8","N18091200010000")

---

QueryBuffer

Method

建構式	說明
Function QueryBuffer(DOUBLE X, DOUBLE Y, BSTR ShpPath, LONG ShpType, BSTR Fields, DOUBLE Dis) As String	點查詢。

參數

屬性	類別	說明
X	Double	這個點的 x(水平) 坐標。
Y	Double	這個點的 y(垂直) 坐標。
ShpPath	String	shpfiles路徑。
ShpType	number	ShpType = 1 一般Shape ShpType = 2 GroupShape
Fields	String	要查詢的欄位,用逗號可放多個。
Dis	Double	設定XY的buffer。

---

identify

Method

建構式	說明
Function identify(X As Double, Y As Double, ShpPath As String, Fields As String, Dis As Double) As String	點查詢。

參數

屬性	類別	說明
X	Double	這個點的 x(水平) 坐標。
Y	Double	這個點的 y(垂直) 坐標。
ShpPath	String	shpfiles路徑。
Fields	String	要查詢的欄位,用逗號可放多個。
Dis	Double	設定XY的buffer。

---

identify2

Method

建構式	說明
Function identify2(X As Double, Y As Double, ShpPath As String, ShpType As long, Fields As String, Dis As Double) As String	點查詢。

參數

回傳資料：與前面欄位資訊分隔使用 "^" 符號之後是點位資料！點位資料如有MultipPart 用";"符號分隔！

屬性	類別	說明
X	Double	這個點的 x(水平) 坐標。
Y	Double	這個點的 y(垂直) 坐標。
ShpPath	String	shpfiles路徑。
ShpType	Long	ShType = 1 一般 shp ShType = 2 Group shp
Fields	String	要查詢的欄位;用分號可放多個。
Dis	Double	設定XY的buffer。

---

ImgLayout

Method

建構式	說明
Function ImgLayout(Width As Long, Height As Long, bgcolor As String) As String	開啟Layout畫布。(功能跟createDraw一樣，只差有無底色，可用OuptImgLayout結束)

參數

屬性	類別	說明
Width	Long	畫布寬度。
Height	Long	這個點的 y(垂直) 坐標。
bgcolor	String	這個點的 y(垂直) 坐標。

---

ImgLayoutAdd

Method

建構式	說明
Function ImgLayoutAdd(SType As String, Source As String, Left As Long, Top As Long, color As String, size As Long) As String	加入物件到Layout畫布。

參數

屬性	類別	說明
SType	String	image,polygon,text。
Source	String	如果是image，則放入路徑位置，如果是polygon則放入影像坐標，如：0,0;80,80;85;65…。
Left	Long	左方位置。
Top	Long	上方位置。
color	Long	如果是polygon則此顏色為fillcolor ，如果是文字則為文字顏色。
size	Long	如果是文字則為文字大小，其他則無作用，一定要放空白。

---

ImgLayoutAddAlpha

Method

建構式	說明
Function ImgLayoutAddAlpha(SType As String, Source As String, Left As Long, Top As Long, color As String, size As Long) As String	加入物件到Layout畫布(增加透明度0~127)。

參數

屬性	類別	說明
SType	String	image,polygon,text。
Source	String	如果是image，則放入路徑位置，如果是polygon則放入影像坐標，如：0,0;80,80;85;65…。
Left	Long	左方位置。
Top	Long	上方位置。
color	Long	如果是polygon則此顏色為fillcolor ，如果是文字則為文字顏色。
size	Long	如果是文字則為文字大小，其他則無作用，一定要放空白。
Alpha	Long	0~127，0是透明

---

InitColorPattern

Method

建構式	說明
Sub InitColorPattern(ShpPath As String, field As String, Count As Long, StarColor As Long, EndColor As Long)	初始化顏色樣版。

參數

屬性	類別	說明
ShpPath	number	shpfiles路徑。
field	number
Count	number
StarColor	number
StarColor	number
EndColor	number

---

LoadImage

Method

建構式	說明
Sub LoadImage(imgFileName As String)	載入圖片。

參數

屬性	類別	說明
imgFileName	String	這個點的 x(水平) 坐標。

---

LoadMutiShp

Method

建構式	說明
Function LoadMutiShp(ShpPath As String, outpath As String, BBOX As String, ImgWidth As Long, ImgHeight As Long, outlinestyle As String, outlinesize As String, LabelField As String, LabelColor As String, LabelSize As String, FillColor As String) As String	載入多個Shape File。

參數

屬性	類別	說明
ShpPath	String	shpfile路徑，可用分號分隔
outpath	String	輸出檔名（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
BBOX	String	範圍
ImgWidth	Long	圖片寬度
ImgHeight	Long	圖片高度
outlinestyle	String	外框顏色
outlinesize	String	外框大小
LabelField	String	label欄位
LabelColor	String	label顏色
LabelSize	String	label大小
FillColor	String	填滿顏色，不填是空白

EX：
 Dim s As SALUSLib.Draw
Set s = New SALUSLib.Draw
OutBox = s.LoadMutiShp("D:\pdamap\縣市界;D:\pdamap\村里界", "C:\LoadMutiShp.gif", "204133,2682570,229918,2661211", 1024, 768, "#FF00FF;#00FF00", "6;4", "COUNTY_NAM;NEW_NA", "#FF0000;#00FF00", "12;12", ";")
Set s = Nothing
　

---

LoadMutiShpPrint

Method

建構式	說明
Function LoadMutiShpPrint(ShpPath As String, outpath As String, BBOX As String, ImgWidth As Long, ImgHeight As Long, outlinestyle As String, outlinesize As String, SymbolList As String) As String	載入ShapeFile 加入圖例。

參數

屬性	類別	說明
ShpPath	String	shpfile路徑，可用分號分隔
outpath	String	輸出檔名
BBOX	String	範圍
ImgWidth	Long	圖片寬度
ImgHeight	Long	圖片高度
outlinestyle	String	外框顏色
outlinesize	String	外框大小

---

LoadShp

Method

建構式	說明
Function LoadShp(ShpPath As String, imgType As String, OutputPath As String, BBOX As String, ImgWidth As Long, ImgHeight As Long, LabelField As String, LabelColor As Long, LabelSize As Long) As String	載入ShapeFile。

參數

屬性	類別	說明
ShpPath	String	shpfile路徑，可用分號分隔
OutputPath	String	輸出檔名（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
BBOX	String	範圍
ImgWidth	Long	圖片寬度
ImgHeight	Long	圖片高度
LabelColor	String	顏色
LabelSize	String	大小

---

MergeImages

Method

建構式	說明
Function MergeImages(imgPaths As String, ImgBOXList As String) As String	疊合圖形。

參數

屬性	類別	說明
imgPaths	String	圖片路徑，可用分號分隔
ImgBOXList	String	影像的範圍

---

MergeShp

Method

建構式	說明
Sub MergeShp(FromShp As String, ToShp As String, FromField As String, ToField As String)	合併shape file。

參數

屬性	類別	說明
FromShp	String	來源的shpfiles檔名
ToShp	String	要被合併的shpfile檔名
FromField	String	欄位，當此欄位的值與ToField有重複，會將ToField的值砍掉
ToField	String	合併的欄位

---

MergeMultiShp

Method

建構式	說明
Function MergeMultiShp(FromShp As String,ShpType As Long, ToShp As String ,NewShpFile As Long, FromField As String, ToField As String) As String	將多個Shape File 合併成一個。

參數

屬性	類別	說明
FromShp	String	來源Shape檔名多個用","分隔
ShpType	Long	1=shape File 2= GroupShape File 將GroupShape內的所有檔案合併 3=目錄內的Shape File 目錄檔案搜尋條件 ex:FromShp = C:\test*.shp
ToShp	String	合併後的shpfile檔名
NewShpFile	Long	0=加入原有Shape File ,1=產生新的Shape File
FromField	String	來源的欄位(多欄位用","分隔) 空白為整個欄位
ToField	String	寫入的欄位(多欄位用","分隔)
回傳值	String	true 合併成功 , false 合併失敗

範例：
1.OutVal = s.MergeMultiShp("C:\TestShp,C:\TestShp1,C:\TestShp2", 1, "C:\testMergeShp1" ,0 , "CITY_ID,TOWN_ID,NAME", "CITY_ID,TOWN_ID,NAME") 2.OutVal = s.MergeMultiShp("C:\RMAP\GroupShp", 2, "C:\testMergeShp2", "CITY_ID,TOWN_ID,NAME" ,1 , "CITY_ID,TOWN_ID,NAME") 3.OutVal = s.MergeMultiShp("C:\TEMP\B06*.shp", 3, "C:\testMergeShp3", "CITY_ID,TOWN_ID,NAME" ,1 , "CITY_ID,TOWN_ID,NAME")

---

OuptImgLayout

Method

建構式	說明
Function OuptImgLayout(output As String) As String	輸出Layout畫布。

參數

屬性	類別	說明
output	String	輸出的路徑

---

Queryshape

Method

建構式	說明
Function Queryshape(FromShp As String, SearchFiled As String, SearchValue As String, ToShppath As String, outputField As String) As String	透過某一個shpfile的條件查詢出範圍，再對另一個shapefile找出欄位資訊（疊圖分析）。

參數

屬性	類別	說明
FromShp	String	來源shpfile
SearchFiled	String	來源shpfile的欄位
SearchValue	String	來源shpfile欄位的值
ToShppath	String	對象shpfile
outputField	String	對象shpfile要輸出的值

---

RasterCapture

Method

建構式	說明
Function RasterCapture(SourPath As String, BBOX As String, ImgWidth As Long, ImgHeight As Long, ExportPath As String) As String	擷取局部ECW影像輸出圖片。

參數

屬性	類別	說明
SourPath	原始檔案來源	ecw路徑，可用分號設定多檔案
BBOX	String	minx,miny,maxx,maxy
ImgWidth	Long	輸出影像寬度
ImgHeight	Long	輸出影像高度
ExportPath	String	輸出路徑

KML範例：
<?xml version="1.0" encoding="UTF-8"?> <kml xmlns="http://www.opengis.net/kml/2.2"> ?<%@ Language="VBScript" %> <% ba=split(Request("BBOX"),",") Set Tw = Server.CreateObject("TwTmConvert.TwTmConv.1") 'Call Tw.toTWD67(ba(0),ba(1),0) Call Tw.TWD97toTM2(ba(0),ba(1)) lt_x=Tw.x rb_y=Tw.y 'Call Tw.toTWD67(ba(2),ba(3),0) Call Tw.TWD97toTM2(ba(2),ba(3)) rb_x=Tw.x lt_y=Tw.y 'Call Tw.toTWD67(ba(4),ba(5),0) Call Tw.TWD67toTM2(ba(4),ba(5)) c_x=(lt_x+rb_x)/2 c_y=(lt_y+rb_y)/2 dis_x=(rb_x-lt_x)/ba(11) dis_y=(lt_y-rb_y)/ba(12) if month(now()) <= 9 then amonth = "0" & month(now()) else amonth = month(now()) end if if day(now()) <= 9 then aday = "0" & day(now()) else aday = day(now()) end if amin = hour(now())*60 + Minute(Now()) if len(amin)=1 then amin="000"& amin elseif len(amin)=2 then amin="00"& amin elseif len(amin)=3 then amin="0"& amin end if stime = year(now()) & amonth & aday & amin Randomize IMAGENAME = "_"& stime & Rnd(100000)*1000000 minx=c_x-dis_x*512 miny=c_y-dis_y*386 maxx=c_x+dis_x*512 maxy=c_y+dis_y*386 bbox=minx &","& miny &","& maxx &","& maxy Set ImgCap = Server.CreateObject("SALUS.Draw") ret = ImgCap.RasterCapture("E:\swcb_ecw\2009_FS2-NC.ecw" , ""& bbox &"", 1024, 768, "c:\web\airphoto\tmp_abonew\"& IMAGENAME &".jpg") %> <Document> <name>航照</name> <open>1</open> <description>2009-06-18</description> <Folder> <GroundOverlay> <name></name> <color>ffffffff</color> <Icon> <href>http://140.134.48.19/airphoto/tmp_abonew/<%=IMAGENAME%>.jpg</href> <viewBoundScale>1</viewBoundScale> </Icon> <LatLonBox> <% Call Tw.TWD97fromTM2(minx,miny) 'Call Tw.toTWD97(Tw.x,Tw.y,0) %> <west><%=Tw.x%></west> <south><%=Tw.y%></south> <% Call Tw.TWD97fromTM2(maxx, maxy) 'Call Tw.toTWD97(Tw.x,Tw.y,0) %> <east><%=Tw.x%></east> <north><%=Tw.y%></north> </LatLonBox> </GroundOverlay> </Folder> </Document> <%Set Tw=Nothing%> </kml>

---

SaveImage

Method

建構式	說明
Sub SaveImage(FileName As String)	畫布輸出圖片。

參數

屬性	類別	說明
FileName	String	圖片路徑。

EX:將地圖轉出圖片使用
?<%@ CODEPAGE=65001 %> <% Response.CodePage=65001%> <% Response.Charset="UTF-8" %> <% if Request("cc")<>"" then if month(now()) <= 9 then amonth = "0" & month(now()) else amonth = month(now()) end if if day(now()) <= 9 then aday = "0" & day(now()) else aday = day(now()) end if amin = hour(now())*60 + Minute(Now()) if len(amin)=1 then amin="000"& amin elseif len(amin)=2 then amin="00"& amin elseif len(amin)=3 then amin="0"& amin end if stime = year(now()) & amonth & aday & amin Randomize IMAGENAME = "_"& stime & Rnd(100000)*1000000 &".gif" Set Obj = Server.CreateObject("SALUS.Draw.1") if Request("WMSImageName")="" then WMSImageName = "" else WMSImageName = "D:\Web\decl\tmp\" & Request("WMSImageName") end if SaveImageName = "D:\Web\decl\tmp\" & IMAGENAME call Obj.CombineImages (SaveImageName ,Request("ScreenBOX"),Request("ScreenWidth"),Request("ScreenHeight"),Request("ScreenRectPic") , Request("ScreenRectPicBBOX"),WMSImageName ) 'Call Obj.DrawLabel ("sdfgsdf",10,0, 16776960 ,1 ) if Request("MarkLabel")<>"" then call Obj.DrawMarkLabel (Request("MarkLabel"),25,15 ,14,0, 16776960 ,1 ) call Obj.SaveImage ("") set Obj=Nothing end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>地圖轉存影像</title> <script language="javascript"> <!-- //--> </script> </head> <body> <form name="thisform" method="post"> <input type="hidden" name="ScreenBOX" value="<%=Request("ScreenBOX")%>"> <input type="hidden" name="ScreenWidth" value="<%=Request("ScreenWidth")%>"> <input type="hidden" name="ScreenHeight" value="<%=Request("ScreenHeight")%>"> <input type="hidden" name="ScreenRectPic" value="<%=Request("ScreenRectPic")%>"> <input type="hidden" name="ScreenRectPicBBOX" value="<%=Request("ScreenRectPicBBOX")%>"> <input type="hidden" name="WMSImageName" value="<%=Request("WMSImageName")%>"> <input type="hidden" name="MarkLabel" value="<%=Request("MarkLabel")%>"> </form> <div align="center"> <center> </center> </div> <div align="center"> <a><img name="ScrMap" border="0" alt="地圖"></a> </div> <p align="center"> 　</p> <script type="text/javascript"> <% if Request("cc")="" then %> thisform.ScreenBOX.value=parent.ScreenBOX; thisform.ScreenWidth.value=parent.ScreenWidth; thisform.ScreenHeight.value=parent.ScreenHeight; var RectPic=parent.ScreenRectPic.split(","); var recpicstr=""; for(i=2;i<RectPic.length;i++){ recpicstr += RectPic[i]+","; } thisform.ScreenRectPic.value=recpicstr; var RectPic1=parent.ScreenRectPicBBOX.split(","); var recpicstr1=""; for(i=2;i<RectPic1.length;i++){ recpicstr1 += RectPic1[i]+","; } thisform.ScreenRectPicBBOX.value=recpicstr1; thisform.WMSImageName.value=parent.WMSImageName; thisform.MarkLabel.value=parent.MarkLabel; thisform.action="SaveMap.asp?cc=1"; thisform.submit(); <%else%> document.getElementById('ScrMap').src='../tmp/<%=IMAGENAME%>'; <% end if%> </script> </form> </body> </html>

---

SetFont

Method

建構式	說明
Sub SetFont(FontPath as String, FontBackcolor as String , XOffset as LONG,YOffset as LONG)	設定字體

參數

屬性	類別	說明
FontPath	String	字體路徑。（例如：C:\WINDOWS\SYSTEM32\xxx.TTF）
FontBackcolor	String	字體陰影顏色FFFFFF
XOffset	long	陰影x差幾個pixel
YOffset	long	陰影Y差幾個pixel

---

SetCateField

Method

建構式	說明
Sub SetCateField(ShpPath As String, FindField As String, FindValues As String, FillColor As String, OutlineColor As String, outlinesize As String)	設定分類欄位值。

參數

屬性	類別	說明
ShpPath	String	shapefile路徑。
FindField	String	要分類的欄位。
FindValues	String	要分類的欄位。
FillColor	String	要分類的欄位。
OutlineColor	String	要分類的欄位。

---

SetCateField1

Method

建構式	說明
Sub SetCateField1(ShpPath As String, FindField As String, FindValues As String, FillColor As String, OutlineColor As String, outlinesize As String, CateLabel As String, LabelColor As Long, LabelSize As Long)	設定分類欄位值及顯示文字Style。

參數

屬性	類別	說明
ShpPath	String	Group files路徑或shpfile，關鍵值。
FindField	String	欄位名。
FindValues	String	值，用分號分隔。
FillColor	String	如果是*.gif就顯示圖片， 如果是#FFFFFF就顯示顏色， 如果空白就透明。
OutlineColor	String	#FFFFFF。
outlinesize	String	外框值，用分號分隔。
CateLabel	String	顯示label的欄位，用分號分隔。
LabelColor	String	label顏色，#FFFFFF。
LabelSize	Long	label大小。

EX:
set conn=server.CreateObject("ADODB.connection") conn.Cursorlocation = 3 conn.Open connString set rs=server.createobject("adodb.recordset") sql = "select a.bid,b.branch,count(a.bid) as mycount from plandata as a, branch_lt as b where a.bid=b.bid group by a.bid,b.branch" 'response.write sql rs.open sql ,conn,1,1 count=0 while not rs.EOF str_name = str_name & Trim(rs("branch")) &";" showlabel = showlabel & Trim(rs("mycount")) &"件;" Select Case count Case "0" Color_str = Color_str & "FF0000;" OutlineSize = OutlineSize & "2;" Case "1" Color_str = Color_str & "F3AD29;" OutlineSize = OutlineSize & "2;" Case "2" Color_str = Color_str & "EBF02D;" OutlineSize = OutlineSize & "2;" Case "3" Color_str = Color_str & "36E76B;" OutlineSize = OutlineSize & "2;" Case "4" Color_str = Color_str & "44A5D9;" OutlineSize = OutlineSize & "2;" Case "5" Color_str = Color_str & "44A0F0;" OutlineSize = OutlineSize & "2;" End Select count = count +1 rs.movenext wend rs.close Set rs = Nothing ''使用iframe回傳圖片資訊 if month(now()) <= 9 then amonth = "0" & month(now()) else amonth = month(now()) end if if day(now()) <= 9 then aday = "0" & day(now()) else aday = day(now()) end if stime = year(now()) & amonth & aday Randomize IMAGENAME = "_"& stime & Rnd(100000)*1000000 Set Obj = Server.CreateObject("SALUS.Draw") ''呼叫元件 shppath = "F:\WSP\MapObj\shp\"&str_file outpath = "F:\WSP\MapObj\tmp\" & IMAGENAME & ".gif" WIDTH = cint(Request("WIDTH")) HEIGHT = cint(Request("HEIGHT")) 'outlinestyle = "#FFF000" 'outlinesize = "6" BBOX = Request("BBOX") Call Obj.SetCateField1(shppath,str_field,str_name,Color_str,Color_str,OutlineSize,showlabel,0,14) Call Obj.DrawCateTheme(shppath,"","gif",outpath,"FF0000",2,BBOX,WIDTH,HEIGHT) 'shp路徑,label名稱,圖片型態,輸出路徑,outline顏色,outline大小,bbox,width,wheght Set Obj = Nothing

---

SetCateFieldG

Method(取代之前的SetCateField1)

建構式	說明
Sub SetCateFieldG(ShpPath As String,ShpType as Long, FindField As String, FindValues As String, FillColor As String, OutlineColor As String, outlinesize As String, CateLabel As String, LabelColor As Long, LabelSize As Long)	設定分類欄位值及顯示文字Style。

參數

屬性	類別	說明
ShpPath	String	Group files路徑或shpfile，關鍵值。
ShpType	Long	1是Shpfile 2是Group files。
FindField	String	欄位名。
FindValues	String	值，用分號分隔(不同record)，接連兩個欄位用^。
FillColor	String	如果是*.gif就顯示圖片， 如果是FFFFFF就顯示顏色， 如果空白就透明。
OutlineColor	String	FFFFFF。
outlinesize	String	外框值，用分號分隔。
CateLabel	String	顯示label的欄位，用分號分隔（補充的文字，非欄位名稱）。
LabelColor	String	label顏色，FFFFFF，用分號分隔。
LabelSize	Long	label大小，只要輸入一個數字。

EX:

s.SetCateFieldG "C:\share\katt\原始shp\GroupShp", 2, "SECTIONAM", "三崁店;蔦松;車行;安康;", "D:\PDA\PDA圖\定位.png;D:\twitter.png;D:\diigo.gif;D:\magnolia.png;", "00FF00;FF0000;FF00FF;FF00FF", "1;3;5;2", "", "", 12

OutBox = s.DrawCateThemeG("C:\share\katt\原始shp\GroupShp", 2, "SECTIONAM", "D:\DrawCateThemeG.gif", "FF", 2, "172662,2548947,174639,2550743", 1024, 768)

　

---

SetCateFieldDB

Method

建構式	說明
Sub SetCateFieldDB(ShpPath As String, ShpType As Long, LinkShpField As String, LinkDBField As String, FindDBField As String, FindDBValues As String, FillColor As String, OutlineColor As String, outlinesize As String, CateLabel As String, LabelColor As String, LabelSize As Long)	設定分類欄位值及顯示文字Style，這個是shpfile與分類的欄位分離，就是說要分類的欄位存放在資料庫，並非在shpfile。

參數

屬性	類別	說明
ShpPath	String	Group files路徑或shpfile，關鍵值。
ShpType	Long	1是Shpfile 2是Group files。
LinkShpField	String	要join的shpfile欄位名。
LinkDBField	String	要join的DB欄位名。
FindDBField	String	DB要分類的欄位名。
FindDBValues	String	DB要分類的欄位的值，用分號分隔。(可以用otherwise作為其他的分類)
FillColor	String	如果是*.gif就顯示圖片， 如果是FFFFFF就顯示顏色， 如果空白就透明。
OutlineColor	String	FFFFFF，僅一個
outlinesize	String	外框值，用分號分隔。
CateLabel	String	顯示label的欄位，用分號分隔。
LabelColor	String	label顏色，FFFFFF，用分號分隔。
LabelSize	Long	label大小，用分號分隔。

EX:
shppath="D:\web\edit_data\RMAP\GroupShp" aa=aat(Request("FindValues")) city_id=left(Request("FindValues"),3) '''Sub SetCateFieldDB(ShpPath As String, ShpType As Long, LinkShpField As String, LinkDBField As String, FindDBField As String, FindDBValues As String, FillColor As String, OutlineColor As String, outlinesize As String, CateLabel As String, LabelColor As String, LabelSize As Long) Call Obj.SetCateFieldDB(ShpPath,2,"NEW_SECTIO;LANDNO8","DCL_LNDNO", "dcl_chgcd1", "102;410;432;601;602;604;627;641;", "D:\web\edit\images\落花生.gif;D:\web\edit\images\洋蔥.gif;D:\web\edit\images\蒜頭.gif;D:\web\edit\images\香蕉.gif;D:\web\edit\images\鳳梨.gif;D:\web\edit\images\柳橙.gif;D:\web\edit\images\木瓜.gif;D:\web\edit\images\棗子.gif;", "FF0000", 1,"", LabelColor, LabelSize) '''Function DrawCateThemeDB(ShpPath As String, ShpType As Long, LabelField As String, OutputPath As String, OutlineColor As String, outlinesize As Long, BBOX As String, ImgWidth As Long, ImgHeight As Long, DBConn As String, TableName As String, Exp As String=LinkDBField的前幾個字母, TmpDbfPath As String, CheckTime as Long) As String OutBox = Obj.DrawCateThemeDB(ShpPath, 2, "landno", Outpath, "FC0000", 1, BBOX, WIDTH, HEIGHT,"Provider=SAOLEDB.12;Persist Security Info=True;Data Source="&aa, "PDA_DECLARES", city_id,"D:\temp\",1800)

　

---

SetQueryShape

Method(與DrawQueryAttr或DrawRiceQueryShape搭配)

建構式	說明
Sub SetQueryShape(FindField As String, FindValues As String, FillColor As String, OutlineColor As String, outlinesize As String, CateLabel As String, LabelColor As Long, LabelSize As Long)	設定分類欄位值及顯示文字Style。

參數

屬性	類別	說明
FindField	String	欄位名。
FindValues	String	值，用分號分隔。
FillColor	String	如果是*.gif就顯示圖片， 如果是FFFFFF就顯示顏色， 如果空白就透明。
OutlineColor	String	FFFFFF。
outlinesize	String	外框值，用分號分隔。
CateLabel	String	顯示label的欄位，用分號分隔（補充的文字，非欄位名稱）。
LabelColor	String	label顏色，FFFFFF，用分號分隔。
LabelSize	Long	label大小，只要輸入一個數字。

set rs1=server.createobject("adodb.recordset") 'sql="select top 120 * from layers where valid='1' and layer_one not in ('RiverArea','RMAP','R951') order by sortorder" sql="select * from layers where valid='1' order by sortorder" rs1.open sql , conn , 1 , 1 While Not rs1.Eof layer = rs1("layer") datapath = rs1("datapath") path = path & datapath & layer & ";" rs1.MoveNext Wend rs1.close Set rs1=Nothing '== Para ======================================== If CInt(QUERYINDEX) = CInt(i) Then PARA = Request("PARA") End If sPara=Split(PARA,",") FindField=sPara(0) '' NEW_SECTIO;LANDNO8 FindValues=sPara(1) '' G080113^23220000 FindFillColor=sPara(2) '' FFFFFF FindOutlineColor=sPara(3) '' FF0000 FindOutlineSize=sPara(4) '' 3 FindText=sPara(5) '' FindLabelColor=sPara(6) '' 000000 Call Obj.SetQueryShape("CULTURE", "0;1;2", "D:\web\rice3\images\farm0.gif;D:\web\rice3\images\farm1.gif;D:\web\rice3\images\farm2.gif;","F00FF0;F00FF0;F00FF0", "1;1;1", "", "F00FF0", 12) result = Obj.DrawRiceQueryShape(rs("datapath"),rs("shptype"), path, 1, FindField, FindValues,-1,"D:\Temp\", "", "", BBOX, WIDTH,HEIGHT) path = Replace(path,"\","/")

---

showValue

Method

建構式	說明
Function showValue(ShpPath As String, LabelField As String) As String	取得Shape File 屬性資料。

參數

屬性	類別	說明
ShpPath	String	shpfile路徑
LabelField	String	欄位名稱，可用分號分隔，如果不輸入，則全部取得

---

ShpToKml

Method

建構式	說明
Sub ShpToKml(FromShp As String, ToKML As String, Exp As String, title As String, color As String, LineWieth As String, link As String, type As String)	Shape File轉Kml。

參數

屬性	類別	說明
FromShp	String	shpfile路徑TM 67坐標（線圖層）
ToKML	String	輸出實體路徑
Exp	String	查詢條件或範圍（不輸入或空白為全部）
title	String	名稱
color	String	顏色
LineWieth	String	線寬
link	String	超連結
type	String	1:條件 2:範圍

範例：
tt = request("tt") no = request("no") Set Iden = Server.CreateObject("SALUS.Draw") if month(now()) <= 9 then amonth = "0" & month(now()) else amonth = month(now()) end if if day(now()) <= 9 then aday = "0" & day(now()) else aday = day(now()) end if stime = year(now()) & amonth & aday Randomize kmlname = "_"& stime & Rnd(100000)*100 if tt=1 then shp = "F:\wwwroot\VROAD\map\shp\VROAD" else shp = "F:\wwwroot\VROAD\map\shp\NVROAD" end if tokml = "F:\wwwroot\VROAD\map\kml\" & kmlname myexp = "NO in ("& no &")" Call Iden.ShpToKml(shp,tokml,myexp,"NO","880000FF","") 'response.write "<script>alert('"&X&"')</script>" response.redirect("/vroad/map/kml/"&kmlname&".kmz") abc="<a href='https://aboland.apc.gov.tw/print1.asp?go=asp/land/show1.asp&land_sn="& land_sn &"&aprint=true' target='new'>"& landname &"</a>" s.ShpToKml("D:\pdamap\村里界", "D:\村里界", "NEW_NA in ('大同村','天輪村') ", "NEW_NA", "7F00FF00", 2, abc, "1")

ShpToKml2

Method

建構式	說明
Sub ShpToKml2(FromShp As String,ShpType as Integer, ToKML As String, Exp As String, title As String,fillcolor as String, linecolor As String, LineWieth As String, link As String, type As String, linktype As String))	Shape File轉Kml。

參數

屬性	類別	說明
FromShp	String	shpfile路徑
ShpType	Integer	1:shpfile 2:Groupfiles
Coord	Integer	67,97,84
ToKML	String	輸出實體路徑
Exp	String	查詢條件或範圍（不輸入或空白為全部）
title	String	名稱
color	String	顏色
LineWieth	String	線寬
link	String	Ballon顯示的欄位內容(可用分號區隔)例如：COUN_NA;NEW_NA^鄉鎮;村里
type	String	1:條件 2:範圍
linktype	String	"1" Link為內容 "2" 欄位內容

範例：

---

ShpToKml3

Method

建構式	說明
Sub ShpToKml2(FromShp As String,ShpType as Integer, ToKML As String, Exp As String, title As String,fillcolor as String, linecolor As String, LineWieth As String, link As String, type As String, linktype As String))	Shape File轉Kml。

參數

屬性	類別	說明
FromShp	String	shpfile路徑
ShpType	Integer	1:shpfile 2:Groupfiles
Coord	Integer	67,97,84
ToKML	String	輸出實體路徑
Exp	String	查詢條件或範圍（不輸入或空白為全部）
title	String	名稱
color	String	面顏色(00FFFFFF)
LineWieth	String	線顏色(00FFFFFF)
LineWieth	String	線寬
link	String	Ballon顯示的欄位內容(可用分號區隔)例如：COUN_NA;NEW_NA^鄉鎮;村里
type	String	1:條件 2:範圍
linktype	String	"1" Link為內容 "2" 欄位內容
altitudeMode	String	1 = clampToGround 2 = clampToSeaFloor 3 = relativeToGround 4 = relativeToSeaFloor 5 = absolute
altitude 高度	String	單位：公尺

範例：
Call ImgCap.ShpToKml3(shpfile,shptype,srs1,"d:\web\rwms\tmp\"&ABOLand,bbox,labelname, "7F"&Right(fillcolor,6), "FF"&Right(outlinestyle,6), outlinesize, label, "2","2",3,10)

---

UpdateShpField

Method

建構式	說明
Sub UpdateShpField(ShpPath As String, ShpType as Integer , Exp As String, Field As String, values As String)	更新欄位的值，回應為更新的數量。

參數

屬性	類別	說明
ShpPath	String	shpfile路徑
ShpType	String	shpfile類型
EXP	String	條件
Field	String	要更新的欄位
values	String	要更新的值

範例：
ret = s.UpdateShpField("C:\RMAP\landmapshp\R831", 1, "NEW_SECTIO = 'G080113' and LANDNO8 = '23220000'", "CULTURE", "2")

---

LoadCalData

Method

建構式	說明
Sub LoadCalData(dbconnection As String, SqlStr as String , DbPath As String, LoadType As Long)	載入統計資料存成暫存Sqlite DB

參數

屬性	類別	說明
dbconnection	String	LoadType = 0 csv格式檔案 或 LoadType = 1 資料庫連線
SqlStr	String	讀取資料SQL字串 LoadType = 0 不使用
DbPath	String	輸出Sqlite檔案路徑

範例：
ret = s.LoadCalData("C:\pda_sum.csv", "", "C:\pda_sum", 0) <P> or <P> Dim SqlStr As String Dim connStr As String SqlStr = "select eid,cname,cnt,area,cnt_k,area_k,yy,pp,chgcd from pda_sum " Call s.LoadCalData(connStr, SqlStr, "C:\pda_sum", 1)

---

SetCalCateField

Method

建構式	說明
Sub SetCalCateField(CalDB As String, CityTown as String , yy As String, pp As String, chgcd As String, CalType As Long, CateType As Long, FindField As String ,FindValues As String ,FillColor As String ,OutlineColor As String ,OutlineSize As String ,CateLabel As String ,LabelColor As String LabelSize As Long , DefCateLabel As String , CutlineLabel As String)	載入統計資料存成暫存Sqlite DB

參數

屬性	類別	說明
CalDB	String	Sqlite DB 路徑
CityTown	String	統計範圍 = "" 全國 = "CITY_ID" 全縣市 = "TOWN_ID" 鄉鎮
yy	String	統計年度 = "" 全部 = "年度" 該年度
pp	String	統計期別 = "" 全年 = "期別" 該期別
chgcd	String	統計作物別 = "" 全部作物 = "作物ID" 該作物
CalType	Long	統計型態分類 bit 0 0x1 0.統計全縣市 1.統計鄉鎮 bit 1 0x2 0.統計平版、PDA輸入 1.統計keyin bit 2 0x4 0.統計案件數 1.統計面積 bit 3 0x8 0.統計件數或面積 1.統計百分比
CateType	Long	統計樣式分類 bit 0 0x1 0：無預設 1:預設值 (第一個樣式) bit 1 0x2 0：等差分類 1:等筆數分類 bit 2 0x4 0：參數（FindValues）值定義分類 1:自動分類
FindField	String	統計全縣市="CITY_ID" ,統計鄉鎮="TOWN_ID" Shape File 欄位
FindValues	String	要分類的欄位的值，用分號分隔。(otherwise必須在第一個) 自動分類 = "" 參數值定義分類 = "otherwise;0;15;30;74;136" (預設值;0~15 ;15~30 ;30~74 ;74~136)
FillColor	String	如果是*.gif就顯示圖片， 如果是#FFFFFF就顯示顏色， 如果空白就透明。
OutlineColor	String	#FFFFFF。
outlinesize	String	外框值，用分號分隔。
CateLabel	String	顯示label的欄位，用分號分隔。
LabelColor	String	label顏色，#FFFFFF。
LabelSize	Long	label大小。
DefCateLabel	String	圖例預設值顯示的文字 = "" 預設--> "無統計"
CutlineLabel	String	圖例說明值顯示的文字 = "" 預設--> "圖例說明"

範例：
Call s.SetCalCateField("C:\pda_sum", "P", "102", "1", "401", 1, 1, "TOWN_ID", "", "2FB0CF45;2FFFFF00;2F0000FF;2F00FF00;2FFF0000", "6F00FFFF;6F00FFFF;6F00FFFF;6F00FFFF;6F00FFFF", "2,2,2,2,1", "", "", 10, "預設值", "統計側測試是一一一一一")

---

DrawCalCateTheme

Method

建構式	說明
OutBBOX DrawCalCateTheme(ShpPath As String, ShpType As Long, LabelField As String ,OutputPath As String ,OutlineColor As String ,OutlineSize As Long ,BBOX As String ,ImgWidth As Long, ImgHeight As Long , FontPath As String , ShowCutline As Long) As String	繪製統計圖形

參數

屬性	類別	說明
ShpPath	String	City Or Town shpfiles路徑
ShpType	Long	1是Shpfile 2是Group files。
LabelField	String	統計全縣市="CITY_ID" ,統計鄉鎮="TOWN_ID" Shape File 欄位
OutputPath	String	輸出在web的路徑，含圖檔名稱。（如果輸入0～127表示設定透明度，如果不輸入是覆蓋）
OutlineColor	String	#FFFFFF。
outlinesize	String	外框值，用分號分隔。
BBOX	String	如果不輸入，表示全圖，ex:minx,miny,maxx,maxy。
ImgWidth	Long	圖片寬度。
ImgHeight	Long	圖片高度。
FontPath	String	使用字型路徑 = "" 預設字型
ShowCutline	String	顯示圖例 0：關 1：開

範例：
OutBox = s.DrawCalCateTheme("C:\TOWN", 1, "TOWN_ID", "C:\TOWN.png", "C0C000", 3, OutBox, 1024, 768, "C:\msjh.ttf", 1)

---

---

PolySelect

Method

建構式	說明
Function PolySelect(ShpPath As String, ShpType As Long, XYList As String ,radius As Double ,OutputField As String ) As String	用Polygon選取Shape的圖形 回傳圖形屬性資料

參數

屬性	類別	說明
ShpPath	String	被選取的Shape File 路徑
ShpType	Long	1是Shpfile 2是Group files。
XYList	String	Polygons 用";"分隔Polygon 將XYList Union 成一個Polygon Format： x1,y1,x,y,x,y,.....,x1,y1;x2,y2,x,y,.....,x2,y2
radius	String	以XYList Polygon 做Buffer (-) 內縮 (+) 外擴 來選取Shape File 的圖形
OutputField	String	設定回傳欄位 ex: NEW_SECTIO;LANDNO8;.....; 空白 "" 回傳Shape File所有欄位
回傳值	String	回傳選取圖形屬性資料。每筆Record用";"隔開。欄位間用","隔開。 第一筆為回傳欄位名稱 ex"NEW_SECTIO,LANDNO8;B060310,00010000;B060310,10100001;...........

範例：
OutFieldValues = s.PolySelect("C:\RMAP\GroupShp", 2, "215093,2678225,215138,2678720,215167,2678232,215107,2678264", -10 , "NEW_SECTIO;LANDNO8")

---

---

PolyHand

Method

建構式	說明
Function PolyHand(ShpPath As String, ShpType As Long, XYList As String ) As String	回傳手繪Polygon 切除ShapeFile邊界

參數

屬性	類別	說明
ShpPath	String	被切割的Shape File 路徑
ShpType	Long	1是Shpfile 2是Group files。
XYList	String	Polygons 用";"分隔Polygon 將XYList Union 成一個Polygon Format： x1,y1,x,y,x,y,.....,x1,y1;x2,y2,x,y,.....,x2,y2
回傳值	String	回傳Polygon 切除ShapeFile邊界後的圖形 Format： x,y,x,y,x,y,.....,x,y

範例：
OutPolygonXY = s.PolyHand("C:\RMAP\2014Rmap\RMAPg", 2, "215093,2678225,215138,2678720,215167,2678232,215107,2678264")

---

---

Dissolve

Method

建構式	說明
Function Dissolve(ShpPath As String, ShpType As Long, FindField As String , FindValues As String, XYList As String, SaveShpPath As String, SaveFields As String, SaveFieldsSize As String, SaveValues As String) As String	回傳傳入Polygon 加入選擇ShapeFile圖形結合後的邊界

參數

屬性	類別	說明
ShpPath	String	Shape File 路徑
ShpType	Long	1是Shpfile 2是Group files。
FindField	String	篩選ShapeFile的欄位
FindValues	String	篩選ShapeFile的欄位值
XYList	String	Polygons 用";"分隔Polygon 將XYList Union 成一個Polygon Format： x1,y1,x,y,x,y,.....,x1,y1;x2,y2,x,y,.....,x2,y2
SaveShpPath	String	儲存圖形Shape File 路徑 空白不存Shape File
SaveFields	String	Shape File Dbf 儲存欄位 欄位1名稱,欄位2名稱,..,.... ex:"CITY_ID,TOWN_ID,NAME"
SaveFieldsSize	String	設定Shape File Dbf 儲存欄位長度 欄位1長度,欄位2長度,...,... ex:"1,3,32"
SaveValues	String	輸出圖形屬性資料 欄位內容 欄位1內容,欄位2內容,..... ex:B,B06,西屯區
回傳值	String	回傳Polygon 回傳合併後的邊界圖形 Format： x,y,x,y,x,y,.....,x,y

範例：
OutPolygonXY = s.Dissolve("C:\RMAP\GroupShp", 2, "NEW_SECTIO;LANDNO8", "N180600^00010000;N180600^00020000" , "215093,2678225,215138,2678720,215167,2678232,215107,2678264", "C:\TEMP\TestShp", "CITY_ID,TOWN_ID,NAME", "1,3,32", "B,B10,Test")

---

---

PolyClip

Method

建構式	說明
Function PolyClip(ShpPath As String, ShpType As Long, FindField As String , FindValues As String, XYList As String, ClipShpPath As String, ClipShpType As Long, ClipFindField As String , ClipFindValues As String, ClipXYList As String, SaveShpPath As String, SaveFields As String, SaveFieldsSize As String, SaveValues As String) As String	回傳傳入Polygon 加入選擇ShapeFile圖形 結合後的邊界並能夠扣除掉clip開頭參數 所提供資料的邊界

參數

屬性	類別	說明
ShpPath	String	Shape File 路徑
ShpType	Long	1是Shpfile 2是Group files。
FindField	String	篩選ShapeFile的欄位
FindValues	String	篩選ShapeFile的欄位值
XYList	String	Polygons 用";"分隔Polygon 將XYList Union 成一個Polygon Format： x1,y1,x,y,x,y,.....,x1,y1;x2,y2,x,y,.....,x2,y2
ClipShpPath	String	Shape File 路徑
ClipShpType	Long	1是Shpfile 2是Group files。
ClipFindField	String	篩選ShapeFile的欄位
ClipFindValues	String	篩選ShapeFile的欄位值
ClipXYList	String	Polygons 用";"分隔Polygon 將XYList Union 成一個Polygon Format： x1,y1,x,y,x,y,.....,x1,y1;x2,y2,x,y,.....,x2,y2
SaveShpPath	String	儲存圖形Shape File 路徑 空白不存Shape File
SaveFields	String	Shape File Dbf 儲存欄位 欄位1名稱,欄位2名稱,..,.... ex:"CITY_ID,TOWN_ID,NAME"
SaveFieldsSize	String	設定Shape File Dbf 儲存欄位長度 欄位1長度,欄位2長度,...,... ex:"1,3,32"
SaveValues	String	輸出圖形屬性資料 欄位內容 欄位1內容,欄位2內容,..... ex:B,B06,西屯區
回傳值	String	回傳Polygon 回傳合併後的邊界圖形 Format： x,y,x,y,x,y,.....,x,y

範例：
OutPolygonXY = s.Dissolve("C:\RMAP\GroupShp", 2, "NEW_SECTIO;LANDNO8", "N180600^00010000;N180600^00020000" , "215093,2678225,215138,2678720,215167,2678232,215107,2678264", "C:\TEMP\TestShp", "CITY_ID,TOWN_ID,NAME", "1,3,32", "B,B10,Test")

---

---

PolyClipInterSet

Method

建構式	說明
Function PolyClipInterSet(ShpPath As String, ShpType As Long, FindField As String , FindValues As String, XYList As String, ClipShpPath As String, ClipShpType As Long, ClipFindField As String , ClipFindValues As String, ClipXYList As String, SaveShpPath As String, SaveFields As String, SaveFieldsSize As String, SaveValues As String, intersetXYList As String) As String	回傳傳入Polygon 加入選擇ShapeFile圖形 結合後的邊界並能夠扣除掉clip開頭參數 所提供資料的邊界

參數

屬性	類別	說明
ShpPath	String	Shape File 路徑
ShpType	Long	1是Shpfile 2是Group files。
FindField	String	篩選ShapeFile的欄位
FindValues	String	篩選ShapeFile的欄位值
XYList	String	Polygons 用";"分隔Polygon 將XYList Union 成一個Polygon Format： x1,y1,x,y,x,y,.....,x1,y1;x2,y2,x,y,.....,x2,y2
ClipShpPath	String	Shape File 路徑
ClipShpType	Long	1是Shpfile 2是Group files。
ClipFindField	String	篩選ShapeFile的欄位
ClipFindValues	String	篩選ShapeFile的欄位值
ClipXYList	String	Polygons 用";"分隔Polygon 將XYList Union 成一個Polygon Format： x1,y1,x,y,x,y,.....,x1,y1;x2,y2,x,y,.....,x2,y2
SaveShpPath	String	儲存圖形Shape File 路徑 空白不存Shape File
SaveFields	String	Shape File Dbf 儲存欄位 欄位1名稱,欄位2名稱,..,.... ex:"CITY_ID,TOWN_ID,NAME"
SaveFieldsSize	String	設定Shape File Dbf 儲存欄位長度 欄位1長度,欄位2長度,...,... ex:"1,3,32"
SaveValues	String	輸出圖形屬性資料 欄位內容 欄位1內容,欄位2內容,..... ex:B,B06,西屯區
intersetXYList	String	指定一個範圍邊界，剔除掉範圍製作出來的較小的區塊
回傳值	String	回傳Polygon 回傳合併後的邊界圖形 Format： x,y,x,y,x,y,.....,x,y

範例：
OutPolygonXY = s.Dissolve("C:\RMAP\GroupShp", 2, "NEW_SECTIO;LANDNO8", "N180600^00010000;N180600^00020000" , "215093,2678225,215138,2678720,215167,2678232,215107,2678264", "C:\TEMP\TestShp", "CITY_ID,TOWN_ID,NAME", "1,3,32", "B,B10,Test")

©2010 EASYOBJECT 使用手冊