---

Hallo habe hier eine LISP Datei gefunden,
die aber nicht richtig funktioniert.
werden immer nur Nullen geschrieben??

(Defun C:ZAHLEN ()
(START)
(prompt "\n\n\nDie aktuelle Texthöhe wird übernommen...")
(Setq A (Getint "\nStartnummer: "))
  (Setq E 1)
  (Setq I 0)
(Initget 1 "A")
(Setq P1T (Setq P1 (Getpoint"\nEinfuegepunkt oder Abbruch")))
  (While(/= P1T "A")
    (Setq F (Itoa A))
    (Command "Text" "z" P1 "" I F)
    (Setq A (+ A E))
    (Initget 1 "A")
    (Setq P1T (Setq P1 (Getpoint "\nEinfuegepunkt oder A für Abbruch")))
  )
(end)
(Princ)
)
(defun *error* (em)
(end)
(princ "\nAbbruch : ")
(princ em)
)
(defun end()
(if clay
    (progn
        (command "LAYER" "SE" clay "")
        (setvar "BLIPMODE" bmod)
        (setvar "CMDECHO" 1)
        (setvar "MENUECHO" mech)
        (setvar "OSMODE" mosm)
        (setvar "SNAPMODE" msna)
        (setvar "ORTHOMODE" mort)
      )
)
(princ)
)
(defun start()
(setq bmod (getvar "BLIPMODE")
      mosm (getvar "OSMODE")
      msna (getvar "SNAPMODE")
      mort (getvar "ORTHOMODE")
      clay (getvar "CLAYER")
      mech (getvar "MENUECHO")
)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(setvar "MENUECHO" 3)
(setvar "OSMODE" 0)
(setvar "SNAPMODE" 0)
(setvar "ORTHOMODE" 0)
(command "LAYER" "M" "Text" "Fa" "1" "" "")
)

kann mir vielleicht jemand helfen!

Vielleicht geht es auch das "1.1" oder "Pos.1" zur Auswahl steht
und der Text mit einer Ellipse eingekeist wird.

mfg besele

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

---

Hier ist mal einige Lisp mit dem Stichwort "balloon = Positionsnummer), welche auch noch z.T. eine Elippsen zeichnen (ungetestet) http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Simple-Balloon-Lisp-and-Ellipse/td-p/1234542
oder http://forums.augi.com/showthread.php?t=129254

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hab beide probiert funkt aber nicht
aber Danke nochmals

mfg besele

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

---

schreib dir doch ein Programm, das das über MLEADER und einen entsprechenden Block realisiert, wo ein Attribut hochgezählt wird ....  da ginge auch Ellipse und sowas wie 1.1 ...

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

---

Zitat:

---

Original erstellt von besele:
Hallo habe hier eine LISP Datei gefunden,
die aber nicht richtig funktioniert.
werden immer nur Nullen geschrieben??

---

nullen? bei mir geht es

Pos. oder 1. als Prefix -->

hinter der promt-Zeile
(Setq pre (Getstring "\nPrefix: ")) rein...

und die command-Zeile mit

(Command "Text" "z" P1 "" I (strcat pre F)) austauschen...

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Das Makro funktioniert bei besele evtl. nicht, da ein Textstil mit einer einer fest eingestellten Texthöhe (abweichend von 0.0) aktiv ist.
Dann hat der Befehl TEXT eine Option weniger in der Befehlsanfrage.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo
habe aber keine Ahnung wie das funktioniert.
aber trotzdem danke CADmium

[Diese Nachricht wurde von besele am 14. Sep. 2011 editiert.]

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

---

Zitat:

---

Original erstellt von besele:
Hallo
habe aber keine Ahnung wie das funktioniert.

---

Wie ? Das Programmieren ?

Oder der MLeader-Befehl ? Gibt doch einfach mal _mleader in der Befehlszeile ein .. dann o für Optionen und dann mal gucken, was möglich ist ....

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

---

Zitat:

---

Original erstellt von CADmium:

Wie ? Das Programmieren ?

---

Wie bringe ich meinen Block mit dem automatischen Zähler in die LISP
habe echt keine Ahnung

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

---

Zitat:

---

Original erstellt von besele:
Wie bringe ich meinen Block mit dem automatischen Zähler in die LISP
habe echt keine Ahnung

---

Nee .. is ok .. die Ausführungen wären mir dann etwas zu umfangreich ... sorry ... nimm die Lisps , so wie sie sind und sei zufrieden ... 

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
Das Makro funktioniert bei besele evtl. nicht, da ein Textstil mit einer einer fest eingestellten Texthöhe (abweichend von 0.0) aktiv ist.
Dann hat der Befehl TEXT eine Option weniger in der Befehlsanfrage.

---

Hallo wo muß ich das den ändern das es funkt.
Wäre mir sehr geholfen damit
mfg besele

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

---

Sorge dafür, dass Du keine feste Höhe hast oder nimm das "" aus der commandzeile raus.

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

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