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

引用 sunredday 2004-6-17 20:48

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

引用 wzh_sr 2004-6-18 23:54

up

引用 xxzxsjp 2004-6-19 01:23

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

cYZBO76b.jpg (107.93 KB, 下載次數(shù): 1)

下載附件  保存到相冊

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

2004-6-19 01:22 上傳

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

引用 xxzxsjp 2004-6-19 23:57

nvaInYTX.jpg (105.3 KB, 下載次數(shù): 1)

下載附件  保存到相冊

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

2004-6-19 23:55 上傳

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

Rx8t4weg.rar (1.28 MB, 下載次數(shù): 109)

2004-6-20 01:00 上傳

點擊文件名下載附件

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

引用 xxzxsjp 2004-6-21 06:26

1WCDfHX9.jpg (187.01 KB, 下載次數(shù): 1)

下載附件  保存到相冊

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

2004-6-21 06:25 上傳

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

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

引用 xxzxsjp 2004-6-22 17:32

VdrXwYlc.rar (1.26 MB, 下載次數(shù): 95)

2004-6-22 17:32 上傳

點擊文件名下載附件
如何在Access中顯示、管理AUTOCAD的DWG矢量文件

當(dāng)然可以，人家“日月弧”都無私奉獻(xiàn)了，我還有什么可說的，之前，還有點“噢耶尼葛郎臺”，只不過還未調(diào)試到理想狀態(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

關(guān)鍵在myname你可以使它等于TEXTBOX1的值，也就是我說得在數(shù)據(jù)庫中存有圖紙路徑的原因。關(guān)于圖紙路徑，可以用系統(tǒng)文件控件自動添加。一個drivrlistbox，一個dirlistbox，一個filelistbox，一個listvier。將filelistbox的pattern屬性設(shè)為*.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”在窗體上繪制，再對準(zhǔn)其控件按右鍵，在彈出菜單中“Animation GIF Control對象--Properties--GIF--Browse(按鈕)--選程序當(dāng)前子目錄中的‘a(chǎn)rchraster’gif文件--應(yīng)用”，如果要打印，則要安裝AUTOCAD2002的“Volo view”程序，另外加上“Autodesk volo view”控件，在上面帖子里有程序。

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

引用 yongliangw 2005-1-29 04:01

各位大俠.謝了

引用 OBARMA 2010-1-14 01:11

太強(qiáng)了

引用 ICEMAN 2010-4-1 17:32

強(qiáng)人

引用 LeeTien 2010-4-25 10:30

猛人啊

引用 doney88 2015-7-1 12:50

mark 最近剛好想用到

引用 390012370 2024-1-29 20:27

學(xué)習(xí)學(xué)習(xí),謝謝分享.......

查看全部評論(12)