Ilogic to add dimensions to flat pattern

[Anonymous]

Hi,

Does anybody have any ilogic to add dimensions to a flat pattern view in an idw ?

[KarelC]

Which dimensions do you mean? Automatic dimensions are in context menu.

[Anonymous]

I have an Ilogic rule that creates 5 views on the drawing sheet and it can retrieve dimensions for the front view.

It places a flat pattern view and I want it to automatically dimension it.

Overall dimensions and fold lines.

Is this possible?

[KarelC]

Sorry, I didn't create dimensions by macro yet. I think it is possible. I'll try it.

[KarelC]

Yes, it is possible. I tried VBA macro for drawing dimensions in one view. Here yoy have few steps for drawing dimensions by macro. For iLogic you must make some changes.

First you must find lines wit poit for dimensions

Dim oView As DrawingView

Dim oCurve As DrawingCurve

For Each oCurve In oView.DrawingCurves    '  - finding lines in your view

 'here you chose some lines for dimension

Next

Then transform line points to points for dimension

Dim oPoint As GeometryIntent
Set oPoint = oDocument.ActiveSheet.CreateGeometryIntent(oCurve, kStartPointIntent)  '  - make points for dimesion, you must have two point

One poit for dimension text

Dim oPointForText As Point2d

Finaly draw the dimension

Call oSheet.DrawingDimensions.GeneralDimensions.AddLinear( oPointForText, BodPrvni, BodDruhy, kHorizontalDimensionType)