[casaatik]

При переходе на autocad 2008 появилась проблемка.
Раньше рисовал в 2006 и для него имелись atable for 2004-2006. Вопрос следующий:
1) Есть ли atable для autocad 2008?
2) Можно ли как то подключить atable 2004-2006 в autocad 2008,Заранее спасибо!!!

[Alxd]

Демо-ролика нету. Но, учитывая, что ATable построен на основе общепринятых идеологических принципов (Excel, Word и т.п.), Вы можете установить себе его и поюзать. В нем все предельно просто. Все команды на виду, тем более, что их немного (это же не монстр, типа Excel).
Реальные вопросы возникают только по стилям. Стиль таблицы - это фактически конфигурационный файл, в котором описано, как должна выглядеть таблица при выборе соотв. стиля. Шапка таблицы указанная в стиле - это блок, вычерченный в AutoCAD'е и сохраненный на диске. Вот и все, вообщем то.
Учитывая, что основные стили таблиц идут в поставке ATable, несложно со всем этим разобраться.

[kp+]

Alxd, мое почтение! Скачал и поставил Atable 8 beta 2.1. Судя по вчерашнему сообщению, кроме atableG2G, ничего нового нет и не намечалось

[Alxd]

2 kp+
именно так

[kp+]

Alxd, atableG2G V8 не фурычит Опция Add-ons в ком строке не появилась, а в меню "таблица" появилось ДВЕ строчки Импорт Atable 6
Добавлено:
И еще: глюк (правда, нежесткий - без вылета) при вызове функции "Изменить стиль".
Поскольку мне эта функция часто нужна, то пришлось вернуться к версии от 10.11.08

[Alxd]

2 kp+
исправил. качай новый инсталлер. сорри, что так долго, но я место работы сменил, теперь еще делов прибавилось.

[almir]

Alxd, можно X2G тоже переписать под 8-ю версию, пожалуйста
Давно уже хочется в 2007/2008 Autocad перебраться, а без этого аддона никак. Куча расчетов в екселе, руками переносить значения каждый раз очень неудобно

[kp+]

Эта функция, как можно увидеть, сделана на основе atableG2G и позволяет втянуть в atable стандартную таблицу Автокада. Вполне нормально уживается с оригинальной версией atableG2G. Дальше думаю добавить сохранение оформления "акадовской" таблицы в получаемой таблице Atable

Код:

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

;;;                                                                    ;
;;;  atable_t2g_acad_table.LSP                                                   ;
;;;                                                                    ;


(vl-load-com)

;You can localize this application. Only change text strings below.
(setq atable_t2glocal
  (list 
    (cons 20 "Alxd ATable закрыт или недоступен!")
    (cons 30 "Active sheet of Alxd ATable is closed or unavailable!")
    (cons 70 "\nSelect entites: ")
    (cons 120 "\nНичего не выбрано или выбраны объекты неподходящие типа!")
    (cons 121 "\nПодождите, пожалуйста...")
    (cons 122 "готово.")
  )
)

(defun getLocal ( slocal nlocal / )
  (cdr (assoc nlocal slocal))
)

(defun c:atImport_t2G( / tmp)
  '("Импорт автокадовской таблицы..." "Импорт таблицы автокадовской из чертежа" "alxd:interface_t2g")
)

(defun list2grid ( oSheet pt1 pt2 / textlist atActiveSheet atCols atRows atCells atCell wi wj li lj tmp)
  (princ (getlocal atable_t2glocal 121))


  (setq textlist (t2l))

  (if (= textlist nil)
    (princ (getlocal atable_t2glocal 120))
    (progn
      (setq 
        atCols (vlax-get-property oSheet 'AlxdColumns)
        atRows (vlax-get-property oSheet 'AlxdRows)
        atCells (vlax-get-property oSheet 'AlxdCells)
        tmp (vlax-get-property atRows 'Count)
      )
      (vlax-invoke-method oSheet 'AddRows (if (< tmp (length textlist)) (- (length textlist) tmp) 0))      

      (setq wj 0)
      (foreach li textlist

        (setq wi 0)
        (foreach lj li
          (setq tmp (vlax-get-property atCols 'Count))
          (if (> (length li) (vlax-get-property atCols 'Count))
            (vlax-invoke-method oSheet 'AddColumns (if (< tmp (length li)) (- (length li) tmp) 0))
          )

          (setq atCell (vlax-get-property atCells 'Items wi wj))
          (vlax-put-property atCell 'Contain lj)
          (vlax-release-object atCell)

          (setq wi (1+ wi))
        );foreach lj

        (setq wj (1+ wj))
      );foreach li
 
      (vlax-invoke-method oSheet 'Recalculate)
      (vlax-invoke-method oSheet 'RedrawBlockDefinition)

      (vlax-release-object atCells)
      (vlax-release-object atRows)
      (vlax-release-object atCols)
    )
  )

  (princ (getlocal atable_t2glocal 122))  
)

(defun alxd:interface_t2G( app / tmp oSheets oSheet oDict xx xx2 coords topright botleft)
  (setq 
    oSheets (vlax-get-property (vlax-get-property app 'AlxdEditor) 'AlxdSpreadSheets)
    tmp (vlax-get-property oSheets 'Active)
    oSheet (vlax-get-property oSheets 'Items tmp)
  )

      (list2grid oSheet topright botleft)


  (vlax-release-object oSheet)
  (vlax-release-object oSheets) 
 
  (princ)
)


(princ "\natable_t2G v1.0 (addon for ATable) - input Acad-table from drawing to tables")
(princ)


(defun t2l (/ t_list  ent table row cell row_count_ col_count i j)
  (setq  table (vlax-ename->vla-object (car (entsel "выберите таблицу"))))
  (setq row_count (vla-get-rows table))
  (setq col_count (vla-get-columns table))
  (setq i 0 j 0)
  (while (< i row_count)
    (while (< j col_count)
      (setq row (append row (list (vla-gettext table i j))))
      (setq j (1+ j))
    )
    (setq t_list (append t_list (list row)))
    (setq j 0 row nil)
    (setq i (1+ i))
  )
  t_list
)

PS
Чувствую себя так, как будто нашел реактивный двигатель и прикрутил его к деревянной телеге. Прошу законного владельца не обижаться

[Alekseyku]

А как с этим Лиспом работать?

Какая команда запускает?

Какой порядок действий?

Попробовал разные фукциии, описанные в Лиспе, ничего не получилось.

[kp+]

Загрузить эту прогу (через "Сервис"->"загрузка приложения" ) и ничего больше с ней не делать
Запустить Atable
Выбрать в Atable Таблица -> импорт автокадовской таблицы

[Loner Wanderer]

Товарищи программисты!
УМОЛЯЮ!
Напишите, пожалуйста, модуль x2g (Excel - Atable) под новый Atable.
Попытался сам править x2g от старой версии, но в программировании на VBA не силен . Ничего у меня не получилось в общем.

[DreCatcher]

Скачал сабж с сайта-производителя, установил. Не появилось никаких новых меню. Автокад2008. Как запустить приложение это?

[casaatik]

Ну если Autocad 2008 и скачали и установили именно ATable for AutoCAD 2007, 2008, 2009, то тогда из поста №29:

Запуск командами: alxdat и alxdats

Но я се лично в acad.pgp в конец файла добавил строчку

ТБЛ, *alxdat

и теперь чтобы вставить таблицу (Atable) набираеш ТБЛ потом ПРОБЕЛ
Становлюсь клавишником и скажу очень удобно), то ли из-за етого то ли из-за кризиса производительность повысилась)))

[DreCatcher]

Поставил ATable на горячую клавишу.
Разбираюсь, но вот не подгружается справка от чего то. Где-нибудь можно скачать документацию?

Как, например, шрифт поменять?

[Alxd]

Выпустил обновленную версию ATable for AutoCAD 2007-2009 и добавил ATable for AutoCAD 2010.
Качайте с http://alxd.it-dept.ru

[LSN]

Alxd, что-то не получается зайти на ваш сайт http://alxd.it-dept.ru пишет ошибка CGI приложения. Я так подразумеваю что сайт больше не работает, или это у меня глюк такой? Очень хотелось бы взглянуть на atable и приложения к нему для AutoCad 2010.

[Alxd]

2 LSN
Разберусь че за фигня с сайтом. Вообще то коммерческий хостинг.

[Alxd]

Сайт заработал

[kp+]

Сообщение от Кулик Алексей aka kpblc Alxd, и не думаю "прикалываться". Мне тут один знакомый все уши прожужжал вистой - под кад нифига не встает, под кад ни фига не встает... Пока не выяснилось, что он пытается поставить 32-разрядные arx-приложения под 64-битную висту и 64-битный же кад.

Не прошло и полгода, как тема выплыла...
Возможна ли установка Atable на 64-битный 2010 Акад под 64-битной Win7? Что для этого надо? Или невозможна в принципе?

[Lavrov48]

Сообщение от kp+ Возможна ли установка Atable на 64-битный 2010 Акад под 64-битной Win7? Что для этого надо? Или невозможна в принципе?

Кстати да, очень интересует этот вопрос.

[maestro]

Алекс- а когда версию под 2010 отладишь? У меня она при каждой вставке данных, теряет форматирование таблицы. Ячейки там прекращают объединение и т.д.