[zZombie]

Добрый день!

Может есть у кого VBA или Lisp?
Есть таблицы на листах, содержащие 5 столбцов. Нужно у каждой задать ширину столбцов как 15 70 75 10 15.
То есть переходим на лист. Выбираем таблицу и у нее задаются ширины столбцов в соответствии с теми числами, что я привел выше.

[shartal]

в первой строке меняете колич столбцов и их ширину

Код:

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

 (set-width-columns-table (list '(0 15)' (1 140) '(2 30)))
(vl-load-com)
(defun set-width-columns-table(lst_width_columns / )
  ((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

[zZombie]

Спасибо БОЛЬШОЕ!!!