[VBA函数]：关于GetPoint的用法。

Durain · 发表于 2004-11-3 20:33:27

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

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

×

关于GetPoint的用法。
请看下面的程序

Private Sub CommandButton2_Click()
Dim pa, pb As Variant
Dim pc(0 To 2) As Double
Rem On Error Resume Next
UserForm1.Hide
pa = ThisDrawing.Utility.GetPoint(, "点取插入点")
pb = pa
tb01.Text = "Xpos=" + Str(pb(0)) + "Ypos=" + Str(pb(1))
UserForm1.Show
End Sub

这个程序第一次运行没有问题，但第二次运行之后会出现错误，系统提示如下：
程序在第6行停止。

而且AutoCAD文本区出现如下提示：
** That command may not be invoked transparently **

这是怎么回事呢？
其实我的要求很简单，就是用鼠标选取一个点然后得到点坐标用于其实用途！
有没有其它方法？

Durain · 发表于 2004-11-3 20:34:05

AutoCAD文本区出现如下提示：
** That command may not be invoked transparently **

雪山飞狐(lzh) · 发表于 2004-11-4 08:43:42

UserForm1换成Me试试

Durain · 发表于 2004-11-4 12:44:29

果然可以，高手就是高手耶！
不过有点不明白，UserForm1和Me 不一样吗？
两者有什么区别呢。
请指点一下。多谢了。

雪山飞狐(lzh) · 发表于 2004-11-4 19:10:19

两者相同，一般窗体外部用UserForm1，内部用Me

Durain · 发表于 2004-11-7 16:02:52

请教lzh斑竹：
这个
** That command may not be invoked transparently **
（截图在二楼）
究竟是什么意思，问题越来越严重了，
兴举凡和Acad交互的函数：如getpoing、select、selectonscreen之类的函数都会出现这个问题。
我该怎么办！·

雪山飞狐(lzh) · 发表于 2004-11-7 17:43:54

“该命令不能透明调用”
把你有问题的代码贴上看看？

ysmboy · 发表于 2004-11-12 13:10:06

你的pb定义有问题。这样pb=pa是不能实现的。

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

[VBA函数]：关于GetPoint的用法。

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

相关帖子