| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 681 人关注过本帖, 1 人收藏
标题:vb调用已有的autocad图形
只看楼主 加入收藏
fyb162
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2013-5-6
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:2 
vb调用已有的autocad图形
想用VB直接打开已有的autocad图形,将采集的图形数据传送给单片机控制绘图仪绘制同样的图形!!
不知道VB能不能实现图形的调用和数据采集,希望大家说说自己的想法。
搜索更多相关主题的帖子: 图形 
2013-05-06 13:58
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:12 
http://www.
这问题以前以前有人问过相同的~
图片附件: 游客没有浏览图片的权限,请 登录注册

不要選我當版主
2013-05-07 01:26
ty1250132
Rank: 1
等 级:新手上路
威 望:1
帖 子:6
专家分:8
注 册:2013-5-7
收藏
得分:8 
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim insertpoint(0 To 2) As Double
On Error Resume Next
Set acadApp = New AutoCAD.AcadApplication
acadApp.WindowState = acMax
acadApp.Visible = True
acadApp.ActiveDocuments.Open "D:\GXYZ\BLOCK\YS.dwg"   '引号内是现有的图块的路径,可以自己定义,或者用APP.PATH,或者用commondialog.showopen都可以获得现有图块的路径

insertpoint(0) = startpoint(0)  
insertpoint(1) = startpoint(1)
insertpoint(2) = 0
acadApp.ActiveDocument.ModelSpace.InsertBlock(insertpoint , "D:\GXYZ\BLOCK\YS.dwg", 1#, 1#, 1#, 0)


这个应该可以满足撸主,打开现有图块插入指定坐标

[ 本帖最后由 ty1250132 于 2013-5-7 21:19 编辑 ]
2013-05-07 20:42
快速回复:vb调用已有的autocad图形
数据加载中...
 
   



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

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