---

Hallo Ich möchte für die Nummerierung von Blöcken, die höchste vorhandene Zahl eines Attributs in einen Layer ausfindig machen um dem Nächsten den Wert +1 zu geben. Das Attribut sieht folgendermassen aus. z.B. 11_22_1. Die letzte Zahl ist die Nummerierung und wird dann auch zweistellig.
Ich habe folgende Lisp geschrieben:
(defun c ap ()
  (Setq fläche (getstring "Bitte Fläche eingeben:"))
  (setq dn (getstring "Bitte Dok.Niv. eingeben:"))
  (setq pplayer (strcat "Passpunkte_DN_"dn))
    (command "layer" "_make" pplayer "")
  (command "-einfüge" "fundnummer" "0,0,0" "1" "1" "0" "")
  (setq pnr (sslength (ssget "_X" (list(cons 8  pplayer)))))
  (command "löschen" "l" "")
      (repeat 100
        (setq passpunkt (strcat fläche"_"dn"_"(itoa pnr)))
    (command "-Einfüge" "fundnummer" pause "1" "1" "0" passpunkt)
  (setq pnr (+ pnr 1))
   
  )
  )
Ich weiss das ist sicher ein Gebastel. Ich definiere den Wert anhand der Anzahl vorhandenen Elemente im Layer. Falls einer dieser Passpunkte gelöscht wird und es nicht der letzte ist funktioniert das leider nicht mehr. Kann mir jemand helfen wie ich den höchsten Wert herausfinde. Ich habe schon überlegt den Wert in eine txt zu schreiben. Da wir aber zum Teil auf einem NAS arbeiten und zum Teil dirket auf dem PC ist das auch ein bisschen schwierig

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

---

Willkommen bei CAD.de.
Prima, dass du dich an das Programmieren mit Lisp wagen willst.

Das Ermitteln der höchsten Zahl ist hier die einfachste Aufgabe.
Die Lisp Funktion (max 1 10 2 20 3) liefert 20
Aber zunächst sollen ja alle Blockreferenzen "fundnummer" auf dem Layer PPlayer gewählt werden.
(setq selSet (ssget "_X" (list (cons 2 "fundnummer") (cons 8  pplayer))))))
Dann benötigst du eine Funktion die alle gewünschten Attribute zu den gewählten Blockreferenzen extrahiert.
(setq Attributwerte (GetMyAttributes SelSet "MyAttname"))
Anschließend muss aus dieser Liste mit Textwerten noch jeweils alles bis zum 2. Unterstrich entfernt werden, bzw. bei konstanter Länge des Prefix einfach nur der Text ab dem 7. Zeichen behalten werden.
(setq Liste (mapcar '(lambda (val) (substr val 7)) Attributwerte))
Die Ergebnisliste mit Strings dann in Ganzzahlen umwandeln und die höchste Nummer ermitteln.
(setq maxNr (apply 'max (mapcar 'atoi liste)))

Das Aufwändigste ist also eine Funktion (GetMyAttributes  ....) zu programmieren.
Da kann ich dann die Seiten von Lee Mac empfehlen.
http://www.lee-mac.com/attributefunctions.html

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

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 08. Mai. 2021 editiert.]

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

---

Vielen Vielen Dank. Damit habe ich genug Ansätzte, dass ich es schaffen kann. Das Forum ist super und ich finde es schön, dass ihr auch so Anfängern wie mir auf die Sprünge helft. Schönes Wochenende.

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

---

Morgen,

ein andere nicht unbedigt passener Tip, weil ich davon ausgehe das du nicht nur die Nummer anschreibst sonder in dem Block noch andere Werte zu finden sind.

Wenn das nicht nur in ACAD abläuft dann schreib die Daten raus und fass sie mit Excel query zusammen dann hast du ne schöbe Liste zum Abgleich

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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