lijiao 发表于 2024-8-1 16:26:30

另类的菜单

本帖最后由 lijiao 于 2024-8-2 09:36 编辑


第二版:

在第一版的基础上增加了对图像的支持,不用多说,看看下图就明白
图像用bmp格式,图像大小建议30X30像素,其它图像格式没有验证
忘说了,用netload命令进行加载

......................................................................................................................
第一版:

刚出炉的,欢迎体验(估计实用于AutoCAD2013以上版本)
功能:在屏幕中间产生一个菜单共用户选择


调用格式:(csmenu ]]]]])
参数:最多可以使用6个参数menu0~menu5,均为字符串,代表菜单上的文字信息

返回值:返回用户点击的菜单序号0~5
示例:1
示例:2
示例:3
示例:4
示例:5
示例:6
示例:7

lijiao 发表于 2024-8-2 17:32:23

664571221 发表于 2024-8-2 16:56
怎么用啊大神

下载解压后得到csmenu.dll文件,启动cacd后输入netload来加载csmenu.dll
加载成功后就可以用了
调用方式
1.(csmenu ]]]]])
2.(csmenu ['(str0 file0) ['(str1 file1) ['(str2 file2) ['(str3 file3) ['(str4 file4) ['(str5 file5)]]]]]])
两种方式可以混合使用

lijiao 发表于 2024-8-4 07:39:23

depgfdepgf 发表于 2024-8-3 20:05
大佬,直线,圆这些命令在哪里设置呀?
给你举个例子吧:
(setq rev (csmenu "直线" "圆"))
(cond
   ((= rev 0) (command "line"))
   ((= rev 1) (command "circle"))
)

664571221 发表于 2024-8-3 09:20:03

lijiao 发表于 2024-8-2 17:32
下载解压后得到csmenu.dll文件,启动cacd后输入netload来加载csmenu.dll
加载成功后就可以用了
调用方式 ...

好高级就是用不来

tranque 发表于 2024-8-1 16:34:07

很棒,支持,感谢分享

自贡黄明儒 发表于 2024-8-1 19:42:16

很有创意   

gble119 发表于 2024-8-1 23:01:55

这个看上去蛮不错

cghdy 发表于 2024-8-2 08:03:48

; : no function definition: CSMENU

lijiao 发表于 2024-8-2 10:41:41

还做了一个lisp+VBA版的,效果和这差不多,由于实现起来很麻烦,也没法单独剥离出来,所以这里就不展示了,有兴趣的朋友可以私聊

664571221 发表于 2024-8-2 16:56:30

怎么用啊大神

bai2000 发表于 2024-8-2 18:22:12

怎么点击调用命令????

muai2010 发表于 2024-8-2 23:24:02

新东西啊,有点意思
页: [1] 2
查看完整版本: 另类的菜单