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

auluolal

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

我的源码如下附件。
; k3 \# @) u3 i, \6 [% f我的环境：XP+AutoCad2004；
% [! Z0 V% j0 g2 i- a! O. j关于怎么创建宏，参见我的帖子：
http://www.3dportal.cn/discuz/viewthread.php?tid=439306
- Q& ^' F* H9 s3 J; w' P
[ 本帖最后由 auluolal 于 2008-1-27 21:53 编辑 ]

auluolal

首先，谢谢4楼！
为什么不贴源码？
' {1 D- K4 b) _1 H7 y) f2 w/ p. q因为我多数时间不能直接上网，只能在线下编辑文件，并且我用Latex编辑文件，不能直接贴的，因此上附件，给大家造成不便，还请谅解！
关于你修改的程序，个人感觉很不错，谢谢了！
但是，你提到初始切角可以省略，我的原意是将Addspline函数的参数讲的比较彻底点。而你用的是些小技巧
另外你更改的程序正是我占楼的原因:)
6 j8 j% |& V: B9 e6 y) E4 ?- f# K简单的正弦函数大家看来会了，现在我加点要求！
* [, {) X5 R* h* J2 E8 Q1、起始点要能根据要求随时改变
; |2 ?4 j* P3 J' v+ z# `2、幅值要能根据要求随时改变
3、所要画的图形的周期要能改变。
上述要求用两种方法实现，1、靠Autocad的命令输入框实现，2、靠输入窗体实现
9 W7 X1 t; `% w:)
& b  P: o# e; @8 M5 {
[ 本帖最后由 auluolal 于 2008-1-27 11:30 编辑 ]

gongwen0519

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

woaishuijia

楼主为什么这么小气，不直接把源码帖出来？
以下是楼主的源码(越俎代疱了)。
' S1 Z! W1 I6 M
Sub zxhs()
- }1 h/ K' ^9 I; r4 ~　　Const Pi As Double = 3.14159265358979 '声明常量π
7 a  Z+ I: ^2 ~　　Dim TemPArray(0 To 188) As Double '定义要画的点的数列
9 {2 @: v# a* H% m　　Dim startTan(0 To 2) As Double '定义初始点的切角
7 G4 o0 H1 v8 r! F　　Dim endTan(0 To 2) As Double '定义终结点的切角
$ t3 _# V( c8 R　　Dim i As Double
　　For i = 0.1 To 2 * Pi Step 0.1 '开始循环
. o" E7 v2 l' w　　　　TemPArray(i * 30) = i
　　　　TemPArray(i * 30 + 1) = Sin(i)
  x# ~  V, s! T) f( {$ U. o　　　　TemPArray(i * 30 + 2) = 0
　　Next i
　　startTan(0) = 1: startTan(1) = 1: startTan(2) = 0
! ]3 w6 p  v- I2 M; A1 l1 h　　endTan(0) = 1: endTan(1) = 1: endTan(2) = 0
　　Call ThisDrawing.ModelSpace.AddSpline(TemPArray, startTan, endTan) '画曲线
, B! U& {) X5 qEnd Sub
6 |3 @0 y$ I1 y0 c  F4 Y- R0 A3 i/ T
, _' j' l; d/ F6 I/ K+ P应该说，楼主的程序很不错，美中不足的是还有一点缺陷可能是被楼主忽略了：画出的曲线的最后一个拟合点的横坐标不是2π，而是6.2。
5 o8 H5 R3 C4 I- J6 \* j# e
把楼主的程序修改了一下：
  j; t; [" [0 A4 f9 M
* {/ t/ A0 Z5 D; k* XSub zxhs()
- m7 n0 ?# i- G　　Const Pi As Double = 3.14159265358979
　　Dim TempArray() As Double'拟合点坐标使用固定数组需要先计算拟合点数量，而且今后想修改循环条件的时候，还要重新计算，重新定义数组，有点麻烦，不如使用动态数组，这样将来修改循环条件时就不必去关心到底有多少个拟合点。
　　Dim startTan(0 To 2) As Double
, x% T9 t+ I7 \  c! j$ o6 l　　Dim endTan(0 To 2) As Double
( S* w6 A! ~& y/ a/ K　　Dim A As Double
　　ReDim TempArray(5)
0 d: Y2 M8 V: p* J4 E　　For A = 0.1 To 2# * Pi Step 0.1
　　　　TempArray(UBound(TempArray) - 2) = A
7 G7 H9 R2 {+ h, g5 U　　　　TempArray(UBound(TempArray) - 1) = Sin(A)
, ?. P( y% x! }. b8 C　　　　ReDim Preserve TempArray(UBound(TempArray) + 3)
& i% R6 G- \: b0 F　　Next
+ B! ^6 c7 N/ ]5 A/ i* X1 L0 ]1 S　　TempArray(UBound(TempArray) - 2) = Pi * 2#
8 m* j# O" p9 d- H4 q7 [　　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
0 B+ D3 x; r* v$ W! P0 e( T
9 |" S) H2 }( _3 W纯属探讨，不当之处还请楼主海涵。

auluolal

对于2楼的要求，我采用了界面输入参数的方法编了程序。
9 y# E/ p% I4 O' L参见附件
* c% [# M7 T$ Q5 o其中PDF文件是我认为要注意的地方，DWG文件为源码及运行程序。