Interessanter Makro für SolidWorks

[Pastorman75]

guten morgen.
jemand weiß, ob es ein makro, das ihnen automatisch erlaubt, eine .dwg (halbe version 2000) zu erstellen, beginnend mit einem sw-tisch, in dem die datei als:
Datuminame_review indexder revisionsindex gehört zu den eigenschaften des modells in der tabelle

beispiel:

3d modell: case123. sldprt mit revisionsindex b
tabelle 2d_sw: cassa123.slddrw (nur und immer mit modell 3d verbunden)
tabelle 2d_dwg: cassa123_b.dwg (mehrfache zeichnungen im zusammenhang mit der revision)

es wäre schön, ein makro zu haben, das in .dwg speichert und so umbenannt wird, wenn sich der revisionsindex nicht geändert hat.

dank allen im voraus.

 

[-Mc-]

technische Tischbearbeitung in .dxf oder .dwg
und
Transformationsteil/zusammen in .step oder .igs;
Haben Sie ein Makro?

 

[Pablo]

Weiß jemand über ein Makro, das alle in einem Set enthaltenen Axiome auswählt und flexibel oder starr macht? von Hand gelang es mir, es zu tun, aber jedes Mal, wenn ich neue Baugruppen einfügen, müssen Sie das Makro neu registrieren....

Danke.

 

[Gabryn]

technische Tischbearbeitung in .dxf oder .dwg
und
Transformationsteil/zusammen in .step oder .igs;
Haben Sie ein Makro?

Ich hänge die heruntergeladene Zeit von Solidworks Seite und dann diskret geändert.
Öffnung Design Design Design und das Makro laufen wird eine Schnittstelle erscheinen
mit der Möglichkeit, in folgenden Formaten zu exportieren:
-pdf
- Ja.
-pdf und dxf
-pdf und dxf und Schritt


Hi.
Gabriele

 

[Zara87]

Hallo alle

Ich wollte Sie fragen, ob Sie einen Führer haben, wer von Grund auf mit dem Aufbau eines Makros beginnt?

um die Idee besser zu machen, was ich tun möchte, ist aus einer Excel-Datei eine Reihe von Werten und von diesen Zeichnungsobjekten zu lesen.
als Anfang möchte ich verstehen, wie man Sw einen einfachen Kreis und Stränge macht, ein Rechteck zieht und extrudiert, ein Objekt dreht und in eine bestimmte Position bewegt.

Danke.

 

[teseo]

Ich hänge die heruntergeladene Zeit von Solidworks Seite und dann diskret geändert.
Öffnung Design Design Design und das Makro laufen wird eine Schnittstelle erscheinen
mit der Möglichkeit, in folgenden Formaten zu exportieren:
-pdf
- Ja.
-pdf und dxf
-pdf und dxf und Schritt


Hi.
Gabriele

Hallo an alle ich nahm und heruntergeladen diese sehr bequeme Makro für die Arbeit, die ich tun, aber ich kann nicht ändern die Rettungsordner oder besser ich kann es überall außer auf dem Desktop, wie nie akzeptiert dieses Verzeichnis


Danke.

 

[Gabryn]

Hallo an alle ich nahm und heruntergeladen diese sehr bequeme Makro für die Arbeit, die ich tun, aber ich kann nicht ändern die Rettungsordner oder besser ich kann es überall außer auf dem Desktop, wie nie akzeptiert dieses Verzeichnis
Danke.

versuchen, den Code auf diese Weise zu ändern:

...wenn Antwort = vbno dann
Dateiname = createobject("wscript.shell").specialfolders("desktop") & "\" & rechts(Dateiname, len(Dateiname) - len(workdir)
sonstif response = vbcancel...


Ich habe versucht und arbeitet (swx 2012 sp.4 auf win7 64bit)
Tschüss.

 

[teseo]

Danke!

eine kleine Note gibt es einen Fehler in der Zeile "Desk Top" statt Desktop

Hi.

 

[teseo]

stesso problema con questo codice ho provato in questo modo ma non fa nulla....ho provato solo nella cartella utenti ma niente la cartella del desktop è protetta per caso?

dim boolstatus als boolean
dim longstatus so lang, langwarnings as long

Teil Haupt()

Swapp =
Anwendung.sldworks

set part = swapp.activedoc

spathname = part.getpathname
srev = part.custominfo("revisione")
elenco_rev = "abcdefghilmnopqrstuvz"
= 0
w = ""
für x = 1 bis len(spathname)
y = mid(spathname, x, 1)
wenn y = ". dann goto ex
w = w + y
wenn y = "\" dann
k = k + 1
w = ""
Ende
Nächste x
ex:
a = "c:\utenti\ufftecnico2\desktop" + w + ".step"
b = w + ".x_t"
Longstatus = part.saveas3(a, 0, 0)
Longstatus = part.saveas3(b, 0, 0)
Endteil

 

[Gabryn]

Danke!

eine kleine Note gibt es einen Fehler in der Zeile "Desk Top" statt Desktop

Hi.

Bitte.
es ist nicht, weil, sondern in der Kollierung des Codes in diesem Forum die Desktop-Schreiben war selbstkorrigiert in Schreibtisch oben


relativ der letzte Beitrag, den ich denke, das Problem ist:
"Benutzer" ist in "Benutzern" zu ändern, auch wenn Sie Fenster auf Italienisch verwenden.
.....\desktop" verfehlt den letzten Slash: ....\desktop\"


Tschüss.

 

[teseo]

Oh!

Danke.

Hi.

 

[CIARLY]

Bitte.
es ist nicht, weil, sondern in der Kollierung des Codes in diesem Forum die Desktop-Schreiben war selbstkorrigiert in Schreibtisch oben


relativ der letzte Beitrag, den ich denke, das Problem ist:
"Benutzer" ist in "Benutzern" zu ändern, auch wenn Sie Fenster auf Italienisch verwenden.
.....\desktop" verfehlt den letzten Slash: ....\desktop\"


Tschüss.

wie aus dem Titel "sehr interessantes Makro"

Vielen Dank

 

[marcof]

Markieren Sie dieses Makro (nur aus dem sehr freundlichen Gabrin hier gebacken) http://www.cad3d.it/forum1/threads/...alla-selezione?p=351261&viewfull=1#post351261) die Ihnen erlaubt, normal auf ein ausgewähltes Gesicht oder Skizze zu schauen, während Sie den Zoom an die Auswahl anpassen.:finger:
die Erweiterung .zip aus dem Anhang entfernenAnhang anzeigen NormalView&Zoom.swp.zip

 

[tekno]

versuchen, den Code auf diese Weise zu ändern:

...wenn Antwort = vbno dann
Dateiname = createobject("wscript.shell").specialfolders("desktop") & "\" & rechts(Dateiname, len(Dateiname) - len(workdir)
sonstif response = vbcancel...


Ich habe versucht und arbeitet (swx 2012 sp.4 auf win7 64bit)
Tschüss.

Macro sehr nützlich, ich möchte eine Hilfe, um es zu ändern.
einen ersten Schritt, den ich bereits gemacht habe, indem ich die Rettung von Dxfs in dwg ändere, verwenden wir diese, jetzt möchte ich das Rettungsverzeichnis ändern, das heißt:
Ich speichere sie immer in einem Unterverzeichnis "\pdf + dwg", wo sich die Hauptabteilung nach dem Vertrag ändert.
so wie kann ich die automatische Position "z:\xxx\pdf + dwg" erhalten.
Ich hoffe, ich war klar.
Dank und Gratulationen für dieses Makro.

 

[tekno]

ciao, sto ancora provando, l'ho modta in questo mode:workdir = swapp.getcurrentworkingdirectory & ("pdf + dwg") & "\"in der Nachrichtenbox zeigt mir den richtigen Pfad, aber die Dateien speichern sie immer im Arbeitsverzeichnis.
Wo bin ich falsch?
Tschüss.

 

[Gabryn]

ciao, sto ancora provando, l'ho modta in questo mode:workdir = swapp.getcurrentworkingdirectory & ("pdf + dwg") & "\"in der Nachrichtenbox zeigt mir den richtigen Pfad, aber die Dateien speichern sie immer im Arbeitsverzeichnis.
Wo bin ich falsch?
Tschüss.

Ich änderte das Makro im Bereich ...workdir = swapp.... und in der Dateidefinition verwandten Code für den "Schritt".
allego macro.


Hi.
Gabriele

 

[tekno]

Vielen Dank, also ist es perfekt. :finger:
Hi.
Roman.

 

[Gabryn]

Vielen Dank, also ist es perfekt. :finger:
Hi.
Roman.

Nagel: Lächeln:

Kation
Gabriele

 

[Ivano]

Hallo an alle, Ich brauche Hilfe, um dieses Makro zu ändern, um die pdf-Datei in einem latra-Verzeichnis zu speichern. Würde mir bitte jemand helfen? Vielen Dank.
das Makro ist das folgende.
♪
Wirtschaftszweige
' www.metaalindustrieudenbv.nl
' [email protected]dim swapp als Objekt
Dim Teil als Objekt
dim boolstatus als boolean
dim longstatus so lang, langwarnings as long
dim locatie als String
dim locatie_aangepast als String
dim opendoc als Objekt
dim extensie_nieuw als String
dim extensie_oud als String
dim retval als String
dim naam als String
dim naam_aangepast als String




Teil Haupt()

set swapp = createobject("sldworks.application")
swmodel = swapp.activedoc
opendoc = swapp.activedoc()

extensie_oud = ".slddrw"
extensie_nieuw = ".pdf"
locatie = opendoc.getpathname
locatie_aangepast = links(locatie, len(locatie) - 7)
retval = dir$(locatie_aangepast & extensie_oud)
naam = dir$(locatie)
naam_aangepast = links(naam, len(naam) - 7)
titel = opendoc.gettitle
titel = links(titel, (len(titel)))


wenn retval = naam dann
nretval = swapp.sendmsgtouser2(naam_aangepast & " wordt geupdate!", swmbwarning, swmbok)
Ende


set part = swapp.activedoc
Longstatus = part.saveas3(naam_aangepast & extensie_nieuw, 0, 0)
swapp.closedoc titel
Endteil

 

[clark85]

Hallo.

in meinen Entwürfen will ich immer benutzerdefinierte Größeneinheiten verwenden: insbesondere gehe ich von "mmgs (millimeter,gram,second)" dann gehe ich zu "personalisiert" und ändere das Gramm mit dem Kilogramm.
in neuen Dateien habe ich kein Problem (ich habe eine spezielle Vorlage erstellt), aber für alte Dateien muss ich es nach einem ändern und das Verfahren ist definitiv langsam.

Kennen Sie ein Makro, wo Sie diese Einheit ändern Operation beschleunigen können? Vielleicht haben sie bestimmte Einheiten eingerichtet und mit einem einfachen Spiel setzt sie an Ort und Stelle:


Hilf mir... Danke!