許婧 劉飛鵬 李繼國

摘 要：CAD技術(shù)的普及，使繪圖技術(shù)得到了飛速發(fā)展。不同專業(yè)的工程對繪圖有不同的要求，設(shè)計人員普遍運(yùn)用未經(jīng)二次開發(fā)的AutoCAD。繪圖中遇到有規(guī)律的重復(fù)操作，完全可以嘗試通過CAD的二次開發(fā)得到簡化。本文基于AutoLISP語言編程，簡化對水工設(shè)計圖中的管道標(biāo)注，從而提高繪圖工作效率。

關(guān)鍵詞：LISP;CAD二次開發(fā);管道標(biāo)注

中圖分類號：TP391.7 文獻(xiàn)標(biāo)識碼：A 文章編號：1003-5168（2019）14-0028-03

Application of Secondary Development of LISP Program in Pipeline Marking

XU Jing1 LIU Feipeng2 LI Jiguo3

（1.College of Water Conservancy ?Yunnan Agricultural University，Kunming Yunnan 650201;2.Kunming Institute of Survey and Design， State Forestry and Grassland Administration，Kunming Yunnan 650216;3.Yunnan Water Resourece and Hydropower Vocational College，Kunming Yunnan 650202）

Abstract： The popularization of CAD technology has made the drawing technology develop rapidly. Different majors in engineering have different requirements for drawing， and designers generally use AutoCAD which has not been redeveloped. It is possible to simplify the drawing process by redeveloping the CAD system. Based on AutoLISP language programming， this paper simplified pipeline labeling in hydraulic design drawings， so as to improve the efficiency of drawing.

Keywords： LISP;secondary development of CAD;pipeline labeling

1 程序概述

AutoLISP（List Processor）程序語言是由Autodesk公司開發(fā)的一種程序語言。AutoCAD軟件包中包含大多數(shù)用于產(chǎn)生圖形、處理圖形的命令，但仍有某些命令末被提供。通過AutoLISP，可以使用AutoLISP程序語言編制能夠在圖形文本對象內(nèi)繪制矩形或作全局選擇性改變程序。LISP語言的運(yùn)行環(huán)境比較廣，幾乎可以適用于各版本的AutoCAD;針對AutoCAD-RIO環(huán)境編寫的AutoLISP程序可以移植到AutoCAD-R14和AutoCAD-R2000環(huán)境下[1-3]。

高效節(jié)水項目中常常需要繪制繁多的管道，管道標(biāo)注常常需要標(biāo)注長度和管徑，以便于統(tǒng)計管材。假如按常規(guī)方法標(biāo)注，標(biāo)注繪制這些管道時，總要單個輸入文本命令，量取管線長度，并進(jìn)行比例換算，并不停重復(fù)以上2個步驟，費(fèi)時費(fèi)力，稍有疏忽就會導(dǎo)致統(tǒng)計長度和計算結(jié)果不準(zhǔn)確，進(jìn)而使設(shè)計效率偏低。使用本程序，通過簡單易懂的操作命令，將自動完成變量參數(shù)的標(biāo)注工作，使設(shè)計人員從煩瑣的手工標(biāo)注操作中解脫出來，達(dá)到既高質(zhì)高效、又省時輕松的目的。

編程需具備兩個條件：一是要會CAD操作，只有在精通CAD繪圖方法的情況下，才能找到規(guī)律所在，從而發(fā)現(xiàn)哪些復(fù)雜操作可以通過編程得到簡化;二是需要懂LISP語言，具備程序設(shè)計方法，理解程序結(jié)構(gòu)，掌握程序命令，進(jìn)而實現(xiàn)目標(biāo)，提高設(shè)計繪圖效率[4]。

本程序通過二次編程在CAD中嘗試，自動標(biāo)注管道的長度和管徑，并使管道標(biāo)注的結(jié)果減少后期管道工程量的統(tǒng)計工作。

2 程序錄制

用任何一種文本編輯方式（如DOS下的“EDIT”“WPS”，Windows下的“計事本”等均可）將下面的原程序輸入并以“BZ.LSP”為文件名存入AutoCAD軟件的“SUPPORT”子目錄內(nèi)即可。在錄入時，注意程序中的空格和括號（“（”“）”）都是必需的，不能丟落。

3 程序使用

具體命令是在ACAD的命令提示符后鍵入BZ，之后依提示回答繪圖比例、標(biāo)注文章高度和是否標(biāo)注管長，并選擇要處理的管線即可。

4 源程序編制

lISP程序編制過程中用到的主要計算程序語言具體如下：

（terpri）

（prompt "程序初始化......"）

（terpri）

（setq bl （if（setq bl （getreal "輸入出圖比例<1：100>1："）） bl 100））;出圖比例為1/bl

（setq gao （* bl 2.5））;根據(jù)比例計算字高。

（setq tg （strcat "標(biāo)注文字高度<" （rtos gao） ">"））

（setq gao （if（setq xxx （getreal tg）） xxx gao））;改變字高。

（initget 1 "Y y n N"）

（setq xxx （getkword "是否標(biāo)出管長？<y/n>："））

;*************初始化完畢********************

（defun c：bz （/ jl pt1 pt2 ts ag wz du dnwz lwz dnin dnout jlout）

（setq pt1 （getpoint "選擇管段起點(diǎn)："））

（terpri）;換行

（setq pt2 （getpoint "選擇管段末端："））

（terpri）;換行

（setq dn （if（> dn 0） dn 100））

（setq ts （strcat "輸入管徑<" （itoa dn） ">："））;將"輸入管徑<默認(rèn)管徑>："負(fù)值給ts

（setq dn （if（setq dnin （getint ts）） dnin dn））;輸入新的管徑，回車取默認(rèn)值（即上次運(yùn)行的值）

（setq ag （angle pt1 pt2））;計算管線的斜率

（setq jl （distance pt1 pt2））;計算管線的長度

（setq wz （- （/ jl 2） （* 2 gao）））

（setq wz （polar pt1 ag wz））;wz為管線的中點(diǎn)

（setq ag （if（and （> ag （/ pi 2）） （< ag （* pi 1.5））） （- ag pi） ag））;將ag調(diào)整到0～pi

（setq dnwz （polar wz （+ ag （/ pi 2）） （* 1.5 bl）））;dnwz為管徑標(biāo)注的位置

（setq lwz （polar wz （- ag （/ pi 2）） （* 4.0 bl）））;lwz為管長標(biāo)注的位置

（setq dnout （strcat "DN" （itoa dn）））;dnout為輸出管徑的字符串

（setq jlout （strcat "L" （rtos （/ jl 1000.0））））;jlout為輸出管長的字符串

（setq du （/ （* ag 180） pi））;將管線斜率ag轉(zhuǎn)換為度，負(fù)給du

（setq wdpt1 （polar wz 2.356 100））

（setq wdpt2 （polar wz -0.785 100））;wdpt1，wdpt2為放大標(biāo)注位置矩形對角兩點(diǎn)

（command "zoom" wdpt1 wdpt2）

（command "text" dnwz gao du dnout）;輸出管徑

（cond

（（= xxx "y"）（command "text" lwz gao du jlout））;輸出管長

（（= xxx "Y"）（command "text" lwz gao du jlout））;輸出管長

）

（command "zoom" "previous"）

（princ）;靜默退出

）

;啟動時在命令行要顯示的內(nèi)容

（terpri）

（prompt ）

（terpri）

（prompt "管長管線標(biāo)注程序加載完畢，啟動命令bz"）

5 程序效果

本程序標(biāo)注的管線如圖1所示，線上為管徑，線下為長度，標(biāo)注的字高和長度由命令中參數(shù)化設(shè)計，標(biāo)注便捷。

6 結(jié)論

LISP語言是人工智能學(xué)科領(lǐng)域廣泛采用的一種程序設(shè)計符號語言，這種語言在參數(shù)化設(shè)計和繪圖中具有很大的靈活性，并能實現(xiàn)人工智能。只有熟練掌握各種編程命令的功能，才能結(jié)合各專業(yè)特點(diǎn)寫出實用性很強(qiáng)的程序。LISP開發(fā)出的程序可以實現(xiàn)人機(jī)互動，像運(yùn)行CAD普通命令一樣在命令行中直接鍵入自己定義的命令運(yùn)行，并按命令提示鍵入所需參數(shù)，實現(xiàn)自動化繪圖，簡化了大量的重復(fù)操作，提高了繪圖效率和質(zhì)量[5]。

參考文獻(xiàn)：

[1]許婧，劉飛鵬.AutoCAD基于LISP語言的CAD二次開發(fā)在U型渡槽截面設(shè)計中的應(yīng)用[J].山西建筑，2019（11）：153-156.

[2]馬文福，姜文峰.采用自編LISP程序提高水工繪圖的效率[J].河北水利水電技術(shù)，2004（2）：25-26.

[3]陳利暉.利用AutoLISP語言提高CAD的繪圖效率及質(zhì)量[J].工程設(shè)計與研究，1997（95）：28-61.

[4]王丙輝.一種利用Auto CAD計算構(gòu)件截面慣性矩/模量的簡便方法[J].廣船科技，2011（12）：48-50.

[5]高建亮.AutoCAD計算截面幾何性質(zhì)的應(yīng)用[J].建設(shè)科技，2011（11）：79-80.