| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2022 人关注过本帖
标题:VB如何操作已经打开的CAD
只看楼主 加入收藏
xingming022
Rank: 1
等 级:新手上路
帖 子:103
专家分:9
注 册:2015-1-26
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:2 
VB如何操作已经打开的CAD
如果用VB操作未打开CAD,第一次运行是有误的,第二次运行就OK,代码如下:
Set AcadApp = CreateObject("Autocad.Application")
Set ADWG = AcadApp.Documents.Open("c:\drawing1.dwg")
Set AcadDoc = AcadApp.ActiveDocument
Set Mospace = AcadDoc.ModelSpace
Set AcadUtil = AcadDoc.Utility
AcadApp.Visible = True
Dim AAA As Variant
AA = AcadUtil.GetReal(vbCrLf & "面积:")


如果用VB操作一个已经打开的CAD,一直是出错的,代码如下:
Set AcadApp = CreateObject("Autocad.Application")Set AcadDoc = AcadApp.ActiveDocument
Set Mospace = AcadDoc.ModelSpace
Set AcadUtil = AcadDoc.Utility
AcadApp.Visible = True
Dim AAA As Variant
AA = AcadUtil.GetReal(vbCrLf & "面积:")

希望高手给予以上两个例子进行纠错指导。
搜索更多相关主题的帖子: 如何 
2016-06-29 14:31
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:20 
没有CAD,无法调试你的程序,建议你加中断逐句运行,看到底是那个对象出现问题。
2016-06-29 18:58
xingming022
Rank: 1
等 级:新手上路
帖 子:103
专家分:9
注 册:2015-1-26
收藏
得分:0 
提示:
对象‘GetReal’的方法‘IAcadUtility’失败
2016-07-02 08:04
快速回复:VB如何操作已经打开的CAD
数据加载中...
 
   



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

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