Hello, I'm trying to design a measuring part, but am having trouble thinking of a way, to get my sketch line and the sketch number text to be at a certain height with a given excel tables without having to manually to input the numbers. I have been using the table driven pattern feature to get my extrude cuts at certain distances. But i would like to use make it easier, where i can use the given excel table to get the lines and sketch number text to work together and make the number go in sequence as it goes up along the part.

Here is how it can be done. I have created sketch with line and sketch tekst to be extruded as a mark. You can link sketch text to sketch dimension by typing dimension name in sketch text properties. As you see on screenshot the text is linked to height of sketch.

Then i just make an extrusion of the sketch.

Second part is to use variable pattern. Here you can use excel table to drive the height.

As the text is linked to the height dim it shoulod update with the pattern.

Hi Krzysztof, Thanks for the tips. The problem with mine, is that the numbers doesn't need to be applied on every line ,after 1000 Liter mark ,we place it on every 1000 L mark and after we get to certain height we then will apply again on every mark in 200 increments. The volume number marking on the stick is not the actual height of the line. instead showing the volume of liquid is in the containment area.

Is there anyway possible for me to place markings at certain heights with a set sketch text. anyone with any ideas will be much appreciated, thank you soo much

Dim swApp As SldWorks.SldWorksDim Part As SldWorks.ModelDoc2Dim Linie() As SldWorks.SketchLineDim nText As SldWorks.SketchTextDim swSelData As SldWorks.selectdataDim boolstatus As BooleanDim swSelMgr As SldWorks.SelectionMgrDim swSketchMgr As SldWorks.SketchManagerDim swsketchseg As SldWorks.SketchSegmentDim selectdata As SldWorks.selectdataDim SketchLineID As VariantDim linename, no As StringSub Skala() Dim i As Integer Dim Max As Integer Max = 10 Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set swext = Part.Extension Set swSelMgr = Part.SelectionManager Set swSketchMgr = Part.SketchManager

If Part.IGetActiveSketch2 Is Nothing Then MsgBox "You must be in sketch edit mode for this macro to work!" & Chr(13) & Chr(13) & "Edit a sketch a then try again." Exit SubEnd If

Next i For i = 1 To Max If i = 1 Then boolstatus = False Else boolstatus = True boolstatus = Linie(i).Select4(boolstatus, swSelData) Next i Part.SketchAddConstraints "sgSAMELENGTH" swSketchMgr.InsertSketch (True)End Sub