[shartal]

Возможна ли создать программку, которая, при указании таблицы, может задать определенную ширину определенным фиксированным ячейкам таблицы
например А1 - 10мм, B3 -60 мм.

[TararykovDG]

В названии темы "...задние ширины столбцов...", в самой теме "...определенную ширину определенным фиксированным ячейкам...", и что надо? Если все-таки столбцам, так они и вручную легко задаются, если ячейкам, то как это у ячеек может быть индивидуальная ширина?

[shartal]

Вручную - это не серьезно. Несколько таблиц имеет много столбцов, задавать ширину каждому- масса времени. Задание ширины ячейки приведет к изменению ширины столбца- это и нужно.

[TararykovDG]

shartal, попробуй так

Код:

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

 
; Пример вызова:
; (set-width-columns-table (list '(1 30) '(4 50))) - 1 и 4 номера стоблцов, 30 и 40 соответствующая ширина
(defun set-width-columns-table(lst_width_columns / )
  (vl-load-com)
  ((lambda(nbr actdoc)
     (vla-StartUndoMark actdoc)
     (if (and nbr
              (not (vl-catch-all-error-p nbr))
              )
       (foreach tabl (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr))))
         (vla-put-RegenerateTableSuppressed tabl :vlax-true)
         (foreach item lst_width_columns
           (if (and (>= (car item) 0)
                    (< (car item) (vla-get-Columns tabl))
                    )
             (vla-SetColumnWidth tabl (car item) (cadr item))
             )
           )
         (vla-put-RegenerateTableSuppressed tabl :vlax-false)
         )
       )
     (vla-EndUndoMark actdoc)
     )
    (vl-catch-all-apply 'ssget
                        (list (list (cons 0 "ACAD_TABLE")))
                        )
    (vla-get-ActiveDocument (vlax-get-acad-object))
    )
  (princ)
  ); end set-width-columns-table

[shartal]

Все очень неплохо, но отсчет начинается почему только со второго столбца- первый вообще пропускается.
и можно ли сделать, чтобы применялось со второй строки - первая -название таблицы (стиль "название"), все ячейки объединены.

[TararykovDG]

Сообщение от shartal Все очень неплохо, но отсчет начинается почему только со второго столбца- первый вообще пропускается.

Ну просто первый столбец таблицы имеет номер 0, так что просто надо задавать так (set-width-columns-table (list '(0 30))), хотя это можно и самом коде учесть

Сообщение от shartal и можно ли сделать, чтобы применялось со второй строки - первая -название таблицы (стиль "название"), все ячейки объединены.

А причем здесь строки, в коде только со столбцами идет работа (vla-SetColumnWidth tabl (car item) (cadr item)). Попробывал у себя, вроде и так объединенные ячейки пропускаются

[shartal]

Все понятно, работает. Спасибо!

[shartal]

Старую тему подниму. Возможно ли добавить условие зависимости от количества столбцов указанной таблицы. Если например 3 столбца, то одно выражение, если 4 то -другое?