---

Hallo Forum,

ist es möglich mittels vb Positionsdarstellungen in einer Baugruppe zu erstellen.

Gruß

Andreas

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

---

Moin

Ja

Code:

---

Option Explicit

Private Sub PosRepAdd()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oPosRep As PositionalRepresentation
Set oPosRep = oDoc.ComponentDefinition.RepresentationsManager.PositionalRepresentations.Add("MeineNeuePosRep")

End Sub

---

------------------
MfG
Ralf

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

---

Super danke.

Jetzt müsste ich nur noch herausfinden wie man Abhängigkeiten überschreiben kann und in den Positionsdarstellungen Speichern kann.

Gruß Andreas

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

---

Moin

Auch wenn ich glaube das ich das hier bald bereuen werde, mit einer Fluchtend-Abhängigkeit Name "Pos_neu" könnte man den Versatz so überschreiben:

Code:

---

Option Explicit

Private Sub PosRepAdd()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oPosRep As PositionalRepresentation
For Each oPosRep In oDoc.ComponentDefinition.RepresentationsManager.PositionalRepresentations
    If oPosRep.Name = "MeineNeuePosRep" Then Exit For
Next

If oPosRep Is Nothing Then
Set oPosRep = oDoc.ComponentDefinition.RepresentationsManager.PositionalRepresentations.Add("MeineNeuePosRep")
End If

If oDoc.ComponentDefinition.RepresentationsManager.ActivePositionalRepresentation.Name = "MeineNeuePosRep" Then
    Call oDoc.ComponentDefinition.RepresentationsManager.PositionalRepresentations.Item("MeineNeuePosRep").Activate
End If

Dim oConstraint As FlushConstraint
Set oConstraint = oDoc.ComponentDefinition.Constraints.Item("Pos_neu")

If oPosRep.IsConstraintValueOverridden(oConstraint, oConstraint.Offset.Value) Then
Call oPosRep.SetConstraintValueOverride(oConstraint, "150000 mm")
End If

Call oDoc.ComponentDefinition.RepresentationsManager.PositionalRepresentations.Item("MeineNeuePosRep").Activate

oDoc.Save

End Sub

---

------------------
MfG
Ralf

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

---

Film.mp4

Hallo Ralf,

Danke das Du den Code trotzdem gepostet hast, den habe ich für meine zwecke etwas Angepasst.
Was da draus geworden ist kannst Du dir gerne anschauen.

Eins vielleicht noch, sind denn die Sachen irgendwo Dokumentiert wo ich was machen kann, halt wie oder wo finde ich es heraus wenn ich eine Positionsdarstellung erzeugen will.

Zitat:

---

Dim oPosRep As PositionalRepresentation
Set oPosRep =oDoc.ComponentDefinition.RepresentationsManager.PositionalRepresentations.Add("MeineNeuePosRep")

---

Bei meinen Progrämchen fehlt mir noch eins und zwar möchte ich noch bei der Positionsdarstellung
"Frei mit Grenzwert" den Grenzwert in die Abhängigkeit eintragen können. Habe es versucht zu finden, jedoch ohne Erfolg.
Weißt Du wo ich diesen nachsehen kann.

Gruß und nochmals besten dank für die Hilfe.

Andreas

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

---

Hallo

Film kann ich grad nicht gucken (Firewall).

Wenn du die Entwickler-/Programmierungshilfe öffnest (kleines schwarzes Dreieck neben dem Hilfe-Fragezeichen, unter  "weitere Ressourcen") und als Suchbegriff "PositionalRepresentation" eingibst, kommt als Ergebnis auch irgendwas mit "PositionalRepresentation.Members". Dahinter verbirgt sich eine tabellarische Auflistung der Möglichkeiten. Ob und wie man an die Grenzen kommt weiß ich nicht. In meinem 2011er steht nichts dazu, kann aber im 2013er anders sein.

------------------
MfG
Ralf

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

---

Positionsdarstellungen.zip

Morgen,

danke ich habe es geschafft. Jetzt erspare ich mir viel Clickerei. Als nächstes versuche ich die Positionsdarstellungen mit der Übergeordneten Baugruppe zu verknüpfen.

Gruß

Andreas

[Diese Nachricht wurde von Andreas01 am 05. Apr. 2013 editiert.]

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