获取autocad垂直信息

sdunn · 发表于 2016-1-20 18:43:57

我正在寻找一种在.net中自动获取Civil 3D 2013及更高版本的Service Pack版本。
我找到了可以获取应用程序版本的位置，但找不到 Service Pack 信息。我是否仅限于搜索注册表？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

sdunn · 发表于 2016-1-25 19:29:45

感谢杰夫：
http://forums.autodesk.com/t5/autocad-civil-3d-customization/find-the-current-service-pack-version-of-civil-3d/td-p/6000264
我在lisp中想出了一些适用于2015年的东西。

copy

(defun c:getinfo ()
(vl-load-com)
(cond ((setq wscript (vlax-create-object "WScript.Network"))
       (setq pcname (vlax-get-property wscript "ComputerName")
             pcdom  (vlax-get-property wscript "UserDomain")
             pcuser (vlax-get-property wscript "UserName")
       )
       (vlax-release-object wscript)
      )
); cond
 
; get civil 3d service pack info from registry
(setq reg (strcat "HKEY_LOCAL_MACHINE\" (vlax-machine-product-key)))
(setq reg (strcat (substr reg 1) "\\Service Packs"))
(setq reg (strcat reg "\" (car (vl-registry-descendents reg))))
(setq PatchTitle (vl-registry-read reg "PatchTitle"))
(setq Release (vl-registry-read reg "Release"))
; Get ram using doslib
(setq maj (itoa (atoi (getvar "acadver"))))
(setq dls (strcat "doslib" maj ".arx"))
(setq res (dos_mem))
(setq mem (rtos (nth 1 res) 2 0))
(setq memgb (/ (read mem) 1048576))
 
(mapcar 'princ
        (list "\nComputername: "  pcname
                "\nUser domain:  "  pcdom
                "\nUser name:    "  pcuser
                "\nService Pack: " PatchTitle
                "\nRelease: " Release
                "\nTotal Physical Memory: " memgb
    )
)
(princ)
)

huiz · 发表于 2016-1-26 03:33:09

Gile编写了一个出色的函数来查找有关已安装版本的信息：
http://www.theswamp.org/index.php?topic=31867.msg538136#msg538136
也许这会对您有所帮助。

获取autocad垂直信息

发表回复

精选推荐