Add Page Number for Foran Pipe Spool Drawing
eryar@163.com
Abstract. Add page number for Foran pipe spool drawing generated by ISOM. The ISOM of Foran is used for spool drawing generation, but there is no number on the drawing, so use AutoLISP to write a small plugin to add page number automatically.
Key Words. Foran, ISOM, Pipe Spool Drawing, AutoLISP, OpenCASCADE
1. Introduction
SENER Foran是一款用于船舶設(shè)計(jì)用的軟件，其管子零件圖用ISOM模塊自動(dòng)生成，但是生成時(shí)是按照系統(tǒng)，不能按托盤或區(qū)域出圖。一個(gè)系統(tǒng)的會(huì)陳列在一張圖上，這樣圖紙編號就不便于生成了。
由于生成管子零件圖后還要在AutoCAD中編輯，所以選擇AutoLISP來編寫一個(gè)小程序，來實(shí)現(xiàn)自動(dòng)編號的功能，減少不必要的體力勞動(dòng)。
大概看了下，F(xiàn)oran是基于OpenCASCADE開發(fā)的，其界面也是用Tcl/Tk開發(fā)的，數(shù)據(jù)庫使用了Oracle。由此可見OpenCASCADE還是可用來開發(fā)商用程序的！
2. Usage of the Plugin
使用AutoLISP編寫的程序名稱為AddPageNum，加載應(yīng)用程序來加載這個(gè)插件，或在AutoCAD中輸入命令ap回車會(huì)出現(xiàn)如下窗口，選擇AddPageNum.vlx，如下圖所示：
Figure 2.1 Load Applications Form
點(diǎn)擊Load后，會(huì)提示加載成功的信息。加載成功后，就可以使用了。
Figure 2.2 Use Plugin by Command: addpagenum
輸入命令addpagenum后會(huì)出現(xiàn)如下圖所示的窗口：
Figure 2.3 Add Page Num Form
根據(jù)實(shí)際需要設(shè)置圖紙大小，默認(rèn)大小為A4的圖紙。再設(shè)置需要陳列的行數(shù)Row和列數(shù)Column；最后設(shè)置文字大小及編號的起止頁碼號。然后Pick需要編號的起始位置，最后Apply即可自動(dòng)生成圖紙頁碼編號了。
Figure 2.4 Add Page Number for Pipe Spool Drawing Automaticaly
3. Conclusion
看了下Foran的管道建模及出圖，感覺建模出圖速度不是很高，有些操作比較繁瑣。也可能是習(xí)慣了AVEVA Marine的Outfitting那種直觀的建模方式。
生成的管子零件圖上沒有編號，還要人工添加，太費(fèi)神了。所以用AutoLISP開發(fā)了個(gè)自動(dòng)添加頁碼編號的小插件，來完成簡單重復(fù)的工作。