---

num.zip

Hallo Lispler
Kann mir einer das Programm so umschreiben das ich nicht den Standardtext verwenden muss sondern den text der Aktuell ist.
danke Heinz

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

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

---

Code:

---

(defun c:num (/ nr ipt ant th  prefix)
(setq LAY_OLD (getvar "CLAYER"))
(setq prefix (getstring "\nTextprefix: ")
        nr    (if (setq ant (getint "\nStartnummer <0>"))
                (1- ant)
                0
                ) ;_ end of if
        th    (getreal "\nTexthöhe:") ) ;hier fehlte eine Klammer

 
(princ "\nWählen sie ein Element für die Layerschaltung : ")
(setq AWS (ssget))
(setq AWS (ssname AWS 0)) 
(setq LAY_NEW (cdr (assoc 8 (entget AWS))))
(setvar "CLAYER" LAY_NEW)

  (while
    (setq
      ipt (getpoint
            (strcat "\nEinfügepunkt: " (itoa (setq nr (1+ nr))) ":")
            ) ;_ end of getpoint
      ) ;_ end of setq

    (entmake
      (list
        '(0 . "TEXT")
        '(100 . "AcDbEntity")
        '(67 . 0)
        '(410 . "Model")
        (cons 8 lay_new) ; hier stand eine falsche Variable
        '(100 . "AcDbText")
        (cons 10 ipt)
        (cons 40 th)
        (cons 1 (strcat prefix (itoa nr)))
        '(50 . 0.0)
        '(41 . 1.0)
        '(51 . 0.0)
        '(7 . "STANDARD")
        '(71 . 0)
        '(72 . 1)
        (cons 11 ipt)
        '(210 0.0 0.0 1.0)
        '(100 . "AcDbText")
        '(73 . 0)
        ) ;_ end of list
      ) ;_ end of entmake
    ) ;_ end of while

(setvar "CLAYER" LAY_OLD)
  )

---

Gruppencode 7 ist Textstill, en kannst du ändern mit
(Setq textstill (getvar "textstyle")) und dann '(7 . Textstill).

P.S. nicht getestet, nur so ein Quicki-Gedanke

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

---

Danke aber das ist Neuland für mich wo füge ich das ein
danke heinz

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

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

---

hier .....
'(50 . 0.0)
'(41 . 1.0)
'(51 . 0.0)
(cons 7  (getvar "textstyle"))
'(71 . 0)
'(72 . 1)
(cons 11 ipt)
...

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

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

---

Hallo CADmium erst mal Danke
aber ich bekomme folgende Fehlermeldung
Einfügepunkt: 1:; Fehler: Fehlerhafte DXF-Gruppe: (CONS 7 (GETVAR "textstyle")

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

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

---

Sieht ganz danach aus, als hättest du vergessen das ' zu entfernen, das die Ausführung von (cons..) verhindert.
Muß wirklich heißen :
...
'(51 . 0.0)
(cons 7  (getvar "textstyle"))
'(71 . 0)
....

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

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

---

Damke das wahrs 5 u sind dir sicher
heinz

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

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

---

Hallo Heinz,

hier findest Du mit Tool 15 eine Lösung die Dir noch gleich die Hilfslinien zeichnet.
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

---

HalloTheodor
Danke sind viele brauchbare Tools dabei
Danke Heinz

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

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