| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 560 人关注过本帖
标题:我想用VB编程然后在CAD里面画一个圆,但是总出现实时错误438,求高手~~
只看楼主 加入收藏
孙东东007
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2015-4-9
结帖率:77.78%
收藏
已结贴  问题点数:10 回复次数:8 
我想用VB编程然后在CAD里面画一个圆,但是总出现实时错误438,求高手~~
Dim AcadApp As AcadApplication

Private Sub Command1_Click()
Dim circleObj As AcadCircle
Dim centerpoint(0 To 2) As Double
Dim radius As Double
centerpoint(0) = 20: centerpoint(1) = 30: centerpoint(2) = 0
radius = Val(Text1.Text)
Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle_(centerpoint, radius)
ZoomAll
End Sub

Private Sub Form_Load()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox ("不能运行AutoCAD 2007,请检查是否安装了AutoCAD 2007")
Exit Sub
End If
End If
AcadApp.Visible = True
End Sub
2015-05-21 10:53
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:10 
Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle_(centerpoint, radius)
怎么还是昨天同样的错误?
删掉红色下划线

大开眼界
2015-05-21 10:57
孙东东007
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2015-4-9
收藏
得分:0 
还是不好使~~~~我都困扰死了,全掉了也不好使,用你的那个代码也不行
2015-05-21 11:01
孙东东007
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2015-4-9
收藏
得分:0 
你听听我的设计流程对不对
2015-05-21 11:02
孙东东007
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2015-4-9
收藏
得分:0 
我先在工程菜单里点击引用,选择AUTOcad,然后在窗口里输入打开CAD的代码,接着在窗口里放置了一个按钮和一个文本框,,然后编写程序,,,,,,,,,,,,,就这样 按理说应该没问题啊
2015-05-21 11:04
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 4楼 孙东东007
烤验我原本就糊涂的脑子
我原样拷你贴的代码,工程中引用ACAD后,运行出现
图片附件: 游客没有浏览图片的权限,请 登录注册

去掉下划线就正常了.
难道你不知你ACAD版本?

大开眼界
2015-05-21 11:07
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
我用的是ACAD2013,需要的是这句
Set AcadApp = CreateObject("AutoCAD.Application")
生成ACAD应用

大开眼界
2015-05-21 11:16
孙东东007
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2015-4-9
收藏
得分:0 
哈哈哈,,,可以啦,,,万分感谢,可是昨天我也按照你的方法弄了,可是不知怎么的就没好使,不管怎么样,谢谢了,谢谢谢谢谢谢谢谢谢谢谢谢谢~~~~~~~~~给你一万个赞!!!
2015-05-21 11:16
孙东东007
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2015-4-9
收藏
得分:0 
回复 2楼 lianyicq
我又出现问题了,师傅,你忙不?
2015-05-22 11:45
快速回复:我想用VB编程然后在CAD里面画一个圆,但是总出现实时错误438,求高手~ ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041986 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved