|
AutoLisp : LSP als Funktion mit Eingangswerten?
wronzky am 12.07.2005 um 20:02 Uhr (0)
Zitat: Original erstellt von CADmium: einer als ACAD-Kommando definierten Funktion .. also mit (defun c:FUNCNAME(/).... können keine Parameter mitgegeben werden! Doch kann man, macht nur keinen Sinn! (defun c:test (a / ) (alert a)) (c:test Hallo! ) Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LSP als Funktion mit Eingangswerten?
wronzky am 12.07.2005 um 20:25 Uhr (0)
So, nun die ultimative Lösung: in die acad.lsp eintragen: Code: (setq za 1) (while ( za 100) (eval (read (strcat "(defun c:_O" (itoa za) " () (command "_offset" " (itoa za) " ))"))) (setq za (1+ za)) ) (den "_" nach c: rausnehmen!) definiert die Funktionen O1 O2...O99 Grüsse, Henning PS: wie kann man eigentlich verhindern dass c: gefolgt von "O" zu c wird? der haken Smilies in diesem Beitrag deaktivieren. funktioniert irgendwie nicht. ------------------ VoxelManufaktur Computer-Dienstlei ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : www.afralisp.com
wronzky am 13.07.2005 um 17:24 Uhr (0)
Hab da noch was im Cache vom Internet gefunden... Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LSP als Funktion mit Eingangswerten?
wronzky am 14.07.2005 um 11:53 Uhr (0)
@mapcar das mit dem errorhandler geht doch meines erachtens nicht, da ja kein Lisp-Fehler auftaucht, wenn Autocad meldet Unbekannter Befehl . Daher denke ich der variabelste Weg ist über den Reactor vlr-command-reactor:vlr-unknownCommand. etwa so: Code: (defun c:init-build-command () (vl-load-com) (if (not (reactor-is-active ((:vlr-unknownCommand . build-command)) :vlr-command-reactor)) (setq build-command-reactor (vlr-command-reactor my-new-command ((:vlr-unknownCommand . build-command))) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : DCL mit 2 Spalten
wronzky am 19.07.2005 um 11:19 Uhr (0)
so: Code: :row { :column {..} :column {..} :column {..} } Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de [Diese Nachricht wurde von wronzky am 19. Jul. 2005 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LSP als Funktion mit Eingangswerten?
wronzky am 19.07.2005 um 11:29 Uhr (0)
Nach dem Lob des Meisters war ich etwas beflügelt, und hab in einer freien Minute noch versucht weitere Befehle, die es nicht gibt mit dem Reactor abzufangen. Wie z.B. S[zahl] für _scale, M[zahl] für _move (in X-Richtung) und N[zahl] für _move (in Y-Richtung). Ich denke, mit dem code kann jetzt jeder weiterbasteln, bis es gar keinen unbekannten Befehl mehr gibt. Code: (defun c:init-build-command () (vl-load-com) (if (not (reactor-is-active ((:vlr-unknownCommand . build-command)) :vlr-command-re ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Attribut Listen
wronzky am 19.07.2005 um 12:39 Uhr (0)
Hallo Rabbit! Schau mal DA und bemüh mal die Suche! Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : text ausrichten in einer dialogbox
wronzky am 19.07.2005 um 13:01 Uhr (0)
Hallo Frank! in einer Listbox kannst Du die Tabelle mit dem Attribut tabs = [n1] [n2] [n3] [n4]... ; ([nx] sind zahlen: z. B. 8 16 32..) formatieren. natürlich muss dann dein Zeilentext auch tabs enthalten: Breite Länge Höhe Volumen Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Attribut Listen
wronzky am 19.07.2005 um 13:07 Uhr (0)
OOOOOOOOOOOps! ist tatsächlich schon der 19.?!? ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : text ausrichten in einer dialogbox
wronzky am 19.07.2005 um 17:27 Uhr (0)
Hallo Frank! Du gibst bei Tabs die absoluten Positionen an, also z.B. 8 16 24 32 erzeugt einen Tab alle 8 Zeichen! Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp oder AutocadVBA
wronzky am 19.07.2005 um 18:18 Uhr (0)
Zitat: Original erstellt von mapcar: Mehr gibt s da nicht mehr. Alles andere ist für Lisp gesperrt, und für VBA übrigens auch. @Axel: Also an die dynamischen Blockeigenschaften kommt man schon ran: Code: (defun c:tdb () (setq obj (vlax-ename- vla-object (car (entsel)))) (setq v (vla-getdynamicblockproperties obj)) (setq vval (vlax-variant-value v)) (setq sal (vlax-safearray- list vval)) (setq salnth (length sal)) (setq count 0) (while ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp und das internet
wronzky am 21.07.2005 um 14:31 Uhr (0)
Hallo Frank! Wie bist Du denn mit deinem Kolegen verbunden? Internet? VPN, DFÜ-Netzwerk? Auf Externe Dateien kannst Du von Lisp aus so zugreifen: Code: (defun get-remote-file (url / util local fehler) (setq util (vla-get-utility (vla-get-activedocument (vlax-get-acad-object)))) (setq local ) (setq fehler (vl-catch-all-apply vla-getremotefile (list util url local t))) (if (vl-catch-all-error-p fehler) (progn;fehler: Datei nicht da, kein Internet oder so... (prompt Ein Fehler ist aufg ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp und das internet
wronzky am 21.07.2005 um 15:05 Uhr (0)
Hallo Frank! für s hochladen kannst Du Code: (defun put-remote-file (url local / util fehler) (setq util (vla-get-utility (vla-get-activedocument (vlax-get-acad-object)))) (setq fehler (vl-catch-all-apply vla-putremotefile (list util url local))) (if (vl-catch-all-error-p fehler) (progn;fehler: Datei nicht da, kein Internet oder so... (prompt Ein Fehler ist aufgetreten!
Stellen Sie eine Internetverbindung her und versuchen Sie es erneut. ) (setq local nil) ) (setq local t) ...
|
| In das Form AutoLisp wechseln |
