[求助]：如何在CAD中的两处文字实现关联?

sailorjt

比如在CAD的一张图中有两处文字A和B,现在要实现B处的文字随着A处的文字变化而变化,教如何实现?

雪山飞狐(lzh)

利用AcadDocument_ObjectModified事件实现

sailorjt

可以将程序写一下吗?

雪山飞狐(lzh)

Private pJudge As Boolean
Sub Test()
Dim pText(1) As AcadText
Dim pnt(2) As Double
Set pText(0) = ThisDrawing.ModelSpace.AddText("ABC", pnt, 5)
pnt(1) = 10
Set pText(1) = ThisDrawing.ModelSpace.AddText("ABC", pnt, 5)
Dim xt(1) As Integer, xd(1)
xt(0) = 1001: xd(0) = "TlsTest"
xt(1) = 1000: xd(1) = "OK"
pText(0).SetXData xt, xd
pText(1).SetXData xt, xd
End Sub

Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
On Error Resume Next
Dim xt, xd
Dim ss As AcadSelectionSet
Dim ft(0) As Integer, fd(0)
If Not pJudge Then
pJudge = True
Object.GetXData "TlsTest", xt, xd
If IsArray(xd) Then
ThisDrawing.SelectionSets("TlsTest").Delete
Set ss = ThisDrawing.SelectionSets.Add("TlsTest")
ft(0) = 1001: fd(0) = "TlsTest"
ss.Select acSelectionSetAll, , , ft, fd
For Each i In ss
i.TextString = Object.TextString
Next i
End If
pJudge = False
End If
End Sub

wyj7485

谢谢！

headbegger

还看不懂

qiaqiadeng

请问如何使用？这个对我很重要。

purplebamboo

作拖动的程序 还用标准图？

again100_lg

编组后操作更方便

wayi2002

程序怎么用？谢谢！！

kelly7827

这个程序怎么用？谢谢！！