社区 › VB › addarc 圆弧运用

rgbjjj265 发表于 2008-7-7 22:18:00

addarc 圆弧运用

我用vb想编写一个画扇形的程序，里面编写了
lwpoly = objDoc.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
可以成功将圆弧段画出来，但是两条直线边出不来.
上网找到一个文章
Circle (x, y), radius, , start, end[, aspect]
如果 start 参数或 end 参数是负数的话，Visual Basic 将画一条连接圆心到负端点的线。例如，下面的过程将用消除切片方式画出一个饼。
Private Sub Form_Click ()
   Const PI = 3.14159265
   Circle (3500, 1500), 1000, , –PI / 2, –PI / 3
End Sub
我在我的程序里加了负号，直线不但没出来，还将我的圆弧画错了（画大了）。
请问有什么好方法可以解决画出两条直线吗？
谢谢

rgbjjj265 发表于 2008-7-7 22:20:00

我的qq号226979518
希望大家不吝赐教

fjfhgdwfn 发表于 2008-7-8 09:56:00

负号可以算成正的了
看ArC的帮助了。知道端点。直线画出来应很简单了
VBA 类名
AcadArc
创建方法
ModelSpace.AddArc
PaperSpace.AddArc
Block.AddArc
访问途径
ModelSpace.Item
PaperSpace.Item
Block.Item
SelectionSet.Item
Group.Item
弧始终是以从起点依反时针方向画到端点而成。弧的 StartPoint 和 EndPoint 属性是通过 、 和属性来计算。
Center    StartPoint (圆心)(起点)
(圆心)(起点)

Radius(半径)
(半径)

EndAngle (终止角度)
StartAngle (起始角度)

EndPoint (终点)
要创建弧，可使用方法。要编辑或查询弧，可使用下列方法和属性： 方法









ArrayPolar








ArrayRectangular








Copy







Delete







GetBoundingBox






GetExtensionDictionary






GetXData





Highlight





IntersectWith




Mirror




Mirror3D



Move



Offset


Rotate


Rotate3D

ScaleEntity

SetXData
TransformBy
Update
属性












Application












ArcLength











Area











Center










Document










EndAngle









EndPoint









Handle








HasExtensionDictionary








Hyperlinks







Layer







Linetype






LinetypeScale






Lineweight





Normal





ObjectID




ObjectName




OwnerID



PlotStyleName



Radius


StartAngle


StartPoint

Thickness

TotalAngle
TrueColor
Visible
事件
Modified

fjfhgdwfn 发表于 2008-7-8 09:56:00

负号可以变成正号的啊
多看看ARC的帮助。

rgbjjj265 发表于 2008-7-8 21:44:00

乐筑天下里面的帮助，我研究了，没研究出来。
还是要谢谢你

fjfhgdwfn 发表于 2008-7-9 08:11:00

你画出了圆弧，圆弧有起终点，又有圆心，难道不会画直线？

查看完整版本: addarc 圆弧运用