[Sege]

Есть сущ.таблица с заданной (настроенной) шириной столбцов.
Есть новая таблица.
Вопрос: как для новой таблицы присвоить ("копировать свойства") ширину столбцов таблицы-донора

[Sege]

upd:
вроде бы никак, короче проще лисп написать:

Код:

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

 
(defun c:ctw ()
(vl-load-com)
(princ "Select source table ")
(setq obj0 (vlax-ename->vla-object (car (entsel))))
(princ "Select table to copy")
(setq obj1 (vlax-ename->vla-object (car (entsel))))
(setq k 0)
(repeat (vla-get-Columns obj1)
(vla-setColumnWidth obj1 k (vla-GetColumnWidth obj0 k))
(setq k (+ 1 k))
)

[VitalyAF]

Сообщение от Sege Есть сущ.таблица с заданной (настроенной) шириной столбцов.

Сообщение от Sege вроде бы никак, короче проще лисп написать

... Или создать из неё блок, и "перетащить" на палитру, поставить галку, "раскрыть блок при вставке"

[elovkov]

Сообщение от VitalyAF Или создать из неё блок, и "перетащить" на палитру, поставить галку, "раскрыть блок при вставке"

Ух ты, не знал такой фишки, пригодится
ЗЫ: в Акад16 в свойствах вставки не галка "раскрыть" а выбор "Расчеленить" - Да/Нет

[VitalyAF]

Сообщение от elovkov ЗЫ: в Акад16 в свойствах вставки не галка "раскрыть" а выбор "Расчеленить" - Да/Нет

Главное разжевал, а там уж извольте каждый сам проглотить...
Offtop: Тем более рус. версии у меня отродясь не было, а англ. уже лет 10-ть как забросил...
И тайваньский перевод - расчленить... где они там члены нашли... их самих расчленить...
В первых русских переводах блоки раскрывали... А совсем раньше, задолго до появления Autodesk
проектировали микросхемы, оттуда взята идея блоков, они там назывались ячейками и они раскрывались, а не расчленялись...

[elovkov]

Offtop:

Сообщение от VitalyAF рус. версии у меня отродясь не было, а англ. уже лет 10-ть как забросил

эмм, а какая тогда?

[VitalyAF]

Сообщение от elovkov эмм, а какая тогда?

eng, написал же! Всегда была, щас никакой.

[natural_gl]

Коллеги, добрый день!
вопрос был решен каким-то образом? А то лисп не работает, пишется при загрузке "ошибка: неверно сформированный список на входе".
А про палитру не понял, каким образом это может решить вопрос темы?

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

Если лиспом, то можно и так:

Код:

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

 (vl-load-com)
(defun c:copy-table-colwidth (/ adoc source dest count)
  (if (and (= (type
                (setq source (vl-catch-all-apply
                               (function (lambda () (vlax-ename->vla-object (car (entsel "\nSelect source table <Cancel> : ")))))
                               ) ;_ end of vl-catch-all-apply
                      ) ;_ end of setq
                ) ;_ end of type
              'vla-object
              ) ;_ end of =
           (= (vla-get-objectname source) "AcDbTable")
           (= (type
                (setq dest (vl-catch-all-apply
                             (function (lambda () (vlax-ename->vla-object (car (entsel "\nSelect source table <Cancel> : ")))))
                             ) ;_ end of vl-catch-all-apply
                      ) ;_ end of setq
                ) ;_ end of type
              'vla-object
              ) ;_ end of =
           (= (vla-get-objectname dest) "AcDbTable")
           ) ;_ end of and
    (progn
      (setq count 0)
      (while (< count (min (vla-get-columns source) (vla-get-columns dest)))
        (vla-setcolumnwidth dest count (vla-getcolumnwidth source count))
        (setq count (1+ count))
        ) ;_ end of while
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[natural_gl]

Кулик Алексей aka kpbl.

Спасибо, Работает!
а возможно сделать так, чтобы не только ширина копировалась, но и высота ?