![]() | ![]() |
Translate to: |
|||||
Обратная связь | Новости САПР | Программы | Документация | Полезные советы | Обзорные статьи | ||
Заказ и разработка | Каталог САПР | САПР-конференция | Библиотека ГОСТов | Наши соавторы | Коммерческое ПО |
;;; Прочитать параметры, которые используют AecExportToAutoCAD и подобные ей команды ;;; Привязывать или нет внешние ссылки при экспорте ;;; (0 = нет, 1 = да) ;;; (readAecGuiBase40 "ExportExplodedToAutoCADBindXrefs") ;;; Метод привязки внешних ссылок при экспорте ;;; (0 = метод привязки, 1 = метод вставки) ;;; (readAecGuiBase40 "ExportExplodedToAutoCADInsertWhenBinding") ;;; Префикс файла, используемый при экспорте ;;; (readAecGuiBase40 "ExportExplodedToAutoCADFilePrefix") ;;; Суффикс файла, используемый при экспорте ;;; (readAecGuiBase40 "ExportExplodedToAutoCADFileSuffix") (defun readAecGuiBase40 (keyname) (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)) ) ) "\\Preferences\\AecGuiBase40" ) keyname ) ) ;;; Записать параметры, которые используют AecExportToAutoCAD и подобные ей команды ;;; Привязывать или нет внешние ссылки при экспорте ;;; (0 = нет, 1 = да) ;;; (writeAecGuiBase40 "ExportExplodedToAutoCADBindXrefs" 1) ;;; Метод привязки внешних ссылок при экспорте ;;; (0 = метод привязки, 1 = метод вставки) ;;; (writeAecGuiBase40 "ExportExplodedToAutoCADInsertWhenBinding" 1) ;;; Установить Префикс файла, используемый при экспорте ;;; (writeAecGuiBase40 "ExportExplodedToAutoCADFilePrefix" "") ;;; Установить суффикс файла, используемого при экспорте ;;; (writeAecGuiBase40 "ExportExplodedToAutoCADFileSuffix" "-ACAD-EXPORT") (defun writeAecGuiBase40 (keyname n) (vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)) ) ) "\\Preferences\\AecGuiBase40" ) keyname n ) )
Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko