|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 10.06.2009 um 00:22 Uhr (0)
Doppelpost - bitte löschen[Diese Nachricht wurde von THE_ONE am 10. Jun. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 09.06.2009 um 17:06 Uhr (0)
Hallo!Habe hier eine kleine Simulation mit Lisp geschrieben! Habe später vor etwas größeres (aufwendigeres) zu machen.Code:(defun C:Dreh(/ x) (setq x 30) ;(command "_.pline" "950,500" "1050,500" "1000,500" "1000,550" "1000,450" "") (command "_.rectang" "975,475" "1025,525") (command "_.pline" "950,500" "1050,500" "1050,550" "1000,550" "1000,450" "950,450" "950,550" "1050,550" "1050,450" "1000,450" "") (setq y 0) (while (= y 89) (command "_.rotate" (entlast) "" "1000,500" "1") (setq y (+ y 1)) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 10.06.2009 um 11:08 Uhr (0)
Sorry meine Blödheit natürlich funktioniert dein Code - Unities sind unterwegs. Von wo hast du eigentlich die Systemvariable "MILLISECS" her. Die ist nirgends dokumentiert. Startet die in dem Moment wo ACAD gestartet wird? Zitat:Nachtrag: Infos dazu habe ich hier gefunden - http://ww3.cad.de/foren/ubb/Forum145/HTML/002385.shtmlDanke an CADmium für seine tolle und hilfreiche Arbeit hier im Board.[Diese Nachricht wurde von THE_ONE am 10. Jun. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 10.06.2009 um 10:44 Uhr (0)
Wahnsinn! Wie du das immer hin bekommst. Du brauchst zum effektiven rotieren nur eine Zeile: Leider bekomme ich beim ausführen:Code:; error: bad argument type: listp 40 hab dann nachgeschaut wo der Fehler ist. Und zwar ist das der DELAY wert, also wenn ich das ausführe: Code:(ROTATE (car(entsel"
Objekt wählen:")) (getpoint "
Drehpunkt wählen: ") (*(/ 1.0 180.0)PI) 50) bekomme ichCode:; error: bad argument type: listp 50Mit numberp prüfst du das ja ab, verstehe daher nicht warum der Fehler kommt.[ ...
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 10.06.2009 um 00:08 Uhr (0)
Hier nun mein heutiges Ergebnis. Habe lange gebraucht da ich nicht wirklich gewusst habe, wie ich bei meiner Polylinie alle Koordinatenelemente am einfachsten bekomme (da alle mit 10 beginnen und assoc ja nur das erste liefert), um diese dann durch neue (gedrehte) zu ersetzen.Wäre daher über jeden Verbesserungsvorschlag dankbar.Außerdem ruckelt es beim ersten Durchlauf noch immer. Beim Zweiten läuft es dann aber einigermaßen flüssig wie man sehen kann.Wollte außerdem noch das eine Schraffur (die Fläch ...
|
| In das Form Lisp wechseln |
|
Lisp : Nummern automatisch an Text anfügen
THE_ONE am 21.01.2008 um 08:43 Uhr (0)
Hallo!Ich habe und-color: #FFFF99'>MTexte/Text auf dem Bildschirm. Kann ich es mit Lisp schaffen das ich einen Befehl kreiere der folgendes bewirkt:1.Beim starten des Befehls fragt er mich nach einer Nummer danach klicke ich nach der Reihe und-color: #FFFF99'>Mtexte/Texte an, bei jedem klick auf einen Mtext/Text wird die Nummer um eins erhöht und dann dem Mtext/Text angefügt.MFG THE_ONE
|
| In das Form Lisp wechseln |
|
Lisp : _pline plus Liste???
THE_ONE am 22.02.2007 um 01:32 Uhr (0)
Kann man bei einer _pline auch eine Liste als Argument angeben. Mit der Angabe einzelner Punkten bekomme ich es hin, nicht aber wenn ich eine Liste angebe. Kann man dem _pline Befehl irgendwie sagen verbinde alle Punkte in der Liste?funktioniert nicht: (setq spoint (GETPOINT "
Please select Startpoint: "))(setq plist (list spoint (list 0 3 0) (list 1 3 0))) ;geht das irgendwie(command "_pline" plist "")funktioniert schon:(setq spoint (GETPOINT "
Please select Startpoint: "))(command "_pline" spoint (list ...
|
| In das Form Lisp wechseln |
|
Lisp : Pause (2sec) in LispCode einfügen
THE_ONE am 07.08.2008 um 17:09 Uhr (0)
Hi! habe jetzt nach "Pause" gesucht und etwas genauer geschaut ! Hab ja vorher auch nach Pause gesucht, aber nix brauchbares gefunden! Das liegt daran dass bei mir der erste brauchbare Post auf Seite 9 kommt, und der besagte Post von dir erst auf Seite 18. Bevor ich den Thread erstellt habe, glaube ich dass ich bei Seite 7 oder so aufgegeben zu haben zu und-color: #FFFF99'>suchen, da ich schon ziemlich viele Threads durch hatte in denen das Wort Pause zwar vorkam aber nur als Variablennamen etc. ,und mir das ganze daher nix ...
|
| In das Form Lisp wechseln |
