Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Isoparameter erstellen-CATIA V5

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:  Isoparameter erstellen-CATIA V5 (2982 mal gelesen)
Habi Farms
Mitglied


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

Beiträge: 3
Registriert: 16.12.2014

CATIA V5.Version 5-6 Release 2014
Service Pack1, Build Number 24; HotFix29

erstellt am: 16. Dez. 2014 12:16    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 bin neu hier und habe auch in Sachen Makros kaum erfahrung. Ich bitte dies zu berücksichtigen.
Hier zu meiner Frage:

Ich versuche seit einiger Zeit ein Makro zu schreiben doch hänge leider daran, eine isoparametric Curve zu erstellen und in meinen Code einzubinden.
Ich habe leider auch keinerlei Informationen diesbezüglich gefunden.

Wäre super,wenn Ihr mir helfen könntet.

Beste Grüße,

Fabi

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

joehz
Moderator
Freiberuflicher Konstrukteur


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

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 16. Dez. 2014 17:06    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 Habi Farms 10 Unities + Antwort hilfreich

Hallo Fabi,

den Makro-Rekorder schon mal probiert?

Oft bekommst damit eine Idee.

Tschau,
Joe

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

Habi Farms
Mitglied


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

Beiträge: 3
Registriert: 16.12.2014

CATIA V5.Version 5-6 Release 2014
Service Pack1, Build Number 24; HotFix29

erstellt am: 16. Dez. 2014 18:03    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 Joe,

Habe ich schon probiert. Das Ergebnis war eher ernüchternd:

Code:
Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("centre-line")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShape1 As HybridShape
Set hybridShape1 = hybridShapes1.Item("Isoparameter.42")

part1.UpdateObject hybridShape1

part1.UpdateObject hybridShape1

End Sub


In der V5 Automation kann ich unter dem Stichwort "Isoparametric" auch nichts finden.
Geht das denn überhaupt?

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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 16. Dez. 2014 18:12    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 Habi Farms 10 Unities + Antwort hilfreich

Servus
IMHO geht das nicht mit einem Makro (weder Doku, noch Makrorekorder, noch Objektauflösung bringen was sinnvolles).

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

joehz
Moderator
Freiberuflicher Konstrukteur


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

Beiträge: 1057
Registriert: 25.11.2006

Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053

erstellt am: 16. Dez. 2014 18: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 Habi Farms 10 Unities + Antwort hilfreich

Die Aufzeichnung sieht bei mir ähnlich aus.

Eigentlich müsste in der Doku unter Hybridshapes was zu finden sein,
aber - wie der Bernd schon schreibt - da is nix.

Ich muss auch passen.

Tschau,
Joe

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

Habi Farms
Mitglied


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

Beiträge: 3
Registriert: 16.12.2014

CATIA V5.Version 5-6 Release 2014
Service Pack1, Build Number 24; HotFix29

erstellt am: 17. Dez. 2014 21:36    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

Hmm...Da ist natürlich ärgerlich.

Aber danke für die Antworten.

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

manwe23
Mitglied
Konstruktion und Methodenentwicklung


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

Beiträge: 22
Registriert: 14.01.2005

DELL Precision M6400
Core Duo T9600
Quadro FX 3600 1GB
8GB RAM
Windows 7 Professional
CATIA V5 R19 SP3 HF48

erstellt am: 23. Jan. 2015 07: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 Nur für Habi Farms 10 Unities + Antwort hilfreich

Hallo,

einen API-Befehl gibt's dafür nicht, allerdings kann man sich mit folgendem Workaround behelfen:

1. ) Man erstellt mit einem Makro zunächst eine "tote" Kurve. Wie die aussieht ist dabei völlig nebensächlich, hauptsache man bekommt ein Feature "Curve".
2.) Diese "tote" Curve bekommt dann eine Formel zugewiesen, welche den ISO-Parameter über da Wireframe-Feature "isoparamcurve" generiert.

Anbei ein Code-Beispiel wie so was aussehen könnte:


Die Funktion CreateISOCurve benötigt als Input eine Fläche, einen Punkt an dem der ISO-Parameter generiert werden soll und eine Linie welche die Richtung für das jeweilige u oder v darstellt.


Function CreateISOCurve(iSurface, _
                        iPoint, _
                        iDir, _
                        iHybridBody) As Object


    'Strukturpfade generieren (Erstellt den Strukturpfad für den Eintrag in die Formel)
    Dim strSurfacePath As String: strSurfacePath = GetAbsoluteHSFeaturePath(iSurface)
    Dim strPointPath As String: strPointPath = GetAbsoluteHSFeaturePath(iPoint)
    Dim strDirPath As String: strDirPath = GetAbsoluteHSFeaturePath(iDir)

    'Dummy-Kurve erzeugen (z.B. Linie zwischen 2 Punkten)
    Dim oP1 As HybridShapePointCoord
    Dim oP2 As HybridShapePointCoord
    Dim oHSF As HybridShapeFactory
    Set oHSF = oPart.HybridShapeFactory
    Set oP1 = oHSF.AddNewPointCoord(0, 0, 0)
    Set oP2 = oHSF.AddNewPointCoord(10, 0, 0)
    oP1.Compute
    oP2.Compute

    Dim oC1 As HybridShapeLinePtPt
    Set oC1 = oHSF.AddNewLinePtPt(oPart.CreateReferenceFromObject(oP1), oPart.CreateReferenceFromObject(oP2))
    oC1.Compute


    '"Tote" Kurve generieren
    Dim oCurveExplicit
    Set oCurveExplicit = oHSF.AddNewCurveDatum(oPart.CreateReferenceFromObject(oC1))
    oCurveExplicit.Compute
    iHybridBody.AppendHybridShape oCurveExplicit
    oPart.Update

    'ISOParameter erzeugen
    Dim oRelations As Relations
    Set oRelations = oPart.Relations

    Dim oRel_ISOParamCurve As Formula
    Set oRel_ISOParamCurve = oRelations.CreateFormula("ISOCurve", "", oCurveExplicit, "isoparamcurve(" & strSurfacePath & ", " & strPointPath & ", " & strDirPath & ")")
    oPart.Update

    'Kurvenobjekt zurückgeben
    Set CreateISOCurve = oCurveExplicit

End Function

Function GetAbsoluteHSFeaturePath(iFeature) As String

    'Funktion ermittelt rekursiv den Pfad eines Features.

    GetAbsoluteHSFeaturePath = ""

    Dim strParentPath As String
    strParentPath = ""

    Dim oParent
    Set oParent = iFeature
    strParentPath = oParent.Name
    Do
        Set oParent = oParent.Parent

        If TypeName(oParent) = "Part" Then Exit Do
        If oParent.Name <> "HybridShapes" And oParent.Name <> "HybridBodies" Then
            strParentPath = oParent.Name & "\" & strParentPath
        End If

    Loop
    If InStr(1, strParentPath, " ") <> 0 Then
        strParentPath = "`" & strParentPath & "`"
    End If
    GetAbsoluteHSFeaturePath = strParentPath
End Function

Gruß,
Patrick

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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 23. Jan. 2015 18:36    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 Habi Farms 10 Unities + Antwort hilfreich

Servus
Danke für den Code.
Kleiner Verbesserungsvorschlag: statt den "Pfad" zu den Elementen mühsam zu erstellen könntest du auch die Funktion "GetNameToUseInRelation" verwenden.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

manwe23
Mitglied
Konstruktion und Methodenentwicklung


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

Beiträge: 22
Registriert: 14.01.2005

DELL Precision M6400
Core Duo T9600
Quadro FX 3600 1GB
8GB RAM
Windows 7 Professional
CATIA V5 R19 SP3 HF48

erstellt am: 23. Jan. 2015 21:10    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 Habi Farms 10 Unities + Antwort hilfreich

Servus,

Danke für den Tipp, das kannte ich bislang nur bei Parametern 

Gruß,
Patrick

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