加载中…
个人资料
我的擎雨盖
我的擎雨盖
  • 博客等级:
  • 博客积分:0
  • 博客访问:559
  • 关注人气:0
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
分类
评论
加载中…
留言
加载中…
访客
加载中…
好友
加载中…
博文
(2007-03-10 18:58)
多边形面积>0为顺时针,<0为逆时针方向
    '凹凸多边形都可以算
    Public Shared Function GetPolygonArea(ByVal pPointCollection As IPointCollection, ByVal num As Integer) As Double
        If num < 3 Then
            Return 0.0
        End If
        Dim area As Double
        Dim i As Integer
        Dim ax As Double
        Dim ay As Double
        Dim bx As Double
        Dim by As Double
        Dim cx As Double
        Dim cy As Double
      &nb
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
AO
(2007-03-10 18:42)

1.
Sub MyMacro()
Dim pMxDocument As IMxDocument '
地图文档
Set pMxDocument = Application.Document '获取当前应用程序的文档
MsgBox pMxDocument.FocusMap.Name '
显示当前地图的名称
End Sub


2.
Sub MyMacro()
Dim pMxDocument As IMxDocument '
地图文档
Dim pMaps As IMaps '地图集
Dim pMap As IMap '地图
Set pMxDocument = Application.Document '获取当前应用程序的文档
Set pMaps = pMxDocument.Maps '获取当前地图文档的地图集
If pMaps.Count > 1 Then '如果该地图集的地图数大于1
Set pMap = pMaps.Item(1) '
获取该地图集中的第一幅地图

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2006-12-06 20:27)
你是天空里的一片云,  
偶尔投影在我的波心——       
   我不必讶异,
   更无须欢喜.
在转瞬间消灭了踪影。
你我相逢在黑夜的海上,
你有你的,我有我的,方向,
    我记得也好,
    最好我忘掉.
在这交会时互放的光亮!
 
偶然的相识,又匆匆的相离,于是想起了徐志摩的这首诗。

 
 
 
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
                   尺子
   尺子只能度量自己,却不能衡量别人,因为尺子一弯,成了毒蛇。
                   鲜花
   枝头上浮出了一朵鲜花,喷红流彩,分外妖娆,就像一颗跃动的心。于是我把它摘了下来占为己有,没过多久花便谢了。原来我对它的爱慕却伤害了它。
                   黑夜
   别人说我的世界属于黑夜,可我知道,我的黑夜里没有世界。于是我选择了孤独,因为它会陪我走完我的人生,不离不弃。
                   月亮
  
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2006-11-03 14:08)
   凄风话杨柳,秋意踏来,一枝暮叶摇旧水;
   细雨抚残荷,离愁倾杯,两滴暗香怜薄命。
   东篱把美酒,欲饮黄昏后,
   只慕羞菊盈枝向闭月,唯有孤影对邀!
   一饮相思,二饮闲愁……
   眼泪问花花不语,人比西风瘦!
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2006-11-01 18:57)
   
   烦是,梨花婉若盈盈漫舞的白雪,把心遗落在人家庭院。——主人说打扫起来很麻烦!
   烦是,一个路人走到清澈得
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2006-10-29 20:01)
 
  黄花涩涩涩涩酒,雾霭弥弥弥弥秋。
  凉凉飕飕风忧忧,沽沽澹澹水柔柔。
  木零零,蕊残残。凄凄惨惨苦悲秋。
  音容笑貌何处有?只把相思托残柳。
 
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2006-10-29 19:40)
我的梦想在何方?
怀着对生命的虔诚,
我展翅远航。
虽然,
峰峦的重叠使我的前程一片苍茫,
也知,热闹的黄昏里只有我那孤寂的目光。
但风雨洗礼着我的灵魂,
朝阳亲吻着我的梦想;
即使是死亡
也抹不去我生命天空里那灿烂的云裳;
我愿化为春风,
吹向那神圣的殿堂。
 
是谁给了我梦的翅膀?
怀着对生命的虔诚,
我再次起航。
苦涩的泪水
划过我沧伤的脸膀;
参差的月光透过凝滞的阴云
滤进我的心房。
相思,是一杯淡酒
却飘逸着不尽的暗乡。
我愿化为枯叶,
奔向大地
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
  

新浪BLOG意见反馈留言板 不良信息反馈 电话:4006900000 提示音后按1键(按当地市话标准计费) 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

新浪公司 版权所有