[原创]让图像控件菜单更方便

王咣生

AutoCAD的mnu文件中有IMAGE图像控件菜单,但使用不太方便,

我模拟它写了一个程序:

 DCL:

 LSP:

VLX:

使用方法:

函数:

(LoadDialog_SlideMgr16 "标题" data)

参数data格式:

data - '((sldname labeltext command)...)

例子:

(defun c:SlideMgr16_Test ( / name data)
  (defun cmd1 () (alert "cmd1"))
  (defun cmd2 () (alert "cmd2"))
  (defun cmd3 () (alert "cmd3"))
  ;
  (setq name "Hello")
  (setq data '(("scsl(SCSL101)" "村界跳绘" "(cmd1)")
        ("scsl(SCSL105)" "计曲线" "(cmd2)")
        ("scsl(SCSL106)" "村界跳绘" "(cmd3)")
        ("scsl(SCSL110)" "山洞,溶洞" "(cmd3)")
        ("scsl(SCSL111)" "三角点" "(cmd3)")
        )
 )
  ;
  (LoadDialog_SlideMgr16 "SlideMgr16" data)
  (princ)
)

王咣生

SlideMgr.VLX中包含了:

LoadDialog_SlideMgr9

LoadDialog_SlideMgr16

LoadDialog_SlideMgr25

三个函数.

例图:

王咣生

dcl文件由DCG工具设计完成

CAD83

不会用,我太菜了,指点下吧,为可没图像....

etom999

能否把左边的做成类别,如:
1. 电机
2. 制动器
...
在图象区显示不同类别的内容...

王咣生

幻灯片要自己指定,如a.sld，必须在AutoCAD搜索路径下,那么代码就写成

  (setq data '(("a.sld" "村界跳绘" "(cmd1)")

               ...
        )
 )

如果是幻灯库,如mylib.slb中包含a.sld就要写成:

  (setq data '(("mylib(a)" "村界跳绘" "(cmd1)")
               ...
        )
 )

关于幻灯片及幻灯库的作法请查看AutoCAD帮助!

CAD83

我的是AutoCAD 2004 迷你版,帮助没有说,没法了,不会做幻灯片sld,

王咣生

建立幻灯片用命令:mslide(即将打开的dwg文件以快照的形式保存).

生成*.sld文件后,若想建立幻灯库*.slb,只需要两句话，方法如下:

1.建立目录C:\1,并将所有*.sld文件放在该目录下；

2.在目录C:\1中建立a.bat文件,内容为:

dir *.sld /b > C:\1\mylist
"C:\Program Files\AutoCAD 2004\slidelib.exe" C:\1\mylib.lib < C:\1\mylist

3.运行a.bat就可以生成幻灯片库了!

注意:slidelib.exe路径要视AutoCAD的安装目录而定!

CAD83

谢谢了,

 

hao3ren

好,可以作图库啊

可惜不懂编程，不知道怎么将其插入到图中

(("scsl(SCSL101)" "村界跳绘" "(cmd1)")

将其中的cmd1改为.insert好像不能完成

请版主讲解一下