---

Hallo,

ich habe mich schon durch diverse Beiträge gelesen...komme aber irgendwie nicht wirklich weiter mit meinem Problem.
Ich möchte gerne über ein LISP ein Profil aus einem Netzwerk-Ordner laden und dieses dann auch anwenden bzw. als aktuell setzen.

Als Grundgerüst habe ich mir dieses Lisp hier aus einem englischsprachigen Forum geladen:

Code:

---

(defun c:LoadProfile( / profCol profLst ProfileName)
(vl-load-com)
(setq ProfileName (getstring "\nEnter the name of the profile you wish to load: "))
(setq profCol ; get profiles collection
(vla-get-Profiles
(vla-get-Preferences
(vlax-get-acad-object))))
(vla-GetAllProfileNames profCol 'profLst)

(if (and (not (member ProfileName (vlax-safearray->list profLst))) ; if profile exists
(findfile (setq Profileloc (strcat "c:\\" Profilename ".arg"))))
(progn
(vla-importprofile profcol Profilename Profileloc :vlax-false)
(vla-GetAllProfileNames profCol 'profLst)))
(if (member ProfileName (vlax-safearray->list proflst))
(progn
(if
(vl-catch-all-error-p
(vl-catch-all-apply
'vla-put-ActiveProfile
(list profCol ProfileName))) ; profile loading and error catching
(princ
(strcat "\nError loading profile <"
ProfileName ">.")); error message
(princ
(strcat "\nProfile <" ProfileName
"> successfully loaded. ")); success message
); end if
); end progn
(princ
(strcat "\nProfile <" ProfileName "> not found. ")); not found message
); end if
(princ)
); end of LoadProfile

---

Ich verstehe aber leider derzeit nicht, wo ich nun tatsächlich meinen Profilnamen und meinen Pfad eintragen muss...
Kann mir da jemand helfen?
Danke im Voraus!

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

---

Dort wird der Profilname angegeben:
(setq ProfileName (getstring "\nEnter the name of the profile you wish to load: "))

Und für den Fall das es noch kein Profil mit diesem Namen gibt, soll er ein Profil aus einer ARG-Datei importieren:
(findfile (setq Profileloc (strcat "c:\\" Profilename ".arg"))))

Aufgrund deiner Frage hier, traue ich mich mal zu Fragen: Dir ist bekannt das AutoCAD nur Profile lädt, wenn der Profilname noch nicht exisiert? Ähnlich wie bei allen Stildefinitionen: Textstil, Block, Layer, etc.

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

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

---

BIBO-Profiles.lsp

anbei ein "Frühwerk"  .. kannste mit rumtesten ...

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

---

Hallo Thomas,
vielen Dank schon mal!

wo müsste ich bei deinem Tool "Update" den Pfad X:\\CAD\ unden Profilnamen CAD.ARG eintragen?

Code:

---

(defun DT:PROFILE-UPDATE(DATEI DELETE? / PNAMES PNAME TEMPNAME)
  (vla-GetAllProfileNames
    (vla-get-profiles(vla-get-preferences(vlax-get-Acad-Object)))
    'PNAMES
  )
  (setq PNAMES(mapcar '(lambda(X) (strcase X))(vlax-safearray->list PNAMES)))
  (and(=(type DATEI)'STR)
      (setq DATEI (findfile DATEI))
      (setq PNAME (strcase(vl-filename-base DATEI)))
      (or(not(member PNAME PNAMES))
        (progn         
          (setq NR 0)
          (while (member(setq TEMPNAME(strcat PNAME "-"(itoa(setq NR(1+ NR)))))PNAMES))
          (not(vl-catch-all-error-p
                (vl-catch-all-apply     
                  'vla-RenameProfile
                  (list(vla-get-profiles(vla-get-preferences(vlax-get-Acad-Object)))
                        PNAME TEMPNAME
                  )
                )
              )
          )   
        )
      )
      (not(vl-catch-all-error-p
            (vl-catch-all-apply     
              'vla-ImportProfile
              (list(vla-get-profiles(vla-get-preferences( vlax-get-Acad-Object)))
                  PNAME DATEI :vlax-false
              )
            )
          )
      )     
      (not(vl-catch-all-error-p
            (vl-catch-all-apply     
              'vla-put-ActiveProfile     
              (list(vla-get-profiles(vla-get-preferences(vlax-get-Acad-Object)))PNAME)
            ) 
          )
      )
      (or(not TEMPNAME)
        (and DELETE?
              (not(vl-catch-all-error-p
                    (vl-catch-all-apply'vla-DeleteProfile(list TEMPNAME))
                  )
              )             
        )
        'T
      )     
  )
  (vla-get-activeprofile(vla-get-profiles(vla-get-preferences(vlax-get-Acad-Object))))
)

---

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

---

(DT:PROFILE-UPDATE "X:\\CAD\\CAD.ARG"  'T)

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