| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge |
Autor
|
Thema: Abwicklungsoption mit VB abfragen (1407 mal gelesen)
|
peticeo Mitglied Wirtschaftsinformatiker FH
Beiträge: 162 Registriert: 25.10.2005 Windows 7 64bit Quad X5472 ST 2/12 Teamcenter 8.1
|
erstellt am: 11. Jun. 2007 13:11 <-- editieren / zitieren --> Unities abgeben:
Hallo Freunde wie kann ich per VB2005 expr. die Abwicklungsoption "Ausschnittbereich und Abmasse anzeigen" aktivieren?? (Siehe Attachement) Das brauche ich für ältere Dateien. Danke für die Hilfe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Oliver II Mitglied TZ
Beiträge: 206 Registriert: 26.07.2005
|
erstellt am: 11. Jun. 2007 13:50 <-- editieren / zitieren --> Unities abgeben: Nur für peticeo
Hallo, ich weis leider nicht was du mi vb2005 meinst, aber du kannst in der V19 über folgenden Weg diese Werte abfrangen. Du must in der Variablentabelle zwei name offenlegen und zwar: Abwicklung_x_Schnittgröße und Abwicklung_y_Schnittgröße. In der Draft gibst du einen Legendentext mit folgenden eintrag an: %{Abwicklung_x_Schnittgröße|*.psm}%{Abwicklung_y_Schnittgröße|*.psm} wobei das * für den Namen des Blechteiles steht. Beim plazieren des Legendentext auf der Zeichnung bekommst du dann die max Abmaße des Bleches. Du kannst auch diese offengelegten Maße zum Beispiel in die Stückliste aufnehmen, oder einen separaten eintrag im Schnriftkopf angeben. MfG Oliver II Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
modeng Ehrenmitglied V.I.P. h.c.
Beiträge: 7061 Registriert: 10.12.2003
|
erstellt am: 11. Jun. 2007 14:09 <-- editieren / zitieren --> Unities abgeben: Nur für peticeo
Moin, direkt geht's AFAIK nicht weil dafuer kein eigener Command existiert. Aber es gibt da noch folgende Methoden/Objekte <objSheetMetal>...SetDefaultCutSizeValues() <objSheetMetal>...GetDefaultCutSizeValues()
<objSheetMetal>.FlatPatternModels.Item(1)...GetCutSizeValues() <objSheetMetal>.FlatPatternModels.Item(1)...SetCutSizeValues()
Letztere hat auch ein Argument zum Ein-Ausschalten der 'Use default ...' modeng ------------------ Unser Unwissen erobert immer weitere Welten. (S.J. Lec) [Diese Nachricht wurde von modeng am 11. Jun. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
peticeo Mitglied Wirtschaftsinformatiker FH
Beiträge: 162 Registriert: 25.10.2005 Windows 7 64bit Quad X5472 ST 2/12 Teamcenter 8.1
|
erstellt am: 11. Jun. 2007 14:14 <-- editieren / zitieren --> Unities abgeben:
Danke Oliver Zitat: ich weis leider nicht was du mi vb2005 meinst ..
vb2005 heisst Visual Basic 2005.net ! Ich müsste für alte Dokumenten ein Makro schreiben und weiss nicht welche Methode ich hierzu anwenden soll. Gruss Peticeo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Oliver II Mitglied TZ
Beiträge: 206 Registriert: 26.07.2005
|
erstellt am: 11. Jun. 2007 14:26 <-- editieren / zitieren --> Unities abgeben: Nur für peticeo
Sorry hab ich keine Ahnung von, ich lass solche Sachen von unserem Admin programmieren. Wir sagen ihm nur was er machen soll! Vieleicht gibt es fertige Makros die etwas ähnliches durchführen , aber was man leicht anpassen kann! MfG Oliver II Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
peticeo Mitglied Wirtschaftsinformatiker FH
Beiträge: 162 Registriert: 25.10.2005 Windows 7 64bit Quad X5472 ST 2/12 Teamcenter 8.1
|
erstellt am: 11. Jun. 2007 15:37 <-- editieren / zitieren --> Unities abgeben:
Hallo Modeng Danke, doch ich kommen immer noch nicht (viel) weiter. Wie muss ich mein objSheetMetal-Objekt deklarieren? Was mache ich falsch? Dim mPart As SolidEdgeFramework.SolidEdgeDocument = App.ActiveDocument Dim objVar As SolidEdgeFramework.VariableList=mPart.Variables.query("*") ich bitte um Hilfeeeee
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
modeng Ehrenmitglied V.I.P. h.c.
Beiträge: 7061 Registriert: 10.12.2003
|
erstellt am: 11. Jun. 2007 16:29 <-- editieren / zitieren --> Unities abgeben: Nur für peticeo
Moin, ... hab' kein VB.NET daher nur als VB6 coding und obiges Sample war nicht vollstaendig: Dim x As Double Dim y As Double Dim bShow As Boolean Dim bAlarmx As Boolean Dim bALarmy As Boolean Dim bUse As Boolean Dim UOM As UnitsOfMeasure Dim mSM As SheetMetalDocument Dim mFP As FlatPattern ' Set mSM = mApp.ActiveDocument Set UOM = mSM.UnitsOfMeasure Set mFP = mSM.FlatPatternModels.Item(1).FlatPatterns.Item(1) ' ' aktuelle Werte holen Call mSM.FlatPatternModels.Item(1).GetCutSize(x, y) MsgBox "X " & x & " x Y " & y ' ' Grenzwerte holen Call mFP.GetCutSizeValues(x, y, bShow, bAlarmx, bALarmy, bUse) MsgBox "X " & x & " x Y " & y ' ' free objects ... HTH modeng ------------------ Unser Unwissen erobert immer weitere Welten. (S.J. Lec) [Diese Nachricht wurde von modeng am 11. Jun. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
peticeo Mitglied Wirtschaftsinformatiker FH
Beiträge: 162 Registriert: 25.10.2005 Windows 7 64bit Quad X5472 ST 2/12 Teamcenter 8.1
|
erstellt am: 12. Jun. 2007 13:42 <-- editieren / zitieren --> Unities abgeben:
Danke Modeng für die es in VB.net brauchen: Dim mApp As SolidEdgeFramework.Application = GetObject(, "solidedge.application") Dim mSM As SolidEdgePart.SheetMetalDocument = mApp.ActiveDocument Dim mFP As SolidEdgePart.FlatPattern = mSM.FlatPatternModels.Item(1).FlatPatterns.Item(1) Dim x, y As Double Dim bShow, bAlarmx, bAlarmy, bUse As Boolean 'aktuellen Wert holen Call mSM.FlatPatternModels.Item(1).GetCutSize(x, y) MsgBox(x & " x " & y) 'Grenzwert holen Call mFP.GetCutSizeValues(x, y, bShow, bAlarmx, bAlarmy, bUse) MsgBox(x & " x " & y & " | " & bShow & " | " & bAlarmx & " | " & bAlarmy & " | " & bUse) 'Wert setzen Call mFP.SetCutSizeValues(x, y, True, False, False, True) ... Peticeo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |