Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Gaudi-Lisp

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Gaudi-Lisp (4236 mal gelesen)
Entsorger01
Ehrenmitglied V.I.P. h.c.
Techniker



Sehen Sie sich das Profil von Entsorger01 an!   Senden Sie eine Private Message an Entsorger01  Schreiben Sie einen Gästebucheintrag für Entsorger01

Beiträge: 3263
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 19. Jun. 2008 08:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Entsorger01 an!   Senden Sie eine Private Message an Entsorger01  Schreiben Sie einen Gästebucheintrag für Entsorger01

Beiträge: 3263
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Kramer24 an!   Senden Sie eine Private Message an Kramer24  Schreiben Sie einen Gästebucheintrag für Kramer24

Beiträge: 5881
Registriert: 09.11.2001

erstellt am: 19. Jun. 2008 08:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

Hi,

acf.lsp geht mit 2004 nicht...
http://autolisp-exchange.com/forum/showthread.php?t=71

Lothar

------------------
From Autodusk Till Dawn

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 19. Jun. 2008 08:54    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 19. Jun. 2008 09:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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.




Sehen Sie sich das Profil von CADchup an!   Senden Sie eine Private Message an CADchup  Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3329
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 19. Jun. 2008 09:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Entsorger01 an!   Senden Sie eine Private Message an Entsorger01  Schreiben Sie einen Gästebucheintrag für Entsorger01

Beiträge: 3263
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 19. Jun. 2008 09:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

@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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 19. Jun. 2008 09:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

 
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


Sehen Sie sich das Profil von Kramer24 an!   Senden Sie eine Private Message an Kramer24  Schreiben Sie einen Gästebucheintrag für Kramer24

Beiträge: 5881
Registriert: 09.11.2001

erstellt am: 19. Jun. 2008 09:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

"ESC" und "Kringels" gehen.

Bei ACF.lsp mus es _.layer heißen. ADT hat einen anderen Layer Befehl.

Gruß

------------------
From Autodusk Till Dawn

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

Hunchback
Mitglied
CAD-Tech


Sehen Sie sich das Profil von Hunchback an!   Senden Sie eine Private Message an Hunchback  Schreiben Sie einen Gästebucheintrag für Hunchback

Beiträge: 63
Registriert: 10.10.2007

Win2K
AutoCAD 2007

erstellt am: 19. Jun. 2008 09:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

wenn's um Sinnfreie Sachen geht:
http://ww3.cad.de/foren/ubb/Forum145/HTML/002496.shtml


grü

Martin

------------------
You seem (in my (humble) opinion (which doesn't mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong).

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

@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




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 19. Jun. 2008 10:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich


swars.zip

 
Hier mal eine Slot Machine und ein Star War

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

Entsorger01
Ehrenmitglied V.I.P. h.c.
Techniker



Sehen Sie sich das Profil von Entsorger01 an!   Senden Sie eine Private Message an Entsorger01  Schreiben Sie einen Gästebucheintrag für Entsorger01

Beiträge: 3263
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Meine Favoriten im Augenblick:

    - ACF
    - Kringels
    - Slot

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.




Sehen Sie sich das Profil von CADchup an!   Senden Sie eine Private Message an CADchup  Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3329
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 19. Jun. 2008 11:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 19. Jun. 2008 11:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 19. Jun. 2008 11:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von StefanW an!   Senden Sie eine Private Message an StefanW  Schreiben Sie einen Gästebucheintrag für StefanW

Beiträge: 147
Registriert: 17.04.2003

erstellt am: 19. Jun. 2008 11:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich


Spiel.zip

 
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



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich


AM.zip

 
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



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Theodor Schoenwald an!   Senden Sie eine Private Message an Theodor Schoenwald  Schreiben Sie einen Gästebucheintrag für Theodor Schoenwald

Beiträge: 1672
Registriert: 16.04.2002

erstellt am: 23. Jun. 2008 21:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich


BLUMEN.txt

 
Hallo,

für die schönen Beiträge noch ein par Blumen.

Gruß
Theodor

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

CADwiesel
Moderator
CAD4FM UG




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 24. Jun. 2008 09:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich


haus2.LSP.txt

 
Hi Cadwiesel,
hab' mir mal erlaubt, noch bischen im Haus-Code rumzupfuschen 

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

stolti
Mitglied
technischer zeichner


Sehen Sie sich das Profil von stolti an!   Senden Sie eine Private Message an stolti  Schreiben Sie einen Gästebucheintrag für stolti

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

hallo

die sayitlisp ist ja klasse.

auf der seite steht was, dass die beim speichern oder bei gewissen aktionen was sagt...

bin ich zu blöd? oder wie kriegt man das hin???

danke

stolti

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 01. Aug. 2008 16:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von stolti an!   Senden Sie eine Private Message an stolti  Schreiben Sie einen Gästebucheintrag für stolti

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

ok. ja der befehl hat ja auch funktioniert.

ich hab das mit der layer-aufzählung anfangs nicht kapiert.

danke.

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

Peter2
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von Peter2 an!   Senden Sie eine Private Message an Peter2  Schreiben Sie einen Gästebucheintrag für Peter2

Beiträge: 3701
Registriert: 15.10.2003

Win 10/64 Pro
AutoCAD MAP 3D 2018
BricsCAD 22

erstellt am: 05. Jul. 2018 10:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Entsorger01 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz