简单的画图问题（改进的正弦函数）

auluolal

估计大家都能用Autocad画出正弦函数，我现在的要求是用VBA画出正弦函数，幅值为1，区间为【0，2Pi】，图形起始点为（0，0）。
1 _1 l# D$ B4 `" y! _( i1 X8 C
我的源码如下附件。
' q) B! {4 S$ M: g7 T我的环境：XP+AutoCad2004；
关于怎么创建宏，参见我的帖子：
http://www.3dportal.cn/discuz/viewthread.php?tid=439306
  c& \0 o) n& Q( }
[ 本帖最后由 auluolal 于 2008-1-27 21:53 编辑 ]

auluolal

首先，谢谢4楼！
为什么不贴源码？
因为我多数时间不能直接上网，只能在线下编辑文件，并且我用Latex编辑文件，不能直接贴的，因此上附件，给大家造成不便，还请谅解！
, k! A" Q+ K$ Z# m5 i关于你修改的程序，个人感觉很不错，谢谢了！
& [7 e7 r+ g" q! C. a; ^0 }3 r2 M但是，你提到初始切角可以省略，我的原意是将Addspline函数的参数讲的比较彻底点。而你用的是些小技巧
6 x3 f  |' Q$ ?( }$ q另外你更改的程序正是我占楼的原因:)
8 M) w! r3 e5 a6 B1 s. b4 D简单的正弦函数大家看来会了，现在我加点要求！
1、起始点要能根据要求随时改变
! z* Z' b/ y' [- F2、幅值要能根据要求随时改变
3、所要画的图形的周期要能改变。
上述要求用两种方法实现，1、靠Autocad的命令输入框实现，2、靠输入窗体实现
0 ^! g$ K+ I, }2 ?% r: K& o:)

, o- I2 c8 z9 l1 H[ 本帖最后由 auluolal 于 2008-1-27 11:30 编辑 ]

gongwen0519

楼主的VBA编的好啊，学习了~~

woaishuijia

楼主为什么这么小气，不直接把源码帖出来？
# k' D$ H) D# S* z以下是楼主的源码(越俎代疱了)。

Sub zxhs()
- o/ M" s5 q- B: I) p　　Const Pi As Double = 3.14159265358979 '声明常量π
　　Dim TemPArray(0 To 188) As Double '定义要画的点的数列
" X$ b+ S* \/ A& q4 [6 w　　Dim startTan(0 To 2) As Double '定义初始点的切角
, P9 \% `; g8 A0 x0 R) x　　Dim endTan(0 To 2) As Double '定义终结点的切角
　　Dim i As Double
( Y% i3 T9 a. K! s( q5 F( G　　For i = 0.1 To 2 * Pi Step 0.1 '开始循环
1 ]1 c! Z# v0 u& `* Z3 E　　　　TemPArray(i * 30) = i
　　　　TemPArray(i * 30 + 1) = Sin(i)
4 W9 R8 y" a% i4 H　　　　TemPArray(i * 30 + 2) = 0
! r5 I& X' G6 N; k( x8 W0 d- D　　Next i
) ~8 W7 ^9 }( G5 Z" o. n" Z　　startTan(0) = 1: startTan(1) = 1: startTan(2) = 0
  G+ W) w- O2 @8 Z/ J; H　　endTan(0) = 1: endTan(1) = 1: endTan(2) = 0
　　Call ThisDrawing.ModelSpace.AddSpline(TemPArray, startTan, endTan) '画曲线
End Sub

5 a( g0 m3 A8 n3 V1 D应该说，楼主的程序很不错，美中不足的是还有一点缺陷可能是被楼主忽略了：画出的曲线的最后一个拟合点的横坐标不是2π，而是6.2。
' ]2 I) W8 `+ ~- D1 `: K) o2 l/ B; R( T
把楼主的程序修改了一下：
! ^! k3 Q5 ~$ ~# ?0 N5 N8 V! ]
# Q5 Z" A5 C, t/ tSub zxhs()
　　Const Pi As Double = 3.14159265358979
　　Dim TempArray() As Double'拟合点坐标使用固定数组需要先计算拟合点数量，而且今后想修改循环条件的时候，还要重新计算，重新定义数组，有点麻烦，不如使用动态数组，这样将来修改循环条件时就不必去关心到底有多少个拟合点。
　　Dim startTan(0 To 2) As Double
　　Dim endTan(0 To 2) As Double
　　Dim A As Double
　　ReDim TempArray(5)
" ~0 T  }6 N4 P! \& d/ Z　　For A = 0.1 To 2# * Pi Step 0.1
　　　　TempArray(UBound(TempArray) - 2) = A
4 n, O% D: n: J7 G0 q& r  @( p　　　　TempArray(UBound(TempArray) - 1) = Sin(A)
- o* t; c- R( K$ i0 n1 h1 l　　　　ReDim Preserve TempArray(UBound(TempArray) + 3)
　　Next
　　TempArray(UBound(TempArray) - 2) = Pi * 2#
　　TempArray(UBound(TempArray) - 1) = Sin(Pi * 2#)
) s0 w7 H5 ]- E6 z　　'startTan(0) = 1: startTan(1) = 1: endTan(0) = 1: endTan(1) = 1'这一行......似乎意义不大，因为拟合点已足够多了，还需要指定端点切向吗？。
　　ThisDrawing.ModelSpace.AddSpline TempArray, startTan, endTan
! |7 Y% C- R  f+ Q6 pEnd Sub

3 b1 ?, U; z3 Z" ~) _+ s( D! M纯属探讨，不当之处还请楼主海涵。

auluolal

对于2楼的要求，我采用了界面输入参数的方法编了程序。
/ a! R/ c# Z9 p5 ?参见附件
1 o, F3 g; G7 ]5 [! ^其中PDF文件是我认为要注意的地方，DWG文件为源码及运行程序。