再用vb对cad进行二次开发过程中,如何画弧线?
retval = object.addarc(center,radius,startangle,endangle)书上写的格式是如,,,具体是怎样?
我试过很多格式了,改了很多内容
() 内部的是除了center-首先对center进行定义- 外，其他都应该填 实际数值吧
谁给举个例子
谢谢 这个不是在帮助文件里有详细说明嘛，并且有例子啊，应该讲得比较清楚啊！ 我没有帮助文件
你有么?发给我怎样?
加我qq:80137460
谢谢
非常 我传个书上的例子：
<PRE 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</PRE> ljpnb发表于2005-4-20 20:39:00static/image/common/back.gif我传个书上的例子：
Sub Example_AddArc()
' This example creates an arc in model space.
Dim arcObj As AcadArc
Dim c...
<BR>谢谢
但是为什么会出现错误呢
我是原原本本 复制你的例子的?
这我就不知道了，我运行这段很正常，不过楼主运行时出现的问题，我也在别的机子上也碰到过，明明是没有问题的代码，在那台机子上运行就会出错，原因要么是CAD安装程序的关系。 好奇怪
有什么方法可以解决么? 你是用VB还是VBA开发，如果是VB，则ThisDrawing必须先定义并指定为当前文档。 mccad发表于2005-4-21 7:04:00static/image/common/back.gif你是用VB还是VBA开发，如果是VB，则ThisDrawing必须先定义并指定为当前文档。
<BR>我不知道vba和vb有什么区别
只是用vb语言编程
然后调用cad,使cad能根据vb语言命令 输出 视图 <A name=25300><FONT color=#000066><B>cryyyy</B></FONT></A>你用得肯定是CAD里的VBA。
页:
[1]
2