Hi Stefan,
im Prinzip ist das auch das mit dem Pointer.
Also ich versuchs nochmal zu erklären:
Ich will über ein Makro einen Part in eine Baugruppe einfügen und über positionieren. Die position soll über deckungsgleichheit von Ebenen des eingefügten Parts und der Baugruppe erfolgen.
Problem: Das Makro läuft zwar ohne Fehler ab aber es passiert nichts nach dem Starten von SWX
. Erst wenn ich testmäsig das Teil von Hand eingefügt habe und wierder gelöscht und dabei im Macro Code die Kennung ´von 1 auf 2 gesetzt hab dann gehts.
Code:
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Part.AddComponent "Z:\MRS-Projekte\SW-Daten\Profil-104-rechts-Fuss.SLDPRT", -0.1, 0.1, 0.1
Part.SelectByID "Vorderansicht", "PLANE", 0, 0, 0
Part.AndSelectByID "Vorderansicht@Profil-104-rechts-Fuss-1@Vario", "PLANE", 0, 0, 0
Part.AddMate 0, 2, 0, 0.131352458646, 0
Part.ClearSelection
Part.SelectByID "Draufsicht", "PLANE", 0, 0, 0
Part.AndSelectByID "Draufsicht@Profil-104-rechts-Fuss-5@Vario", "PLANE", 0, 0, 0
Part.AddMate 0, 2, 0, 3.7, 0
Part.ClearSelection
Part.SelectByID "", "FACE", -0.09, 0.05, -0.01
Part.AndSelectByID "", "EDGE", 0.07, 0.06, -0.015
Part.AddMate 0, -1, 0, 0.17, 0.52
Part.ClearSelection
Bin um jeden Tipp dankbar
Bye
------------------
Rainer Bauer
MR-Solution GmbH
www.mr-s.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP