|
Lisp : BKS definieren
Lutz_G am 17.03.2008 um 08:03 Uhr (0)
Hallo an alle,ich versuche hier krampfhaft, einen Einstieg in LISP zu bekommen und stolpere schon bein ersten Schritt. Meinen Einstieg hatte ich mir folgendermaßen vorgestellt:1. frage 3 Punkte ab2. definiere einen neuen BKS-Ursprung3. definiere ein BKS auf Basis der eingegebenen Punkte4. drehe das BKS um die X-Achse5. zeichne dort einen KreisMein Ergebnis:(setq startpunkt (getpoint "
Startpunkt wählen: "))(setq radius (getpoint "
X wählen: "))(setq richtung (getpoint "
Y wählen: "))(command "bks" "_o" ...
| | In das Form Lisp wechseln |
|
Lisp : BKS definieren
Lutz_G am 17.03.2008 um 08:56 Uhr (0)
... tue ich. Danke für den Hinweis.Da meine Taste F1 bei LISP versagt (warum auch immer, da kommt nur eine Fehlermeldung), werde ich heute abend mal das "Kochbuch" befragen.Ich melde mich wieder ...Lutz------------------Menschen mit T21 sind von Natur aus freundlich.Wir sollten von ihnen lernen ...
| | In das Form Lisp wechseln |
|
Lisp : BKS definieren
Lutz_G am 18.03.2008 um 00:54 Uhr (0)
So, im "Kochbuch" wird über trans nichts gesagt. Nach vielen Versuchen auf Basis der englischen Hilfe ergibt sich für mich die folgende Frage:1. Wenn ich mit (trans startpunkt 0 1) versuche, die Koordinaten vom WKS in das UKS zu transformieren, wird doch aber sicherlich nicht der Wert von "startpunkt" sondern nur die Ergebnisrückgabe transformiert. Daraus resultiert weiterhin, daß ja erst mal ein UKS vorhanden sein muß, auf das transformiert werden könnte. 2. Woher sollte ACAD wissen (falls mehrere UKS def ...
| | In das Form Lisp wechseln |
|
AutoLisp : Bogen zum Kreis vervollständigen
Lutz_G am 06.07.2006 um 15:21 Uhr (0)
Hallo an alle,ich bin beim Stöbern auf ein LISP gestoßen, welches ich gern verwenden würde, aber es bricht mit einer Fehlermeldung ab.(... unter 2007)Hintergrund:Ich will einen Bogen anklicken und übrigbleiben soll ein kompletter Kreis.... anbei die Fundsache ...; CREATOR KEES NEELE; repairs broken circle(defun chgerr (s) ;Foutbehandeling (if (/= s "Function cancelled") (princ (strcat "
Error: " s)) ) (setq S nil) (command "layer" "s" cla "") (setvar "cmdecho" cmd) (setvar "osmode" os) (setq *error* olderr ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
