| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: cad.de-Suche fernsteuern (7914 mal gelesen)
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3329 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 16. Sep. 2004 20:49 <-- editieren / zitieren --> Unities abgeben:
Hi, Inspiriert durch einen Beitrag aus einer anderen Ecke des Netzes habe ich ein Lisp geklöppelt, dass die CAD.DE-Suche im "Rund um AutoCAD"-Forum aus AutoCAD heraus startet. Einfach die gesuchten Begriffe in die Befehlszeile tippen, schon startet der Browser und präsentiert die Funde im Forum. Ich schenk's Euch. Macht damit, was Ihr wollt, aber ab jetzt gibt es keine Entschuldigung mehr, wenn die Suchfunktion mal wieder nicht genutzt wurde. ;D Für alle, die noch nicht wissen, wie sie die Sache integriert bekommen: Den kompletten Code in eine Textdatei mit der Endung LSP in einem der Supportpfade von AutoCAD speichern. Diese Datei dann in die Startgruppe (Extras->Anwendungen) nehmen bzw. den folgenden Ausdruck in die acad****doc.lsp oder, falls mit eigenem Menü gearbeitet wird, in die entsprechende MNL-Datei schreiben: (autoload"SiCADDE.lsp" '("SiCADDE")) Mit einem Aufruf von "SiCADDE" in der Befehlszeile oder einem Buttonmakro (^C^CSiCADDE wird das Tool dann geladen und ausgeführt. [EDIT]SiCADDE upgedated und als ZIP angehängt.[/EDIT]
;|SiCADDE - Suchen in CAD.DE startet die Suche im "Rund um AutoCAD"-Forum von CAD.DE mit den eingegebenen Suchbegriffen oder öffnet einfach nur die erweiterte Suche von CAD.de Um andere cad.de-Foren zu durchsuchen bei "&ForumChoice=54" die entsprechende Nummer eintragen: 53 für das LT-Forum 145 für das Lisp-Forum ...usw CADchup Sep., 2004 |; (defun C:SiCADDE (/ such suchliste) (setq echo (getvar "CMDECHO")) (setvar "CMDECHO" 0) (if (/= "" (car (setq suchliste (list (getstring "\nSuchbegriff eingeben oder [RETURN] um die erweiterte Suche von cad.de aufzurufen: " ) ) ) ) ) (progn (while (/= "" (setq such (getstring "\nweitere Suchbegriffe eingeben oder [RETURN] zum Beenden: " ) ) ) (setq suchliste (cons such suchliste)) ) (Browse&Find "http://ww3.cad.de/cgi-bin/ubb/search.cgi?action=simplesearch&StartPoint=1&SearchTerms=" (reverse suchliste) "&SearchUser=&ForumChoice=54&SearchIn=ALL&SearchDate=ALL&ExactName=no&BooleanAND=YES&Continue=False" ) ) (startapp (GetBrowser) "http://ww3.cad.de/cgi-bin/ubb/search.cgi?action=intro&default=54" ) ) (setvar "CMDECHO" echo) ) (defun Browse&Find (url suchliste suf / suchtxt) (foreach x suchliste (setq suchtxt (strcat (if suchtxt (strcat suchtxt "+") "" ) x ) ) ) (startapp (GetBrowser) (strcat url suchtxt suf)) ) (defun GetBrowser (/ str) (substr (setq str (vl-registry-read "HKEY_CLASSES_ROOT\\htmlfile\\shell\\open\\command" ) ) 2 (1- (vl-string-search "\" " str)) ) ) (princ "\n\"SiCADDE.lsp\" geladen. Zum Starten \"SiCADDE\" eingeben." ) (princ) Gruß CADchup
[Diese Nachricht wurde von CADchup am 01. Sep. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 16. Sep. 2004 21:39 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 16. Sep. 2004 22:22 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 17. Sep. 2004 03:11 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 17. Sep. 2004 07:12 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
OtzeMachEd Mitglied Bauzeichner & CAD Systembetreuer
Beiträge: 201 Registriert: 30.05.2003 WIN XP Prof. ACAD 2010 ADT 2010 Express Tools
|
erstellt am: 17. Sep. 2004 07:24 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Hallo, klasse Idee! Danke! Wenn das nicht mal der beste Beitrag aller Zeiten wird. Deshalb auch von mir 10 U`s. ------------------ Mit freundlichen Grüßen Otze Mach Ed .....wer lesen kann ist klar im Vorteil.... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ralle Mitglied
Beiträge: 266 Registriert: 12.03.2003 Windows 10 Enterprise 64-Bit, 32GB MEP2018
|
erstellt am: 17. Sep. 2004 07:34 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
Angelika Hädrich Ehrenmitglied V.I.P. h.c. Application Engineer
Beiträge: 5123 Registriert: 12.07.2000 Der erreicht am meisten, der immer auch anders kann, als er vorhatte.
|
erstellt am: 17. Sep. 2004 07:34 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Guten Morgen CADchup, he - schickes Spielzeug - tolle Idee und gute Arbeit. Wenn einem so viel schönes wird beschert... ist das doch 10 Unities wert Vielen Dank
Angelika PS: Nach der U-Flut: kannst auch den Ferrari haben ich nehme den anderen - siehe Anhang ------------------ Lieber Fehler riskieren als Initiative verhindern. (Reinhard Mohn)
Bitte Supportangaben eintragen, warum siehst du hier : Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1968 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 17. Sep. 2004 07:49 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
m-troeger Mitglied gel. Bauzeichner; Vermessungszeichner, Vermesser im Außendienst, GIS-Erfassung in PARIS
Beiträge: 295 Registriert: .. ACAD14 und 2005; MAP4; GeoCAD; PARIS; ( Vermessung )
|
erstellt am: 19. Sep. 2004 21:34 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
kajomies Mitglied Architekt
Beiträge: 263 Registriert: 08.03.2001
|
erstellt am: 20. Sep. 2004 10:43 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
dr-nikolai Ehrenmitglied
Beiträge: 1790 Registriert: 10.04.2002
|
erstellt am: 20. Sep. 2004 12:20 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
Caladia Ehrenmitglied V.I.P. h.c.
Beiträge: 2546 Registriert: 04.03.2002 ACAD2009 ACAD2010 SP2 ACAD2011 SP1 ABDS-S 2012 SP2 ABDS-S 2013 SP2 ABDS-S 2014 SP1 ABDS-S 2015 SP2 ABDS-S 2016 Expresstools A3-Makroboard 16-Tasten Lupe Impression 3 Win7 64bit IE11 Firefox Office2003 SP3
|
erstellt am: 20. Sep. 2004 12:28 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 20. Sep. 2004 12:36 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
Petra Mitglied Technischer Zeichner-Konstrukteur HLS - CAD-Admin
Beiträge: 113 Registriert: 19.02.2001
|
erstellt am: 30. Sep. 2004 13:59 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
Tulsa Mitglied Maschinenbauer
Beiträge: 488 Registriert: 17.05.2004 Win10(x64) 16GB RAM PNY®Quadro®K4200 PRDSU 2014/15/16/17;Vault 2017 InventorCAM 2016 SP3 Space Pilot Pro ********** Dell M6600 Win10(x64) 12GB RAM NVIDIA®Quadro®4000M PRDSU 2017 InventorCAM 2016 Space Pilot Pro **********
|
erstellt am: 30. Sep. 2004 14:21 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
carmelli76 Mitglied CAD/GIS Teamleitung
Beiträge: 553 Registriert: 05.07.2004 Autodesk Civil 3D 2014 Revit 2016 Vault 2014
|
erstellt am: 30. Sep. 2004 16:37 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3329 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 15. Okt. 2004 20:49 <-- editieren / zitieren --> Unities abgeben:
Hi, danke für die vielen Us, mit denen Ihr mich für SiCADDE zugeworfen habt. Hätte nie gedacht, dass Euch die Lispelei gefällt. Hier noch eine Variante davon. Nur der Vollständigkeit halber und weil mir dafür ein so schöner Name eingefallen ist: Googlehupf Code:
;|Googlehupf - Suchen bei Google.destartet die Suche von Google.de mit den eingegebenen Suchbegriffen oder öffnet Google wenn keine Suchbegriffe eingegeben wurden. CADchup Okt., 2004 |; (defun C:Googlehupf (/ such suchliste) (setq echo (getvar "CMDECHO")) (setvar "CMDECHO" 0) (if (/= "" (car (setq suchliste (list (getstring "\nSuchbegriff eingeben oder [RETURN] um Google aufzurufen: " ) ) ) ) ) (progn (while (/= "" (setq such (getstring "\nweitere Suchbegriffe eingeben oder [RETURN] zum Beenden: " ) ) ) (setq suchliste (cons such suchliste)) ) (Browse&Find "http://www.google.de/search?hl=de&q=" (reverse suchliste) "&btnG=Google-Suche&meta=" ) ) (startapp (GetBrowser) "http://www.google.de" ) ) (setvar "CMDECHO" echo) )
(defun Browse&Find (url suchliste suf / suchtxt) (foreach x suchliste (setq suchtxt (strcat (if suchtxt (strcat suchtxt "+") "" ) x ) ) ) (startapp (GetBrowser) (strcat url suchtxt suf)) ) (defun GetBrowser (/ str) (substr (setq str (vl-registry-read "HKEY_CLASSES_ROOT\\htmlfile\\shell\\open\\command" ) ) 2 (1- (vl-string-search "\" " str)) ) ) (princ "\n\"Googlehupf.lsp\" geladen. Zum Starten \"Googlehupf\" eingeben." ) (princ)
Gruß CADchup
------------------ www.cadditions.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bemath Mitglied Maschinenbautechniker
Beiträge: 94 Registriert: 08.03.2003
|
erstellt am: 18. Okt. 2004 11:43 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Hallo und guten Tag, ich hab eben erfolgreich das Such-Tool in mein ACAD integriert und getestet...leider öffnet sich darauf der IE, obwohl ich Netscape als Standardbrowser eingerichtet habe. Gibt es die Möglichkeit, direkt den Netscape aus dem Lisp herauszustarten? Ich hab schon ein wenig mit dem Befehl "Startapp" herumgebastelt, aber meine Kenntnisse in Lisp sind doch recht bescheiden um nicht zu sagen minimalst.... Gruss und Danke, Bernd ------------------ Frauen machen sich nur deshalb hübsch, weil das Auge des Mannes besser entwickelt ist als sein Verstand (Doris Day) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3329 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 18. Okt. 2004 13:30 <-- editieren / zitieren --> Unities abgeben:
Hm. Also steht der aktuelle Standardbrowser bei Dir nicht in diesem Reg-Schlüssel: HKEY_CLASSES_ROOT\htmlfile\shell\open\command ? Bei mir tut er das. Du kannst den Browser aber auch fest verdrahten, indem Du die Zeile: (startapp (GetBrowser) (strcat url suchtxt suf)) so veränderst: (startapp "C:\\Programme\\DeinProgramm\\DeinBrowser.exe" (strcat url suchtxt suf)) Gruß CADchup
------------------ www.cadditions.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bemath Mitglied Maschinenbautechniker
Beiträge: 94 Registriert: 08.03.2003
|
erstellt am: 18. Okt. 2004 14:18 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Zitat: Original erstellt von CADchup: Hm.Also steht der aktuelle Standardbrowser bei Dir nicht in diesem Reg-Schlüssel: HKEY_CLASSES_ROOT\htmlfile\shell\open\command ? Bei mir tut er das.
....jetzt ja! Und es funzt sogar! Recht herzlichen Dank! und wieder sind 10 U´s weg.... Gruss Bernd ------------------ Frauen machen sich nur deshalb hübsch, weil das Auge des Mannes besser entwickelt ist als sein Verstand (Doris Day) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 18. Okt. 2004 15:49 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Hi, Googlehupf! Ich schmeiß mich weg! Der Name ist allein 10 U's wert! Aber Du wirst es nicht glauben, ich hab auch daran gedacht das Ding noch auf Google um zuschreiben! Bin nur noch nicht dazu gekommen! Wenn ich es gemacht hätte, dann wären wir wahrscheinlich nicht bei Google gelandet, sondern beim Ginesischen Gonsulat! Prima Sache! 10 for you! Mfg Alpschorsch Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 18. Okt. 2004 15:57 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Zitat: Original erstellt von Alpschorsch: Aber Du wirst es nicht glauben, ich hab auch daran gedacht das Ding noch auf Google um zuschreiben! Bin nur noch nicht dazu gekommen!
Is'n Witz, oder? Sag bitte ja. ------------------ - Thomas - "Bei 99% aller Problemen ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
GWH Mitglied
Beiträge: 549 Registriert: 08.06.2001
|
erstellt am: 18. Okt. 2004 16:56 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
einer von vielen - 10 Points ------------------ Ciao Günter -------------------------------------------------------------------------------- "Es gibt keine Probleme, sondern Aufgaben zu lösen." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
sinsa Mitglied zeichnerin am rande des nervenzusammenbruchs
Beiträge: 24 Registriert: 25.11.2003 ACAD 2002, xp prof., matrox 550 dual head
|
erstellt am: 19. Apr. 2005 15:46 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
super!! nachdem ich fertig war mit lachen hab ich das sofort eingebaut! Jetz sollten wir alle mal vergleichen, wer hierfür den schicksten button gebastelt hat *g* 10 U´s sind natürlich unterwegs sandra ------------------ toll, da lernte ich mühsam sprechen um im hohen alter mit dem lispeln anzufangen wetterwachs Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADuceus Mitglied LWL-Netzplaner GIS
Beiträge: 358 Registriert: 20.01.2005 LWL Netzplanung AutoCAD Map 3D 2020 Win10 64bit / Chrome Intel® Core™ i7-4770K 3.50GHz / 32GB NVidia Quadro P400 HP DesignJet T795
|
erstellt am: 19. Apr. 2005 18:36 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Ganz klar, es gibt nichts über die Original-Logos der entsprechenden Internetseiten. HIER ===> ===> ===> ===> Auch meine 10us kommen aus Überzeugung. Du kannst in anderen nur entzünden, was in Dir selber brennt!
[Diese Nachricht wurde von CADuceus am 19. Apr. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Amadeo52 Mitglied Konstrukteur, CAD-Admin
Beiträge: 64 Registriert: 13.02.2004 ACAD 2002, ADT 3.3, ACAD 2004, ADT 2004 ACAD 2006, ADT 2006, DXFKONV, DWGKONV C.A.T.S., PitCup,
|
erstellt am: 19. Apr. 2005 19:10 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
Amadeo52 Mitglied Konstrukteur, CAD-Admin
Beiträge: 64 Registriert: 13.02.2004 ACAD 2002, ADT 3.3, ACAD 2004, ADT 2004 ACAD 2006, ADT 2006, DXFKONV, DWGKONV C.A.T.S., PitCup,
|
erstellt am: 20. Apr. 2005 16:23 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Zitat: Original erstellt von CADchup:
Um andere cad.de-Foren zu durchsuchen bei "&ForumChoice=54" die entsprechende Nummer eintragen: 53 für das LT-Forum 145 für das Lisp-Forum ...uswCADchup
Und wo bitte finde ich die entsprechenden Zahlen ??? Wahrscheinlich bin ich nur mal wieder zu Blind. mfg Karl Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 20. Apr. 2005 16:27 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
zB hier: Zitat: Original erstellt von CADchup:
"&SearchUser=&ForumChoice=54&SearchIn=ALL&SearchDate=ALL&ExactName=no&BooleanAND=YES&Continue=False"
EDIT: Kleiner Tipp: STRG + F funktioniert auch im Text-Editor ------------------ Grüsse Thomas [Diese Nachricht wurde von tunnelbauer am 20. Apr. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Amadeo52 Mitglied Konstrukteur, CAD-Admin
Beiträge: 64 Registriert: 13.02.2004 ACAD 2002, ADT 3.3, ACAD 2004, ADT 2004 ACAD 2006, ADT 2006, DXFKONV, DWGKONV C.A.T.S., PitCup,
|
erstellt am: 20. Apr. 2005 16:57 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Die Nummer in der Lisp-Datei ist mir klar... Aber woher bekomm ich die Forumsnummern ??? Gruß Karl Zitat: Original erstellt von tunnelbauer: zB hier: EDIT: Kleiner Tipp: STRG + F funktioniert auch im Text-Editor
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 20. Apr. 2005 17:02 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 20. Apr. 2005 17:05 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
s.wickel Mitglied Bauingenieur Wasserwirtschaft
Beiträge: 422 Registriert: 17.12.2001
|
erstellt am: 27. Okt. 2005 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
SUUUPER Tool! 10 Us! Kleine Verbesserung (für SICADDE): Folgende Zeilen vor dem ersten if einfügen:
Code:
(setq ForumChoice (getint "Welches Forum? 1=ACAD, 2=Lisp, 3=Magellan <1>")) (cond ((= ForumChoice 1) (setq ForumChoice "54")) ;Für Rund um ACAD ((= ForumChoice 2) (setq ForumChoice "145")) ;Für Lisp ((= ForumChoice 3) (setq ForumChoice "292")) ;Für Magellan (T (setq ForumChoice "54")) )
Dann weiter unten zwei Zeilen austauschen:
Code:
Original: "&SearchUser=&ForumChoice=54&SearchIn=ALL&SearchDate=ALL&ExactName=no&BooleanAND=YES&Continue=False" Neu: (strcat "&SearchUser=&ForumChoice=" ForumChoice "&SearchIn=ALL&SearchDate=ALL&ExactName=no&BooleanAND=YES&Continue=False")und Original: "http://ww3.cad.de/cgi-bin/ubb/search.cgi?action=intro&default=54" Neu: (strcat "http://ww3.cad.de/cgi-bin/ubb/search.cgi?action=intro&default=" ForumChoice)
Jetzt gibt's eine Abfrage nach dem Forum! Alles im ersten Teil anpassbar. :-) Wer einen anderen Browser wünscht als den in der Registry eingetragenen sollte in der Funktion GetBrowser allen Code auskommentieren und durch eine Zeile wie:
Code:
"C:\\Programme\\Mozilla Firefox\\Firefox.exe"
ersetzen.Ich habe den Beitrag erst gerade entdeckt und bin schon begeister! Auf das Umsetzen für Google war ich auch schon gekommen, bevor ich weitergelesen hatte. Und jetzt die Aufgabe für die Meister: Googlehupf und Sicadde in ein Tool zusammenführen mit entsprechender Abfrage wo gesucht werden soll! ;-) ------------------ Nodda, Stefan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bikerholic Mitglied Bauzeichner Straßenbau
Beiträge: 123 Registriert: 06.02.2009 XP Professional SP2 Intel Pentium x86 2.40GHz 1GB-Ram, Maxtor 60GB NVIDIA GeForce4 MX 420 mit 64MB AutoCAD 2005&2008&2010(Civil3D)+SP2+Expresstools google und ich san beste freunde ;)
|
erstellt am: 04. Mrz. 2009 18:37 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
bin über den beitrag nur durch zufall gestopert und muss sagen klasse sache funz einwandfrei dankeschön dafür und auch von mir 10 units gruß björn ------------------ Wenn Arbeit etwas schoenes und erfreuliches waere, haetten die Reichen sie nicht den Armen ueberlassen. [Paul Lafargue] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
T.B. Mitglied Bauzeichner
Beiträge: 15 Registriert: 27.01.2009 AutoCAD 2007 Pentium 4 CPU, 2.80Ghz 1.00 GB RAM Windows XP Professional
|
erstellt am: 05. Mrz. 2009 08:45 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
bbernd Mitglied Technischer Zeichner / Zimmerermeister
Beiträge: 1467 Registriert: 20.02.2009 AutoCAD 2021 Gimp 2.10 Windows10 64bit 64 GB Arbeitsspeicher NVIDIA RTX A4000
|
erstellt am: 05. Mrz. 2009 13:25 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 05. Mrz. 2009 13:33 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Zitat: Original erstellt von bbernd:
Ich würde mir gerne das Lisp so abändern (lassen??),das ich die Sartseite Rund um AutoCAD auch direckt anwählen kann, wie geht das?Gruß BB
so: (defun C:Rua (/ str) (startapp (substr (setq str (vl-registry-read "HKEY_CLASSES_ROOT\\htmlfile\\shell\\open\\command" ) ) 2 (1- (vl-string-search "\" " str)) ) "http://ww3.cad.de/cgi-bin/ubb/forumdisplay.cgi?action=topics&number=54" ) ) aber wofür? ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bbernd Mitglied Technischer Zeichner / Zimmerermeister
Beiträge: 1467 Registriert: 20.02.2009 AutoCAD 2021 Gimp 2.10 Windows10 64bit 64 GB Arbeitsspeicher NVIDIA RTX A4000
|
erstellt am: 05. Mrz. 2009 13:47 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 05. Mrz. 2009 13:56 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
kannste halten wie ein Dachdecker .. ist eigenständig .. Befehlsaufruf: Rua ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bbernd Mitglied Technischer Zeichner / Zimmerermeister
Beiträge: 1467 Registriert: 20.02.2009 AutoCAD 2021 Gimp 2.10 Windows10 64bit 64 GB Arbeitsspeicher NVIDIA RTX A4000
|
erstellt am: 05. Mrz. 2009 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 21. Feb. 2013 19:22 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Da ich gerade selbst meine Suchfunktion angepasst habe um die Einschränkung -replyto -replyn und -editpost Evtl. gefällt einem ja diese Variante. Seit 2004 im Einsatz (dieser Thread war Auslöser für viiiieeele kleine Helferlein bei mir):
Code: ;;; Google-Suchanfrage stellen / Wahlweise auf CAD.de-Forum CAD.de 54 (Rund um AutoCAD) beschränkt ; (defun C:GOOGLE (/ SUCHLISTE TMP) (if (= "" (car (setq SUCHLISTE (list(getstring T "\nSuchbegriff eingeben oder <\"Rund um AutoCAD\"> "))))) (setq SUCHLISTE '("site:cad.de Forum54 -replyto -replyn -editpost ")) ) (while (/= "" (setq TMP (getstring T "\nweitere Suchbegriffe eingeben oder [RETURN] zum Beenden: " ))) (setq SUCHLISTE (cons TMP SUCHLISTE)) ) (Browse&Find "http://www.google.de/search?hl=de&q=" (reverse SUCHLISTE) "") )
------------------ Link: User:FAQ (einiges Wissenswertes über AutoCAD) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bbernd Mitglied Technischer Zeichner / Zimmerermeister
Beiträge: 1467 Registriert: 20.02.2009 AutoCAD 2021 Gimp 2.10 Windows10 64bit 64 GB Arbeitsspeicher NVIDIA RTX A4000
|
erstellt am: 22. Feb. 2013 10:08 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
Hallo Cadffm, hört sich gut an aber leider bekomme ich diese Fehlermeldung: Fehler: no function definition:BROWSE&FIND Muss ich den Befehl “BROWSE&FIND“ noch defienieren?
------------------ Gruß Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 22. Feb. 2013 11:01 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
bbernd Mitglied Technischer Zeichner / Zimmerermeister
Beiträge: 1467 Registriert: 20.02.2009 AutoCAD 2021 Gimp 2.10 Windows10 64bit 64 GB Arbeitsspeicher NVIDIA RTX A4000
|
erstellt am: 22. Feb. 2013 11:10 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
CADuceus Mitglied LWL-Netzplaner GIS
Beiträge: 358 Registriert: 20.01.2005 LWL Netzplanung AutoCAD Map 3D 2020 Win10 64bit / Chrome Intel® Core™ i7-4770K 3.50GHz / 32GB NVidia Quadro P400 HP DesignJet T795
|
erstellt am: 16. Aug. 2013 16:02 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3329 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 01. Sep. 2013 17:41 <-- editieren / zitieren --> Unities abgeben:
Hi, CAD.de bekam vor Kurzem eine neue Suchfunktion. Daher lief SiCADDE in einen Fehler. Zur (jetzt wirklich besseren) Suchfunktion gibt es hier einen erklärenden Beitrag. Die neue SiCADDE-Funktion habe ich oben im ersten Beitrag angehängt. Änderung: Es kann ein gewünschtes Brett anhand seiner CAD.de-Nummer ausgewählt werden. Eine Brettauswahl habe ich in die Abfrage eingebaut, weitere Bretter können einfach über die Eingabe ihrer Nummer gewählt werden, also zum Beispiel die 8 für das Community-Brett usw. Gruß CADchup ------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADadler Mitglied Zeichner
Beiträge: 9 Registriert: 12.05.2018 ACAD 2013<P>Win 7 64bit Win 10 64bit
|
erstellt am: 28. Mai. 2018 19:40 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 28. Mai. 2018 21:27 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|
CADadler Mitglied Zeichner
Beiträge: 9 Registriert: 12.05.2018 ACAD 2013<P>Win 7 64bit Win 10 64bit
|
erstellt am: 28. Mai. 2018 21:46 <-- editieren / zitieren --> Unities abgeben: Nur für CADchup
|