[求助]：菜单呼叫函式

goim88 · 发表于 2006-4-22 11:11:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教各位～～
Dim menuItemOpen As AcadPopupMenuItem
Set menuItemOpen = newMenu.AddMenuItem(newMenu.Count + 1, "cir", "CSS")
上式菜单执行呼叫下列涵式CSS,好像有错误,要如何修改陈述？

Public Function CSS()
Dim ptCen(0 To 2) As Double
ptCen(0) = 100
ptCen(1) = 100
ptCen(2) = 10

ThisDrawing.ModelSpace.AddCircle ptCen, 20
End Function

fyxzi · 发表于 2006-4-22 13:45:14

好象应该是：
Set menuItemOpen = newMenu.AddMenuItem(newMenu.Count + 1, "cir", "-vbarun CSS")

雪山飞狐(lzh) · 发表于 2006-4-22 18:43:55

宏应该定义为Sub，而不是Function

goim88 · 发表于 2006-4-26 22:35:07

感谢大家解答....

账号		自动登录	找回密码
密码			立即注册

[求助]：菜单呼叫函式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子