能不能用mapcar mapcar这类来批量定义ODCL按钮标题？

77077 · 发表于 2014-10-28 16:35:47

st788796 发表于 2014-10-28 15:36
继续努力，一级菜单你准备放多少个？
如果点最后一个后面还有几个二级菜单可用？还不可以使用三级菜单？

问题出来了，如果一级菜单放置5-10个，那可用的二级菜单也就只剩下20-25个了，如果二级里面再去掉5-10个，那剩下的菜单就灰常少了~~~
等我装个天正看看，天正里面是怎么搞的，研究下~~~

newer · 发表于 2014-10-28 16:45:21

77077 发表于 2014-10-28 16:35
问题出来了，如果一级菜单放置5-10个，那可用的二级菜单也就只剩下20-25个了，如果二级里面再去掉5-10个 ...

占用了就永远占用了吗？你不能根据进入到哪个级别下，重新定义那些按钮吗？你设计个满屏时候够用的数量，进入哪个，重新定义哪个，足够用了。
不知道你明白我的意思没。

st788796 · 发表于 2014-10-28 17:05:59

77077 发表于 2014-10-28 16:35
问题出来了，如果一级菜单放置5-10个，那可用的二级菜单也就只剩下20-25个了，如果二级里面再去掉5-10个 ...

你看看这个
http://bbs.xdcad.net/thread-672357-1-1.html

77077 · 发表于 2014-10-28 17:36:17

看了，能用，可惜看不到全部源代码。E大的的确很好用，赞一个。
我呢，也不是为了用，大多数还是想学习lsp和odcl。
就想模拟下天正里面那个菜单~~

st788796 · 发表于 2014-10-28 17:46:46

本帖最后由 st788796 于 2014-10-28 17:48 编辑

77077 发表于 2014-10-28 17:36
看了，能用，可惜看不到全部源代码。E大的的确很好用，赞一个。
我呢，也不是为了用，大多数还是想学习lsp ...

首先天正那个菜单是可以滚动的，ODCL还做不了这个，eachy 站长那个也是模拟天正某个版本的菜单

外观形式要和菜单数据格式联系起来，让Lisp处理方便，eachy 的菜单和 xml 格式类似的

iLisp · 发表于 2014-10-28 18:19:50

st788796 发表于 2014-10-28 17:46
首先天正那个菜单是可以滚动的，ODCL还做不了这个，eachy 站长那个也是模拟天正某个版本的菜单

外观 ...

是天正TS吧

newer · 发表于 2014-10-28 18:30:06

st788796 发表于 2014-10-28 17:46
首先天正那个菜单是可以滚动的，ODCL还做不了这个，eachy 站长那个也是模拟天正某个版本的菜单

外观 ...

那有啥不能实现的啊，你判断下，如果按钮总高度超过了屏幕，就在最下面显示一个箭头的按钮，鼠标放上去，就滚动呗。

77077 · 发表于 2014-10-28 18:54:54

newer 发表于 2014-10-28 18:30
那有啥不能实现的啊，你判断下，如果按钮总高度超过了屏幕，就在最下面显示一个箭头的按钮，鼠标放上去， ...

(if (> (length buttonlst)(length menulst))
(progn
   (dcl_Control_SetVisible TT_Form1_button0 F)
   (dcl_Control_SetVisible TT_Form1_button31 F)
)
(progn
   (dcl_Control_SetVisible TT_Form1_button0 T)
   (dcl_Control_SetVisible TT_Form1_button31 T)
   (dcl_Control_SetCaption TT_Form1_button0 "上一页")
   (dcl_Control_SetCaption TT_Form1_button31 "下一页")
)
)

newer · 发表于 2014-10-28 19:19:10

77077 发表于 2014-10-28 18:54
(if (> (length buttonlst)(length menulst))
(progn
(dcl_Control_SetVisible TT_Form1_butt ...

欢迎把阶段性成果贴上来啊。

iLisp · 发表于 2014-10-28 19:27:50

菜单是为了直观、方便，太复杂了反而不好

77077 · 发表于 2014-10-28 22:00:13

未完成版

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:XXCADMENU1.lsp
下载次数:45 文件大小:7.04 KB 售价:10D豆 [记录]
下载权限: 不限以上 [免费赚D豆]

zhenyoucai · 发表于 2015-1-7 11:14:17

非常不错，很有帮助，赞一个

范建威 · 发表于 2015-1-17 23:02:48

点击按钮命令不能运行啊！

范建威 · 发表于 2015-1-22 16:58:22

小菜点击没有反映！！

(defun Def_Clicked_Fun1( / i str)
(setq i 0)
(repeat 30
(setq str(strcat
" (defun c:TT_FORM1_G" (rtos (1+ i) 2 0)"_OnClicked (/) "
" (setq ml (cdr (nth " (rtos i 2 0) " lstn)))" ;(setq ml (cdr (nth I lstn)))_"HQZB"
" (SETQ CXML (STRCAT ml " "))"
" (vla-Sendcommand (vla-get-activedocument (vlax-get-acad-object)) CXML)"
)
)
(SETQ i (1+ i))
)
(eval (read str))
)

范建威 · 发表于 2015-1-22 16:58:45

(defun Def_Clicked_Fun1( / i str)
(setq i 0)
(repeat 30
(setq str(strcat
" (defun c:TT_FORM1_G" (rtos (1+ i) 2 0)"_OnClicked (/) "
"    (setq ml (cdr (nth " (rtos i 2 0) " lstn)))" ;(setq ml (cdr (nth I lstn)))_"HQZB"
"    (SETQ CXML (STRCAT ml " "))"
"    (vla-Sendcommand (vla-get-activedocument (vlax-get-acad-object)) CXML)"
)
)
(SETQ i (1+ i))
)
(eval (read str))
)

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

[求助] 能不能用mapcar mapcar这类来批量定义ODCL按钮标题？

点评

点评

点评

点评

点评