设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

2004-6-17 15:33| 发布者: admin| 查看: 1959| 评论: 12|原作者: xxzxsjp|来自: www.office-cn.net

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

我的微机安装了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文件的久违了的图形,不过是白底黑字(好像颜色可调),可以像在Autocad当中一样放大缩小,还有右键弹出功能,似乎还能显示立体图形,当然也有“打印”项目,至此问题还没有彻底解决,只能显示第一次选择的DWG文件,再换另一个文件不起作用。

我在没有安装AUTOCAD2002的电脑上试了一下,先删除引用,再打开“avviewx.dll”文件引用,不起作用,看来要注册,打开注册表,用“avviewx.dll”查找,大概有3-6处,在安装有AUTOCAD2002的电脑上运行正常,打印试了一下,大小与显示无关,已经可以在一个控件上翻看多个DWG文件,因为DWG文件较大,按“箭头”键翻动,一定要等它显示出来了,才能再翻动,否则,系统提示“程序没有响应-切换到”!不过随便按“切换”或“重试”,一般都可以继续下去

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


代码如下:

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站长,他总是在我关键的时候给我最大的帮助,滴水之恩,当涌泉相报。






发表评论

最新评论

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

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

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




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

引用 xxzxsjp 2004-6-19 23:57

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

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


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

Rx8t4weg.rar (1.28 MB, 下载次数: 109)
引用 xxzxsjp 2004-6-21 06:26

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

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


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

tmtony站长,您好,换肤了,显得更年轻了,“革命人永远年轻,他好比大松树冬夏常青,他不怕风吹雨打,他不怕天寒地冻”,遇到您时运转,在您的指点下,花一天时间,在网上找到了显示DWG文件的控件,还是国外网站发到我的信箱里,和volo view2002相比,各有千秋,现在显示图形,已经不会中断,但是没有打印功能,正好两者结合一下,取长补短,再按实际图幅调整打印的尺寸,相信会成功的。
引用 xxzxsjp 2004-6-22 17:32
VdrXwYlc.rar (1.26 MB, 下载次数: 95)
引用 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)

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 08:56 , Processed in 0.170728 second(s), 25 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部