| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Zeichnungslinien suchen (240 mal gelesen)
|
muhammar CADaffi Mitglied Hochbauzeichner
Beiträge: 159 Registriert: 04.07.2003 OS: Windows 2k sp3 CAD: AutoCAD 2002 Applikation: Palladio X5 Plotter: HP DesignJet 1050C
|
erstellt am: 29. Jul. 2003 11:37 <-- editieren / zitieren --> Unities abgeben:
Aloah leute Gibt es eine möglichkeit in Autocad, eine zeichnung nach linien zu durchsuchen. d.h ich will sicherstellen, dass in meiner zeichnung keine Violetten linien mehr vorhanden sind. Kann ich diese irgendwie anzeigen lassen ? In der hilfe find ich irgendwie nix schlaues. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 29. Jul. 2003 11:40 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
|
muhammar CADaffi Mitglied Hochbauzeichner
Beiträge: 159 Registriert: 04.07.2003 OS: Windows 2k sp3 CAD: AutoCAD 2002 Applikation: Palladio X5 Plotter: HP DesignJet 1050C
|
erstellt am: 29. Jul. 2003 12:06 <-- editieren / zitieren --> Unities abgeben:
|
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 29. Jul. 2003 12:41 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
Um Linien auszufiltern kann man auch den Befehl Filter verwenden. Die in dem von CADwiesel gelinkten Beitrag dargestellten Möglichkeiten sind zwar sehr gut, der Befehl Filter ist aber flexibler für nicht-Lispler in der Anwendung ------------------ gruß Stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 29. Jul. 2003 12:44 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
Ich habe dir den Kot von Holger zusammengepackt und auf Magenta eingestellt. nimmst das was Zwischen ;;;------code beginn und ;;;----------code ende steht, machst eine *.txt datei auf (Notepad), kopierst das da rein, speicherst das im acad\support verzeichniss als z.b. Magentaweg.LSP ab. dann in Acad laden über _appload und in der Befehlszeile starten mit magentaweg magenta iss weg! ;;;------------code beginn (defun ssget:Farbe (farbe vLayer / at autom as) (if vlayer (setq at T autom (apply 'strcat (mapcar '(lambda (S) (if at (progn (setq at nil) S ) ;progn (strcat "," S) ) ;_ end of if ) ;_ end of lambda (apply 'append (mapcar '(lambda (L) (if (= (cdr L) farbe) (list (car L)) ) ;_ end of if ) ;_ end of lambda (f:get_eig (get_allnames_table "LAYERS") 'COLOR) ) ;_ end of mapcar ) ;_ end of apply ) ;_ end of mapcar ) ;_ end of apply as (ssget "_X" (list '(-4 . "<and") (cons 8 autom) (cons 62 256) '(-4 . "and>") ) ;_ end of list ) ;_ end of ssget ) ;_ end of setq (setq as (ssget "_X" (list (cons 62 farbe) ) ;_ end of list ) ;_ end of ssget ) ;_ end of setq ) ;_ end of if (if as (bau_elemli as) ) ;_ end of if ) ;_ end of defun (defun f:get_eig (li eig /) (mapcar '(lambda (L / prop) (cons (car L) (vlax-get-property (cdr L) eig)) ) ;_ end of lambda li ) ;_ end of mapcar ) ;_ end of defun (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli (cons (ssname asatz n) elemli) n (1+ n) ) ;_ end of setq ) ;_ end of repeat elemli ) ;_ end of defun (defun drawing () (vlax-get-property (vlax-get-acad-object) "ActiveDocument" ) ;_ end of vlax-get-property ) ;_ end of defun (defun get_count_table (table /) (vlax-get-property (vlax-get-property (drawing) table ) ;_ end of vlax-get-property 'count ) ;_ end of vlax-get-property ) ;_ end of defun (defun get_allnames_table (table / names z) (repeat (get_count_table table) (setq z (if z (1+ z) 0 ) ;_ end of if names (cons (cons (vlax-get-property (setq dimobjtmp (vlax-invoke-method (vlax-get-property (drawing) table ) ;_ end of vlax-get-property 'item z ) ;_ end of vlax-invoke-method ) ;_ end of setq 'name ) ;_ end of vlax-get-property dimobjtmp ) ;_ end of cons names ) ;_ end of cons ) ;_ end of setq ) ;_ end of repeat (if names (reverse names) ) ;_ end of if ) ;_ end of defun ;;;Löscht alle Elemente, die Weiß sind - also beides zusammen (defun c:magentaweg (/) (mapcar 'entdel (append (ssget:Farbe 6 T) (ssget:Farbe 6 nil) ) ;_ end of append ) ;_ end of mapcar ) ;_ end of defun ;;;----------code ende ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
muhammar CADaffi Mitglied Hochbauzeichner
Beiträge: 159 Registriert: 04.07.2003 OS: Windows 2k sp3 CAD: AutoCAD 2002 Applikation: Palladio X5 Plotter: HP DesignJet 1050C
|
erstellt am: 29. Jul. 2003 12:44 <-- editieren / zitieren --> Unities abgeben:
|
Peter Heuser Mitglied
Beiträge: 68 Registriert: 19.02.2002
|
erstellt am: 29. Jul. 2003 12:46 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 29. Jul. 2003 13:12 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
Hallo Peter das Lisp sucht dir alle Linien die Magenta sind und alle die VONLAYER (Magenta) sind - das kann der Filter nicht ! -Ob der Gute sowas tolles wollte ist allerdings auch fraglich... ------------------ Gruß Sebastian , Ffm Der Feind des Guten ist das Bessere. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 29. Jul. 2003 14:21 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
Hallo Sebastian, schon richtig, so speziell geht das mit Filter auf Knopfdruck nicht, aber wenn Du ausserdem auch noch alle blauen, gelben, grünen haben musst, musste den Lisp ewig umschreiben. Bei Filter kannste einfach halt die andere Farbe wählen. Wie schon oben gesagt: für nicht-Lispler ist Filter die bessere Wahl, für AutoCAD-Profis Lispeln (zumindest ansatzweise) ein "MUSS". ------------------ gruß Stephan 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: 29. Jul. 2003 14:40 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
das ist ja klar Stephan... Es wäre übrigens DER KNALLER wenn Adesk mal die Möglichkeiten vom Filter und Sauswahl UND DER SUCHE/ERSETZEN (_find) kombinieren würden ! - das würde glatt 10U´s von mir geben Beispiele: Sauswahl - Blocknamen zum wählen anbieten... Speichermöglichkeit Filter - nach Linienlänge suchen... Und für alle : (_find) - Attributwerte in Blöcken suchen... Mein bisheriges Fazit: Filter geht fast alles - "also besser" Sauswahl geht für einfache Abfragen komfortabler - also nutze ich sie (viel) häufiger
------------------ Gruß Sebastian , Ffm Der Feind des Guten ist das Bessere. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |