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

auluolal

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

我的源码如下附件。
' G7 b# N* B6 m- H0 Z5 r: l6 `我的环境：XP+AutoCad2004；
* r! S' h/ J, ]4 ?关于怎么创建宏，参见我的帖子：
( n/ ]$ @+ V, j- u2 ~http://www.3dportal.cn/discuz/viewthread.php?tid=439306
$ S9 ?; A0 o! O; y7 K7 S
3 A1 S- h% n: M[ 本帖最后由 auluolal 于 2008-1-27 21:53 编辑 ]

auluolal

首先，谢谢4楼！
$ B' i% ^! f5 f$ ~! j. c为什么不贴源码？
因为我多数时间不能直接上网，只能在线下编辑文件，并且我用Latex编辑文件，不能直接贴的，因此上附件，给大家造成不便，还请谅解！
关于你修改的程序，个人感觉很不错，谢谢了！
但是，你提到初始切角可以省略，我的原意是将Addspline函数的参数讲的比较彻底点。而你用的是些小技巧
" w- S8 a9 Y! y* }6 ]* ~另外你更改的程序正是我占楼的原因:)
- I3 R9 U- S: b: W# J# _7 T简单的正弦函数大家看来会了，现在我加点要求！
7 [8 B( Y0 F" M/ @0 r$ H, p1、起始点要能根据要求随时改变
2、幅值要能根据要求随时改变
, R( @9 t9 P5 s! D9 p3、所要画的图形的周期要能改变。
上述要求用两种方法实现，1、靠Autocad的命令输入框实现，2、靠输入窗体实现
9 g) R( Y3 p( s5 w' y:)
5 D2 o+ b# P! k( u( x" s9 ~1 P" i5 F
[ 本帖最后由 auluolal 于 2008-1-27 11:30 编辑 ]

gongwen0519

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

woaishuijia

楼主为什么这么小气，不直接把源码帖出来？
以下是楼主的源码(越俎代疱了)。

3 V5 d. a$ X# ^3 P( _Sub zxhs()
8 P0 c/ F7 `3 s; r' C0 ^4 `' X　　Const Pi As Double = 3.14159265358979 '声明常量π
% @. E* p9 B  Z% _: e" G& B　　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
4 \! p2 B6 D" P　　For i = 0.1 To 2 * Pi Step 0.1 '开始循环
: X3 _4 o8 `# o* O; G" ~. F　　　　TemPArray(i * 30) = i
　　　　TemPArray(i * 30 + 1) = Sin(i)
　　　　TemPArray(i * 30 + 2) = 0
3 W$ F" O+ b" V8 ?" {1 u! @/ _　　Next i
, P$ P# L1 Q" t9 ]　　startTan(0) = 1: startTan(1) = 1: startTan(2) = 0
2 u  H4 \" ~. K! ~3 t/ ^　　endTan(0) = 1: endTan(1) = 1: endTan(2) = 0
; B) p9 o  v7 R- V　　Call ThisDrawing.ModelSpace.AddSpline(TemPArray, startTan, endTan) '画曲线
End Sub
" Q. V' |% D) T; w7 m6 m: _
- L" p. _) Z1 U应该说，楼主的程序很不错，美中不足的是还有一点缺陷可能是被楼主忽略了：画出的曲线的最后一个拟合点的横坐标不是2π，而是6.2。

把楼主的程序修改了一下：
( B2 x3 g: V" }7 L
Sub zxhs()
# s/ o3 y% d' z( b# j2 f# g　　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
- _/ v! g: v0 J% L　　ReDim TempArray(5)
' E4 x" m: J1 r  @  z: t　　For A = 0.1 To 2# * Pi Step 0.1
　　　　TempArray(UBound(TempArray) - 2) = A
5 D6 q, h. C2 [# \/ p1 }　　　　TempArray(UBound(TempArray) - 1) = Sin(A)
2 J( y( }6 g3 z/ R: Z7 }* I7 Q　　　　ReDim Preserve TempArray(UBound(TempArray) + 3)
　　Next
4 D- o" r5 K* h0 X　　TempArray(UBound(TempArray) - 2) = Pi * 2#
( c* t4 G; o/ E/ R* H  V' c) ~　　TempArray(UBound(TempArray) - 1) = Sin(Pi * 2#)
　　'startTan(0) = 1: startTan(1) = 1: endTan(0) = 1: endTan(1) = 1'这一行......似乎意义不大，因为拟合点已足够多了，还需要指定端点切向吗？。
7 E" y: J3 A6 k, t. ^* i! a　　ThisDrawing.ModelSpace.AddSpline TempArray, startTan, endTan
- M3 ]7 I; x. nEnd Sub

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

auluolal

对于2楼的要求，我采用了界面输入参数的方法编了程序。
& e# d  b4 i, l/ ]& H* @参见附件
其中PDF文件是我认为要注意的地方，DWG文件为源码及运行程序。