macro pour désigner un endroit dans le drawing et créer un texte à l'endroit désigné
2 participants
Page 1 sur 1
macro pour désigner un endroit dans le drawing et créer un texte à l'endroit désigné
bonjour
j'ai un bout de code récupérer sur V5Automation.chm ,mais je ne voit pas pourquoi ca ne fonctionne pas
blocage sur la ligne Status = document.Indicate2D
" />
j'ai un bout de code récupérer sur V5Automation.chm ,mais je ne voit pas pourquoi ca ne fonctionne pas
- Code:
Public document As document
Public DrwDocument As DrawingDocument
Public selection As selection
Public DrawingSheets As DrawingSheets
Public DrawingSheet As DrawingSheet
Public DrawingViews As DrawingViews
Public DrawingView As DrawingView
Public DrawingTexts As DrawingTexts
Public Mytext As DrawingText
Sub CATmain()
Set document = CATIA.ActiveDocument
Set selection = document.selection
Set DrawingSheets = document.Sheets
Set DrawingSheet = DrawingSheets.ActiveSheet
Set DrawingViews = DrawingSheet.Views
Set DrawingView = DrawingViews.ActiveView
Set DrawingTexts = DrawingView.Texts
'We propose to the user that he specify a location in the drawing window
Dim DrawingWindowLocation(1)
Status = document.Indicate2D("select a location into the drawing window", DrawingWindowLocation)
If (Status = "Cancel") Then Exit Sub
Set DrawingText = DrawingTexts.Add("Hello world", DrawingWindowLocation(0), DrawingWindowLocation(1))
End Sub
blocage sur la ligne Status = document.Indicate2D
" />
Re: macro pour désigner un endroit dans le drawing et créer un texte à l'endroit désigné
bon j'ai trouvé cela provenait d'une mauvaise déclaration de la variable document...pff
public documents As Objet et non document
ci joint le code
public documents As Objet et non document
ci joint le code
- Code:
'**************************************************************************************************************************
'OBJECTIF : demander à l'utilisateur de désigner un endroit dans un drawing puis créer un texte à l'endroit désigné
'**************************************************************************************************************************
Option Explicit
'déclaration des variables
Public document As Object
Public DrwDocument As DrawingDocument
Public selection As selection
Public DrawingSheets As DrawingSheets
Public DrawingSheet As DrawingSheet
Public DrawingViews As DrawingViews
Public DrawingView As DrawingView
Public DrawingTexts As DrawingTexts
Public Mytext As DrawingText
Public status As Variant
Sub CATmain()
Dim DrawingWindowLocation(1)
'Initialisation et création des objets principaux
Set document = CATIA.ActiveDocument
Set DrawingSheets = document.Sheets
Set DrawingSheet = DrawingSheets.ActiveSheet
Set DrawingViews = DrawingSheet.Views
Set DrawingView = DrawingViews.ActiveView
Set DrawingTexts = DrawingView.Texts
'on propose a l'utilisateur de désignaer un endroit dans le drawing
MsgBox "Veuillez indiquer l'endroit ou le texte sera créé"
' on récupère l'endroit sélectionné
status = document.Indicate2D("select a location into the drawing window", DrawingWindowLocation)
If (status = "Cancel") Then Exit Sub
' on créer le texte
Set Mytext = DrawingTexts.Add("création d'un texte à l'endroit désigné par l'utilisateur", DrawingWindowLocation(0), DrawingWindowLocation(1))
End Sub
Re: macro pour désigner un endroit dans le drawing et créer un texte à l'endroit désigné
En fait c'est une histoire de "Early and Late Binding" https://msdn.microsoft.com/en-us/library/0tcf61s1.aspx
Ici c'est bien expliqué pourquoi on à cette erreur alors qu'on veux faire du Early binding en VBA catia
https://v5vb.wordpress.com/2010/07/29/restricted-interfaces/
Ici c'est bien expliqué pourquoi on à cette erreur alors qu'on veux faire du Early binding en VBA catia
https://v5vb.wordpress.com/2010/07/29/restricted-interfaces/
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Sujets similaires
» macro pour recupérer les dimensions de la boite englobante dans un fichier texte ou excel
» Dessiner dans un Drawing par macro
» Macro pour compter les objet dans un corps principal
» Créer et insérer une progress bar dans une macro
» DRAWING - Cartouche personnalisé - Récupérer infos part pour ajout dans le cartouche
» Dessiner dans un Drawing par macro
» Macro pour compter les objet dans un corps principal
» Créer et insérer une progress bar dans une macro
» DRAWING - Cartouche personnalisé - Récupérer infos part pour ajout dans le cartouche
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|