Tutoriales Catia V5.

Tutorial retocar macro cajetin

17-05-2018

Ruta donde Catia guarda Catia las macros de los cajetines:

C:\Program Files\Dassault Systemes\B26\win_b64\VBScript\FrameTitleBlock

En esta ruta encontramos los siguientes archivos:

Tutoriales elprofedemicurso

Duplicaremos los archivos Drawing_Titleblock_Sample1.CATScript y

Drawing_Titeblock_Sample1.bmp y los renombramos como cajetín_curso

ACCESO A LAS MACROS DE LOS CAJETINES

Desde Tools>Options>Macros, podremos ir a editar el archivo de la nueva macro

(cajetín_curso.CATScript)

www.elprofedemicurso.es 1
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018
Tutoriales elprofedemicurso

1. Pulsar en Macro libraries…

2. En Library tipe: escoger de la lista desplegable la opción Directories y a continuación
pulsar sobre el botón Add existing library.
3. Desde la ventana Open a directory of macros, escoger la ruta donde catia V5 almacena
todas las macros de los cajetines:
C:\Program Files\Dassault Systemes\B26\win_b64\VBScript\FrameTitleBlock
4. Finalmente, pulsamos sobre el botón Seleccionar carpeta.

5
6

www.elprofedemicurso.es 2
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

5. Si pulsamos dobleclick sobre la ruta, nos aparece la ventana macros, donde podemos
comprobar que tenemos todos los archivos .CATScript que tenemos en la carpeta,
incluido el nuevo cajetin_curso.CATScript.
6. Si pulsamos sobre el botón Edit…, podremos editar el código de la macro por dentro.

PERMISOS DE USUARIO DE WINDOWS

Antes de editar la macro, debemos acceder a la carpeta FrameTitleBlock y permitir al usuario
control total sobre esa carpeta, para que al ir cambiando el código de la macro, el programa no
nos avise que la carpeta está protegida contra escritura (read only).

1. Botón derecho sobre la carpeta y Propiedades:

Tutoriales elprofedemicurso

2. Pulsar sobre seguridad:

www.elprofedemicurso.es 3
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

3. Pulsar sobre el editar

Tutoriales elprofedemicurso

4. Designar el usuario y Permitir control total

www.elprofedemicurso.es 4
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

Cambios en el código de la macro

Código de la cabecera:
Código original plantilla Sample 1
'COPYRIGHT DASSAULT SYSTEMES 2001

'
**************************************************************************
**
' Purpose: To draw a Frame and TitleBlock
'
' Assumptions: A Drafting document should be active
'
' Author: GDG\DU\PYW
' Languages: VBScript
Tutoriales elprofedemicurso

' Version: V5R18

' Reg. Settings: English (United States)
'
**************************************************************************
**
Public ActiveDoc As Document
Public Sheets
Public Sheet
Public Views
Public View
Public Texts As DrawingTexts
Public Text As DrawingText
Public Fact As Factory2D
Public Selection As Selection

Código retocado plantilla cajetin_curso

'COPYRIGHT ELPROFEDEMICURSO 2018

'
**************************************************************************
**
' Proposito: Crear un marco con cajetín a partir del ejemplo1 de Catia v5
'
' Requisito: Un documento Drawing debe estar activo
'
' Autor: elprofedemicurso
' Languages: VBScript
' Version: V5R26
' Reg. Settings: English (United States)
'
**************************************************************************
**
'Declaramos las variables principales'

www.elprofedemicurso.es 5
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

Public ActiveDoc As Document

Public Sheets
Public Sheet
Public Views
Public View
Public Texts As DrawingTexts
Public Text As DrawingText
Public Fact As Factory2D
Public Selection As Selection

Cambios en el código de la ventana de inserción:

Cuando insertamos el cajetín en un plano, nos aparece está ventana:
Tutoriales elprofedemicurso

Vamos a traducir

Creation Crear
Deletion Borrar
Resizing Redimensionar
Update Actualizar
CheckedBy Revisado
AddRevisionBlock Revision

www.elprofedemicurso.es 6
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

Para conseguir esta traducción lo haremos de la siguiente forma

1. Entraremos en la edición de la macro

2. Pulsaremos sobre el botón Find (buscar)
Tutoriales elprofedemicurso

3. Escribiremos la palabra a buscar, por ejemplo Creation:

4. Y pulsaremos sobre Find Next,

5. Para que salte a la línea siguiente donde aparezca Creation

6. En este caso, la palabra Creation aparecerá 2 veces

www.elprofedemicurso.es 7
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

7. A continuación cambiamos la palabra Creation por Crear, como se muestra en la

siguiente imagen:

8. Guardamos los cambios

9. Realizamos los mismos pasos desde el 2 al 8 con el resto de palabras.
Tutoriales elprofedemicurso

Deletion nos aparecerá 1 sola vez:

Resizing nos aparecerá 2 veces:

www.elprofedemicurso.es 8
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

Update nos aparecerá 2 veces

Tutoriales elprofedemicurso

CheckedBy nos aparecerá 1 sola vez

Y al buscar AddRevisionBlock, solo traducimos la primera vez en la que aparece y no cuando

vuelve a repetirse.

www.elprofedemicurso.es 9
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

Guardamos y comprobamos la inserción en un plano:

Tutoriales elprofedemicurso

Traduciendo los textos fijos

DESIGNED BY: Dibujado por:

CHECKED BY: Revisado por:
DATE: Fecha:
SIZE Iso:
SCALE Escala:
WEIGHT (kg) Peso (Kg)
DASSAULT SYSTEMES CIFO SANT FELIU
DRAWING NUMBER Nombre pieza
SHEET Hoja
This drawing is our property; it can't be Este dibujo es de nuestra propiedad; no
reproduced or communicated without our puede ser modificado ni reproducido sin
written agreement. nuestro acuerdo por escrito.

Con la opción Find, y desde dentro de la macro, cambiaremos esos textos, como hicimos en el
apartado de traducción de los textos de la ventana de inserción:

www.elprofedemicurso.es 10
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

Código original plantilla Sample 1

Sub CATTitleBlockText()
'-------------------------------------------------------------------------------
'How to fill in the title block
'-------------------------------------------------------------------------------

Text_01 = "This drawing is our property; it can't be reproduced or communicated without

our written agreement."
Text_02 = "SCALE"
Text_03 = "XXX"
Text_04 = "WEIGHT (kg)"
Text_05 = "XXX"
Text_06 = "DRAWING NUMBER"
Text_07 = "SHEET"
Text_08 = "SIZE"
Text_09 = "USER"
Tutoriales elprofedemicurso

Text_10 = "XXX" ' Paper Format

Text_11 = "DASSAULT SYSTEMES"
Text_12 = "CHECKED BY:"
Text_13 = "DATE:"
Text_14 = "DESIGNED BY:"
Text_15 = CATIA.SystemService.Environ("LOGNAME")
If Text_15 = "" Then Text_15 = CATIA.SystemService.Environ("USERNAME")

Código retocado plantilla cajetin_curso

Text_01 = " Este dibujo es de nuestra propiedad; no puede ser modificado ni reproducido
sin nuestro acuerdo por escrito.”
Text_02 = "Escala:"
Text_03 = "XXX"
Text_04 = "Peso (kg)"
Text_05 = "XXX"
Text_06 = "Nombre Pieza"
Text_07 = "Hoja"
Text_08 = "Iso"
Text_09 = "USER"
Text_10 = "XXX" ' Paper Format
Text_11 = "CIFO SANT FELIU"
Text_12 = "Revisado por:"
Text_13 = "Fecha:"
Text_14 = "Dibujado por:"
Text_15 = "M.M.F."
If Text_15 = "" Then Text_15 = CATIA.SystemService.Environ("USERNAME")

www.elprofedemicurso.es 11
 Tutoriales Catia V5. Tutorial retocar macro cajetin
17-05-2018

Finalmente el cajetín nos quedará como se muestra:

Tutoriales elprofedemicurso

www.elprofedemicurso.es 12