Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Anfängerprobleme mit Makros

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:   Anfängerprobleme mit Makros (1416 mal gelesen)
zaubertroll
Mitglied
Konstrukteur


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

Beiträge: 59
Registriert: 25.04.2008

SolidWorks Professionell 2017 SP5.0 x64-Edition mit DB Works 17
Windows 7

erstellt am: 09. Nov. 2012 10:21    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 zusammen,
bin absoluter Anfänger im Bereich Makro mit Visual Basic. Will ein Makro in Solid Works machen und habe mir das mal so aufzeichnen lassen.
Aktuelles Makro:

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingDimensionArrowPosition, 0, 0)
Part.SheetPrevious
Part.ViewZoomtofit2
Dim NeuObjekt, Objekt1, Text1
Set NeuObjekt = ("$PRPMODEL:SW-Dateiname(File Name)")
longstatus = Part.SaveAs3("C:\xxx-SW\123375.DWG", 0, 0)
End Sub

Bei der Aufzeichnung steht aber die aktuelle Zeichnungsnummer drin. Wenn ich es jetzt mit einer anderen Zeichnung mache, speichert er es ja auch unter der Nummer. Wie bring ich das Makro dazu auf unser Feld „Dateiname“ ($PRPMODEL:"SW-Dateiname(File Name)") zuzugreifen und den dortigen Wert zu übernehmen als Speichername?

Danke für eure Hilfe

Gruß

Torsten

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

Lutz Federbusch
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau



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

Beiträge: 3084
Registriert: 03.12.2001

alle SW seit 97+
AutoCAD2016
ERP ProAlpha + CA-Link
Intel Core i7 860 16GB
Win7x64 QuadroFX1800
SpacePilot

erstellt am: 09. Nov. 2012 10:44    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 zaubertroll 10 Unities + Antwort hilfreich

Prinzipiell müßtest Du die Dateieigenschaft auslesen (mittels GetCustomInfoValue), in der der gewünschte Name steht und an eine Variable übergeben; mit dieser Variable bestückst Du dann den Speicherbefehl.

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

[Diese Nachricht wurde von Lutz Federbusch am 09. Nov. 2012 editiert.]

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

HenryV
Mitglied
Konstrukteur, Engineering


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

Beiträge: 684
Registriert: 18.05.2005

SolidWorks 2018 x64 SP4.0
Dell T3600 Workstation
Intel XENON 6x3.2 GHz
NVIDIA Quadro 4000 2 GB
16GB RAM
2x Dell U2412M, 24" TFT
Windows 7 Professional x64 SP1
Microsoft Office Pro 2010 SP2
Kaspersky Anti-Virus 10.2.4.674
Microsoft VB 2010 Express
SpacePilot von 3Dconnexion

erstellt am: 09. Nov. 2012 12:02    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 zaubertroll 10 Unities + Antwort hilfreich

Hallo Torsten

Falls es darum geht den Dateinamen des geöffneten Dokumentes zu ermitteln,
schau dir das Code-Snippet auf Daniel Bühling - Homepage an.

http://www.mysldworks.de/Details.aspx?ThemaID=14&SnippetID=104

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

zaubertroll
Mitglied
Konstrukteur


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

Beiträge: 59
Registriert: 25.04.2008

SolidWorks Professionell 2017 SP5.0 x64-Edition mit DB Works 17
Windows 7

erstellt am: 13. Nov. 2012 07: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

Hallo zusammen,
nachdem ich gestern längere Zeit mit der Hotline telefoniert habe, meinten Sie, dass man die Pfeilart an sich nicht bei der Konvertierung beeinflussen kann. Ob das so ist oder nicht lasse ich mal stehen. Allerdings verfolge ich jetzt einen anderen Weg:

http://ww3.cad.de/foren/ubb/Forum2/HTML/024837.shtml

Vielleicht klappt es ja uf diesem Weg mit der Pfeilartänderung schon in der Schreibgeschützten Zeichnung.

Danke

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