Como hacer un cajetin en Catia

[nacho1126]

Hola que tal, el fin de semana subí un ejercicio de SW donde les comente que había aprendido hacer mi cuadro de referencia (cajetin), y pensaron que lo había hecho en CATIA porque en mi perfil decía que ocupaba catia, y por eso me pidieron que si sabia algo para este software.

Pues hoy con esta pregunta les muestro algo que he encontrado entre mis curiosidades, la verdad es que como apenas me estoy metiendo en esto de hacer planos, empece con SW pero pues aquí hay un poco de información espero y les sirva.

Aquí les dejo un vídeo que me encontré de como sacar los cajetines predeterminados por Catia que no son mucho.

También hay un modulo de Catia con el que se pueden automatizar haciendo algunas variables, la verdad es que yo no he podido hacer porque yo no cuento con ese modulo, pero les dejo la información si es que a alguien le sirve.

Si alguien mas sabe como automatizar los cajetines en Catia de otra forma seria bueno que nos ayudara. Saludos.

[likidao2012]

nacho1126 gracias por la informacion.un punto.

[Mondeo14]

Buenas noches, reabro este tema después de un "tiempo". Se que hay otro post similar a este, pero en aquel ya hay mucho material, muchas respuestas y se hablaban de varias cosas a la vez. Para los que tengan curiosidad, el tema esta <<AQUÍ>>
Por cierto, he aprovechado este post que lo empezó otro usuario, pero he borrado lo que no era necesario y lo he "reconvertido".

Estoy "experimentando" y probando el tema de los cajetines personalizados en Catia y no es tan difícil como en un principio pensaba. Catia utiliza una Macro y solo hay que "investigar" que es cada cosa. Hasta ahora este es mi mejor resultado <<Selectividad 5-004>>
Una cosa quiero aclarar, no es la octava maravilla, pero he ido consiguiendo algunos avances: Traducir los textos, eliminar las líneas del contorno, eliminar los textos del contorno, eliminar algún campo que no me "interesaba", modificar otro para que me parezca el volumen y ya de paso, personalizar mi estilo de cotas, con la flecha cerrada.
Por si alguien quiere investigar, hay que ir a una carpeta en la instalación de Catia, se trata de esta:

Código: Seleccionar todo

X:\XXXX\Dassault Systemes\B21\win_b64\VBScript\FrameTitleBlock

Donde X: es la unidad donde lo tengáis instalado y XXXX es la ruta donde esta (en mi caso no es la tradicional, porque yo la he cambiado).
En esta carpeta encontrareis 3 ficheros CATScript y tres imágenes, que son la tres posibilidades de lámina que Catia tiene preparadas. Si editáis un fichero CATScript, veréis el código que se encarga de generar la lámina. Yo estoy utilizando y modificando el fichero "Drawing_Titleblock_Sample2.CATScript", que me ha parecido mas fácil, aunque para mi todos son difíciles.
Aviso, hay que tener conocimientos de programación, yo no es que tenga muchos, pero algo me defiendo y con el concepto "prueba/error", pues algo he sacado.
Y lo siento, de momento no voy a explicar mucho mas, porque no lo tengo muy claro, esta en fase de "experimentación" y quiero tener algo mas "sólido".
Sin mas, es una buena opción para empezar y puede que alguno que tenga mas conocimientos de programación, le saque mas provecho que yo.

PD: Ahora quiero ver como poner el texto RinCAD tal y como suelo hacer en Inventor. Voy a ver si soy capaz de insertar una imagen, pero lo tengo bastante "crudo".

[luna]

Hola mondeo: Veo que te has lanzado de cabeza a la conquista de la dama. Punto para el caballero y el agradecimiento por dar luz a lo que ya sospechaba. Mi total ignorancia de programación me hacía desistir.
Respecto a la inclusión de un anagrama en el cajetin puedes hacerlo estando en el Sheet Background (el lado oscuro donde se pone el cajetín) Insert / Picture clicamos en un punto del cajetin y nos coloca la imagen elegida previamente reducida a sus justas dimensiones. Una vez colocada / Properties sobre la misma y tenemos los parámetros de distancias y colocación tanto en la hoja como en el rectángulo colocada. Se pueden editar dichas distancias.
Desde la programación lo ignoro. Un saludo.

[NeoCimek]

Lo de insertar una imagen sé hacerlo, deberás de modificar tu Script, en cuanto me lo mire, te digo cómo hacerlo.

[luna]

Mientras llega más lúcida inspiración voy adelantando que en How to fill in the block / text 17 duerme esta noche PAQUITO CHOCOLATERO. Sin alcohol. Un saludo.

[NeoCimek]

Es algo así

Código: Seleccionar todo

'LOGO

'Dim drawingDocument1 As Document
'Set drawingDocument1 = CATIA.ActiveDocument

'Dim drawingSheets1 As DrawingSheets
'Set drawingSheets1 = drawingDocument1.Sheets

'Dim drawingSheet1 As DrawingSheet
'Set drawingSheet1 = drawingSheets1.ActiveSheet

'Dim drawingViews1 As DrawingViews
'Set drawingViews1 = drawingSheet1.Views

'Dim drawingView1 As DrawingView
'Set drawingView1 = drawingViews1.Add("AutomaticNaming")

'Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
'Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

'drawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000

'drawingView1.x = OH + Col(1) + 15

'drawingView1.y = OV + Row(4)            

'Dim double1 As Double
'double1 = drawingSheet1.Scale

'drawingView1.Scale = 0.5

'drawingview1.Activate 

'drawingview1.Pictures.Add "f:\logo.jpg",0,0

Dim DR As DrawingDocument
Set DR = CATIA.ActiveDocument

[Mondeo14]

Veo que hay mas gente que se anima, por cierto, se me olvido mencionar que no estaría de mas un poco de ayuda por parte de alguien que controle la programación. Pero veo que no me hace falta aclararlo, ya se ha lanzado uno de los buenos.
Angorro, muchas gracias por la explicación de insertar la imagen, pero eso mas o menos lo controlaba (desconocía lo de las propiedades y las coordenadas), lo que yo quiero es precisamente lo que creo que sabe hacer NeoCimek, insertarla en automático con el Script.
Neo, lo de modificar el Script, no es problema, de hecho ya he modificado bastantes cosas, lo que ya se me escapa es hacer una llamada a insertar esa imagen, pero ha de desplazarse cuando cambie el tamaño.
Si conseguimos buenos frutos del tema, trataré de hacer un tutorial de como se puede "personalizar", para que lo haga quien quiera. Pero no prometo nada, porque cada vez que lo hago, me lio con miles de cosas por medio.

De momento punto para ambos.

PD: Coño, si ha contestado Neo mientras escribía, luego lo pongo en práctica y te comento mis resultados.

Muchas gracias.

[Mondeo14]

Bueno, primeras pruebas y sin mucho éxito de momento:

Como veréis, se ha insertado un cuadro con nada en el vértice inferior izquierdo. Evidentemente he colocado una imagen del logo en una determinada carpeta que se la he indicado donde pones

drawingview1.Pictures.Add "f:\logo.jpg",0,0

... y también he quitado los apóstrofos del principio de la línea.

Comentar también que la he probado sola, es decir, lo he copiado en un fichero y lo he renombrado a "Logo.CATScript", luego lo he ejecutado después de poner la lámina.

Seguiremos investigando, tu ya has puesto una piedra, que ya es bastante, no vas a hacer la casa tu solo

[luna]

Uan point para Neo. Un saludo.

[NeoCimek]

Investigando mi fichero he encontrado otro tramo el fichero que parece también que va dirigido a colocar la imagen

Código: Seleccionar todo

Dim DR As DrawingDocument
Set DR = CATIA.ActiveDocument

'Obtenemos hoja (sheet)
Dim SH As DrawingSheet
Set SH = DR.Sheets.ActiveSheet 
'Obtenemos working view 
'Dim MainView As DrawingView 

'Set MainView = SH.Views.Item(1)
'MainView.Activate
'MainView.Texts.Add "Texto en la vista principal", 0, 0

'Obtenemos vista background 
Dim BackgroundView As DrawingView 

Set BackgroundView = SH.Views.Item(2) 'Obtenemos la vista de Background
BackgroundView.Activate 'La activamos

BackgroundView.Pictures.Add "directorio fichero imagen" ,OH + Col(1) + 1, OV + Row(4)+2.2          

'Activamos de nuevo working views y actualizamos el drawing
'MainView.Activate 
'DR.Update

[Mondeo14]

Vaya, este tampoco he sabido hacerlo funcionar.

Seguiremos en el intento.