Linien selektieren (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

NVIDIA GTC Paris und ISC High Performance-Konferenz 2025, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Linien selektieren (1531 mal gelesen)

Madler
Mitglied
Technischer Zeichner

Senden Sie eine Private Message an Madler

Schreiben Sie einen Gästebucheintrag für Madler

Beiträge: 30
Registriert: 13.07.2011

AutoCAD 2010
Autodesk MEP 2012

erstellt am: 10. Jan. 2012 20:16

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

1.jpg

Hallo Forum,

hat jemand eine Idee, wie ich eine Linie die von rechts nach links gezeichnet wurde, von einer die von links nach rechts gezeichnet wurde, selektieren kann? Ziel ist es, alle Linien die auf dem "Kopf" stehen um 180 Grad zu drehen (siehe Bild).

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13530
Registriert: 30.11.2003

erstellt am: 10. Jan. 2012 22:23

<-- editieren / zitieren -->

Unities abgeben:

Nur für Madler

Mal was auf die Schnelle :

(defun c:REVERSELINES(/ AWS)
(if(setq AWS(ssget '((0 . "LINE"))))
(mapcar
'(lambda(X / OBJ DATA PKT1 PKT2)
(and (setq OBJ (cadr X))
(setq DATA(entget OBJ))
(setq PKT1(cdr(assoc 10 DATA)))
(setq PKT2(cdr(assoc 11 DATA)))
(< (car PKT2)(car PKT1))
(setq DATA (subst (cons 10 PKT2)(assoc 11 DATA) DATA))
(setq DATA (subst (cons 11 PKT1)(assoc 10 DATA) DATA))
(entmod DATA)
)
)
(ssnamex AWS)

)
)
)

------------------
- 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

CADchup
Ehrenmitglied V.I.P. h.c.

Senden Sie eine Private Message an CADchup

Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3338
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 10. Jan. 2012 22:44

<-- editieren / zitieren -->

Unities abgeben:

Nur für Madler

Hi,

anderer Vorschlag: Ab Version 2011 haben Linientypdefinitionen eine neue Steuerungsmöglichkeit, die enthaltene Texte immer korrekt anzeigt.

Vielleicht eine Alternative?

Gruß
CADchup

------------------
CADmaro.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten

Senden Sie eine Private Message an wronzky

Schreiben Sie einen Gästebucheintrag für wronzky

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 - 2014
Arcibem
System:
Windows 2000, XP, NO VISTA
Internet-Startseite:
http://www.archi.de

erstellt am: 10. Jan. 2012 23:50

<-- editieren / zitieren -->

Unities abgeben:

Nur für Madler

Hi,
noch ein anderer Vorschlag:
- Schnellauswahl - Linie - Winkel 180
- Befehl "UMDREH" - oder "_REVERSE"

(s.a. HIER)

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige:	Infos zum Werbeplatz >>
KeyTERRA-FIRMA CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen, GIS, Vermessung und Kartografie KeyTERRA-FIRMA Easy to use 3D Ground Modelling, Site Design, Land Survey and ZTV software. Your workflows will be optimized, saving you time and money.

Madler
Mitglied
Technischer Zeichner

Beiträge: 30
Registriert: 13.07.2011

AutoCAD 2010
Autodesk MEP 2012

erstellt am: 11. Jan. 2012 16:36

<-- editieren / zitieren -->

Unities abgeben:

Wie einfach es doch manchmal ist...

In diesem Fall auch mal ohne LISP zu lösen (Dank an "wronzky").

@CADmium
Vielen Dank für den schnellen Code. Werd ihn mal testen und für die Automatisierung weiterverwenden.

Gruß
Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

KeyTERRA-FIRMA CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen, GIS, Vermessung und Kartografie