| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: nach 2 identischen wörtern suchen (273 mal gelesen)
|
jeromechen Mitglied
Beiträge: 33 Registriert: 09.02.2006
|
erstellt am: 06. Jul. 2006 11:17 <-- editieren / zitieren --> Unities abgeben:
hallo miteinandern mein problem ist ich habe 50'000 nummern und es darf keine zweimal vorkommen, nun die frage gibts ein befehl der nach identischen wörten suchen kann also ob irgendetwas doppelt vorkommt? oder jemand eine idee wie ich das produktiv machen kann? mfg jerome Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
heiko_hems Mitglied Freier Architekt
Beiträge: 1305 Registriert: 14.01.2005 BuildingDesignSuitePremium 2021 Revit / ACA
|
erstellt am: 06. Jul. 2006 11:29 <-- editieren / zitieren --> Unities abgeben: Nur für jeromechen
Hallo Jerome, wenn Du es nur wissen -und nicht ändern- willst würde ich spontan dazu raten eine dxf zu schreiben. Diese kann dann in einem geeigneten Editor venudelt werden (auch zB in Word mittels gebasteltem Makro o.ä. die Entity TEXT suchen)... wenn Du es wissen -und ändern- willst solltest Du an eine LISP-Lösung denken, da kann ich Dir leider nicht weiterhelfen - aber vielleicht fragst/suchst Du mal hier im entsprechenden Brett Gruß Heiko Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 06. Jul. 2006 11:33 <-- editieren / zitieren --> Unities abgeben: Nur für jeromechen
Wenn du ein Beispiel postest (DWG gezippt) dann bekommst du sicher deine Lösung von einem freundlichen Forummitglied. Die fast-Board Methode wäre evtl: Alle auf einen Layer, gleicher Textstil - alles gleich (bis auf die Textwerte) dann über das Eigenschaftenfenster alle Texte auf 0,0,0 schieben damit auch das gleich ist. Nun "doppelt" von cadwiesel.de nutzen ! [Gehe davon aus das es TEXTe sind und das immer nur die Nummer drin steht, also nicht "Hermann 15" und das nächste "Sabine 16" ] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 06. Jul. 2006 12:25 <-- editieren / zitieren --> Unities abgeben: Nur für jeromechen
;Hier, das habe ich aus dem Lispforum zusammengestückelt: ;zum laden und nutzen von dem Klammernmist den User FAQ befragen. Code:
;----------------------------------------------------- ; ;Zeigt Liste mit doppelten Texten aus einem Auswahlsatz ; (defun DOUBLES? (LST / VAL RETVAL neuval) (foreach VAL lst (if (not(member VAL RETVAL)) (setq RETVAL (cons VAL RETVAL)) (if (not(member VAL neuval))(setq neuval(cons VAL neuval))) ) ) neuval ) (defun bau_txtvallist (asatz / n txtval) (setq n 0) (repeat (sslength asatz) (setq txtval(cons (cdr(assoc 1(entget(ssname asatz n)))) txtval) n (1+ n)) ) txtval )
(defun c:DOUBLETEXT () (doubles? (bau_txtvallist (ssget '((0 . "*TEXT"))))) ) ;-----------------------------------------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 06. Jul. 2006 12:36 <-- editieren / zitieren --> Unities abgeben: Nur für jeromechen
oder auch dieses hier mal probieren Code:
(defun c:dopp_text ( / tasatz tliste tliste_index anz i tp1 tp2 ) (setq tasatz (ssget '((0 . "TEXT")))) (setq anz (sslength tasatz)) (setq i 0 tliste nil) (while (< i anz) (setq tliste (cons (cdr (assoc 1 (entget (ssname tasatz i)))) tliste)) (setq i (1+ i)) ) (setq tliste_index (vl-sort-i tliste '< )) (setq i 0) (while (< i (1- anz)) (setq tp1 (nth i tliste_index) tp2 (nth (1+ i) tliste_index)) (if (= (nth tp1 tliste) (nth tp2 tliste)) (print (strcat "Wert " (nth tp1 tliste) " doppelt")) ) (setq i (1+ i)) ) (terpri) )
lg Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jeromechen Mitglied
Beiträge: 33 Registriert: 09.02.2006
|
erstellt am: 06. Jul. 2006 12:36 <-- editieren / zitieren --> Unities abgeben:
|
jeromechen Mitglied
Beiträge: 33 Registriert: 09.02.2006 Autocad CIVIL 3D 2020
|
erstellt am: 06. Jul. 2006 13:20 <-- editieren / zitieren --> Unities abgeben:
|
Carsten1210 Mitglied staatl. geprüfter Holztechniker
Beiträge: 1358 Registriert: 24.07.2002
|
erstellt am: 06. Jul. 2006 13:30 <-- editieren / zitieren --> Unities abgeben: Nur für jeromechen
|
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 06. Jul. 2006 13:33 <-- editieren / zitieren --> Unities abgeben: Nur für jeromechen
|
jeromechen Mitglied
Beiträge: 33 Registriert: 09.02.2006
|
erstellt am: 06. Jul. 2006 13:59 <-- editieren / zitieren --> Unities abgeben:
ah so danke nun hats geklapt das von dir spider_dd geht irgend wie nicht richtig :/ laed alles aber kann weder linien noch texte auswaehlen. trotzdem danke das von cadffm funzt hingen und das freut mich vielen dank fuer die mühe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jeromechen Mitglied
Beiträge: 33 Registriert: 09.02.2006 Autocad CIVIL 3D 2020
|
erstellt am: 06. Jul. 2006 14:17 <-- editieren / zitieren --> Unities abgeben:
urg Befehl: DOUBLETEXT Objekte wählen: Entgegengesetzte Ecke angeben: 56236 gefunden und 126 wurden angezeigt supi ein fehler quote von 0.2% naja hab ja auch alle von hand nummeriert und plaziert Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 06. Jul. 2006 14:40 <-- editieren / zitieren --> Unities abgeben: Nur für jeromechen
Hallo Jeromechen Zitat: das von dir spider_dd geht irgend wie nicht richtig :/ laed alles aber kann weder linien noch texte auswaehlen
Deine Zahlen sind M-Texte, bei mir werden nur Texte ausgewählt. Ändere mal
Code:
(setq tasatz (ssget '((0 . "TEXT"))))in (setq tasatz (ssget '((0 . "*TEXT"))))
dann geht's auch lg Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jeromechen Mitglied
Beiträge: 33 Registriert: 09.02.2006
|
erstellt am: 06. Jul. 2006 15:51 <-- editieren / zitieren --> Unities abgeben:
|