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 "曲线上一点到曲线起点的长度为" & vbCrLf & vbCrLf & 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了.明总真是太感谢你了,呵呵,辛苦啦