多边形面积>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
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) '获取该地图集中的第一幅地图
你是天空里的一片云，
偶尔投影在我的波心——
我不必讶异，
更无须欢喜.
在转瞬间消灭了踪影。
你我相逢在黑夜的海上，
你有你的，我有我的，方向，
我记得也好，
最好我忘掉.
在这交会时互放的光亮！
偶然的相识，又匆匆的相离，于是想起了徐志摩的这首诗。
尺子
尺子只能度量自己，却不能衡量别人，因为尺子一弯，成了毒蛇。
鲜花
枝头上浮出了一朵鲜花，喷红流彩，分外妖娆，就像一颗跃动的心。于是我把它摘了下来占为己有，没过多久花便谢了。原来我对它的爱慕却伤害了它。
黑夜
别人说我的世界属于黑夜，可我知道，我的黑夜里没有世界。于是我选择了孤独，因为它会陪我走完我的人生，不离不弃。
月亮
凄风话杨柳，秋意踏来，一枝暮叶摇旧水；
细雨抚残荷，离愁倾杯，两滴暗香怜薄命。
东篱把美酒，欲饮黄昏后，
只慕羞菊盈枝向闭月，唯有孤影对邀！
一饮相思，二饮闲愁……
眼泪问花花不语，人比西风瘦！
烦是，梨花婉若盈盈漫舞的白雪，把心遗落在人家庭院。——主人说打扫起来很麻烦！
烦是，一个路人走到清澈得
黄花涩涩涩涩酒，雾霭弥弥弥弥秋。
凉凉飕飕风忧忧，沽沽澹澹水柔柔。
木零零，蕊残残。凄凄惨惨苦悲秋。
音容笑貌何处有？只把相思托残柳。
我的梦想在何方？
怀着对生命的虔诚，
我展翅远航。
虽然，
峰峦的重叠使我的前程一片苍茫，
也知，热闹的黄昏里只有我那孤寂的目光。
但风雨洗礼着我的灵魂，
朝阳亲吻着我的梦想；
即使是死亡
也抹不去我生命天空里那灿烂的云裳；
我愿化为春风，
吹向那神圣的殿堂。
是谁给了我梦的翅膀？
怀着对生命的虔诚，
我再次起航。
苦涩的泪水
划过我沧伤的脸膀；
参差的月光透过凝滞的阴云
滤进我的心房。
相思，是一杯淡酒
却飘逸着不尽的暗乡。
我愿化为枯叶，
奔向大地
加载中…
