[МишаИнженер]

Команда "GetFormula" получает содержимое формулы в которой есть ID поля:
sText = objТабл.GetFormula(I, J, 0)
sText ="(%<\_FldId 2603654316864>%)"
Где можно посмотреть поле с ID="2603654316864"?

[Сергей812]

уже два года назад спрашивали

[МишаИнженер]

В VBA есть какой-то метод для работы с полями?

[Сергей812]

открываете редактор VBA -> F2 -> В поиске Field и смотрим, что может предложить VBA для работы с полями. Учитесь работать с информацией всеми доступными способами)

[МишаИнженер]

Почему данный код ЛИСП возвращает ошибку:

Код:

[Выделить все]

 (defun get-field-content-by-id (field-id / field-obj field-content)
  ;; Получаем объект по ID
  (setq field-obj (vlax-ename->vla-object (handent field-id)))
  ;; Получаем содержимое поля
  (setq field-content (vla-get-textstring field-obj))
)

; ошибка: неверный тип аргумента: stringp 1.68206e+12
Вызываю команду так: (get-field-content-by-id 1682059942352)
Может быть вместо команды "vla-get-textstring" использовать команду "vla-get-fieldcode"?

[AlphaForz]

неверный тип аргумента: stringp 1.68206e+12 указывает на то, что функция handent ожидает строку, а вы передаете ей число.
Для полей нужно использовать vla-get-fieldcode а затем разобрать полученный код чтобы извлечь нужное значение.

Код:

[Выделить все]

 (defun get-field-content-by-id (field-id / field-obj field-content)
  ;; Преобразуем ID в строку
  (setq field-id (itoa field-id))
  ;; Получаем объект по ID
  (setq field-obj (vlax-ename->vla-object (handent field-id)))
  ;; Получаем содержимое поля
  (setq field-content (vla-get-fieldcode field-obj))
  ;; Возвращаем содержимое поля
  field-content
)

Код:

[Выделить все]

 (get-field-content-by-id 1682059942352)

[Кулик Алексей aka kpblc]

Мне интересно, а кто сказал, что число через itoa будет преобразовано в реальный хендл?

[МишаИнженер]

Возвращает ошибку:
; ошибка: неверный тип аргумента: fixnump: 1.68206e+12

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Мне интересно, а кто сказал, что число через itoa будет преобразовано в реальный хендл?

не надо мешать ТС подбирать работающий код вместо чтения документации) Да и учитывая, что в VBA вроде нельзя вызывать лисп-функции напрямую - все будет идти через командную строку со всеми сопутствующими рисками...

[МишаИнженер]

Почему данный код не работает:

Код:

[Выделить все]

 (defun check-table-exists (table-id / table-obj)
  (setq table-obj (handent table-id))
  (if table-obj
    (progn
      (princ (strcat "\nТаблица с ID " table-id " существует."))
      table-obj
    )
    (princ (strcat "\nТаблица с ID " table-id " не найдена."))
  )
)

;; Пример использования
(setq table-id "123456789") ;; Замените на реальный ID таблицы
(check-table-exists table-id)

Делаю в формуле ячейки ссылку на другую таблицу (из этой ссылки беру ID таблицы).

Код:

[Выделить все]

 
Команда: (setq table-id "2286252394128")
"2286252394128"
Команда: (check-table-exists table-id)
Таблица с ID 2286252394128 не найдена."\nТаблица с ID 2286252394128 не найдена."

Почему возвращает ошибку?

[name02]

потому что handle это не ID - посмотри в пятую группу (entget(car(entsel))) - это и есть хендл таблицы, по которому через handent получаем таблицу
Вообще же, лучше делать так, чтобы функции для проверки возвращали T (или объекты) или nil. А уж что делать с этой информацией решишь в вызывающей процедуре:

Код:

[Выделить все]

 (defun check-table-exists (table-id / *adoc* table-obj)
  (setq *adoc* (vla-get-activedocument (vlax-get-acad-object)))

  (setq table-obj (vla-ObjectIdToObject *adoc* table-id))

  (if table-obj (vlax-vla-object->ename table-obj) nil)

) ;_ end of defun

Еще тут нашел уточнение по ObjectID https://forum.dwg.ru/showpost.php?p=252379&postcount=9

[Сергей812]

ObjectID - текущее состояние объекта открытого чертежа, и включает в себя хэндл. Это связано с быстродействием и ресурсами - иначе бы пришлось, например, при каждом удалении объекта сдвигать остальные объекты в коллекции - если их (объектов) десятки и сотни тысяч - то это было бы очень затратным. А так помечается объект как удаленный - а физически продолжает существовать, просто акад его игнорирует.

[МишаИнженер]

Сообщение от name02 потому что handle это не ID - посмотри в пятую группу (entget(car(entsel))) - это и есть хендл таблицы, по которому через handent получаем таблицу

Вообще мне надо добраться до "поля" на которое ссылается формула в ячейке таблицы. Этот пример я привел потому что используется одна и таже функция "handent" для получения доступа к таблице и к полю.
Как будет выглядеть код для получения поля вместо таблицы?

[name02]

Почитай тут https://forum.dwg.ru/showpost.php?p=...8&postcount=15
может что-то поможет.
Вообще если взять оттуда код
(vla-fieldcode (vlax-ename->vla-object (car (nentsel))))
ткнуть в поле в ячейке таблицы, то вернется строка с содержимым ячейки.
Из этой строке можно увидеть и ObjectID (и далее уже пихать в vla-ObjectIdToObject) и формулу

[МишаИнженер]

Выдает ошибку:

Код:

[Выделить все]

Команда: (vla-fieldcode (vlax-ename->vla-object (car (nentsel))))
Выберите объект: ; ошибка: неверный тип аргумента: lentityp nil

Что такое lentityp?

[name02]

Ты куда тыкал - надо тыкать прямо в текст в ячейке.
lentityp - внутренняя проверка языка программирования того, что в какую-то функцию передается entity, т.е. какой-то объект. В лиспе функции, которые проверяют какое-либо свойство имеют имена, заканчивающиеся на p - listp, vl-catch-all-error-p или vl-consp
nil говорит о том, что проверка не прошла

[МишаИнженер]

Сообщение от name02 прямо в текст в ячейке.

Прямо в текст и нажимал. Не работает функция. Выдает ошибку:

Команда: (vla-fieldcode (vlax-ename->vla-object (car (nentsel)))) Выберите объект: ; ошибка: неверный тип аргумента: lentityp nil

Попробуйте сами: выделите строку с формулой, вставьте в командную строку, нажмите ENTER, укажите ячейку таблицы с формулой. Делов то, нетрудно. И у Вас то же не сработает.

[name02]

Я делаю так - все работает и с простыми текстами в ячейке:


и с формулами:


и с полями:


Кстати, ты в ячейках случайно не шрифты TrueType *.ttf используешь? С ними ошибку будет такую же как у тебя выдавать