Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Fill erzeugen

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:  Fill erzeugen (622 mal gelesen)
AL-Fonse
Mitglied
Entwicklungsingenieur


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

Beiträge: 37
Registriert: 23.02.2010

Win Vista<P>CatiaV5 R16 R19

erstellt am: 11. Mrz. 2010 14:07    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

Servus!

Ich habe mit dem Macro-Recorder die Erzeugung eines Fills auf Basis eines Intersects aufgenommen.

Code:
______________________________________________________
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeIntersection1)

hybridShapeFill1.AddBound reference1
_______________________________________________________

Lass ich aber das Macro ablaufen kommt eine Fehlermeldung und ich verstehe einfach nicht woran das leigt!

Grias
AL-Fonse

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

Jens Hansen
Mitglied
Senior Consult


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

Beiträge: 1055
Registriert: 05.08.2000

Win7
CATIA V5 R19
VB.Net
C#

erstellt am: 11. Mrz. 2010 14:19    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 AL-Fonse 10 Unities + Antwort hilfreich

Hallo,
wie lautet denn die Fehlermeldung??????????
An welcher Zeile im Makro genau springt denn dann der Debugger hin (wenn man die Frage mit OK beantwortet, ob man das Script bearbeiten möchte).

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Homepage von Jens Hansen
Kochbuch - CATIA V5 automatisieren

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

AL-Fonse
Mitglied
Entwicklungsingenieur


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

Beiträge: 37
Registriert: 23.02.2010

Win Vista<P>CatiaV5 R16 R19

erstellt am: 11. Mrz. 2010 14:28    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!

Diese Hilfe bekomme ich bei der Fehlermeldung...

Automation error (Error 440)
When you access Automation objects, specific types of errors can occur. This error has the following cause and solution:
An error occurred while executing a method or getting or setting a property of an object variable. The error was reported by the application that created the object.
Check the properties of the Err object to determine the source and nature of the error. Also try using the On Error Resume Next statement immediately before the accessing statement, and then check for errors immediately following the accessing statement.

...Daraus werde ich aber leider nicht schlau!

Grias

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

V5Playaz
Mitglied
Dipl.-Ing (BA)


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

Beiträge: 447
Registriert: 12.07.2005

DELL PRECISION 390
3,25 GB RAM
WIN XP PRO SP2
CATIA V5 R16-19
Delmia V5 R19
VB6, VB2008
Adobe Acrobat 9 Pro Extended

erstellt am: 11. Mrz. 2010 15: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 Nur für AL-Fonse 10 Unities + Antwort hilfreich

Kannst du mal deinen Code bereit stellen und sagen an welcher Stelle der Fehler auftritt.

Sonst kann dir schlecht geholfen werden.

Grüsse Dominik

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

AL-Fonse
Mitglied
Entwicklungsingenieur


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

Beiträge: 37
Registriert: 23.02.2010

Win Vista<P>CatiaV5 R16 R19

erstellt am: 11. Mrz. 2010 15:53    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

Servus!

Anbei die Aufnahme...

Code:
________________________________________________________________
Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridShapeSpline1 As HybridShapeSpline
Set hybridShapeSpline1 = hybridShapeFactory1.AddNewSpline()

hybridShapeSpline1.SetSplineType 0

hybridShapeSpline1.SetClosing 0

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("CuttingPlanes")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapes1.Item("Point.142")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapePointCoord1)

hybridShapeSpline1.AddPointWithConstraintExplicit reference1, Nothing, -1#, 1, Nothing, 0#

Dim hybridShapePointCoord2 As HybridShapePointCoord
Set hybridShapePointCoord2 = hybridShapes1.Item("Point.141")

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapePointCoord2)

hybridShapeSpline1.AddPointWithConstraintExplicit reference2, Nothing, -1#, 1, Nothing, 0#

Dim hybridShapePointCoord3 As HybridShapePointCoord
Set hybridShapePointCoord3 = hybridShapes1.Item("Point.140")

Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapePointCoord3)

hybridShapeSpline1.AddPointWithConstraintExplicit reference3, Nothing, -1#, 1, Nothing, 0#

Dim hybridShapePointCoord4 As HybridShapePointCoord
Set hybridShapePointCoord4 = hybridShapes1.Item("Point.143")

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapePointCoord4)

hybridShapeSpline1.AddPointWithConstraintExplicit reference4, Nothing, -1#, 1, Nothing, 0#

Dim reference5 As Reference
Set reference5 = part1.CreateReferenceFromObject(hybridShapePointCoord1)

hybridShapeSpline1.AddPointWithConstraintExplicit reference5, Nothing, -1#, 1, Nothing, 0#

hybridBody1.AppendHybridShape hybridShapeSpline1

part1.InWorkObject = hybridShapeSpline1

part1.Update

Dim hybridShapeFill1 As HybridShapeFill
Set hybridShapeFill1 = hybridShapeFactory1.AddNewFill()

Dim reference6 As Reference
Set reference6 = part1.CreateReferenceFromObject(hybridShapeSpline1)

hybridShapeFill1.AddBound reference6  'hier steigt´s aus!!!!!!!!!!!

hybridShapeFill1.Continuity = 0

hybridBody1.AppendHybridShape hybridShapeFill1

part1.InWorkObject = hybridShapeFill1

part1.Update

End Sub
________________________________________________________________________________________

es ist auch egal, ob die Boundary ein Intersect (welcher eine geschlossene Kurve) ist, es steigt immer an der gleichen Stelle aus!

Grias

AL-Fonse

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

HoBLila
Mitglied
Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx


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

Beiträge: 1118
Registriert: 29.05.2008

DELL PRECISION T3500
Intel(R) Xeon(R) CPU W3540 @ 2.93GHz
12285 MB RAM
NVIDIA Quadro FX 1800
Microsoft Windows 7 Enterprise Service Pack 1
CATIA V5 R19 SP09 HF69
VB6.5
CAA RADE CDC

erstellt am: 11. Mrz. 2010 21:24    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 AL-Fonse 10 Unities + Antwort hilfreich

Könntest Du das Beispiel-Part anhängen?

Denn das Makro ist ja genau auf ein Part zugeschnitten.

Erste Vermutung: hybridShapeSpline1.SetClosing 0 könnte falsch sein und den Spline doch nicht schließen.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

AL-Fonse
Mitglied
Entwicklungsingenieur


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

Beiträge: 37
Registriert: 23.02.2010

Win Vista<P>CatiaV5 R16 R19

erstellt am: 12. Mrz. 2010 08:08    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!

Ich wollte wieder das Bsp-Part erzeugen und dazu auch die Macro-Aufnahme und siehe da jetzt funktioniert auch das Macro.
Habe zwar keine Ahnung warum, aber Hauptsache s`läuft!
Aber nochmals Danke.

Grias
AL-Fonse

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