tianjuan980106
路人甲
路人甲
  • 注册日期2004-03-21
  • 发帖数89
  • QQ
  • 铜币494枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:2031回复:5

ao 中的 set 语句

楼主#
更多 发布于:2004-04-26 22:24
<P>
Dim pDoc As IMxDocument
Dim pEnv As IEnvelope
Set pDoc = ThisDocument
Set pEnv = pDoc.ActiveView.Extent      .......3
pEnv.Expand 0.5, 0.5, True                    .......4      
pDoc.ActiveView.Extent = pEnv           ...........5
pDoc.ActiveView.Refresh</P>
<P>以上是帮助中的一段代码,我不明白的是在语句 4 执行完之后, Extent 里边的内容不是已经发生了变化吗,为什么还有有一个语句 5  。</P>
<P>另外,pEnv  只是一个接口变量,怎么能把它赋给 pDoc.ActiveView.Extent  这个对象呢?</P>


喜欢0 评分0
wangcheng
路人甲
路人甲
  • 注册日期2004-06-06
  • 发帖数141
  • QQ39308652
  • 铜币110枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2004-06-08 15:19
<img src="images/post/smile/dvbbs/em01.gif" />
举报 回复(0) 喜欢(0)     评分
tianjuan980106
路人甲
路人甲
  • 注册日期2004-03-21
  • 发帖数89
  • QQ
  • 铜币494枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2004-04-27 14:28
希望各位继续讨论
举报 回复(0) 喜欢(0)     评分
kisssy
卧底
卧底
  • 注册日期2004-04-18
  • 发帖数235
  • QQ
  • 铜币614枚
  • 威望2点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2004-04-27 10:47
<P>佩服<b><FONT color=#000066>tianjuan980106</FONT></b> 打破沙锅问到底的精神,不好意思,我已经山穷水尽了!</P><P>我只能说:并不是说<FONT color=#f73809>接口</FONT>变成<FONT color=#ff3300>对象,而是</FONT><FONT color=#000000> pDoc.ActiveView.Extent 实例化了pEnv;说得通俗一点就像:让原来的骨架子变得有血有肉!</FONT></P><P>我完了,闪了!</P>
个人专栏: https://zhuanlan.zhihu.com/c_165676639
举报 回复(0) 喜欢(0)     评分
tianjuan980106
路人甲
路人甲
  • 注册日期2004-03-21
  • 发帖数89
  • QQ
  • 铜币494枚
  • 威望0点
  • 贡献值0点
  • 银元0个
4楼#
发布于:2004-04-27 09:05
如果语句 Set pEnv = pDoc.ActiveView.Extent      把 pEnv实例化成Envelop对象,那么pEnV就变成一个 类 Envelop的对象了,     可是<FONT color=#f73809>接口</FONT>怎么变成<FONT color=#ff3300>对象</FONT>了呢?
举报 回复(0) 喜欢(0)     评分
kisssy
卧底
卧底
  • 注册日期2004-04-18
  • 发帖数235
  • QQ
  • 铜币614枚
  • 威望2点
  • 贡献值0点
  • 银元0个
5楼#
发布于:2004-04-27 08:55
<P>pEnv  只是一个接口变量,怎么能把它赋给 pDoc.ActiveView.Extent  这个对象呢?</P><P>pEnv是定义成IEnvelope,但是Set pEnv = pDoc.ActiveView.Extent      ,已经把pEnv实例化成Envelop对象了
</P>
个人专栏: https://zhuanlan.zhihu.com/c_165676639
举报 回复(0) 喜欢(0)     评分
游客

返回顶部