再用vb对cad进行二次开发过程中,如何画弧线?

cryyyy · 发表于 2005-4-19 13:19:00

retval = object.addarc(center,radius,startangle,endangle)
书上写的格式是如,,,具体是怎样?
我试过很多格式了,改了很多内容
() 内部的是除了center-首先对center进行定义- 外，其他都应该填实际数值吧
谁给举个例子
谢谢

ljpnb · 发表于 2005-4-19 14:52:00

这个不是在帮助文件里有详细说明嘛，并且有例子啊，应该讲得比较清楚啊！

cryyyy · 发表于 2005-4-20 20:30:00

我没有帮助文件
你有么?发给我怎样?
加我qq:80137460
谢谢
非常

ljpnb · 发表于 2005-4-20 20:39:00

我传个书上的例子：
&ltRE class=Code>Sub Example_AddArc()
' This example creates an arc in model space.

Dim arcObj As AcadArc
Dim centerPoint(0 To 2) As Double
Dim radius As Double
Dim startAngleInDegree As Double
Dim endAngleInDegree As Double

' Define the circle
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 5#
startAngleInDegree = 10#
endAngleInDegree = 230#

' Convert the angles in degrees to angles in radians
Dim startAngleInRadian As Double
Dim endAngleInRadian As Double
startAngleInRadian = startAngleInDegree * 3.141592 / 180#
endAngleInRadian = endAngleInDegree * 3.141592 / 180#

' Create the arc object in model space
Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
ZoomAll
End Sub

cryyyy · 发表于 2005-4-20 21:23:00

[b]ljpnb发表于2005-4-20 20:39:00你用得肯定是CAD里的VBA。

再用vb对cad进行二次开发过程中,如何画弧线?

发表回复

精选推荐