---

Wegen Inkompatibilitäten (also: Ärger) mit einer Applikation soll ich den Befehl NEU durch SNEU ersetzen. Rein von den Auswirkungen her macht das keine Probleme, sollte also klappen.

Aber - diese Hauptbefehle liegen auf vielen persönlichen, lokalen "Acad.cui" verteilt. Jetzt dachte ich, dass ich mit zentralen Befehlsänderungen das Ding lösen kann.

Code:

---

"BFLÖSCH" - "neu"

---

(das klappt, der Befehl reagiert nicht mehr)

Code:

---

(defun c:neu ()
    (command "_qnew")
)

---

Und da beginnt das Problem: QNEW / SNEU lässt sich so nicht starten, weder über "command" noch über "(c:sneu).

Was könnte ich hier machen?

Danke

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

(command "vbastmt" (strcat"AcadApplication.Documents.Open" (chr 34) "D:\\AUTOCAD\\MEINE.DWT" (chr 34) ))

???

oder gleich in Verbindung mit
(setq NAME (vl-registry-read
                      (strcat "HKEY_CURRENT_USER\\"
        (vlax-product-key)
        "\\PROFILES\\"
      (vla-get-ActiveProfile
        (vla-get-PROFILES
          (vla-get-preferences
            (vlax-get-acad-object)
          )
        )
      )
      "\\GENERAL"
    )
    "QnewTemplate"
  )
)

....

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

---

Da bin ich jetzt etwas ratlos ...

Version 1 ist anscheinend der Startbefehl über VBA und eine fixe (bzw. über Variable zu definierende) DWT. Da ist mir der theorteische Nutzen nicht klar, und praktisch stellt sich bei uns VBA leider immer wieder tot ....

Version 2 gibt die gespeicherte DWT aus. Auch hier ist mir nicht klar, wie das helfen soll ...

Nochmals mein Ansatz:
- ich habe diverse lokale Acad.cui, auf die ich nicht (sinnvoll) hinkomme
- aber ich habe eine zentrale CUI und MNL, mit der ich alles mögliche steuern kann. Und da - so dachte ich - könnte man einen Befehlswechsel einbauen.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Wird Deine zentrale CUI auf alle lokalen Rechner verteilt?

Dann tausch doch einfach den Befehl in der Master-CUI aus oder füge ihn zusätzlich zu "Neu" hinzu.
Im Menüvorrat sind ja beide "Neu" und SNeu" enthalten.

Gruss Frederik

---

ok, dann volständig vorgekaut:

(defun DT:SNEW (/ DWT )
  (vl-load-com)
  (and(or(and(setq DWT(vl-registry-read
                        (strcat "HKEY_CURRENT_USER\\"
                                (vlax-product-key)
                                "\\PROFILES\\"
                                (vla-get-ActiveProfile
                                  (vla-get-PROFILES
                                    (vla-get-preferences
                                      (vlax-get-acad-object)
                                    )
                                  )
                                )
                                "\\GENERAL"
                        )
                       "QnewTemplate"
                    )
             )
             (setq DWT (findfile DWT))
         )
         (setq DWT (getfiled "Vorlage wählen"
                             (strcat(vla-get-TemplateDwgPath
                                      (vla-get-Files 
                                        (vla-get-preferences
                                          (vlax-get-acad-object)
                                        )
                                      )
                                    )
                                    "\\"
                             )
                             "dwt"
                             8
                   )
         )
      )
      (not(vl-catch-all-error-p
            (setq DWT(vl-catch-all-apply
                       'vla-add
                       (list
                         (vla-get-documents
                           (vlax-get-acad-object)
                         )
                         DWT
                       )
                     )
           )
         )  
      )
      (not(vl-catch-all-error-p
            (vl-catch-all-apply   
              'vla-activate
              (list DWT)
            )
          )
      )   
   )
)

(command "_undefine" "neu")
(command "_undefine" "_new")
(command "_undefine" "sneu")
(command "_undefine" "_qnew")
(defun c:NEU()(DT:SNEW))
(defun c:SNEU()(DT:SNEW))
(defun c:_NEW()(DT:SNEW))
(defun c:_QNEW()(DT:SNEW))

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

---

Zitat:

---

Original erstellt von F - WI 49:
Wird Deine zentrale CUI auf alle lokalen Rechner verteilt?...

---

Nein, eben nicht. Die Acad.cui ist in der Eigenverantwortung des Anwenders, meine Firmen-CUI ist zentral, aber nur mit Firmenbefehlen ...

Thomas:
Danke, jetzt ist es klar.
Achtung: Du hast in deinem Code einmal DWT, dann DWTNAME ...
Nebenproblem: "Getfiled" bringt ja leider das alte Dialogfenster ohne Vorschau und interne Favoriten.

Aber der Weg ist klar - danke.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

ja war jetzt nur so zusammengklöppelt .... und getfilet greift ja bloß, wenn keine Vorlage vorgegeben ist ..... wie bei qnew eben 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