---

Hallo,

wie kann ich mit LISP auslesen/anzeigen, durch welchen Usernamen eine Zeichnung gerade
verwendet wird (im Falle, dass die Datei schreibgeschützt geöffnet wird).
Üblicherweise zeigt AutoCAD 2007 beim öffnen einer Datei diese Information an, leider kann
es die PDM-Software Compass Productstream nicht mehr. Den eigentlichen Schreibschutz zeigt Compass
ebenfalls nicht mehr an, wir behelfen uns momentan mit einer kleinen LISP die folgendermaßen ausschaut:

(vl-load-com)
(if(=(vla-get-readonly(vla-get-activedocument(vlax-get-acad-object))):vlax-true)
  (alert "ACHTUNG !!! Zeichnungsdatei ist Schreibgeschützt!")
)

Nun würde ich aber gerne noch angezeigt bekommen, wer den die Datei gerade benutzt.
Kann man diese Info auch irgendwie per LISP auslesen/ausgeben?

Danke vorab

Gruß

Stefan

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

---

werte die zur Zeichnung gehörende dwl-Datei aus , da steht alles drin

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

super, vielen Dank Cadmium, das war der Hinweis welchen ich gesucht habe. Mein Ergebnis:

(defun inuseby ( / dwgname dwldatei actusername actuserpc)

(setq dwgname (vla-get-name(vla-get-activedocument(vlax-get-acad-object))))

(setq dwgname (substr dwgname 1 (- (strlen dwgname) 4)))
(setq dwgname (strcat (getvar "dwgprefix") dwgname ".dwl"))

(setq dwldatei (open dwgname "r"))
(setq actusername (read-line dwldatei))
(setq actuserpc (read-line dwldatei))
(close dwldatei)

(alert (strcat "ACHTUNG !!! Zeichnung ist in Bearbeitung durch " actusername " - " actuserpc " und schreibgeschützt!"))

);end defun

(vl-load-com)
(if(=(vla-get-readonly(vla-get-activedocument(vlax-get-acad-object))):vlax-true)(inuseby))

da ist zwar mit sicherheit noch Verbesserungspotenzial drin, aber es funktioniert erstmal!

Gruß

Stefan

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

---

Zusatzinfo:
Ich würd die Sache noch ein bißchen mit if's und findfile ect. absichern .. denn es gibt auch Leute, die haben die whois.arx umbenannt oder gelöscht, so daß keine dwl mehr angelegt wird....und dann deine Routine mit ner Fehlermeldung aussteigt.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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