Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Zeichnungsblatt kopieren und einfügen

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:  Zeichnungsblatt kopieren und einfügen (2867 mal gelesen)
Sven2010
Mitglied



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

Beiträge: 56
Registriert: 20.04.2010

V5R19SP3
Hotfix 50

erstellt am: 02. Jun. 2010 16:20    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

Hi Leute,
so, nachdem fast alle meine Scripts durch die Hilfe vieler von euch hier im Forum fertig geworden sind stehe ich vor einem letzten kleinen Problem.

Ich möchte in eine geöffnete Zeichnung ein Detail Sheet einer Referenzzeichnung einfügen (darauf befinden sich diverse Views).

Mein Script:

Sub CATMain()

 
    CATIA.DisplayFileAlerts = False

    ' Set the Drawing document where the view will be pasted
    Dim oDrawingTarget As DrawingDocument
    Set oDrawingTarget = CATIA.ActiveDocument

    ' Open the Source Drawing document
    Dim oDrawingSource As DrawingDocument
    Set oDrawingSource = CATIA.Documents.Open("C:\...\startdrawing_reference_r19.CATDrawing")
   
    ' Fit in window the opened document
    CATIA.ActiveWindow.ActiveViewer.Reframe
   
    ' Retrieve the sheet containing the view to be duplicated
    Dim oSource As DrawingSheet
    Set oSource = oDrawingSource.Sheets.Item("Title Blocks")
   
    ' Create an object of selection for the source document
    Dim oSelectionSource As Selection
    Set oSelectionSource = oDrawingSource.Selection
   

    oSelectionSource.Clear
    oSelectionSource.Add oSource      ' Add the sheet to be duplicated in the selection
    oSelectionSource.Copy
    oSelectionSource.Clear

' Sets new Drawing active
    Call oDrawingTarget.Activate
   
    ' Retrieve the drawing where the sheet will be pasted
    Dim oTarget As DrawingDocument
    Set oTarget = CATIA.ActiveDocument
 
    ' Create an object of selection for the target document
    Dim oSelectionTarget As Selection
    Set oSelectionTarget = oDrawingTarget.Selection
   
    oSelectionTarget.Clear
    ' Add the drawing where the sheet will be pasted in the selection
    oSelectionTarget.Add oDrawingTarget.Sheets.Item(1)
    ' Paste the clipboard
    oSelectionTarget.Paste
    oSelectionTarget.Clear

    ' Fit in window the active document
    CATIA.ActiveWindow.ActiveViewer.Reframe
   
    ' Clear the variables
    Call oDrawingSource.Close
    Set oSelectionTarget = Nothing
    Set oTarget = Nothing
    Set oDrawingTarget = Nothing
    Set oSelectionSource = Nothing
    Set oDrawingSource = Nothing

End Sub

Das Ganze hängt hier (Laufzeitfehler):
    oSelectionTarget.Add oDrawingTarget.Sheets.Item(1)

Ich muss in der aktiven Zeichnung ja eine Selektion erzeugen, um das kopierte Blatt der Referenzzeichnung einfügen zu können.
Mein Zeile ist definitiv falsch da ich keine Ahnung habe was dort hin gehört. Jemand eine Ahnung?

Weiterhin muss ich irgendwie sicherstellen, dass das Blatt als DetailSheet eingefügt wird und nicht als normales Zeichnungsblatt.
Hat da evtl. auch noch jemand eine Idee wie man dies sicherstellen könnte?

Vielen Dank und Gruß
Sven

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

Lusilnie
Mitglied



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

Beiträge: 1486
Registriert: 13.07.2005

erstellt am: 02. Jun. 2010 19:59    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 Sven2010 10 Unities + Antwort hilfreich

Hallo Sven2010,

es ist so einfach, wie ich es mir dachte. Und auch Du warst nah dran! Die Zeile lautet:

Code:
oSelectionTarget.Add oDrawingTarget.Sheets
Da der Typ des Sheets vorgegeben ist, wird auch aus einem Detail-Sheet immer wieder nur ein Detail-Sheet!


mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

Sven2010
Mitglied



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

Beiträge: 56
Registriert: 20.04.2010

V5R19SP3
Hotfix 50

erstellt am: 03. Jun. 2010 11: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

Hi Lusilnie,

wenn doch alles so einfach wäre 
Vielen Dank für deine Hilfe, jetzt läuft es wie es soll!!!

10 Unities für dich!

Gruß und schönen Tag
Sven

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