|
Lisp : Lisp in Lisp
Emu1989 am 28.06.2019 um 13:13 Uhr (1)
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" tag "
")) (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "lispbefehl2" tag "
"))(princ))Gruss Emanuel
|
| In das Form Lisp wechseln |
|
Lisp : Mehrere Layer markieren & kopieren
Emu1989 am 16.12.2019 um 12:22 Uhr (1)
Guten Tag alleDa es nicht möglich ist im Layermanager die Layernamen zu markieren und eine dementsprechende Auswahl auf dem Modell zu übertragen, versuche ich dies mit einer lisp zu lösen.Ich habe hier eine lisp zusammen gebastelt, welche jedoch nur funktioniert, wenn man einen Layer auf der Zeichnung auswählt:(defun c:LAW ()(setq auswahl (ssget))(repeat (setq N (sslength auswahl))(setq TargAus (ssname auswahl (setq N (- N 1)))) (setq TargLay (assoc 8 (entget TargAus))) (sssetfirst nil (ssget "_X" (list Ta ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahl der Abruf-Aktionsänderung automatisieren in Bezug auf Blockdrehung
Emu1989 am 12.11.2015 um 13:24 Uhr (1)
Problem:Ich richte den Text immer nach links oder nach unten aus, diese Schritte führ ich momentan manuell durch. Doch ist dies ziemlich Zeit intensiv, daher wollte ich dies automatisieren, was mir nicht gelingen will. Der Block wird von mir aus der Werkzeugpalette eingefügt und während dessen ausgerichtet. Ich würde gerne den Block mit einer Abhängigkeit versehen, so dass wenn ich den Block um 180° drehe, dass sich die Option Drehung aktiviert und den Text kehrt.Ich hoffe meine Problem / Frage ist verstän ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp in Lisp
Emu1989 am 09.02.2018 um 13:39 Uhr (1)
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
|
| In das Form Lisp wechseln |
|
Lisp : Lisp in Lisp
Emu1989 am 09.02.2018 um 15:07 Uhr (1)
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.
|
| In das Form Lisp wechseln |
|
Lisp : Markieren mit vla-get-...
Emu1989 am 03.12.2018 um 18:10 Uhr (1)
TagchenHabe eine Lisp gefunden, in welcher ich die Blöcke sperren und wieder freigeben kann. Die ist ganz gut und würde mir auch viel Zeit ersparen, allerdings sperrt sie mir die Blöcke im ganzen Dokument.(vl-load-com) (princ) (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (if (and (= :vlax-false (vla-get-islayout blk)) (= :vlax-false (vla-get-isxref blk)) ) (vla-put-explodable blk :vlax-false) ) ) (princ))Die Auswahlfunktion mit setq ... (car (ent ...
|
| In das Form Lisp wechseln |
