gamore 发表于 7 天前

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



想使用 LISP 代码恢复传统布局 。结果提示要下载扩展，如何操作呢。
;;;CAD2004以上版本一键恢复【AutoCAD 经典】工作空间，命令jdkj

(defun c:jdkj ()
(command "TOOLBAR" "ALL" "H")
; 隐藏全部工具栏，目的是关闭天正软件等插件的工具栏

(cond (
(< (atoi (substr (ver) 13)) 2009 );;判断CAD版本是否小于 2009
(command "TOOLBAR" "工作空间" "H")
(command "TOOLBAR" "标准注释" "H")
(command "TOOLBAR" "标准" "S")
)) ;;cond

(command "TOOLBAR" "图层" "S")
(command "TOOLBAR" "特性" "S")
(command "TOOLBAR" "样式" "S")
(command "TOOLBAR" "绘图" "S")
(command "TOOLBAR" "修改" "S")
;(command "TOOLBAR" "查询" "S")
(command "TOOLBAR" "绘图次序" "S")
;(command "TOOLBAR" "图层 II" "S")
; 显示工具栏

(cond (
(> (atoi (substr (ver) 13)) 2008 );;判断CAD版本是否大于 2008
(setvar "MENUBAR" 1)
;显示菜单栏（2009及以上版本）
(command "RIBBONCLOSE")
;隐藏RIBBON功能区（2009及以上版本）
));;cond

(command "-wssave" "AutoCAD 经典" "y")
;将工作空间另存为"AutoCAD 经典"
;(command "workspace" "C" "AutoCAD 经典")
;当前工作空间"AutoCAD 经典"

(princ)
)

广易精通 发表于 7 天前

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

自贡黄明儒 发表于 7 天前

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

gamore 发表于 7 天前

本帖最后由 gamore 于 2024-12-19 10:24 编辑

自贡黄明儒 发表于 2024-12-19 10:13
一步步执行，看哪一句出现这个提示的。
点 工具-AutoLISP-Visual 编辑器 就提示这个。以前的版本都是直接就可以出。

自贡黄明儒 发表于 7 天前

你说的问题没有找到，不过这程序很好。
;;传统布局
(defun c:CTBJ ()
(vl-cmdf "_.TOOLBAR" "ALL" "H")
;;判断CAD版本是否小于 2009
(cond
    ((< (atoi (substr (ver) 13)) 2009)
   (vl-cmdf "_.TOOLBAR" "工作空间" "H")
   (vl-cmdf "_.TOOLBAR" "标准注释" "H")
   (vl-cmdf "_.TOOLBAR" "标准" "S")
    )
)
(vl-cmdf "_.TOOLBAR" "图层" "S")
(vl-cmdf "_.TOOLBAR" "特性" "S")

;;常用5个
(vl-cmdf "_.TOOLBAR" "标注" "S")
(vl-cmdf "_.TOOLBAR" "对象捕捉" "S")
(vl-cmdf "_.TOOLBAR" "绘图" "S")
(vl-cmdf "_.TOOLBAR" "修改" "S")
(vl-cmdf "_.TOOLBAR" "绘图次序" "S")
;;显示工具栏

;;判断CAD版本是否大于 2008
(cond
    ((> (atoi (substr (ver) 13)) 2008)
   (setvar "MENUBAR" 1)
   ;;显示菜单栏（2009及以上版本）
   (vl-cmdf "_.RIBBONCLOSE")
   ;;隐藏RIBBON功能区（2009及以上版本）
    )
)

(vl-cmdf "_.-wssave" "AutoCAD 经典" "y")
;;将工作空间另存为"AutoCAD 经典"
;;(vl-cmdf "_.workspace" "C" "AutoCAD 经典")
;;当前工作空间"AutoCAD 经典"

;;锁定
(setvar 'LOCKUI 15)

(princ)
)

jun470 发表于 7 天前

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

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

moranyuyan 发表于 7 天前

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

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

gamore 发表于 7 天前

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

哇厉害了，解决问题。

e2002 发表于 7 天前

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

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

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

Bao_lai 发表于 6 天前

大概率估计是cad lt版本，听说本身不支持lisp。
页: [1] 2
查看完整版本: 2024.1.6版本无法使用LISP得到传统cad布局