| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Linien mit längen filtern (1097 mal gelesen)
|
tobias.kuehnlein
Mitglied
Techniker HLK
   Beiträge: 108
Registriert: 18.04.2006 Windows XP Pro 2002 SP2
Intel Xeon CPU 5130 @2.00GHz
2,00 GB RAM
AutoCAD Mechanical 2007 SP2
|
erstellt am: 14. Nov. 2007 15:23  <-- editieren / zitieren -->   Unities abgeben:          
Moinsen! Folgendes Problem / Aufgabenstellung: Ich muss verschiedene Linien auf einmal löschen. Die Linien haben 2 unterschiedliche Längen. Es gab hier schonmal nen Beitrag dazu, jedoch bringt mir der Befehl ssx nichts, hab ich schon probiert. Über die Schnellauswahl gehts, aber ist insgesamt bisserl zu umständlich und ich kann hier keine Einstellungen speichern. Mein Favorit wäre somit die Auswahl über die Filterfunktion, hier ist aber leider kein Eintrag Länge der Linie zu finden... Hoffe ihr könnt mir helfen. DANKE! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Entsorger01
Moderator
Techniker
    
Beiträge: 3263
Registriert: 07.07.2006 ACAD 2021
Acrobat Prof.
Creative Suite
WIN10
|
erstellt am: 14. Nov. 2007 15:27 <-- editieren / zitieren --> Unities abgeben: Nur für tobias.kuehnlein 
Edit: Hab in der Fragestellung was überlesen - Deshalb Beitrag gelöscht ------------------
Gruß Michi "Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen,
dass sie die Reibungshitze als Nestwärme empfinden." [Diese Nachricht wurde von Entsorger01 am 14. Nov. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tobias.kuehnlein
Mitglied
Techniker HLK
Beiträge: 108
Registriert: 18.04.2006 Windows XP Pro 2002 SP2
Intel Xeon CPU 5130 @2.00GHz
2,00 GB RAM
AutoCAD Mechanical 2007 SP2
|
erstellt am: 14. Nov. 2007 15:33 <-- editieren / zitieren --> Unities abgeben:
|
wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten
Beiträge: 2154
Registriert: 02.05.2005 CAD:
AutoCAD 2.6 bis 2014
ADT 2005 bis ACA 2013
Arcibem
System:
Windows
Internet-Startseite:
http://www.archi.de
|
erstellt am: 14. Nov. 2007 16:08 <-- editieren / zitieren --> Unities abgeben: Nur für tobias.kuehnlein
Hallo Tobias, ich hab' da einen Auszug aus einem Programm zum Säubern von vektorisierten Plänen für Dich. HTH. Code:
(defun c:get-by-length ( / lg as z ret ele eleeig)
(setq lg (getreal "Länge:") as (ssget "_X" (list (cons 0 "LINE"))) z -1 ret (ssadd))
(while (setq ele (ssname as (setq z (1+ z))))
(setq eleeig (entget ele))
(if (equal (distance (cdr (assoc 10 eleeig)) (cdr (assoc 11 eleeig))) lg 0.001) (ssadd ele ret))
)
(sssetfirst nil ret)
(prin1)
)
Grüsse, Henning------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure  http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tobias.kuehnlein
Mitglied
Techniker HLK
Beiträge: 108
Registriert: 18.04.2006 Windows XP Pro 2002 SP2
Intel Xeon CPU 5130 @2.00GHz
2,00 GB RAM
AutoCAD Mechanical 2007 SP2
|
erstellt am: 14. Nov. 2007 16:34 <-- editieren / zitieren --> Unities abgeben:
|
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: 14. Nov. 2007 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für tobias.kuehnlein
(defun c:get-by-length ( / lg as z ret ele eleeig) (if(and(setq L(car(entsel"\nLinie wählen:"))) (setq L(entget L)) (=(cdr(assoc 0 L))"LINE") (setq lg(distance (cdr(assoc 10 L))(cdr(assoc 11 L)))) (setq as (ssget "_X" (list (cons 0 "LINE")))) ) (progn (setq z -1 ret (ssadd)) (while (setq ele (ssname as (setq z (1+ z)))) (setq eleeig (entget ele)) (if (equal (distance (cdr (assoc 10 eleeig)) (cdr (assoc 11 eleeig))) lg 0.001) (ssadd ele ret)) ) (sssetfirst nil ret) ) ) (prin1) ) ------------------
 - 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 |
tobias.kuehnlein
Mitglied
Techniker HLK
Beiträge: 108
Registriert: 18.04.2006 Windows XP Pro 2002 SP2
Intel Xeon CPU 5130 @2.00GHz
2,00 GB RAM
AutoCAD Mechanical 2007 SP2
|
erstellt am: 14. Nov. 2007 16:49 <-- editieren / zitieren --> Unities abgeben:
Der Wahnsinn! Henning du bist ne Wucht! Nochmal 10 Unities... EDIT: Oops... wer lesen kann ist klar im Vorteil... Ich meint natürlich Cadmium...  Ist auch ne mehrfachauswahl möglich? Dat wär noch besser [Diese Nachricht wurde von tobias.kuehnlein am 14. Nov. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
