---

num.zip

Hallo an alle Profis
Habe eine Freage habe ein Lisp wo ich vorlaufende Nummern einfügen kann lauft ganz Toll, ich will aber beim weiterkoperen sehn wie gross der Text ist damit ich weis wohin ich den Text setzen muss
Danke Heinz

------------------

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

---

Hallo Heinz,

mit diesem Tool wird nichts kopiert, nur erzeugt. Deshalb ist es auch nicht möglich das Objekt vorher anzuzeigen (oder nur mit großem Aufwand).

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

ok danke wahr mir klar das das schwierig ist
kann man dein einfügepunkt variable machen das ich mir dein aussuche wie ich dein text einfüge z.b. links rechts mitte
danke heinz

------------------

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

---

Hallo Heinz,

klar kann man das machen, aber wie du selber schon festgestellt hast, ist das etwas schwieriger und zeitaufwendiger.
Die Logic aus CADmiums Beitrag müsstest du dann einarbeiten.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Danke aber dazu keine ich mich zu wenig aus
Danke für Antwort.
mfg Heinz

------------------

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

---

Hallo Heinz,

hast Du Tool 15 von der folgenden Seite schon probiert?
http://www.lehrer.uni-karlsruhe.de/~za685/cad/cadtools.htm

Gruß
Theodor Schönwald

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

---

Danke ist aber doch nicht ganz so wie das meine aber danke die anderen Lisp sind super
mfg Heinz

------------------

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

---

Hallo Heinz,

füge in deiner While-Scheife mal folgende 4 Zeilen ein :
...
;_ end of setq

(command "_TEXT" "Position" "Zentrieren" ipt th 0 (strcat prefix (itoa nr)) "")
(command "_MOVE" "_LAST" "" ipt pause)
(setq ipt (getvar "LASTPOINT"))
(command "_ERASE" "_LAST" "")

(entmake
...

Trifft das deine Vorstellungen?

Schöne Grüße
Helmut

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

---

Ich würde mit (entmake ... )einen Block mit dem entsprechenden Text erstellen und dann geursprungt einfügen. Wäre optisch eleganter als einen Text zu erstellen und zu verschieben.

(PROGN (command "_insert" blockname pause "" "" "")(command "_Explode" "_L"))

------------------
Gruß aus Wien
Bernhard 

[Diese Nachricht wurde von Bernhard GSD am 07. Mai. 2004 editiert.]

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

---

Mir ist noch was aufgefallen :

Wenn du deine 5 Zeilen zur Layerfestlegung erstzt durch die Zeile :

(setq lay_new (cdr (assoc 8 (entget (car (entsel "\nWählen sie ein Element für die Layerschaltung : "))))))

sparst du
1.) einmal ein ENTER
2.) das Umschalten und Zurücksetzen des Layers

Helmut

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

---

Danke an alle bin Lisp anfänger und weis nicht so recht wo ich was einfügen muss
danke Heinz

------------------

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

---

Zitat:

---

Original erstellt von Bernhard GSD:
Ich würde mit (entmake ... )einen Block mit dem entsprechenden Text erstellen und dann geursprungt einfügen. Wäre optisch eleganter als einen Text zu erstellen und zu verschieben.

(PROGN (command "_insert" blockname pause "" "" "")(command "_Explode" "_L"))

---

Und warum nicht gleich :
(command "_insert" (strcat "*" blockname) pause "" "" "")  ?

Zitat Hilfe :
Einfügen von aufgelösten Blöcken: Wenn Sie ein Sternchen (*) zu Beginn des Blocknamens eingeben, wird der Block aufgelöst, und die einzelnen Teile des Blocks werden eingefügt. In diesem Fall wird die Blockdefinition nicht zur Zeichnung hinzugefügt...

------------------
- Thomas -

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

---

Hallo Helmut dasist nicht schlecht aber der Text reagiert bissi komisch ist das nicht so von wo ich weg zeichne fängt der Text an springt bissi willt umher möchte ihn genauer setzten können sonst super 5 u sind dir sicher

------------------

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