吳宏斌, 周新邵

湖南城市學(xué)院計(jì)算機(jī)科學(xué)系，益陽 413000

基于AutoCAD的圖塊的查找/替換器的開發(fā)

吳宏斌, 周新邵

湖南城市學(xué)院計(jì)算機(jī)科學(xué)系，益陽 413000

在AutoCAD繪圖過程中，對圖塊的應(yīng)用是提高繪圖效率和正確率的一種方法，但是初期的設(shè)計(jì)在后期也許需要改動(dòng)，如果某個(gè)圖塊內(nèi)容需要一些修改，得對某已插入的圖塊一個(gè)一個(gè)改，不僅需要耗費(fèi)很多的時(shí)間，還可能遺漏，這就需要用一個(gè)完善的某圖塊代替以前需要修改的所有同類圖塊，因而對圖塊的查找/替換就顯得不可短少。本系統(tǒng)就是針對此而開發(fā)的圖塊的查找/替換程序。

AutoCAD圖形；AutoCAD VBA；圖塊；查找/替換

引言

在用AutoCAD制作圖時(shí)，圖塊的應(yīng)用很普遍，圖塊可以快速的使用或用于同一個(gè)圖形的統(tǒng)一，一個(gè)大型的圖中會(huì)有很多個(gè)不同的塊，而且每個(gè)塊都要被用到很多次，這樣就可以在制作圖的時(shí)候方便很多，當(dāng)完成一個(gè)圖后會(huì)對整個(gè)圖作一個(gè)檢查，假如圖中使用的一個(gè)塊在設(shè)計(jì)的時(shí)候出現(xiàn)了一點(diǎn)小差錯(cuò)，并且這個(gè)塊在這個(gè)圖里用了許多次，就只好一個(gè)一個(gè)去找并改正，這樣就會(huì)花費(fèi)許多的時(shí)間，同時(shí)，在改正的過程中很有可能漏掉其中的某些圖塊，使得這個(gè)工作不僅任務(wù)繁重，并且還容易出現(xiàn)差錯(cuò)，為此開發(fā)出圖塊查找/替換器，本系統(tǒng)采用AutoCAD2004作為開發(fā)平臺(tái)，用AutoCAD VBA進(jìn)行開發(fā)。

1、VBA編程窗體布局

打開AutoCAD2004軟件的VBA程序編輯器，插入窗體form，標(biāo)示為“圖塊查找/替換器”；在窗體form上放入三個(gè)Frame，分別標(biāo)示為圖形中的塊、替換的塊、操作按鈕；在圖形中的塊Frame框內(nèi)依次放入兩個(gè)listBox和兩個(gè)CommandButton,分別標(biāo)示為保留的塊、被替換的塊、》、《，分別取名為ListBox1、ListBox2、cmd_right、cmd_left;在替換的塊Frame框內(nèi)依次放入ComboBox1、Frame4,在Frame4中放入4個(gè)CheckBox,對應(yīng)放入4個(gè)Label和4個(gè)TextBox,4個(gè)Label依次標(biāo)示為旋轉(zhuǎn)、X比例、Y比例、Z比例；在操作按鈕Frame框內(nèi)放入3個(gè)CommandButton,分別標(biāo)示為刷新、替換、退出，分別取名為cmd_Refresh、cmd_replace、cmd_exit。程序運(yùn)行后窗體如圖1所示。

圖1 圖塊的查找/替換器運(yùn)行窗體

2、VBA程序源代碼

2.1 窗體程序源代碼

窗體程序代碼：

3、結(jié)束語

在圖塊運(yùn)用較多的DWG文件中批量修改圖塊是一件相當(dāng)繁瑣的工作，本文所開發(fā)的系統(tǒng)能對當(dāng)前圖形文件中的圖塊進(jìn)行自動(dòng)批量查找和替換操作，大大提高圖形中圖塊替換工作的準(zhǔn)確性和效率。若應(yīng)用中需要用到外部文件的圖塊，則需要完善該系統(tǒng)，在此不再多敘。

[1] 吳宏斌.基于AutoCAD地形圖的文字查找/替換器開發(fā)[J].城市勘測2006年04期:40-42

[2] 張帆.AutoCAD VBA開發(fā)精彩實(shí)例教程［M］.清華大學(xué)出版社.2004

[3] 二代龍震工作室. AutoCAD VBA函數(shù)庫查詢辭典[M].北京：中國鐵道出版社.2003

AutoCAD-based Drawing Black of the Find/Replace Development of Generator

Wu Hongbin, Zhou Xinshao
Department of Computer Science, Hunan City University, Yiyang 413000

In the AutoCAD drawing process, the application block is to improve the efficiency and accuracy of mapping a way, but in the latter part of the initial design may need to change the content if a block with some modifications, have been inserted into the graph of a blocks one by one to change, not only takes a lot of time, but also may be missing,which requires a block with a perfect place before the need to modify all the same drawing block, So drawing block the Find / Replace to look not deficient. This system is developed for this drawing block of Find / Replace programme.

AutoCAD drawing；AutoCAD VBA；Drawing Block；Find/Replace

10.3969/j.issn.1001-8972.2011.06.025

湖南省教育廳科技項(xiàng)目（項(xiàng)目編號(hào)09C205）

作者介紹

吳宏斌，1964年3月生，男，教授，主要研究方向?yàn)镃AD技術(shù)的軟件開發(fā)和應(yīng)用。周新邵，碩士研究生，講師，主要研究方向?yàn)橛?jì)算機(jī)應(yīng)用。