---

Moin Forum!

Für verschiedene Autocad-externe Anwendungen benötige ich verschiedene Profile. Da ich ein fauler Mensch bin, würde ich gerne die Profile als Button in einen Werkzeugkasten "legen".
Geht das? Wenn ja, was für ein Befehl muss ich da hinterlegen?

Gruß
Ralf

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

---

das geht u.a. mit folgender Funktion:

(defun DT:PROFILE-AKTIV-SET ( PROFILNAME / PROFILES PNAMES)
  (setq PROFILES(vla-get-profiles(vla-get-preferences(vlax-get-Acad-Object))))
  (vla-GetAllProfileNames PROFILES 'PNAMES) 
  (and(=(type PROFILNAME) 'STR)
      (member(strcase PROFILNAME)
            (mapcar '(lambda(X) (strcase X))(vlax-safearray->list PNAMES))
      )
      (not(vl-catch-all-error-p               
            (vl-catch-all-apply 'vla-put-ActiveProfile (list PROFILES PROFILNAME))
          )
      )   
      (=(strcase PROFILNAME)
        (strcase(vla-get-activeprofile  PROFILES))
      )               
  )
)

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

---

Hi!

Danke schonmal. Jetzt muss ich aber trotzdem nochmal fragen:
Wie kriege ich das jetzt unter einen Buton gebaut?

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

---

Hallo,

das:  http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml
müsste Dir helfen

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

---

Hallo Ralf,

Zitat:

---

Original erstellt von Renderman:
Wie kriege ich das jetzt unter einen Buton gebaut?

---

lsp Laden wie oben beschrieben.

dann Button für jedes Profil anlegen mit z.B:
^C^C(DT:PROFILE-AKTIV-SET "<<VANILLA>>")
jeweils zwischen den "" den gewünschten Profilname, wie er in den Optionen steht.

Gruß
Peter

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