Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Erzeugen von Linien aus Punkten

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:  Erzeugen von Linien aus Punkten (371 mal gelesen)
noxx
Mitglied
Steuerzahler


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

Beiträge: 801
Registriert: 13.12.2004

Win7 (i7-6920, 32gb,quadro m1000m)
NX 10

erstellt am: 19. Jan. 2006 11:37    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

ist es irgenwie möglich, per Makro automatisch eine Linie zu erzeugen?

Ich habe 4 punkte die ich nacheinander selktieren will, das Makto soll
dann zwischen Punkt 1 und 2 einen neuen Punkt "A" setzen und zwischen Punkt 3 und 4 einen Punkt "B" setzen. Die Linie soll dann zwischen Punkt "A" und "B" erzeugt werden. Geht das ?

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

V5-Maxe
Mitglied
CAD-Konstrukteur, CATIA V5


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

Beiträge: 37
Registriert: 16.06.2005

Windows7 Prof x64
CATIA V5R19
Dell Precision T5500
12GB
NVIDIA Quadro FX 580 512MB

erstellt am: 19. Jan. 2006 11:54    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 noxx 10 Unities + Antwort hilfreich

Hallo noxx,
ja das geht!   

.
.
.
Set hybridShapeLinePtPt1 = hybridShapeFactory1.AddNewLinePtPt(reference1, reference2)
Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveFromPercent(hybridShapeLinePtPt1 , 0.500000, False)
Set hybridShapeLinePtPt2 = hybridShapeFactory1.AddNewLinePtPt(reference3, reference4)
Set hybridShapePointOnCurve2 = hybridShapeFactory1.AddNewPointOnCurveFromPercent(hybridShapeLinePtPt2 , 0.500000, False)
Set hybridShapeLinePtPt3 = hybridShapeFactory1.AddNewLinePtPt(hybridShapePointOnCurve1 , hybridShapePointOnCurve2 )
hybridBody1.AppendHybridShape hybridShapeLinePtPt3
part1.Update
.
.
.
Viel Erfolg damit!

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

noxx
Mitglied
Steuerzahler


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

Beiträge: 801
Registriert: 13.12.2004

erstellt am: 19. Jan. 2006 12:18    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 maxe 

kenne mich leider noch nicht so gut aus mit Makros, kann
ich das was du da geschrieben hast, so in den Makto-Editor
einkopieren ?

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

noxx
Mitglied
Steuerzahler


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

Beiträge: 801
Registriert: 13.12.2004

Win7 (i7-6920, 32gb,quadro m1000m)
NX 10

erstellt am: 19. Jan. 2006 12: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

habe das teil so in den editor eingefügt, bekomme aber nen Fehler 

Sub CATMain()

Set hybridShapeLinePtPt1 = hybridShapeFactory1.AddNewLinePtPt(reference1, reference2)
Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveFromPercent(hybridShapeLinePtPt1 , 0.500000, False)
Set hybridShapeLinePtPt2 = hybridShapeFactory1.AddNewLinePtPt(reference3, reference4)
Set hybridShapePointOnCurve2 = hybridShapeFactory1.AddNewPointOnCurveFromPercent(hybridShapeLinePtPt2 , 0.500000, False)
Set hybridShapeLinePtPt3 = hybridShapeFactory1.AddNewLinePtPt(hybridShapePointOnCurve1 , hybridShapePointOnCurve2 )
hybridBody1.AppendHybridShape hybridShapeLinePtPt3
part1.Update

End Sub

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

V5-Maxe
Mitglied
CAD-Konstrukteur, CATIA V5


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

Beiträge: 37
Registriert: 16.06.2005

Windows7 Prof x64
CATIA V5R19
Dell Precision T5500
12GB
NVIDIA Quadro FX 580 512MB

erstellt am: 19. Jan. 2006 15: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 noxx 10 Unities + Antwort hilfreich

Hallo noxx,
ich habe dir nur den Teil aufgeschrieben, der deine Anfrage betraf.
Am besten Du zeichnest erstmal ein Macro auf:
Tools/Macro/StartRecording
Dann machst Du das, was am Ende rauskommen soll in der richtigen Reihenfolge, und am ende drückst du wieder "Stop"
Los geht es in etwa so:
Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Referenz") 'Hier der Name vom openBody mit den Punkten

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

dann hier die einzelnen Punkte mit Referenzen(reference1,reference2...)' ich weiß ja nicht wie die bei Dir aussehen und heißen

jetzt was schon in der ersten Antwort steht

End Sub

Wenn du Fehler hast, mach ein lesbares Bild davon und häng es mit dran
Gruß

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