关于添加layer的代码问题！

楼主^#

更多发布于：2005-09-10 10:55

总统先生和各位高手：我有下面的类代码(clsaddlayer)：
' Option Explicit
Dim m_pApp As IApplication
Implements ICommand Private Property Get ICommand_Enabled() As Boolean ICommand_Enabled = True End Property Private Property Get ICommand_Checked() As Boolean ' TOD Add your implementation here End Property Private Property Get ICommand_Name() As String ICommand_Name = "Developer Samples_Add Custom Layer" End Property Private Property Get ICommand_Caption() As String ICommand_Caption = "Add Custom Layer" End Property Private Property Get ICommand_Tooltip() As String ICommand_Tooltip = "Add Custom Layer To Map" End Property Private Property Get ICommand_Message() As String ICommand_Message = "Add a Custom Layer to the Map" End Property Private Property Get ICommand_HelpFile() As String ' TOD Add your implementation here End Property Private Property Get ICommand_HelpContextID() As Long ' TOD Add your implementation here End Property Private Property Get ICommand_Bitmap() As esriSystem.OLE_HANDLE ' TOD Add your implementation here End Property Private Property Get ICommand_Category() As String ICommand_Category = "Developer Samples" End Property Private Sub ICommand_OnCreate(ByVal hook As Object) Set m_pApp = hook End Sub Private Sub ICommand_OnClick() Dim pCustomLayer As CUSTOMLAYERSLib.ICustomLayer Set pCustomLayer = New CUSTOMLAYERSLib.CustomLayer Dim pMxDoc As IMxDocument Set pMxDoc = m_pApp.Document‘运行时有问题 Dim pLayer As ILayer Set pLayer = pCustomLayer pLayer.Name = "Test Custom Layer" pMxDoc.FocusMap.addlayer pCustomLayer End Sub
Public Sub addlayer() ICommand_OnClick End Sub
 然后定义对象
public iii as clsaddlayer
iii.addlayer
但运行时，出现Set pMxDoc = m_pApp.Document没有定义，什么with之类的错误！
请总统先生赐教！谢谢！

喜欢0 评分0

举报回复

kisssy

卧底

注册日期2004-04-18
发帖数235
QQ
铜币614枚
威望2点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2005-09-10 13:06

上面的程序是用于VBA的

个人专栏: https://zhuanlan.zhihu.com/c_165676639

举报回复喜欢评分

cftao2008 路人甲注册日期2005-03-09 发帖数141 QQ 铜币568枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2005-09-11 10:46 <P>m_pApp变量应该是接口IMxApplication的一个对象</P> <P>如果是了，在哪里都可以用到！</P>
	举报回复(0) 喜欢(0) 评分

lzygis 路人甲注册日期2005-08-29 发帖数6 QQ 铜币138枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2005-09-12 09:39 <P>kisssy,不对吧,上面的程序怎么是用于VBA? 是用VB开发exe的吧</P>
	举报回复(0) 喜欢(0) 评分

sirc_lizheng 伴读书童注册日期2004-07-09 发帖数148 QQ 铜币495枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2005-09-12 14:54 <P>谢谢大家的知道，看来我搞错了。</P> <P>怎样修改可以变成AE的代码呢？</P>
	举报回复(0) 喜欢(0) 评分

kisssy

卧底

注册日期2004-04-18
发帖数235
QQ
铜币614枚
威望2点
贡献值0点
银元0个

加关注写私信

5楼^#

发布于：2005-09-12 16:58

Option Explicit 
'Dim m_pApp As IApplication
Private m_pHookHelper <CODE>As</CODE> IHookHelper
Implements ICommand
Private Sub Class_Initialize() <CODE>'Load resources</CODE> <CODE>Set</CODE> m_pHookHelper = <CODE>New</CODE> HookHelper <CODE>End Sub</CODE> <CODE>Private Sub</CODE> Class_Terminate() <CODE>'Clear variables</CODE> <CODE>Set</CODE> m_pHookHelper = <CODE>Nothing</CODE> <CODE> </CODE><CODE> </CODE> <CODE>End Sub</CODE> Private Property Get ICommand_Enabled() As Boolean ICommand_Enabled = True End Property Private Property Get ICommand_Checked() As Boolean ' TOD Add your implementation here End Property Private Property Get ICommand_Name() As String ICommand_Name = "Developer Samples_Add Custom Layer" End Property Private Property Get ICommand_Caption() As String ICommand_Caption = "Add Custom Layer" End Property Private Property Get ICommand_Tooltip() As String ICommand_Tooltip = "Add Custom Layer To Map" End Property Private Property Get ICommand_Message() As String ICommand_Message = "Add a Custom Layer to the Map" End Property Private Property Get ICommand_HelpFile() As String ' TOD Add your implementation here End Property Private Property Get ICommand_HelpContextID() As Long ' TOD Add your implementation here End Property Private Property Get ICommand_Bitmap() As esriSystem.OLE_HANDLE ' TOD Add your implementation here End Property Private Property Get ICommand_Category() As String ICommand_Category = "Developer Samples" End Property Private Sub ICommand_OnCreate(ByVal hook As Object) Set m_pHookHelper.hook=hook End Sub Private Sub ICommand_OnClick() ' Dim pCustomLayer As CUSTOMLAYERSLib.ICustomLayer ' Set pCustomLayer = New CUSTOMLAYERSLib.CustomLayer ' Dim pMxDoc As IMxDocument ' Set pMxDoc = m_pApp.Document‘运行时有问题 ' Dim pLayer As ILayer ' Set pLayer = pCustomLayer ' pLayer.Name = "Test Custom Layer" ' pMxDoc.FocusMap.addlayer pCustomLayer
'''''首先假设你在你的主窗体frmMain上有一个CommonDialog控件叫cdg
'''''下面以对话框添加Shp文件为例
cdg.Filter=”Add ShapeFile(*.Shp)|*.Shp”
cdg.ShowOpen
if cdg.FileName=”” then Exit sub
'''''解析cdg.FileName字符串，找出SHP的FeatureClass Path和Name
dim strPath as string 'FeatureClass Path
dim strTempName as string 'FeatureClass Name+”.shp”
dim strName as string ' FeatureClass Name
Dim i As Integer
 i = InStr(cdg.FileName, "\")
 While i > 0
 strPath = Left(cdg.FileName, i - 1)
 strTempName = Mid(cdg.FileName, i + 1)
 i = InStr(i + 1, cdg.FileName, "\")
 Wend
Dim j As Integer
 j = InStr(strTempName, ".")
 strName = Left(strTempName, j - 1)
''''Open WorkSpace
 Dim myFWKS As IFeatureWorkspace
 Dim myWKSF As IWorkspaceFactory
 Set myWKSF = New ShapefileWorkspaceFactory
 Set myFWKS = myWKSF.OpenFromFile(strPath, 0)
 If Not myFWKS Is Nothing Then
 ''''Open
 Dim myFC As IFeatureClass
 Set myFC = myFWKS.OpenFeatureClass(strName)
 Dim myDS As IDataset
 Set myDS = myFC
 Dim myFLayer As IFeatureLayer
 Set myFLayer = New FeatureLayer
 Set myFLayer.FeatureClass = myFC
 myFLayer.Name = myDS.Name
End If
''''Add Layer<PRE><CODE>Dim</CODE> pmap <CODE>As</CODE> Imap</PRE><PRE> <CODE>Set</CODE> pmap = m_pHookHelper.FocusMap</PRE><PRE> </PRE><PRE> pmap.Addlayer myFlayer</PRE><PRE> </PRE><PRE>'''Refresh</PRE><PRE><CODE>Dim</CODE> pActiveView <CODE>As</CODE> esriCarto.IActiveView</PRE><PRE> <CODE>Set</CODE> pActiveView = m_pHookHelper.FocusMap</PRE><PRE> <CODE>'Set the extent to the full extent</CODE></PRE><PRE> pActiveView.Extent = pActiveView.FullExtent</PRE><PRE> <CODE>'Refresh the active view</CODE></PRE><PRE> pActiveView.Refresh</PRE><PRE> </PRE> End Sub

个人专栏: https://zhuanlan.zhihu.com/c_165676639

举报回复喜欢评分

sirc_lizheng 伴读书童注册日期2004-07-09 发帖数148 QQ 铜币495枚威望0点贡献值0点银元0个加关注写私信	6楼^# 发布于：2005-09-13 13:13 <P>谢谢你，我会尽快试试看，然后反映情况，你是个好人！</P>
	举报回复(0) 喜欢(0) 评分

license

路人甲

注册日期2003-08-20
发帖数235
QQ33281522
铜币366枚
威望0点
贡献值0点
银元0个

加关注写私信

7楼^#

发布于：2005-09-14 00:41

好人！<img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em08.gif" />

Gis的小石块 QICQ:33281522 EMAIL:license@vip.sina.com GIS的麦田守望者，希望和大家交流。〓〓〓〓〓〓〓〓〓〓 GISEMPIRE 〓〓灌水★波菜〓〓专用章〓〓〓〓〓〓〓〓〓〓

举报回复喜欢评分

echodjx 路人甲注册日期2004-06-06 发帖数37 QQ 铜币29枚威望0点贡献值0点银元0个加关注写私信	8楼^# 发布于：2005-10-13 08:46 我也受益了，不错！
	举报回复(0) 喜欢(0) 评分

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

关于添加layer的代码问题！

最新喜欢：