---

hallo!
ich habe ein dieses kleine VBA-Porgramm geschrieben das im NC-Bereich eine Aufspannung definiert und eine Schruppoperation einfügt. Das seltsame daran ist: der roughStock lässt sich mit diesem Code hinzufügen. der Befehl für das part hat aber keinerlei auswirkungen.Ich verstehe nicht,warum und hoffe ihr wisst weiter.

Code:

---

Sub catmain()

Dim MfgDoc1 As Document
Set MfgDoc1 = CATIA.ActiveDocument

'----------Process-Definition---------------------------------------------

Dim ActivityRef As AnyObject
Set ActivityRef = MfgDoc1.GetItem("Process")

'-------------Setup1-Def,hier auch die ganzen erzeuger-methoden rein,"setPart.."-----------

Dim Setup2 'As ManufacturingSetup
Dim childs As Activities
Dim child As Activity

If (ActivityRef.IsSubTypeOf("PhysicalActivity")) Then
Dim quantity
  Set childs = ActivityRef.ChildrenActivities
  quantity = childs.Count

  If quantity <= 0 Then
    Exit Sub
  End If
  Dim NumberOfSetup
  NumberOfSetup = 0

Dim I
  For I = 1 To quantity
          Set child = childs.Item(I)
          If (child.IsSubTypeOf("ManufacturingSetup")) Then
                Set Setup2 = child
                NumberOfSetup = NumberOfSetup + 1
                Exit For
          End If
  Next

End If

If NumberOfSetup <= 0 Then
    Exit Sub
End If

Dim prod2  As Product
Set prod2 = Setup2.GetProductInstance

Dim NC As AnyObject
Dim SG As AnyObject

Dim K As Integer

For K = 1 To prod2.Products.Count
     
    If prod2.Products.Item(K).PartNumber = "Workpiece" Then
        Set NC = prod2.Products.Item(K)
        End If
        Next
       
       
        Dim L As Integer
       
        For L = 1 To prod2.Products.Count
       
          If prod2.Products.Item(L).PartNumber = "Stock_Geometry" Then
            Set SG = prod2.Products.Item(L)
           
     
  End If
           
    Next
'------------------DesignPart und wichtige elemente herholen-----------------------------

Dim pa  As PartDocument
Set pa = NC.ReferenceProduct.Parent

Dim part As part
Set part = pa.part

Dim bod  As Bodies
Set bod = part.Bodies

Dim des As AnyObject
Set des = bod.GetItem("heiko")

Dim ebene  As AnyObject
Set ebene = des.HybridShapes.GetItem("Oben")

Dim ursprung As AnyObject
Set ursprung = des.HybridShapes.GetItem("Point.1")

Dim myLine As Line
Set myLine = des.HybridShapes.GetItem("Line.1")
'######################################jetzt stock

Dim pa2 As PartDocument
Set pa2 = SG.ReferenceProduct.Parent

Dim part2 As part
Set part2 = pa2.part

Dim bod2  As Bodies
Set bod2 = part2.Bodies

Dim sto As AnyObject
Set sto = bod2.GetItem("PartBody")

'---------------------Setup einrichten--------------------------------

Call Setup2.MachiningAxisSystem.SetOriginPoint(ursprung, NC)
Call Setup2.MachiningAxisSystem.SetOriginZDirection(0, 0, 1)
Call Setup2.CreateMachine("Mfg3AxisMachine")
Call Setup2.Machine.set_DefaultValues

Call Setup2.SetDesignPart(des, NC)
Call Setup2.SetStock(sto, SG)
Call Setup2.SetSafetyPlane(ebene, NC)

Dim mfgprog As ManufacturingProgram
Set mfgprog = Setup2.GetItem("Manufacturing Program.1")

Dim mfgop As ManufacturingOperation
Set mfgop = mfgprog.AppendOperation("M3xHardMaterial", 1)

'--------------schruppOperation einfügen--------------------------
Dim XX As AnyObject
Set XX = Setup2.GetProductInstance

Call mfgop.SetGeometry("Parts", des, XX, 0)
Call mfgop.SetGeometry("RoughStock", sto, XX, 0)

Call mfgop.SetTool("End Mill D10 Rc0")

End Sub

---

------------------
-Windows 7 64 bit
-Catia V5 r19

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Schon mal probiert statt der Ebene eine Reference davon zu übergeben (so ist es zumindest in der Doku beschrieben)?
Ich empfehle dir mehr aussagekräftige Variablennamen zu verwenden (xx, des, bod sind nicht gerade eindeutig).

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

okay,guter tipp.aber wie wird das konkret gemacht?
habs mal so probiert:

Dim refebene As Reference
Set refebene = part.CreateReferenceFromObject(ebene)

Call mfgop.SetGeometry("RelimitingPlane", refebene, NC, 0) => Fehler 440
Call mfgop.SetGeometry("Parts", des, XX, 0)
Call mfgop.SetGeometry("RoughStock", sto, XX, 0)

------------------
-Windows 7 64 bit
-Catia V5 r19

[Diese Nachricht wurde von adrian83 am 07. Jun. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Wurde die Referenz korrekt erstellt (Watch-Fenster)? AFAIR geht "CreateReferenceFromObject" nur innerhalb eines Parts und nicht in der Baugruppe/Process. (dort nur CreateReference oder Selection ??)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Okay herr Grittmann! ich denke sie haben mit der vermutung recht. zwar sieht man zu der referenz was im watch fenster. aber sie ist nicht wirklich da. ich hab mal versucht,per referenz einen zweiten Stock der Schruppoperation hinzuzufügen -was ja  auch ohne Referenz bereits geklappt hat. Dann habe ich in catia auf die bearbeitungsoperation schrupen geklickt. tatsächlich war da das zeichen für stock lila. habe dort auf analyse geklickt.es waren wirklich zwei stocks aufgelistet, der wo ich per referenz gesetzt habe hatte die bemerkung "notfound"
also wie kann man sauber eine referenz von einem Partbody machen? geht das überhaupt?

==========> Problem umgangen:
3XSurfacic feature erzeugt,und zwar  so:

Code:

---

mfgview.features.add("M3xFeature")
call feature.SetNCGeometry("Parts",myNCPart)
call feature.SetNCGeometry("GuidingElements",myNCPart)

---

[Diese Nachricht wurde von adrian83 am 07. Jun. 2013 editiert.]

[Diese Nachricht wurde von adrian83 am 08. Jun. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP