---

hi,

man kann ja eine lisp datei auch starten, indem man sie einfach ins autocad fenster zieht.

wie kann ich in autocad feststelle aus welchem ordner die lisp datei stammt ?

------------------
MfG
Frank

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

---

Hi,

>> wie kann ich in autocad feststelle aus welchem ordner die lisp datei stammt ?

Der Befehl _APPLOAD bringt Dir einen Dialog, in welchem Du geladene Apps samt Quellpfad angezeigt bekommst.

- alfred -

------------------
www.hollaus.at

---

via vorab geladenen reaktor --> Siehe hier

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

---

danke für die antworten, schnall ich aber nicht

ich wollte es ganz einfach halten und in der eingefügten datei praktisch eine abfrage einbauen a la "woher komme ich ?

nur für eine bestimmte datei

------------------
MfG
Frank

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

---

Hallo Frank,
nur für den Fall daß Deine Datei auf einem bekannten Supportpfad liegen sollte:
(findfile "Dateiname")
Wenn keine Supportpfad, dann funzt das nicht.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Zitat:

---

Original erstellt von joern bosse:
Hallo Frank,
nur für den Fall daß Deine Datei auf einem bekannten Supportpfad liegen sollte:
(findfile "Dateiname")

---

Das funkioniert natürlich dann nicht, wenn man mehrere Dateien gleichen Namens hat.

VitalLisp hatte noch so eine Funktion, die zurück gab, aus welchem Pfad eine geladene ARX (die VLX-Dateien waren damals noch ARX) stammte. Aus nicht-nachvollziehbaren Gründen hat Autodesk diese Funktion nach Übernahme von VitalLISP ersatzlos gestrichen.

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

---

folgende datei filter den pfad heraus, wenn ich eine lisp in das autocad-fenster schiebe

aber irgendwas stimmt mit dem format nicht, wenn den pfad weiter verwursten will

(princ "\n...")
(Command "_copyhist")
(command "_pasteclip" "0,0")

(setq textobj (entlast))
(setq text "")
(foreach n (entget textobj)
  (if (or (= (car n) 3)
  (= (car n) 1)
  )
    (setq text (strcat text (cdr n)))
    )
  )

(setq textlaenge (strlen text))

(entdel (entlast))

;suchen
(setq pfad nil)
(setq suchtext "LOAD")
(setq stelle (- textlaenge (strlen suchtext)))
(setq fund 0)
(setq vorfundstelle textlaenge)
(while (and (> stelle 0)
    (= fund 0)
    )
  (if (= (substr text stelle (strlen suchtext)) suchtext)
    (progn
      (setq fund 1)
      (setq fundstelle stelle)
      (setq pfad (substr text fundstelle (- textlaenge fundstelle)))
      ;anfang abschneiden
      (setq pfad (substr pfad 7 (- (strlen pfad) 7)))
      ;ende abschneiden
      (vl-load-com)
      (setq pfad (substr pfad 1 (+ (vl-string-position (ascii "/") pfad 0 T) 1)))
      );progn
    );if
  (setq stelle (- stelle 1))
  );while

(if pfad
  (progn
    ;"/P" herausfiltern
    (while (/= pfad (vl-string-subst "" "\\P" pfad))
      (setq pfad (vl-string-subst "" "\\P" pfad))
      );while
    (princ "\n\n\nPfad: ")
    (princ pfad)
    );progn
  );if
(princ)

------------------
MfG
Frank

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

---

Hallo Frank,

vielleicht hilft Dir Folgendes weiter:
(vl-filename-directory "c:\\temp\\Test.tmp")

Viele Grüße
Bernd

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

---

von http://www.theswamp.org/index.php?topic=31536.msg370785#msg370785
die funktion

Code:

---

(defun GetClipText(/ html result)
  (setq html (vlax-create-object "htmlfile")
        result (vlax-invoke (vlax-get (vlax-get html 'ParentWindow) 'ClipBoardData) 'GetData "Text")
  )
  (vlax-release-object html)
  result
)

---

laden

dann

Code:

---

(Command "_copyhist")
(setq cb-str (GetClipText))
(if (setq pos (vl-string-search "(LOAD" cb-str))
  (setq load-str (substr cb-str (1+ pos) (vl-string-search ")" (substr cb-str pos))))
)

---

es wird das erste auffinden von (load ...) in load-str gespeichert in der form
"(LOAD \"c:/test/test.lsp\")"

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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