Anzahl Elemente in einer Pline (Autodesk/Lisp)

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

Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Anzahl Elemente in einer Pline (447 mal gelesen)

SHP
Mitglied
Konstrukteur

Schreiben Sie einen Gästebucheintrag für SHP

Beiträge: 1331
Registriert: 17.07.2003

Win2k
IV7-SP1
IV8
IV9

erstellt am: 27. Feb. 2006 12:02

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo,
und schon die nächste Frage.
Wie finde ich heraus wieviel Elemente in einer Polylinie sind?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

Das Saxregister

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: 13533
Registriert: 30.11.2003

erstellt am: 27. Feb. 2006 12:21

<-- editieren / zitieren -->

Unities abgeben:

Nur für SHP

bei einer LW-Polylinien sollte das funzen
(1-(length(vl-remove-if-not'(lambda(x) (=(car X)10))(entget(car (entsel))))))

------------------
- Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

SHP
Mitglied
Konstrukteur

Beiträge: 1331
Registriert: 17.07.2003

Win2k
IV7-SP1
IV8
IV9

erstellt am: 27. Feb. 2006 12:58

<-- editieren / zitieren -->

Unities abgeben:

Zitat:
Original erstellt von CADmium:
bei einer LW-Polylinien sollte das funzen
(1-(length(vl-remove-if-not'(lambda(x) (=(car X)10))(entget(car (entsel))))))

Habe jetzt noch folgendes.
Ich habe mit einem Command eine Polylinie erstellt und wie folgt den Elementnamen gespeichert.

(setq ele (entlast))

Nun bring ich es nicht hin, dieses "ele" im Code umzusetzen.

Geht das überhaupt?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

Das Saxregister

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

CADmium
Moderator
Maschinenbaukonstrukteur

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 27. Feb. 2006 13:00

<-- editieren / zitieren -->

Unities abgeben:

Nur für SHP

(car(entsel)) liefert das gewählte Element am Klickpunkt
(enlast) liefert das lezte erstellte element

..alles klar? Hoffe, du weißt jetzt, was du ersetzen mußt

------------------
- Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

SHP
Mitglied
Konstrukteur

Beiträge: 1331
Registriert: 17.07.2003

Win2k
IV7-SP1
IV8
IV9

erstellt am: 27. Feb. 2006 13:43

<-- editieren / zitieren -->

Unities abgeben:

Nö, weis ich nicht.

bei (car(entsel)) krieg ich <Entity name: 1970c08>
bei (entlast) krieg ich <Entity name: 1970c08>

Das ist mir nicht ganz klar.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

Das Saxregister

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung und AutoLISPler

Senden Sie eine Private Message an joern bosse

Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1781
Registriert: 11.10.2004

Window 11
ACAD 2021
CIVIL 2021
BricsCAD ab V14
11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz
32.0GB RAM
NVIDIA GeForce MX450<P>

erstellt am: 27. Feb. 2006 14:30

<-- editieren / zitieren -->

Unities abgeben:

Nur für SHP

Hallo Hans-Peter,
die Antwort hast Du Dir doch eben schon selbst gegeben,
Du mußt nur ele anstelle (car(entsel)) einsetzen, oder direkt (entlast)

(1-(length(vl-remove-if-not'(lambda(x) (=(car X)10))(entget ele))))
(1-(length(vl-remove-if-not'(lambda(x) (=(car X)10))(entget (entlast)))))

------------------
viele Grüße

Jörn

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

SHP
Mitglied
Konstrukteur

Beiträge: 1331
Registriert: 17.07.2003

Win2k
IV7-SP1
IV8
IV9

erstellt am: 28. Feb. 2006 10:36

<-- editieren / zitieren -->

Unities abgeben:

Hallo,
ich habs jetzt mal so probiert,

(setq ele (car(entsel)))
(1-(length(vl-remove-if-not'(lambda(x) (=(car X)10))(entget(ele)))))

bekomme aber einen Fehler.
; Fehler: Fehlerhafte Funktion: <Objektname: 7efa5520>

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

Das Saxregister

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung und AutoLISPler

Beiträge: 1781
Registriert: 11.10.2004

Window 11
ACAD 2021
CIVIL 2021
BricsCAD ab V14
11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz
32.0GB RAM
NVIDIA GeForce MX450<P>

erstellt am: 28. Feb. 2006 10:43

<-- editieren / zitieren -->

Unities abgeben:

Nur für SHP

Hallo Hans-Peter,
Du darfst das ele nicht in Klammern setzen, denn ele ist eine Variable und keine Funktion.

------------------
viele Grüße

Jörn

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

Anzeige:	Infos zum Werbeplatz >>
pitCAD Ultimate Basis - Einzelplatz CAD APP für TGA, Elektro, Facility Management Vereint die langjährige Erfahrung von pit-cup im Bereich der Gebäudetechnikplanung und des Facility Management zu einem durchgängigen 2D/3D CAD/BIM Planungswerkzeug, über den gesamten Lebenszyklus einer Immobilie.

SHP
Mitglied
Konstrukteur

Beiträge: 1331
Registriert: 17.07.2003

Win2k
IV7-SP1
IV8
IV9

erstellt am: 28. Feb. 2006 13:11

<-- editieren / zitieren -->

Unities abgeben:

Danke, das war's.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

Das Saxregister

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

pitCAD Ultimate Basis - Einzelplatz CAD APP für TGA, Elektro, Facility Management