TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: kenkrupa on April 01, 2020, 11:47:32 AM

Title: Get AEC ProgID?
Post by: kenkrupa on April 01, 2020, 11:47:32 AM

Looking for a way to get such as this (for the current ACA version):
HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R24.0\ACAD-4104:409\AEC\8.3
It's the 8.3 that I'm look for.
I can do this:
(setq regkey  (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\AEC"))
which gives me this:
"HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R24.0\\ACAD-4104:409\\AEC"
but I'm not seeing a way to get that 8.3. Am I missing something?

Title: Re: Get AEC ProgID?
Post by: Jeff_M on April 01, 2020, 12:05:02 PM

(setq regkey  (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\AEC"))
(setq desc (car (vl-registry-descendents regkey)))

Title: Re: Get AEC ProgID?
Post by: kenkrupa on April 01, 2020, 12:55:08 PM

Yes - thank you!   :smitten:

Title: Re: Get AEC ProgID?
Post by: BIGAL on April 01, 2020, 09:44:23 PM

This is for CIV3D

Code: [Select]

(setq acApp (vlax-get-acad-object))
  (setq C3D (strcat "HKEY_LOCAL_MACHINE\\"
    (if vlax-user-product-key
      (vlax-user-product-key)
      (vlax-product-key)
    )
    )
C3D (vl-registry-read C3D "Release")
C3D (substr
      C3D
      1
      (vl-string-search "." C3D (+ (vl-string-search "." C3D) 1))
    )
  )
  (vla-getinterfaceobject
    acApp
    (strcat "AeccXUiLand.AeccApplication." C3D)
)
(alert (strcat "version is " c3d "\n\n" "product key is " (vlax-product-key)))