如何實現(xiàn)AutoCAD中表格自動化

工程圖紙中時常遇到大量表格填寫，例如工程勘察中的成果表、設計的材料表，在

AutoCAD中文字處理比較差，用TEXT、DTEXT命令在表格中定位也不方便，填寫的

表格

既不美觀，還容易出錯。在一些雜志中有關表格填寫程序介紹，但是使用不方便，也不能

連續(xù)填寫多個表格，長距離路線勘察中線轉(zhuǎn)點少則兒十個.多則上千，中線數(shù)據(jù)可由計算

直接生成，能否利用中線數(shù)據(jù)直接填表出圖。

利用AutoCAD二次開辟，編寫中線成果填寫程序(zxc

g.Isp),改變以往出圖工序(填寫、校對)，大大提高

工作效率。

一、程序功能叮編寫說明

1、本程序具有下列功能：

(1)直接在文本編輯器(EDIT、QE、WPS等等：編輯

、修改數(shù)據(jù)，免去AjtoCAD文字編輯、修改之不便；

(2)可以自動分頁，自動填寫工程名稱、檔案號、

日期等等；

(3)可以自動處理中線成果數(shù)據(jù)先后的空格，例如

“123123.123”將自動轉(zhuǎn)化為“123123.123”；

(4)可以自動識別兩種工程名稱數(shù)據(jù)文件：

(5)文本狀態(tài)下數(shù)據(jù)正確無誤，出圖前無需在Auto

CAD中修改，調(diào)圖速度和重新成圖速度相差無幾，可直接

保存數(shù)據(jù)文件，節(jié)省磁盤空間。

2、程序說明:

程序利用AutoLISP的計算、判斷、字符處理、循環(huán)結

構以及調(diào)用Text命令等功能對讀入的數(shù)據(jù)進行處理后填寫

,與本程序?qū)腪xcg.dwg圖形文件含四個表格圖塊，

程序中的有關參數(shù)均取決于四個圖塊。

二、使用說明

1、關于中線成果數(shù)據(jù)格式:

（1）無曲線

第一行，總點數(shù)（N）

第二至七行，點名（NAME）、里程（K）、高程（H）

、坐標X、Y、轉(zhuǎn)角（B）””重復二至七行（沒有數(shù)據(jù)項

用空行代替）

（2）有曲線

第一行，總點數(shù)（N）

第二至十一行，點名（NAME）、里程（K）、高程（H

）、坐標X、Y、轉(zhuǎn)角B,半徑R.切線長T、曲線長L、外矢

矩E

””重復二至十一行（沒有數(shù)據(jù)項用空行代替）

2、關于工程名稱數(shù)據(jù)格式：

（1）單標題

第一行，工程名稱

第二行，檔案號（如測一3777/表，只需輸入3777）

第三行，口期（可省略，取當前口期）

（2）雙標題

第一行，工程名稱大標題

第二行，工程名稱小標題

第三行，檔案號（如測一3777/表，只需輸入3777）

第四行，H期（可省略，取當前H期）

三、加載及運行

在AutoCADR12(或者AutoCADforWindows)中，把Zxcg

.Isp和Zxcg.dwg拷貝到SUPPORT子目錄下，用鼠標點文件

(File)下應用程序(Applications),或者在Command

：下敲入Appload加載Zxcg.Isp.或者在Command：下敲入(

Load“Zxcg”)即可。然后在Command：下敲入ZX運行程

序，本程序?qū)⒅形奶崾尽?/p>

四、結束語

該應用程序提供了兩種形式的表格，有興趣的Auto

CAD用戶不妨增加兀種表格，修改程序中對應的參數(shù)即可

O

附源程序

...****ERROR****

(DEFUNERR(X)

:IFANERROR(SUCHASCTRL-C)

OCCURS

：WHILETHISCOMMANDISACTIVE

(IF(AND(/KX"FUNCTIONCANCELLED

(/KX"QUIT/EXITABORT°))

(PPINC(STRCAT"inERROR："X)))

(SETVAR"CMDECHO"1)(SETVER"BLIPMODE”1

)

(IF(KTYPERF)'FILE)(CLOSERF))

(IF(KTYPERN)zFILE)(CLOSERN))

(SETQRFNIL)(SETQRNNIL)

(IF(KATOICAH)0)(PROGN(SETQGG2GN2DAHDAH

(READ-LINERN))))

(SETQDAT(READ-LINERN))

(IF(KDATNIL)(PROGN(SETQDAT(GETVAR"CDA

TE"))；取當前日期

(SETQDAT(FIXDAT))(SETQDAT(ITOADAT))

(SETQYY(SUBSTRDAT14)MM(SUBSTRDAT52))

(SETQDD(SUBSTRDAT72)DAT(STRCATYY"—"MM"

一"DD))))

(SETQNO(READ-LINERF)N(ATOINO))

(SETQNF26NN29)：首、次頁行數(shù)

(SETQM(FIX(4-(/(-NNF)NN)2)))：計算

頁數(shù)

(SETQNL(REM(-NNF)NN))(IF(KNLO)(SET

QM(-Ml)NLNN))

(IF(IKNNF)PROGN(SETQM1)(SETQNLN)))

(princ"共讀入")(PRINCN)(PRINC"點，分"

)(PRINCM)(PRIKC"頁填寫！”)

(SETQYY8XX230)；行距、頁距

(SETQUX00Y00DAH(STRCAT"測一"DAH"/"))

(IF(KYN"NO")(SETQDI(LIST678.58103.58

125.08150.08180.08208.08))

(SETQDI(LIST1071.9088.39105.58122.61140

.30156.83172.86188.07208.00232.73))))

；表格項數(shù)及各項橫坐標（X）

(SETQYYF285.0YYN305.7)：首、次頁第一行縱坐

標

....*火**刪除數(shù)據(jù)先后空格(QKG)***

***

(DEFUNQKG：)

(SETQLE1)

(WHILE((LE(STRLENTXT))(RPOGN(SETQLF(

+1LE))

(WHILE(K(SUBSTRTXT11)〃)(PROGN

(SETQTXT(SUBSTRTXT2(STRLENTXT)))))))

(SETQLE(STRLENTXT))

(IF()LE2)(WHILE(AND(K(SUBSTRTXTLEI)

一)(ALE2))

(PROGN(SETQLE(-LE1)TXT(SUBSTRTXT1LE))

))))

........****大ZXTX**火大*文

(DEFUNZXTX()

(PRINC"in正在短寫中線成果數(shù)據(jù)，清稍候！”)

(WHILE(IKIM)(PROGN(SETQPTO(LISTXOYO)

)

(SETQP1(LIST(+X0236.0)348.5))(SETQP2

(LIST(+X0207.0)342.0))

(SETQP3(LIST(+X0227.0)342.0))(SETQP4

(LIST(+X0222.2)335.6))

(IF(KYN"No")(IF(KII)(SETQZX"*PZX

—F")(SETQZX”*PZX-N"))；圖塊選擇

(IF(KII)(SETQZX7*QZX-F")(SETQZX"*

QZX-N")))

(COMMAND"INSERT"ZXPTO"1""Q")

(IF(KII)(PROGN(SETQP2(LIST(+X0207.0

)336.0))

(SETQP3(LIST(+X0227.0)336.0))(SETQP4

(LIST(+X0222.2)329.6))

(SETQP5(LIST(+X0125.1)329.5))(SETQP6

(LIST(4-X0185.9)329.5))

(IF(KGG2)(PROGN(SETQP5(LIST(+X0125.1

)333.5))

(SETQP6(LIST(+X0185.9)333.5))(SETQP7

(LIST(+X0135.1)323.5))

(SETQP8(LIST(+X0175.9)323