---

Hallo Lispler!

Ich habe mir aus dem Rund um AutoCAD-Forum ein Tool zum automatischen nummerieren geholt.

Nun klappt das auch ganz prima, allerdings landen die Zahlen auf dem falschen Layer. An welcher Stelle kann ich das hier drin wie ändern? Und wo gibt es eine Übersetzungstabelle für diese "Gruppencodes" (heißen die so?)?

Hier ist das Programm:

Code:

---

(defun c:nummerieren (/ nr ipt ant)
  (setq nr (if (setq ant(getint "\nStartnummer <0>"))
    (1- ant)
    0
    )
)

(while (setq ipt (getpoint (strcat "\nEinfügepunkt: " (itoa (setq nr (+ 1 nr))) ":")))
    (entmake(list     
      '(0 . "TEXT")
      '(100 . "AcDbEntity")
      '(67 . 0)
      '(410 . "Model")
      (cons 8  (getvar "CLAYER"))
      '(100 . "AcDbText")
      (cons 10 ipt)
      '(40 . 3.5)
      (cons 1 (itoa nr))
      '(50 . 0.0)
      '(41 . 1.0)
      '(51 . 0.0)
      '(7 . "STANDARD")
      '(71 . 0)
      '(72 . 0)
      (cons 11 ipt)
      '(210 0.0 0.0 1.0)
      '(100 . "AcDbText")
      '(73 . 0)
      )
    )
    )
  (princ)
  )

---

Vielen Dank 

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

---

@Rabbit: Tut mir leid, ich such jetzt seit einer Stunde nach so einer Übersetzungstabelle in der Lisp-Hilfe, kann aber leider keine finden.

Ich möchte nämlich die Nummerierung nich auf irgendeinen neuen Layer schreiben, sondern auf den in Mechanical dafür vorgesehenen Text-Layer AM_6. Der heißt nur nicht immer AM_6, denn es gibt ja auch noch die Layergruppen, die sich dem Namen voranstellen.
Möchte man eine Schraffur "richtig" einsortieren, so ruft man (glaube ich) "hatc" auf. Für den Layer 0 entsprechend "con1". Wie macht man das mit dem Text für den Text-Layer?

Trotzdem schönen Feierabend allerseits... 

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

---

Lass die Zeile mit (getvar "clayer") und füge vor dem Entmake einfach ein

Code:

---

(command "-amlayer" "_O" "HATC")

---

hinzu, das wechselt mit der Mechanical Funktionalität jeweils auf den gewünschten Layer und unterstützt auch Layergruppen.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Textlayer sind auch über den Objektschlüssel zu setzen

TXT1,TXT2 und TXT3
(command "-amlayer" "_O" "TXT3")

------------------
Mit freundlichem Gruß

Udo Hübner

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