Personalizar preferencia de las vistas

[luletox]

Buenos días, tengo el inventor 2017, actualmente estoy personalizando las plantillas de dibujo inventor todo lo que pueda para ahorrar un poco de tiempo al realizar el trabajo. Actualmente me he topado con algo en las preferencias de vistas, en la empresa trabajamos de esta forma al asociar un plano de una pieza al plano de un ensamble general:

2.JPG

La personalización de la Preferencia de vistas la tengo de esta manera:

4.jpg

La parte donde dice "Corresponde a item # Plano" , el símbolo # quisiera cambiarlo por la propiedad ELEMENTO que aparece asociada a las propiedades "lista de piezas" como lo muestra la imagen:

3.JPG

Pero al momento de buscarla en preferencia de vistas, no me aparece, solo me salen las opciones de la imagen 2.

La propiedad "ELEMENTO" en la lista de piezas me muestra el numero del item del .iam para poder así asociarlo con los balones de referencia a la lista de piezas.¿Existe alguna forma de poder sacar esta propiedad o las propiedades de "lista de piezas" para usarla en Preferencia de vistas? o en caso tal no se pueda, alguno tiene alguna idea o ha realizado algún trabajo parecido para poder asociar todo sin tener que escribirlo manualmente pieza por pieza.

1.JPG

Gracias.

[yuvilo]

Buenos días, no estoy seguro, pero creo que el tema de la cantidad de elementos esta asociado a un ensamble, no a una pieza en particular, no creo que deje colocar ese item por eso, te comento lo que hacía yo, por ahí puede servir de algo, yo colocaba en cada vista, sobre el cajetín una lista de piezas del ensamble general, personalizada, y ocultaba todas las filas de las piezas menos la de la pieza en la vista mostrada, o las vistas mostradas (en caso de mostrar dos o 3 piezas por plano), las cantidades se actualizaban y acomodaban acorde a las variaciones del ensamble, es parecido a lo que describis, solo que ajustado a una lista de materiales, en vez de una nota. Esperemos la respuesta de Mondeo quizá conoce un método mucho más efectivo. Saludos!!

[luletox]

Efectivamente yo manejo la lista de materiales (lista de piezas) en un plano general referenciada con Balones de Referencia y cotas generales:

5.jpg

6.jpg

En los planos individuales en la vista isometrica coloco la nota que esta pieza corresponde al ítem X en el plano General ( no se muestra porque aun no se ha codificado el plano), el numero asociado a la pieza ( en este caso el 1) me toca colocarlo manualmente, este numero esta asociado a la propiedad ELEMENTO pero dicha propiedad no me aparece cuando voy a personalizar las preferencias de vistas; la duda es con que propiedad podria asociar este numero para que se actualice automáticamente dependiendo del numero que el inventor genere, sea 1,2,3 etc. o como podria usar la propiedad ELEMENTO al momento de personalizar.

Gracias por responder, espero poder hacerme entender.

[Mondeo14]

pero creo que el tema de la cantidad de elementos esta asociado a un ensamble, no a una pieza en particular

Hasta donde yo se, esto es correcto.
Luletox, lo que quieres hacer, ya lo he estado intentando hacer yo y hasta el día de hoy, fracaso, tras fracaso. Manualmente no se puede asociar ninguna propiedad de la lista de un conjunto a una pieza. Y digo "manualmente", porque con iLogic se puede hacer de todo. De hecho hay o había una aplicación o complemento para Inventor, que dentro del conjunto la ejecutas y te crea una propiedad personalizada nueva en cada una de las piezas y te escribe la cantidad de piezas de ese tipo que hay en ese conjunto. Pero para mi tiene dos problemas que pueden ser graves: uno, solo cueanta las piezas en ese conjunto, si hay mas donde se use esa pieza, las ignora; dos, si añades una copia de esa pieza y no vuelves a ejecutar la aplicación, no te modificará la cantidad en el plano de la pieza.
¿Como se llama la aplicación?, buena pregunta, tendría que buscarla y puede que suceda como me ha pasado hace poco, que estuve buscando una que hace las roscas en 3D y ya no esta en la página de las aplicaciones de Autodesk.
Luego intento localizarla y te digo.

Insisto, con iLogig, "puede" que creando una regla puedas hacer lo mismo que hacía o hace la aplicación que te comento.

[Mondeo14]

Se me olvidaba:

me toca colocarlo manualmente,

Me temo que lo tendrás que hacer tu manualmente y tengo la gran duda de que algún programa CAD sea capaz de hacer lo que tu quieres. Ya no te digo nada que se actualice automáticamente cuando añadas una pieza o cuando la quites.

[filosk8]

Esto no jala muy bien con componentes espejo
pero te ayuda mucho
es un snipoet para tu IAM
lo puedes usar en un template de nivel alto o Tu ensamble maestro.
este código te genera el # de elemento en una propiedad llamada Engineer (en español no se como se llama)
de ahí tu puedes extraer el numero de item.

Código: Seleccionar todo

doc = ThisDoc.Document
Dim oAssyDef As AssemblyComponentDefinition = doc.ComponentDefinition
Dim oBOM As BOM = oAssyDef.BOM

Dim oParams As Parameters = oAssyDef.Parameters

Dim oUserParams As UserParameters = oParams.UserParameters

Dim ParameterChecker As Parameter

Try

ParameterChecker = oParams("NUM_OF_ASSYS")

Catch

ParameterChecker = oUserParams.AddByValue("NUM_OF_ASSYS", 1, "ul")

End Try

Dim num_assys As Integer

num_assys = Parameter("NUM_OF_ASSYS")


oBOM.PartsOnlyViewEnabled = True

Dim oBOMView As BOMView = oBOM.BOMViews.Item("Parts Only")

Dim oBOMRow As BOMRow

For Each oBOMRow In oBOMView.BOMRows
'Set a reference to the primary ComponentDefinition of the row

Dim oCompDef As ComponentDefinition
oCompDef = oBOMRow.ComponentDefinitions.Item(1)

Dim CompFullDocumentName As String = oCompDef.Document.FullDocumentName
Dim CompFileNameOnly As String
Dim index As Integer = CompFullDocumentName.lastindexof("\")

CompFileNameOnly = CompFullDocumentName.substring(index+1)

Dim Itm As String
Itm = oBOMRow.ItemNumber ()
If iProperties.Value(CompFileNameOnly, "Project", "Engineer") <> Itm Then

iProperties.Value(CompFileNameOnly, "Project", "Engineer") = Itm
End If

Dim Qty As String
Qty = oBOMRow.TotalQuantity

If iProperties.Value(CompFileNameOnly, "Project", "Authority") = "" Then

iProperties.Value(CompFileNameOnly, "Project", "Authority") = num_assys*Qty
End If

If iProperties.Value(CompFileNameOnly, "Project", "Authority") <> num_assys*Qty Then

iProperties.Value(CompFileNameOnly, "Project", "Authority") = num_assys*Qty
End If

Next

[Mondeo14]

Otra gran respuesta, esta la tengo que poner en práctica. Puede resultar muy interesante.

Muchas gracias otra vez, mi gran amigo.

[filosk8]

Ultimamente me he metido mucho en Ilogic, he gestionado desde parametros personalizados, un cotizador de maquinados hasta un sistema de control de tiempos de ensmable de maquinas y de maquinado de componentes.
aunque no uso este snipet de Ilogic pues yo no relaciono con el BOM el #de item espero sea de ayuda...

[yuvilo]

retomando el tema, indagando sobre lo que han comentado sabiamente sobre las ilogic, y para los que poseen como yo el inventor en español, les comparto el código que me funcionó, el cual tuve que modificar el "parts only" por cuestiones de idioma. Coloque el parámetro personalizado "n" como propiedad de cantidad, se puede poner otra propiedad como describió filosk en ("engineer") ingeniero o autorizado por ("authority").

Código: Seleccionar todo

 doc = ThisDoc.Document
Dim oAssyDef As AssemblyComponentDefinition = doc.ComponentDefinition
Dim oBOM As BOM = oAssyDef.BOM
oBOM.PartsOnlyViewEnabled = True
Dim oBOMView As BOMView = oBOM.BOMViews.Item("Solo piezas")
Dim oBOMRow As BOMRow
For Each oBOMRow In oBOMView.BOMRows
'Set a reference to the primary ComponentDefinition of the row
Dim oCompDef As ComponentDefinition
oCompDef = oBOMRow.ComponentDefinitions.Item(1)

Dim CompFullDocumentName As String = oCompDef.Document.FullDocumentName
Dim CompFileNameOnly As String
Dim index As Integer = CompFullDocumentName.lastindexof("\")

CompFileNameOnly = CompFullDocumentName.substring(index+1)

'MessageBox.Show(CompFileNameOnly)

Dim Qty As String
n = oBOMRow.TotalQuantity

iProperties.Value(CompFileNameOnly, "Custom", "n") = n
Next

[yuvilo]

Como siempre hablando de un ensamblaje maestro como dijo filosk, si se quiere que se coloque también las cantidades de los subensamblajes, me sirvió este otro, que aún no lo he probado a fondo. Obviamente como se podrá observar, el creador del código no se quién habrá sido, mis respetos para la gente sabia que comparte su conocimiento, uno aprende de las ideas de los demás, espero les sirva a ustedes tanto como a mí,que recién me estoy iniciando en este mundillo del ilogic. saludos.

Código: Seleccionar todo

 Sub Main
doc = ThisDoc.Document
Dim oAssyDef As AssemblyComponentDefinition = doc.ComponentDefinition
Dim oBOM As BOM = oAssyDef.BOM

oBOM.PartsOnlyViewEnabled = True

Dim oBOMViewPO As BOMView = oBOM.BOMViews.Item("Solo Piezas")

Dim oBOMRowPO As BOMRow

For Each oBOMRowPO In oBOMViewPO.BOMRows
'Set a reference to the primary ComponentDefinition of the row
Dim oCompDef As ComponentDefinition
oCompDef = oBOMRowPO.ComponentDefinitions.Item(1)

Dim CompFullDocumentName As String = oCompDef.Document.FullDocumentName
Dim CompFileNameOnly As String
Dim index As Integer = CompFullDocumentName.lastindexof("\")

CompFileNameOnly = CompFullDocumentName.substring(index+1)

'MessageBox.Show(CompFileNameOnly)

Dim Qty As String
Qty = oBOMRowPO.TotalQuantity

iProperties.Value(CompFileNameOnly, "Custom", "n") = Qty
Next

If oBOM.StructuredViewEnabled Then
If oBOM.StructuredViewFirstLevelOnly Then
oBOM.StructuredViewFirstLevelOnly = False
End If
Else
oBOM.StructuredViewEnabled = True
oBOM.StructuredViewFirstLevelOnly = False
End If

Dim oBOMViewStruc As BOMView = oBOM.BOMViews.Item("Estructurado")
Dim oBOMRowStruc As BOMRow
Dim arrSubAssemblyList As New ArrayList

Call QueryBOMRowProperties(oBOMViewStruc.BOMRows, arrSubAssemblyList, 1)

End Sub

Private Sub QueryBOMRowProperties(oBOMRows As BOMRowsEnumerator, arrSubAssembly As ArrayList, oParentQty As Integer)

Dim i As Long

For i = 1 To oBOMRows.count

Dim oBOMRowStruc As BOMRow = oBOMRows.item(i)

Dim oCompDef As ComponentDefinition = oBOMRowStruc.ComponentDefinitions.item(1)
Dim oQty As Integer

If TypeOf oCompDef Is AssemblyComponentDefinition And oCompDef.BOMStructure = BOMStructureEnum.kNormalBOMStructure Then
Dim CompFullDocumentName As String = oCompDef.Document.FullDocumentName
Dim CompFileNameOnly As String
Dim index As Integer = CompFullDocumentName.lastindexof("\")

CompFileNameOnly = CompFullDocumentName.substring(index+1)
'MessageBox.Show(CompFileNameOnly)

oQty = oBOMRowStruc.ItemQuantity * oParentQty

Dim additionalQty As Integer

If arrSubAssembly.Count <> 0 Then
Dim counter As Integer = 0
For Each CompData As String In arrSubAssembly
Dim commaindex As Integer = CompData.indexof(":")
Dim CompName As String = CompData.substring(0,commaindex)
If CompName = CompFileNameOnly Then
additionalQty = CompData.substring(commaindex+1)
Else
counter += 1
End If
Next

If additionalQty = 0 Then
arrSubAssembly.add(CompFileNameOnly & ":" & oQty)
Else
arrSubAssembly(counter) = CompFileNameOnly & ":" & oQty + additionalQty
End If
Else
arrSubAssembly.add(CompFileNameOnly & ":" & oQty)
End If

iProperties.Value(CompFileNameOnly, "Custom", "n") = oQty + additionalQty

'Recursively iterate child rows if present.
If Not oBOMRowStruc.ChildRows Is Nothing Then
Call QueryBOMRowProperties(oBOMRowStruc.ChildRows, arrSubAssembly, oQty)
End If
End If
Next
End Sub

[Mondeo14]

Hola @yuvilo , excelente aportación, ya no me acordaba de este tema y tus dos mensajes me han hecho mucha ilusión. Como ya he comentado anteriormente, he de ponerlo en práctica.

Gracias de nuevo por esta información, iLogic es un tema que me gusta, pero que lamentablemente no le dedico el tiempo que debería.

[luletox]

Gracias Yuvilo, revisare el codigo para aprender que hace cada linea y asi no hacer un copia y pega, tengo en mente otras cosas para agilizar el proceso de creacion de planos en mi trabajo.

Me gustaria saber si conoces una pagina o algun blog donde se pueda aprender ilogic desde 0 en español si es posible, la mayoria que encuentro son en ingles.

[yuvilo]

Buenas, como bien decís no hay mucho material en español, lo más cómodo que vi, fue el Autodesk forum, ahí hay de todo, junto al traductor de Google a mano, y renegando por mucho tiempo, se consiguen resultados. A decir verdad tu duda me abrió un camino a mi, puesto que hago algo similar en mi trabajo a cada pieza me gustaría ponerle una nota con descripciones generales de la misma, y su cantidad, y después de dar vueltas y vueltas conseguí lo que buscaba!! . Yo tengo definido en el archivo de pieza propiedades personalizadas, "C" es el código, "P" la provisión (Estructural 50x50x2x1650 , o chapa 3.2x150x950 por ejemplo) "n" la cantidad total de cada pieza, "e" es el espesor de chapa, "A1" puede ser el ancho desplegado de una chapa(Desarrollo) y "L" Su longitud. La pieza la defino con la propiedad "Descripción". En la pieza todos los datos los tengo vinculados a sus respectivos parámetros, no toco ningún numero a mano. Ahora bien... había armado unos códigos de ilogic para que me coloque estos datos en la nota de vista de todas las piezas en todas las hojas de mi plano de dibujo (mi archivo de plano de dibujo contiene muchas hojas hasta 30 por ejemplo) y retocándolos un poco me los coloca solo en la vista base!!! obviando las vistas proyectadas o de sección. Se me aceleró muchísimo mi trabajo por eso te doy las gracias a vos y a filosk por abrir el debate y abrirme la cabeza. Cambien me arme ilogic de la linea de pliegue en la chapa, para que me los cargue automáticamente en todas las hojas donde exista una chapa desplegada. Acá te mando algunos códigos de mi archivo de dibujo. Espero pueda ayudarte. mis saludos y agradecimiento para este espacio virtual que tanto me ha ayudado.

 

[yuvilo]

Acá unos archivos para ser mas sencillo comprender de una prueba, unos bocetos para ver como funcionan en inventor 2017 las lineas de código. Las reglas están desactivadas en el dibujo, solo hay que EJECUTAR la que se desee una vez abierto el mismo (permanecerán desactivadas). Este archivo es descriptivo, no posee cotas ni la pieza es de utilidad, coloque un subensamble de componentes para ver como interactúan los mismos con el ensamblaje maestro. Saludos compañeros.

[Mondeo14]

Excelente material @yuvilo , a ver si encuentro un rato para poder examinarlo con tranquilidad.

Gracias por tus aportes.