nochao 发表于 2021-5-18 10:02
我找到解决办法了：(vla-sendcommand (vla-get-ActiveDocument (vlax-get-acad-object)) "**\n")
您好，请问具体怎么操作的，不懂编程。。要放到什么位置
楼主能给个设置说明么？新手菜鸡真心不会设置
lostbalance 发表于 2014-12-17 19:40
按钮间隙没那个紧凑，可以把通用函数里的spacer控件删掉。
再下面“四则”那一行，可以在more系列按钮下 ...
如出一辙，异曲同工----
lostbalance 发表于 2014-12-17 19:40
按钮间隙没那个紧凑，可以把通用函数里的spacer控件删掉。
再下面“四则”那一行，可以在more系列按钮下 ...
请问是否可以在标头增加显示当前时间呢？
注册 发表于 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)")
能麻烦帮改一下吧，我刚改了几遍没改成呢
简单、实用，其他的太复杂，请教一下，面板的字大小如何控制
注册 发表于 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)")
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 ...
试过了，貌似没用