topic Re: insert block into drawing sheet with custom part property in Inventor Programming Forum

insert block into drawing sheet with custom part property

Miguel.CarvajalS34Q6 — Wed, 13 Dec 2023 15:40:09 GMT

I have a custom property that I can change from a list on a part form.
This variable must be recognized at the time of inserting the part into the drawing sheet, depending on this variable, which can be N7, N5, N4, N3, etc. A predefined block that already exists in the resources folder of the drawing module will be inserted.
The custom property has the same names as the blocks in the resources folder, so when you select the property in the part, in the drawing format it will recognize the block and insert it in a coordinate dependent on the size of the sheet.

InventorVb.DocumentUpdate()
Dim BLOQUE As String = iProperties.Value("Custom", "RUGOSIDAD")
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet

Dim oSketchedSymbolDef As SketchedSymbolDefinition
oSketchedSymbolDef = oDrawDoc.SketchedSymbolDefinitions.Item("RUGOSIDAD")

Dim oTG As TransientGeometry
oTG = ThisApplication.TransientGeometry


Select Case BLOQUE
    Case "FORMATO A4"
        Dim oSketchedSymbol As SketchedSymbol
oSketchedSymbol = oSheet.SketchedSymbols.Add _
	(oSketchedSymbolDef, oTG.CreatePoint2d(11.3, 6.2), 0, 1, sPromptStrings)

    Case "FORMATO A3"
       Dim oSketchedSymbol As SketchedSymbol
oSketchedSymbol = oSheet.SketchedSymbols.Add _
	(oSketchedSymbolDef, oTG.CreatePoint2d(15.5, 6.2), 0, 1, sPromptStrings)
	
	 Case "FORMATO A2"
       Dim oSketchedSymbol As SketchedSymbol
oSketchedSymbol = oSheet.SketchedSymbols.Add _
	(oSketchedSymbolDef, oTG.CreatePoint2d(17.5, 6.2), 0, 1, sPromptStrings)
	
	 Case "FORMATO A1"
       Dim oSketchedSymbol As SketchedSymbol
oSketchedSymbol = oSheet.SketchedSymbols.Add _
	(oSketchedSymbolDef, oTG.CreatePoint2d(20.5, 6.2), 0, 1, sPromptStrings)
	
	 Case "FORMATO A0"
       Dim oSketchedSymbol As SketchedSymbol
oSketchedSymbol = oSheet.SketchedSymbols.Add _
	(oSketchedSymbolDef, oTG.CreatePoint2d(23.5, 6.2), 0, 1, sPromptStrings)

    Case Else
        
End Select


oSheet.Update()

I generated this code, but I still can't get it to work

I don't know if what I want to achieve is possible, I can make a block be inserted automatically into the drawing, but I can't make the block selection exercise more dynamic.
can you help me, please

回复： insert block into drawing sheet with custom part property

yuzeaa — Wed, 13 Dec 2023 16:06:56 GMT

This can be done, but it's a bit complicated and requires the use of UserInputEvents. When I have free time, I can help you complete this task

Re: insert block into drawing sheet with custom part property

Miguel.CarvajalS34Q6 — Wed, 13 Dec 2023 18:05:28 GMT

ok, thanks

Re: insert block into drawing sheet with custom part property

yuzeaa — Thu, 14 Dec 2023 16:01:00 GMT

I roughly wrote an initial version for you to test; feel free to make any adjustments if there are issues.

Class ThisRule Private WithEvents oApplicationEvents As ApplicationEvents Dim preSheetSize As String Dim isFirstView As Boolean = False Sub main If SharedVariable.Exists("DocumengChangeEvent") Then Return oApplicationEvents = ThisApplication.ApplicationEvents SharedVariable("DocumengChangeEvent") = "DocumengChangeEvent" End Sub Private Sub drawingChangeEvent( DocumentObject As _Document, BeforeOrAfter As EventTimingEnum, ReasonsForChange As CommandTypesEnum, Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum) _ Handles oApplicationEvents.OnDocumentChange HandlingCode = HandlingCodeEnum.kEventNotHandled If BeforeOrAfter = EventTimingEnum.kBefore Then If Context(1) = "ChangeSheetProperties" Then preSheetSize = DocumentObject.ActiveSheet.Size Else If Context(1) = "EditDrawingBaseView" Then If DocumentObject.ActiveSheet.DrawingViews.count = 0 Then isFirstView = True End If End If End If If BeforeOrAfter = EventTimingEnum.kAfter Then If Context(1) = "ChangeSheetProperties" Then If DocumentObject.ActiveSheet.Size <> preSheetSize Then repositionsymbol(DocumentObject) End If Else If Context(1) = "EditDrawingBaseView" Then If isFirstView Then isFirstView = False Dim doc As DrawingDocument = DocumentObject Dim modeldoc As Document = doc.ActiveSheet.DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument Try Dim BLOQUE As String = modeldoc.PropertySets("Inventor User Defined Properties")("RUGOSIDAD").Value addSketchsymbol(doc,BLOQUE) Catch Exit Sub End Try End If End If End If End Sub Sub addSketchsymbol(oDrawDoc As DrawingDocument, blockname As String) Dim oSheet As Sheet oSheet = oDrawDoc.ActiveSheet Dim oSketchedSymbolDef As SketchedSymbolDefinition Try oSketchedSymbolDef = oDrawDoc.SketchedSymbolDefinitions.Item(blockname) Catch Exit Sub End Try Dim oTG As TransientGeometry oTG = ThisApplication.TransientGeometry Dim sPromptStrings(0) As String sPromptStrings(0) = "str" oSketchedSymbol = oSheet.SketchedSymbols.Add(oSketchedSymbolDef, oTG.CreatePoint2d(17.5, 6.2), 0, 1, sPromptStrings) oSketchedSymbol.Name = "FirstSketchSymbol" repositionsymbol(oDrawDoc) End Sub Sub repositionsymbol(oDrawDoc As DrawingDocument) Dim oSheet As Sheet oSheet = oDrawDoc.ActiveSheet Dim SketchedSymbol As SketchedSymbol Try SketchedSymbol = oSheet.SketchedSymbols("FirstSketchSymbol") Catch Exit Sub End Try Dim oTG As TransientGeometry oTG = ThisApplication.TransientGeometry Select Case oSheet.Size Case DrawingSheetSizeEnum.kA0DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(23.5, 6.2) Case DrawingSheetSizeEnum.kA1DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(20.5, 6.2) Case DrawingSheetSizeEnum.kA2DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(17.5, 6.2) Case DrawingSheetSizeEnum.kA3DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(15.5, 6.2) Case DrawingSheetSizeEnum.kA4DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(11.3, 6.2) End Select End Sub End Class

Re: insert block into drawing sheet with custom part property

Miguel.CarvajalS34Q6 — Fri, 15 Dec 2023 13:09:37 GMT

The code is very interesting and I appreciate the interest and how it proposes the solution, but I have tried to run the code and it does not execute any task, I try to relate the variables in a better way but it still does not perform any task.

I share the files with you so you can better understand what is happening.
thank you so much

Re: insert block into drawing sheet with custom part property

yuzeaa — Fri, 15 Dec 2023 13:38:32 GMT

I am using Inventor2020 and can't open your file. what is the property name of ipt,what is the promptstring of block.

Re: insert block into drawing sheet with custom part property

Miguel.CarvajalS34Q6 — Fri, 15 Dec 2023 14:09:04 GMT

the custom property is called "RUGGESNESS" and the block on the drawing sheet is called "N7"

Re: insert block into drawing sheet with custom part property

yuzeaa — Fri, 15 Dec 2023 14:19:08 GMT

Class ThisRule Private WithEvents oApplicationEvents As ApplicationEvents Dim preSheetSize As String Dim isFirstView As Boolean = False Sub main If SharedVariable.Exists("DocumengChangeEvent") Then Return oApplicationEvents = ThisApplication.ApplicationEvents SharedVariable("DocumengChangeEvent") = "DocumengChangeEvent" End Sub Private Sub drawingChangeEvent( DocumentObject As _Document, BeforeOrAfter As EventTimingEnum, ReasonsForChange As CommandTypesEnum, Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum) _ Handles oApplicationEvents.OnDocumentChange HandlingCode = HandlingCodeEnum.kEventNotHandled If BeforeOrAfter = EventTimingEnum.kBefore Then If Context(1) = "ChangeSheetProperties" Then preSheetSize = DocumentObject.ActiveSheet.Size Else If Context(1) = "EditDrawingBaseView" Then If DocumentObject.ActiveSheet.DrawingViews.count = 0 Then isFirstView = True End If End If End If If BeforeOrAfter = EventTimingEnum.kAfter Then If Context(1) = "ChangeSheetProperties" Then If DocumentObject.ActiveSheet.Size <> preSheetSize Then repositionsymbol(DocumentObject) End If Else If Context(1) = "EditDrawingBaseView" Then If isFirstView Then isFirstView = False Dim doc As DrawingDocument = DocumentObject Dim modeldoc As Document = doc.ActiveSheet.DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument Try Dim BLOQUE As String = modeldoc.PropertySets("Inventor User Defined Properties")("RUGGESNESS").Value addSketchsymbol(doc,BLOQUE) Catch Exit Sub End Try End If End If End If End Sub Sub addSketchsymbol(oDrawDoc As DrawingDocument, blockname As String) Dim oSheet As Sheet oSheet = oDrawDoc.ActiveSheet Dim oSketchedSymbolDef As SketchedSymbolDefinition Try oSketchedSymbolDef = oDrawDoc.SketchedSymbolDefinitions.Item(blockname) Catch Exit Sub End Try Dim oTG As TransientGeometry oTG = ThisApplication.TransientGeometry oSketchedSymbol = oSheet.SketchedSymbols.Add(oSketchedSymbolDef, oTG.CreatePoint2d(17.5, 6.2)) oSketchedSymbol.Name = "FirstSketchSymbol" repositionsymbol(oDrawDoc) End Sub Sub repositionsymbol(oDrawDoc As DrawingDocument) Dim oSheet As Sheet oSheet = oDrawDoc.ActiveSheet Dim SketchedSymbol As SketchedSymbol Try SketchedSymbol = oSheet.SketchedSymbols("FirstSketchSymbol") Catch Exit Sub End Try Dim oTG As TransientGeometry oTG = ThisApplication.TransientGeometry Select Case oSheet.Size Case DrawingSheetSizeEnum.kA0DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(23.5, 6.2) Case DrawingSheetSizeEnum.kA1DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(20.5, 6.2) Case DrawingSheetSizeEnum.kA2DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(17.5, 6.2) Case DrawingSheetSizeEnum.kA3DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(15.5, 6.2) Case DrawingSheetSizeEnum.kA4DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(11.3, 6.2) End Select End Sub End Class

Re: insert block into drawing sheet with custom part property

Miguel.CarvajalS34Q6 — Fri, 15 Dec 2023 14:47:21 GMT

I sent you some images of the intention I have with the code, maybe you will understand me better

Re: insert block into drawing sheet with custom part property

yuzeaa — Fri, 15 Dec 2023 15:11:07 GMT

The information you provided in your previous post was incorrect. Try it again with my last post

Re: insert block into drawing sheet with custom part property

yuzeaa — Fri, 15 Dec 2023 15:16:40 GMT

Sorry, I didn't see clearly that you were using parameters. I will correct it and post it later.

Re: insert block into drawing sheet with custom part property

yuzeaa — Fri, 15 Dec 2023 15:26:13 GMT

Class ThisRule Private WithEvents oApplicationEvents As ApplicationEvents Dim preSheetSize As String Dim isFirstView As Boolean = False Sub main If SharedVariable.Exists("DocumengChangeEvent") Then Return oApplicationEvents = ThisApplication.ApplicationEvents SharedVariable("DocumengChangeEvent") = "DocumengChangeEvent" End Sub Private Sub drawingChangeEvent( DocumentObject As _Document, BeforeOrAfter As EventTimingEnum, ReasonsForChange As CommandTypesEnum, Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum) _ Handles oApplicationEvents.OnDocumentChange HandlingCode = HandlingCodeEnum.kEventNotHandled If BeforeOrAfter = EventTimingEnum.kBefore Then If Context(1) = "ChangeSheetProperties" Then preSheetSize = DocumentObject.ActiveSheet.Size Else If Context(1) = "EditDrawingBaseView" Then If DocumentObject.ActiveSheet.DrawingViews.count = 0 Then isFirstView = True End If End If End If If BeforeOrAfter = EventTimingEnum.kAfter Then If Context(1) = "ChangeSheetProperties" Then If DocumentObject.ActiveSheet.Size <> preSheetSize Then repositionsymbol(DocumentObject) End If Else If Context(1) = "EditDrawingBaseView" Then If isFirstView Then isFirstView = False Dim doc As DrawingDocument = DocumentObject Dim modeldoc As Document = doc.ActiveSheet.DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument Try Dim BLOQUE As String = modeldoc.ComponentDefinition.Parameters("RUGOSIDAD").Value addSketchsymbol(doc,BLOQUE) Catch Exit Sub End Try End If End If End If End Sub Sub addSketchsymbol(oDrawDoc As DrawingDocument, blockname As String) Dim oSheet As Sheet oSheet = oDrawDoc.ActiveSheet Dim oSketchedSymbolDef As SketchedSymbolDefinition Try oSketchedSymbolDef = oDrawDoc.SketchedSymbolDefinitions.Item(blockname) Catch Exit Sub End Try Dim oTG As TransientGeometry oTG = ThisApplication.TransientGeometry oSketchedSymbol = oSheet.SketchedSymbols.Add(oSketchedSymbolDef, oTG.CreatePoint2d(17.5, 6.2)) oSketchedSymbol.Name = "FirstSketchSymbol" repositionsymbol(oDrawDoc) End Sub Sub repositionsymbol(oDrawDoc As DrawingDocument) Dim oSheet As Sheet oSheet = oDrawDoc.ActiveSheet Dim SketchedSymbol As SketchedSymbol Try SketchedSymbol = oSheet.SketchedSymbols("FirstSketchSymbol") Catch Exit Sub End Try Dim oTG As TransientGeometry oTG = ThisApplication.TransientGeometry Select Case oSheet.Size Case DrawingSheetSizeEnum.kA0DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(23.5, 6.2) Case DrawingSheetSizeEnum.kA1DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(20.5, 6.2) Case DrawingSheetSizeEnum.kA2DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(17.5, 6.2) Case DrawingSheetSizeEnum.kA3DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(15.5, 6.2) Case DrawingSheetSizeEnum.kA4DrawingSheetSize SketchedSymbol.Position = oTG.CreatePoint2d(11.3, 6.2) End Select End Sub End Class

Re: insert block into drawing sheet with custom part property

Miguel.CarvajalS34Q6 — Fri, 15 Dec 2023 16:18:34 GMT

I tried again and it still doesn't work, it can't insert blocks to the drawing sheet

Re: insert block into drawing sheet with custom part property

yuzeaa — Fri, 15 Dec 2023 16:27:13 GMT

have you restarted inventor before running the rule? I need to leave now and attend the forum tomorrow

Re: insert block into drawing sheet with custom part property

Miguel.CarvajalS34Q6 — Mon, 18 Dec 2023 15:46:09 GMT

ok thanks

Re: insert block into drawing sheet with custom part property

Miguel.CarvajalS34Q6 — Mon, 18 Dec 2023 16:47:26 GMT

This code works well for me, I just can't get the value of the "item" ("general note ±1") to be a dynamic value that comes from the custom property iProperties.Value("Custom", "RUGOSIDAD") = RUGOSIDAD

and I also can't get the coordinate to insert the block to adjust according to the format in use