[VBA函数]：使用菜单如何调用带参数的函数？

gislzx

宏是不能带参数的，请问如何把带有参数的函数挂到菜单或工具条上？

雪山飞狐(lzh)

简单示例：

Sub tt(str)
MsgBox str
End Sub

(vla-eval (vlax-get-acad-object) "tt(1)")

zcmjw

vba 宏则不能

gislzx

首先谢谢两位了，二楼的方法对VBA函数是不行的，不过我自己想了个笨办法，在调用函数前把参数写入某个系统变量（例如thickness中），然后再从宏中读取其值，起到了参数传递的效果。可能有人觉得没多大必要，但它可以不必要重复去写大量功能类似的宏。
如果有更好的方法，还望赐教。