RemIcons

HomeHome BlogBlog TwitterTwitter YouTubeYouTube ContactContact
   
 

remicons.lsp RemIcons Free AutoLISP for AutoCAD

Here is both AutoLISP and VBS code that can be used to automate removal or addition of icons in the places list in AutoCAD file dialog boxes like the open dialog box. remicontools.zip

 

More Free AutoLISP and Visual LISP code snippets for AutoCAD

;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2012 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; This program is created for AutoCAD 2002, AutoCAD 2004
;;; AutoCAD 2005, AutoCAD 2006, AutoCAD 2007, AutoCAD 2008
;;; AutoCAD 2009, AutoCAD 2010, AutoCAD 2011, AutoCAD 2012
;;; AutoCAD 2013 and vertical products
;;; Removes the icons Autodesk 360, Buzzsaw, RedSpark, Point A and FTP in Open dialog box
;;;
;;; To remove all of the Icons above for all profiles use (remicons T T T T T T)
;;; To remove only Buzzsaw in active profile use (remicons nil T nil nil nil nil)
;;; To restore all of the Icons to all profiles use (remicons nil nil nil nil nil T)
;;; (remicons <Autodesk 360> <Buzzsaw> <RedSpark> <Point A> <FTP> <All profiles=T, current profile=nil>)

(defun remicons (accloud 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 accloud
      (vl-registry-write
        regkey
        "AcCloud"
        ""
      )
      (vl-registry-delete regkey "AcCloud")
    )
    (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)
 
© 2001-2014 JTB World. All rights reserved.