工程圖紙中經(jīng)常遇到大量表格填寫，例如工程勘察中的成果表、設(shè)計(jì)的材料表，在AutoCAD中文字處理 ~Ctq  
t%s(xz#1  
　　比較差，用TEXT、DTEXT命令在表格中定位也不方便，填寫的表格既不美觀，還容易出錯(cuò)。在一些雜志中有 !M7727  
2reQd
47  
　　關(guān)表格填寫程序介紹，但是使用不方便，也不能連續(xù)填寫多個(gè)表格，長距離線路勘察中線轉(zhuǎn)點(diǎn)少則幾十個(gè)， p ^I#9(PT  
Q=498Y~x  
　　多則上千，中線數(shù)據(jù)可由計(jì)算直接生成，能否利用中線數(shù)據(jù)直接填表出圖。利用AutoCAD二次開發(fā)，編寫中線成果填寫程序(zxcg.lsp)，改變以往出圖工序(填寫、校對)，大大提高工作效率。 >{h/4T@  
l\bgp3.+  
　　一、程序功能與編寫說明 G/Yqvu,2!  
y $>U[^G[  
　　1、本程序具有下列功能： #"J
tH"pF  
}@A{'q5y  
　　(1)直接在文本編輯器(EDIT、QE、WPS等等)編輯、修改數(shù)據(jù)，免去AutoCAD文字編輯、修改之不便; l !R >I7  
^,fMs:  
　　(2)可以自動分頁，自動填寫工程名稱、檔案號、日期等等;  4V 5  
;0 9~#Wop  
　　(3)可以自動處理中線成果數(shù)據(jù)前后的空格，例如： Tm
l>>O  
JW=P}h  
　　“123123.123”將自動轉(zhuǎn)化為“123123.123”; Z&Z=24q_  
D7,{p2<2T  
　　(4)可以自動識別兩種工程名稱數(shù)據(jù)文件; V%w]HIhq  
X|pOw,"  
　　(5)文本狀態(tài)下數(shù)據(jù)正確無誤，出圖前無需在Auto?CAD中修改，調(diào)圖速度和重新成圖速度相差無幾， \ci[<CP  
:&=`xAX-  
　　可直接保存數(shù)據(jù)文件，節(jié)省磁盤空間。 {r[g.@  
|("zW7g  
　　2、程序說明： &n2dL->*#  
dj:6c@n  
　　程序利用AutoLISP的計(jì)算、判斷、字符處理、循環(huán)結(jié)構(gòu)以及調(diào)用Text命令等功能對讀入的數(shù)據(jù)進(jìn)行處理 m^YYdyn]M  
5l /EZ\q  
　　后填寫，與本程序?qū)��?yīng)的Zxcg.dwg圖形文件含四個(gè)表格圖塊，程序中的有關(guān)參數(shù)均取決于四個(gè)圖塊。 cY%6+uJ1  
Pu0O6@Rg  
　　二、使用說明 uKpWb1(  
05[k@f$n  
　　1、關(guān)于中線成果數(shù)據(jù)格式： /c52w"WW  
]n&Eb88  
　　(1)無曲線 >}!})]Xw9  
af;~<oa  
　　第一行，總點(diǎn)數(shù)(N) GPU,.s"&(  
y/6%'56u
F  
　　第二至七行，點(diǎn)名(NAME)、里程(K)、高程(H)、坐標(biāo)X、Y、轉(zhuǎn)角(B)……重復(fù)二至七行(沒有數(shù)  ood,k{  
b#{[Pk,w9  
　　據(jù)項(xiàng)用空行代替) Q$=X ?{  
-@G,Ry-\t  
　　(2)有曲線 Z/[ww8b.  
KIHr%  
　　第一行，總點(diǎn)數(shù)(N) 5(&'/U^  
<lHVch"(^$  
　　第二至十一行，點(diǎn)名(NAME)、里程(K)、高程(H)、坐標(biāo)X、Y、轉(zhuǎn)角B，半徑R，切線長T、曲線長 [<A|\d'x  
H6%%n X  
　　L、外矢矩E……重復(fù)二至十一行(沒有數(shù)據(jù)項(xiàng)用空行代替) m\ (crkN  
A\};^Y  
　　2、關(guān)于工程名稱數(shù)據(jù)格式： x`gsD3C  
)Vnqz lI5  
　　(1)單標(biāo)題 vvcA-k?  
IO]%AL(.;  
　　第一行，工程名稱 |qX[Dk  
u
O}U
vMW  
　　第二行，檔案號(如測-3777/表，只需輸入3777) Ny)N  
4ai|*8.  
　　第三行，日期(可省略，取當(dāng)前日期) 4ROuy+Ms'  
-jQ
Mh  
　　(2)雙標(biāo)題 :PF6xL&  
^+'\ u;\  
　　第一行，工程名稱大標(biāo)題 +*ZF52hy|  
|$a!Zx94^  
　　第二行，工程名稱小標(biāo)題 q, XRb  
jxNnrIA  
　　第三行，檔案號(如測-3777/表，只需輸入3777) E [b6k&A  
w{5v*SHl}`  
　　第四行，日期(可省略，取當(dāng)前日期) x72T5.  
tg'2v/  
　　三、加載及運(yùn)行 a!Ht81gj  
!JWZ}u
M6  
　　在AutoCADR12(或AutoCADforWindows)中，把Zxcg.lsp和Zxcg.dwg拷貝到SUPPORT子目錄下，用鼠標(biāo)  ]pP:  
!;s5\91