Запись в фиелды

Автор Тема: Запись в фиелды  (Прочитано 10095 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн filatАвтор темы

  • ADN Club
  • ****
  • Сообщений: 265
  • Карма: 2
Re: Запись в фиелды
« Ответ #15 : 07-08-2022, 13:02:39 »
Причем тут Апдейт, если строка Call dDoc.Sheets(1).TitleBlock.SetPromptResultText(sBox, "тест1") вызывает ошибку?
Код - Visual Basic [Выбрать]
  1. Sub T1()
  2.     Dim dDoc As DrawingDocument
  3.     Set dDoc = ThisApplication.ActiveDocument
  4.     Dim oSheet As Sheet
  5.     Set oSheet = dDoc.ActiveSheet
  6.     Dim sBoxs As TextBoxes
  7.     Dim sBox As TextBox
  8.     Set sBoxs = oSheet.TitleBlock.Definition.Sketch.TextBoxes
  9.     For Each sBox In sBoxs
  10.         Debug.Print (sBox.Text)
  11.         If sBox.Text = "<Материал Наим.>" Then
  12.             dDoc.Update
  13.             Call dDoc.Sheets(1).TitleBlock.SetPromptResultText(sBox, "fdss")
  14.             dDoc.Update
  15.             Debug.Print (dDoc.Sheets(1).TitleBlock.GetResultText(sBox))
  16.         End If
  17.     Next
  18. End Sub

Оффлайн filat18

  • ADN OPEN
  • Сообщений: 25
  • Карма: 1
Re: Запись в фиелды
« Ответ #16 : 08-08-2022, 11:34:23 »
Кажись понял - нужно лезть в свойства файла("GOST Properties") и править прямо там.

Оффлайн izhgtumekhanik

  • ADN OPEN
  • **
  • Сообщений: 54
  • Карма: 0
  • Skype: izhgtumekhanik@gmail.com
Re: Запись в фиелды
« Ответ #17 : 30-07-2023, 21:54:38 »
Кажись понял - нужно лезть в свойства файла("GOST Properties") и править прямо там.

Неа, если там что то поменяете то и ссылки собьются и потом почему то они исчезают из списка и восстановить не получится.

Нужно поменять тип ячейки НО и тут бяда в том что после смены она перестает реагировать на кнопку "основная надпись" на вкладке пояснения ЕСКД..

В общем палка о двух концах..

Наверно еще есть какие то способы подойти к таблице основной надписи..