---

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

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

---

Ich denke mal das die da die Windows Api bzw. das FileSystemObject weiter helfen wird. SolidWorks hat ja nichts mit deinem Dateisystem und der Rechtverwaltung zutun!

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

---

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.

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

---

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

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

---

Hi,

Call filesystem.SetAttr("C:\test.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.

---

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

---

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

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

---

Hallo Christoph,

am besten mal auf der besten SolidWorks Hilfeseite nachlesen.

z.B. http://solidworks.cad.de/mm_05.htm

Beste Grüße,
Ralf

------------------

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

---

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 If
End If

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.

---

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

---

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 0

Ich muss ja dann anstatt sFilename dann denn ausgelesenen Wert eintragen, oder ???

------------------
cma

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

---

Hi,

das hier dürfte eigentlich vollkommen ausreichen

  Dim sFilename As String
  Dim attr As VbFileAttribute
   
    sFilename = "C:\Zeichnung2.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
  '---------------------------------------

  attr = FileSystem.GetAttr(sFilename)
  If CBool(attr And vbReadOnly) = True Then
    'Schreibgeschüzte Datei
    SetAttr sFilename, vbNormal
  Else
    'Datei ist nicht Schreibgeschützt
  End If

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.

---

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

---

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

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

---

Hi und Moin

also beide Infos die du brauchst hast du schon erhalten

1. 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 arbeitet. Ansonsten kann ich mir nicht erklären wie du diese Zeilen http://ww3.cad.de/foren/ubb/Forum2/HTML/011054.shtml#000008  hinbekommen hast.
   

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.

---

[Diese Nachricht wurde von VBSpawn am 06. Sep. 2006 editiert.]

[Diese Nachricht wurde von VBSpawn am 06. Sep. 2006 editiert.]

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

---

Den Namen der Zeichnung bekommst du so!
Dim SwApp as sldworks.sldworks
Dim SwModel as sldworks.modeldoc2
Dim sZeichnungsPfad as String
dim sZeichnungsName as String

SwApp = GetObject(, "SldWorks.Application")
SwModel = oSwApp.ActiveDoc

'Nur bei Zeichnung
If SwModel.GetType = SwConst.swDocumentTypes_e.swDocDRAWING Then

            sZeichnungsPfad = oSwModel.GetPathName
            sZeichnungsName = _
            System.IO.Path.GetFileNameWithoutExtension(zeichnungspfad)
End If

Ist halt .net code, aber ich hoffe dir ist klar wir man den Speicherpfad eines Model ermittelt. wenn du mit einer anderen Sprach unterwegs bist, musst du nur den Pfad anders auschlüsseln indem du z.B. nach \ oder der Extension im String suchst!

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