AddLinear and how to use its coordinates

AddLinear and how to use its coordinates

ward_hanotGZU45
Enthusiast Enthusiast
127 Views
0 Replies
Message 1 of 1

AddLinear and how to use its coordinates

ward_hanotGZU45
Enthusiast
Enthusiast

Hello everyone,

Last couple of months I started with using Ilogic for autamoation. 

I have now come to the point of automating drawings and dimensions. And I have already reached my first headscratch: Usind addLinear and its coordinates. 

=> genDims.AddLinear("Dimension 1", view_A.SheetPoint(-0.08, 0), Maaiveld, NivA)

What is the Sheetpoint and how do I find it? 

And how are the coordinates (x,y)? related to this point?

 

This is how i created a rule:

Dim Blad_1 = ThisDrawing.Sheets.ItemByName("Blad:1")
Dim view_A = Blad_1.DrawingViews.ItemByName("A")
Dim genDims = Blad_1.DrawingDimensions.GeneralDimensions

'*** van boven naar onder/ up to down ***
'** Workplanes
Dim Maaiveld = view_A.GetIntent("Maaiveld")
Dim BovenkantAansluiting = view_A.GetIntent("BovenkantAansluitingA")
Dim NivA = view_A.GetIntent("NivA")
Dim BodemPut = view_A.GetIntent("BodemPut")
Dim OnderkantPut = view_A.GetIntent("OnderkantPut")

'** Part entities
'Dim enBodemPut = view_A.GetIntent("Basisput:1", "enBodemPut")
Dim enOnderkantPut = view_A.GetIntent("Basisput:1", "enOnderkantPut")
'Dim Edge0 = view_A.GetIntent("Dekplaat:1", "Edge0")
'Dim Face0 = view_A.GetIntent("Dekplaat:1", "Face0")
'Dim enBovenkantPut = view_A.GetIntent("Basisput:1", "enBovenkantPut")
'Dim enDPMG = view_A.GetIntent("Dekplaat:1", "enDPMG")
'Dim enBuitendiameterBasisput = view_A.GetIntent("Basisput:1", "enBuitendiameterBasisput")

Dim linDim1 = genDims.AddLinear("Dimension 1", view_A.SheetPoint(-0.08, 0), Maaiveld, NivA) '(-0.06, 0)
Dim linDim2 = genDims.AddLinear("Dimension 2", view_A.SheetPoint(-0.08, 0), NivA, BodemPut)
Dim linDim3 = genDims.AddLinear("Dimension 3", view_A.SheetPoint(-0.08, 0), BodemPut, OnderkantPut)
Dim linDim4 = genDims.AddLinear("Dimension 4", view_A.SheetPoint(-0.16, 0), Maaiveld, BodemPut) '(-0.10, 0)
Dim linDim5 = genDims.AddLinear("Dimension 5", view_A.SheetPoint(-0.24, 0), Maaiveld, OnderkantPut)
Dim linDim6 = genDims.AddLinear("Dimension 6", view_A.SheetPoint(0, -0.9), enOnderkantPut)
'Dim linDim7 = genDims.AddLinear("Dimension 7", view_A.SheetPoint(10, 0.85), Edge0)

and the se are the results

going from in to out: Dimension 1, 2, 3 then dimension 4 and dimension 5.

But when i change it to a smaller/ bigger part the coordinates seems to jump around.

ward_hanotGZU45_0-1729672696515.png

ward_hanotGZU45_1-1729672711248.png

 

 

0 Likes
128 Views
0 Replies
Replies (0)