Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
   Bohrung mit Userpattern / Benutzermuster erstellen

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:  Bohrung mit Userpattern / Benutzermuster erstellen (1536 mal gelesen)
MarkusK
Mitglied



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

Beiträge: 130
Registriert: 09.08.2002

Dell Precision T5500
Intel Xenon X5560 4x 2,8 GHz
12 GB Ram
NVIDIA Quadro FX 3800
Win XP
Catia V5R19 SP3

erstellt am: 18. Mai. 2009 16:30    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 Leute,

ich versuche gerade eine Bohrbild zu erzeugen.
Und zwar erstelle ich eine Skizze, dann eine Bohrung die ein Punkt der Skizze
als Startpunkt verwendet.
Nun erstelle ich ein Benuztermuster, was (prinzipell) auch noch funktioniert.
Wenn ich vom Benutzermuster (also von der Skizze) nicht alle Punkte verwenden möchte,
versuche ich hier Bohrungen zu deaktivieren.

Hier gibt es Probleme.
Ich habe festgestellt, dass wenn ich ein Userpattern mit einem Makro erstelle dies
nicht richtig aktualisiert ist.
Ich kann zwar auch von hand noch mal alles aktualisieren, aber wenn ich das UserPattern
dann noch mal doppelklicke wird es rot. Und wenn ich das Dialogfenster schließe
ist es erst aktualisiert.

Ab dann kann ich auch über ein Makro einzelne Bohrungen deaktivieren.
Kenn jemand dieses Problem, und weiß wie man es umgehen kann?

Ich arbeite mit VBA R17

hier der Teil des Codes mit dem Locherstellen:

Dim hole1 As Hole
Set hole1 = shapeFactory1.AddNewHoleFromRefPoint(ref1, PF, 10#)

hole1.Type = catSimpleHole

hole1.AnchorMode = catExtremPointHoleAnchor

hole1.BottomType = catFlatHoleBottom

Dim limit1 As Limit
Set limit1 = hole1.BottomLimit

limit1.LimitMode = catOffsetLimit

Dim length5 As Length
Set length5 = hole1.Diameter

length5.Value = 10#

hole1.ThreadingMode = catSmoothHoleThreading

hole1.ThreadSide = catRightThreadSide

Dim length6 As Length
Set length6 = limit1.Dimension

length6.Value = 50#

AP.UpdateObject hole1

Dim userPattern1 As UserPattern
Set userPattern1 = shapeFactory1.AddNewUserPattern(hole1, 1)


userPattern1.AddFeatureToLocatePositions sSketch.Factory2D

AP.UpdateObject userPattern1
AP.Update

userPattern1.DesactivatePosition 1, 0
userPattern1.DesactivatePosition 2, 0
userPattern1.DesactivatePosition 3, 0
userPattern1.DesactivatePosition 4, 0

AP.UpdateObject userPattern1

AP.Update

------------------
Gruss Markus

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