---

Hallo

Ich würde gern folgende lisp erweitern und zwar
das man die Text größe wählen kann.
Weis aber nicht wie. Also die Abfrage schaf ich noch aber
wo ist die Variable für die Textgröße? 

Code:

---

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

---

Danke

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

---

Moin,
'(40 . 2.5)

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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

---

Danke hat geklapt.

Hier mein Code:

Code:

---

(defun c:nummer (/ nr th ipt ant)

  (setq nr (getint "\nStartnummer:"))
   (if nr
      ()
      (setq nr -1)
   )

(setq th (getreal "\nTexthöhe:"))
   (if th
      ()
     (setq th 10)
   )

  (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)
                      (cons 40 th)
                      (cons 1 (itoa nr))
                    '(50 . 0.0)
                    '(41 . 1.0)
                    '(51 . 0.0)
                     (cons 7 (getvar "TEXTSTYLE"))
                    '(71 . 0)
                    '(72 . 0)
                     (cons 11 ipt)
                    '(210 0.0 0.0 1.0)
                    '(100 . "AcDbText")
                      '(73 . 0)

                      )

                    )

    )

  (princ)

  )

---

[Diese Nachricht wurde von Jungspunt am 15. Jun. 2009 editiert.]

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

---

Hi

wie muss ich die lisp erweitern damit ich einen Vortext oder Nachtext hinzufühen kann?

bei
(cons 1 (itoa nr))

mit einer Abfrage wie bei der Startnummer.
(setq nr (getint "\nStartnummer:"))

Danke

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

---

(setq VORTEXT  (gestring "\nVORTEXT : "))
(setq NACHTEXT (gestring "\nNACHTEXT: "))
...
(cons 1 (strcat VORTEXT (itoa nr) NACHTEXT))
..

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

---

Danke geht super

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