Архитектору и проектировщику|Тепло- и звукоизоляция URSA.RU
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Программная настройка AutoCAD, как это делается?

Программная настройка AutoCAD, как это делается?

Ответ
Поиск в этой теме
Непрочитано 23.01.2009, 16:34 2 |
Программная настройка AutoCAD, как это делается?
Krieger
 
инженер (КМ)
 
Красноярск
Регистрация: 30.10.2004
Сообщений: 3,773

Программная настройка AutoCAD, как это делается?
Этот пост переправлен из-за неактуальности.
В общем в итоге получилось следующее.
Функцию можно использовать для настройки как чужого компьютера так и своего. Для чужого компа профиль не импортируется, т.е. все прочие настройки кроме прописки адресов остаются на месте. Для своего компа логично импортировать таки профиль, что бы сохранить любые адаптированные под себя мелочи.
Если в файле настроек PathFile есть пункт Profile, то будет производится импорт профиля, тогда функция адреса прописывать не будет, т.к. они хранятся в профиле. Если этого пункта нет, то будут прописываться адреса.
Добавил также возможность копирования своего acad.pgp.

Код:
[Выделить все]
 ;|Kr_AutoSetup - функция для настройки AutoCAD.
FirstPath - начальная часть адреса к файлам настройки када и PathFile
PathFile - файл настроек с пунктами для настройки:
    Profile
    SupportPath
    PrinterConfigPath
    PrinterDescPath
    PrinterStyleSheetPath
    TemplateDwgPath
    SheetSetTemplatePath
    QNewTemplateFile
    PageSetupOverridesTemplateFile
    ToolPalettePath
    AutoSavePath
    ToolPaletteProfile
    MenuFile
    ACADPGP

Функция импортирует профиль если он указан, если нет - прописывает пути соответсвующих настроек. Копирует файлы Profile.aws и acad.pgp, подгружает меню.
Если какого либо пункта нет, он игнорируется. Если указанного пути не существует, он создается.

Пример:
(Kr_AutoSetup "D:" "\\Library\\Parameters\\Menu\\Kr_Paths.txt")
|;

;Kr_FindTextFileNextString - ищет строку по образцу и выдает следующую
(defun Kr_FindTextFileNextString (File String / key line NextString f promt FullProfileAdress FullPGPAdress)
  (setq f (open File "r") key T)
  (while (and key (setq line (read-line f)))
    (if (eq (strcase String) (strcase line))     (setq key nil NextString (read-line f) promt (strcat "\n" String " - found"))
                      (setq promt (strcat "\n" String " - not found"))
    );if
   );while
  (close f)
  (princ promt)
  (if (or (not NextString) (eq NextString "") (wcmatch NextString "* *")) (setq NextString nil))
  NextString
  );defun


(defun Kr_AutoSetup (FirstPath PathFile / files key f subpaths obj ActiveProfile temp_profile)
  (vl-load-com)
  (if (findfile (strcat FirstPath PathFile))
    (progn
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
;проверка наличия профиля
  (if (setq ProfileAdress (Kr_FindTextFileNextString (strcat FirstPath PathFile) "Profile"));есть ли файл профиля в файле настроек
    (if (setq FullProfileAdress (findfile (strcat FirstPath ProfileAdress)))
     (if (not (vl-string-search ".ARG" (strcase FullProfileAdress))) (setq FullProfileAdress nil) (princ "\nфайл с расширением *.arg найден"));if
      (princ "\nФайл " FullProfileAdress " не найден")
    );if
    (setq FullProfileAdress nil)
   );if
(if (not FullProfileAdress);если профиля нет прописываем настройки вручную
  (progn
;поддержка supportpath
  (if (Kr_FindTextFileNextString (strcat FirstPath PathFile) "SupportPath")
    (progn
      (setq f (open (strcat FirstPath PathFile) "r") paths "" subpaths nil key T)
      (while (and key (setq line (read-line f)))
        (if (eq (strcase "SupportPath") (strcase line))
          (progn
                (while (not (eq "" (setq subpaths (read-line f))))
                    (setq paths (strcat paths ";" FirstPath subpaths))
                  (if (not (vl-file-directory-p (strcat FirstPath subpaths))) (vl-mkdir (strcat FirstPath subpaths)))
                );while
                   (setq key nil)
            );progn
          );if
        );while
      (close f)
      (if (not (eq paths "")) (vla-put-supportpath files (strcat (vla-get-supportpath files) paths)) (princ "address SupportPath is not found"))
      );progn
    (princ "\nАдрес SupportPath не найден")
    );if
;стили печати PrinterStyleSheetPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PrinterStyleSheetPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-PrinterStyleSheetPath files paths))
    (princ "\nАдрес PrinterStyleSheetPath не найден"));if
;папка шаблонов TemplateDwgPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "TemplateDwgPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-TemplateDwgPath files paths))
    (princ "\nАдрес TemplateDwgPath не найден"));if
;шаблон для новых файлов QNewTemplateFile
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "QNewTemplateFile")))
    (vla-put-QNewTemplateFile files paths) (princ "\nАдрес QNewTemplateFile не найден"));if
;шаблон для новых листов PageSetupOverridesTemplateFile
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PageSetupOverridesTemplateFile")))
    (vla-put-PageSetupOverridesTemplateFile files paths) (princ "\naddress PageSetupOverridesTemplateFile не найден"));if
;папка с палитрами ToolPalettePath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "ToolPalettePath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-ToolPalettePath files paths))
    (princ "\nАдрес ToolPalettePath не найден"));if
;папка для файлов автосохранения AutoSavePath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "AutoSavePath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-AutoSavePath files paths))
    (princ "\nАдрес AutoSavePath не найден"));if
;папка для файлов кофигураций принтеров PrinterConfigPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PrinterConfigPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-PrinterConfigPath files paths))
    (princ "\nАдрес PrinterConfigPath не найден"));if
;папка для PMP файлов (настройка границ печати) PrinterDescPath
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "PrinterDescPath")))
    (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths)) (vla-put-PrinterDescPath files paths))
    (princ "\nАдрес PrinterDescPath не найден"));if
  );progn
);if
  
;профиль палитры ToolPaletteProfile
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "ToolPaletteProfile")))
    ;;копируем профиль палитры
    (progn
      ;;создаем временный профиль
    (vla-CopyProfile (setq obj (vla-get-Profiles (vla-get-preferences (vlax-get-acad-object))))
               (setq ActiveProfile (vla-get-ActiveProfile (vla-get-Profiles (vla-get-preferences (vlax-get-acad-object)))))
               (setq temp_profile (strcat "Prof_tmp_" (substr (rtos (getvar "CDATE") 2 8) 10 8))))
    (vla-put-ActiveProfile obj temp_profile)
      ;;импортируем профиль
      (if FullProfileAdress
    (progn
            (vla-ImportProfile obj (vl-filename-base FullProfileAdress)  FullProfileAdress :vlax-true)
        (setq ActiveProfile (vl-filename-base FullProfileAdress))
    );progn
      );if
      ;;удаляем старый профиль палитры
      (vl-file-delete
            (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")
            "support\\Profiles\\" (vl-string-trim "<>" ActiveProfile) "\\Profile.aws")
        );vl-file-delete
      ;;копируем профиль палитры
        (if
      (vl-file-copy
            paths
            (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")
          "support\\Profiles\\" (vl-string-trim "<>" ActiveProfile) "\\Profile.aws")
        );vl-file-copy
      (princ "\nProfile.aws - найден")
      (princ "\nProfile.aws - не найден")
      )
      ;;папка шаблонов для подшивок SheetSetTemplatePath
      (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "SheetSetTemplatePath")))
      (progn (if (not (vl-file-directory-p paths)) (vl-mkdir paths))
      (vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" ActiveProfile "\\General")
                          "SheetSetTemplatePath" paths));;progn
      (princ "\nАдрес SheetSetTemplatePath не найден"));;if
      ;;возвращаем активный профиль и удаляем временный
      
          (vla-put-ActiveProfile obj ActiveProfile)
          (vla-DeleteProfile obj temp_profile)
        (vla-put-TextEditor files "");Текстовый редактор сбрасываем на встроенный
    );progn
    (princ "\nАдрес ToolPaletteProfile не найден"));if
;загрузка меню MenuFile
  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "MenuFile")))
    (if (vl-file-size paths)
      (if (menugroup (vl-filename-base paths))
        (progn
          (vla-unload (vla-Item (vla-get-MenuGroups (vlax-get-acad-object)) (vl-filename-base paths)))
          (vla-load (vla-get-MenuGroups (vlax-get-acad-object)) paths :vlax-false)
        );progn
          (vla-load (vla-get-MenuGroups (vlax-get-acad-object)) paths :vlax-false)
        );if
      (princ (strcat "\n" paths " - не найден"))
      );
       (princ "\nАдрес MenuFile не найден"));if
;копирование acad.pgp

  (if (setq paths (strcat FirstPath (Kr_FindTextFileNextString (strcat FirstPath PathFile) "ACADPGP")))
    (if (setq FullPGPAdress (findfile paths))
     (if (vl-string-search "ACAD.PGP" (strcase FullPGPAdress))

       (progn
          ;;удаляем старый acad.pgp
          (vl-file-delete
                (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")
                "support\\acad.pgp")
            );vl-file-delete
          ;;копируем acad.pgp
            (if
          (vl-file-copy
                FullPGPAdress
                (strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")
                "support\\acad.pgp")
              );vl-file-copy
          (princ "acad.pgp найден")
              (princ "acad.pgp не найден")
        );if
     );progn
       
       (princ (strcat "\nНеправильный формат файла" FullPGPAdress))
      );if
      (princ "\nФайл " FullPGPAdress " не найден")
    )
    (princ "\nАдрес ACADPGP не найден")
    );if

  (princ "\nНастройка завершена")
  (alert "Настройка завершена.\nДля сохранения настроек рекомендуется перезагрузить AutoCAD")
  );progn
    (princ (strcat "\nФайл настроек " FirstPath PathFile " не найден"));
    );if
  (princ)
);defun
Пример файла настроек для чужих компов:

Код:
[Выделить все]
SupportPath
\Library\Parameters\Blocks
\Library\Parameters\Font
\Library\Parameters\Icons
\Library\Parameters\Library_Type
\Library\Parameters\LibraryBlock
\Library\Parameters\Lisp
\Library\Parameters\Lisp\PlineModify
\Library\Parameters\Table

PrinterConfigPath
\Library\Parameters\PlotStyles

PrinterDescPath
\Library\Parameters\PlotStyles

PrinterStyleSheetPath
\Library\Parameters\PlotStyles

TemplateDwgPath
\Library\Parameters\Template\

SheetSetTemplatePath
\Library\Parameters\Template\

QNewTemplateFile
\Library\Parameters\Template\AutoCAD_Beginning_Black.dwt

PageSetupOverridesTemplateFile
\Library\Parameters\Template\AutoCAD_Beginning_Black.dwt

ToolPalettePath
\Library\Parameters\Palette\

AutoSavePath
\AutoSaveAutoCAD

ToolPaletteProfile
\Library\Parameters\Menu\Profile.aws

MenuFile
\Library\Parameters\Menu\Krieger.cui
Пример файла настроек для своего компа:

Код:
[Выделить все]
Profile
\Library\Parameters\Menu\Krieger.arg

AutoSavePath
\AutoSaveAutoCAD

ToolPaletteProfile
\Library\Parameters\Menu\Profile.aws

MenuFile
\Library\Parameters\Menu\Krieger.cui

ACADPGP
__________________
Делай хорошо, плохо само получится.

Последний раз редактировалось Krieger, 02.02.2012 в 14:35. Причина: Что в итоге получилось
Просмотров: 62124
 
Непрочитано 01.12.2010, 09:41
#121
666


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


Добрый день. Вопрос Krieger. Расскажи, пожалуйста, пошагово как сделать так, чтобы твой вариант настройки палитр, на разных компах, заработал. Прошу иметь ввиду, что я не силен в подобных вещах.
666 вне форума  
 
Непрочитано 05.05.2011, 06:19
#122
Cveta


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


Добрый день!Хотелось бы узнать что я делаю не правильно: 1.Я сохранила у себя код в блокноте с расширением lsp
2. Загрузила 3. Ввела команду _Kr_AutoSetup. Но пишет автокад "Неизвестная команда "KR_AUTOSETUP". Для вызова справки нажмите F1."
Cveta вне форума  
 
Непрочитано 05.05.2011, 07:50
#123
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


варианты:
1. вы на самом деле НЕ загрузили программу
2. вы загрузили НЕ ТУ программу
3. вы загрузили ту программу, но в коде не определено функции с обозначенным вами именем.
4. в исходном коде ошибка, в следствии которой ваш файл не грузится.
5. у вас AutoCAD LT.

В любом случае вряд ли вашего пациента вылечат по фотографии (т.е. не видя вашего кода и без уточнения - как именно вы загружаете этот файл).
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
 
Непрочитано 05.05.2011, 08:03
#124
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Возможно необходимо было ввести в кс (KR_AUTOSETUP)
gomer вне форума  
 
Непрочитано 05.05.2011, 08:34
#125
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Цитата:
Сообщение от gomer Посмотреть сообщение
Возможно необходимо было ввести в кс (KR_AUTOSETUP)
п.3
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
 
Автор темы   Непрочитано 05.05.2011, 14:28
1 | #126
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,773


Цитата:
Сообщение от Cveta Посмотреть сообщение
Добрый день!Хотелось бы узнать что я делаю не правильно: 1.Я сохранила у себя код в блокноте с расширением lsp
2. Загрузила 3. Ввела команду _Kr_AutoSetup. Но пишет автокад "Неизвестная команда "KR_AUTOSETUP". Для вызова справки нажмите F1."
Коды в первом посту не совсем рабочие. Рабочий код в посту 85
В коде нет команд, там функция, а функция запускается в скобочках с необходимыми параметрами, об этом уже говорилось здесь. Там же ссылка на статью о том как запускать коды на лисп

Цитата:
Сообщение от 666
Добрый день. Вопрос Krieger. Расскажи, пожалуйста, пошагово как сделать так, чтобы твой вариант настройки палитр, на разных компах, заработал. Прошу иметь ввиду, что я не силен в подобных вещах.
Извиняюсь за запоздалый ответ. Почему-то не узнал о сообщении. Посмотри здесь:
http://forum.dwg.ru/showpost.php?p=451629&postcount=84
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
 
Непрочитано 05.05.2011, 14:32
#127
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


млин... с утра невнимательно посмотрел (видимо не проснулся), принял сообщение Cveta как первый пост топика... А оно оказывается аж #122, да и код выложен (страниц много, я принял её за первую)...
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
 
Непрочитано 05.05.2011, 19:07
#128
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Цитата:
Сообщение от Krieger Посмотреть сообщение
В коде нет команд, там функция, а функция запускается в скобочках с необходимыми параметрами
А я угадал, угадал ну, почти...
gomer вне форума  
 
Непрочитано 06.05.2011, 11:05
#129
Cveta


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


У меня не получилось.Я ввела команду: (Kr_AutoSetup "С:" "\\autocad\\setting\\tamplatt\\Kr_Paths.txt")
но автокад написал:
Файл настроек С:\autocad\setting\tamplatt\Kr_Paths.txt не найден

Мне надо, чтоб пути на шаблон сами прописывались. Порядок действий был такой:
Я взяла рабочий код в посту 85. Сохранила его с названием "Kr_AutoSetup.lsp" в папку: C:\autocad\setting\tamplatt.

В эту же папку положила шаблон "Шаблоны листов ИПСП_форма4.dwt"
и файл настроек "Kr_Paths.txt

В файле настроек "Kr_Paths.txt" пути изменила :
TemplateDwgPath
\autocad\setting\tamplatt

QNewTemplateFile
\autocad\setting\tamplatt\Шаблоны листов ИПСП_форма4.dwt

Затем загрузила и ввела команду. Почему не получается?
Cveta вне форума  
 
Автор темы   Непрочитано 06.05.2011, 12:36
#130
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,773


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

Попробуйте разместить файл настроек здесь:
"C:\Documents and Settings\<имя пользователя>\Application Data\Autodesk\AutoCAD 2008\R17.1\enu\Support\"

И в названии шаблона уберите пробелы.
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
 
Непрочитано 23.05.2011, 10:37
#131
Cveta


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


Добрый день. Разместила шаблон, файл настроек и Kr_AutoSetup.lsp в папке C:\Documents and Settings\nisvevl\Application Data\Autodesk\AutoCAD 2008\R17.1\rus\Support.
В названии шаблона убрала пробелы: Шаблоны_листов_ИПСП_форма4_изм.dwt. В файле настроек путь изменила :
TemplateDwgPath
\Documents and Settings\nisvevl\Application Data\Autodesk\AutoCAD 2008\R17.1\rus\Support

QNewTemplateFile
\Documents and Settings\nisvevl\Application Data\Autodesk\AutoCAD 2008\R17.1\rus\Supportt\Шаблоны_листов_ИПСП_форма

Загрузила и ввела команду: (Kr_AutoSetup "С:" "Documents and Settings\\nisvevl\\Application Data\\Autodesk\\AutoCAD 2008\\R17.1\\rus\\Support\\Kr_Paths.txt") .
Автокад пишет: Команда: _appload Kr_AutoSetup.lsp успешно загружено.
Команда:
Команда:
Команда: (Kr_AutoSetup "С:" "Documents and Settings\\nisvevl\\Application
Data\\Autodesk\\AutoCAD 2008\\R17.1\\rus\\Support\\Kr_Paths.txt")
Файл настроек Сocuments and Settings\nisvevl\Application
Data\Autodesk\AutoCAD 2008\R17.1\rus\Support\Kr_Paths.txt не найден
Что делать? Заранее спасибо.
Cveta вне форума  
 
Автор темы   Непрочитано 23.05.2011, 15:12
#132
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,773


Цитата:
Сообщение от Cveta Посмотреть сообщение
Добрый день. Разместила шаблон, файл настроек и Kr_AutoSetup.lsp в папке C:\Documents and Settings\nisvevl\Application Data\Autodesk\AutoCAD 2008\R17.1\rus\Support.
В названии шаблона убрала пробелы: Шаблоны_листов_ИПСП_форма4_изм.dwt. В файле настроек путь изменила :
TemplateDwgPath
\Documents and Settings\nisvevl\Application Data\Autodesk\AutoCAD 2008\R17.1\rus\Support

QNewTemplateFile
\Documents and Settings\nisvevl\Application Data\Autodesk\AutoCAD 2008\R17.1\rus\Supportt\Шаблоны_листов_ИПСП_форма

Загрузила и ввела команду: (Kr_AutoSetup "С:" "Documents and Settings\\nisvevl\\Application Data\\Autodesk\\AutoCAD 2008\\R17.1\\rus\\Support\\Kr_Paths.txt") .
Автокад пишет: Команда: _appload Kr_AutoSetup.lsp успешно загружено.
Команда:
Команда:
Команда: (Kr_AutoSetup "С:" "Documents and Settings\\nisvevl\\Application
Data\\Autodesk\\AutoCAD 2008\\R17.1\\rus\\Support\\Kr_Paths.txt")
Файл настроек Сocuments and Settings\nisvevl\Application
Data\Autodesk\AutoCAD 2008\R17.1\rus\Support\Kr_Paths.txt не найден
Что делать? Заранее спасибо.
Поставь двойной слеш перед "Documents and Settings":
(Kr_AutoSetup "С:" "\\Documents and Settings\\nisvevl\\Application Data\\Autodesk\\AutoCAD 2008\\R17.1\\rus\\Support\\Kr_Paths.txt")
Если не сработает, попробуй так ввести в комстроке со скобками:
(findfile "Kr_Paths.txt")
что выдаст? Если выдаст заветную строку, то попробуй так:
(Kr_AutoSetup "" "Kr_Paths.txt")
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
 
Непрочитано 24.05.2011, 07:01
#133
Cveta


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


Цитата:
что выдаст? Если выдаст заветную строку, то попробуй так:
(Kr_AutoSetup "" "Kr_Paths.txt")
Автокад пишет:Команда: (findfile "Kr_Paths.txt")
"C:\\Documents and Settings\\nisvevl\\Application Data\\Autodesk\\AutoCAD
2008\\R17.1\\rus\\support\\Kr_Paths.txt"
Команда: (Kr_AutoSetup "" "Kr_Paths.txt")
; ошибка: неверный тип аргумента: FILE nil
Cveta вне форума  
 
Автор темы   Непрочитано 24.05.2011, 15:14
#134
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,773


Цитата:
Сообщение от Cveta Посмотреть сообщение
Автокад пишет:Команда: (findfile "Kr_Paths.txt")
"C:\\Documents and Settings\\nisvevl\\Application Data\\Autodesk\\AutoCAD
2008\\R17.1\\rus\\support\\Kr_Paths.txt"
Команда: (Kr_AutoSetup "" "Kr_Paths.txt")
; ошибка: неверный тип аргумента: FILE nil
Тогда так:
(Kr_AutoSetup "Kr_" "Paths.txt")
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
 
Непрочитано 13.10.2011, 11:12
#135
4ydik

Инженер
 
Регистрация: 08.10.2009
Красноярск
Сообщений: 16


Добрый день, появился такой вопрос: Как с помощью lisp добавить значение в Сервис >> Настройка>> Переходим на закладку Файлы и раскрываем список Путь доступа к вспомогательным файлам. Путь к определенной папке где лежат файлы с динамическими блоками?
4ydik вне форума  
 
Непрочитано 13.10.2011, 11:49
2 | #136
Александр Ривилис

программист, рыцарь ObjectARX
 
Регистрация: 09.05.2005
Киев
Сообщений: 2,274
Отправить сообщение для Александр Ривилис с помощью Skype™


Код:
[Выделить все]
 (setenv "ACAD" (strcat (getenv "ACAD") ";" "дополнительный путь")) 
"дополнительный путь" должен существовать!
Александр Ривилис вне форума  
 
Непрочитано 13.10.2011, 11:49
1 | #137
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,750


(setenv "ACAD" (strcat (getenv "ACAD") ";" <Путь>)
Только надо не забыть проверить - вдруг там этот путь уже есть...
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 13.10.2011, 11:55
#138
4ydik

Инженер
 
Регистрация: 08.10.2009
Красноярск
Сообщений: 16


Большое спасибо!!!!
4ydik вне форума  
 
Непрочитано 01.02.2012, 12:16
#139
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,777


Krieger, может в шапку занесешь актуальную версию, чтоб не собирать ее по всем веткам?
crosandr вне форума  
 
Автор темы   Непрочитано 02.02.2012, 14:39
1 | #140
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,773


Цитата:
Сообщение от crosandr Посмотреть сообщение
Krieger, может в шапку занесешь актуальную версию, чтоб не собирать ее по всем веткам?
Он собран в посте №85. Однако перенес код в шапку.
__________________
Делай хорошо, плохо само получится.
Krieger вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Программная настройка AutoCAD, как это делается?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рифмоплетство. Kryaker Разное 519 18.09.2019 18:52
запуск программы из AutoCADа kminas Программирование 19 15.06.2012 13:42
Предложение: Готовые функции Apelsinov Библиотека функций 170 27.06.2010 23:51
Новый драйвер для Phantom AutoCAD OLE/ADI Printer. Как? CyberMan AutoCAD 4 26.04.2009 10:19
Электромагнитная пушка T-Yoke Машиностроение 112 06.08.2008 18:48