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

xxzxsjp

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

sunredday

我曾經(jīng)嘗試這把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文件和支持、字體路徑。然后再按“應用”，關閉之后，再到“屬性欄”中發(fā)現(xiàn)，其“src”就是選擇的“File Name”，運行，激動人心的時刻到來了，Access窗體上出現(xiàn)了Autocad的dwg文件的久違了的圖形，TND真過癮，不過是白底黑字(好像顏色可調)，可以像在Autocad當中一樣放大縮小，還有右鍵彈出功能，伙計，似乎還能顯示立體圖形，當然也有“打印”項目，至此問題還沒有徹底解決，只能顯示第一次選擇的DWG文件，再換另一個文件不起作用。我心急了點，先把好消息報給大家。再慢慢調試。

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

xxzxsjp

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

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

xxzxsjp

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

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

xxzxsjp

當然可以，人家“日月弧”都無私奉獻了，我還有什么可說的，之前，還有點“噢耶尼葛郎臺”，只不過還未調試到理想狀態(tài)，正好大家一起努力。主要是要在程序中引用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的值，也就是我說得在數(shù)據(jù)庫中存有圖紙路徑的原因。關于圖紙路徑，可以用系統(tǒng)文件控件自動添加。一個drivrlistbox，一個dirlistbox，一個filelistbox，一個listvier。將filelistbox的pattern屬性設為*.dwg。在CAD中你想怎么打就怎么打了。

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

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

現(xiàn)在可以在不安裝AUTOCAD的環(huán)境下，瀏覽和打印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(按鈕)--選程序當前子目錄中的‘a(chǎn)rchraster’gif文件--應用”，如果要打印，則要安裝AUTOCAD2002的“Volo view”程序，另外加上“Autodesk volo view”控件，在上面帖子里有程序。

在此要特別感謝tmtony站長，他總是在我關鍵的時候給我最大的幫助，滴水之恩，當涌泉相報。

yongliangw

各位大俠.謝了

OBARMA

太強了

ICEMAN

強人