Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  AddNewIntersection und RectilinearMonoDimFeatEdge

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
Autor Thema:  AddNewIntersection und RectilinearMonoDimFeatEdge (459 mal gelesen)
Sylas
Mitglied



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

Beiträge: 322
Registriert: 19.11.2012

Dell Precision T3500
Intel Xeon W3550 @ 3,07 GHz
12 GB RAM
CATIA V5 R28

erstellt am: 03. Okt. 2017 09:43    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 Zusammen

Ich probiere gerade ein Intersection zwischen zwei Objecte welche  RectilinearMonoDimFeatEdge sind machen - und das geht nicht 

Aber Schritt per Schritt
1. Ein Sketch war gebaut
2. Output vom jedem Edge war gemacht
3. Zwei Referenzen mit .SelectElement2 wurden selektiert
3. Eine Ebene mit .AddNewPlane2Lines aus 2 Referenzen (Outputs) war gebaut  <----- das geht!
4. Ein Intersect mit .AddNewInteresection mit die Referenzen war gebaut <------ das hier fehlt!
Hier ein Auschnitt aus dem Code (muss noch etwas reinigen  ):

Code:
Sub CATMain()
Dim oSel As Selection
Set oSel = CATIA.ActiveDocument.Selection
oSel.Clear
oSel.Search ("(Name=*adapter* & 'Part Design'.Part);all")
Dim oPart1 As Part
Set oPart1 = oSel.Item(1).Value
oSel.Clear
ReDim strArray(0)
strArray(0) = "Edge"
'strArray(0) = "RectilinearBiDimFeatEdge"
Dim sStatus As String
Dim sSel As Object
Dim oRef1 As Reference
Dim oRef2 As Reference
Dim oLN1 As Reference
Dim oLN2 As Reference
Dim oPT As Reference
Dim oREF_PLN As Reference
Dim oAxis1 As Object
Dim oAxis As HybridShapeLinePtDir
Dim oAxis2 As Object
Dim oPLN As HybridShapePlane2Lines
Dim oSK As Sketch
Dim oDir As HybridShapeDirection
Dim oPart2 As Part
Dim oFace As Face
Dim Measure As Measurable
Dim oHSF As HybridShapeFactory
Dim oCutPlane As HybridShapePlaneAngle
Dim oIntersect As HybridShapeIntersection
Dim oHB As HybridBody
Dim measuredplane1 As HybridShapePlane2Lines
Set sSel = oSel


sStatus = sSel.SelectElement2(strArray, "Wskaż pierwszą oś rury", False)
Set oAxis1 = sSel.Item(1).Value

Set oRef1 = oAxis1
oSel.Clear

sStatus = sSel.SelectElement2(strArray, "Wskaż drugą oś rury", False)
Set oAxis2 = sSel.Item(1).Value
'Set oPart2 = oFace.Parent.Parent.Parent.Parent.Parent
Set oRef2 = oAxis2
oSel.Clear

Angle = Get_Angle(oRef1, oRef2) / 2

Set oHSF = oPart1.HybridShapeFactory
oSel.Add oPart1
oSel.Search ("'Part Design'.Sketch;sel")
Set oSK = oSel.Item(1).Value


Set oPLN = oHSF.AddNewPlane2Lines(oRef1, oRef2)                                    '<------- das hier geht!
Set oHB = oPart1.HybridBodies.Item("Konstruktionselemente")
oHB.AppendHybridShape oPLN
oPart1.Update
Set oDir = oHSF.AddNewDirection(oPLN)
Set oIntersect = oHSF.AddNewIntersection(oRef1, oRef2)                              '<------- das hier gibt ein Fehler


Kann mir jemand ein Vorschlag geben, wie kann ich dass auflösen?
P.S. Ich entschuldige mich für mein Deutsch - wie immer 

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