| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | Teledoor setzt erfolgreich auf Configure-to-Order mit CIDEON Conify , ein Anwenderbericht
|
Autor
|
Thema: Buzzsaw, RedSpark, Point A, ... entfernen (510 mal gelesen)
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 02. Feb. 2004 22:01 <-- editieren / zitieren --> Unities abgeben:
Ist mir so bei Surfen vorbeigeflogen und kann IMHO 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 |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 03. Feb. 2004 13:08 <-- editieren / zitieren --> Unities abgeben:
Zitat:
*ZENSIERT* Guten Morgen,kannst Du mir bitte erklären, was genau dieses lisp macht. [...] *ZENSIERT*
Es entfernt die Einträge inerhalb des "Datei-Öffnen" Dialogs. ------------------ "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 |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|