---

Hallo ihr Lieben

Ich hätte eine Frage zu "Lisp in Lisp ausführen"

Ich habe eine kleine Lisp zusammen gestellt, welche den eingegeben Buchstabe markiert und diese in einem Block zusammenfasst:

(defun C:LeuBlo (/ str ss)
(setq str (getstring "\nBuchstabe: "))
(if (setq ss (ssget "_X" (list (cons 0 "*TEXT") (cons 1 str) (cons 410 (getvar 'ctab)))))
(sssetfirst nil ss)
)
(if (and (setq insertionpoint (list 0 0 0)))
(progn
(command "_.-Block" str insertionpoint ss "")
(command "_.-insert" str insertionpoint "" "" "")
)
(princ)
)
  (princ)
)

Jetzt würde ich gerne diese mit den Buchstaben A, B, C... Z, im Plan durchlaufen lassen, sprich so, dass alle selben Buchstaben in Blöcke zusammen gefasst werden.

(defun c:LeGr()
    (command (C:Leublo) "A")
    (command (C:Leublo) "B")
    (command (C:Leublo) "C")
(princ)
)

Jedoch funktioniert dies mit dem "command-Befehl" nicht so wie gewünscht. Könnte mir vielleicht jemand in diesem Problem weiterhelfen, den ich habe schon ziemlich alles ausprobiernt.

Gruss Emanuel

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

---

(defun LeuBlo (STRING / str ss)

(if(and(=(type STR)'STR)
          (setq ss (ssget "_X" (list (cons 0 "*TEXT") (cons 1 str) (cons 410 (getvar 'ctab))))))
(sssetfirst nil ss)
)
(if (and (setq insertionpoint (list 0 0 0)))
(progn
(command "_.-Block" str insertionpoint ss "")
(command "_.-insert" str insertionpoint "" "" "")
)
(princ)
)
  (princ)
)

(mapcar
  '(Lambda(X)(LeuBlo  X))
  '("A" "B" "C" "D" "E")
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Wow das ging schnell.
Funktioniert leider jedoch nicht ich bekomme: "VVC: Internal Error".
Ich finde den Fehler nicht, ich denke die Verweisung auf die mapcar ist fehlgeschlagen. Ich kenne den lambda-befehl nicht. =/

Lisp in Lisp funktioniert so nicht, wie ich das wollte, denke ich mal?

Vielen Dank für deine Hilfe, du hast mir schon sehr viel Arbeit bei der Arbeit abgenommen!!=D

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

---

ach ja ... command in mapcar geht nicht mehr ... muss command-s heißen

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

ach ja ... command in mapcar geht nicht mehr ... muss command-s heißen

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Ist das jetzt auf die Lisp/Lisp bezogen?

(defun c:LeGr()
    (command-s (C:Leublo) "A")
(princ)
)

Du hast kein command-Befehl in deiner mapcar.
Ich habe einige Variationen bei deiner Lisp ausprobiert, jedoch funktioniert keine davon. 

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

---

Hallöle,
alternativ zu MAPCAR (wenn COMMAND's beinhaltet sind) kann FOREACH verwendet werden:

(foreach X '("A" "B" "C" "D" "E")
    (LeuBlo  X))

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

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

---

Dann würde die fertige Lisp so aussehen (welche bei mir jedoch nicht funktioniert?):

(defun LeuBlo (STRING / str ss)
(if(and(=(type STR)'STR)
          (setq ss (ssget "_X" (list (cons 0 "*TEXT") (cons 1 str) (cons 410 (getvar 'ctab))))))
(sssetfirst nil ss)
)
(if (and (setq insertionpoint (list 0 0 0)))
(progn
(command "_.-Block" str insertionpoint ss "")
(command "_.-insert" str insertionpoint "" "" "")
)
(princ)
)
  (princ)
)

(mapcar
(foreach X '("A" "B" "C" "D" "E")
    (LeuBlo  X))
)

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

---

Hallo Emu,nur kurz vom Handy getippt: Nimm das MAPCAR weg und nur die Funktion FOREACH, dann klappt es bestimmt auch.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

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

---

Hi,

Zitat:

---

Original erstellt von CADmium:
(defun LeuBlo (STRING / str ss)

(if(and(=(type STR)'STR)
          (setq ss (ssget "_X" (list (cons 0 "*TEXT") (cons 1 str) (cons 410 (getvar 'ctab))))))
(sssetfirst nil ss)
)
(if (and (setq insertionpoint (list 0 0 0)))
(progn
(command "_.-Block" str insertionpoint ss "")
(command "_.-insert" str insertionpoint "" "" "")
)
(princ)
)
  (princ)
)

(mapcar
  '(Lambda(X)(LeuBlo  X))
  '("A" "B" "C" "D" "E")
)

---

Schaut Euch doch mal die Variablenübergabe an, dann sieht man sofort dass das nicht funktionieren kann da STRING nirgends ausgewertet wird

Code:

---

(defun LeuBlo (str / ss)

---

und schon passt es

Grüße
Klaus 

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

---

Zitat:

---

Original erstellt von Emu1989:
Ist das jetzt auf die Lisp/Lisp bezogen?

(defun c:LeGr()
    (command-s (C:Leublo) "A")
(princ)
)

Du hast kein command-Befehl in deiner mapcar.
Ich habe einige Variationen bei deiner Lisp ausprobiert, jedoch funktioniert keine davon.  

---

Der Command ist ja auch in Deiner Ursprungsfunktion:

Code:

---

(progn
(command "_.-Block" str insertionpoint ss "")
(command "_.-insert" str insertionpoint "" "" "")
)

---

Zu mapcar / lambda siehe hier

Grüße
Klaus 

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

---

Moin alle zusammen.
Super das String wars '=D.
Danke euch allen 1000mal für die super Hilfe, ihr seit echt die Besten.
Ich hoffe doch, dass ich auch mal helfen kann.

schöne Woche

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

---

Für die die es interessiert, wie mehrere lisp mit einer ausgeführt werden:

(defun c:serie ( / tag)
(setq tag "")
    (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "lispbefehl1\r\r" tag "\r"))
    (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "lispbefehl2\r\r" tag "\r"))
(princ)
)

Gruss Emanuel

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