人气太差，传代码！

楼主^#

更多发布于：2006-12-01 13:03

随便写写，实现文本生成Tin（边界控制）,生成等值线，切取断面功能，继续写遇到了问题，想做个剔除狭长三角形优化等值线的功能，思路有了，就是得不到FeatureClass的个数，是我的问题还是软件问题？已发有帖子。其实用ArcEngine编程是个享受，接口转来转去，好玩！！！（这是Delphi版本程序)

喜欢0 评分0

举报回复

gis 管理员注册日期2003-07-16 发帖数15945 QQ554730525 铜币25337枚威望15352点贡献值0点银元0个加关注写私信	1楼^# 发布于：2007-04-16 14:19 <P>没有注释也没有调试步骤哦，</P> <P>另外你要获取地图上的featureclass个数，很简单，只要获取到IMAP，然后就可以得到map.layercount</P>
	举报回复(0) 喜欢(0) 评分

candycanqq 路人甲注册日期2006-03-05 发帖数57 QQ 铜币264枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2007-04-14 11:35 <img src="images/post/smile/dvbbs/em03.gif" /><img src="images/post/smile/dvbbs/em03.gif" />
	举报回复(0) 喜欢(0) 评分

whmwxhanshan123 路人甲注册日期2006-06-17 发帖数3108 QQ 铜币6445枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2007-01-25 20:06 <img src="images/post/smile/dvbbs/em07.gif" />
	举报回复(0) 喜欢(0) 评分

wheroy 路人甲注册日期2004-09-04 发帖数159 QQ 铜币251枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2007-01-21 23:55 FeatureClass的个数要用检索
	举报回复(0) 喜欢(0) 评分

spacequake 路人甲注册日期2006-03-13 发帖数7 QQ 铜币133枚威望0点贡献值0点银元0个加关注写私信	5楼^# 发布于：2007-01-13 21:01 <img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />
	举报回复(0) 喜欢(0) 评分

eagling

路人甲

注册日期2004-10-21
发帖数126
QQ
铜币540枚
威望0点
贡献值0点
银元0个

加关注写私信

6楼^#

发布于：2006-12-04 11:15

这么长啊，看了都累啊，

中国GIS的未来,要靠GIS农民创造.

举报回复喜欢评分

hsghxm

路人甲

注册日期2004-10-27
发帖数517
QQ4604052
铜币1枚
威望0点
贡献值0点
银元0个

加关注写私信

7楼^#

发布于：2006-12-01 17:09

MSN:hsghxm@163.com QQ:4604052 (很少用,最好别加) Email:hsghxm@163.com 我的BOLG：http://www.gisempire.com/blog/user1/864/index.htm

举报回复喜欢评分

mrjiou

路人甲

注册日期2004-07-03
发帖数78
QQ
铜币474枚
威望0点
贡献值0点
银元0个

加关注写私信

8楼^#

发布于：2006-12-01 13:07

unit Unit4;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, esriMapControl_TLB, StdCtrls, RzLstBox, RzCmboBx, esriCarto_TLB, esriSystem_TLB, RzButton, esriGeoDatabase_TLB, esriDataSourcesFile_TLB, esriGeometry_TLB;
type TForm4 = class(TForm) RzComboBox1: TRzComboBox; RzRankListBox1: TRzRankListBox; RzButton1: TRzButton; RzButton2: TRzButton; RzColorComboBox1: TRzColorComboBox; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } MapCtrl: TMapControl; public { Public declarations } procedure SetMapControl(AMapCtrl: TMapControl); function CreateFeatureClass(outPath: string; lyrName: string): IFeatureClass; procedure OptimizeContour(ipFeatureClass: IFeatureClass); end;
var Form4: TForm4;
implementation
 {$R *.dfm}
{ TForm4 }
procedure TForm4.SetMapControl(AMapCtrl: TMapControl); var ipMap: IMap; ipEnumLayer: IEnumLayer; ipUID: IUID; ipLayer: ILayer; Str: WideString; begin MapCtrl:= AMapCtrl; ipMap:= MapCtrl.Map; ipUID:= CoUID.Create; ipUID.Value:= '{FE308F36-BDCA-11D1-A523-0000F8774F0F}'; ipMap.Get_Layers(ipUID, False, ipEnumLayer); if ipEnumLayer <> nil then begin ipEnumLayer.Reset; ipEnumLayer.Next(ipLayer); ipLayer.Get_Name(Str); RzComboBox1.Items.Add(Str); end; Self.RzRankListBox1.Add('0 m'); Self.RzRankListBox1.Add('1 m'); end;
procedure TForm4.RzBitBtn1Click(Sender: TObject); var I: Integer; ipLayer: ILayer; ipTinLayer: ITinLayer; Str: WideString; ipTin: ITin; ipTinSurface: ITinSurface; ipDoubleArray: IDoubleArray; ipFeatureLayer: IFeatureLayer; ipFeatureClass: IFeatureClass; Count: Integer; begin for I:= 0 to MapCtrl.LayerCount-1 do begin ipLayer:= MapCtrl.Layer; ipLayer.Get_Name(Str); if Str = RzComboBox1.Text then begin ipTinLayer:= ipLayer as ITinLayer; ipTinLayer.Get_Dataset(ipTin); ipTinSurface:= ipTin as ITinSurface; ipDoubleArray:= CoDoubleArray.Create as IDoubleArray; ipDoubleArray.Add(-8.5); ipFeatureClass:= CreateFeatureClass('H:\', '8.5'); ipTinSurface.ContourList(ipDoubleArray, ipFeatureClass,'Elevation' ,1); //OptimizeContour(ipFeatureClass); ipFeatureLayer:= CoFeatureLayer.Create as IFeatureLayer; ipFeatureLayer.Set_Name('8.5'); ipFeatureLayer._Set_FeatureClass(ipFeatureClass); MapCtrl.AddLayer(ipFeatureLayer,1); Break; end; end; end;
function TForm4.CreateFeatureClass(outPath, lyrName: string): IFeatureClass; var ipWorkspaceFactory: IWorkspaceFactory; ipWorkspace: IWorkspace ; ipFeatureWorkSapce: IFeatureWorkspace; ipFields: IFields; ipFieldsEdit: IFieldsEdit; ipField: IField; ipFieldEdit: IFieldEdit; ipGeometryDef: IGeometryDef; ipGeometryDefEdit: IGeometryDefEdit; ipSpatialReference: ISpatialReference; ipMap: IMap; begin ipWorkspaceFactory:= CoShapefileWorkspaceFactory.Create as IWorkspaceFactory; ipWorkspaceFactory.OpenFromFile(outPath,0,ipWorkspace); ipFeatureWorkSapce:= ipWorkspace as IFeatureWorkspace; ipFields:= CoFields.Create as IFields; ipFieldsEdit:= ipFields as IFieldsEdit; ipField:= CoField.Create as IField; ipFieldEdit:= ipField as IFieldEdit; ipFieldEdit.Set_Name('Shape'); ipFieldEdit.Set_type_(esriFieldTypeGeometry); ipGeometryDef:= CoGeometryDef.Create as IGeometryDef; ipGeometryDefEdit:= ipGeometryDef as IGeometryDefEdit; ipMap:= MapCtrl.Map; ipMap.Get_SpatialReference(ipSpatialReference); ipGeometryDefEdit.Set_GeometryType(esriGeometryPolyline); ipGeometryDefEdit._Set_SpatialReference(ipSpatialReference); ipFieldEdit._Set_GeometryDef(ipGeometryDef); ipFieldsEdit.AddField(ipField); ipFeatureWorkSapce.CreateFeatureClass(lyrName, ipFields, nil,nil,esriFTSimple,'Shape','',Result); end;
procedure TForm4.OptimizeContour(ipFeatureClass: IFeatureClass); var ipTable: ITable; ipFeatureCursor: IFeatureCursor; ipFeature: IFeature; ipGeometry: IGeometry; ipPolycurve: IPolyCurve; ipPolyline4: IPolyline4; ipPointCollection: IPointCollection; I, Count: Integer; Point1, Point2, Point3: IPoint; fids: array of LongInt; ipClass: IClass; ipIIndexes: IIndexes; begin
 //ipTable:= ipFeatureClass as ITable; ipFeatureClass.FeatureCount(nil, Count); SetLength(fids, Count); for I:= 0 to Count-1 do fids:= I; ipFeatureClass.GetFeatures(fids, True, ipFeatureCursor); ipFeatureCursor.NextFeature(ipFeature); ipFeature.Get_Shape(ipGeometry); ipPolyline4:= ipGeometry as IPolyline4; //ipPointCollection:= ipGeometry as IPointCollection; //ipPointCollection.Get_PointCount(Count); //for I:= 0 to Count-1 do //begin //Point1 //end; ipPolyline4.SimplifyEx(True); ipFeatureCursor.Flush; end;
end.

举报回复喜欢评分

mrjiou

路人甲

注册日期2004-07-03
发帖数78
QQ
铜币474枚
威望0点
贡献值0点
银元0个

加关注写私信

9楼^#

发布于：2006-12-01 13:07

unit Unit3;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, CELL50Lib_TLB, RzButton, RzRadChk, StdCtrls, RzLstBox, RzChkLst, RzPanel, ExtCtrls, RzSplit, esriCarto_TLB, esriGeometry_TLB, esriGeoDatabase_TLB, Mask, RzEdit;
type TForm3 = class(TForm) RzSizePanel1: TRzSizePanel; RzPanel1: TRzPanel; RzCheckList1: TRzCheckList; RzCheckBox1: TRzCheckBox; Cell1: TCell; RzBitBtn1: TRzBitBtn; RzGroupBox1: TRzGroupBox; RzEdit1: TRzEdit; procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } ipGeometry: IGeometry; end;
var Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.RzBitBtn1Click(Sender: TObject); var I, J: Integer; LayerName: WideString; ipTinLayer: ITinLayer; ipLayer: ILayer; ipTin: ITin; ipTinEdit: ITinEdit; ipTinFeatureEdit: ITinFeatureEdit; ipTinAdvanced: ITinAdvanced; ipPolygon: IPolygon; ipInterSection: IGeometry; ipTopologicalOperator: ITopologicalOperator; IsSuccessful: WordBool; ipTinSurface: ITinSurface; Volume, Area, Depth: Double; Level: Double; IsEmpty: WordBool; begin for I:= 0 to Self.RzCheckList1.Count -1 do begin for J:= 0 to Form1.MapControl1.LayerCount-1 do begin ipLayer:= Form1.MapControl1.Layer[J]; ipLayer.Get_Name(LayerName); if LayerName = RzCheckList1.Items.Strings then begin ipTinLayer:= ipLayer as ITinLayer; ipTinLayer.Get_Dataset(ipTin); ipTinAdvanced:= ipTin as ITinAdvanced; ipTinAdvanced.GetDataArea(ipPolygon); ipTopologicalOperator:= ipPolygon as ITopologicalOperator; ipTopologicalOperator.Intersect(ipGeometry, esriGeometry2Dimension, ipInterSection); ipInterSection.Get_IsEmpty(IsEmpty); if IsEmpty then begin Cell1.SetCellString(1, I+1, 0, LayerName); Cell1.SetCellString(2,I+1, 0, ''); Cell1.SetCellString(3,I+1, 0, ''); Continue; end;
 ipTinEdit:= ipTin as ITinEdit; ipTinFeatureEdit:= ipTin as ITinFeatureEdit; ipTinFeatureEdit.StartInMemoryEditing(IsSuccessful); ipTinEdit.AddShape(ipGeometry,esriTinSoftClip, 0, EmptyParam); Level:= StrToFloat(RzEdit1.Text); ipTinSurface:= ipTin as ITinSurface; ipTinSurface.GetVolume(Level, 1, Volume); ipTinSurface.GetProjectedArea(Level, 1, Area); Depth:= Volume/Area-Level; Volume:= Round(Volume/100000)/100; Depth:= Round(Depth*100)/100; Cell1.SetCellString(1, I+1, 0, Copy(LayerName,1, 4)+'-'+Copy(LayerName,5, 2)); Cell1.SetCellDouble(2,I+1, 0, Volume); Cell1.SetCellDouble(3,I+1, 0, Depth); end; end; end; end;
end.

举报回复喜欢评分

您需要登录后才可以回帖，登录或者注册

人气太差，传代码！

最新喜欢：