LISP程序二次開發在管道標注中的應用

許婧 劉飛鵬 李繼國

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

關鍵詞：LISP;CAD二次開發;管道標注

中圖分類號：TP391.7 文獻標識碼：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公司開發的一種程序語言。AutoCAD軟件包中包含大多數用于產生圖形、處理圖形的命令，但仍有某些命令末被提供。通過AutoLISP，可以使用AutoLISP程序語言編制能夠在圖形文本對象內繪制矩形或作全局選擇性改變程序。LISP語言的運行環境比較廣，幾乎可以適用于各版本的AutoCAD;針對AutoCAD-RIO環境編寫的AutoLISP程序可以移植到AutoCAD-R14和AutoCAD-R2000環境下[1-3]。

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

編程需具備兩個條件：一是要會CAD操作，只有在精通CAD繪圖方法的情況下，才能找到規律所在，從而發現哪些復雜操作可以通過編程得到簡化;二是需要懂LISP語言，具備程序設計方法，理解程序結構，掌握程序命令，進而實現目標，提高設計繪圖效率[4]。

本程序通過二次編程在CAD中嘗試，自動標注管道的長度和管徑，并使管道標注的結果減少后期管道工程量的統計工作。

2 程序錄制

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

3 程序使用

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

4 源程序編制

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

（terpri）

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

（terpri）

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

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

（setq tg （strcat "標注文字高度<" （rtos gao） ">"））

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

（initget 1 "Y y n N"）

（setq xxx （getkword "是否標出管長？<y/n>："））

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

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

（setq pt1 （getpoint "選擇管段起點："））

（terpri）;換行

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

（terpri）;換行

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

（setq ts （strcat "輸入管徑<" （itoa dn） ">："））;將"輸入管徑<默認管徑>："負值給ts

（setq dn （if（setq dnin （getint ts）） dnin dn））;輸入新的管徑，回車取默認值（即上次運行的值）

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

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

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

（setq wz （polar pt1 ag wz））;wz為管線的中點

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

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

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

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

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

（setq du （/ （* ag 180） pi））;將管線斜率ag轉換為度，負給du

（setq wdpt1 （polar wz 2.356 100））

（setq wdpt2 （polar wz -0.785 100））;wdpt1，wdpt2為放大標注位置矩形對角兩點

（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）;靜默退出

）

;啟動時在命令行要顯示的內容

（terpri）

（prompt ）

（terpri）

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

5 程序效果

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

6 結論

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

參考文獻：

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

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

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

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

[5]高建亮.AutoCAD計算截面幾何性質的應用[J].建設科技，2011（11）：79-80.