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

xxzxsjp

這是個(gè)老問題，咨詢過(guò)專家，好像要一個(gè)控件，我在編制“土地證”程序時(shí)，用戶就要求實(shí)現(xiàn)此功能，證件上面要有房屋的平面圖，并且要求能打印出來(lái)，反過(guò)來(lái)AUTOCAD好像能連接ACCESS。

sunredday

我曾經(jīng)嘗試這把AUTO的圖紙粘貼到WORD結(jié)果還真能粘貼.

wzh_sr

up

xxzxsjp

CHENZHIRONG您是高家莊的，高，高，真是高。我的微機(jī)安裝了Office2002、AUTOCAD2002,引用中就明明白白有“Autodesk Volo View Control”，引用后，在其他控件中選中點(diǎn)一下，在窗體上就可以畫控件了，對(duì)準(zhǔn)控件按右鍵，彈出菜單，其中有“Autodesk Volo View Control對(duì)象”選中，又有“Edit Properties... 轉(zhuǎn)換...”三項(xiàng)，其中一、二項(xiàng)選擇彈出窗口是一樣的，然后就是熟悉的AUTOCAD的幾項(xiàng)選擇，首先選“File Name”,然后是“Support Paths”、“Font Paths”,都用對(duì)應(yīng)的“Browse...”鍵指定DWG文件和支持、字體路徑。然后再按“應(yīng)用”，關(guān)閉之后，再到“屬性欄”中發(fā)現(xiàn)，其“src”就是選擇的“File Name”，運(yùn)行，激動(dòng)人心的時(shí)刻到來(lái)了，Access窗體上出現(xiàn)了Autocad的dwg文件的久違了的圖形，TND真過(guò)癮，不過(guò)是白底黑字(好像顏色可調(diào))，可以像在Autocad當(dāng)中一樣放大縮小，還有右鍵彈出功能，伙計(jì)，似乎還能顯示立體圖形，當(dāng)然也有“打印”項(xiàng)目，至此問題還沒有徹底解決，只能顯示第一次選擇的DWG文件，再換另一個(gè)文件不起作用。我心急了點(diǎn)，先把好消息報(bào)給大家。再慢慢調(diào)試。

[此貼子已經(jīng)被作者于2004-6-18 17:26:19編輯過(guò)]

xxzxsjp

謝謝“自由弧”，我還在硬著頭皮往前闖，不知道等著我的是“南墻”還是“雞蛋”，如果您已經(jīng)撞過(guò)“南墻”，那么您就行行好，把程序貼上來(lái)，在此，兄弟向您作揖了，我在沒有安裝AUTOCAD2002的電腦上試了一下，先刪除引用，再打開“avviewx.dll”文件引用，不起作用，看來(lái)要注冊(cè)，打開注冊(cè)表，用“avviewx.dll”查找，大概有3-6處，在安裝有AUTOCAD2002的電腦上運(yùn)行正常，打印試了一下，大小與顯示無(wú)關(guān)，已經(jīng)可以在一個(gè)控件上翻看多個(gè)DWG文件，因?yàn)镈WG文件較大，按“箭頭”鍵翻動(dòng)，一定要等它顯示出來(lái)了，才能再翻動(dòng)，否則，系統(tǒng)提示“程序沒有響應(yīng)-切換到”！不過(guò)隨便按“切換”或“重試”，一般都可以繼續(xù)下去，除非你想讓她徹底死，哇！她有那么美麗的線條，你忍心嗎？“自由弧”令狐沖大哥，程序麻煩您給看看，瞧，人家都叫你令狐沖大哥了，還有“小燕子”、“黃蓉”等著您呢！呵呵，您就來(lái)個(gè)“降龍十八掌”就不搞定了？！

[此貼子已經(jīng)被作者于2004-6-19 17:26:53編輯過(guò)]

xxzxsjp

注意畫面右上圖片，在程序中是一個(gè)會(huì)變換的GIF文件。

tmtony站長(zhǎng)，您好，換膚了，顯得更年輕了，“革命人永遠(yuǎn)年輕，他好比大松樹冬夏常青，他不怕風(fēng)吹雨打，他不怕天寒地凍”，遇到您時(shí)運(yùn)轉(zhuǎn)，在您的指點(diǎn)下，花一天時(shí)間，在網(wǎng)上找到了顯示DWG文件的控件，還是國(guó)外網(wǎng)站發(fā)到我的信箱里，和volo view2002相比，各有千秋，現(xiàn)在顯示圖形，已經(jīng)不會(huì)中斷，但是沒有打印功能，正好兩者結(jié)合一下，取長(zhǎng)補(bǔ)短，再按實(shí)際圖幅調(diào)整打印的尺寸，相信會(huì)成功的。

xxzxsjp

當(dāng)然可以，人家“日月弧”都無(wú)私奉獻(xiàn)了，我還有什么可說(shuō)的，之前，還有點(diǎn)“噢耶尼葛郎臺(tái)”，只不過(guò)還未調(diào)試到理想狀態(tài)，正好大家一起努力。主要是要在程序中引用AUTOCAD對(duì)象。

代碼如下：

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("不能運(yùn)行CAD，請(qǐng)檢查是否安裝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

關(guān)鍵在myname你可以使它等于TEXTBOX1的值，也就是我說(shuō)得在數(shù)據(jù)庫(kù)中存有圖紙路徑的原因。關(guān)于圖紙路徑，可以用系統(tǒng)文件控件自動(dòng)添加。一個(gè)drivrlistbox，一個(gè)dirlistbox，一個(gè)filelistbox，一個(gè)listvier。將filelistbox的pattern屬性設(shè)為*.dwg。在CAD中你想怎么打就怎么打了。

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

大概就是這樣。供您參考。

現(xiàn)在可以在不安裝AUTOCAD的環(huán)境下，瀏覽和打印DWG文件，其中打印是否符合要求，尚未定論。使用方法：首先，將“anigif.ocx、flash.ocx、flash.ocx”文件拷貝到\system32(WIN2000)或\system(WIN98)中，運(yùn)行程序，在程序代碼窗體--工具--引用“Animation\DwGinfo OLE Control module\Shockwave Flash”，AniGIF8控件要?jiǎng)h除后重新繪制，在其他控件中選擇“Animation GIF Control”在窗體上繪制，再對(duì)準(zhǔn)其控件按右鍵，在彈出菜單中“Animation GIF Control對(duì)象--Properties--GIF--Browse(按鈕)--選程序當(dāng)前子目錄中的‘a(chǎn)rchraster’gif文件--應(yīng)用”，如果要打印，則要安裝AUTOCAD2002的“Volo view”程序，另外加上“Autodesk volo view”控件，在上面帖子里有程序。

在此要特別感謝tmtony站長(zhǎng)，他總是在我關(guān)鍵的時(shí)候給我最大的幫助，滴水之恩，當(dāng)涌泉相報(bào)。

yongliangw

各位大俠.謝了

OBARMA

太強(qiáng)了

ICEMAN

強(qiáng)人