如何让某点处只存在一个 单行文字

cctv2cctv

1. point(0)=x
2. point(1)=y
3. ThisDrawing.ModelSpace.AddText("起点", Point, 500)

复制代码

产生了一个单行文字
再次用相同命令时又产生了单行文字 如何让(x,y)处只产生一个单行文字
(x,y)位置不固定可能与上次相同，可能不同，vba程序可能会关闭后再次运行,所以无法保存(x,y)坐标,如果搜索全图来获取所有单行文字坐标进行比较判断效率太低

雪山飞狐_lzh

用文本的插入点为过滤条件做选择集

cctv2cctv

谢谢版主

vba cad 程序可能会被关闭，选择集中点无法保存，下次打开cad的时候用相同命令，会多出一个 单行文字

雪山飞狐_lzh

Sub tt()
    On Error Resume Next
    Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("Test").Delete
    Set ss = ThisDrawing.SelectionSets.Add("Test")
   
   
    Dim pnt(2) As Double
    Dim ft(0) As Integer, fd(0)
    ft(0) = 10: fd(0) = pnt
    ss.Select acSelectionSetAll, , , ft, fd
   
    If ss.Count = 0 Then
        ThisDrawing.ModelSpace.AddText "起点", pnt, 500
    Else
        MsgBox "插入点已有文字"
    End If
   
End Sub

cctv2cctv

多谢，成功了