[Supermax]

У меня есть такая задача:
Есть модель и в нее вставлена внешняя ссылка и пару раз скопирована под другим углом. Мне надо выбрать все параметры вставки этой внешней ссылки, чтобы потом вставить эту ссылку в чистый файл автоматически так же как она вставлена в моем файле.
Эти параметры мне надо поместить в какой-нибудь дополнительный словарь, или расширенные данные файла самой внешней ссылки.
Включаю макрос, он опрашивает нужные мне файлы и автоматом их вставляет в текущий файл.
В результате, я имею ситуацию, когда модель собирается из комплекта файлов до кучи сама.

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

Код изменил, прогнал на пустом файле, 10 внешних ссылок, вроде сработало корректно. Файл переименовал, но команды "как были". DwgRuLispLib все так же требуется.

[Supermax]

Все заработало, но "почти".
Ошибка в формировании 210 dxf кода.
Вставь в ini файл строку с этим кодом!
Изначально у меня в ссылке (210 0.0 -1.0 0.0), а когда создаю новую модель становится (210 0.0 0.0 1.0).
Аналогичная фигня и в макросе, что внешнюю ссылку копирует как "сохранить как".
Вручную меняю 210 код на старое значение и становится все на свои места.

[Supermax]

И в 10-м коде тоже путаница
Изначально (10 17293.5 5752.4 -3134.4)
Во вновь созданном (10 17293.5 3134.4 5752.4)

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

А если так?
P.S. Предупреждаю: я коды не тестирую!

[Supermax]

Вот это - другое дело!!!
Все стало как надо.

Теперь о путях:
Ты вставил в ini файл пути к файлам внешних ссылок и этим угробил возможность переноса модели на другой комп.
Если ini файл лежит тамже, где и сам dwg файл, то путь к dwg файлам ссылок определяется месторасположением ini файла. Так?
Поскольку ты сделал один ini на все ссылки, то прийдется держать все ссылки в одной папке (что у меня и имеет место быть). Если у каждого файла dwg, являющегося внешней ссылкой будет свой ini, то ссылки можно будет держать в разных папках. Склеить выбранные ini в один - дело двух строк на лиспе, даже одной команды. Имя ini файла должно в точности совпадать с именем файла dwg к которому этот ini принадлежит.

Убери пути!

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

Не уберу. Как иначе будешь искать ссылки?
Можно, конечно, попытаться обрабатывать относительные пути, но сейчас на это меня точно не хватит.

[Supermax]

Есть два пути развития данной темы.
Первый - сделать специальное окно DСL и через него выбирать ссылки и более гиморно для пользователя, но менее трудоемко для программиста - через ком. строку.
Вот смотри:
Запускаем (c:restore-xref), просит выбрать один из трех параметров "всю папку", "отдельный файл" или "далее".

Если выбрать "всю папку", то выскочит окно для указания папки, в которой лежат ссылки и ini файл к ним (или к каждому из них). После выбора все ini файлы в этой папке будут прочитаны и склеены в один (в смысле в памяти компа, а не в файл).

Если выбрать "отдельный файл", то попросит указать файл. После выбора к уже имеющимся записям добавится считанное из этого файла. Впрочем как и "всю папку", так и "отдельный файл" могут запускаться в любой очередности.

Каждый раз, как сделан выбор в бесконечном цикле, прерываемом только либо Esc либо "далее" предлагается выбрать еще раз и еще раз.

Если выбрать далее, то все выбранные файлы будут обработаны.

Ну, в принципе, теперь и любой продвинутый юзер может дописать твой лисп. Даже я. Если я допишу, то обязательно сюда выложу. Если ты не возражаешь конечно.

SaveAsXref починишь?, а то я заколебался все из плана делать.

[Supermax]

Вот полезную весч узрел

Код:

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

(defun BrowseFolder ( / ShlObj Folder FldObj OutVal)
  (vl-load-com)
  (setq
    ShlObj (vla-getInterfaceObject
       (vlax-get-acad-object)
       "Shell.Application"
     )
    Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 "" 0)
  )
  (vlax-release-object ShlObj)
  (if Folder
    (progn
      (setq
  FldObj (vlax-get-property Folder 'Self)
  OutVal (vlax-get-property FldObj 'Path)
      )
      (vlax-release-object Folder)
      (vlax-release-object FldObj)
      OutVal
    )
  )
)
;(BrowseFolder)

Код от сюда — http://discussion.autodesk.com
А я взял от сюда: - http://www.caduser.ru/cgi-bin/f1/board.cgi?t=20220eg

Это в плане открытия папки и получения ее адреса.

Код:

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

(vl-directory-files (BrowseFolder) "*.ini" 1)

Выведет список всех ini в указанной папке.

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

Этой "весчи" сто лет в обед, посмотри в dwgrulisplib - там есть это дело. Вдобавок немного расширенное.
SaveAsXRef - это откуда? Напомни исходник и тему, а то я не помню навскидку.

[Supermax]

Это ты это имел в виду?

Код:

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

(dwgru-browsefolder title show-files)

А почему нет тела самой функции, или темы на сайте с этим телом? Чтобы нельзя было функцию отдельно от библиотеки использовать? Я помнится, предлагал не давать lsp вместе с fas, но я не говорил, что вообще исходники не давать. Может политика поменялась?

Ладно, я в теме про библиотеку функций напишу свое "фе".


Вопрос 2 - http://forum.abok.ru/index.php?showtopic=14612&st=460

пост#461 и 440, 472 и мой ответ на него # 468 и 470

а проще...

[Supermax]

Kpblc, ты часом не знаешь, что это за файлы?
http://cl-debian.alioth.debian.org/r...cl-ansi-tests/

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

Я тебя предупреждал, что библа сырая? Я предупреждал, что справка, мягко говоря, не полная?
Предупреждал. Так что

А почему нет тела самой функции, или темы на сайте с этим телом?

не принимается Ну нету у меня времени корректно все прописывать! Даже на выходных (жена с дитем в больницу загремели 2-го числа).

Сообщение от Supermax Kpblc, ты часом не знаешь, что это за файлы? http://cl-debian.alioth.debian.org/r...cl-ansi-tests/

Сообщение от readme This directory contains a partial Common Lisp standards compliance test suite.

Выделение мое.

[Supermax]

И так, что мы имеем на данный момент? Макрос, который может сохранить в файл с расширением ini координаты и другие параметры вставки конкретного вхождения файла внешней ссылки и по записи в этом файле воспроизвести данное вхождение в другом файле.
Если я указываю на одну только внешнюю ссылку, то и ini получаю для нее, если я указываю сразу несколько файлов, то и ini получается на несколько файлов. Замечательно!
Раньше я предполагал, что имя у ini файла должно совпадать с именем dwg файла и описывать только одно вхождение именно этого, конкретного dwg файла. Теперь я так не думаю. Теперь имя ini файла может быть любым, а имя описываемого вхождения делается так, как ты и создал.
Только путь убери!!!! Ini лежит в той же директории, что и dwg. От куда загрузил ini, там же и ищи dwg. Если оставить только имя dwg файла, то можно будет переносить ссылки из директории в директорию и на другие компы не задумываясь.

ОЧЕНЬ ВАЖНО!!

Я просек, что если в директории, как у меня лежит слишком много файлов, то не только кад тормозить начинает безбожно, даже винда кряхтит и стонет, пока откроет эту папку. Хочу отсортировать свои ссылки по папкам, а не могу. В том виде, как есть мне надо выделять именно те ссылки, что хочу в другую папку переложить, а как? 230 штук попробуй на модели разберись, какую куда. В папке – другое дело. Они по именам сильно отличаются (группа от группы), а в группе – только номером. Обвел все и перекинул в другую папку. И ini я также бы перекинул.

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

Я очень надеюсь, что эта программа ляжет в библиотеку. Мне лично фиолетово, будет развиваться в кад сообществе направление по моделированию «без границ» или нет. Я не идиот себе конкурентов растить, но я в одиночку не могу создать нормы проектирования и утвердить в мозгах заказчиков убеждение, что моделирование – это не обсуждаемая потребность любого сложного и ответственного действа. Чем меньше трудностей испытывают проектировщики при моделировании сложных объектов, тем громче слышны их голоса в поддержку моделирования, как источника сведений о затратах на производство, и это мне на руку.

Далее:
Как ты знаешь, если выбирать dwg файл, то имеется возможность просмотра его образа в виде растровой картинки в правой стороне окна выбора. Если выбирать ini – то такой возможности нет. В случае, если надо вставить только один dwg, то можно в принципе предлагать выбрать dwg, а потом меняя расширение на ini загружать этот dwg по ini файлу.

Основываясь на новом мировоззрении предлагаю:

Функцию c:save-xref дополнить следующими процедурами:

1. Выбор через командную строку «Создавать ini для Всех/для Каждого» <В>:
Если для каждого, то не предлагается указать имя ini файла, а он автоматически пишется в туже директорию, что и dwg и с тем же именем. В случае группового описания (или описывания) имя и расположение ini файла указывается как сейчас это делается.
2. При выборе dwg файла (файлов) добавить возможность «выбрать Все/ все Абсолютно/ в Ручную <Р>:
Выбрать Все – Это имеется в виду те ссылки, что мы видим и можем «потрогать».
Выбрать все Абсолютно – это включая и те, что Unload и те, что на заморозке.

Функцию c:restore-xref дополнить следующими процедурами:
1. Как я уже писал ранее – «выбрать все в указанной Папке/Выборочно» <В>:
2. Если «Выборочно», то – «по Dwg/Ini» <I>:

Правда я так и не нашел, где можно почитать более широко о методах применяемых к не AutoCAD-овским объектам, но из под AutoCAD-a.
Описание метода BrowseForFolder я нашел, но что есть еще – увы, не знаю.

BrowseForFile мелькает то там, то сям, но добраться до него как следует не получается.
Все, что я нашел путного – это http://allo.usaaa.ru/workshop/sample...ns/sysfuns.htm

Может тебе извесно что-нибудь о выборе файлов черех ActiveX?

[Supermax]

Нашел по Shell.Application
http://www.script-coding.info/WSH/Shell.html#1.

[Supermax]

И так, вот что у меня получилось:
Я взял allosys.dll вот от сюда:
http://allo.usaaa.ru/workshop/sample...ns/sysfuns.htm
которая содержит всего две системные функции BrowseForFile и BrowseForFolder, но улучшенные по сравнению с Shell.Application. В частности BrowseForFile там вообще нет, а BrowseForFolder "слегка" коряв.

Создать СОМ объект навсегда у меня не получилось, поскольку в VBA я не силен, а временно с помощью VBA создается.

dll-ку положил в system32 папки windows, зарегистрировал, для чего через меню пуск\выполнить запустил "regsvr32 allosys.dll" (без ковычек)

положил макрос VBA alloObj.dvb в папку для макросов, к которой у меня уже есть путь

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

Вот тело самого VBA макроса:

Код:

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

Sub setobj()
Call so
End Sub
____________________________________________
Private Sub so()
Dim Obj As Object
Set Obj = CreateObject("ALLO.SystemFunctions")

End Sub

Вот тело лиспа:

Код:

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

(vl-load-com)
(vl-vbarun "alloObj.dvb!Module1.setobj")
(defun dwgru-browseforfile ( toggle title initDir filter flags x y / AlloObj File strnamb list1)
  (setq AlloObj (vla-getInterfaceObject (vlax-get-acad-object) "ALLO.SystemFunctions"))
  (setq File (vlax-variant-value (vlax-invoke-method AlloObj 'BrowseForFile toggle title initDir filter flags x y)))
  (setq strnamb 0)
  (setq list2 nil)
  (while (vl-string-position 124 file strnamb)
  (setq list1 (list (substr file (+ 1 strnamb) (- (setq strnamb1(vl-string-position 124 file strnamb)) strnamb))))
  (setq strnamb (+ 1 strnamb1))
  (setq list2 (append list2 list1))
  )
  (setq list1 (list (substr file (+ 1 strnamb))))
  (setq list2 (append list2 list1))
)

Вот строка запуска функции:

Код:

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

(dwgru-browseforfile "true" "Множественное открытие файлов *.ini" "" "*.ini |*.ini|" "0x00000008" "" "")

Вот описание аргументов функции:

BrowseForFile ------------------- Описание: Вызывает стандартный диалог Open/Save As и возвращает имя выбранного файла, если нажато OK, и пустую строку, если нажато Cancel. Синтаксис: (dwgru-browseforfile toggle title initDir filter flags x y) Аргументы: toggle - тип диалога (строка) "true" = Open, "false" = Save As, по умолчанию true. Умолчание - пустая строка "". title - заголовок диалога (строка), по умолчанию системный заголовок. Умолчание - пустая строка "". initDir - начальный каталог диалога (строка), по умолчанию текущий каталог. Умолчание - пустая строка "". filter - фильтры диалога (строка), по умолчанию "All files (*.*)|*.*|". Умолчание - пустая строка "". flags - флаги диалога (строка с числом), по умолчанию OFN_HIDEREADONLY | OFN_ALLOWMULTISELECT. Умолчание - пустая строка "". x, y - смещение окна диалога от верхнего левого угла экрана; оба аргумента строки, по умолчанию окно центруется. Умолчание - пустые строки "" "". Результат: Список из строковых значений. Пояснения: filter должен иметь следующий формат: "Executable files (*.exe)|*.exe|All files (*.*)|*.*|". flags - это комбинация следующих флагов: 0x00000001 (OFN_READONLY) Включает переключатель диалога "Read Only" 0x00000002 (OFN_OVERWRITEPROMPT) При задании имени существующего файла выводит запрос на подтверждение перезаписи файла (Save As) 0x00000004 (OFN_HIDEREADONLY) Прячет переключатель диалога "Read Only" 0x00000008 (OFN_NOCHANGEDIR) Восстанавливает текущий каталог после выхода из диалога 0x00000200 (OFN_ALLOWMULTISELECT) Разрешает выбор нескольких файлов 0x00000800 (OFN_PATHMUSTEXIST) Запрещает ввод имен несуществующих путей и файлов 0x00001000 (OFN_FILEMUSTEXIST) Запрещает ввод имен несуществующих файлов 0x00002000 (OFN_CREATEPROMPT) При задании имени несуществующего файла выводит запрос на подтверждение создания файла (Open) 0x00020000 (OFN_NONETWORKBUTTON) Прячет и запрещает кнопку диалога "Network" Если выбрано несколько файлов, то возвращаемый список имеет вид: ("имя_файла1" "имя_файла2"..."имя_файлаN"). В противном случае функция возвращает список с именем выбранного файла в виде строки. Если флаг OFN_HIDEREADONLY не был установлен, то в конец возвращаемой строки добавляется подстрока "|1" или "|0" в зависимости то того, выбрал или нет пользователь опцию Read Only.

Описание слегка переработал.

Не ругайтесь, это моя первая попытка сделать функцию с применением dll-ки.

Как прения закончатся, допишу шапку и отформатирую как надо.

[Supermax]

Спасибо VVA, ткнул фейсом в нужную тему. А там Kpblc откровенничает про COM.
http://www.arcada.com.ua/forum/viewtopic.php?t=460


Вот новый вариант функции без VBA

Код:

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

(vl-load-com)
(defun dwgru-browseforfile ( toggle title initDir filter flags x y / AlloObj File strnamb list1)
  (setq AlloObj (vla-getInterfaceObject (vlax-get-acad-object) "ALLO.SystemFunctions"))
  (setq File (vlax-variant-value (vlax-invoke-method AlloObj 'BrowseForFile toggle title initDir filter flags x y)))
  (setq strnamb 0)
  (setq list2 nil)
  (while (vl-string-position 124 file strnamb)
  (setq list1 (list (substr file (+ 1 strnamb) (- (setq strnamb1(vl-string-position 124 file strnamb)) strnamb))))
  (setq strnamb (+ 1 strnamb1))
  (setq list2 (append list2 list1))
  )
  (setq list1 (list (substr file (+ 1 strnamb))))
  (setq list2 (append list2 list1))
)

Все остальное старое.

В начале функции не хватает функции Kpblc-a проверяющей сам факт возможности создания объекта, но вставим вместе, или так брошу.

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

Я там (то бишь на аркаде) кое-чего добавил по поводу регистрации dll, мало ли кому пригодится.
А эти товарищи с allo (так и тянет добавить "мы ищем таланты" ) чего-то совсем офигели - у них на сайте корректно работает только MSIE и без вариантов. И то, dll лично мне скачать не удается Попробую еще дома, но получится или нет - не знаю. Навскидку (чисто по логике, не более того): позицию окна (аргументы x, y) я бы не требовал указывать, а записывал их в реестр и читал оттуда. Правда, получится или нет - я не знаю.

[Supermax]

dll-ку с сайта ALLO выложил. См. выше.

Теперь про логику необходимости применения множественного выбора (я надеюсь Алексей, ты это имел в виду?):
По структуре ini файл не имеет заголовков и окончаний и поэтому два ini файла могут быть объеденены в один (чего лучше не делать), или обработаны по очереди, еесли в памяти есть список нескольких ini.
Поскольку очередность загрузки внешних ссылок не имеет значения, то и очередность обработки ini тоже.
Это, так сказать, приамбула.
Теперь о самой функции. Нужен множественный выбор файлов. Я думаю эти ребята из ALLO давно уже умерли. Датируется эта их статья 2001 годом, а сайт пере... на голову и все остальное. Посколку уже 2008-ой, делаем выводы. Я даже их реквизиты не нашел.

Понять кто делал и где исходники пока не могу, хотя скачал все дерево папок и нашел там много интересного.
Все дерево весит 2,5 мега в незаархивированном виде.

Мне не нравится, что dll-ка "брошенная". Не нравится, что окно нельзя растягивать. А так, в целом другой альтернативы вызова окна выбора файлов с возможностью множественного выбора не вижу.

[Supermax]

Пытаюсь определить имя объекта у shell32.dll

имена функций нашел.

CPlApplet DefScreenSaverProc DragAcceptFiles DragFinish DragQueryFile DragQueryPoint FindExecutable GetMenuContextHelpId GetWindowContextHelpId RegisterDialogClasses ScreenSaverConfigureDialog ScreenSaverProc SetMenuContextHelpId SetWindowContextHelpId SHAddToRecentDocs SHAppBarMessage SHBrowseForFolder SHChangeNotify Shell_NotifyIcon ShellAbout ShellExecute ShellExecuteEx SHEmptyRecycleBin SHFileOperation SHFreeNameMappings SHGetDataFromIDList SHGetDesktopFolder SHGetDiskFreeSpace SHGetFileInfo SHGetInstanceExplorer SHGetMalloc

их описание в zip-e win32_hlp.zip и shellcc.chm. Данные файлы распостраняются Microsoft платно и их распостранение без их ведома не разрешается.

[Supermax]

Ну почему мне никто не сказал, что достаточно библиотеку зарегистрировать и выражение (vla-getInterfaceObject (vlax-get-acad-object) "ALLO.SystemFunctions") начнет работать?
Я мучаюсь с этим VBA, vlax-get-or-grate-object, а все усмехаются и молчат!

Вот что надо написать в (vlax-get-acad-object) "????????????????") чтобы добраться до функций в библиотеке shel32.dll?