Выбор содержимого ячейки таблицы

[1958]

Столкнулся с такой проблемой. При запуске короткого лиспа в AC-2007 всё работает нормально, содержимое указываемой ячейки получается. При запуске этого же кода в AC-2021 ячейка не читается, выдается сообщение:  ** Error: неверный тип аргумента: lentityp nil **
В чем проблема, не пойму. Что интересно, если в AC-2021 (2020) указать не середину ячейки, а сторону ячейки, иногда значение получается.
Прикладываю два чертежа в разных версиях автокада.

[Александр Ривилис]

В чем проблема, не пойму.

Тут не нужно ничего понимать - тут нужно просто отладить программу и найти откуда появляется ошибка.

[1958]

Вообщем придумал вот это:

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:11 (/)
2.  (vl-load-com)
3.  (setq p_1 (getpoint "\nКлик по числу в таблице >"))
4.  (setq p_2 (list (- (car p_1) 50) (- (cadr p_1) 20)))
5.  (setq ent (ssname (ssget "_C" p_1 p_2 '((0 . "ACAD_TABLE"))) 0))
6.  (setq vla_table (vlax-ename->vla-object ent))
7.  (vla-HitTest vla_table
8.               (vlax-3d-point p_1)
9.               (vlax-3d-point (trans (getvar 'ViewDir) 1 0))
10.               'row
11.               'col
12.  )
13.  (setq val (vla-gettext vla_table row col))
14.  (alert (vl-prin1-to-string val))
15. )

Вроде работает.

[Александр Ривилис]

1958,
Не забывай про правило форматирования кода на форуме!
Что касается твоего кода, то он конечно же не универсальный. И кроме того нет проверки на то, что вообще что-то выбрано.

[Александр Ривилис]

1958,
Проверил код из первого сообщения в AutoCAD 2021. Все нормально работает, если выбираешь текст внутри ячейки.

[1958]

Проверил код из первого сообщения в AutoCAD 2021. Все нормально работает, если выбираешь текст внутри ячейки.

Ну, не знаю. У меня ни в какую. Кликаю по по тексту и сразу

** Error: неверный тип аргумента: lentityp nil **

Не забывай про правило форматирования кода на форуме!

Прощу прощения в очередной раз! 

[Александр Ривилис]

1958,

Ну, не знаю. У меня ни в какую. Кликаю по по тексту и сразу

На всякий случай показываю:

[1958]

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

[1958]

Вот моя запись.

[Александр Ривилис]

1958,
Правило добавления видео к сообщениям на форуме у меня в подписи.

[Александр Ривилис]

Похоже выбор не происходит если используется TTF-шрифт и используется визуальный стиль 2D-Wireframe. В других визуальных стилях тексты в таблице нормально выбираются.

[1958]

Точно! Сейчас проверил. Если выбрать другой стиль, всё работает. Если заменить текстовый стиль на любой, не использующий TTF-шрифт, то работает и при визуальном стиле 2D-каркас.

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

Может, попробовать vla-getcellvalue? А не vla-gettext?
Сейчас проверить не могу

[Александр Ривилис]

Может, попробовать vla-getcellvalue? А не vla-gettext?
Сейчас проверить не могу

Не срабатывает (entsel) - ничего не выбирается.

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

Скорее всего, я что-то не понимаю и не учитываю. Но у меня в ACAD2020 корректно сработал следующий вариант (естественно, без проверок):

Код - Auto/Visual Lisp [Выбрать]

1. (defun t1 (/ table point row col)
2.   (setq table (vlax-ename->vla-object (car (entsel "\nSelect table : ")))
3.         point (getpoint "\nPick point in cell: ")
4.   ) ;_ end of setq
5.   (vla-hittest table (vlax-3d-point point) (vlax-3d-point (trans (getvar 'viewdir) 1 0)) 'row 'col)
6.   (list (cons "cellvalue" (vla-getcellvalue table row col))
7.         (cons "text" (vla-gettext table row col))
8.   ) ;_ end of list
9. ) ;_ end of defun

Одно "но": в ячейке у меня находятся именно обычные тексты, не содержащие поля. Ну и вариант вхождения блока в ячейку тоже не предусмотрен.