| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Gaudi-Lisp (4316 mal gelesen)
|
Entsorger01 Ehrenmitglied V.I.P. h.c. Techniker
Beiträge: 3310 Registriert: 07.07.2006 ACAD 2006 ACAD 2008 - SP1 VPstudio (Raster) Acrobat 7.0 Prof. Acrobat Distiller Photoshop CS2 Nvidia Quadro FX1400 Win 2000 Prof.
|
erstellt am: 19. Jun. 2008 08:06 <-- editieren / zitieren --> Unities abgeben:
Hallo Lisp-Gemeinde, ich habe kein (Lisp-) Problem im herkömmlichen Sinn. Vielmehr bin ich auf der Suche nach - ich nenn's mal - Gaudilisps. Sowas wie die xmastree.lsp, die hier immer um die Weihnachtszeit zu finden ist. Vielleicht haben ja einige hier ähnliches in ihren Archiven und stellen mir diese netterweise zur Verfügung. Kurz zur Erklärung: Ich würde gerne mit ein oder zwei dieser Progrämmchen meine Anwender hier auf AutoLISP aufmerksam machen. Die meisten haben davon noch nie was gehört, geschweige denn wenden diese hilfreichen Tools an. Und um die ersten Lispschritte (laden und aufrufen selbiger) nicht gar so trocken zu gestalten, wären eben solche "Spielereien" ideal. Danke schon mal im Voraus ------------------ Gruß Michi "Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen, dass sie die Reibungshitze als Nestwärme empfinden." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 19. Jun. 2008 08:24 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Na geometrische Spielereien gibts einige : z.B. (defun c:acf (/ dia loc rad cnt ang clr lay nlay endp startp ss ssl cn ssn) (command "_.zoom" "_v") (command "_.ucsicon" "_off") (setq dia 1) (setq loc '(0 0 0)) (setq rad (/ dia 2.0)) (setq cnt 0) (setq ang 0) (setq clr 1) (setq lay "Automatic_Create_Fan_") (repeat 5 (setq nlay (strcat lay (itoa clr))) (if (not (tblsearch "layer" nlay)) (command "_.layer" "_m" nlay "_c" (itoa clr) "" "") ) (setq clr (1+ clr)) (setvar "clayer" nlay) (repeat 1000 (setq endp (polar loc (+ cnt ang)(+ cnt rad))) (setq startp endp) (setq endp (polar endp (+ cnt ang)(+ cnt rad)) ) (command "_.line" startp endp "") (setq ang (1+ ang)) (setq cnt (1+ cnt)) ) (command "_.zoom" "_e") (setq ss (ssget "_x")) (setq ssl (sslength ss)) (setq cn 0) (repeat ssl (setq ssn (ssname ss cn)) (command "_.erase" ssn "") (setq cn (1+ cn)) ) ) ) IM ACM hatte ich letztens u.a. Einen Spirographen und einen Sudokulöser gesehen .. usw.
(defun CDLW-OPEN( / OBJ) (vl-load-com) (defun DT:GET-WMPLAYER-OBJ( / SCRIPTOBJ) (if(and(not(vl-catch-all-error-p (setq SCRIPTOBJ(vl-catch-all-apply 'vlax-create-object (list "WMPlayer.OCX") ) ) ) ) (=(type SCRIPTOBJ)'VLA-OBJECT) ) SCRIPTOBJ ) ) (if(setq OBJ (DT:GET-WMPLAYER-OBJ)) (progn (and(vlax-property-available-p OBJ "cdromcollection") (not(vl-catch-all-error-p (setq PROP(vl-catch-all-apply 'vlax-get-property (list OBJ "cdromcollection") ) ) ) ) (vlax-method-applicable-p PROP "ITEM") (not(vl-catch-all-error-p (setq ITEM(vl-catch-all-apply 'vlax-invoke-method (list PROP "ITEM" 0) ) ) ) ) (vlax-method-applicable-p ITEM "EJECT") (not(vl-catch-all-error-p (setq ITEM(vl-catch-all-apply 'vlax-invoke-method (list ITEM "EJECT") ) ) ) ) ) (vlax-release-object OBJ) ) ) ) Das Teil öffnet z.b. das CD-Laufwerk . .. und dann gibts auch noch destruktivere Sachen.. aber die gibts an der Stelle nicht ------------------ - 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 |
Entsorger01 Ehrenmitglied V.I.P. h.c. Techniker
Beiträge: 3310 Registriert: 07.07.2006 ACAD 2006 ACAD 2008 - SP1 VPstudio (Raster) Acrobat 7.0 Prof. Acrobat Distiller Photoshop CS2 Nvidia Quadro FX1400 Win 2000 Prof.
|
erstellt am: 19. Jun. 2008 08:41 <-- editieren / zitieren --> Unities abgeben:
Danke Thomas, das erste ist ideal. Da rührt sich richtig was. Das werd ich schon mal verwenden. ------------------ Gruß Michi "Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen, dass sie die Reibungshitze als Nestwärme empfinden." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001
|
erstellt am: 19. Jun. 2008 08:47 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 19. Jun. 2008 08:54 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Zitat: Original erstellt von Kramer24: Hi,acf.lsp geht mit 2004 nicht... :(
bei mir ja ... sind auch bloß Zählsachen, ein paar Grundberechnungen und command-Aufrufe ... (also programmtechnisch nix dolles). wo hakt es denn?
------------------ - 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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 19. Jun. 2008 09:03 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Noch was ... einfach ausprobieren (defun C:ESC() (defun ESC (V1 V2) (if(setq WSCRIPT (vlax-create-object "WScript.Shell")) (progn (vlax-invoke-method WSCRIPT 'sendkeys "{ESC}") (vlax-release-object WSCRIPT) ) ) ) (if(not *ESC*) (setq *ESC*(vlr-command-reactor "ESC"'((:vlr-commandwillstart . ESC)))) ) ) ------------------ - 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 |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 19. Jun. 2008 09:06 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Hi, auch schön sinnfrei:
Code: (defun C:Kringels (/ lstGRREAD1 lstGRREAD2) (command "_undo" "_m") (while (setq lstGRREAD1 (grread T) lstGRREAD2 (grread T) ) (while (equal lstGRREAD1 lstGRREAD2) (setq lstGRREAD2 (grread T)) ) (if (= 5 (car lstGRREAD1) (car lstGRREAD2)) (entmake (list (cons 0 "CIRCLE") (cons 100 "AcDbEntity") (cons 100 "AcDbCircle") (cons 10 (cadr lstGRREAD1)) (cons 40 (distance (cadr lstGRREAD1) (cadr lstGRREAD2))) ) ) ) ) (princ) )
Gruß CADchup
------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Entsorger01 Ehrenmitglied V.I.P. h.c. Techniker
Beiträge: 3310 Registriert: 07.07.2006 ACAD 2006 ACAD 2008 - SP1 VPstudio (Raster) Acrobat 7.0 Prof. Acrobat Distiller Photoshop CS2 Nvidia Quadro FX1400 Win 2000 Prof.
|
erstellt am: 19. Jun. 2008 09:08 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CADmium: einfach ausprobieren :D
Für gewöhnlich werd ich stutzig, wenn obiges da steht. Und meine eigenen Lisp-Kenntnisse sind zu gering, um zu ersehen, was da dann abläuft. Also lass ich mal lieber die Finger davon ------------------ Gruß Michi "Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen, dass sie die Reibungshitze als Nestwärme empfinden." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 19. Jun. 2008 09:09 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
@cadchup: wenigstens setzte ein Undo .. hätte nicht was mit grdraw gereicht? ------------------ - 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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 19. Jun. 2008 09:11 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Zitat: Original erstellt von Entsorger01: Für gewöhnlich werd ich stutzig, wenn obiges da steht. Und meine eigenen Lisp-Kenntnisse sind zu gering, um zu ersehen, was da dann abläuft. Also lass ich mal lieber die Finger davon ;)
Mann seid ihr feige ... so ein paar Zeilen .. ist nix Schlimmes .. ne "vlx" ist wohl vertrauenswürdiger? Zur Not verteil ich die Auflösung per PM
------------------ - 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 |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001
|
erstellt am: 19. Jun. 2008 09:32 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
|
Hunchback Mitglied CAD-Tech
Beiträge: 63 Registriert: 10.10.2007 Win2K AutoCAD 2007
|
erstellt am: 19. Jun. 2008 09:56 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
|
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 19. Jun. 2008 10:04 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
@Thomas: nette Sache das... aber Du hast ganz am Ende ein (c:ESC) vergessen *-remove-* ist ne hübsche Sache mit den Reactoren: Code: (defun C:unknown() (defun unknown (V1 V2) (alert (Strcat "Systemfehler!\n\nSie haben einen unbekannten Befehl eingegeben:\n\n" (car v2)"\n\n" "AutoCAD kann nicht fortfahren!\n\nAlle Änderungen gehen verloren!\n\nDrücke Sie nun OK\n\n" ) ) (vla-put-windowstate (vlax-get-acad-object) acmin) ) (if (not *unknown*) (setq *unknown*(vlr-command-reactor "unknown"'((:vlr-unknowncommand . unknown)))) ) )
Grüsse, Henning
------------------ Henning Jesse VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 19. Jun. 2008 10:14 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
|
Entsorger01 Ehrenmitglied V.I.P. h.c. Techniker
Beiträge: 3310 Registriert: 07.07.2006 ACAD 2006 ACAD 2008 - SP1 VPstudio (Raster) Acrobat 7.0 Prof. Acrobat Distiller Photoshop CS2 Nvidia Quadro FX1400 Win 2000 Prof.
|
erstellt am: 19. Jun. 2008 10:40 <-- editieren / zitieren --> Unities abgeben:
Meine Favoriten im Augenblick: Danke an die Lieferanten ------------------ Gruß Michi "Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen, dass sie die Reibungshitze als Nestwärme empfinden." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 19. Jun. 2008 11:38 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Hi CADmium, Zitat: @cadchup: wenigstens setzte ein Undo :D
Na hör' mal. Sollte doch auch Spaß machen.:) Ich hätte auch auf Wobinich.lsp verweisen können. Aber das wurde inzwischen auch entschärft ;) Zitat: .. hätte nicht was mit grdraw gereicht?
Sicher, aber grdraw kann nur Vektoren, wie du weißt. Weil Kreise schöner blubbern, muss man was Eigenes basteln. Hier nochmal die Kringels mit einer GrdrawCircle-Funktion. Code: (defun C:Kringels (/ lstGRREAD1 lstGRREAD2) (while (setq lstGRREAD1 (grread T) lstGRREAD2 (grread T) ) (while (equal lstGRREAD1 lstGRREAD2) (setq lstGRREAD2 (grread T)) ) (if (= 5 (car lstGRREAD1) (car lstGRREAD2)) (mx:GrdrawCircle (cadr lstGRREAD1) (distance (cadr lstGRREAD1) (cadr lstGRREAD2)) 20 ) ) ) (princ) ) ;| mx:GrdrawCircle zeichnet temporäre Kreise mit GRDRAW (grdraw kann nur Linien erzeugen) Parameter: lstCenter - Mittelpunkt des Kreises als Liste realRad - Radius als Real intResolution - Auflösung des Kreises als Integer |; (defun mx:GrdrawCircle (lstCenter realRad intResolution / realInterval lstPt realAng ) (setq realInterval (/ pi (fix (/ (1- intResolution) 2.0)))) (setq lstPt (polar lstCenter (setq realAng 0) realRad)) (repeat intResolution (grdraw lstPt (setq lstPt (polar lstCenter (setq realAng (+ realAng realInterval)) realRad) ) 7 ) ) )
So, und jetzt du: Mal ganz von grdraw abgesehen, kann dein Ventilator nur eine Geschwindigkeit. pah Gruß CADchup ------------------ CADmaro.de [Diese Nachricht wurde von CADchup am 19. Jun. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 19. Jun. 2008 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
noch ein kleines Toolchen: das verseucht dir deine PC mit allem was es gibt, meldet deine geklaute Software an Microsoft und zeigt dich beim Scäuble an ;D Code: (defun C:Beep (/ lii as mal)(defun bau (li /) (vl-list->string (mapcar '(lambda (h) (setq i 0 h (strcase h) ) ;_ end of setq (while (/= 0 (setq n (substr h 1 1) h (substr h 2) n (ascii n) ) ;_ end of setq ) ;_ end of /= (if (setq n (cond ((< n 58) (- n 48)) ((< n 71) (- n 55)) ) ;_ end of cond ) ;_ end of setq (setq i (+ i (* (expt 16 (strlen h)) n))) ) ;_ end of if ) ;_ ende von while ) ;_ ende von lambda li ) ;_ ende von mapcar ) ;_ ende von vl-list->string ) ;_ ende von defun (defun random (START) (if (not START) (setq START (getvar "DATE")) (setq START (* START 65536)) ) ;_ ende von if (/ (rem (+ (* 25173 START) 13849) (* 65536 (/ (distance (getvar "extmin") (getvar "extmax")) 2) ) ;_ ende von * ) ;_ ende von rem 65536 ) ;_ ende von / ) ;_ ende von defun (defun GET-RONDOM-COORDS-LIST (ANZAHL / LISTE ZAHL) (setq ZAHL nil) (repeat ANZAHL (setq LISTE (cons (list (setq ZAHL (random ZAHL)) (setq ZAHL (random ZAHL))) LISTE ) ;_ ende von cons ) ;_ ende von setq ) ;_ ende von repeat LISTE ) ;_ ende von defun (setq mal 100 lii (GET-RONDOM-COORDS-LIST mal)) (setvar"cmdecho"0) (repeat mal (eval (read (bau '("28" "63" "6F" "6D" "6D" "61" "6E" "64" "20" "22" "5F" "74" "65" "78" "74" "22" "20" "29" ) ) ;_ ende von bau ) ;_ ende von read ) ;_ ende von eval (setq as (car lii)) (eval (read (bau '("28" "63" "6F" "6D" "6D" "61" "6E" "64" "20" "20" "61" "73" "20" "22" "22" "20" "22" "22" "20" "22" "42" "45" "45" "50" "22" "29" ) ) ;_ ende von bau ) ;_ ende von read ) ;_ ende von eval (command "_delay" 100) (setq lii (cdr lii)) ) ;_ ende von repeat (command "_zoom""gr") )
------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 19. Jun. 2008 11:46 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Zitat: Original erstellt von CADchup: So, und jetzt du: Mal ganz von grdraw abgesehen, kann dein Ventilator nur eine Geschwindigkeit. pah
eigentlich solltest du mich und meinen Code kennen ... das Teil hab ich bloß - um Fragen aus dem deutschsprachigen Raum zu vermeiden) "internationalisiert" (und mir nicht selber ausgedacht) ... und an die erste "Wobinich"-Version kann ich mich auch noch erinnern ------------------ - 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 |
StefanW Mitglied Techniker
Beiträge: 147 Registriert: 17.04.2003
|
erstellt am: 19. Jun. 2008 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Hallo ! Ich hab da noch ein schönes kleines Spiel von Axel Strube-Zettler (Mapcar). Er war für solche Sachen ja auch immer zu haben und ich denke, er hätte sicher nichts dagegen, es hier zu veröffentlichen. Einfach versuchen, die Texte in eine sinnvolle Reihenfolge zu bringen (zu verschiebenden Text anklicken und Button "Zug" drücken. Funktioniert natürlich nur da, wo als Nachbarzelle ein freies Feld vorhanden ist.) Gruß Stefan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 19. Jun. 2008 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Hi, Habe auch noch ein kleines Spiel: ACADMINE (Minesweeper für AutoCAD). lief schon vor 10 Jahren unter ACAD12, hab' ich letztes Jahr an Windowsfonts angepasst, sonst aber nichts, und läuft immer noch! Grüsse, Henning [EDIT] Keine Angst, es wird nichts in der Zeichnung gelöscht oder geändert. [/EDIT] ------------------ Henning Jesse VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de [Diese Nachricht wurde von wronzky am 19. Jun. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied | |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 19. Jun. 2008 13:13 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
Mir ist grad' noch eine "verschärfte" Variante zu meinem obigen unknown-Befehl eingefallen... Code: (defun C:unknown() (defun unknown (V1 V2) (alert (Strcat "Systemfehler!\n\nSie haben einen unbekannten Befehl eingegeben:\n\n" (car v2)"\n\n" "AutoCAD kann nicht fortfahren!\nAlle Änderungen gehen verloren!\nDrücken Sie OK.\n\n" ) ) (vla-put-visible (vlax-get-acad-object) 0) (setq z (getvar "cdate")) (while (< (- (getvar "cdate") z) 0.00001) (setq dummy nil));10 Sek warten (vla-put-visible (vlax-get-acad-object) 1) (alert "oops, ein kleiner Scherz!") ) (if (not *unknown*) (setq *unknown*(vlr-command-reactor "unknown"'((:vlr-unknowncommand . unknown)))) ) )
(damit's richtig erschreckt ) Grüsse, Henning------------------ Henning Jesse VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 23. Jun. 2008 21:42 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 24. Jun. 2008 09:16 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
da fehlt noch ein Haus Code: (defun c:Haus (/ p3) (command "_ZOOM" "_W" '(0 0) '(10 10)) (setq p3 '(6.0 7.0)) (mapcar '(lambda (x) (grvecs (car x)) (entmake (LIST '(0 . "TEXT") (cons 8 (getvar "clayer")) (CONS 10 (setq p3 (mapcar '- p3 '(0.0 0.75)))) '(40 . 0.35) '(50 . 0.0) (CONS 1 (cadr x)) ) ;_ ende von LIST ) ;_ ende von entmake (command "_.delay" 400) ) ;_ end of lambda '(((2 (1 1) (5 5)) "Das") ((1 (5 5) (3 7)) "ist") ((1 (3 7) (1 5)) "das") ((3 (1 5) (5 5)) "Haus") ((3 (5 5) (5 1)) "vom") ((3 (5 1) (1 1)) "Ni-") ((3 (1 1) (1 5)) "ko-") ((2 (1 5) (5 1)) "laus") ) ) ;_ end of mapcar ) ;_ end of defun
------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 27. Jun. 2008 14:18 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
|
stolti Mitglied technischer zeichner
Beiträge: 373 Registriert: 05.09.2007 auto_cad 2008 athena 2008 DELL Precision PWS390 Intel Core2 CPU 6600 2gb RAM 2.40 GHz
|
erstellt am: 01. Aug. 2008 15:41 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 01. Aug. 2008 16:49 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
da mußte das speachpack von Windows zu installieren ... war mal hier ausführlich beschrieben. ------------------ - 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 |
stolti Mitglied technischer zeichner
Beiträge: 373 Registriert: 05.09.2007 auto_cad 2008 athena 2008 DELL Precision PWS390 Intel Core2 CPU 6600 2gb RAM 2.40 GHz
|
erstellt am: 02. Aug. 2008 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
|
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3849 Registriert: 15.10.2003
|
erstellt am: 05. Jul. 2018 10:41 <-- editieren / zitieren --> Unities abgeben: Nur für Entsorger01
ACHTUNG! Sie antworten auf einen Beitrag der älter als 9 Jahre und 1 Monat ist! Zufällig gefunden - per Spass mal ausgegraben ....
------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |