Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Blechabwicklung: Grenzen in die i-props???

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !
Autor Thema:  Blechabwicklung: Grenzen in die i-props??? (472 mal gelesen)
ctomb
Mitglied



Sehen Sie sich das Profil von ctomb an!   Senden Sie eine Private Message an ctomb  Schreiben Sie einen Gästebucheintrag für ctomb

Beiträge: 185
Registriert: 03.02.2005

IVRS2011
ACADM2011
ein stark angegriffenes Nervenkostüm

erstellt am: 10. Aug. 2005 09:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo mal wieder,
habe grad mal im Forum gestöbert aber keine aktuellen Threads gefunden, deshalb frag ich jetzt einfach mal:

Gibt es denn irgendeine Möglichkeit, die Werte 'Grenzen' einer Blechabwicklung als Parameter oder als I-Prop zu erfassen???
Macht doch irgendwie Sinn, wenn man die Zuschnittmaße in die Stüli hineinmanipuliert bekommt, ohne 'tote' Werte einzuhacken.

Bin über jeden tip(p) hocherfreut.

Danke im Vorraus!

Tom

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

wolfgang.venhoff
Mitglied
Leitung Technik


Sehen Sie sich das Profil von wolfgang.venhoff an!   Senden Sie eine Private Message an wolfgang.venhoff  Schreiben Sie einen Gästebucheintrag für wolfgang.venhoff

Beiträge: 206
Registriert: 15.02.2001

erstellt am: 10. Aug. 2005 11:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ctomb 10 Unities + Antwort hilfreich

Hallo Tom,

schau mal hier die iPropertys Tools von Patrick:
http://hjem.get2net.dk/opad/iProperty%20Collection.htm

hiermit bekommst du in der idw zusätzliche Propertys, unter anderem Länge Breite oder auch die äußeren Abmaße einer Abwicklung.

------------------
--------------------------
Wolfgang Venhoff
Autodesk Inventor Certified Expert

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

R.Pilz
Mitglied
techn. Angestellter


Sehen Sie sich das Profil von R.Pilz an!   Senden Sie eine Private Message an R.Pilz  Schreiben Sie einen Gästebucheintrag für R.Pilz

Beiträge: 1262
Registriert: 15.01.2004

Inventor 2016 2.4
Vault 2016 Basic U1
ACAD2016 SP1
Windows 7 64 bit
Dell Precision Tower 5810
Quadro K2200

erstellt am: 10. Aug. 2005 11:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ctomb 10 Unities + Antwort hilfreich

Hallo Tom,
Also IMHO geht das nur über VBA. Siehe auch hier.
Bin mir nicht sicher, aber ich denke es gibt ein Tool, welches das kann.

------------------
mfg Robert

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

ctomb
Mitglied



Sehen Sie sich das Profil von ctomb an!   Senden Sie eine Private Message an ctomb  Schreiben Sie einen Gästebucheintrag für ctomb

Beiträge: 185
Registriert: 03.02.2005

IVRS2011
ACADM2011
ein stark angegriffenes Nervenkostüm

erstellt am: 10. Aug. 2005 12:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke, das ging schnell . . . werds gleich mal ausprobieren!

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

lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



Sehen Sie sich das Profil von lbcad an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3823
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 10. Aug. 2005 15:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ctomb 10 Unities + Antwort hilfreich

es geht auch so:


-----------------------------------------------------

Public Sub getBoundingBox()

    Dim oDoc As partDocument
    Set oDoc = ThisApplication.ActiveDocument

    Dim oCD As SheetMetalComponentDefinition
    Set oCD = oDoc.ComponentDefinition

    Dim oFP As FlatPattern
    Set oFP = oCD.FlatPattern

    Dim dimX, dimY, dimZ As Double
    Dim sdimXYZ As String
   
    On Error Resume Next
    dimX = Round((oFP.Body.RangeBox.MaxPoint.X - oFP.Body.RangeBox.MinPoint.X) * 10, 3)

    If Err Then
      MsgBox "Abwicklung fehlt!", 16, "Error"
      End
    End If

    dimY = Round((oFP.Body.RangeBox.MaxPoint.Y - oFP.Body.RangeBox.MinPoint.Y) * 10, 3)
    dimZ = Round((oFP.Body.RangeBox.MaxPoint.Z - oFP.Body.RangeBox.MinPoint.Z) * 10, 3)

      'MsgBox ("X= " & CStr(dimX) & " mm" _
              & Chr(10) & "Y= " & CStr(dimY) & " mm" _
              & Chr(10) & "Z= " & CStr(dimZ) & " mm")
             
    sdimXYZ = CStr(dimX) & " x " & CStr(dimY) & " x " & CStr(dimZ)
       
        MsgBox ("Abwicklung :" & vbCrLf & vbCrLf & sdimXYZ & "    mm x mm x mm")
   
    Call IPropEintraege.Property_setzen(oDoc, "Groesse_Abwicklung", CStr(sdimXYZ))
   
    Set oFP = Nothing
    Set oCD = Nothing
    Set oDoc = Nothing
   
End Sub

------------------------------------------------------------

Sub Property_setzen(oDoc As Document, sPropName As String, vPropValue As Variant)
' Belegt eine Property mit einem Wert.
' Ist die Property nicht vorhanden, so wird sie angelegt.

    ' Obtain the PropertySets collection object
    Dim oPropSets As PropertySets
    Set oPropSets = oDoc.PropertySets

 
    Dim bPropertyDa As Boolean
    Dim oProp As Property
   
    bPropertyDa = False
   
   
    ' Iterate through all the PropertySets one by one using for loop
    ' and changing its value if found
    Dim oPropSet As PropertySet
    For Each oPropSet In oPropSets
   
        For Each oProp In oPropSet
            'Debug.Print oProp.Name
            If oProp.Name = sPropName Then
                oProp.Value = vPropValue
                bPropertyDa = True
                Exit For
            End If
        Next
       
    Next
   
 
    'Property anlegen und Wert eintragen
   
    If Not bPropertyDa Then
        'oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add vPropValue, sPropName
        oDoc.PropertySets.Item("User Defined Properties").Add vPropValue, sPropName
    End If
   
    Set oProp = Nothing
    Set oPropSet = Nothing
    Set oPropSets = Nothing
 
End Sub
-------------------------------------------------------------------

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

ctomb
Mitglied



Sehen Sie sich das Profil von ctomb an!   Senden Sie eine Private Message an ctomb  Schreiben Sie einen Gästebucheintrag für ctomb

Beiträge: 185
Registriert: 03.02.2005

IVRS2011
ACADM2011
ein stark angegriffenes Nervenkostüm

erstellt am: 11. Aug. 2005 13:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Cool!
Nochmals danke!

tom

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

lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



Sehen Sie sich das Profil von lbcad an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3823
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 11. Aug. 2005 13:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ctomb 10 Unities + Antwort hilfreich

Danke auch für die U's 

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

ctomb
Mitglied



Sehen Sie sich das Profil von ctomb an!   Senden Sie eine Private Message an ctomb  Schreiben Sie einen Gästebucheintrag für ctomb

Beiträge: 185
Registriert: 03.02.2005

IVRS2011
ACADM2011
ein stark angegriffenes Nervenkostüm

erstellt am: 11. Aug. 2005 13:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Kauft euch was schönes!

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

Stift
Mitglied


Sehen Sie sich das Profil von Stift an!   Senden Sie eine Private Message an Stift  Schreiben Sie einen Gästebucheintrag für Stift

Beiträge: 3
Registriert: 07.03.2002

erstellt am: 04. Mai. 2006 16:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ctomb 10 Unities + Antwort hilfreich

Hallo,

gehört vielleicht nicht hierher aber will ungern nen neuen Thread eröffnen...
Ist das Auslesen der Abmaße auch bei nicht-Blechteilen möglich?
Am besten mit so nem kurzen VBA-Skribt wie das von Lothar 

[Diese Nachricht wurde von Stift am 04. Mai. 2006 editiert.]

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



Projektingenieur Anlagenplanung (m/w/d)
<...
Anzeige ansehenProjektmanagement
ctomb
Mitglied



Sehen Sie sich das Profil von ctomb an!   Senden Sie eine Private Message an ctomb  Schreiben Sie einen Gästebucheintrag für ctomb

Beiträge: 185
Registriert: 03.02.2005

IVRS2011
ACADM2011
ein stark angegriffenes Nervenkostüm

erstellt am: 04. Mai. 2006 16:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Stift,
Also grundsätzlich kannst du alle Modellmaße als Exportparameter kennzeichnen und dann in der StüLi anzeigen lassen (in der Bauteilumgebung einfach auf 'Parameter' klicken und dem entsprechenden Wert hinten ein Häckchen gönnen). Da gibs aber sicherlich 10000 Einträge hier im Forum.
Verschiedene Werte dann zu merknüpfen, um einen Ausdruck wie 'Höhe x Breite x Tiefe' zu bekommen, der dann auch noch intelligent ist, sich also immer aktualisiert, ist ohne weiteres nicht möglich. Sicher gibt es da Möglichkeiten in VBA, aber da bin ich nicht so fit.

tom

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz