乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 122|回复: 8

怎么把程序加到CAD里去

[复制链接]

2

主题

6

帖子

2

银币

初来乍到

Rank: 1

铜币
14
发表于 2004-4-21 09:48:00 | 显示全部楼层 |阅读模式
我从这个网站上下了一段程序,怎么样用啊,怎么放到里面去呢,在那里能找到我所加的程序呢//???
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-4-21 10:05:00 | 显示全部楼层
什么程序?
如果是LISP,用APPLOAD命令加载它,,,至于怎么用,要看程序了...
一个没有说明的程序,你下下来做什么?
回复

使用道具 举报

2

主题

6

帖子

2

银币

初来乍到

Rank: 1

铜币
14
发表于 2004-4-21 10:47:00 | 显示全部楼层
我是在这个网站上下到的。是关于螺旋线的。。我把代码放上来好吗!!帮我看看,谢谢
         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
回复

使用道具 举报

2

主题

6

帖子

2

银币

初来乍到

Rank: 1

铜币
14
发表于 2004-4-21 11:06:00 | 显示全部楼层
要是我把这个程序加进去了,我去哪里才能找到这个工具或块什么的呢!!我怎么样用呢???
回复

使用道具 举报

cag

87

主题

265

帖子

10

银币

中流砥柱

Rank: 25

铜币
613
发表于 2004-4-21 15:32:00 | 显示全部楼层
只是一个函数嘛,还少了一句啊。
回复

使用道具 举报

2

主题

6

帖子

2

银币

初来乍到

Rank: 1

铜币
14
发表于 2004-4-22 14:15:00 | 显示全部楼层
那你 能告诉我怎么能放进去啊
到时怎么用那 ?
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-22 15:51:00 | 显示全部楼层
工具-宏-VB编辑器
双击ThisDrawing
把代码全部Copy到右边的代码窗口里
调用用:
工具-宏-运行
这是VBA代码,你跑错地了
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-22 15:53:00 | 显示全部楼层
只有Function,没有Sub怎么运行,还没有函数定义,还差东东呀
回复

使用道具 举报

12

主题

37

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2004-4-24 10:29:00 | 显示全部楼层
什么程序呀,如果是vlisp 你是放在D:\lsp\love 就用(load"d:/lsp/love")
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-8-16 03:25 , Processed in 4.848163 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表