---

Hallo Profis

Habe eine Frage
Hat jemand ein Lisp wo (3.OG/C/12)ich diesen Text mehrfachkopieren kann, und sich die letzte Zahl immer um eine erhöht 12, 13, 14 und soweiter.
Danke
bin selber zu dumm um so was zu schreiben

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

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

---

ich glaube bei mir auf der HP - Zahlen heißt das meines Erachtens

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Wenn der Hr. Wiesel es nicht hat, dann ist es auf Industrie24 als Zahlenspiel downloadbar.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

@cADWIESEL
DANKE ICH SCHAU MAL
HEINZ

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

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

---

Hallo Heinz,

du kannst auch diese Zeilen nutzen und nach belieben ändern.

Code:

---

(while (setq ipt (getpoint "\nEinfügepunkt:"))
  (command "_.TEXT" ipt "" ""(strcat "3.OG/C/" (VL-PRINC-TO-STRING(if i (setq i(1+ i)) (setq i 0)))) "")
  )

---

Grüße Holger
CAD on demand GmbH              AUGCE - Manager Deutschland

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

---

Danke euch für Antwort

nein gehen beide nicht für mich
will eine vorhanden Text (1.OG/A/14) mehrfach kopieren und dabei sol sich die letzte Zahl 14  um eim erhöhen,
Danke

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

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

---

@Briscke

Kann ich diese Zeilen einfach auf ein Makro legen, habe es versucht funkt nicht.
Befehl: (while (setq ipt (getpoint "
steht ihn der Befehlszeile
danke

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

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

---

Hallo Heinz,

Zeilenumbrüche darfst du auf der Schaltfläche natürlich nicht haben.

Grüße Holger
CAD on demand GmbH        AUGCE - Manager Deutschland

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

---

@Brischke
ja versteh bekomm es aber nicht zum laufen eine Zeilen umbruch im Markro mus ich so eingeben ;\+
danke

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

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

---

Probiers mal so:
(while (setq ipt (getpoint "Einfügepunkt:"))  (command "_.TEXT" ipt "" ""(strcat "3.OG/C/" (VL-PRINC-TO-STRING(if i (setq i(1+ i)) (setq i 0)))) ) )

(Falls Makrozeichen wie ^M; auftauchen, rausnehmen.)

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

---

@Hallo Flaschenpost
das Markro funkt so weiters aber nur auf einer leeren Zeichnung
sobald ich einen Plan auf mache und es starte geht es nicht, se geht schon aber ich seh keine text.
danke

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

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

---

Hallo Heinz,

das geht wunderbar mit dem Zahlenspiel von meiner Seite www.pc-ideal.de Mußt halt Präfix und Sufix eingeben !

Gruß, Jürgen

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

---

@Juergen55

Ja das keine ich verwende den Lisp e immer ist super.
aber ich will ja nur eine Text mehrfachkopieren der schon vorhanden ist und nur die letzte Nummer um 1 erhöhen das
danke

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

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

---

@FLASCHENPOST/HEINZ/HOLGER :

wenn im Textstil die Texthöhe 0 vorgegeben ist fragt _text noch nach der Höhe, sonst nicht, und das wird in den Makros/Lispfrags nicht berücksichtigt !

------------------
- 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

---

@Cadmium
Hallo ja das stimmt, wenn ich texthöhe auf 0 stell geht es,
funkt also mal danke an alle.
Das problem ist nur wen ich es wieder aufrufe. Nummeriert es mir weiter zb. höre bei 1.OG/A/24 auf will dan bei 2.OG/B/1 wieder anfangen das geht nicht.Es kommt 2.OG/B/25 raus
danke muss es anders angehn.

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

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

---

Hallo Heinz,

von Lisp hast du gar keine Ahnung? Willst du denn ein wenig lernen? oder suchst hier nur nach fertigen Lösungen?
Egal wie schau mal in die Zeile rein. Irgendwo steht dort ein (setq i 1) was aber nur gemacht wird, wenn das i noch gar nicht gesetzt wurde.
Schreibst du in die Befehlszeile (setq i 25) und startest dann das Programm, dann gehts mit 26 weiter.

Grüße Holger
CAD on demand GmbH            AUGCE - Manager Deutschland

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

---

@ Brischke
Danke will schon lernen nur wenig Zeit, und so leicht ist es auch nicht wie es für euch profis scheint
danke
ps versuch es erst immer selber das wird nie was

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

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

---

@ Brischke
hätte noch eine Frage trau mich schon nicht mehr :-)

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

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

---

Frag doch Heinz, wenn es nicht läuft, nützt es ja auch nichts ! 

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

---

@ Flaschenpost
Na dann, es wird mir die Zahl hochgezählt das geht super so.
Nun würde ich gern einen bestehenden Text (1.OG/A/1) mehrfachkopieren und dabei die zahl hochzählen lassen, Kopiere Text Mehrfach und aus 1.OG/A/1 wird dann 1.OG/A/2 und so weiter.Das heist Text weiterkopiern und dabei zählen.
hoffe es ist verständlich.

danke
aber gefagt habe ich

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

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

---

Sowas:
^C^C(setq atxt (cdr (assoc 1 (entget (car (entsel))))))(while (setq ipt (getpoint "Einfügepunkt:"))  (command "_.TEXT" ipt "" ""(strcat atxt (VL-PRINC-TO-STRING(if i (setq i(1+ i)) (setq i 0)))) ) )

(ist aber nicht grad komfortabel)

Edit: Die erste Variante setzt einen Text ohne Zahl voraus, und so wär es mit Zahl am Textende, Achtung geht aber nur bis 19 !

^C^C(setq atxt (cdr (assoc 1 (entget (car (entsel))))))(setq n 0)(while (setq ipt (getpoint "Einfügepunkt:"))(command "_.TEXT" ipt "" ""(strcat (substr atxt 1 (1- (strlen atxt)))(VL-PRINC-TO-STRING (+ (atoi (substr atxt (strlen atxt)1))(setq n(1+ n)))))))

[Diese Nachricht wurde von flaschenpost am 18. Feb. 2005 editiert.]

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

---

@Flaschenpost
Danke genau das, für mich ist das ok so geht schnell. Ist super wenn von Baustelle mal Pläne reinkommen, wo nur die Nummern geändert der Text aber passt.
danke noch mal u sind unterwegs

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

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