|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
Kalle am 05.09.2006 um 07:23 Uhr (0)
Aheu Christoph,sitzt Dein Schreibschutz im Dateisystem oder macht SolidWorks die Datei nur schreibgeschützt auf?Bis dann,Kalle-----------------------------------------------------------Es gibt immer mehr Lösungen als Probleme.
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
oma1 am 05.09.2006 um 07:29 Uhr (0)
Es ist nur im Explorer mit rechtsklick der Hacken Schriebschutz gesetzt. Deiser Hacken soll vor dem Speichern der gerade offenen Solidworkszeichnung vom zugehörigen DWG dokument mit der gleichen nummer im gleichen Ordner wieder herausgenommmen werden.Sprich die Slddrw zeichung ist ohne Schreibschutz, die DWG mit Schreibschutz. Der Schriebschutz des DWG soll weggenommen werden.------------------cma
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
VBSpawn am 05.09.2006 um 08:02 Uhr (0)
Hi,Call filesystem.SetAttr("C: est.sldprt",vbNormal)entfernt den Schreibschutz, achte nur darauf das die Datei nicht geöffnet ist.GrußMicha------------------ http://classicvb.org/petition/ Zitat:Interpunktion und Orthographie des Postings sind frei erfunden.Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
oma1 am 05.09.2006 um 08:10 Uhr (0)
Danke schon mal, aber wie mache ich es, dass er mir den Namen der offenen Zeichnung ausliest, und dann das slddrw abschneidet, und dwg ranhängt ??------------------cma
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
Ralf Tide am 05.09.2006 um 08:15 Uhr (0)
Hallo Christoph,am besten mal auf der besten SolidWorks Hilfeseite nachlesen.z.B. http://solidworks.cad.de/mm_05.htm Beste Grüße,Ralf------------------
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
VBSpawn am 05.09.2006 um 08:42 Uhr (0)
Zitat:Original erstellt von oma1:Danke schon mal, aber wie mache ich es, dass er mir den Namen der offenen Zeichnung ausliest, und dann das slddrw abschneidet, und dwg ranhängt ??Hallo mal wieder ... If Not Application.SldWorks.ActiveDoc Is Nothing Then If Application.SldWorks.ActiveDoc.GetType = 3 Then Debug.Print Replace(LCase(Application.SldWorks.ActiveDoc.GetPathName), ".slddrw", ".dwg") Else Debug.Print "Kein Drawing" End IfEnd IfGrußMicha------------------ http://classicvb.org/petition/ ...
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Stanzen in Solid Works
clownfisch am 05.09.2006 um 10:56 Uhr (0)
Hallo t.kokott,ich hab Dir mal ein einfaches Beispiel gemacht und angehängt.Die Datei in einen "forming tool" Ordner einfügen und auf Dein Blechteil ziehen. Du kannst die Datei nach Deinem Bedarf anpassen, aber auf die Farben achten, die bestimmen nämlich die Art des "forming".Die Tiefe der Durchsetzung ist voreingestellt, deshalb kommt es dabei auf die Blechstärke an, wie stark die Durchsetzung dazu erscheint.Ich hoffe, Du kommst damit klar. Andreas
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
oma1 am 05.09.2006 um 14:20 Uhr (0)
Ich bin heute wie vor den Kopf gestoßen!!! Wie kombiniere ich dann das auslesen mit dem macroteil:On Local Error Resume Next Attr = GetAttr(sFilename) If Err 0 Then Datei nicht gefunden SchreibschutzEntfernen = False Else Attr = (Attr And Not vbReadOnly) SetAttr sFilename, Attr DoEvents Prüfen, ob Schreibschutz entfernt Attr = GetAttr(sFilename) SchreibschutzEntfernen = Not (Attr And vbReadOnly) End If On Local Error GoTo 0Ich muss ja dann anstatt sFilename dann denn ausgelesenen Wert eintragen, ...
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
VBSpawn am 05.09.2006 um 16:41 Uhr (0)
Hi,das hier dürfte eigentlich vollkommen ausreichen Dim sFilename As String Dim attr As VbFileAttribute sFilename = "C:eichnung2.idw" --------------------------------------- Fileexists On Error Resume Next attr = FileSystem.GetAttr(sFilename) If Err.Number = 53 Then Datei nicht gefunden Exit Sub ElseIf Err.Number 0 Then Fehler ?? Exit Sub ElseIf Err.Number = 0 Then Kein Fehler Datei Verzeichniss ist vorhanden End If On Error GoTo 0 -------------------------------- ...
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Konfigurationen - mal wieder
weinel am 05.09.2006 um 16:50 Uhr (0)
Hallo Ahleggs, Zitat:Original erstellt von Ahleggs:Ne den Punkt kann ich nirgens finden. Welches Pulldown menue meinst Du?Nochwas. Wenn ich einer Baugruppe in der default konfiguration eine Unterbaugruppe einbaue und in eine andere Konfiguration wechsel, dann sind ploetzlich die Einbaubedingungen futsch und die Baugruppe schwebt frei im Raum???Scheint mir noch ein Bug zu sein.Die Einbaubedingungen sind dann nur für diese Konfig unterdrückt. Man kann sie jederzeit durch Unterdrückung aufheben aktivieren.--- ...
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
oma1 am 06.09.2006 um 06:46 Uhr (0)
Aber wenn ich das richtig deute, muss ich in das Macro ja den Filenamen manuell eingeben, oder ???Das will ich ja vermwiden.Das Macro soll mir von der Zeichnung, die gerade offen ist, die dwg mit dem gleichen Namen und am gleichen Platz vom Schreibschutz entfernen.Sprich Namen der Zeichnung auslesen, in dwg ändern, und schriebschutz entfernen.Mehr wär e snicht, aber ich bekomme es nicht gebacken !!! ------------------cma
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
VBSpawn am 06.09.2006 um 07:26 Uhr (0)
Hi und Moinalso beide Infos die du brauchst hast du schon erhalten1. http://ww3.cad.de/foren/ubb/Forum2/HTML/011054.shtml#000007 Aktiven Dateinamen eines slddrw ermitteln und gegen .dwg austauschen.2. http://ww3.cad.de/foren/ubb/Forum2/HTML/011054.shtml#000009 Schreibschutz entfernen falls einer vorhanden ist.bzgl Filenamen manuell eingeben usw. siehe einfach mal in der VB Hilfe: Thema Variable / Konstante oder auch Function / Strings zuweisen ect ... das sollte man generell verstehen wenn man mit VBA ar ...
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz der Datei mit Makro entfernen
tbd am 06.09.2006 um 07:26 Uhr (0)
Den Namen der Zeichnung bekommst du so!Dim SwApp as sldworks.sldworksDim SwModel as sldworks.modeldoc2Dim sZeichnungsPfad as Stringdim sZeichnungsName as StringSwApp = GetObject(, "SldWorks.Application")SwModel = oSwApp.ActiveDocNur bei ZeichnungIf SwModel.GetType = SwConst.swDocumentTypes_e.swDocDRAWING Then sZeichnungsPfad = oSwModel.GetPathName sZeichnungsName = _ System.IO.Path.GetFileNameWithoutExtension(zeichnungspfad)End IfIst halt .net code, aber ich hoffe dir ist klar wir man den S ...
|
| In das Form SolidWorks wechseln |
