请问VBA或VB如何实现图形的动态轨迹？

zeng29

efan2000发表于2003-10-1 0:02:00自己做了个，可以看看效果。

在VBA中实现鼠标事件
该组件可以实现鼠标的按下、弹起、双击和移动的事件捕捉。
注意：Enabled属性设置为True表示允许事件的触发，之后一定要将其设置为Fa

奇怪,
ThisDrawing.ModelSpace(0).TextString = Round(ehObj.ConvertScreenToWorldX(X, Y) + 0.0000000001, 4) & ",  " & Round(ehObj.ConvertScreenToWorldY(X, Y) + 0.0000000001, 4)
在这个1.dwg中会出现不支持TextString属性或方法的错误.
在其它文件或新建文件中却正常运行.
删除1.dwg中的对象后也能正常运行.
始终没找到原因.

2. Option Explicit
   
3. 
   
4. Private WithEvents ehObj As EFHook.Hook
   
5. 
   
6. Private Sub CommandButton1_Click()
   
7.     On Error GoTo ErrTrap
   
8.     Me.Hide
   
9.     Set ehObj = New Hook
   
10.     ehObj.Enabled = True
    
11.     ThisDrawing.Utility.GetPoint
    
12.     ehObj.Enabled = False
    
13.     Set ehObj = Nothing
    
14.     Me.Show
    
15.     Exit Sub
    
16.    
    
17. ErrTrap:
    
18.     ehObj.Enabled = False
    
19.     Set ehObj = Nothing
    
20.     Unload Me
    
21. End Sub
    
22. 
    
23. Private Sub ehObj_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
24.     ThisDrawing.ModelSpace(0).TextString = Round(ehObj.ConvertScreenToWorldX(X, Y) + 0.0000000001, 4) & ",  " & Round(ehObj.ConvertScreenToWorldY(X, Y) + 0.0000000001, 4)
    
25.     ThisDrawing.ModelSpace(0).Update
    
26. End Sub
    
27. 
    
28. 
    
29. 
    

Option Explicit<br /> <br /> Private WithEvents ehObj As EFHook.Hook<br /> <br /> Private Sub CommandButton1_Click()<br />     On Error GoTo ErrTrap<br />     Me.Hide<br />     Set ehObj = New Hook<br />     ehObj.Enabled = True<br />     ThisDrawing.Utility.GetPoint<br />     ehObj.Enabled = False<br />     Set ehObj = Nothing<br />     Me.Show<br />     Exit Sub<br />     <br /> ErrTrap:<br />     ehObj.Enabled = False<br />     Set ehObj = Nothing<br />     Unload Me<br /> End Sub<br /> <br /> Private Sub ehObj_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)<br />     ThisDrawing.ModelSpace(0).TextString = Round(ehObj.ConvertScreenToWorldX(X, Y) + 0.0000000001, 4) & ",  " & Round(ehObj.ConvertScreenToWorldY(X, Y) + 0.0000000001, 4)<br />     ThisDrawing.ModelSpace(0).Update<br /> End Sub<br /> <br /> <br /> <br />

efan2000

这个是文字对象（Text、MText）和属性对象（Attribute、AttributeReference）才有的属性，检查一下是不是ThisDrawing.ModelSpace(0)的类型不对。

zeng29

确是如此,谢谢efan兄!

cag

看下我编的这个倒角标注程序,是引用acadx.arx的,如不能用,就要引用一下acadx.arx就行了
efan兄的那个dll是用vb写的吗?高手哦,不过好象不是很准,因为跟状态栏的坐标对不起来,而且速度很慢,可能实用性不是很强,还是用acadx.arx吧,不过它也有个不足,大家用过了就知道了.

cag

看一下我写的这个倒角标注程序,是引用acadx.arx做的,如不能用,引用一下acadx.arx就行了
efan兄的这个dll是用vb写的?高手哦,能否上传一下源程序?不过速度好象很慢,可能实用性不强,

cag

看一下我写的这个倒角标注程序,是引用acadx.arx做的,如不能用,引用一下acadx.arx就行了
efan兄的这个dll是用vb写的?高手哦,能否上传一下源程序?不过速度好象很慢,可能实用性不强,

zeng29

有谁知道有没有For AutoCAD 2004的 AcadX.arx,我的系统中只有AutoCAD2K4. :=(

mccad

经查询，ACADX.ARX的来源为www.caddzone.com网站。
而目前这个网站不能浏览。
经过Autodesk讨论组查询，得到的消息了2004版本至今还没有。

xxnzt2005

下载下来试一下

bingshan23

以后学习，先记下