Здесь вы можете скачать документацию и программы для САПР AutoCAD, PCAD, 3DS, Inventor, Pro/E, Solidworks и других CAD CAM CAE EDA GIS

Чтение и запись параметров, которые используют AecExportToAutoCAD и подобные ей команды

Эффект записи этих настроек непосредственно действует на команду.

;;; Прочитать параметры, которые используют 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
  )
)