关于菜单+LSP程序加载问题,欢迎大家进来看看,帮帮忙

yyzhan12 · 发表于 2005-6-22 08:56:00

请大家帮帮忙,先谢啦!
如何实现当程序调用并选择对象时，则弹出自定义的快捷菜单sky,替换CAD的快捷菜单？
下面附上LSP程序和菜单文件，注意菜单文件和LSP程序的路径：
"C:\\WINDOWS\\Desktop\\sk.mns"
"C:\\WINDOWS\\Desktop\\sk.lsp"
也可以下载附件。
sk.lsp程序代码：
(defun c:sk()
(if (not (menugroup "sky")) (command "menuload" "C:\\WINDOWS\\Desktop\\sk.mns"))
(setq ep (entsel "\n请选取对象:"))
(menucmd "P0=POP30")
(menucmd "P0=*")
)

sk.mns菜单文件代码：
// 自定义菜单
***MENUGROUP=sky
***POP30
**P88
[ww]
[菜单1]A
[菜单2]B
[菜单3]C
[菜单4]D
[菜单5]E
[菜单6]F
[菜单7]G

钱品 · 发表于 2005-8-9 12:23:00

路过看看而已，顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下顶下

关于菜单+LSP程序加载问题,欢迎大家进来看看,帮帮忙

发表回复

精选推荐