เราสามารถกำหนดค่า minimum และค่า maximum ของความยาว pipe ได้ เช่น ค่า minimum ที่น้อยกว่า 50 มม. หรือ 6 เท่าความหนาท่อและค่า maximum ห้ามเกิน 6000 มม. ได้ ดังนี้

1. ไปเปิดโปรแกรม Script Editor โดยไปที่เมนู Start > All Programs > Bentley > Plant XM > Tools > Scrip Editor
2. เมื่อเปิดโปรแกรม Scrip Editor ขึ้นมาก็ไปที่เมนู File > Open แล้วไปยังโฟลเดอร์ C:\Program Files\Bentley\Plant XM\Modules\Base\piping\draw\ แล้วไปเปิดไฟล์ pipe.ebs จากนั้นก็ทำตามขั้นตอนต่างๆ ดังนี้

ไปที่บรรทัด ⇒ Dim CompLen As Double แล้วก็เพิ่มค่าลงไปที่ ด้านล่างบรรทัดนี้ ดังนี้
Dim pipeID As Double '// Pipe Inside Diameter
Dim LenLimit As Double '// Lenght limit

จากนั้นก็ไปที่บรรทัด ⇒ CompLen = at_Point_distance(point(0),point(1)) Double แล้วก็เพิ่มค่าลงไปที่ ด้านล่างบรรทัดนี้ ดังนี้
LenLimit = 6000

If (CompLen < ((pipeOD-pipeID) * 3)) Or (CompLen < 50.0) Or (CompLen > LenLimit) Then
Msgbox"Pipe Length Must Be a Minimum of 50 mm or 6 times Wall Thickness And Maximum lenght 6000 MM"
End If

3. จากนั้นก็ไปที่เมนู File > Save แล้วก็ออกจากโปรแกรม Script Editor
รูปตัวอย่าง เมื่อเราเขียน Pipe ที่ยาว น้อยกว่า 50 มม. หรือ 6 เท่าความหนาท่อและค่า maximum ห้ามเกิน 6000 มม.

หมายเหตุ - ในการแก้ไขไฟล์ pipe.ebs เราควรทำการ backup ไฟล์นี้ก่อนทำการแก้ไข

บทความโดย
พิสิทธิ์ สุทธิธรรม
pisit@applicadthai.com