win10，cad2007，安装工具箱提示未安装cad是什么情况？

thg0088 · 发表于 2017-4-4 17:09:01

newer · 发表于 2017-4-4 17:19:04

本帖最后由 newer 于 2017-4-4 17:20 编辑

你的2007是什么版本？
1、精简版？
2、中文版还是英文版？

你在命令行输入下面代码回车，把返回值贴到论坛

(vl-load-com)
(vlax-product-key)

thg0088 · 发表于 2017-4-5 07:50:05

newer 发表于 2017-4-4 17:19

"Software\\Autodesk\\AutoCAD\\R17.0\\ACAD-5001:804"

newer · 发表于 2017-4-5 11:30:10

thg0088 发表于 2017-4-5 07:50

拷贝下面代码，执行TT，把屏幕返回的信息贴上来。

(defun c:tt () (vl-load-com)
(if (setq val (vl-registry-descendents
"HKEY_CURRENT_USER\\SOFTWARE\\AUTODESK\\AUTOCAD"
)
)
(progn
(princ "\nHKEY_CURRENT_USER Node:\n")
(mapcar '(lambda (x)
(princ (strcat "\n" x "\n"))
(setq val1
(vl-registry-descendents
(strcat
"HKEY_CURRENT_USER\\SOFTWARE\\AUTODESK\\AUTOCAD\\"
x
)
)
)
(princ (strcat "--------" (car val1) "\n"))
)
(reverse val)
)
)
)
(if (setq
val (vl-registry-descendents
"HKEY_LOCAL_MACHINE\\SOFTWARE\\WOW6432Node\\Autodesk\\AutoCAD"
)
)
(progn
(princ "\nSysWow64 Node:\n")
(mapcar '(lambda (x)
(princ (strcat "\n" x "\n"))
(setq val1
(vl-registry-descendents
(strcat
"HKEY_LOCAL_MACHINE\\SOFTWARE\\WOW6432Node\\Autodesk\\AutoCAD\\"
x
)
)
)
(mapcar '(lambda(y)(princ (strcat " ├-----" y "\n"))) val1)
)
(reverse val)
)
)
)
(princ)
)

(defun c:tt ()  (vl-load-com) 
  (if (setq val        (vl-registry-descendents 
                  "HKEY_CURRENT_USER\\SOFTWARE\\AUTODESK\\AUTOCAD" 
                ) 
      ) 
    (progn 
      (princ "\nHKEY_CURRENT_USER Node:\n") 
      (mapcar '(lambda (x) 
                 (princ (strcat "\n" x "\n")) 
                 (setq val1 
                        (vl-registry-descendents 
                          (strcat 
                            "HKEY_CURRENT_USER\\SOFTWARE\\AUTODESK\\AUTOCAD\\" 
                            x 
                          ) 
                        ) 
                 ) 
                 (princ (strcat "--------" (car val1) "\n")) 
               ) 
              (reverse val) 
      ) 
    ) 
  ) 
  (if (setq 
        val (vl-registry-descendents 
              "HKEY_LOCAL_MACHINE\\SOFTWARE\\WOW6432Node\\Autodesk\\AutoCAD" 
            ) 
      ) 
    (progn 
      (princ "\nSysWow64 Node:\n") 
      (mapcar '(lambda (x) 
                 (princ (strcat "\n" x "\n")) 
                 (setq val1 
                        (vl-registry-descendents 
                          (strcat 
                            "HKEY_LOCAL_MACHINE\\SOFTWARE\\WOW6432Node\\Autodesk\\AutoCAD\\" 
                            x 
                          ) 
                        ) 
                 ) 
                 (mapcar '(lambda(y)(princ (strcat "   ├-----" y "\n"))) val1) 
               ) 
              (reverse val) 
      ) 
    ) 
  ) 
  (princ) 
)

下面是我机器的

命令: tt

HKEY_CURRENT_USER Node:

R16.1
--------Express

R17.1
--------ACAD-6001:804

R20.1
--------ACAD-F001:804

R21.0
--------ACAD-0002:804

SysWow64 Node:

R16.1
├-----ACAD-301:804

R17.0
├-----ACAD-5001:804
├-----ACAD-5001:409

R17.1
├-----ACAD-6004:804
├-----ACAD-6004:409
├-----ACAD-6004:404
├-----ACAD-6001:804
├-----ACAD-6001:409

R17.2
├-----ACAD-7001:804

R20.1
├-----ACAD-F001:804

thg0088 · 发表于 2017-4-5 15:06:23

本帖最后由 thg0088 于 2017-4-5 15:11 编辑

newer 发表于 2017-4-5 11:30

复制代码到哪里执行TT？
cad中貌似没有这命令

未知命令“TT”。按 F1 查看帮助。

1121443108qaz · 发表于 2017-8-27 16:06:26

一样的问题，cad2018的，怎么办

newer · 发表于 2017-8-27 16:24:55

1121443108qaz 发表于 2017-8-27 16:06

工具箱和API明确写了 FOR 2004-2016

shengmiren · 发表于 2018-3-31 12:03:21

我装的是CAD2008,软件是群里下载的AutoCAD.2008简体中文版（32.64位）带SP1，无英文的这种；其它的插件能装上，就API不能装上，也在找原因；

chi2018 · 发表于 2018-11-3 22:14:56

同样问题，待解决

wx_NUA4NyPX · 发表于 2018-11-8 12:55:30

一样。api装不上

账号		自动登录	找回密码
密码			立即注册

[求助] win10，cad2007，安装工具箱提示未安装cad是什么情况？

相关帖子