[Klo]

Как получить номер строки и столбца выделенной ячейки таблицы?
Нашёл метод выбора через указание точки:

Код:

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

 (setq tbl (vlax-ename->vla-object (car (entsel))))
(vla-hittest tbl (vlax-3D-point (getpoint)) (vlax-3d-point '(0.0 0.0 1.0)) 'row 'col) 

но это несколько не то...

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

ПОчему "не то"? Насколько я помню, в переменных row и col будут храниться номера соответственно строки и столбца, в который ткнул пользователь.

[Klo]

Хочется получить строку и столбец уже выделенной ячейки (или диапазона ячеек), а не той которую ещё предстоит выделить.
С обычными примитивами понятно:

Код:

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

 (setq nabor (ssget))

и, если до вызова были выделены примитивы, то вернётся имя набора, но с ячейками таблицы такое, конечно, не работает.

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

Наверное тебе нужна функция vla-GetSubSelection

[Klo]

Сообщение от Александр Ривилис Наверное тебе нужна функция vla-GetSubSelection

Спасибо, Александр.
Открыл книжку Полещука AutoLisp и Visual LISP в среде AutoCad. Отыскал эту функцию - п. 7.2.203.
Но, к своему стыду, я смог ей воспользоваться.
Выделяю ячейки. Пишу как говорят:

Код:

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

 (setq obj (vlax-ename->vla-object (car (entsel))))

хорошо, выбираю таблицу, хотя и не понятно зачем, ведь должны подпримитивы быть выделены

Код:

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

 (vla-GetSubSelection obj 'rowmin 'rowmax 'colmin 'colmax)

; error: Automation Error. Table cells sub selection set is empty
Что интересно, если предварительно воспользоваться обратной функцией vla-SetSubSelection, то ячейки выделятся и их индексы получить удаётся...

Код:

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

 (setq obj (vlax-ename->vla-object (car (entsel))))
(vla-SetSubSelection obj 1 1 2 3)
(vla-GetSubSelection obj 'rowmin 'rowmax 'colmin 'colmax)

nil
Command: !rowmax
1

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

Сообщение от Klo хорошо, выбираю таблицу, хотя и не понятно зачем, ведь должны подпримитивы быть выделены

Ну вообще-то её выбирать не нужно. Наверное через (ssgetfirst) или (ssget "_I") нужно получить уже выделенную таблицу. Я вот только не уверен не снимается ли при этом выделение ячеек таблицы, а проверять сечас нет времени.

[Klo]

Нашёл интересный пример от великого Lee Mac на форуме:
http://www.theswamp.org/index.php?PH...topic=37154.15
Изменяет цвет границ ячеек после выделения. Файлик прилагаю. TableBorder.lsp
К сожалению мне этот скрипт не помог, но может кто-то использует.
Свой вопрос снимаю, так как не смогу сейчас с этим разбираться. Думал, что смогу скриптик на коленке набросать, но не вышло