[VBA程序]：模拟鼠标

cmx_stone · 发表于 2003-12-4 14:28:32

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

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

×

用VBA：知道坐标点，如何模拟鼠标左键点击，右键点击*-*8

pipi · 发表于 2003-12-4 14:36:02

CadInputQueue.SendDataPoint
CadInputQueue.SendReset

cmx_stone · 发表于 2003-12-4 15:12:31

高手：那我先CadInputQueue.SendCommand "CREATE SHAPE ICON"
         然后CadInputQueue.SendDataPoint  point
         为什么没有选中

具体来说：我想通过下面这段程序将一个框封闭，但是你上面的SendDataPoint没法选中Element
Sub command()
Dim point(2) As Point3d
Dim oView As View
Set oView = ActiveDesignFile.Views(1)
Dim oEl As Element
Dim oElEnum As ElementEnumerator
Set oElEnum = ActiveModelReference.GetSelectedElements
   While oElEnum.MoveNext
   Set oEl = oElEnum.Current
      If oEl.IsClosedElement Then
      Else
      point(0).X = oEl.AsChainableElement.StartPoint.X
      point(0).Y = oEl.AsChainableElement.StartPoint.Y
      point(0).Z = 0
      point(1).X = oEl.AsChainableElement.EndPoint.X
      point(1).Y = oEl.AsChainableElement.EndPoint.Y
      point(1).Z = 0
      End If
      CadInputQueue.SendCommand "CREATE SHAPE ICON"
      CadInputQueue.SendDataPoint point(0)
      CadInputQueue.SendDataPoint point(1)
      CadInputQueue.SendReset
   Wend
End Sub

pipi · 发表于 2003-12-4 19:52:43

因为你选择错keyin了，创建一个shape是两点不够的。
使用PLACE BLOCK ICON

cmx_stone · 发表于 2003-12-5 08:53:21

不是，你理解错误了，我现在不是创建一个shape，而是修改一个未封闭的line，使其成为shape
我是先得到这条line的起始两个断点，然后用CREATE SHAPE ICON命令（groups工具条中的一个按钮），最后只要在这条line上左击两下，再右击一下，line就封闭成为shape了。
现在是最后一步不成功：
CadInputQueue.SendDataPoint point(0)
CadInputQueue.SendDataPoint point(1)
CadInputQueue.SendReset

前面那个自动拉框view解决了，谢谢！！

pipi · 发表于 2003-12-5 12:03:29

那你需要用SendDataPointForLocate

cmx_stone · 发表于 2003-12-5 12:19:58

怎么用啊？
CadInputQueue.SendDataPointForLocate 没这个方法啊

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

[VBA程序]：模拟鼠标

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

相关帖子