在Access中显示并管理AUTOCAD的DWG矢量文件

引用 sunredday 2004-6-17 20:48

我曾经尝试这把AUTO的图纸粘贴到WORD结果还真能粘贴.

引用 wzh_sr 2004-6-18 23:54

up

引用 xxzxsjp 2004-6-19 01:23

CHENZHIRONG您是高家庄的，高，高，真是高。我的微机安装了Office2002、AUTOCAD2002,引用中就明明白白有“Autodesk Volo View Control”，引用后，在其他控件中选中点一下，在窗体上就可以画控件了，对准控件按右键，弹出菜单，其中有“Autodesk Volo View Control对象”选中，又有“Edit Properties... 转换...”三项，其中一、二项选择弹出窗口是一样的，然后就是熟悉的AUTOCAD的几项选择，首先选“File Name”,然后是“Support Paths”、“Font Paths”,都用对应的“Browse...”键指定DWG文件和支持、字体路径。然后再按“应用”，关闭之后，再到“属性栏”中发现，其“src”就是选择的“File Name”，运行，激动人心的时刻到来了，Access窗体上出现了Autocad的dwg文件的久违了的图形，TND真过瘾，不过是白底黑字(好像颜色可调)，可以像在Autocad当中一样放大缩小，还有右键弹出功能，伙计，似乎还能显示立体图形，当然也有“打印”项目，至此问题还没有彻底解决，只能显示第一次选择的DWG文件，再换另一个文件不起作用。我心急了点，先把好消息报给大家。再慢慢调试。

cYZBO76b.jpg (107.93 KB, 下载次数: 1)

下载附件  保存到相册

如何在Access中显示、管理AUTOCAD的DWG矢量文件

2004-6-19 01:22 上传

[此贴子已经被作者于2004-6-18 17:26:19编辑过]

引用 xxzxsjp 2004-6-19 23:57

nvaInYTX.jpg (105.3 KB, 下载次数: 1)

下载附件  保存到相册

如何在Access中显示、管理AUTOCAD的DWG矢量文件

2004-6-19 23:55 上传

谢谢“自由弧”，我还在硬着头皮往前闯，不知道等着我的是“南墙”还是“鸡蛋”，如果您已经撞过“南墙”，那么您就行行好，把程序贴上来，在此，兄弟向您作揖了，我在没有安装AUTOCAD2002的电脑上试了一下，先删除引用，再打开“avviewx.dll”文件引用，不起作用，看来要注册，打开注册表，用“avviewx.dll”查找，大概有3-6处，在安装有AUTOCAD2002的电脑上运行正常，打印试了一下，大小与显示无关，已经可以在一个控件上翻看多个DWG文件，因为DWG文件较大，按“箭头”键翻动，一定要等它显示出来了，才能再翻动，否则，系统提示“程序没有响应-切换到”！不过随便按“切换”或“重试”，一般都可以继续下去，除非你想让她彻底死，哇！她有那么美丽的线条，你忍心吗？“自由弧”令狐冲大哥，程序麻烦您给看看，瞧，人家都叫你令狐冲大哥了，还有“小燕子”、“黄蓉”等着您呢！呵呵，您就来个“降龙十八掌”就不搞定了？！

Rx8t4weg.rar (1.28 MB, 下载次数: 109)

2004-6-20 01:00 上传

点击文件名下载附件

[此贴子已经被作者于2004-6-19 17:26:53编辑过]

引用 xxzxsjp 2004-6-21 06:26

1WCDfHX9.jpg (187.01 KB, 下载次数: 1)

下载附件  保存到相册

如何在Access中显示、管理AUTOCAD的DWG矢量文件

2004-6-21 06:25 上传

注意画面右上图片，在程序中是一个会变换的GIF文件。

tmtony站长，您好，换肤了，显得更年轻了，“革命人永远年轻，他好比大松树冬夏常青，他不怕风吹雨打，他不怕天寒地冻”，遇到您时运转，在您的指点下，花一天时间，在网上找到了显示DWG文件的控件，还是国外网站发到我的信箱里，和volo view2002相比，各有千秋，现在显示图形，已经不会中断，但是没有打印功能，正好两者结合一下，取长补短，再按实际图幅调整打印的尺寸，相信会成功的。

引用 xxzxsjp 2004-6-22 17:32

VdrXwYlc.rar (1.26 MB, 下载次数: 95)

2004-6-22 17:32 上传

点击文件名下载附件
如何在Access中显示、管理AUTOCAD的DWG矢量文件

当然可以，人家“日月弧”都无私奉献了，我还有什么可说的，之前，还有点“噢耶尼葛郎台”，只不过还未调试到理想状态，正好大家一起努力。主要是要在程序中引用AUTOCAD对象。

代码如下：

public acadapp as acadappliccation

public sub 连接AUTOCAD()

on error resume next

set ACADapp = getobject(, "AUTOCAD.appliccation.")

if err then

err.clear

set ACADAPP=(createobject("autocad.appliccation")

if err then

msgbox("不能运行CAD，请检查是否安装CAD")

exit sub

end if

end if

ACADAPP.visible=true

end sub

'下面是打开文件

private sub com1_click

dim myname as string

myname=" c:\acad2000\sample\campus.dwg"

IF dir(myname)<>"" then

acadpp.documents.open myname

else

msgbox("文件不存在")

end if

end sub

关键在myname你可以使它等于TEXTBOX1的值，也就是我说得在数据库中存有图纸路径的原因。关于图纸路径，可以用系统文件控件自动添加。一个drivrlistbox，一个dirlistbox，一个filelistbox，一个listvier。将filelistbox的pattern属性设为*.dwg。在CAD中你想怎么打就怎么打了。

如果想不装CAD用其他办法，我就不知道了。

大概就是这样。供您参考。

现在可以在不安装AUTOCAD的环境下，浏览和打印DWG文件，其中打印是否符合要求，尚未定论。使用方法：首先，将“anigif.ocx、flash.ocx、flash.ocx”文件拷贝到\system32(WIN2000)或\system(WIN98)中，运行程序，在程序代码窗体--工具--引用“Animation\DwGinfo OLE Control module\Shockwave Flash”，AniGIF8控件要删除后重新绘制，在其他控件中选择“Animation GIF Control”在窗体上绘制，再对准其控件按右键，在弹出菜单中“Animation GIF Control对象--Properties--GIF--Browse(按钮)--选程序当前子目录中的‘archraster’gif文件--应用”，如果要打印，则要安装AUTOCAD2002的“Volo view”程序，另外加上“Autodesk volo view”控件，在上面帖子里有程序。

在此要特别感谢tmtony站长，他总是在我关键的时候给我最大的帮助，滴水之恩，当涌泉相报。

引用 yongliangw 2005-1-29 04:01

各位大侠.谢了

引用 OBARMA 2010-1-14 01:11

太强了

引用 ICEMAN 2010-4-1 17:32

强人

引用 LeeTien 2010-4-25 10:30

猛人啊

引用 doney88 2015-7-1 12:50

mark 最近刚好想用到

引用 390012370 2024-1-29 20:27

学习学习,谢谢分享.......

查看全部评论(12)