• Андрей
  • Восстановленный участник
  • На форуме с 26 мая 2005г.
  • Сообщений: 7
  • Спасибо: 0

Тема: Как обратиться к тексту чертежа, используя объектную модель AutoCAD?

Доброго времени суток. Помогите, пожалуйста, решить задачу: как обратиться к тексту чертежа, используя объектную модель AutoCAD? Необходимо, открыв чертеж, программно осуществить замену одного фрагмента тектса на другой. Спасибо

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как обратиться к тексту чертежа, используя объектную модель AutoCAD?

Option Explicit
Const OLD_STRING As String = "O.K.-3.25"
Const NEW_STRING As String = "O.K.+5.00"
Sub T_Replace()
  Dim ssetObj As AcadSelectionSet
  Set ssetObj = ThisDrawing.ActiveSelectionSet
  Dim mode As Integer
  Dim gpCode(0) As Integer
  Dim dataValue(0) As Variant
  mode = acSelectionSetAll
  gpCode(0) = 0
  dataValue(0) = "TEXT"
  Dim groupCode As Variant, dataCode As Variant
  groupCode = gpCode
  dataCode = dataValue
  ssetObj.Select mode, , , groupCode, dataCode
  Dim Txt As AcadText
  Dim TxtString As String
  On Error Resume Next
  For Each Txt In ssetObj
     Txt.TextString = Replace(Txt.TextString, OLD_STRING, NEW_STRING, , , vbTextCompare)
  Next Txt
End Sub