AutoCAD2022经典模式来啦!

zythc

都是大神，膜拜了

至野异族

aichong 发表于 2021-3-25 13:45
谢谢分享。。。这个我一般用lsp解决，几个语句就可以了

;;;恢复经典模式，命令jdms

哇。。。这东西太牛了，谢谢。解决了我多年手残的问题。

kfh

感谢大神分享

kfh

aichong 发表于 2021-3-25 13:45
谢谢分享。。。这个我一般用lsp解决，几个语句就可以了

;;;恢复经典模式，命令jdms

这功能真的很好用，谢谢！

不碎的意志

正好需要，谢谢楼主

lzzwxl

aichong 发表于 2021-3-25 22:39
;;;CAD2004以上版本一键恢复【AutoCAD 经典】工作空间，命令jdkj

(defun c:jdkj ()

大神，这个怎么用的啊？小白。。。

work0808

直接拖进去，为啥不能够直接运行？还要敲jdkj 吗 ？大神

aichong

work0808 发表于 2022-6-12 11:22
直接拖进去，为啥不能够直接运行？还要敲jdkj 吗 ？大神

自己修改一下就可以了：

把第一句去掉，再把最后一个）去掉即可
注意：记事本保存为ANSI格式

2. ;;;CAD2014以上版本一键恢复【AutoCAD 经典】工作空间，命令jdkj
   
3. 
   
4. (command "TOOLBAR" "ALL" "H")
   
5. ; 隐藏全部工具栏，目的是关闭天正软件等插件的工具栏
   
6. 
   
7. (command "TOOLBAR" "图层" "S")
   
8. (command "TOOLBAR" "特性" "S")
   
9. (command "TOOLBAR" "样式" "S")
   
10. (command "TOOLBAR" "绘图" "S")
    
11. (command "TOOLBAR" "修改" "S")
    
12. ;(command "TOOLBAR" "查询" "S")
    
13. (command "TOOLBAR" "绘图次序" "S")
    
14. ;(command "TOOLBAR" "图层 II" "S")
    
15. ; 显示工具栏
    
16. 
    
17. (setvar "MENUBAR" 1)
    
18. ;显示菜单栏（2009及以上版本）
    
19. (command "RIBBONCLOSE")
    
20. ;隐藏RIBBON功能区（2009及以上版本）
    
21. 
    
22. (command "-wssave" "AutoCAD 经典" "y")
    
23. ;将工作空间另存为"AutoCAD 经典"
    
24. ;(command "workspace" "C" "AutoCAD 经典")
    
25. ;当前工作空间"AutoCAD 经典"
    
26. 
    
27. (prompt "\n温馨提示：您已切换至<AutoCAD 经典>工作空间")
    
28. (prompt "\n想学习更多CAD绘图技巧尽在<明经CAD社区：http://www.mjtd.com>")
    
29. 
    
30. (princ)
    
31. 
    

;;;CAD2014以上版本一键恢复【AutoCAD 经典】工作空间，命令jdkj<br /> <br /> (command "TOOLBAR" "ALL" "H")<br /> ; 隐藏全部工具栏，目的是关闭天正软件等插件的工具栏<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 /> (setvar "MENUBAR" 1)<br /> ;显示菜单栏（2009及以上版本）<br /> (command "RIBBONCLOSE")<br /> ;隐藏RIBBON功能区（2009及以上版本）<br /> <br /> (command "-wssave" "AutoCAD 经典" "y")<br /> ;将工作空间另存为"AutoCAD 经典"<br /> ;(command "workspace" "C" "AutoCAD 经典")<br /> ;当前工作空间"AutoCAD 经典"<br /> <br /> (prompt "\n温馨提示：您已切换至<AutoCAD 经典>工作空间")<br /> (prompt "\n想学习更多CAD绘图技巧尽在<明经CAD社区：http://www.mjtd.com>")<br /> <br /> (princ)<br /> <br />

skytiger

这个很实用啊，来看一看，学习

Anlimer

楼主辛苦，感谢提供！