Buzzsaw, RedSpark, Point A, ... entfernen (Autodesk/Rund um AutoCAD)

Ist mir so bei Surfen vorbeigeflogen und kann IMHO In my humble opinion = Meiner bescheidenen Meinung nach

hier auch gepostet werden da durchaus praktisch und lehrreich.

LISP

Code:

;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2003 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; This program is created for AutoCAD 2002, AutoCAD 2004 and vertical products
;;; Removes the icons 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)
;;; To remove only Buzzsaw in active profile use (remicons T nil nil nil nil)
;;; To restore all of the Icons to all profiles use (remicons nil nil nil nil T)
;;; (remicons <Buzzsaw> <RedSpark> <Point A> <FTP> <All profiles=T, current profile=nil> )
(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)

VBS

Code:

' By Jimmy Bergmark
' Copyright (C) 1997-2003 JTB World, All Rights Reserved
' Website: www.jtbworld.com
' E-mail: info@jtbworld.com
' This program is created for AutoCAD 2002, AutoCAD 2004 and vertical products
' Removes the icons Buzzsaw, RedSpark, Point A and FTP in Open dialog box for the current profile
' If the profile is added to the command line as an argument it is used instead
' If the profilename includes spaces, use " around the name
' Example: remicons.vbs "<<unnamed profile>>"
Sub main()
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
cv = WshShell.RegRead("HKCU\SOFTWARE\Autodesk\AutoCAD\CurVer")
if cv="" then WScript.Quit
ca = WshShell.RegRead("HKCU\SOFTWARE\Autodesk\AutoCAD\" & cv & "\CurVer")
if ca="" then WScript.Quit
prof = "HKCU\SOFTWARE\Autodesk\AutoCAD\" & cv & "\" & ca & "\Profiles\"
cp = WshShell.RegRead(prof)
If WScript.Arguments.Count > 0 Then
cp=strip(WScript.Arguments(0))
End If
if cp="" then WScript.Quit
key = prof & cp & "\Dialogs\AllAnavDialogs\DeletedExtensions\"
WshShell.RegWrite key & "Buzzsaw", "", "REG_SZ"
WshShell.RegWrite key & "RedSpark", "", "REG_SZ"
WshShell.RegWrite key & "SimpleStorageSites", "", "REG_SZ"
WshShell.RegWrite key & "FTPSites", "", "REG_SZ"
WshShell.RegWrite key & "ACPROJECT", "", "REG_SZ"
end sub
function strip(arg)
if left(arg,1)="""" and right (arg,1)="""" then
strip=mid(arg,1,len(arg)-2)
else
strip=arg
end if
end function
main

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP