liub1979 发表于 2004-7-26 21:13:00

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

莫名 发表于 2004-7-31 23:10:00

对!容易出错,且速度很慢。

ironwill 发表于 2004-9-5 08:25:00

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

pen_1983 发表于 2004-9-8 09:47:00

太好了送你朵花

cag 发表于 2004-9-14 19:58:00

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

ironwill 发表于 2004-9-26 11:31:00

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

ttthhh_hb 发表于 2004-10-23 06:12:00

费神了!

triper 发表于 2004-11-22 01:30:00

辛苦啦,三楼的例子刚试过,很好用,谢谢明总.


不过还是没明白怎么用这个类模块.我想实现这样的功能,不知可以不可以.就是程序运行中不和用户交互,自动画出曲线,并给出曲线中的一个点坐标,最后显示出点坐标到曲线端的曲线长度.我把三楼的例子按照自己的理解改了一下,不过还是出错了,请帮忙修改一下吧.


Sub getDistAtPnt()<BR>                       '定义引用曲线类模块<BR>                       Dim ObjCurve As Curve<BR>                       Set ObjCurve = New Curve<BR>                       <BR>                       '自动画出曲线<BR>                       Dim splineObj As AcadSpline<BR>                       Dim noOfPoints As Integer<BR>                       Dim startTan(0 To 2) As Double<BR>                       Dim endTan(0 To 2) As Double<BR>                       Dim fitPoints(0 To 8) As Double<BR>       <BR>                       startTan(0) = 0.5: startTan(1) = 0.5: startTan(2) = 0<BR>                       endTan(0) = 0.5: endTan(1) = 0.5: endTan(2) = 0<BR>                       fitPoints(0) = 1: fitPoints(1) = 1: fitPoints(2) = 0<BR>                       fitPoints(3) = 5: fitPoints(4) = 5: fitPoints(5) = 0<BR>                       fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0<BR>                       Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)<BR>                       splineObj.Update<BR>                       <BR>                       '确定曲线上一点坐标<BR>                       Dim ppt(0 To 2) As Double<BR>                                       ppt(0) = 5<BR>                                       ppt(1) = 5<BR>                                       ppt(2) = 0<BR>                                       <BR>                       Set ObjCurve = spline0bj<BR>                       Dim Dist As Double<BR>                       Dist = ObjCurve.GetDistanceAtPoint(ppt)<BR>                                <BR>                                        '显示曲线长度<BR>                       MsgBox "曲线上一点到曲线起点的长度为" &amp; vbCrLf &amp; vbCrLf &amp; Dist, , "明经通道VBA示例"<BR>                       '取消曲线的亮显<BR>                       Ent.Highlight False<BR>                       '释放变量<BR>                       Set ObjCurve = Nothing<BR>End Sub


错误提示为:要求对象

mccad 发表于 2004-11-22 22:09:00

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

triper 发表于 2004-11-22 23:39:00

本帖最后由 作者 于 2004-11-23 22:25:32 编辑

晕....,我怎么把o当作0了.明总真是太感谢你了,呵呵,辛苦啦
页: 1 2 3 [4] 5 6 7 8
查看完整版本: VLAX类及曲线操作