[VBA函数]：一个小问题请指教

tfod2000 · 发表于 2004-10-29 18:03:03

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

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

×

对于如果想用鼠标在autocad中选择一个对象，然后返回它的扩展信息，如何实现。最好给点程序，让我学习一下

雪山飞狐(lzh) · 发表于 2004-10-29 21:48:49

只处理了1001码和1000码，其他的自己加
Sub tt()
Dim str As String
Dim obj As AcadEntity, pnt
ThisDrawing.Utility.GetEntity obj, pnt
If obj Is Nothing Then Exit Sub
obj.GetXData "", xt, xd
For i = 0 To UBound(xt)
Select Case xt(i)
Case 1001
str = str & vbCrLf & "程序名：" & xd(i)
Case 1000
str = str & vbCrLf & "字符值：" & xd(i)
End Select
Next i
MsgBox str
End Sub

tfod2000 · 发表于 2004-10-30 09:12:55

斑竹你好厉害，佩服佩服。太感谢了。

dearjdz123 · 发表于 2004-10-30 15:30:47

好样,我正愁这个程序呢,斑竹帮了大忙呀

movie2004 · 发表于 2004-11-3 10:25:34

哭了。我的cad不能运行，我2004版的，怎么办斑竹

雪山飞狐(lzh) · 发表于 2004-11-3 17:53:35

和版本无关，如果没有XData是不会有信息的

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

[VBA函数]：一个小问题请指教

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

相关帖子