|
|
我用vb想编写一个画扇形的程序，里面编写了
lwpoly = objDoc.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
可以成功将圆弧段画出来，但是两条直线边出不来.
上网找到一个文章
[object.]Circle [Step](x, y), radius, [color], 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
我在我的程序里加了负号，直线不但没出来，还将我的圆弧画错了（画大了）。
请问有什么好方法可以解决画出两条直线吗？
谢谢
|
|
置顶卡
