[求助]如何在按下toolbar时获得自定义toolbar的名称

波儿

我在程序中自定义了一些toolbar，每个toolbar调用的命令都是insert一个图块，但是按下不同的toolbar插入不同的图块，每个toolbar的name属性是不同的，我现在需要在按下不同的toolbar图标时取得该toolbar对应的名称.请问有什么方法？

mccad

layworld

如果是VC，应该是得到该按钮的ID，如果是CAD中的TOOLBAR，你直接在菜单定义的该按钮后面写一句LISP语句不就行了吗，每个语句插入不同的块。
    我已经很久不使用呢LISP了，好像是(command "insert" "文件路径名" )

波儿

'循环体中写下如下代码：
''先定义给个toolbar的宏命令
sHelp =rsBlock("Category1ID") & "/" & rsBlock("Category2ID") & "/" & rsBlock("dwgblock")
sTip =rsBlock("Category1Name") & "/" & rsBlock("Category2Name")ReDim Preserve sChildMacro(iLoop)
sChildMacro(iLoop) = Chr(3) + Chr(3) + "-insert" + sHelp + Chr(32)
''创建toolbar
........
''给每个toolbar加上命令
ReDim Preserve TbiChild(iLoop)
Set TbiChild(iLoop) = tlbChild(iLoopFather).AddToolbarButton(tlbChild(iLoopFather).Count + 1, sTip, sHelp, sChildMacro(iLoop))
''变量累加
iLoop = iLoop + 1
rsBlock.MoveNext


我所希望的效果是，不同的按钮可能对应同样的块，但是每个按钮都有不同
的名称rsBlock("Category1Name") & "/" & rsBlock("Category2Name")，如何将这个名称传递给每个按钮，使得我在按下按钮后，执行insert命令时可以确定是那个rsBlock("Category1Name") & "/" & rsBlock("Category2Name")
按钮执行的insert

波儿

是用CAD的，但是按钮时动态生成的，对应的块也是动态的，lisp可以完成吗？下面是我的部分代码，请多指教！[br]'循环体中写下如下代码：
''先定义给个toolbar的宏命令
sHelp =rsBlock("Category1ID") & "/" & rsBlock("Category2ID") & "/" & rsBlock("dwgblock")
sTip =rsBlock("Category1Name") & "/" & rsBlock("Category2Name")ReDim Preserve sChildMacro(iLoop)
sChildMacro(iLoop) = Chr(3) + Chr(3) + "-insert" + sHelp + Chr(32)
''创建toolbar
........
''给每个toolbar加上命令
ReDim Preserve TbiChild(iLoop)
Set TbiChild(iLoop) = tlbChild(iLoopFather).AddToolbarButton(tlbChild(iLoopFather).Count + 1, sTip, sHelp, sChildMacro(iLoop))
''变量累加
iLoop = iLoop + 1
rsBlock.MoveNext


我所希望的效果是，不同的按钮可能对应同样的块，但是每个按钮都有不同
的名称rsBlock("Category1Name") & "/" & rsBlock("Category2Name")，如何将这个名称传递给每个按钮，使得我在按下按钮后，执行insert命令时可以确定是那个rsBlock("Category1Name") & "/" & rsBlock("Category2Name")
按钮执行的insert

mccad