ESRI ArcGIS应用与开发请问ArcObject可以实现自创图层的功能吗？||做专业的GIS技术交流论坛

tyima 路人甲注册日期2004-07-08 发帖数18 QQ 铜币168枚威望0点贡献值0点银元0个加关注写私信	阅读：2075回复：7 请问ArcObject可以实现自创图层的功能吗？楼主^# 更多只看楼主倒序阅读发布于：2004-07-08 16:14 <P><b>读数据库数据，生成相关图层文件即可，比如生成.lyr文件就行了。</b></P>
	喜欢0 评分0 最新喜欢：举报回复

ge_zi 论坛版主注册日期2003-09-04 发帖数278 QQ 铜币633枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2004-07-08 16:24 可以的。只要arcMap，arcCatalog能做的它都能做。呵呵<img src="images/post/smile/dvbbs/em07.gif" />
	举报回复(0) 喜欢(0) 评分

pearlstar 路人甲注册日期2004-07-11 发帖数92 QQ 铜币160枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2004-07-17 20:31 但是如何具体的实现呢？比如调用哪些接口，对象？
	举报回复(0) 喜欢(0) 评分

Eppla

路人甲

注册日期2003-08-21
发帖数56
QQ
铜币345枚
威望0点
贡献值0点
银元0个

加关注写私信

3楼^#

发布于：2004-07-19 10:51

<PRE><CODE>这种dd在Ao的帮助中有的，下面是VBA的例子</CODE></PRE><PRE><CODE>Public Sub</CODE> CreateLayerFile()
 <CODE>Dim</CODE> pLayerFactory <CODE>As</CODE> ILayerFactory, pApp <CODE>As</CODE> IGxApplication, pGxObject <CODE>As</CODE> IGxObject
 <CODE>Dim</CODE> pName <CODE>As</CODE> IName
 <CODE>Set</CODE> pLayerFactory = <CODE>New</CODE> CadLayerFactory
 <CODE>Set</CODE> pApp = Application
 <CODE>Set</CODE> pGxObject = pApp.SelectedObject
 <CODE>'Use GetObjectFromFullName if you want to specify a path to a file on disk</CODE>
 <CODE>Set</CODE> pName = pGxObject.InternalObjectName
 <CODE>If Not</CODE> pLayerFactory.CanCreate(pName) <CODE>Then</CODE>
 MsgBox "Cannot create layer"
 <CODE>Exit Sub
 End If

 Dim</CODE> pEnum <CODE>As</CODE> IEnumLayer, pLayer <CODE>As</CODE> ILayer, pGxLayer <CODE>As</CODE> IGxLayer, pFile <CODE>As</CODE> IGxFile
 <CODE>Set</CODE> pEnum = pLayerFactory.Create(pName)
 <CODE>Set</CODE> pGxLayer = <CODE>New</CODE> GxLayer
 <CODE>Set</CODE> pFile = pGxLayer
 pFile.Path = "C:\temp\mylayer.lyr"
 <CODE>Set</CODE> pGxLayer.Layer = pEnum.Next
 pFile.Save
<CODE>End Sub</CODE>
</PRE>

good good study,day day up!

举报回复喜欢评分

wlh_jimmy

路人甲

注册日期2004-02-02
发帖数66
QQ309588724
铜币363枚
威望0点
贡献值0点
银元0个

加关注写私信

4楼^#

发布于：2004-08-06 15:55

<PRE><CODE>Public Sub</CODE> CreateShapefile() <CODE>Const</CODE> strFolder <CODE>As String</CODE> = "D:\Data" <CODE>Const</CODE> strName <CODE>As String</CODE> = "MyShapeFile" <CODE>' Dont include .shp extension</CODE> <CODE>Const</CODE> strShapeFieldName <CODE>As String</CODE> = "Shape" <CODE>' Open the folder to contain the shapefile as a workspace</CODE> <CODE>Dim</CODE> pFWS <CODE>As</CODE> IFeatureWorkspace <CODE>Dim</CODE> pWorkspaceFactory <CODE>As</CODE> IWorkspaceFactory <CODE>Set</CODE> pWorkspaceFactory = <CODE>New</CODE> ShapefileWorkspaceFactory <CODE>Set</CODE> pFWS = pWorkspaceFactory.OpenFromFile(strFolder, 0) <CODE>' Set up a simple fields collection</CODE> <CODE>Dim</CODE> pFields <CODE>As</CODE> IFields <CODE>Dim</CODE> pFieldsEdit <CODE>As</CODE> IFieldsEdit <CODE>Set</CODE> pFields = <CODE>New</CODE> esriCore.Fields <CODE>Set</CODE> pFieldsEdit = pFields <CODE>Dim</CODE> pField <CODE>As</CODE> IField <CODE>Dim</CODE> pFieldEdit <CODE>As</CODE> IFieldEdit <CODE>' Make the shape field</CODE> <CODE>' it will need a geometry definition, with a spatial reference</CODE> <CODE>Set</CODE> pField = <CODE>New</CODE> esriCore.Field <CODE>Set</CODE> pFieldEdit = pField pFieldEdit.Name = strShapeFieldName pFieldEdit.Type = esriFieldTypeGeometry <CODE>Dim</CODE> pGeomDef <CODE>As</CODE> IGeometryDef <CODE>Dim</CODE> pGeomDefEdit <CODE>As</CODE> IGeometryDefEdit <CODE>Set</CODE> pGeomDef = <CODE>New</CODE> GeometryDef <CODE>Set</CODE> pGeomDefEdit = pGeomDef <CODE>With</CODE> pGeomDefEdit .GeometryType = esriGeometryPolygon <CODE>Set</CODE> .SpatialReference = <CODE>New</CODE> UnknownCoordinateSystem <CODE>End With Set</CODE> pFieldEdit.GeometryDef = pGeomDef pFieldsEdit.AddField pField <CODE>' Add another miscellaneous text field</CODE> <CODE>Set</CODE> pField = <CODE>New</CODE> esriCore.Field <CODE>Set</CODE> pFieldEdit = pField <CODE>With</CODE> pFieldEdit .Length = 30 .Name = "MiscText" .Type = esriFieldTypeString <CODE>End With</CODE> pFieldsEdit.AddField pField <CODE>' Create the shapefile</CODE> <CODE>' (some parameters apply to geodatabase options and can be defaulted as Nothing)</CODE> <CODE>Dim</CODE> pFeatClass <CODE>As</CODE> IFeatureClass <CODE>Set</CODE> pFeatClass = pFWS.CreateFeatureClass(strName, pFields, <CODE>Nothing</CODE>, _ <CODE>Nothing</CODE>, esriFTSimple, strShapeFieldName, "")<CODE>End Sub</CODE></PRE>

举报回复喜欢评分

wlh_jimmy

路人甲

注册日期2004-02-02
发帖数66
QQ309588724
铜币363枚
威望0点
贡献值0点
银元0个

加关注写私信

5楼^#

发布于：2004-08-06 15:56

<PRE><CODE>Public Sub</CODE> CreateShapefile() <CODE>Const</CODE> strFolder <CODE>As String</CODE> = "D:\Data" <CODE>Const</CODE> strName <CODE>As String</CODE> = "MyShapeFile" <CODE>' Dont include .shp extension</CODE> <CODE>Const</CODE> strShapeFieldName <CODE>As String</CODE> = "Shape" <CODE>' Open the folder to contain the shapefile as a workspace</CODE> <CODE>Dim</CODE> pFWS <CODE>As</CODE> IFeatureWorkspace <CODE>Dim</CODE> pWorkspaceFactory <CODE>As</CODE> IWorkspaceFactory <CODE>Set</CODE> pWorkspaceFactory = <CODE>New</CODE> ShapefileWorkspaceFactory <CODE>Set</CODE> pFWS = pWorkspaceFactory.OpenFromFile(strFolder, 0) <CODE>' Set up a simple fields collection</CODE> <CODE>Dim</CODE> pFields <CODE>As</CODE> IFields <CODE>Dim</CODE> pFieldsEdit <CODE>As</CODE> IFieldsEdit <CODE>Set</CODE> pFields = <CODE>New</CODE> esriCore.Fields <CODE>Set</CODE> pFieldsEdit = pFields <CODE>Dim</CODE> pField <CODE>As</CODE> IField <CODE>Dim</CODE> pFieldEdit <CODE>As</CODE> IFieldEdit <CODE>' Make the shape field</CODE> <CODE>' it will need a geometry definition, with a spatial reference</CODE> <CODE>Set</CODE> pField = <CODE>New</CODE> esriCore.Field <CODE>Set</CODE> pFieldEdit = pField pFieldEdit.Name = strShapeFieldName pFieldEdit.Type = esriFieldTypeGeometry <CODE>Dim</CODE> pGeomDef <CODE>As</CODE> IGeometryDef <CODE>Dim</CODE> pGeomDefEdit <CODE>As</CODE> IGeometryDefEdit <CODE>Set</CODE> pGeomDef = <CODE>New</CODE> GeometryDef <CODE>Set</CODE> pGeomDefEdit = pGeomDef <CODE>With</CODE> pGeomDefEdit .GeometryType = esriGeometryPolygon <CODE>Set</CODE> .SpatialReference = <CODE>New</CODE> UnknownCoordinateSystem <CODE>End With Set</CODE> pFieldEdit.GeometryDef = pGeomDef pFieldsEdit.AddField pField <CODE>' Add another miscellaneous text field</CODE> <CODE>Set</CODE> pField = <CODE>New</CODE> esriCore.Field <CODE>Set</CODE> pFieldEdit = pField <CODE>With</CODE> pFieldEdit .Length = 30 .Name = "MiscText" .Type = esriFieldTypeString <CODE>End With</CODE> pFieldsEdit.AddField pField <CODE>' Create the shapefile</CODE> <CODE>' (some parameters apply to geodatabase options and can be defaulted as Nothing)</CODE> <CODE>Dim</CODE> pFeatClass <CODE>As</CODE> IFeatureClass <CODE>Set</CODE> pFeatClass = pFWS.CreateFeatureClass(strName, pFields, <CODE>Nothing</CODE>, _ <CODE>Nothing</CODE>, esriFTSimple, strShapeFieldName, "")<CODE>End Sub</CODE></PRE>

举报回复喜欢评分

pyt 路人甲注册日期2004-09-01 发帖数60 QQ 铜币157枚威望0点贡献值0点银元0个加关注写私信	6楼^# 发布于：2004-09-02 09:46 <img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em03.gif" />
	举报回复(0) 喜欢(0) 评分

wangcheng 路人甲注册日期2004-06-06 发帖数141 QQ39308652 铜币110枚威望0点贡献值0点银元0个加关注写私信	7楼^# 发布于：2004-09-10 16:33 <img src="images/post/smile/dvbbs/em07.gif" /><img src="images/post/smile/dvbbs/em07.gif" /><img src="images/post/smile/dvbbs/em08.gif" />
	举报回复(0) 喜欢(0) 评分

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

请问ArcObject可以实现自创图层的功能吗？

最新喜欢：