2024.1.6版本无法使用LISP得到传统cad布局

gamore

想使用 LISP 代码恢复传统布局 。结果提示要下载扩展，如何操作呢。

2. ;;;CAD2004以上版本一键恢复【AutoCAD 经典】工作空间，命令jdkj
   
3. 
   
4. (defun c:jdkj ()
   
5. (command "TOOLBAR" "ALL" "H")
   
6. ; 隐藏全部工具栏，目的是关闭天正软件等插件的工具栏
   
7. 
   
8. (cond (
   
9. (< (atoi (substr (ver) 13)) 2009 );;判断CAD版本是否小于 2009
   
10. (command "TOOLBAR" "工作空间" "H")
    
11. (command "TOOLBAR" "标准注释" "H")
    
12. (command "TOOLBAR" "标准" "S")
    
13. )) ;;cond
    
14. 
    
15. (command "TOOLBAR" "图层" "S")
    
16. (command "TOOLBAR" "特性" "S")
    
17. (command "TOOLBAR" "样式" "S")
    
18. (command "TOOLBAR" "绘图" "S")
    
19. (command "TOOLBAR" "修改" "S")
    
20. ;(command "TOOLBAR" "查询" "S")
    
21. (command "TOOLBAR" "绘图次序" "S")
    
22. ;(command "TOOLBAR" "图层 II" "S")
    
23. ; 显示工具栏
    
24. 
    
25. (cond (
    
26. (> (atoi (substr (ver) 13)) 2008 );;判断CAD版本是否大于 2008
    
27. (setvar "MENUBAR" 1)
    
28. ;显示菜单栏（2009及以上版本）
    
29. (command "RIBBONCLOSE")
    
30. ;隐藏RIBBON功能区（2009及以上版本）
    
31. ));;cond
    
32. 
    
33. (command "-wssave" "AutoCAD 经典" "y")
    
34. ;将工作空间另存为"AutoCAD 经典"
    
35. ;(command "workspace" "C" "AutoCAD 经典")
    
36. ;当前工作空间"AutoCAD 经典"
    
37. 
    
38. (princ)
    
39. )

;;;CAD2004以上版本一键恢复【<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 经典】工作空间，命令jdkj<br /> <br /> (defun c:jdkj ()<br /> (command "TOOLBAR" "ALL" "H")<br /> ; 隐藏全部<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>栏，目的是关闭天正软件等<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">插件</a>的工具栏<br /> <br /> (cond (<br /> (< (atoi (substr (ver) 13)) 2009 );;判断CAD版本是否小于 2009<br /> (command "TOOLBAR" "工作空间" "H")<br /> (command "TOOLBAR" "标准注释" "H")<br /> (command "TOOLBAR" "标准" "S")<br /> )) ;;cond<br /> <br /> (command "TOOLBAR" "图层" "S")<br /> (command "TOOLBAR" "特性" "S")<br /> (command "TOOLBAR" "样式" "S")<br /> (command "TOOLBAR" "绘图" "S")<br /> (command "TOOLBAR" "修改" "S")<br /> ;(command "TOOLBAR" "查询" "S")<br /> (command "TOOLBAR" "绘图次序" "S")<br /> ;(command "TOOLBAR" "图层 II" "S")<br /> ; 显示工具栏<br /> <br /> (cond (<br /> (> (atoi (substr (ver) 13)) 2008 );;判断CAD版本是否大于 2008<br /> (setvar "MENUBAR" 1)<br /> ;显示菜单栏（2009及以上版本）<br /> (command "RIBBONCLOSE")<br /> ;隐藏RIBBON功能区（2009及以上版本）<br /> ));;cond<br /> <br /> (command "-wssave" "AutoCAD 经典" "y")<br /> ;将工作空间另存为"AutoCAD 经典"<br /> ;(command "workspace" "C" "AutoCAD 经典")<br /> ;当前工作空间"AutoCAD 经典"<br /> <br /> (princ)<br /> )

广易精通

输入(setvar 'lispsys  0)回车，再重启CAD

自贡黄明儒

一步步执行，看哪一句出现这个提示的。

gamore

自贡黄明儒 发表于 2024-12-19 10:13
一步步执行，看哪一句出现这个提示的。

点 工具-AutoLISP-Visual 编辑器 就提示这个。以前的版本都是直接就可以出。

自贡黄明儒

你说的问题没有找到，不过这程序很好。

1. ;;传统布局
   
2. (defun c:CTBJ ()
   
3.   (vl-cmdf "_.TOOLBAR" "ALL" "H")
   
4.   ;;判断CAD版本是否小于 2009
   
5.   (cond
   
6.     ((< (atoi (substr (ver) 13)) 2009)
   
7.      (vl-cmdf "_.TOOLBAR" "工作空间" "H")
   
8.      (vl-cmdf "_.TOOLBAR" "标准注释" "H")
   
9.      (vl-cmdf "_.TOOLBAR" "标准" "S")
   
10.     )
    
11.   )
    
12.   (vl-cmdf "_.TOOLBAR" "图层" "S")
    
13.   (vl-cmdf "_.TOOLBAR" "特性" "S")
    
14. 
    
15.   ;;常用5个
    
16.   (vl-cmdf "_.TOOLBAR" "标注" "S")
    
17.   (vl-cmdf "_.TOOLBAR" "对象捕捉" "S")
    
18.   (vl-cmdf "_.TOOLBAR" "绘图" "S")
    
19.   (vl-cmdf "_.TOOLBAR" "修改" "S")
    
20.   (vl-cmdf "_.TOOLBAR" "绘图次序" "S")
    
21.   ;;显示工具栏
    
22.   
    
23.   ;;判断CAD版本是否大于 2008
    
24.   (cond
    
25.     ((> (atoi (substr (ver) 13)) 2008)
    
26.      (setvar "MENUBAR" 1)
    
27.      ;;显示菜单栏（2009及以上版本）
    
28.      (vl-cmdf "_.RIBBONCLOSE")
    
29.      ;;隐藏RIBBON功能区（2009及以上版本）
    
30.     )
    
31.   )
    
32. 
    
33.   (vl-cmdf "_.-wssave" "AutoCAD 经典" "y")
    
34.   ;;将工作空间另存为"AutoCAD 经典"
    
35.   ;;(vl-cmdf "_.workspace" "C" "AutoCAD 经典")
    
36.   ;;当前工作空间"AutoCAD 经典"
    
37. 
    
38.   ;;锁定
    
39.   (setvar 'LOCKUI 15)
    
40. 
    
41.   (princ)
    
42. )
    

;;传统布局<br /> (defun c:CTBJ ()<br />   (vl-cmdf "_.TOOLBAR" "ALL" "H")<br />   ;;判断CAD版本是否小于 2009<br />   (cond<br />     ((< (atoi (substr (ver) 13)) 2009)<br />      (vl-cmdf "_.TOOLBAR" "工作空间" "H")<br />      (vl-cmdf "_.TOOLBAR" "标准注释" "H")<br />      (vl-cmdf "_.TOOLBAR" "标准" "S")<br />     )<br />   )<br />   (vl-cmdf "_.TOOLBAR" "图层" "S")<br />   (vl-cmdf "_.TOOLBAR" "特性" "S")<br /> <br />   ;;常用5个<br />   (vl-cmdf "_.TOOLBAR" "标注" "S")<br />   (vl-cmdf "_.TOOLBAR" "对象捕捉" "S")<br />   (vl-cmdf "_.TOOLBAR" "绘图" "S")<br />   (vl-cmdf "_.TOOLBAR" "修改" "S")<br />   (vl-cmdf "_.TOOLBAR" "绘图次序" "S")<br />   ;;显示工具栏<br />   <br />   ;;判断CAD版本是否大于 2008<br />   (cond<br />     ((> (atoi (substr (ver) 13)) 2008)<br />      (setvar "MENUBAR" 1)<br />      ;;显示菜单栏（2009及以上版本）<br />      (vl-cmdf "_.RIBBONCLOSE")<br />      ;;隐藏RIBBON功能区（2009及以上版本）<br />     )<br />   )<br /> <br />   (vl-cmdf "_.-wssave" "AutoCAD 经典" "y")<br />   ;;将工作空间另存为"AutoCAD 经典"<br />   ;;(vl-cmdf "_.workspace" "C" "AutoCAD 经典")<br />   ;;当前工作空间"AutoCAD 经典"<br /> <br />   ;;锁定<br />   (setvar 'LOCKUI 15)<br /> <br />   (princ)<br /> )<br />

jun470

广易精通 发表于 2024-12-19 10:43
输入(setvar 'lispsys  0)回车，再重启CAD

正解，之前也遇到过，2021以上的CAD第一次用VLISP命令的时候，没选IDE，就出这个对话框

moranyuyan

自贡黄明儒 发表于 2024-12-19 10:45
你说的问题没有找到，不过这程序很好。

我一直不解，为什么好多人都喜欢用插件恢复经典界面，本身cad就没有阉割经典界面，在cad工具里有一切。

gamore

广易精通 发表于 2024-12-19 10:43
输入(setvar 'lispsys  0)回车，再重启CAD

哇厉害了，解决问题。

e2002

你说的是：工作空间（Workspace）要回到所谓“经典模式”

实际上就两点，关闭 Ribbon，打开 Menubar与几个常规的样式、特性工具栏。

建议大家一般只开“图层”“特性”“样式”工具栏等；对于“编辑”“绘图”这两个工具栏，实属浪费屏幕显示空间的，还是关闭吧。因为这些高频使用命令，用鼠标点击工具栏图标的方式操作，画图速度没法快起来。

Bao_lai

大概率估计是cad lt版本，听说本身不支持lisp。