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

auluolal

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

) f0 m0 E' q2 {3 M9 o* C我的源码如下附件。
# K9 C! `% T( z) f我的环境：XP+AutoCad2004；
关于怎么创建宏，参见我的帖子：
http://www.3dportal.cn/discuz/viewthread.php?tid=439306
: {4 p( s: V' C- \3 L- `( {
0 U  z1 R: ~( R4 e; E1 h[ 本帖最后由 auluolal 于 2008-1-27 21:53 编辑 ]

auluolal

首先，谢谢4楼！
为什么不贴源码？
7 V2 F5 U0 I3 }4 r% G) O/ C6 C; n因为我多数时间不能直接上网，只能在线下编辑文件，并且我用Latex编辑文件，不能直接贴的，因此上附件，给大家造成不便，还请谅解！
关于你修改的程序，个人感觉很不错，谢谢了！
  U; c' M- X  C8 v2 f6 w2 t) v但是，你提到初始切角可以省略，我的原意是将Addspline函数的参数讲的比较彻底点。而你用的是些小技巧
另外你更改的程序正是我占楼的原因:)
& Y' _$ d% e6 J9 v8 l7 T简单的正弦函数大家看来会了，现在我加点要求！
% F4 n! Z0 k* m; T$ E, `# q& h1、起始点要能根据要求随时改变
2、幅值要能根据要求随时改变
3、所要画的图形的周期要能改变。
7 c+ l) }5 v! W3 G3 b2 y" g# y上述要求用两种方法实现，1、靠Autocad的命令输入框实现，2、靠输入窗体实现
4 o- g3 _6 _8 I) A4 G8 [! K5 V:)

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

gongwen0519

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

woaishuijia

楼主为什么这么小气，不直接把源码帖出来？
以下是楼主的源码(越俎代疱了)。
( J0 |3 z% k  U& A% g2 E
Sub zxhs()
/ t9 w; O/ z  Z/ \9 c  t　　Const Pi As Double = 3.14159265358979 '声明常量π
　　Dim TemPArray(0 To 188) As Double '定义要画的点的数列
　　Dim startTan(0 To 2) As Double '定义初始点的切角
! u, h9 U% E) X　　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
6 c9 c/ t. V$ O3 o+ c) N% a　　　　TemPArray(i * 30 + 1) = Sin(i)
4 {. c$ L1 F7 N8 N& B2 A4 _　　　　TemPArray(i * 30 + 2) = 0
　　Next i
2 c: F' Y* L2 R　　startTan(0) = 1: startTan(1) = 1: startTan(2) = 0
! f/ ^/ {4 q. A: g　　endTan(0) = 1: endTan(1) = 1: endTan(2) = 0
　　Call ThisDrawing.ModelSpace.AddSpline(TemPArray, startTan, endTan) '画曲线
End Sub
% |: I6 q% F3 C" b# B& T
应该说，楼主的程序很不错，美中不足的是还有一点缺陷可能是被楼主忽略了：画出的曲线的最后一个拟合点的横坐标不是2π，而是6.2。
$ }% f3 w8 q; M, r; _+ w2 U
, B7 R/ v/ {8 B3 {/ q. U! s把楼主的程序修改了一下：
! v! c, u( e/ R% z, Y0 w% X* d
$ @" U( O. i7 C2 LSub zxhs()
　　Const Pi As Double = 3.14159265358979
4 D0 P. Z, O. D2 x1 g　　Dim TempArray() As Double'拟合点坐标使用固定数组需要先计算拟合点数量，而且今后想修改循环条件的时候，还要重新计算，重新定义数组，有点麻烦，不如使用动态数组，这样将来修改循环条件时就不必去关心到底有多少个拟合点。
　　Dim startTan(0 To 2) As Double
　　Dim endTan(0 To 2) As Double
　　Dim A As Double
/ h/ N: T( N5 b# g$ c5 D* d2 [　　ReDim TempArray(5)
8 u% [; U( O9 F; K& J: B' T　　For A = 0.1 To 2# * Pi Step 0.1
9 o4 p) [% Y0 _  m4 _* l3 n: H　　　　TempArray(UBound(TempArray) - 2) = A
　　　　TempArray(UBound(TempArray) - 1) = Sin(A)
　　　　ReDim Preserve TempArray(UBound(TempArray) + 3)
; A; n2 k# L9 W! [　　Next
$ _: \1 \4 b0 A- F( \; S! N$ ~" a1 e　　TempArray(UBound(TempArray) - 2) = Pi * 2#
* H  u/ b4 d# f+ m  B　　TempArray(UBound(TempArray) - 1) = Sin(Pi * 2#)
　　'startTan(0) = 1: startTan(1) = 1: endTan(0) = 1: endTan(1) = 1'这一行......似乎意义不大，因为拟合点已足够多了，还需要指定端点切向吗？。
! x2 M3 ^# w/ P  H# @2 U　　ThisDrawing.ModelSpace.AddSpline TempArray, startTan, endTan
End Sub
  ^+ r+ X" K- W, d# j
纯属探讨，不当之处还请楼主海涵。

auluolal

对于2楼的要求，我采用了界面输入参数的方法编了程序。
参见附件
0 a4 _( H8 o3 @2 {. t, E其中PDF文件是我认为要注意的地方，DWG文件为源码及运行程序。