Mirrored Extent Option enable for 3D line in CATIA VBA

[AVIS0202]

Hi siva

This is regarding Mirrored Extent Enable Option for 3D line in CATIA R24

I had used the following syntax for surface to get mirrored extent.

surface1.SymmetricalExtension = 0

likewise what is the code for mirror extend for 3D LINE in Catia?

i tried using same as in surface with setsymmetricalextension

line1.setsymmetricalextension = 0

but i get compile error: argument not an option.

Advises please, thanks in advance

 

[LucasC]

I don't see that option in the line creation, only 2 offset values.

Func AddNewLinePtDir( Reference iPt,
HybridShapeDirection iDirection,
double iBeginOffset,
double iEndOffset,
boolean iOrientation) As HybridShapeLinePtDir

This works but be sure your beginoffset value is 0 and your desired length is the endoffset value.

Set hybridShapeLinePtDir1 = hybridShapeFactory1.AddNewLinePtDir(reference1, hybridShapeDirection1, 0, 60, False)

hybridShapeLinePtDir1.SetSymmetricalExtension (1)