---

Hallo wie kann ich in einem mnu eine support-pfad beifügen, und zwar so das immer der aktuelle pfad in dem sich das mnu befindet hinzugefügt wird. geht das?

------------------
[AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.]

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

---

Zitat:

---

Original erstellt von michelangelo:
AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.

---

Hallo,
wenn ich mir deinen Beitrag durchlese, komme ich zu der Erkenntnis, dass das in diesem Fall nicht an AutoCAD liegt.
Ich hab nicht verstanden, was du willst.

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

gruß
CADdog,
the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

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

---

Ich habe eine mnu&mnl geschrieben. Das funkt super auf meinem Computer. aber wen ich es weiter geben, und der nächste speichert es in einem anderen pfad ab. geht das mnl nicht mehr, und die bilder werden nicht geladen. er muss zuerst den MNU-Speicher-Pfad zu den Supportpfäden hinzufügen. Ich möchte diesen arbeitsschritt in meine mnu einbauen.

Das heisst:

Speicher meine Mnu,Mnl,alle Lisp, alle BMP in einem beliebigen Pfad lade die mnu und alles wird automatisch eingestellt.

------------------
[AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.]

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

---

hab dir mal was zusammenkopiert:
..nach dem Menuladen aufrufen ..

(defun c:WASAUCHIMMER ( / S P L M)
  (vl-load-com)
  (setq S(vla-get-SupportPath
          (vla-get-Files
            (vla-get-preferences
              (vlax-get-acad-object)
            )
          )
        )
  )
  (setq P  (vl-string-search ";" S))     
  (while P
    (setq L  (cons (substr S 1 P) L)
          S  (substr S (+ P 2))
          P  (vl-string-search ";" S)
    )
  )
  (setq L(mapcar 'Strcase (cons S L)))
  (vlax-for ITEM (vla-get-menugroups (vlax-get-acad-object))
    (setq MP (strcase(vl-filename-directory(vla-get-MenuFileName ITEM))))
    (if (not(member MP L))
      (setq L(cons MP L))
    )
  ) 
  (setq S(substr (apply 'strcat (mapcar '(lambda(x) (strcat ";" X))(reverse L)))2))
  (vla-put-SupportPath
    (vla-get-Files
      (vla-get-preferences
        (vlax-get-acad-object)
      )
    )
    S
  )         
)

------------------
- 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 kann ich verwenden.

------------------
[AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.]

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