[bdfy]

Нужно сконвертировать чертежи из автокада в visio. это возможно но большие проблемы возникают с мультитекстом - обрабатывается некорректно.
Нужен лисп/макрос заменяющий все мультитекстовые обьекты на чертеже на обычный. если строк в мультитексте несколько - на несколько обычных текстовых обьектов.
+совсем хорошо если обрабатываться будет сразу целая папка чертежей.
как это реализовать ? готов посильно оплатить разработку

[TararykovDG]

bdfy, попробуй так, но это для каждого активного документа

Код:

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

(defun c:mtext->text( / nbr item)
  (while (setq nbr nil nbr (ssget "_X" (list (cons 0 "MTEXT"))))
    (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))
      (vl-cmdf "_.explode" item "")
      )
    )
  )

[hwd]

Сообщение от TararykovDG это для каждого активного документа

Пакетную обработку можно глянуть здесь. Там уже имеется (в качестве примера) модуль пакетной обработки чертежей с помощью скриптов. Т.е. можно написать скрипт, разбивающий многострочный текст и скормить его указанной мною софтине, которая может обработать либо все файлы в указанном вами каталоге (рекурсивно, если потребовать от неё), либо все файлы в составе указанной подшивки).

[bdfy]

hwd
штука должно быть хорошая. но как ее запустить ? на сайте нашлось все кроме собственно инструкции по запуску (
а прямо в лиспе/макросе перебрать файлы нельзя ? ибо как то сложно выходит. в Lisp я как бы дубом, но под VBA в оффисе это решается просто
вот например

Код:

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

Sub конверсия()

oDoc_path = ThisDocument.Path

 sDir = Dir(oDoc_path & "чертежи\", vbNormal)
     
i = 1
Do Until LenB(sDir) = 0

Debug.Print sDir

i = i + 1
sDir = Dir
If sDir <> "" Then Call dwg2vsd(oDoc_path & "чертежи\" & sDir, i)
Loop

End Sub

TararykovDG
спасибо. работает. выделение правда запрашивает.

[hwd]

Сообщение от bdfy но как ее запустить ?

Писалось под AutoCAD 2009 x86 SP3. На компьютере должен быть установлен .Net Framework 3.5 SP1.
Настройки выполняются через xml-файл (внешний текстовый файл - на сайте он показан в самом низу, понять его не составит труда). Библиотека загружается командой _NETLOAD.
Затем в командной строке AutoCAD набрать команду q4.

п.с. А чёрт... не выйдет заюзать - это оказывается пример, я там в коде примера жёстко прописал путь: @"C:\Documents and Settings\andrey.bushman\Мои документы\Drawing1++.dwg". Указанный менеджер является инструментом, предназначенным для использования программно (это я проглядел). Чтобы вам его заюзать, нужно в команду его завернуть (несложно, но со временем у меня сейчас напряг)...

[zamtmn]

Можно попробовать просто сохранить чертеж в формат без поддержки MText. Помоему он появился с 2000, в 12 точно его нет.

[bdfy]

hwd
странно. чертовски странно что все так исключительно сложно. в автокаде же есть поддержка VBA вроде сейчас ? предложенный мой пример можно реализовать ?
zamtmn
очень интересная идея тем более что пакетный конвертер форматов dwg у меня есть. пересохранил, но результат несколько странный - я редактировать получившийся текст вообще не могу - при выделении он удаляется. причем выглядит он как мультитекст (при преобразовании в обычный шрифт же изменяется)
пробовал форматы
14 - мультитекст есть.
12, 10 - проблема, см. выше. результат во вложении.

[TararykovDG]

Сообщение от bdfy выделение правда запрашивает.

bdfy, чтобы нечего не запрашивал поробуй такой код

Код:

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

(defun c:mtext->text( / nbr item cmdecho_var)
  (setq cmdecho_var (getvar 'cmdecho))
  (setvar 'cmdecho 0)
  (while (setq nbr nil nbr (ssget "_X" (list (cons 0 "MTEXT"))))
    (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))
      (vl-cmdf "_.explode" item)
      )
    )
  (setvar 'cmdecho cmdecho_var)
  (princ)
  )

По-поводу пакетной реализации на лиспе, есть несколько сложностей.
Лисп работает только в текущем активном документе, через интерфейс ObjectDBX можно получить доступ к неактивному документу, но вот переделать там все mtext'ы на text'ы у меня не получилость.
Я не знаю .Net, но уверен что там все можно сделать (это у hwd спрашивай)
На VBA тоже можно сделать пакетную обработку, ибо там поддерживается многодокументный режим, но у меня пока тоже нет на это времени

[hwd]

Сообщение от bdfy чертовски странно что все так исключительно сложно

Сложного там ничего нет. Указанная мною статья ориентирована на .Net-программистов, и довольно таки подробно разжёвывает разработку библиотеки, ориентированной на пакетную обработку чертежей - потому рядовому пользователю статья и кажется сложной.

[zamtmn]

Автокад вроде при сохрпнении в предидущие форматы заворачивает не поддерживаемые примитивы в блоки выражая их поддерживаемыми, привязывая к ним информацию для восстановления, но почемуто не восстанавливает)).
Из мтекста должен получиться блок состоящий из простых текстов.
Файлы глючат и в визио или только в автокаде?

[bdfy]

несколько проб и ошибок показали что пересохраненные в старый формат (с этими самыми псевдоподдерживаемыми блоками) visio не ест совсем - валиться. Только чертеж разбитым мультитекстом конвертируется нормально. но помогите же кто нибудь с пакетным запуском лиспа - стандартная же задача сотням людей я уверен нужная для разных целей - неужели нет работоспособного готового решения ?
...
впрочем как оказалось при ближайшем рассмотрении проблема моя потеряла актуальность. visio мультитекст понимает. неправильно он понимает размер чертежа. поэтому чертежик при конвертации получается размером 1х2мм что при стандартных шрифтах размера около 14 дает мешанину в которой я и не разобрался. пара несложных манипуляций с масштабом все решают.

только вот все равно интересно как в автокаде пакетно файлы обрабатывать ) несрочно уже, но интересно

[gomer]

Сообщение от bdfy только вот все равно интересно как в автокаде пакетно файлы обрабатывать

вот это не поможет?http://cadtips.cadalyst.com/node/tip...keywords=batch