Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor .NET
  Schrauben in Mitte von Langloch einfügen

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
Autor Thema:  Schrauben in Mitte von Langloch einfügen (1606 mal gelesen)
BernhardU
Mitglied
Techniker / Konstrukteur / Student


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

Beiträge: 328
Registriert: 17.08.2005

Windows XP SP3
AIP 2011
VS 2005

erstellt am: 04. Sep. 2007 14:57    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 Leute! Ich mochte mir ein Tool schreiben, um Schrauben in die Mitte von Langlöchern einzufügen!

Habe mir das so gedacht, dass ich die zwei Halbkreise des Langloches selektiere und dann nur noch den Schrauben!
Doch ich scheitere schon bei der Vorbereitung!
um den Schrauben unzufügen möchte ich mir in der Hälfte der Raumdiagonale zwischen den Mittelpunkten der beiden Halbkreise einen Punkt erstellen und dann den Mittelpunkt des Einfüge iMates darauf Hängen!
Zum Testen selektiere ich nur ein Halbkreiselement und lese mir die Kante vom einfüge iMate aus gedoch kann ich darauf keine Abhängigkeit vergeben!?

Code:
Dim doc As AssemblyDocument = oapp.ActiveDocument
              Dim f As Edge
For c As Integer = 1 To doc.SelectSet.Count
f = doc.SelectSet(c)
If f.CurveType = CurveTypeEnum.kCircleCurve Then
                    p2 = f.Geometry.center()
                                        Dim oc As ComponentOccurrence = doc.ComponentDefinition.Occurrences.Add("T:\CAD_FILES\InvContent\FBS-0912-03020-A40.ipt", oapp.TransientGeometry.CreateMatrix)
                    For Each idef As iMateDefinition In oc.iMateDefinitions
                        If idef.Type = ObjectTypeEnum.kInsertiMateDefinitionProxyObject Then
                            Dim ix As InsertiMateDefinition = idef
                            Dim ac As Edge
                            ac = ix.Entity
doc.ComponentDefinition.Constraints.AddMateConstraint(f,ac,0,InferredTypeEnum.kInferredPoint,InferredTypeEnum.kInferredPoint)
                            'doc.ComponentDefinition.iMateResults.AddByiMateAndEntity(idef, f)
                            Exit For
                        End If
                    Next
                End If
            End If
        Next



Hat von euch jemand eine Idee warum das nicht klappt? Oder sogar einen einfachren Weg?

Vielen Dank!!

mfg Bernhard

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)2023 CAD.de | Impressum | Datenschutz