VLAX类及曲线操作

liub1979

不稳定,有时程序出错 Acad2002也自动退出了!

莫名

对！容易出错，且速度很慢。

ironwill

VLAX类到底是谁搞出来的，AutoDesk公司还是Frank Oquendo个人呢？？

pen_1983

太好了送你朵花

cag

vlax.cls的第一个函数是执行一条Lisp语句，那后面几个函数是色么用?

ironwill

我写论文引用这里的内容应该怎么在论文中标示？

ttthhh_hb

费神了！

triper

辛苦啦,三楼的例子刚试过，很好用，谢谢明总． 不过还是没明白怎么用这个类模块．我想实现这样的功能，不知可以不可以．就是程序运行中不和用户交互，自动画出曲线，并给出曲线中的一个点坐标，最后显示出点坐标到曲线端的曲线长度．我把三楼的例子按照自己的理解改了一下，不过还是出错了，请帮忙修改一下吧． Sub getDistAtPnt()
'定义引用曲线类模块
Dim ObjCurve As Curve
Set ObjCurve = New Curve

'自动画出曲线
Dim splineObj As AcadSpline
Dim noOfPoints As Integer
Dim startTan(0 To 2) As Double
Dim endTan(0 To 2) As Double
Dim fitPoints(0 To 8) As Double

startTan(0) = 0.5: startTan(1) = 0.5: startTan(2) = 0
endTan(0) = 0.5: endTan(1) = 0.5: endTan(2) = 0
fitPoints(0) = 1: fitPoints(1) = 1: fitPoints(2) = 0
fitPoints(3) = 5: fitPoints(4) = 5: fitPoints(5) = 0
fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0
Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
splineObj.Update

'确定曲线上一点坐标
Dim ppt(0 To 2) As Double
ppt(0) = 5
ppt(1) = 5
ppt(2) = 0

Set ObjCurve = spline0bj
Dim Dist As Double
Dist = ObjCurve.GetDistanceAtPoint(ppt)

'显示曲线长度
MsgBox "曲线上一点到曲线起点的长度为" & vbCrLf & vbCrLf & Dist, , "明经通道VBA示例"
'取消曲线的亮显
Ent.Highlight False
'释放变量
Set ObjCurve = Nothing
End Sub 错误提示为：要求对象

mccad

你的程序查看我好辛苦啊!
1.Set ObjCurve = spline0bj 中有两个错误：
应该是Set ObjCurve.Entity=splineObj
而且你把字母O输入成数字0，这一点查了10分钟才查出来。
2.Ent.Highlight False 应去掉。

triper

晕....,我怎么把o当作0了.明总真是太感谢你了,呵呵,辛苦啦