---

Hallo

Da habe ich wider eine Frage. Am besten mache ich ein Beispiel dazu.

Mit :
(setq layername "VGHK")
(setq auswahl  (ssget "X" (list (cons 8 layername))))
(setq Elementenzahl (sslength auswahl))

Suche ich alle Elemente die auf den Layer  VGHK liegen und dann habe ich auch die Zahl der Elemente.

Jetzt kommt das erste Problem beim auslesen von Elementnamen wie kann ich das am besten machen mit einer cond schleife ist das sehr unprofessionell, vor allem wenn ich ca. 25 Elemente habe. 
(cond
(( = Elementzah l)
(setq top1  (ssname auswahl 0)))

(( = Elementzah 2)
(setq top1 (list (ssname auswahl 0))))
usw.

Dann will ich den Elementen die ich gefunden haben ein neues Layer zuweisen mit:

(vl-load-com)
(cons
(vlax-curve-getendpoint (vlax-ename->vla-object ENAME))
(vlax-curve-getstartpoint (vlax-ename->vla-object ENAME))
)
)

(tblobjname "LAYER" "Profil")
(entmod(subst (cons 8 "ProfiL")(assoc 8 (entget top1)) (entget top1)))

Das ist auch problematisch weil, wenn die Variable top1 eine liste ist dann funktioniert die letzte Zeile natürlich auch nicht.

Wie kann ich die zwei Problemchen professionell lösen.
Ich hoffe es kann mir jemand die Augen öffnen, weil das kann doch nicht so schwer sein.

Gruß
RoyCAD

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

---

Hallo RoyCAD,

schau dir mal diesen Beitrag an. Daraus solltest du erkennen, wie man die Funktionen aufbauen könnte.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

---

Danke Holger genau das habe ich gebraucht.

Gruß
Roy

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