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

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