|
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
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
oma1 am 05.09.2006 um 07:06 Uhr (0)
Hi,ICh versuche schin seit einiger Zeit beim Speichern mit einem Macro den Schriebschutz der Datei zu entfernen. ICh brings aber nicht auf dei reihe.Wisst ihr da was Danke CHristoph------------------cma
| | 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
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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
