AddParallelByDistance in Part

[ Edited ]


Hi all,

i want to add a parallel referenceplane to an existing referenceplane in the part-environment.

I use 2005

This code does not work.  Nothing happens. I don´t know why!



Sub Main()Dim seApp As SolidEdgeFramework.ApplicationDim objDoc As SolidEdgePart.PartDocumentDim refPlanes As SolidEdgePart.RefPlanesDim refPlane As SolidEdgePart.RefPlane"SolidEdge.Application")EndSub






seApp = GetObject(,

objDoc = seApp.ActiveDocument

refPlanes = objDoc.RefPlanes

refPlane = refPlanes.AddParallelByDistance(refPlanes.Item(1), 0.05, SolidEdgePart.ReferenceElementConstants.igNormalSide)




Posted by: Martin Rendler
Post date: 10/22/2009 3:13:18 AM


RE: AddParallelByDistance in Part

[ Edited ]



Hi all,

excuse the bad display of my code.

my code again

Dim seApp as SolidEdgeFramework.Application

Dim objDoc as SolidEdgePart.PartDocument

Dim refPlanes as SolidEdgePart.RefPlanes

Dim refPlane as SolidEdgePart.Refplane

seApp = GetObject (, "SolidEdge.Application")

objdoc = seApp.ActiveDocument

refplanes = objdoc.RefPlanes

refPlane = refPlanes.addParallelByDistance(refPlanes.item(1),0.05,SolidEdgePart.ReferenceElementConstants.igNormalSide)







Posted by: Martin Rendler
Post date: 10/22/2009 3:22:27 AM

RE: AddParallelByDistance in Part

[ Edited ]

Hi Nitram,


your code creates a "local" reference plane. This local reference plane is never visible.

To create a visible reference plane (that is changeable interactively) change your code like this:


refPlane = refPlanes.AddParallelByDistance(ParentPlane:=refPlanes.Item(1), _

Distance:=0.05, NormalSide:=SolidEdgePart.ReferenceElementConstants.igNormalSide, _





Posted by: Herbert Goletz
Post date: 10/23/2009 1:21:42 AM