Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Bemassungsstile in alte Zeichnungen nachladen

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
  
Nahe an industriellen Realbedingungen
Autor Thema:  Bemassungsstile in alte Zeichnungen nachladen (1388 mal gelesen)
HartmutT
Mitglied
Dipl.-Ing (TU) MB


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

Beiträge: 790
Registriert: 16.06.2006

SWX 2019 SP5.0
MaxxDB 2021.SP0.02 Linked Jan 18 2021 (64bit)

erstellt am: 16. Nov. 2016 17:13    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 Gemeinde = WBF,
wir haben für die Erstellung von technischen Zeichnungen unsere „Favoriten“ von Toleranzen als „Stile“ (.sldstl) abgespeichert.
Unser Kenntnisstand: Da es bei einer vorhandenen alten Zeichnung nicht möglich ist die Zeichnungsvorlage (.drwdot), in der die Stile abgespeichert sind nachzuladen, bleibt nur der Weg die Stile händisch in die Zeichnung einzufügen über:
Feature Manager -> Bemaßung -> Stil (Stil laden)
Ätzend aufwendiges Nachladegeklicke, das schreckt unsere Zeichnungsbearbeiter ab und sie nutzen diese Stile nicht.
Diese müßten schon alle in einem weniger aufwendigem Automatismus auf die alte Zeichnung geholt werden, so daß diese Stile in dem Kontextmenü zum Maß setzen auch angeboten werden.
Gibt es eine Möglichkeit dies mittels VBA-Makro zu tun?
Kenn jemand die Befehlszeilen?
Speicherorte und Stilnamen sind uns bekannt.
Oder habt Ihr nen besseren Lösungsansatz? Danke im Voraus für jeden Tipp.
Grüßle H.

------------------
Hartmut

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

bk.sc
Ehrenmitglied V.I.P. h.c.
Konstrukteur Sondermaschinenbau



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

Beiträge: 2776
Registriert: 18.07.2012

-Solid Works 2019 SP5
-Pro Engineer WF 3

erstellt am: 17. Nov. 2016 06: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 HartmutT 10 Unities + Antwort hilfreich

Hallo Hartmut,

das Folgende hatte ich mir mal zusammen geschnippselt.

Code:

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swDraw As SldWorks.ModelDoc2
Dim swView As SldWorks.View
Dim swAnno  As SldWorks.Annotation


Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc
Set swView = swDraw.GetFirstView

Do Until swView Is Nothing

If swView.Type = swDrawingStandardView Or swView.Type = swDrawingNamedView Then
Exit Do
Else
Set swView = swView.GetNextView
End If

Loop

Debug.Print swView.GetName2

Set swAnno = swView.GetFirstAnnotation3()

Do Until swAnno Is Nothing

If swAnno.GetType = swDisplayDimension Then
Exit Do
End If

Debug.Print swAnno.GetType

Set swAnno = swAnno.GetNext3()

Loop

If swAnno Is Nothing Then

MsgBox "Keine Ansicht oder Bemassung gefunden", vbInformation

Else

boolstatus = swAnno.LoadStyle("C:\Stile\NameDesStiles.sldstl") '<- Pfad zum Stile
boolstatus = swAnno.DeleteStyle("NameDesStiles") '<- Löschen eines Stile

End If

End Sub


Um Bemassungsstile laden zu können muß mindestens eine Ansicht mit einer Bemassung vorhanden sein.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete  

[Diese Nachricht wurde von bk.sc am 17. Nov. 2016 editiert.]

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

HartmutT
Mitglied
Dipl.-Ing (TU) MB


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

Beiträge: 790
Registriert: 16.06.2006

SWX 2019 SP5.0
MaxxDB 2021.SP0.02 Linked Jan 18 2021 (64bit)

erstellt am: 17. Nov. 2016 07: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

Hi Gemeinde, Hallo Bernd!
Danke Dir, ein erster Ansatz, ich werde mich zum Feierabend mal tiefer damit beschäftigen.
Meld mich.
Wie löst das der andere Teil der Welt da draußen?
Wieso funzt die Optionen>Dokumenteigenschaften>globale Zeichnungsnorm extern speichern und auf der alten Zeichnung von Datei laden hier nicht?
Mind. eine Ansicht mit Maßen ist bei beiden Zeichnungen vorhanden.
In der Suche hier stoße ich auf Aussagen z.B. von StefanB. die in diese Richtung abzielen, dieser individuellen Einstellungen von Zeichnungen (Vorlagen) auf alte Zeichnungen eben mit dieser Methode zu bringen?
Merkwürdig? Bis denn, Grüßle H.

------------------
Hartmut

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

bk.sc
Ehrenmitglied V.I.P. h.c.
Konstrukteur Sondermaschinenbau



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

Beiträge: 2776
Registriert: 18.07.2012

-Solid Works 2019 SP5
-Pro Engineer WF 3

erstellt am: 17. Nov. 2016 09:26    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 HartmutT 10 Unities + Antwort hilfreich

Hallo Hartmut,

die Stile liegen nicht in der Zeichnungsnorm sondern in der Dokumentvorlagen, und diese lassen sich leider nicht austauschen, nur eben die Zeichnungsnorm und das Blattformat.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

HartmutT
Mitglied
Dipl.-Ing (TU) MB


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

Beiträge: 790
Registriert: 16.06.2006

SWX 2019 SP5.0
MaxxDB 2021.SP0.02 Linked Jan 18 2021 (64bit)

erstellt am: 18. Nov. 2016 12:45    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 Bernd!
Nach Deinen letzten Ausführungen ist unser Ansinnen also nicht umsetzbar.
O.K. Zumindest wissen wir das jetzt.
Die Sache mit Makro Stil laden schauen wir uns noch an.
Danke bis dahin, Grüßle H.

------------------
Hartmut

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