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

auluolal

估计大家都能用Autocad画出正弦函数，我现在的要求是用VBA画出正弦函数，幅值为1，区间为【0，2Pi】，图形起始点为（0，0）。
+ Z2 q$ \5 k! F: C' Y  |6 V8 |
我的源码如下附件。
- I9 D, ]) W9 S/ h; }( T& o9 d我的环境：XP+AutoCad2004；
6 V8 E) i% E0 {8 h# Q% t关于怎么创建宏，参见我的帖子：
http://www.3dportal.cn/discuz/viewthread.php?tid=439306
1 y! j. Q: K$ g+ K, [1 t2 g
[ 本帖最后由 auluolal 于 2008-1-27 21:53 编辑 ]

auluolal

首先，谢谢4楼！
1 ~# S8 M7 Z1 Z$ k为什么不贴源码？
! `/ }. j1 m3 o8 h4 f因为我多数时间不能直接上网，只能在线下编辑文件，并且我用Latex编辑文件，不能直接贴的，因此上附件，给大家造成不便，还请谅解！
0 V1 q# b6 t" N关于你修改的程序，个人感觉很不错，谢谢了！
但是，你提到初始切角可以省略，我的原意是将Addspline函数的参数讲的比较彻底点。而你用的是些小技巧
另外你更改的程序正是我占楼的原因:)
  f7 z" a/ F3 g! O7 w) ]0 x- w: F简单的正弦函数大家看来会了，现在我加点要求！
' n" s8 R  n) {2 J& I3 U7 k" ^1、起始点要能根据要求随时改变
1 w$ [( L9 m% I: e* \0 d! `) r1 y2、幅值要能根据要求随时改变
3、所要画的图形的周期要能改变。
上述要求用两种方法实现，1、靠Autocad的命令输入框实现，2、靠输入窗体实现
:)

; Q+ S4 q- U# H, S6 ?" Q: I9 E- F[ 本帖最后由 auluolal 于 2008-1-27 11:30 编辑 ]

gongwen0519

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

woaishuijia

楼主为什么这么小气，不直接把源码帖出来？
" m+ s, w# Z% i! H0 W4 e% y4 P) F以下是楼主的源码(越俎代疱了)。
  a/ E  g, ?8 X+ r( S
2 R7 Z6 u8 Y3 w9 E+ g' S2 I6 K+ p+ hSub zxhs()
　　Const Pi As Double = 3.14159265358979 '声明常量π
7 z) \" O* f+ T" f) o. L. l# z　　Dim TemPArray(0 To 188) As Double '定义要画的点的数列
　　Dim startTan(0 To 2) As Double '定义初始点的切角
' O4 Q# M+ N0 _% E: T3 T　　Dim endTan(0 To 2) As Double '定义终结点的切角
, c% q% V9 U% d" ]: [; @8 V1 A) L　　Dim i As Double
　　For i = 0.1 To 2 * Pi Step 0.1 '开始循环
/ P* g8 p$ E, |3 K* Z  H2 l- }　　　　TemPArray(i * 30) = i
　　　　TemPArray(i * 30 + 1) = Sin(i)
　　　　TemPArray(i * 30 + 2) = 0
　　Next i
; o* W* {; i$ `' S( B! q7 M* F$ g　　startTan(0) = 1: startTan(1) = 1: startTan(2) = 0
4 Y( v3 Y6 t, R$ y" \9 Y　　endTan(0) = 1: endTan(1) = 1: endTan(2) = 0
　　Call ThisDrawing.ModelSpace.AddSpline(TemPArray, startTan, endTan) '画曲线
1 I. c9 m6 A4 _* r; R8 e+ H, Q' YEnd Sub
8 ^3 A5 j/ u% ^5 W
应该说，楼主的程序很不错，美中不足的是还有一点缺陷可能是被楼主忽略了：画出的曲线的最后一个拟合点的横坐标不是2π，而是6.2。
# o5 O3 k  G8 L$ V/ b( F. g
把楼主的程序修改了一下：

; [4 v. ?7 {7 h* `2 ^Sub zxhs()
) c5 X1 ~" Z* h! n% G4 D　　Const Pi As Double = 3.14159265358979
　　Dim TempArray() As Double'拟合点坐标使用固定数组需要先计算拟合点数量，而且今后想修改循环条件的时候，还要重新计算，重新定义数组，有点麻烦，不如使用动态数组，这样将来修改循环条件时就不必去关心到底有多少个拟合点。
4 Z8 Z" }9 S4 i. d, r　　Dim startTan(0 To 2) As Double
: Q( v7 B: M' d3 N, k" O5 ]　　Dim endTan(0 To 2) As Double
　　Dim A As Double
- T. f  h! s  y/ {% l　　ReDim TempArray(5)
　　For A = 0.1 To 2# * Pi Step 0.1
　　　　TempArray(UBound(TempArray) - 2) = A
) ?3 e9 P2 R7 s" E　　　　TempArray(UBound(TempArray) - 1) = Sin(A)
　　　　ReDim Preserve TempArray(UBound(TempArray) + 3)
　　Next
# v5 J0 J! P# @# F% ~2 X　　TempArray(UBound(TempArray) - 2) = Pi * 2#
　　TempArray(UBound(TempArray) - 1) = Sin(Pi * 2#)
　　'startTan(0) = 1: startTan(1) = 1: endTan(0) = 1: endTan(1) = 1'这一行......似乎意义不大，因为拟合点已足够多了，还需要指定端点切向吗？。
　　ThisDrawing.ModelSpace.AddSpline TempArray, startTan, endTan
End Sub

4 b" B1 C$ d2 I) u) p/ Q纯属探讨，不当之处还请楼主海涵。

auluolal

对于2楼的要求，我采用了界面输入参数的方法编了程序。
) N6 A) x/ _1 _( @& ^3 ]+ B4 ^, J参见附件
其中PDF文件是我认为要注意的地方，DWG文件为源码及运行程序。