Anerkennung eines Polylins

[Angelo2449]

Hallo alle,
Ich möchte die Auswahl einer Polylinea überprüfen und das schrieb ich:

 (while (= ed1 nil)
(setq ed1 (entsel "\nseleziona la polilinea esterna : "))
;

(setq ed11 (entget))
(setq ed111 (cdr (assoc 0 ed11)))

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ ed111)
(princ "\n")

(oder (/= ed111 "lwpolyline") (/= ed111 "polyline"))
(Prog.)
(alert "non hai selezionato una polilinea!")
(vl-exit-with-error "uscita dal programma")
),
; falls

der Code nicht irrtümlich, erkennt die falsche Auswahl, macht mich nicht passieren"
Dies ist das Ergebnis:
wählen Sie die externe Polylinie :
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
Danke.

 

[Cristallo]

zuerst und 11 müssen Sie es nicht mit Entlast nehmen, sondern mit seinem Namen (Ende ist die letzte Einrichtung erstellt, nicht die letzte ausgewählt).
wie Sie tun, immer die letzte geschaffene Einheit abholen, die (vermutlich) eine Polylinie ist.

Zweitens Bildung oder Lwpline - Perlen gibt immer wieder wahr, weil auch wenn der Wert ist Lwpline es ist anders als Perlen.
das oder durch ein und das Management wird richtig. tatsächlich gibt die Bedingung nur dann wahr, wenn der Wert anders ist Pissin von lwpline die von pline. wenn stattdessen der Wert eine Lwpline oder eine Pline die Bedingung ist und nichts herausstellt und daher nicht die Alrt aktiviert.

(setq ed1 nil ed11 nil ed111 nil)
(while (= ed1 nil)
(setq ed1 (entsel "\nseleziona la polilinea esterna : "))
;

(setq ed11 (entget)
(setq ed111 (cdr (assoc 0 ed11)))

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ ed111)
(princ "\n")

(falls (und (/= ed111 "lwpolyline")(/= ed111 "polyline"))
(Prog.)
(alert "non hai selezionato una polilinea!")
(vl-exit-with-error "uscita dal programma")
),
; falls

 

[Angelo2449]

Perfekt!
Danke Kristall.

 

[Angelo2449]

Crystal, ich habe noch eine Frage,
ein Polylinear mit

 (Befehl "_pline" spigextsinup spigextdesup spigextdesdown spigextsindown spigextsinup "")
(setq pl1 (entlast))

später mit diesem anderen Code:

 (falls) (tof highambientedes) (tof highambientesin)
(Progn)
(Befehl "_extend" pl1 "" murasinsopra "")
(princ)
;
;

Ich möchte Wändeinsopra (vorbereitete Linie) bis zu > pl1 < erweitern, dies verursacht Fehler, erleuchten mich, danke.
Angel.

 

[Cristallo]

Wenn ich mich gut erinnere, kannst du dich nicht mit dem Ext-Befehl ausdehnen, weil er nach einem Video-Pick fragt, den du nicht passieren kannst.
Sie müssen den Schnittpunkt geometrisch finden (ich glaube, die lisp-Funktion ist inters) und dann auf den gefundenen Punkt zeigen.

 

[Angelo2449]

Daher sollte ich zunächst eine provisorische Linie zu > pl1 < zeichnen, die Kreuzung durch den Zwischenbefehl finden, möglicherweise die provisorische Linie abbrechen und eine neue bis zum gefundenen Punkt verfolgen.
Hier ist es gut, aber ich sollte auch eine Zeile im Vergleich zu > pl1 <, Ich hoffe, der Befehl "_breack" Fictions!
Danke.

 

[Cristallo]

Blick auf die Syntax der Inters-Funktion
keine Notwendigkeit für die Linie, nur die Punkte, die sie definieren. und Sie können auch nach einer Fortsetzung Kreuzung suchen (Flag onseg). überprüfen Sie die Hilfe.