---

Hallo zusammen,

gibt es eine Möglichkeit in der acad.lsp einzustellen, dass automatisch ein bestimmter Suchpfad bei Suchpfad für Support-Datei hinzugefügt wird?

Habe schon ein bisschen im www gesucht, aber bislang nichts gefunden.
Hintergrund ist der, dass wir bei uns im Firmen-Ribbon einen Button haben, um ein bestimmtes Programm zu starten. Wenn der Pfad jedoch nicht unter dem Suchpfad für Support-Datei eingetragen ist, wird das Programm nicht gefunden.
Im Zusammenhang mit dem Ausrollen des Firmen-Ribbons an die User wäre es daher toll, wenn ich oben geschilderte Problematik über die acad.lsp umschiffen könnte (alternativ fiele mir sonst nur ein, den Registry-Key "PATH" via Skript zu verteilen).

Wenn ja, was müsste ich beispielsweise in die acad.lsp eintragen, um den Pfad "C:\Program Files\7-Zip"  bei den Support-Suchpfaden hinzufügen zu lassen?

Vielen Dank!

------------------
Geht ein Indianer zum Friseur, kommt raus - ist sein Pony weg!

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

---

1. Ja geht, findet man eigentlich auch sofort mit den von dir verwendeten Begriffen?
  ohne zu prüfen was dort drin steht, ein Beispieltreffer => Klick!

  Man sollte vorher prüfen ob der Pfad nicht schon existiert.

2. Programme bzw. Befehle "zur Verfügung stellen", dafür kann man auch die autoload-Funktion nutzen,
  kannst du ja mal suchen und dich einlesen.

3. Oder ändere dein Buttonmakro, so wie du es schilderst versuchst du ja zunächst die Datei zu laden,
  da könnte man dann auch den ganzen Pfad reinpacken (ist aber für Änderungen nicht so schön, da passt das mit dem Supportpfad viel besser)

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

SUPPORT-PFAD.LSP

im Anhang mal Funktionen, die man in die ACAD.lsp integrieren kann ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Vielen Dank euch beiden, guck mich mir alles an!

------------------
Geht ein Indianer zum Friseur, kommt raus - ist sein Pony weg!

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Zitat:

---

Original erstellt von CADmium:
im Anhang mal Funktionen, die man in die ACAD.lsp integrieren kann ...

---

Hallo,

ich versuche mich gerade an der Lisp. Verstehe aber paar Sachen nicht wirklich.
1. wenn ich einen Support Pfad hinzufügen lasse, löscht er mir immer den Supportpfad an der letzten Stelle. Warum?
2. nach dem Hinzufügen der Supportpfade sind alle Pfade groß geschrieben. Warum?
3. Kann man die hinzugefügten Supportpfade auch ans Ende schreiben lassen?

Gruß
Jörg

------------------
Wer immer tut, was er schon kann, bleibt immer das, was er schon ist.

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

---

1. CADmiums Funktion macht das eigentlich nicht, vielleicht überschreitest du die max. Anzahl, was
  nichts michts mit dem Lisp zutun hätte. Testen mal mit nur 10-15 Supportpfaden
  Oder bringe ein nachvollziehbares Beispiel.

2. Weil das so im Code steht, vermutlich wollte es der Ersteller so haben oder es war ihm egal 
  (strcat X ";")

3. Du siehst schon das die Supportpfade einfach als eine Zeichenkette in der Systemvariable ACAD gespeichert ist?
  Also JA,du könntest den Pfad hinschrieben (lassen) wo du möchtest.

Und jetzt ziehe ich mir den Fahrradhelm auf

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

---

Supportpfad-vor-lisp.PNG Supportpfad-nach-lisp.PNG

Zitat:

---

Original erstellt von cadffm:

1. CADmiums Funktion macht das eigentlich nicht, vielleicht überschreitest du die max. Anzahl, was
   nichts michts mit dem Lisp zutun hätte. Testen mal mit nur 10-15 Supportpfaden
   Oder bringe ein nachvollziehbares Beispiel.

---

Hallo cadffm,

zu 1: die Lisp lade ich per drag and drop, dann füge ich mit "(DT:SUPPORT-PFAD-ADD "W:")" den Supportpfad hinzu. Es verschwindet immer der letzte Supportpfad (siehe vorher nachher Bilder).
Wenn ich den neu hinzugefügten Supportpfad (W wieder lösche und ihn wieder über die Lisp hinzufüge, ist der nächstletzte verschwunden usw. Hatte schon ab dem Pfad für die Hilfe, nach unten, alle weg. An der max. Anzahl kann es deshalb nicht liegen.

zu 2: muss ich mich mal mit befassen... Hab aber hier: http://ww3.cad.de/foren/ubb/Forum54/HTML/011986.shtml#000005 noch was gefunden, was mir für meinen Zweck im Moment vollkommen ausreicht.

zu 3: ...damit auch...

Gruß
Jörg

------------------
Wer immer tut, was er schon kann, bleibt immer das, was er schon ist.

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

---

Ok, ich habe nachgesehen und das Problem gesehen.
CADmiums Routine funktioniert in der Tat nur fehlerfrei wenn nach dem AutoCAD Start noch
kein Optionen-[Anwenden] durchgeführt wurde. Denn leider ändert in dem Fall AutoCAD den Eintrag
von "ACAD".
Im Normalfall endet der String mit einem Trennzeichen ";", nutzt man jedoch das Optionen-Dialogfeld-[Anwenden]
so wird der Eintrag plötzlich ohne das letzte Zeichen ";" gespeichert.
Genau darüber stopert die Routine, bzw. daher wird der letzte Pfad ignoriert.

((Ich sah bei der Sache jetzt auch Supportpfade im Optionen-Dialog die selbst überhaupt nicht in ACAD gespeichert sind, erstens fliegen die auch raus in dem Moment und 2. Interessant..))

Man sollte daher den Teil der Funktion ändern oder ganz billig ergänzen:

Code:

---

  (while (setq POS (vl-string-search ";" SUPPORT))      
    (setq LISTE  (cons (substr SUPPORT 1 POS) LISTE)
          SUPPORT   (substr SUPPORT (+ POS 2))  
    )
  )
  (if (/= "" SUPPORT) (setq LISTE (cons SUPPORT LISTE)))) ; ergänzen*

---

*Ungetestet

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