淺析基于AutoCAD-VBA 的對象交互式操作方法論文
1 概述
AutoCAD 中對象的組合拆散是一組常用操作，可以通過Group命令實(shí)現(xiàn)對對象的組合，但組合拆散對象時(shí)必須都在對話框狀態(tài)下進(jìn)行，而且不能先選定后操作，操作不便捷。到了2002 版本之后，AutoCAD 菜單中甚至取消了這個(gè)命令。但在實(shí)際繪圖中，對象的組合、拆散功能隊(duì)繪圖有很大的幫助，因?yàn)樵谶x擇對象時(shí)，組合在一起的對象可以一次性選定而不需要逐個(gè)對象選擇。所以，通過編程實(shí)現(xiàn)快捷使用對象組合拆散功能，是這個(gè)程序編寫的目的。程序設(shè)計(jì)思路是去掉對話框，只要選定對象后輸入一個(gè)相應(yīng)的組合命令就可以直接將選定的對象綜合在一起，而且不需要命名。拆散對象也是同樣的道理。選定組合，輸入拆散的.命令就可以直接將組合在一起的對象拆散。
2 實(shí)例分析
文章通過AutoCAD-VBA 設(shè)計(jì)一個(gè)組合拆散對象的應(yīng)用程序。
(1)運(yùn)行AutoCAD2004，在【VBA 管理器】對話框中新建一個(gè)全局工程，進(jìn)入VBA 集成開發(fā)環(huán)境，將其名稱修改為“匿名組”，保存在適當(dāng)?shù)奈恢蒙稀?/p>
(2)在【工程資源管理器】窗口中雙擊ThisDrawing，打開該模塊的代碼窗口，首先其中添加對象組合的代碼：
Sub AddUnNameGroup( )Dim SelObjects As AcadSelectionSetDim ppendObjs( ) As AcadEntitySet SelObjects=GetSelSetDim UnNameGroup As AcadGroupSet UnNameGroup=ThisDrawingGroups.Add(“*”)ReDim appendObjs(0 To SelObjects.Count-1)Dim I As IntegerFor i=0 To SelObjects.Count-1Set appendobjs(i)=SelObjects.Item(i)NextUnNameGroup.AppendItems appendobjsEnd Sub
(3)在ThisDrawing 模塊的代碼窗口中，添加通過選擇對象所在的組，分解組的代碼：
Sub DelUnNameGroup( )Dim SelGroup As AcadGroupDim SelObjects As AcadSelectionSetSet SelObjects=GetSelSetDim ObjInSelSet As AcadObjectDim I As IntegerDim j As IntegerDim k As IntegerDim ObjInGroup As AcadObjectOn Error Resume NextFor i=0 To SelObjects.Count-1Set ObjInSelSet=SelObjects.Item(i)For j=0 To ThisDrawing.Groups. Count-1For k=0 To ThisDrawing.Groups.Item(j). Count-1Set ObjInGroup=ThisDrawing.Groups.Item(j).Item(k)If ObjInGroup.ObjectID=ObjInSelect.ObjectID ThenThisDrawing.Groups.Item(j).DeleteExit ForEnd IfNextNextNextEnd Sub
這段代碼的實(shí)現(xiàn)過程由于不能通過選定的對象來直接找到其組合名稱，只能通過循環(huán)比較對象ID 的方法來解決這個(gè)問題。運(yùn)行時(shí)可能會慢點(diǎn)，但對象不多的情況下其運(yùn)行速度還是很快的。
(4)在AutoCAD 安裝路徑的Support 目錄下的新建一個(gè)命名為UnNameGroup.lsp 的文文章件，文件內(nèi)容如下：
(defun c:ga( ) (princ))(defun c:gd( ) (princ))
3 實(shí)例效果
(1)在AutoCAD 2004 中，加載UnNnameGroup.lsp 文件。
(2)選定圖形中的部分對象，在命令行中輸入“ga”并按下Enter鍵，此時(shí)選定的對象將自動組合起來。
(3)選定剛組合的對象，在命令行中輸入“gd”并按下Enter 鍵，此時(shí)選定的組合將自動拆散。
4 總結(jié)與提高
通過這個(gè)程序的設(shè)計(jì)，實(shí)現(xiàn)了通過代碼語言實(shí)現(xiàn)匿名的組合，匿名的組合可以使用下面的語句生成：ThisDrawing.Groups.Add“( .”)就是名稱項(xiàng)中用“.”即可生成匿名塊。組合的操作與選擇集的操作相似，都應(yīng)該先生成一個(gè)空的組合，然后把對象添加到其中。由于通過對象不能確定對象是否是組合中的一員，所以必須遍歷組合中的對象與指定對象相比較來確定指定對象是否為指定組合中的對象。雖然在幫助文件中說明組合是一種特殊的命名選擇集，但這里選擇集的概念只對于AutoCAD 中的選擇集而言，而不是對于ActiveX 中的選擇集。可以通過使用“PickfirstSelectionSet”方法來實(shí)現(xiàn)先選擇后操作，但這個(gè)方法有一定的限制，因?yàn)樵谥付╒BA 過程運(yùn)行前我們總是要通過其他命令來加載運(yùn)行，這樣在加載運(yùn)行過程中圖形中選定的選擇集將會消失。所以我們這里采用的是自動觸發(fā)運(yùn)行的方法，也就是通過一個(gè)空的LISP 程序來觸發(fā)相應(yīng)的事件運(yùn)行相關(guān)的過程。在實(shí)際使用過程中，程序運(yùn)行穩(wěn)定，提高了工作效率，效果良好。
【淺析基于AutoCAD-VBA 的對象交互式操作方法論文】相關(guān)文章：
淺析秦觀詞中的閑愁論文08-07
基于系統(tǒng)設(shè)計(jì)的科研管理論文03-21
淺析杜甫詩歌的憂患意識的論文10-27
淺析李清照的精神世界文學(xué)論文08-07
沒對象的520說說05-20
對象的道歉信02-18
淺析李清照詞廣泛傳播之原因的論文08-22
520給對象表白的句子05-20
送給對象的520表白句子05-20