找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 328|回复: 8

[求助] vlisp如何判断是否是win10系统?

[复制链接]
发表于 2018-8-29 10:59:42 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
本帖最后由 挚友01 于 2018-8-29 11:01 编辑

vlisp如何判断是否是win10或是office2013系统?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-8-29 11:07:47 | 显示全部楼层
WMI 搜索论坛
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-8-29 11:19:09 | 显示全部楼层
(XD::SYSTEM:WMI-Query)系统WMI通用查询
8 个回复 - 428 次查看
关于WMI介绍见:http://bbs.xdcad.net/thread-709842-1-1.html [hide] 2、获取内存大小: 3、获取操作系统名字 4、获取所有的物理硬盘的序列号 ................. ...
2017-6-9 18:57 - newer - 开源函数库




[C++] 纯文本查看 复制代码
(defun c:tt ()
    (princ
        (strcat "\n操作系统:"
                (car (XD::SYSTEM:WMI-QUERY "Win32_OperatingSystem" "Caption" ""))
        )
    )
    (princ)
)


命令: TT

操作系统:Microsoft Windows 10 企业版
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 590个

财富等级: 财运亨通

发表于 2018-8-29 12:44:49 | 显示全部楼层
;获取当前操作系统名称--推荐
;(setq SystemCaption (zg-GetSystemCaption))
;"Microsoft Windows XP Professional"
(defun zg-GetSystemCaption (/ WBEM WMI WCS SystemCaption)
        (vl-load-com)
        (setq WBEM (vlax-create-object "WbemScripting.SWbemLocator"))
        (setq WMI (vlax-invoke WBEM 'ConnectServer))
        (setq WCS (vlax-invoke WMI 'InstancesOF "Win32_OperatingSystem"))
        (vlax-for item WCS
                (setq SystemCaption (vlax-get item 'Caption))
        )
        (vlax-release-object WCS)
        (vlax-release-object WMI)
        (vlax-release-object WBEM)
        SystemCaption
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2018-8-29 13:18:47 | 显示全部楼层
namezg 发表于 2018-8-29 12:44
;获取当前操作系统名称--推荐
;(setq SystemCaption (zg-GetSystemCaption))
;"Microsoft Windows XP Pro ...

好久不见你来,最近活动频繁,是不是工作轻松了?

点评

是的,最近有点时间了  详情 回复 发表于 2018-8-29 13:23
最近有点时间了。  详情 回复 发表于 2018-8-29 13:21
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 590个

财富等级: 财运亨通

发表于 2018-8-29 13:21:55 | 显示全部楼层
本帖最后由 namezg 于 2018-8-29 13:32 编辑

;再来一种方法,通过注册表获取


;获取当前系统的名称
;(setq SystemProductName (zg-GetSystemProductName))
;"Microsoft Windows XP"
(defun zg-GetSystemProductName (/ SystemProductName)
        (setq SystemProductName (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion" "ProductName"))
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 590个

财富等级: 财运亨通

发表于 2018-8-29 13:23:39 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2018-8-29 13:18
好久不见你来,最近活动频繁,是不是工作轻松了?

是的,最近有点时间了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-8-29 13:53:37 | 显示全部楼层
多谢各位高手们,我是因为在VBA程序中有
On Error Resume Next
                Set Acadapp = GetObject(, "AutoCAD.Application")
                If Acadapp Is Nothing Then
判断CAD是否已打开,win7中判断都正常,win10中就判断失效,不知根本的原因所在。。。
现在已经通过各位高手们知道操作系统是如何判断的了,还想知道各位是否遇到过我同类的问题,是如何解决的?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 590个

财富等级: 财运亨通

发表于 2018-8-29 15:12:47 | 显示全部楼层
本帖最后由 namezg 于 2018-8-29 15:23 编辑

On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err <> 0 Then  '也可以用If Err Then
    MsgBox "CAD未运行。"
    Err.Clear
    Set acadApp = CreateObject("AutoCad.Application")
Else
    MsgBox "CAD已运行。"
End If
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 03:10 , Processed in 0.412793 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表