Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Plane Punkt Linien 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:  Plane Punkt Linien erstellen (4913 mal gelesen)
Sk89
Mitglied
Studentin


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

Beiträge: 29
Registriert: 19.05.2010

Windows XP x64
CATIA V5 R19
VBA 6.5
VB

erstellt am: 17. Aug. 2010 08: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

Guten Morgen,

Ich habe einen Körper (Platte) auf dem 4 Bohrungen sind (2Bohrungen mit jeweils einem Pattern). Jetzt brauch ich eine Ebene auf der Platte, ein Punkt pro Bohrung und eine Achse pro Bohrung.

Die Ebene kann ich erzeugen, jedoch gibt es bei den Linien und Punkten Probleme.

Hier das Makro für die Ebene:

Code:
Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = BT.HybridShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = BT.HybridBodies

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

Dim hybridShapePlaneOffset1 As HybridShapePlaneOffset
Set hybridShapePlaneOffset1 = hybridShapeFactory1.AddNewPlaneOffset(Flaeche3, 0, True)

hybridBody1.AppendHybridShape hybridShapePlaneOffset1

BT.InWorkObject = hybridShapePlaneOffset1

BT.Update


Für den Punkt hab ich zur Zeit das:

Code:
Dim reference3 As Reference
Set reference3 = BT.CreateReferenceFromObject(Bohrungeins.Sketch.GeometricElements.Item(2))

Dim re3 As Plane
Set re3 = hybridBodies1.Item("Weitergabeelemente").HybridShapes.Item(1)


Dim ref3 As Reference
Set ref3 = BT.CreateReferenceFromObject(re3)

Dim hybridShapePointCenter1 As HybridShapePointCenter
Set hybridShapePointCenter1 = hybridShapeFactory1.AddNewPointOnPlaneWithReference(ref3, reference3, 0, 1)
hybridBody1.AppendHybridShape hybridShapePointCenter1

part1.InWorkObject = hybridShapePointCenter1

part1.Update


Das was kursiv geschrieben ist geht nicht, da kommt die Meldung
"Type mismatch".

und für die Linien hab ich noch gar keine Lösung.

Lg Steffi

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

DanielFr.
Moderator
Manager


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

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 17. Aug. 2010 08: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 Nur für Sk89 10 Unities + Antwort hilfreich

Hallo Steffi,

da ich nicht ganz verstehe was du machen willst versuche ich es mal in meine Worte zu fassen.

Du hast eine Bohrplatte. Jetzt willst du auf einer Seite dieser Platte eine Ebene erstellen mit dem  Offset 0! Wie kommst du auf diese Seite der Platte? Lässt du den Anwender die Referenzfläche selektieren? Theoretisch kann ja CATIA auf jeder Seite deiner Platte (also 4 Seiten) eine Ebene erstellen. Jetzt willst du auf der Seite auf der du die Ebene erstellst hat Bohrungsmittelpunkte (auf der Fläche) haben. Ich würde jedoch Achsen (die willst du ja so und so haben) erzeugen und diese dann einzeln mit der Ebene verschneiden. Dies führt exakt zu den Punkten die du benötigst!

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

Sk89
Mitglied
Studentin


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

Beiträge: 29
Registriert: 19.05.2010

Windows XP x64
CATIA V5 R19
VBA 6.5
VB

erstellt am: 17. Aug. 2010 08:49    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


Platte.JPG

 
Der Anwender muss am Anfang des Makros die Ebene (Flaeche3)auswählen und danach werden die Bohrungen erstellt.

Nun brauch ich noch die Plane (Flaeche3) und 4 Punkte und 4 Achsen von der Bohrung, um später Bedigungen setzen zu können. Das Ganze soll unter das Geo. Set "Weitergabeelemente" gelegt und wenn möglich noch pupliziert werden.

Im Anhang befindet sich die Platte.

Lg steffi

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

Sk89
Mitglied
Studentin


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

Beiträge: 29
Registriert: 19.05.2010

Windows XP x64
CATIA V5 R19
VBA 6.5
VB

erstellt am: 17. Aug. 2010 09: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

Bin eben durch ein Geistesblitz weitergekommen ;-)
Jetzt hab ich die 2 Punkte und 2 Achsen von den Bohrungen aber die von den Pattern fehlen noch.

Hier der Code:

Code:
Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = BT.HybridShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = BT.HybridBodies

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

Dim hybridShapePlaneOffset1 As HybridShapePlaneOffset
Set hybridShapePlaneOffset1 = hybridShapeFactory1.AddNewPlaneOffset(Flaeche3, 0, True)

hybridBody1.AppendHybridShape hybridShapePlaneOffset1

BT.InWorkObject = hybridShapePlaneOffset1

BT.Update

hybridShapePlaneOffset1 = Plane

'Punkt von Bohrungeins

Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(0#, 0#, 0#)

Dim hole1 As Hole
Set hole1 = Bohrungeins

Set sketch1 = hole1.Sketch

Dim reference1 As Reference
Set reference1 = BT.CreateReferenceFromObject(sketch1)

hybridShapePointCoord1.PtRef = reference1

Dim axisSystems1 As AxisSystems
Set axisSystems1 = BT.AxisSystems

Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("Bezugsachsensystem")

Dim reference2 As Reference
Set reference2 = BT.CreateReferenceFromObject(axisSystem1)

hybridShapePointCoord1.RefAxisSystem = reference2


Set hybridBodies1 = BT.HybridBodies


Set hybridBody1 = hybridBodies1.Item("Weitergabeelemente")

hybridBody1.AppendHybridShape hybridShapePointCoord1

BT.InWorkObject = hybridShapePointCoord1

BT.Update


'Punkt von BohrungsZwei

Dim hybridShapePointCoord2 As HybridShapePointCoord
Set hybridShapePointCoord2 = hybridShapeFactory1.AddNewPointCoord(0#, 0#, 0#)

Dim hole2 As Hole
Set hole2 = BohrungZwei


Set sketch2 = hole2.Sketch

Dim reference3 As Reference
Set reference3 = BT.CreateReferenceFromObject(sketch2)

hybridShapePointCoord2.PtRef = reference3

Dim reference4 As Reference
Set reference4 = BT.CreateReferenceFromObject(axisSystem1)

hybridShapePointCoord2.RefAxisSystem = reference4

hybridBody1.AppendHybridShape hybridShapePointCoord2

BT.InWorkObject = hybridShapePointCoord2

BT.Update

Dim reference5 As Reference
Set reference5 = BT.CreateReferenceFromObject(Plane)

Dim reference6 As Reference
Set reference6 = BT.CreateReferenceFromObject(hybridShapePointCoord1)

Dim hybridShapeLineNormal1 As HybridShapeLineNormal
Set hybridShapeLineNormal1 = hybridShapeFactory1.AddNewLineNormal(reference5, reference6, 0#, 20#, False)

hybridBody1.AppendHybridShape hybridShapeLineNormal1

BT.InWorkObject = hybridShapeLineNormal1

BT.Update


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

DanielFr.
Moderator
Manager


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

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 17. Aug. 2010 12:29    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 Sk89 10 Unities + Antwort hilfreich


CreateAxisLineAndPoint_v1.rar

 
Hallo Steffi  ,

so einfach ist die ganze Sache nicht. Es handelt sich bei einem RecPattern ja nur um eine Kopie die keine Information über ihr physisches Aussehen hat. D.h. du kannst die Achse nicht direkt auf die RecPattern Instanz erstellen sondern musst den Umweg über den BRep Namen der Zylinderfläche gehen. Klingt ein wenig kompliziert....ist noch viel kryptischer  .

Anbei mal mein Beispiel. Es ist ein Part (R19) enthalten. Hier ist die Ebene schon erstellt, zwei Bohrungen definiert und zwei Pattern als Features im Baum. Es wird von jeder Bohrung (auch den gepatterten) eine Achse erstellt die wiederum mit der Ebene verschnitten wird, was zu deinem Punkt führt. Das Ganze wird im Anschluss noch Publiziert. Hierzu ist die *.bas Datei im Archiv enthalten. Diese kannst du im VBA-Editor über File -> Import in ein Modul (Achtung: Library muss schon erstellt sein) einfügen.

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

tberger
Mitglied
Application Manager CATIA V5 / V6


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

Beiträge: 1385
Registriert: 13.01.2007

WIN 7 64bit
V5R21SP3HF49
3DX/V6 R2016x

erstellt am: 17. Aug. 2010 14: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 Sk89 10 Unities + Antwort hilfreich

Hallo Daniel,

da ist nur ein CATPart drinnen, keine .bas.

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

         tberger@tobeplus.de

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

DanielFr.
Moderator
Manager


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

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 17. Aug. 2010 15:25    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 Sk89 10 Unities + Antwort hilfreich

Hallo Thomas,

kann nicht sein bei mir ist da auch ne *.bas drinnen  . Das ist aber extrem komisch? Kann mal jemand anders schauen ob er die *.bas findet? Egal ich lade einfach den Code hier rein :-)

Code:

Sub CATMain()

    'by Daniel Frauenrath
    '17.08.2010

    'DEKLARIERUNGEN
    Dim intPartDocObj As PartDocument
    Dim intPartObj As Part
    Dim intProdObj As Product
    Dim intHybShapFacObj As HybridShapeFactory
    Dim intHoleBodyObj As Body
    Dim intShapesObj As Shapes
    Dim intHoleObj As Object
    Dim intHoleRefObj As Reference
    Dim intAxisLineObj As HybridShapeAxisLine
    Dim intHybBodiesObj As HybridBodies
    Dim intHybBodyObj As HybridBody
    Dim intHybShapesObj As HybridShapes
    Dim intInitialPlaneObj As HybridShapePlaneOffset
    Dim intIntersectObj As HybridShapeIntersection
    Dim intAxisRefInterObj As Reference
    Dim intPlaneRefInterObj As Reference
    Dim intPubliRefObj As Reference
    Dim intPublicationsObj As Object
    Dim intPubliObj As Publication

    'BENÖTIGTE OBJECTE
    Set intPartDocObj = CATIA.ActiveDocument
    Set intPartObj = intPartDocObj.Part
    Set intHybShapFacObj = intPartObj.HybridShapeFactory
    Set intHoleBodyObj = intPartObj.Bodies.Item("Body.BOHRUNGEN")
    Set intShapesObj = intHoleBodyObj.Shapes
    Set intHybBodiesObj = intPartObj.HybridBodies
    Set intHybBodyObj = intHybBodiesObj.Item("WEITERGABEGEOMETRIE__")
    Set intHybShapesObj = intHybBodyObj.HybridShapes
    Set intInitialPlaneObj = intHybShapesObj.Item("Plane.INITIAL_PLANE_HOLES")
    Set intProdObj = intPartObj.Parent.Product
    Set intPublicationsObj = intProdObj.Publications
   
    'PUBLIKATION EBENE
    Set intPubliRefObj = intProdObj.CreateReferenceFromName(intProdObj.Name & "/!" & intInitialPlaneObj.Name)
    Set intPubliObj = intPublicationsObj.Add(intInitialPlaneObj.Name)
    intPublicationsObj.SetDirect CStr(intInitialPlaneObj.Name), intPubliRefObj
   
    'REFERENZ AUF EBENE ERSTELLEN
    Set intPlaneRefInterObj = intPartObj.CreateReferenceFromObject(intInitialPlaneObj)
   
    'SCHLEIFE ZUR ERSTELLUNG VON ACHSEN UND PUNKTEN
    For Each intHoleObj In intHoleBodyObj.Shapes
        'TYP ABFRAGE UM REFERENZELEMENT ZU LESEN
        If TypeName(intHoleObj) = "Hole" Then
            Set intHoleRefObj = intPartObj.CreateReferenceFromObject(intHoleObj)
        Else
            Set intHoleRefObj = GetAxisReferenceFunc(intPartObj, intHoleObj)
        End If
       
        'ACHSE DURCH BOHRUNG ERSTELLEN
        Set intAxisLineObj = intHybShapFacObj.AddNewAxisLine(intHoleRefObj)
        intAxisLineObj.AxisLineType = 1
        intAxisLineObj.Name = "Axis." & intHoleObj.Name
        intHybBodyObj.AppendHybridShape intAxisLineObj
       
        'VERSCHNEIDUNG = PUNKT ERSTELLEN
        Set intAxisRefInterObj = intPartObj.CreateReferenceFromObject(intAxisLineObj)
        Set intIntersectObj = intHybShapFacObj.AddNewIntersection(intAxisRefInterObj, intPlaneRefInterObj)
        intIntersectObj.PointType = 0
        intHybBodyObj.AppendHybridShape intIntersectObj
        intIntersectObj.Name = "Point." & intHoleObj.Name
       
        'PART UPDATEN
        intPartObj.Update
       
        'PUBLIZIEREN
        Set intPubliRefObj = intProdObj.CreateReferenceFromName(intProdObj.Name & "/!" & intAxisLineObj.Name)
        Set intPubliObj = intPublicationsObj.Add(intAxisLineObj.Name)
        intPublicationsObj.SetDirect CStr(intAxisLineObj.Name), intPubliRefObj
       
        Set intPubliRefObj = Nothing
       
        Set intPubliRefObj = intProdObj.CreateReferenceFromName(intProdObj.Name & "/!" & intIntersectObj.Name)
        Set intPubliObj = intPublicationsObj.Add(intIntersectObj.Name)
        intPublicationsObj.SetDirect CStr(intIntersectObj.Name), intPubliRefObj
       
    Next
   
    'AUSGABE
    MsgBox "Das Makro wurde erfolgreich beendet", vbInformation, "MAKRO BEENDET"

End Sub

Private Function GetAxisReferenceFunc(ByVal uebPartObj As Part, ByVal uebPatternObj As RectPattern) As Reference

    'DEKLARATIONEN
    Dim intPatternRefObj As Reference
    Dim intPatternModelEleObj As ModelElement
    Dim intHoleModelEleObj As ModelElement
    Dim intSketchModelEleObj As ModelElement
    Dim intPatternNameStr As String
    Dim intHoleNameStr As String
    Dim intSketchNameRAWStr As String
    Dim intSketchNameSEMIStr() As String
    Dim intSketchCountLng As Long
    Dim intSketchNameStr As String
    Dim intParentObj As Object
    Dim intRefStr As String
   
    'MODEL ELEMENT OBJEKT HOLEN
    Set intModelElementObj = uebPatternObj.GetItem("ModelElement")
    Set intHoleModelEleObj = uebPatternObj.ItemToCopy.GetItem("ModelElement")
    Set intSketchModelEleObj = uebPatternObj.ItemToCopy.Sketch.GetItem("ModelElement")
   
    'NAMEN AUSLESEN
    intPatternNameStr = intModelElementObj.InternalName
    intHoleNameStr = intHoleModelEleObj.InternalName
    intSketchNameRAWStr = intSketchModelEleObj.InternalName
    intSketchNameSEMIStr = Split(intSketchNameRAWStr, ".")
    intSketchCountLng = CLng(intSketchNameSEMIStr(UBound(intSketchNameSEMIStr)))
    intSketchNameStr = intSketchNameSEMIStr(0) & "." & CStr(intSketchCountLng + 1)
   
    'PARENT AUSLESEN
    Set intParentObj = uebPartObj.MainBody.Shapes.Item(2)

    'REFERENZ ERSTELLEN
    intRefStr = "RSur:(Face:(Brp:(" & intPatternNameStr & "_ResultOUT;1-0:(Brp:(" & intHoleNameStr & ";0:(Brp:(" & intSketchNameStr & ";3)))));None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)"
    Set intPatternRefObj = uebPartObj.CreateReferenceFromBRepName(intRefStr, intParentObj)
   
   
    Set GetAxisReferenceFunc = intPatternRefObj
End Function



------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

Christian.O
Mitglied
Konstrukteur


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

Beiträge: 1212
Registriert: 17.07.2009

erstellt am: 17. Aug. 2010 15: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 Nur für Sk89 10 Unities + Antwort hilfreich


Bas_Datei.jpg

 
Servus,

Zitat:
Original erstellt von DanielFr.:
...Kann mal jemand anders schauen ob er die *.bas findet?

Datei ist vorhanden. (siehe Bild)

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

tberger
Mitglied
Application Manager CATIA V5 / V6


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

Beiträge: 1385
Registriert: 13.01.2007

WIN 7 64bit
V5R21SP3HF49
3DX/V6 R2016x

erstellt am: 17. Aug. 2010 15:56    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 Sk89 10 Unities + Antwort hilfreich


Unbenannt.JPG

 
Dann stehts jetzt 1:1 

Ich kann so oft öffnen und extracten wie ich will, da kommt nüscht mehr ...

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

         tberger@tobeplus.de

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: 17. Aug. 2010 16:33    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 Sk89 10 Unities + Antwort hilfreich

In E-Mails wird eine *.bas als Virus erkannt vielleicht auch beim entpacken?

------------------
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

DanielFr.
Moderator
Manager


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

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 17. Aug. 2010 16:42    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 Sk89 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von tberger:
Dann stehts jetzt 1:1  

Ich kann so oft öffnen und extracten wie ich will, da kommt nüscht mehr ...



Hallo Thomas,

vielleicht kennt ja PowerAchiver 2001 dieses Format noch nicht weil die Software so alt ist  . Nimm doch mal WinRar bzw. gleich 7zip her  . Ist ja auch egal ich habe den Code ja gepostet    und mehr war in der *.bas auch nicht drinnen.

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

tberger
Mitglied
Application Manager CATIA V5 / V6


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

Beiträge: 1385
Registriert: 13.01.2007

WIN 7 64bit
V5R21SP3HF49
3DX/V6 R2016x

erstellt am: 17. Aug. 2010 17: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 Nur für Sk89 10 Unities + Antwort hilfreich

Jaja, man muss in der Firma nehmen was einem installiert wird. Zu Hause habe ich auch kein Problem und sehe zwei Dateien.

Ich nehme eher an, dass in unserer Firma ein "Internet-Polizist" (wir haben den Russen) schön brav alles rausfischt, was anrüchig sein könnte. Alle Kurzfilmchen etc. hat er bisher auch erwischt 

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

         tberger@tobeplus.de

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

DanielFr.
Moderator
Manager


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

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 17. Aug. 2010 17: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 Sk89 10 Unities + Antwort hilfreich

Hallo zusammen,

ja Henry hatte wohl recht mit der Sicherheit. Unser Polizist machst solche bösen Sachen aber nicht  obwohl er auch aus dem selben Land wie dein ist  . Ich füttere ihn immer schön mit Spam dann hat er keine Zeit sich um meine Sachen zu kümmern 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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