Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  API: bestehende Ansicht umstellen auf benannte Ansicht

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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS
  
Konstruktionsfeedback neu gedacht: CAD-Modelle teilen, kommentieren, verstehen, ein Webinar am 23.06.2026
Autor Thema:  API: bestehende Ansicht umstellen auf benannte Ansicht (1978 mal gelesen)
Bernd Knab
Mitglied



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

Beiträge: 373
Registriert: 16.01.2001

SWX 2020 SP5.0

erstellt am: 30. Nov. 2010 10: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

Hallo,

ich möchte in einer Zeichnung eine benannte Ansicht in eine andere, im Modell existierende benannte Ansicht umstellen. Ich dachte eigentlich, dass das mit ShowNamedView2 funktioniert. Leider scheint dies nicht der richtige Befehl zu sein oder von mir falsch angewendet werden.

Hier mein Code:

Sub main()
Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc
Set swView = swDraw.GetFirstView
    Do While Not swView Is Nothing
        If swView.Type() = 7 Then
            ViewName = swView.Name()
            swDraw.ShowNamedView2 "Iso 90", -1
            Exit Do
        End If
        Set swView = swView.GetNextView
    Loop
swDraw.EditRebuild3

End Sub

Kann mir jemand dazu weiterhelfen und mir sagen, wo mein Fehler liegt?

Danke
Gruß Bernd

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

StefanBerlitz
Guter-Geist-Moderator
IT Admin (CAx)



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

Beiträge: 8756
Registriert: 02.03.2000

SunZu sagt:
Analysiere die Vorteile, die
du aus meinem Ratschlag ziehst.
Dann gliedere deine Kräfte
entsprechend und mache dir
außergewöhnliche Taktiken zunutze.

erstellt am: 30. Nov. 2010 14:17    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 Bernd Knab 10 Unities + Antwort hilfreich

Hallo Bernd,

der ShowNamedView2 verstellt den gerade selektierten View um auf die benannte Ansicht des Modells. Du klapperst zwar deine Views durch, selektierst die aber vorher nicht. Ich hab deinen Code so erweitert, dass er nacheinander alle Views selktiert, dann jeweils umstellt und zum nächsten View läuft (also alle Views umstellt, die eine "Spezialausrichtung" haben).

Code:
Sub main()

    Set swApp = Application.SldWorks
    Set swDraw = swApp.ActiveDoc
    Set swView = swDraw.GetFirstView
   
    Do While Not swView Is Nothing
        If swView.Type() = 7 Then
            ViewName = swView.Name()
            ' dann diesen View "selektieren"
            boolstatus = swDraw.Extension.SelectByID2(ViewName, "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
            swDraw.ShowNamedView2 "test", -1
            'Exit Do
        End If
        Set swView = swView.GetNextView
    Loop
   
    swDraw.EditRebuild3

End Sub



Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

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

Bernd Knab
Mitglied



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

Beiträge: 373
Registriert: 16.01.2001

SWX 2020 SP5.0

erstellt am: 30. Nov. 2010 14:32    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 Stefan,

danke funktioniert.
Ich hatte angenommen, dass durch das Durchschleifen der View auch selektiert ist.

Gruß Bernd

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)2024 CAD.de | Impressum | Datenschutz