[分享]：我的第一个VBA程序!!

zcf108

我来xdcad也已经有很久了,记得第一次来就喜欢上这里了,有好多cad高手,大家也都很热心的帮助别人,刚开始我也是刚刚学的cad,什么都不懂呢,慢慢学着学着,一点一点学习各位前辈的经验,进步很快呢?到后来就接触到了cad的二次开发,开始不知道学什么好，vlisp还是vba,不过想起来学校学过vb的,虽然学时根本都不知道学了用在什么方面的,不过好歹界面还有点印象啊,*-*6 ,所以我去买了本vba ,回来一看,晕,讲的太粗,基本的象数据类型都不介绍清楚,没办法去买了本老虎的vb举一反三,又太深奥了，再去买了本从0开始,终于可以开始学了，大概是3月中旬开始学的,快2个月了,我的第一个vba终于出炉了,因为前几天多螺旋线发生了兴趣,所以编了个螺旋线的vba,第一次编,请各位老大指教指教啊,我只编了个单环的,如果要编指定环数,指定半径的螺旋线的话,我不知道怎么着手,请前辈们指教.

zcf108

Sub createspline()
Dim splineobj As AcadSpline
Dim noofpoints As Integer
Dim starttan(0 To 2) As Double
Dim endtan(0 To 2) As Double
Dim fitpoints(0 To 302) As Double
Dim t As Integer
noofpoints = 101
starttan(0) = 0
starttan(1) = 0
starttan(2) = 0
endtan(0) = 0
endtan(1) = 0
endtan(2) = 0
For t = 0 To 100
fitpoints(3 * t) = 10 * Cos(3.6 * t * 3.141592 / 180)
fitpoints(3 * t + 1) = 10 * Sin(3.6 * t * 3.141592 / 180)
fitpoints(3 * t + 2) = 0.1 * t
Next t
Set splineobj = ThisDrawing.ModelSpace.AddSpline(fitpoints, starttan, endtan)
ZoomExtents
End Sub

莫之非

哦，这是用VB编程作的，你开始了自己的旅程，前进吧，黎明的曙光就在前面！

自由的鱼

楼主继续努力，用自己的程序解决问题真是很美妙！

hnxychf

编程序是一劳长逸的事，的确不错

dsjzzwdy1

走出了第一步就好了，以后就一步一步的练内功！