社区 › VB › 如何让某点处只存在一个 单行文字

cctv2cctv 发表于 2008-1-9 13:43:00

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

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

雪山飞狐_lzh 发表于 2008-1-9 18:56:00

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

cctv2cctv 发表于 2008-1-10 07:19:00

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

雪山飞狐_lzh 发表于 2008-1-10 09:45:00

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 发表于 2008-1-11 05:26:00

多谢，成功了

查看完整版本: 如何让某点处只存在一个 单行文字