通用多层面板

sandyvs

nochao 发表于 2021-5-18 10:02
我找到解决办法了：(vla-sendcommand (vla-get-ActiveDocument (vlax-get-acad-object)) "**\n")

您好，请问具体怎么操作的，不懂编程。。要放到什么位置

chq168168

楼主能给个设置说明么？新手菜鸡真心不会设置

注册

lostbalance 发表于 2014-12-17 19:40
按钮间隙没那个紧凑，可以把通用函数里的spacer控件删掉。
再下面“四则”那一行，可以在more系列按钮下 ...

如出一辙，异曲同工----

注册

lostbalance 发表于 2014-12-17 19:40
按钮间隙没那个紧凑，可以把通用函数里的spacer控件删掉。
再下面“四则”那一行，可以在more系列按钮下 ...

请问是否可以在标头增加显示当前时间呢？

lostbalance

注册 发表于 2022-12-12 10:38
请问是否可以在标头增加显示当前时间呢？

你说的标头是面板最上面的抬头吗？那个的话，你处理下title就可以，把以下得到的时间字符串和title合并就可以。
(menucmd "m=$(edtime,$(getvar,date),YYYY年M月D日 HH:MM:SS DDD)")

不过如果是像43楼那样的位置加文字注释的话，就需要对函数改造下，增加这一列文字。具体文字内容有什么，那和title一样处理就好。

注册

lostbalance 发表于 2022-12-13 10:28
你说的标头是面板最上面的抬头吗？那个的话，你处理下title就可以，把以下得到的时间字符串和title合并就 ...

(defun c:xall ( / titl titl0 msg lst switch
                                main more-1 more-2
                                more-3 more-4 more-5 )
        ;通用定义
        (setq titl0 "阳羡刚刚好CAD工具箱 V20221212")
        (setq msg
                (strcat
                        "\n EDIT BY 阳羡刚刚好"
                )
        )
        (setq switch "main 主板(&Z)")
能麻烦帮改一下吧，我刚改了几遍没改成呢

2334444

简单、实用，其他的太复杂，请教一下，面板的字大小如何控制

lostbalance

注册 发表于 2022-12-13 10:46
(defun c:xall ( / titl titl0 msg lst switch
                                main more-1 more-2
                                more-3 more-4 more-5 )
...

试试
(setq datestr (menucmd "m=$(edtime,$(getvar,date),YYYY年M月D日 HH:MM:SS DDD)"))
(setq title0 (strcat "阳羡刚刚好CAD工具箱 V20221212 " datestr)
(setq msg (strcat "\n EDIT BY 阳羡刚刚好" datestr))
(setq switch "main 主板(&Z)")

lostbalance

2334444 发表于 2022-12-16 22:28
简单、实用，其他的太复杂，请教一下，面板的字大小如何控制

DCL面板里面，好像没有字高的控制参数，有一个height，但它对应的是面板元件的高度，就是按钮的高度。当然，我水平也不高，你可以请教下论坛的大佬看看。

注册

lostbalance 发表于 2022-12-17 13:16
试试
(setq datestr (menucmd "m=$(edtime,$(getvar,date),YYYY年M月D日 HH:MM:SS DDD)"))
(setq title ...

试过了，貌似没用