---

Zeichnung1.zip

Hallo,
stehe irgendwie heute Morgen auf dem Schlauch, warum erhalte ich (ac 2009)
keinen Auswahlsatz hiermit

Code:

---

(ssget "X" (list(assoc 8 (entget (car (entsel))))))

---

wenn im Layer als Bezeichnung ein Doppelkreuz(#) steht.
Haben mal meine Test-DWG als ZIP angehangen. In der Hoffnung dass das noch jemand nachvollziehen kann
oder einen Tipp hat.  

[Diese Nachricht wurde von Meldin am 30. Jul. 2011 editiert.]

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

---

hallo meldin,
schau mal in der hilfe unter "Erstellen und Benennen von Layern":

Geben Sie einen neuen Layernamen ein, indem Sie den markierten Layernamen überschreiben.
Layernamen können bis zu 255 Zeichen umfassen, darunter Buchstaben, Ziffern und die Sonderzeichen Dollar ($), Bindestrich (-) und Unterstrich (_). Setzen Sie vor andere Sonderzeichen ein umgekehrtes Anführungszeichen (`), damit die Zeichen nicht als Platzhalter interpretiert werden. Layernamen dürfen keine Leerzeichen enthalten.
(aus acad 2007 hilfe)

fuer einmaliges auftreten von # im layernamen folgendes:

Code:

---

(setq ed (entget (car (entsel)))
      lay (vl-string-subst "`#" "#" "Layer#Name")
      ss (ssget "_X" (list (cons 8 lay))))

---

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

schau dir die Hilfe zu WCMATCH bzw. Wildcards an, darin ist das Lattenkreuz
erklärt (nummerisches Zeichen) und damit erklärt sich auch das Verhalten von Acad in deinem konkreten Fall.

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

So,
dann sollte das hier des Rätsels Lösung sein?
Also für alle denen es auch helfen könnte oder Anreiz zur Kritik bietet. :-)

Code:

---

(defun StringFormat (AString / Sonderz AString NString teil)
  (setq Sonderz(vl-string->list "@#["))
  (foreach teil (vl-string->list AString)
    (if (member teil Sonderz)
      (setq NString (cons teil (cons 96 NString)))
      (setq NString (cons teil NString))
    )
  )
  (setq NString (vl-list->string (reverse NString)))
)

(ssget "X" (list(cons 8 (StringFormat(cdr(assoc 8 (entget (car (entsel)))))))))

---

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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