教教大家AutoCAD的自動生成表格功能

教教大家AutoCAD的自動生成表格功能，在利用計算機進行機械繪圖的領(lǐng)域里，AutoCAD是國內(nèi)公認的功能強大的繪圖軟件。但其在文字、表格處理上卻顯得很薄弱，尤其是在制作表格上，甚至沒有提供此項功能。而人工繪制表格和文字輸入不但花費的時間長，而且嚴重地影響了繪圖速度。因此，如何自動而有效地生成明細表便顯得很有意義。本文通過實例介紹如何在AutoCAD系統(tǒng)下自動生明細表的方法。本文例子中的明細表格式如圖1所示。

圖1 明細表實現(xiàn)方法1. 建立明細表數(shù)據(jù)文件首先，把明細表的數(shù)據(jù)信息，用文字編輯器按如下格式寫入磁盤文件MXB.TXT中，作為明細表數(shù)據(jù)文件�！�1”“35.1”“氣缸透蓋”“1”“ZG35”“”“”“”“2”“35.2”“氣缸體”“1”“35”“”“”“”“3”“35.3”“螺塞”“2”“A3F”“”“”“”“4”“GB6170－86”“螺母M10”“12”“A3F”“”“”“”“5”“35.4”“壓蓋”“1”“TH200”“”“”“”……然后用AutoLisp的READ－LINE函數(shù)提取有關(guān)數(shù)據(jù)信息，并把該數(shù)據(jù)信息賦給表格圖塊屬性。注意：各字符串要加雙引號，空字符串引號“”不可省略，以便AutoLisp識別。2.建立明細表格式圖塊通常，一個明細表是由表頭和表體兩部分組成。表頭是固定的，因此可以用AutoCAD命令生成一個固定的表頭，并把它作為一個圖塊存入磁盤。



假設(shè)要得到如圖1所示的明細表，則先做一個如圖2所示的明細表表頭。

圖2 表頭表頭實際上是一個圖形文件，本文設(shè)定該文件名為MXB.DWG，然后用AutoCAD命令建立一個如圖3所示的圖塊，設(shè)其文件名為MXB1.DWG，圖3中M1～M8均為屬性名。

圖3 圖塊當(dāng)用戶向表中插入該塊時，系統(tǒng)會向用戶詢問屬性值，此時用AutoLisp程序?qū)⑸厦娼�立的明細表�?shù)據(jù)文件中的數(shù)據(jù)分別賦給各個屬性。屬性的定義是用AutoCAD命令A(yù)TTDEF完成的。編制程序首先，用AutoLisp的I/O函數(shù)READ－LINE讀入數(shù)據(jù)文件MXB.TXT，再用字符串連接函數(shù)STRCAT給文件的每一行加上括號，此時數(shù)據(jù)類型為字符串（STR）。然后，再利用READ函數(shù)把字符串轉(zhuǎn)換成一個表（LIST），以方便AutoLisp對表中的每一項進行各種操作。最后，用AutoLisp的COMMAND函數(shù)調(diào)用INSERT命令，先將圖塊MXB.DWG插入表中，再將MXB1.DWG插入表中，用NTH函數(shù)將前面AutoLisp讀入的數(shù)據(jù)中各項信息分別賦給MXB1.DWG中的各個屬性。程序框圖如圖4所示。

圖4 程序框圖下面給出實現(xiàn)上述功能的程序清單：（defun C:mxb(/scmde p f1 bk a m1 m2 m3 m4 m5 m6 m7 m8 p1)(setq scmde (getvar “cmdecho"))


(setq p1 (list (car p1) (＋ 8 (cadr p1)))))(setvar “comdecho" scmde)(close f)(print))程序的安裝與使用1．安裝程序可以選擇以下三種裝載方式的任意一種：●在AutoCAD環(huán)境下，將MXB.LSP拷貝至當(dāng)前目錄，再執(zhí)行（LOAD“MXB”），即可裝載MXB.LSP�！裣葘�MXB.LSP拷貝至ACADSUPPORT子目錄下，再在ACADSUPPORTACAD.LSP中加入下面一條語句：（AUTOLOAD “MXB”（“MXB”））即可實現(xiàn)啟動AutoCAD時自動裝載該程序�！裣葘�MXB.LSP拷貝至ACADSUPPORT子目錄下，再在ACADSUPPORT子目錄下的菜單文件ACAD.MNU中的合適位置處加上下面一條語句：[生成明細表]^C^C(LOAD “C:/ACAD/SUPPORT/MXB.LSP")MXB即可直接在菜單中操作生成明細表。2．程序的使用當(dāng)用戶裝載該程序并運行之后，程序首先出現(xiàn)提示信息：Please input a point:用戶給出一個定位點后，程序繼續(xù)提示：



Please input file name:再輸入明細表數(shù)據(jù)文件名后，程序繼續(xù)運行，并提示：Please wait...程序運行結(jié)束后就可以生成一個如圖1所示的明細表。