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

xxzxsjp

这是个老问题，咨询过专家，好像要一个控件，我在编制“土地证”程序时，用户就要求实现此功能，证件上面要有房屋的平面图，并且要求能打印出来，反过来AUTOCAD好像能连接ACCESS。

sunredday

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

wzh_sr

up

xxzxsjp

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文件，再换另一个文件不起作用。我心急了点，先把好消息报给大家。再慢慢调试。

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

xxzxsjp

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

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

xxzxsjp

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

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

xxzxsjp

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

各位大侠.谢了

OBARMA

太强了

ICEMAN

强人