การกำหนด minimum and maximum pipe length

[MMe]

เรา สามารถ กำหนด ค่า min/max ของ pipe ได้...เช่น ค่า min น้อยกว่า 50  หรือ 6เท่าความหนาท่อ ค่า max ห้ามเกิน 6000 MM ถ้าน้อยกว่า/มากกว่าก็เขียนไม่ได้  แก้ที่
C:\Program Files\Bentley\Plant XM\Modules\Base\piping\draw\pipe.ebs

ไปที่ line 104   --> Dim CompLen     As Double
เพิ่ม  ค่า
Dim pipeID      As Double            '// Pipe Inside Diameter 
Dim LenLimit    As Double            '// Lenght limit

ไปที่ line ---> CompLen = at_Point_distance(point(0),point(1))

เพิ่ม  ค่า

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"