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

auluolal

估计大家都能用Autocad画出正弦函数，我现在的要求是用VBA画出正弦函数，幅值为1，区间为【0，2Pi】，图形起始点为（0，0）。

9 v8 k1 L0 S3 d$ J我的源码如下附件。
5 K- H: b0 ?' S- O" W0 r! p我的环境：XP+AutoCad2004；
2 Z7 g% r' u% h8 c3 S' i关于怎么创建宏，参见我的帖子：
http://www.3dportal.cn/discuz/viewthread.php?tid=439306

[ 本帖最后由 auluolal 于 2008-1-27 21:53 编辑 ]

auluolal

首先，谢谢4楼！
+ y1 @4 H* }$ m  n为什么不贴源码？
  Y# w( b$ x, K7 _% W$ `% |因为我多数时间不能直接上网，只能在线下编辑文件，并且我用Latex编辑文件，不能直接贴的，因此上附件，给大家造成不便，还请谅解！
  p" C8 J# g+ a3 F4 \. F关于你修改的程序，个人感觉很不错，谢谢了！
% Z6 i( |' g" U3 D. ^" \. j1 f但是，你提到初始切角可以省略，我的原意是将Addspline函数的参数讲的比较彻底点。而你用的是些小技巧
另外你更改的程序正是我占楼的原因:)
- c5 e& C8 e- R% H( p. E2 \+ X简单的正弦函数大家看来会了，现在我加点要求！
1、起始点要能根据要求随时改变
% u  @, _1 C2 [+ K8 c2、幅值要能根据要求随时改变
2 [4 z  ?6 s3 F. S* J3、所要画的图形的周期要能改变。
# u0 |0 h& d0 l3 R0 d上述要求用两种方法实现，1、靠Autocad的命令输入框实现，2、靠输入窗体实现
! ?5 L3 ~/ N( d, N:)
5 L/ @. R2 W& N; O+ A  y
[ 本帖最后由 auluolal 于 2008-1-27 11:30 编辑 ]

gongwen0519

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

woaishuijia

楼主为什么这么小气，不直接把源码帖出来？
- X1 F; H  {$ n, {6 f以下是楼主的源码(越俎代疱了)。
( C  d; j4 T; Q1 |
' `" K) @* d" Q' ~Sub 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 '定义终结点的切角
　　Dim i As Double
　　For i = 0.1 To 2 * Pi Step 0.1 '开始循环
　　　　TemPArray(i * 30) = i
　　　　TemPArray(i * 30 + 1) = Sin(i)
! M! L  A8 N- \$ i3 D, L3 c　　　　TemPArray(i * 30 + 2) = 0
. `5 O* y' E, Q% n. T8 |3 k/ _" a　　Next i
$ D4 t; ~0 I6 M8 g　　startTan(0) = 1: startTan(1) = 1: startTan(2) = 0
! W4 A  X; J" @$ B4 T3 n　　endTan(0) = 1: endTan(1) = 1: endTan(2) = 0
9 R7 w0 y7 N5 t- D' {8 t　　Call ThisDrawing.ModelSpace.AddSpline(TemPArray, startTan, endTan) '画曲线
End Sub
6 ^+ E( @/ t6 V* c' K: B
+ G( d+ T; ]. x4 e应该说，楼主的程序很不错，美中不足的是还有一点缺陷可能是被楼主忽略了：画出的曲线的最后一个拟合点的横坐标不是2π，而是6.2。

" ?0 Y# O3 s0 C: Y2 J把楼主的程序修改了一下：
/ U+ _; m; v6 j$ G& J
- j* a+ {. Q+ R+ }Sub zxhs()
0 H: C% u+ P+ |3 T　　Const Pi As Double = 3.14159265358979
　　Dim TempArray() As Double'拟合点坐标使用固定数组需要先计算拟合点数量，而且今后想修改循环条件的时候，还要重新计算，重新定义数组，有点麻烦，不如使用动态数组，这样将来修改循环条件时就不必去关心到底有多少个拟合点。
& k2 W) }  i6 [　　Dim startTan(0 To 2) As Double
　　Dim endTan(0 To 2) As Double
1 m! U4 }. z5 Q　　Dim A As Double
　　ReDim TempArray(5)
) s# a! `7 k/ ~. D　　For A = 0.1 To 2# * Pi Step 0.1
　　　　TempArray(UBound(TempArray) - 2) = A
1 g4 C% m9 q/ [3 [! h$ }& ^, w　　　　TempArray(UBound(TempArray) - 1) = Sin(A)
+ u' ]. p3 O8 |" a# V　　　　ReDim Preserve TempArray(UBound(TempArray) + 3)
4 S) E0 f4 M$ C　　Next
, D: K& N! n/ [" O' G" v% j　　TempArray(UBound(TempArray) - 2) = Pi * 2#
! o6 K, Z6 }) A; h% N5 z$ L　　TempArray(UBound(TempArray) - 1) = Sin(Pi * 2#)
8 T* ^7 m  l: t2 o2 n- ?8 E　　'startTan(0) = 1: startTan(1) = 1: endTan(0) = 1: endTan(1) = 1'这一行......似乎意义不大，因为拟合点已足够多了，还需要指定端点切向吗？。
6 v" M, y- o) |3 x: X　　ThisDrawing.ModelSpace.AddSpline TempArray, startTan, endTan
. B" o7 K# {8 n/ Z$ U/ R0 D( `End Sub

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

auluolal

对于2楼的要求，我采用了界面输入参数的方法编了程序。
# t% f) w7 t5 h$ r7 k' ]3 v1 v1 W参见附件
其中PDF文件是我认为要注意的地方，DWG文件为源码及运行程序。