Give one example to trim sketch by vba code

[vjyupr4047]

Hello Sir,

I want trim hexagon quater portion by vba.Can you please give one example to trim sketches?

[王承之pmhker]

也许您可以在 Inventor 定制论坛中发帖

发明家 iLogic 和 VB.net 论坛 - 欧特克社区

[vjyupr4047]

Thank you.

[A.Acheson]

Can you give a sample image of what your looking to achieve? Include any sample code you have also. I can only think of creating an extruding feature. Sample here

But maybe you want to cut existing sketch before extruding? I am not seeing a trim method under sketch line so I am guessing the point is moved or another sequence of methods happen. 

[vjyupr4047]

Hello Alan,

Wish you a happy new year and thank you for your reply.

i attached image below.i want trim except 0- 90 deg sketches

[bradeneuropeArthur]

Isn't it already trimmed.
Could you share the ipt file for us.
1 with no trim
2 with the trim you try to do with VBA

Regards,

Arthur

[vjyupr4047]

Hello Arthur,

Thank you for your reply.

I want to get output as per attached output.ipt by VBA Code.

Kindly give me one example

Thank you

Vijay

[vjyupr4047]

after this code i am not able to trim

Dim opt As PartDocument
Set opt = ThisApplication.Documents.Add(kPartDocumentObject, ThisApplication.FileManager.GetTemplateFile(kPartDocumentObject))
Dim ocd As PartComponentDefinition
Set ocd = opt.ComponentDefinition
Dim op As PlanarSketch
Set op = ocd.Sketches.Add(ocd.WorkPlanes(3))
Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry
'Project X-Axis
Dim oxaxis As SketchEntity
Set oxaxis = op.AddByProjectingEntity(ocd.WorkAxes(1))
'Project y-Axis
Dim oyaxis As SketchEntity
Set oyaxis = op.AddByProjectingEntity(ocd.WorkAxes(2))
oxaxis.Construction = True
oyaxis.Construction = True
Dim oc As SketchCircle
Set oc = op.SketchCircles.AddByCenterRadius(oTG.CreatePoint2d(0, 0), 1720 * 0.1 * 0.5)
oc.Construction = True
Dim ox As SketchEntitiesEnumerator
Set ox = op.SketchLines.AddAsPolygon(12, oTG.CreatePoint2d(0, 0), oTG.CreatePoint2d(860 * 0.1, 0), False)
Dim cc As DiameterDimConstraint
Set cc = op.DimensionConstraints.AddDiameter(oc, oTG.CreatePoint2d(400 * 0.1, 400 * 0.1))

[bradeneuropeArthur]

And what do you like to trim here?
Give me also a screenshot how it needs to be after trim!

[vjyupr4047]

Hello Arthur Knoors,

I want to get vba code as attached image

Thanks,

Vijay k