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