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)，不能按托盤(pán)或區(qū)域出圖。一個(gè)系統(tǒng)的會(huì)陳列在一張圖上，這樣圖紙編號(hào)就不便于生成了。

由于生成管子零件圖后還要在AutoCAD中編輯，所以選擇AutoLISP來(lái)編寫(xiě)一個(gè)小程序，來(lái)實(shí)現(xiàn)自動(dòng)編號(hào)的功能，減少不必要的體力勞動(dòng)。

大概看了下，F(xiàn)oran是基于OpenCASCADE開(kāi)發(fā)的，其界面也是用Tcl/Tk開(kāi)發(fā)的，數(shù)據(jù)庫(kù)使用了Oracle。由此可見(jiàn)OpenCASCADE還是可用來(lái)開(kāi)發(fā)商用程序的！

2. Usage of the Plugin

使用AutoLISP編寫(xiě)的程序名稱為AddPageNum，加載應(yīng)用程序來(lái)加載這個(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è)置文字大小及編號(hào)的起止頁(yè)碼號(hào)。然后Pick需要編號(hào)的起始位置，最后Apply即可自動(dòng)生成圖紙頁(yè)碼編號(hào)了。

Figure 2.4 Add Page Number for Pipe Spool Drawing Automaticaly

3. Conclusion

看了下Foran的管道建模及出圖，感覺(jué)建模出圖速度不是很高，有些操作比較繁瑣。也可能是習(xí)慣了AVEVA Marine的Outfitting那種直觀的建模方式。

生成的管子零件圖上沒(méi)有編號(hào)，還要人工添加，太費(fèi)神了。所以用AutoLISP開(kāi)發(fā)了個(gè)自動(dòng)添加頁(yè)碼編號(hào)的小插件，來(lái)完成簡(jiǎn)單重復(fù)的工作。