---

Hallo zusammen,

ich habe diese Lsp-Datei für Nummerierung.
Mit einer Sprüngen ich würde aber gerne zweier Sprünge haben.
Wenn ich an der Stelle 1+ 2+ schreibe gibtŽs bei mir eine Fehlermeldung.In welcher Zeile muß ich was ändern.
Wenn ich nummeriere liegt der Text auf Layer0 wie bekomme ich ihn auf den aktuellen Layer?
Wer kann mir behilflich sein.
Danke im voraus.
Kerstin

<pre>
(defun c:number (/ 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")
      '(8 . "0")
      '(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)
  )
</pre>

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

---

(while (setq ipt (getpoint (strcat "\nEinfügepunkt: " (itoa (setq nr (+ 2 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)
  )

(ungetestet)

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

hallo,

füge hinter in die nächst zeile

  (while (setq ipt (getpoint (strcat "\nEinfügepunkt: " (itoa (setq nr (1+ nr))) ":")))
    (entmake(list

folgendes ein

'(2 . "LAYERNAME")

bei LAYERNAME musst du deinen gewünschten eingeben.

viele grüsse aus berlin.

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

---

Hallo CADmium,

das mit +2 funktioniert leider nicht.; Fehler: Fehlerhafte Funktion: 2
meldet er.
Aber das mit den aktuellen Layer geht.Super.
Eine Sache hatte ich vorhin vorgessen und zwar wenn ich 0100 eine Nummer haben will schreibt er mir nicht die 0 vorweg sondern 100.
Geht das überhaupt mit der 0 vorweg?.

Kerstin

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

---

tschuldigung,

da hatte ich wohl was falsch geschrieben. der gruppencode für layer ist 8.

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

---

und der aktuelle Layer ist nicht "LAYERNAME" sondern (getvar "clayer")
weiter:

CADmium hat geschrieben (+ 2 nr) und nicht wie du getestet hast : (+2 nr)
/falls ich mit der Annahme richtig liege/

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

---

Hallo cadffm,

hast recht.Mein Fehler waren die Freistellen.
Vielen Dank.
Es funktioniert jetzt.

Kerstin

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

---

Hallo.
Eintolles Lisp. Kann es nicht globaler geschrieben werden.
Mein Vorschlag.
-Texte auf aktuellen Layer mit eingestelltem Textstil
-Wählen ob Numerisch oder alphabetisch
-dann Schrittweite bestimmen z.B. 1 oder 2 oder 3 , wenn möglich  sogar einen Text voranstellen, A1  A2 A3  etc. ober Hans Ende 1A 2A,
- Startpunkt wenn man mittendrin anfängt z.B. bei A12 oder 12A,und

und wenn noch einer eine Idee hat bitte ergänzen.

Vielleicht hat ja jemand so etwas schon geschrieben.

Gruß Carsten

------------------
Vielen Dank für jeden Hinweis.
Carsten

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

---

wegen solcher Funktionen etc. :

schonmal jmd google bemüht ?
schonmal jmd Forumsuchfunktionen bemüht ?

je nach Einsatzzweck (als Beispiel mal genannt) TCOUNT aus den ExpressTools ..

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

---

Hallo. Gibt es die Funktion in AC 2000 ?

------------------
Vielen Dank für jeden Hinweis.
Carsten

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

---

Zitat:

---

Original erstellt von Kodat:
Hallo. Gibt es die Funktion in AC 2000 ?

---

welche Funktion ?
Diese TCOUNT?
hat cadffm doch gepostet. In den Expresstools
Waren/sind in AC 2000 vorhanden.

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

---

Also bei mir finde ich sie nicht !!

------------------
Vielen Dank für jeden Hinweis.
Carsten

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

---

Hallo cadffm,

das tcount würd mich auch interessieren.
Leider habe ich das gleiche Problem wie Kodat.Ich finde das nicht.
Ich habe ACad2002.Bei cadwiesel habe ich im Express2004 geguckt
darin gibt es eine acettxt.lsp hat die da was mit zutun?
Kann ich die lsp bei mir einfach loaden?

Kerstin

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

---

Moi,,

so wie ich gesehen habe ist in genau dieser Lisp der Befehl programmiert.
Versuche es doch einfach mit dem Laden der Lisp:-)
Versuch macht kluch

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

---

Hallo.
Das funktioniert nicht.

Ich hab aber was gefunden das glaube ich das Problem löst.

Mal ausprobieren.
Der Link hier mi Forum sogar http://ww3.cad.de/foren/ubb/Forum54/HTML/001902.shtml

Ich hoffe es klappt.

Carsten

------------------
Vielen Dank für jeden Hinweis.
Carsten

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

---

ich sehe denn fehler nicht, kann mir jemand helfen?

(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 (+ 2 nr))) ":")))
    (entmake(list
      '(8 . (getvar "clayer"))
      '(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)
  )

------------------
[AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.]

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

---

ein Fehler ist die fehlende Klammer vor dem while (es steckt aber noch einer drin, war jetzt zu faul zum Suchen deshalb:

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 (+ 2 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)
  )

---

------------------
Grüsse

Thomas

PS: doch noch gefunden; vor dem (princ) am Ende fehlt noch eine

[Diese Nachricht wurde von tunnelbauer am 09. Dez. 2004 editiert.]

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

---

Tcount ist ein Befehl von den Expresstools
glaub Bei cadwiesel kann man sich die Installationsdatei runterladen sowie auch die deutsch Übersetzung.
Einfach datei runterladen Installation ausführen fertig.
Habe es mehrmals pro Tag in Verwendung.

------------------
mfg
FeR
"gefundene Rechtschreibfehler dürfen behalten werden."

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

---

@Kodat
Schau mal auf diese Seite das Lisp heist Zahlenspiel kann so was ist Toll http://www.pc-ideal.de/
gruss Heinz

------------------
Heinz 

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