Topic: Getting autocad vertical information

[sdunn]

I am looking for an automated way in .net to obtain the service pack version of Civil 3D 2013 and newer.

I found where I can get the application version but not the service pack information.  Am I limited to searching the registry?

[sdunn]

Thanks to Jeff for this:
http://forums.autodesk.com/t5/autocad-civil-3d-customization/find-the-current-service-pack-version-of-civil-3d/td-p/6000264

I came up with something in lisp that works for 2015.

Code - Auto/Visual Lisp: [Select]

1. (defun c:getinfo ()
2. (vl-load-com)
3. (cond ((setq wscript (vlax-create-object "WScript.Network"))
4.        (setq pcname (vlax-get-property wscript "ComputerName")
5.              pcdom  (vlax-get-property wscript "UserDomain")
6.              pcuser (vlax-get-property wscript "UserName")
7.        )
8.        (vlax-release-object wscript)
9.       )
10. ); cond
11.  
12. ; get civil 3d service pack info from registry
13. (setq reg (strcat "HKEY_LOCAL_MACHINE\\" (vlax-machine-product-key)))
14. (setq reg (strcat (substr reg 1) "\\Service Packs"))
15. (setq reg (strcat reg "\\" (car (vl-registry-descendents reg))))
16. (setq PatchTitle (vl-registry-read reg "PatchTitle"))
17. (setq Release (vl-registry-read reg "Release"))
18. ; Get ram using doslib
19. (setq maj (itoa (atoi (getvar "acadver"))))
20. (setq dls (strcat "doslib" maj ".arx"))
21. (setq res (dos_mem))
22. (setq mem (rtos (nth 1 res) 2 0))
23. (setq memgb (/ (read mem) 1048576))
24.  
25. (mapcar 'princ
26.         (list "\nComputername: "  pcname
27.                 "\nUser domain:  "  pcdom
28.                 "\nUser name:    "  pcuser
29.                 "\nService Pack: " PatchTitle
30.                 "\nRelease: " Release
31.                 "\nTotal Physical Memory: " memgb
32.     )
33. )
34. (princ)
35. )

[huiz]

Gile wrote an excellent function to find information about installed versions:

http://www.theswamp.org/index.php?topic=31867.msg538136#msg538136

Maybe that will help you.