社区 › VBA/VB/ActiveX/API 编程技术 › 如何让某点处只存在一个 单行文字

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

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

本帖最后由 作者 于 2008-1-9 13:46:25 编辑

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

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

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

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

本帖最后由 作者 于 2008-1-10 7:18:59 编辑 <br /><br /> <p>谢谢版主</p><p>vba cad 程序可能会被关闭，选择集中点无法保存，下次打开cad的时候用相同命令，会多出一个 单行文字</p>

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

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

cctv2cctv 发表于 2008-1-11 05:26:00

多谢，成功了

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