用lsp代码实现加载/卸载自定义设置

长风（龙少） · 发表于 2013-5-21 11:29:31

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

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

×

请问如何用lsp代码实现加载/卸载自定义设置，将图片中的FRXC文件自动加载？

newer · 发表于 2013-5-21 11:33:36

本帖最后由 newer 于 2013-5-21 11:36 编辑

menugroup 吧
QQ截图20130521113625.png

长风（龙少） · 发表于 2013-5-21 11:47:41

本帖最后由长风（龙少）于 2013-5-21 11:48 编辑

newer 发表于 2013-5-21 11:33
menugroup 吧

(menugroup "frxc.cui") 是这样吗？试了不行

牢固 · 发表于 2013-5-21 12:28:54

;;加载菜单 FRXC
(if (not (menugroup "FRXC"))
(command "menuload" "FRXC")
)
;;卸载菜单 FRXC
(if (menugroup "FRXC")
(command "menuunload" "FRXC")
)
;;高版本的CAD也可用CuiLoad 和CuiUnLoad命令

snsj · 发表于 2013-5-21 12:37:32

本帖最后由 snsj 于 2013-5-21 12:41 编辑

;;;|如果菜单没有被加载，加载菜单文件
(defun menuload(/ n)
(if (null(menugroup "frxc"))
(progn
(setq n 1)
(while (< n 24)
(if (menucmd (strcat "P" (itoa n) ".1=?"))
(setq n (+ n 1))
(progn
(if (> n 3)
(setq n (- n 2))
(setq n 3)
)
(command "menuload" "frxc")
(menucmd (strcat "p" (itoa n) "=+frxc.pop1"))
(setq n 25)
)
)
)
)
)(princ)
)

没有仔细看NEWER提供的帮助文件，menugroup是检查你的菜单组有没有你指定名字的菜单存在，如果存在返回菜单组名，否则返回NIL，例如(menugroup "frxz"),如果你没有加载则返回NIL，如果加载了，返回"frxz"),登录菜单要用(command "menuload" "frxz")登录菜单，登录菜单参照秋风以前的菜单登录程序

ysq101 · 发表于 2013-5-21 13:32:00

学习中。。。。。。。

sicky111 · 发表于 2013-6-5 00:50:30

G版的简单。

marting · 发表于 2013-6-5 01:08:21

sicky111 发表于 2013-6-5 00:50
G版的简单。

上面的两个代码作用不一样，无所谓哪个简单。

sicky111 · 发表于 2013-6-5 11:41:27

自定义菜单文件貌似不能放在Program Files路径下面，会找不到，不知如何解决。（不放在ACAD的安装路径下）

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

[求助] 用lsp代码实现加载/卸载自定义设置

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

评分

点评