Hi Leutz,
ich bin dabei ein Makro zu ändern. Momentan bin ich erstmal damit beschäftigt das Makro so anzupassen damit ich es im VBA Editor bearbeiten kann. Das Makro ist dazu da von einem Bohrmuster eine Zeichnung mit dazugehöriger Bohrtabelle zu erstellen.
An der Stelle, an der die View erzeugt werden sollte stürtzt mir dann immer CATIA ab.
Dim Bohrungsansicht1 As DrawingView
Dim Bohrungsansicht1_GenerativeBehavior1 As DrawingViewGenerativeBehavior
Set Bohrungsansicht1 = drawingViews1.Add("Hilfsansicht_zur_Bohrtabelle")
Set Bohrungsansicht1_GenerativeBehavior1 = Bohrungsansicht1.GenerativeBehavior
Bohrungsansicht1_GenerativeBehavior1.ForceUpdate
Bohrungsansicht1_GenerativeBehavior1.SetAxisSysteme product1, Bohrbezugssystem
Bohrungsansicht1_GenerativeBehavior1.DefineFrontView XAchsenVektor(0), XAchsenVektor(1), XAchsenVektor(2), YAchsenVektor(0), YAchsenVektor(1), YAchsenVektor(2)
'*********nach dieser Zeile kommt "Click OK to Terminate!**********"
Bohrungsansicht1_GenerativeBehavior1.Document = product1
Bohrungsansicht1_GenerativeBehavior1.Update
Bohrungsansicht1.SetViewName "Hilfsansicht_zur_Bohrtabelle", " ", " "
Bohrungsansicht1.Activate
Bohrungsansicht1.X = drawingSheet1.GetPaperWidth / 2
Bohrungsansicht1.Y = drawingSheet1.GetPaperHeight / 2
Bohrungsansicht1.Scale2 = 1
Ich würds gern selbst rausbekommen aber wenn man nich mal die Variablen untersuchen kann dann ist es schwierig,wenn man diesen Befehl zuvor noch nie benutzt hat. Das Programm als CATScript funktioniert einwandfrei.
------------------
Grüße
Christoph
*************************************************
Die Katia am Morgen, bringt dir reichlich Sorgen!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP