Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Automatisches Ansprechen

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:  Automatisches Ansprechen (550 mal gelesen)
catiawest
Mitglied
Konstrukteur


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

Beiträge: 59
Registriert: 03.05.2010

Catia R18 Sp2
Catia R19 Sp6
Cadenas

erstellt am: 08. Okt. 2010 10:34    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


Automatisches_ansprechen.pdf

 
Hallo,
wie kann ich in einen Geometrischen Set Teilflächen Stücke automatisch miteinander verbinden (Übergang, Tangentenstetig). Eingabe Elemete sollten aber nur die Einzelnen Teilflächen sein, ist so etwas möglich?

Quellcode:

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part

Set hybridShapeFactory1 = part1.HybridShapeFactory
Set hybridShapeBlend1 = hybridShapeFactory1.AddNewBlend()
hybridShapeBlend1.Coupling = 1

Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Referenz")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapeExtractMulti1 = hybridShapes1.Item("K1")

Set reference1 = part1.CreateReferenceFromObject(hybridShapeExtractMulti1)
hybridShapeBlend1.SetCurve 1, reference1
hybridShapeBlend1.SetOrientation 1, 1
Set hybridShapeExtractMulti2 = hybridShapes1.Item("FL.1")

Set reference2 = part1.CreateReferenceFromObject(hybridShapeExtractMulti2)
hybridShapeBlend1.SetSupport 1, reference2
hybridShapeBlend1.SetTransition 1, 1
hybridShapeBlend1.SetContinuity 1, 1
hybridShapeBlend1.SetTrimSupport 1, 1
hybridShapeBlend1.SetBorderMode 1, 1

hybridShapeBlend1.SetTensionInDouble 1, 1, 0.000000, 0.000000
Set hybridShapeExtractMulti3 = hybridShapes1.Item("K2")
Set reference3 = part1.CreateReferenceFromObject(hybridShapeExtractMulti3)
hybridShapeBlend1.SetCurve 2, reference3
hybridShapeBlend1.SetOrientation 2, -1
Set hybridShapeExtractMulti4 = hybridShapes1.Item("FL.2")
Set reference4 = part1.CreateReferenceFromObject(hybridShapeExtractMulti4)
hybridShapeBlend1.SetSupport 2, reference4
hybridShapeBlend1.SetTransition 2, 1
hybridShapeBlend1.SetContinuity 2, 1
hybridShapeBlend1.SetTrimSupport 2, 1
hybridShapeBlend1.SetBorderMode 2, 1
hybridShapeBlend1.SetTensionInDouble 2, 1, 0.000000, 0.000000

hybridBody1.AppendHybridShape hybridShapeBlend1

part1.Update

End Sub

------------------
Mit freundlichen Grüßen
Catiawest

NIHIL IMPOSSIBILE =)

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

gladly
Mitglied



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

Beiträge: 56
Registriert: 02.11.2007

Catia V5R19SP9HF40 64Bit
Windows XP Pro x64

erstellt am: 12. Okt. 2010 08:39    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 catiawest 10 Unities + Antwort hilfreich

Hallo,

ich hätte nur einen Vorschlag wenn eine Situation vergleichbar deinem hier gezeigtem Beispiel vorhanden ist.
Also zu verbindende Flächen müssen die Flächenkanten (für den Blend) Parallel zu einer bestimmten Achse sein (in deinem Fall zur Z glaube ich). Zudem müssen die Flächen in der Richtigen Reihenfolge selektiert werden (oder halt im Set so sortiert sein, das man nur das Set angibt!)

Folgende vorgehensweise:
-Alle Elemente (genau alle -1) Druchlaufen
--Ein Extremum der Rechten Seite des Ersten Teilstückts. Wenn Parallel zur Achse dann ist das kein Punkt sondern die gesamte Kante!
--Ein Extremum der linkten Seite des Zweiten Teilstückts.
--Blend erstellen (man hat ja alles. Kante links Teil Links -> Kante rechts Teil rechts
-Fortfahren mit zweitem Teilstück als Linkes usw...


Aber wie gesagt, geht nur wenn Kanten Parallel zur Achse und die Teilstücke dürfen auch nicht in die Runde gehen, da der Extremum dann ja die Falsche Seite nehmen würde.

mfg

gladly

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