关于弧线工具。求助！！！

楼主^#

更多发布于：2004-07-16 10:14

ARCMAP的编辑工具---草图工具-----弧线工具。在图形窗口定义第一点，作为圆弧的起点，定义第二点作为圆弧的轴线。在定义第三点做为圆弧的终点。请问定义终点的时候怎么确定圆弧的弧长？或者说怎么确定弧线的拱高？？ARCMAP里面有提供输入弧线数据的功能没有？？请教大吓。。。<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em12.gif" />

喜欢0 评分0

举报回复

gis

管理员

注册日期2003-07-16
发帖数15947
QQ554730525
铜币25339枚
威望15364点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2004-07-16 12:00

arcmap提供几种arc的绘制方法
下面是例子里的一个东东
<H1>
<H1 >IEllipticArc Example</H1><PRE> Public Sub Test()</PRE><PRE> ' Get the Application Handle and the display</PRE><PRE> Dim pMxApp As IMxApplication, pSDisplay As IScreenDisplay</PRE><PRE> Set pMxApp = MxApplication</PRE><PRE> Set pSDisplay = pMxApp.Display</PRE><PRE> </PRE><PRE> 'Use IEllipticArc.PutCoords to Input the Center, Start and End points to create an EllipticArc.</PRE><PRE> Dim pCPt As IPoint, pSPt As IPoint, pEPt As IPoint</PRE><PRE> </PRE><PRE> Set pSPt = eCreatePoint(100, 100)</PRE><PRE> Set pCPt = eCreatePoint(250, 100)</PRE><PRE> Set pEPt = eCreatePoint(400, 100)</PRE><PRE> </PRE><PRE> Dim pEllipticArc As IEllipticArc</PRE><PRE> Set pEllipticArc = New EllipticArc</PRE><PRE> </PRE><PRE> 'Draw a Elliptic arc with Solid line symbol.</PRE><PRE> pEllipticArc.PutCoords False, pCPt, pSPt, pEPt, 3.14, 1 / 3, esriArcClockwise</PRE><PRE> DisplayArc pMxApp, pSDisplay, pEllipticArc, esriSLSSolid</PRE><PRE> </PRE><PRE> 'Use IEllipticArc.QueryCoords to get the statistics of the elliptic arc.</PRE><PRE> </PRE><PRE> Dim pEArc As IEllipticArc</PRE><PRE> Set pEArc = pEllipticArc</PRE><PRE> Dim NL As String, TB As String</PRE><PRE> NL = Chr(13) ; Chr(10) ' Define newline.</PRE><PRE> TB = Chr(9) ' Define tab</PRE><PRE> </PRE><PRE> MsgBox "The statistics of the Elliptic arc are: " + NL + _</PRE><PRE> "Center Point : " + NL + _</PRE><PRE> " X coord: " + TB + Str(pEArc.CenterPoint.x) + NL + _</PRE><PRE> " Y coord: " + TB + Str(pEArc.CenterPoint.y) + NL + _</PRE><PRE> "IsCircular: " + TB + Str(pEArc.IsCircular) + NL + _</PRE><PRE> "From Angle: " + TB + Str(pEArc.fromAngle(False)) + NL + _</PRE><PRE> "Central Angle: " + TB + Str(pEArc.CentralAngle) + NL + _</PRE><PRE> "To Angle: " + TB + Str(pEArc.ToAngle(False)) + NL + _</PRE><PRE> "IsLine: " + TB + Str(pEArc.IsLine) + NL + _</PRE><PRE> "IsPoint: " + TB + Str(pEArc.IsPoint) + NL + _</PRE><PRE> "IsMinor: " + TB + Str(pEArc.isMinor) + NL + _</PRE><PRE> "IsCCW: " + TB + Str(pEArc.IsCounterClockwise)</PRE><PRE> </PRE><PRE> End Sub</PRE><PRE> </PRE><PRE> Public Function eSimpleLine(currStyle) As ISimpleLineSymbol</PRE><PRE> Set eSimpleLine = New SimpleLineSymbol</PRE><PRE> eSimpleLine.Style = currStyle</PRE><PRE> End Function</PRE><PRE> </PRE><PRE> Public Sub DisplayArc(pMxApp As IMxApplication, pSDisplay As IScreenDisplay, pEArc As IEllipticArc, currStyle)</PRE><PRE> Dim lOldActiveCache As Long</PRE><PRE> lOldActiveCache = pSDisplay.ActiveCache</PRE><PRE> </PRE><PRE> 'Add the new arc to a segment collection.</PRE><PRE> Dim pSeg As ISegment</PRE><PRE> Set pSeg = pEArc</PRE><PRE> </PRE><PRE> Dim pPolyline As ISegmentCollection</PRE><PRE> Set pPolyline = New Polyline</PRE><PRE> pPolyline.AddSegment pSeg</PRE><PRE> With pSDisplay</PRE><PRE> .ActiveCache = esriNoScreenCache ' esriNoScreenCache = -1</PRE><PRE> .StartDrawing pMxApp.Display.hDC, esriNoScreenCache</PRE><PRE> </PRE><PRE> .SetSymbol eSimpleLine(currStyle)</PRE><PRE> .DrawPolyline pPolyline</PRE><PRE> </PRE><PRE> .FinishDrawing</PRE><PRE> .ActiveCache = lOldActiveCache</PRE><PRE> End With</PRE><PRE> End Sub</PRE><PRE> </PRE><PRE> Public Function eCreatePoint(x As Double, y As Double) As IPoint</PRE><PRE> Set eCreatePoint = New Point</PRE><PRE> eCreatePoint.PutCoords x, y</PRE><PRE> End Function</PRE></H1><CODE><PRE> </PRE></CODE>

[此贴子已经被作者于2004-7-16 12:05:26编辑过]

举报回复喜欢评分

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

wangcheng 路人甲注册日期2004-06-06 发帖数141 QQ39308652 铜币110枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2004-07-16 14:38 斑竹ARCMAP里面有没有直接输入参数，确定弧线的弧长等的功能啊？？<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />
	举报回复(0) 喜欢(0) 评分

ienown 路人甲注册日期2006-11-14 发帖数23 QQ6805791 铜币149枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2008-03-21 10:39 学习以下。。。。。。
	举报回复(0) 喜欢(0) 评分

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

关于弧线工具。求助！！！

最新喜欢：