Превратить все поля существующей таблицы в текст.
| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Превратить все поля существующей таблицы в текст.

Превратить все поля существующей таблицы в текст.

Ответ
Поиск в этой теме
Непрочитано 11.08.2011, 15:23 #1
Превратить все поля существующей таблицы в текст.
shartal
 
Регистрация: 12.08.2009
Сообщений: 464

Надо разорвать связь одной таблицы с другой. Стандартными средствами это кажется не возможно. Возможно ли с помощью программирования?
Просмотров: 3965
 
Непрочитано 11.08.2011, 21:49
#2
Oliver_88

"ценный кадр"
 
Регистрация: 02.12.2010
Сообщений: 115
<phrase 1=


В 2012 можно и стандартными. В 2006 _XPLODE (по русски ВЗОРВАТЬ). Про другие не знаю.
Вложения
Тип файла: dwg
DWG 2004
example.dwg (123.4 Кб, 622 просмотров)
Oliver_88 вне форума  
 
Автор темы   Непрочитано 12.08.2011, 12:36
#3
shartal


 
Регистрация: 12.08.2009
Сообщений: 464


Эта команда была и в ранних версиях, но она расчленяет весь объект, а надо таблицу оставить, а поля в ячейках превратить в текст.
shartal вне форума  
 
Непрочитано 12.08.2011, 13:05
#4
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 575


shartal, если не трудно, выложи файл со связанными таблицами (версия ACAD2008 или младше)
__________________
cadtools
TararykovDG вне форума  
 
Непрочитано 12.08.2011, 13:08
#5
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,701
Отправить сообщение для Do$ с помощью Skype™


Мне кажется, что в версиях ниже 2010 данные в таблицах еще нельзя было связывать.
Do$ вне форума  
 
Автор темы   Непрочитано 12.08.2011, 13:47
#6
shartal


 
Регистрация: 12.08.2009
Сообщений: 464


В 2008 уже можно. В таблице связаны две ячейки. Обновление после регенерации.
Вложения
Тип файла: dwg
DWG 2007
tabl.dwg (64.8 Кб, 630 просмотров)
shartal вне форума  
 
Непрочитано 12.08.2011, 14:58
#7
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 575


shartal, попробуй так, может конечно можно как-нибудь сразу всю таблицу избавить от полей, но я что-то не нашел и поэтому перебираю каждую ячейку в таблице
Код:
[Выделить все]
 
; Вызов : Field->Text
; В ответ на запрос "Выберите объекты:" нужно указать таблицу (или можно сразу несколько таблиц) и нажать Enter
(defun c:Field->Text( / i j)
  ((lambda(nbr_table actdoc)
     (vla-startundomark actdoc)
     (if (and nbr_table
              (not (vl-catch-all-error-p nbr_table))
              )
       (foreach table (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr_table))))
         (setq i 0)
         (repeat (vla-get-Rows table)
           (setq j 0)
           (repeat (vla-get-Columns table)
             (vla-SetCellValue table i j (vla-GetCellValue table i j))
             (setq j (1+ j))
             )
           (setq i (1+ i))
           )
         )
       )
     (vla-endundomark actdoc)
     )
    (vl-catch-all-apply 'ssget (list (list (cons 0 "ACAD_TABLE"))))
    (vla-get-activedocument (vlax-get-acad-object))
    )
  (princ)
  ); end Filed->Text
__________________
cadtools
TararykovDG вне форума  
 
Автор темы   Непрочитано 16.08.2011, 12:41
#8
shartal


 
Регистрация: 12.08.2009
Сообщений: 464


В принципе работает, но зависает во время действия надолго, почти намертво. Кроме того сбрасывает текущую точность в преобразованных ячейках.
shartal вне форума  
 
Непрочитано 17.08.2011, 08:32
#9
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 575


Цитата:
Сообщение от shartal Посмотреть сообщение
В принципе работает, но зависает во время действия надолго, почти намертво. Кроме того сбрасывает текущую точность в преобразованных ячейках.
shartal, тогда выкладывай файл с рабочими таблицами, я писал для тех что Ты выложил для примера в посте #6, сочинять таблицы самому мне не особо хочется, к тому же не думаю, что Твои реальные таблицы обладают какой-либо коммерческиой ценность или государсвенной тайной, которой кто-нибудь на форуме мог воспользоваться в корыстных целях
__________________
cadtools
TararykovDG вне форума  
 
Непрочитано 18.08.2011, 12:39
#10
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


Цитата:
Сообщение от shartal Посмотреть сообщение
В принципе работает, но зависает во время действия надолго, почти намертво.
просто TararykovDG, забыл про свойство RegenerateTableSuppressed
Может быть это поможет: BGCFT - Конвертирует все поля в обычный текст
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 18.08.2011, 14:29
#11
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 575


Цитата:
Сообщение от VVA Посмотреть сообщение
просто TararykovDG, забыл про свойство RegenerateTableSuppressed
VVA, я к своему стыду не забыл, а не знал это свойство! С учетом данной Вами ссылке автору топика не составит труда самому доделать мой код ,если его не устраивала только его скорость или же воспользоваться предложенным Вами готовым решением BGCFT
__________________
cadtools
TararykovDG вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Превратить все поля существующей таблицы в текст.



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Полезные таблицы для инженеров (самопальные и не только). Armin Поиск литературы, чертежей, моделей и прочих материалов 152 22.12.2024 04:14
LISP. Вставка в таблицу поля, соотвествующего площади примитива Profan Готовые программы 272 06.06.2021 23:12
Заменить текст на поля Zaghim AutoCAD 16 07.04.2011 16:54
как с помощью vba начертить линию vasyavip Программирование 77 09.10.2008 23:17
Все поля преобразовать в текст. Как это сделать? Pave1 AutoCAD 4 11.08.2006 12:45