怎么把程序加到CAD里去

哈哈乐

我从这个网站上下了一段程序，怎么样用啊，怎么放到里面去呢，在那里能找到我所加的程序呢//？？？

meflying

什么程序?


如果是LISP,用APPLOAD命令加载它,,,至于怎么用,要看程序了...


一个没有说明的程序,你下下来做什么?

哈哈乐

我是在这个网站上下到的。是关于螺旋线的。。我把代码放上来好吗！！帮我看看，谢谢 Dim intLoopCnt As Integer
Dim intVertCnt As Integer
Dim intCoordCnt As Integer
On Error GoTo Err_Control
If ThisDrawing.ActiveSpace = acModelSpace Then
Set objSpace = ThisDrawing.ModelSpace
Else
Set objSpace = ThisDrawing.PaperSpace
End If
Set objUtil = ThisDrawing.Utility
varSegments = ThisDrawing.GetVariable("SURFTAB1")
dblSegInclAng = (2 * (Atn(1) * 4)) / varSegments
dblSegPitch = dblPitch / varSegments
dblSegAng = dblStartAng - dblSegInclAng
intLoopCnt = CInt(1 + (varSegments * dblRot))
ReDim dblPnts((intLoopCnt * 3) - 1)
For intCnt = 1 To intLoopCnt
dblSegAng = dblSegInclAng + dblSegAng
varPitchPnt = objUtil.PolarPoint(varCentPnt, _
dblSegAng, dblRadius)
varCentPnt(2) = varCentPnt(2) + dblSegPitch
For intVertCnt = 0 To 2
dblPnts(intCoordCnt) = varPitchPnt(intVertCnt)
intCoordCnt = intCoordCnt + 1
Next
Next intCnt
Set objPoly = objSpace.Add3DPoly(dblPnts)
Set AddHelix = objPoly
Exit_Here:
Exit Function
Err_Control:
Select Case Err.Number
'Cases here
Case Else
MsgBox Err.Description
Err.Clear
Resume Exit_Here
End Select
End Function

哈哈乐

要是我把这个程序加进去了，我去哪里才能找到这个工具或块什么的呢！！我怎么样用呢？？？

cag

只是一个函数嘛，还少了一句啊。

哈哈乐

那你 能告诉我怎么能放进去啊


到时怎么用那 ？

雪山飞狐_lzh

工具－宏－VB编辑器


双击ThisDrawing


把代码全部Copy到右边的代码窗口里


调用用：


工具－宏－运行


这是VBA代码，你跑错地了

雪山飞狐_lzh

只有Function,没有Sub怎么运行，还没有函数定义，还差东东呀

梁旭武

什么程序呀,如果是vlisp 你是放在D:\lsp\love 就用(load"d:/lsp/love")