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

auluolal

估计大家都能用Autocad画出正弦函数，我现在的要求是用VBA画出正弦函数，幅值为1，区间为【0，2Pi】，图形起始点为（0，0）。
- a& r$ f: D" R. N. i
& Q; g: [. {+ K8 n; K4 v! M- ?+ ~我的源码如下附件。
我的环境：XP+AutoCad2004；
1 l& @# m4 f  f) s- u关于怎么创建宏，参见我的帖子：
7 k, g" Q& ~- K8 D: O) v* Khttp://www.3dportal.cn/discuz/viewthread.php?tid=439306

: D  }6 e- X: c8 D* N[ 本帖最后由 auluolal 于 2008-1-27 21:53 编辑 ]

auluolal

首先，谢谢4楼！
为什么不贴源码？
9 O3 F% ^, }, L/ X因为我多数时间不能直接上网，只能在线下编辑文件，并且我用Latex编辑文件，不能直接贴的，因此上附件，给大家造成不便，还请谅解！
关于你修改的程序，个人感觉很不错，谢谢了！
0 E+ f  r' ]! m/ P6 o但是，你提到初始切角可以省略，我的原意是将Addspline函数的参数讲的比较彻底点。而你用的是些小技巧
# J: Y. d% {, g/ ~另外你更改的程序正是我占楼的原因:)
简单的正弦函数大家看来会了，现在我加点要求！
1、起始点要能根据要求随时改变
5 R4 J5 u. `! ~2、幅值要能根据要求随时改变
3、所要画的图形的周期要能改变。
8 Q4 R8 O; {$ E% G& M* @. g0 ^上述要求用两种方法实现，1、靠Autocad的命令输入框实现，2、靠输入窗体实现
:)
. }2 H. Q8 y8 W( x- r
5 V7 |" F% p; Y" H[ 本帖最后由 auluolal 于 2008-1-27 11:30 编辑 ]

gongwen0519

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

woaishuijia

楼主为什么这么小气，不直接把源码帖出来？
8 `2 A; S, E  L! m' x以下是楼主的源码(越俎代疱了)。

" X/ W, M% g) T% k( vSub zxhs()
　　Const Pi As Double = 3.14159265358979 '声明常量π
　　Dim TemPArray(0 To 188) As Double '定义要画的点的数列
　　Dim startTan(0 To 2) As Double '定义初始点的切角
　　Dim endTan(0 To 2) As Double '定义终结点的切角
7 T4 ^  r0 J% N* `1 p　　Dim i As Double
7 y- ?2 H9 x1 W" ^1 `　　For i = 0.1 To 2 * Pi Step 0.1 '开始循环
; L& j& F3 T+ P& C' k, {8 [　　　　TemPArray(i * 30) = i
　　　　TemPArray(i * 30 + 1) = Sin(i)
　　　　TemPArray(i * 30 + 2) = 0
　　Next i
　　startTan(0) = 1: startTan(1) = 1: startTan(2) = 0
% x$ u2 [, w& D, N　　endTan(0) = 1: endTan(1) = 1: endTan(2) = 0
　　Call ThisDrawing.ModelSpace.AddSpline(TemPArray, startTan, endTan) '画曲线
End Sub
! K8 p$ y4 y1 e8 s0 e
4 K' s5 j' ~9 {9 _应该说，楼主的程序很不错，美中不足的是还有一点缺陷可能是被楼主忽略了：画出的曲线的最后一个拟合点的横坐标不是2π，而是6.2。
9 s$ |. |6 c% p4 i: S- _7 V
把楼主的程序修改了一下：

- r$ a! j. a- D! H# k7 I4 E5 YSub zxhs()
; o" J: }/ R: E" {5 l* ?) o　　Const Pi As Double = 3.14159265358979
　　Dim TempArray() As Double'拟合点坐标使用固定数组需要先计算拟合点数量，而且今后想修改循环条件的时候，还要重新计算，重新定义数组，有点麻烦，不如使用动态数组，这样将来修改循环条件时就不必去关心到底有多少个拟合点。
  k( L0 J+ [7 f  E" s　　Dim startTan(0 To 2) As Double
　　Dim endTan(0 To 2) As Double
　　Dim A As Double
5 `, V8 ]% ~9 N+ b( b　　ReDim TempArray(5)
4 f/ S: _: R; X& C" w- J　　For A = 0.1 To 2# * Pi Step 0.1
: B1 N% V8 Y' ]/ g　　　　TempArray(UBound(TempArray) - 2) = A
8 V7 ^6 z1 }/ j5 P2 x　　　　TempArray(UBound(TempArray) - 1) = Sin(A)
5 e+ O& G% l% m( h" [% i0 x) q' H　　　　ReDim Preserve TempArray(UBound(TempArray) + 3)
　　Next
9 Y% ^2 i3 w, @4 T! x% t　　TempArray(UBound(TempArray) - 2) = Pi * 2#
, }% Q* ^: a& a5 M5 d3 i7 e" ^  d　　TempArray(UBound(TempArray) - 1) = Sin(Pi * 2#)
8 B6 X; u7 u9 Y5 R　　'startTan(0) = 1: startTan(1) = 1: endTan(0) = 1: endTan(1) = 1'这一行......似乎意义不大，因为拟合点已足够多了，还需要指定端点切向吗？。
　　ThisDrawing.ModelSpace.AddSpline TempArray, startTan, endTan
End Sub

纯属探讨，不当之处还请楼主海涵。

auluolal

对于2楼的要求，我采用了界面输入参数的方法编了程序。
% W5 l: q% g# u5 S: A6 h* V5 z/ ]4 v参见附件
; i) U! X7 K5 d7 A+ b. `6 s) Z/ f" J其中PDF文件是我认为要注意的地方，DWG文件为源码及运行程序。