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

Удаление иконок Buzzsaw, RedSpark, Point A и FTP в диалоговом окне Open

Назад к списку функций
;;; Эта программа была создана для AutoCAD 2002, AutoCAD 2004 и связаных программ
;;; Удаляет иконок Buzzsaw, RedSpark, Point A и FTP в диалоговом окне Open
;;; Использование:
;;; Удалить все указанные иконки из всех профилей: (remicons T T T T T)
;;; Удалить тоько иконку Buzzsaw из активного профиля: (remicons T nil nil nil nil)
;;; Восстановить все иконки во всех профилях: (remicons nil nil nil nil T)
;;; (remicons     )

(defun remicons (ibuzz ired ipoint iftp allprof / prof profiles regkey)
  (vl-load-com)
  (defun getallprofilenames (/ allprofiles)
    (vla-getallprofilenames
      (vla-get-profiles
        (vla-get-preferences (vlax-get-acad-object))
      )
      'allprofiles
    )
    (vlax-safearray->list allprofiles)
  )
  (setq profiles (getallprofilenames))
  (if (not allprof) (setq profiles (list (getvar "CPROFILE"))))
  (foreach prof profiles
    (setq regkey (strcat "HKEY_CURRENT_USER\\"
                (vlax-product-key)
                "\\Profiles\\"
                prof
                "\\Dialogs\\AllAnavDialogs\\DeletedExtensions"
        )
    )
    (if ibuzz
      (vl-registry-write
        regkey
        "Buzzsaw"
        ""
      )
      (vl-registry-delete regkey "Buzzsaw")
    )
    (if ibuzz
      (vl-registry-write
        regkey
        "ACPROJECT"
        ""
      )
      (vl-registry-delete regkey "ACPROJECT")
    )
    (if ired
      (vl-registry-write
        regkey
        "RedSpark"
        ""
      )
      (vl-registry-delete regkey "RedSpark")
    )
    (if ipoint
      (vl-registry-write
        regkey
        "SimpleStorageSites"
        ""
      )
      (vl-registry-delete regkey "SimpleStorageSites")
    )
    (if iftp
      (vl-registry-write
        regkey
        "FTPSites"
        ""
      )
      (vl-registry-delete regkey "FTPSites")
    )
  )
  (princ)
)


(princ)



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