[Danil55]

Добрый день!

Не нашел ответа на форуме
Задача в получении значение свойства ячейки "отступ по горизонтали"
Не свойство стиля таблицы (vla-get-HorzCellMargin tblobj), а именно в конкретной ячейке
Т.е. перебираю ячейки в цикле по строкам и колонкам, необходимо считать значение свойства, аналогично (vla-GetCellTextStyle tblobj row col)
Но для свойства "отступ по горизонтали" не нашел такого метода
Прошу помочь с кодом

[kp+]

https://help.autodesk.com/view/OARX/...7-0F4D51DDCB48

На lisp как-то так (для отступа снизу):
(setq a (vla-getmargin tbl_obj row col acCellMarginBottom))

Или
(setq tblMargin (vlax-invoke-method tbl 'GetMargin row col acCellMarginBottom) )

[Danil55]

Спасибо, то что нужно!

Еще один варант нашел получения значения отступа по горизонтали, но он конечно не сравним)

Код:

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

 (setq horz_cell (abs (-(car (vlax-safearray->list (vlax-variant-value (vla-GetCellExtents tblobj row col :vlax-false))))(car (vlax-safearray->list (vlax-variant-value (vla-GetCellExtents tblobj row col :vlax-true)))))))

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

По лисповски твой вариант может выглядеть более забавно ИМХО:

Код:

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

 (abs (apply
       (function -)
       (mapcar
         (function
           (lambda (x)
             (car (vlax-safearray->list (vlax-variant-value (vla-getcellextents tblobj row col x))))
           ) ;_ end of lambda
         ) ;_ end of function
         (list :vlax-false :vlax-true)
       ) ;_ end of mapcar
     ) ;_ end of apply
) ;_ end of abs

----- добавлено через 24 сек. -----
Если что, код не проверял - не до того.