Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

Чтение и запись параметров в диалоговом окне "Explode AEC Objects" при использовании команды _AecObjExplode

Назад к списку функций
Эффект записи этих настроек непосредственно действует на команду. Для ADT 2004.
;;; Прочитать параметры "Explode to anonymous blocks"
;;; (readAECObjectsExplodeOptions "Anonymous Block")
;;;   0 = отключить Explode to anonymous blocks
;;;   1 = включать Explode to anonymous blocks
;;; (readAECObjectsExplodeOptions "Bind Xrefs")
;;;   0 = Не привязывать внешние ссылки
;;;   1 = Привязывать внешние ссылки
;;; Другие параметры, которые могут использоваться:
;;; (readAECObjectsExplodeOptions "Bind Xrefs Bind Type")
;;; (readAECObjectsExplodeOptions "Erase AEC Objects")
;;; (readAECObjectsExplodeOptions "Explode AEC Objects")
;;; (readAECObjectsExplodeOptions "Include Model Tab")
;;; (readAECObjectsExplodeOptions "Maintain Properties")
;;; (readAECObjectsExplodeOptions "Name Length")
;;; (readAECObjectsExplodeOptions "Reuse Existing Names")
;;; (readAECObjectsExplodeOptions "Short Block Names")
;;; (readAECObjectsExplodeOptions "Verbose")
;;; (readAECObjectsExplodeOptions "Views")

(defun readAECObjectsExplodeOptions (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))
	)
      )
      "\\Dialogs\\AecObjExplode40-Options"
    )
    keyname
  )
)


;;; Прочитать параметры "Explode to anonymous blocks"
;;; отключить  Explode to anonymous blocks
;;;   (writeAECObjectsExplodeOptions "Anonymous Block" 0)
;;; Включить Explode to anonymous blocks
;;;   (writeAECObjectsExplodeOptions "Anonymous Block" 1)
;;; Не привязывать внешние ссылки
;;;   (writeAECObjectsExplodeOptions "Bind Xrefs" 0)
;;; Привязывать внешние ссылки
;;;   (writeAECObjectsExplodeOptions "Bind Xrefs" 1)
;;;  Другие параметры, которые могут использоваться:
;;; (writeAECObjectsExplodeOptions "Bind Xrefs Bind Type" 1)
;;; (writeAECObjectsExplodeOptions "Erase AEC Objects" 1)
;;; (writeAECObjectsExplodeOptions "Explode AEC Objects" 1)
;;; (writeAECObjectsExplodeOptions "Include Model Tab" 0)
;;; (writeAECObjectsExplodeOptions "Maintain Properties" 0)
;;; (writeAECObjectsExplodeOptions "Name Length" 31)
;;; (writeAECObjectsExplodeOptions "Reuse Existing Names" 0)
;;; (writeAECObjectsExplodeOptions "Short Block Names" 1)
;;; Отобразить сообщение статуса
;;;   (writeAECObjectsExplodeOptions "Verbose" 1)
;;;   (writeAECObjectsExplodeOptions "Views" 0)
(defun writeAECObjectsExplodeOptions (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))
	)
      )
      "\\Dialogs\\AecObjExplode40-Options"
    )
    keyname
    n
  )
)



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko