这个样条曲线用VBA程序该怎末画？

蓝莲花。11 · 发表于 2009-5-21 22:14:23

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

这个曲线如果用VBA语言编程的话，该怎么编？我知道AddSpline(fitPnts,sTan,eTan)命令，但是里面的参数具体该怎样设置？

[ 本帖最后由蓝莲花。11 于 2009-5-22 12:19 编辑 ]

woaishuijia · 发表于 2009-5-22 14:58:56

/ H1 m9 D6 z7 ~4 U
'假设画一条有三个拟合点的样条曲线
, q" A- ]* ^" |8 m
'声明样条曲线
5 {: z& J3 N, k7 [3 a S7 l8 o
Dim SP As AcadSpline& K) T' g$ A$ b3 X |! ~
; N6 {" `2 C7 g ?9 Y0 H3 b
'声明样条曲线拟合点坐标数组1 W/ M0 Z3 K: J/ [; |7 V1 X, Q9 E
'拟合点坐标必须是WCS的三维坐标,每个点的坐标需要数组中三个元素,三个点共九个元素
$ k! m; p7 k6 }7 p& {
Dim fitPnts(8) As Double( Z7 y7 ~ {3 e* {" c( y, p/ M. o
) F) e0 p; C9 e3 @: U
'声明起点切向数组& F. L% Q$ J( A. L$ W$ w
'切向是矢量,由X方向Y方向Z方向组成,也就是说这是一个有三个元素的双精度数组" N3 X9 M& w" w
'三个元素的数值可以这样得到:以切线起点为WCS坐标原点,这个切线在XYZ三个坐标轴上的投影就是这个数组的三个值6 O4 R- @7 U( d1 a9 `, ?5 e
Dim sTan(2) As Double- ~# b( G: x7 M9 z; Y F$ n
" V3 y H, G% i+ ? S
'声明端点切向数组
6 k& w8 P7 C* P( ?" q
'和上面的起点切向相似0 ?6 X+ U6 D( b2 Y! ^# L3 n- }
Dim eTan(2) As Double
% ?+ c+ }' E0 A% X S
) w2 j, S7 d" Z, m- M7 c
'样条曲线的第一个点
! I$ S5 C0 `, K7 y
fitPnts(0) = 10: fitPnts(1) = 10: fitPnts(2) = 0
/ h, V# f6 ?+ w0 }) @/ P' a: n
'样条曲线的第二个点6 M1 Y$ B" |8 U' g# m# p" R
fitPnts(3) = 20: fitPnts(4) = 10: fitPnts(5) = 03 O b4 d# ~8 f R Q* |
'样条曲线的第三个点' E; i: m$ H7 w
fitPnts(6) = 20: fitPnts(7) = 20: fitPnts(8) = 05 C L" c+ U! F( L- v
4 p) _1 ^# C) c! j2 R
'假定样条曲线的起点方向为水平向右" V+ S8 L& Z: Z( P* X# P6 O
'需要注意的是:VBA中的样条曲线起点切向与画图时不同.画图时起点切向与曲线方向是相反的,而编程时是同方向的- H; B; j- \' y
'设切线长度为1,水平向右的切线其X分量为1,Y分量为0,Z分量也为03 X* V" B. a4 l! D5 [4 }
sTan(0) = 1: sTan(1) = 0: sTan(2) = 0
* J, ?4 e# k% u, b
'假定样条曲线的终点方向为135度方向+ K4 B4 h# \3 B
'设切线长度为1,135度方向切线的X分量为负二分之根号二,Y分量为二分之根号二,Z分量为0/ k' t5 M o/ N
eTan(0) = -Sqr(2) / 2: eTan(1) = Sqr(2) / 2: eTan(2) = 04 k6 F, [+ @+ @3 }
'如果起点切向或端点切向的三个元素均为0,则切线方向为默认方向+ r+ z. w7 I: a1 u; a( Z2 m
$ } ~ A5 f& _. w5 a
'画曲线: g$ Z; G' v* B5 k4 t4 I, I
Set SP = ThisDrawing.ModelSpace.AddSpline(fitPnts, sTan, eTan)8 l$ f* f7 z; ~ }

复制代码

蓝莲花。11 · 发表于 2009-5-22 15:17:32

感谢版主的指点，我差不多已经明白了，不过我想知道起点和终点的切向怎末判断的？好像一般的画样条曲线stan和etan的切线坐标都是0

woaishuijia · 发表于 2009-5-22 19:59:07

应该说，除非有明确的角度要求－－比如样条曲线与某直线在交点部位相切－－通常都可以用0（也就是默认）的。曾经遇到过特殊的情况是用导数算出的角度和切向。

蓝莲花。11 · 发表于 2009-5-23 01:26:21

我自己大概做了一下这个图的程序（中间块部分也不是很理解），系统提示红色标出的语句有问题，能帮我看一下吗？将十分感谢！！

Dim Xb1 As Variant, Yb1 As Variant

Xb1 = 0
Yb1 = 0

Dim Xa1 As Variant, Ya1 As Variant

Xa1 = 0.5
Ya1 = 12

Dim blockObj As AcadBlock

Dim insPnt(0 To 4) As Double

Dim allEnt As AcadEntity

Dim blkRef As AcadBlockReference

Dim blkCount As Integer

Dim blkName As String

For Each allEnt In ThisDrawing.ModelSpace

If StrComp(allEnt.EntityName, "AcDbBlockReference", 1) = 0 Then

Set blkRef = allEnt

If StrComp(Left(blkRef.Name, 7), "blkGEAR", 1) = 0 Then

blkCount = blkCount + 1

End If

End If

Next

blkCount = blkCount + 1

insPnt(0) = 0:insPn t(1) = 0: insPnt(2) = 0: insPnt(3) = 0: insPnt(4)= 0

blkName = "blkGEAR" & blkCount

Set blockObj = ThisDrawing.Blocks.Add(insPnt, blkName)；该处系统提示有问题；

Dim sTan(0 To 2) As Double

Dim eTan(0 To 2) As Double

Dim fitPnts(0 To 14) As Double

Dim splineL As AcadSpline

Dim splineR As AcadSpline

sTan(0) = 0: sTan(1) = 0: sTan(2) = 0

eTan(0) = 0: eTan(1) = 0: eTan(2) = 0

fitPnts(0) = Xb1: fitPnts(1) = Yb1: fitPnts(2) = 0

fitPnts(3) = Xb1 + 1: fitPnts(4) = Yb1 + 3.75: fitPnts(5) = 0

fitPnts(6) = Xb1 - 1: fitPnts(7) = Yb1 + 4: fitPnts(8) = 0

fitPnts(9) = Xb1 + 1.5: fitPnts(10) = Yb1 + 4.25: fitPnts(11) =0

fitPnts(12) = Xa1: fitPnts(13) = Ya1: fitPnts(14) = 0

Set splineL = blockObj.AddSpline(fitPnts, sTan, eTan)

[ 本帖最后由蓝莲花。11 于 2009-5-23 03:12 编辑 ]

woaishuijia · 发表于 2009-5-23 07:24:52

insPnt应该声明为有三个元素的双精度数组,因为这是块插入点的三维坐标.
相应地,红色代码行上面两行多余的赋值语句应删除

蓝莲花。11 · 发表于 2009-5-23 19:42:56

对，已经好了，太感谢了。

		自动登录	找回密码
密码			注册

通知

[已答复] 这个样条曲线用VBA程序该怎末画？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

回复 2# woaishuijia 的帖子

回复 4# woaishuijia 的帖子

浏览过的版块