---

Kennt jemand eine System- oder Envoirement-Variable die Aufschluss darüber gibt ob Autocad oder Civil3d aktuell läuft.
Die 'ACADVER hilft mir nicht weiter, da sie mir in beiden Systmen den Wert 20 zurückgibt (ACADVER = "20.1s (LMS Tech)" (read only)
)

HG ist der, dass ich Eigenentwicklungen in Civil3d nicht in Autocad verwenden darf/kann. Rein theoretisch kann ich sie aber in Autocad laden (die Befehle sind dann auch in Autocad erreichbar)

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

Hallo Dirk,

gib mal _SYSVDLG ein und dann ist es die _VERNUM

------------------
mfg Roman

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

---

Code:

---

(getvar "_VERNUM")

---

Gibt mir in beiden

Code:

---

"M.107.0.0 (UNICODE)"

---

zurück

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

(vla-get-caption (vlax-get-acad-object)) reicht Dir nicht?

Dann bliebe noch die Abfrage, ob bestimmte arx/dll geladen sind, ob spezifische Befehle aktiv sind etc. Sei kreativ (auch beim googeln  )

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Danke für deinen Vorschlag
Das reicht nicht aus, da du mit der Abfrage lediglich den aktuellen Startmodus abfragst.
Darin kann der Geier was stehen
" - [Drawing1.dwg]"
" - [Drawing2.dwg]"
"Autodesk AutoCAD 2016 - [Drawing1.dwg]"

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

...vielleicht noch

Code:

---

(getvar "CPROFILE")

---

gibt das aktiv geladene Autocad-Profil zurück.
Kann auf das Produkt verweisen, muss (wenn vom Benutzer geändert) natürlich nicht.

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

gruß
Stephan

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

---

Vielen euch allen. So könnte es funktionieren:

Code:

---

; Variante 1
(defun LinfoProfile( / acad acadprefs acadprofiles actprofile)
  (setq acad (vlax-get-Acad-Object))
  (setq acadprefs (vla-get-preferences acad))
  (setq acadprofiles (vla-get-profiles acadprefs))

  (setq actprofile (vla-get-ActiveProfile acadprofiles))

  (vlax-invoke-method acadProfiles 'GetAllProfileNames 'thelist)
;;;  (setq result (vlax-safearray->list thelist))

  (setq result (getvar 'CPROFILE))

  (if (vl-string-search "C3D" (strcase (vl-princ-to-string result)))
    (princ "\nCivil3d active")
    (princ "\nAutocad active")
    )
  (princ (strcat "\nCurrent profile: < " actprofile " > "))
  (princ)
  )

; Variante 2
(defun Linfo2 ( / KeyLst RegPth RetVal)
(setq RegPth (strcat "HKEY_LOCAL_MACHINE\\" (vlax-product-key))
      KeyLst (vl-registry-descendents RegPth T)
)
(foreach memb KeyLst
  (if (not (eq memb ""))
  (setq RetVal (cons
                (cons memb (vl-registry-read RegPth memb))
                RetVal
                )
        )
    )
  )
  (reverse RetVal)
  )

(setq test1 (LinfoProfile))
(setq test2 (assoc "ProductName" (Linfo2)))

---

Wobei variable test2 auf alle Einträge in der registry zu Autocad installationen schaut. Sofern kann hier auch kein Unterschied festgestellt werden ob aktuell Autocad oder Civil3d läuft
Riskant ist auch, wenn dummerweise Standardprofile gelöscht oder umbenannt wurden

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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