|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
cadffm am 08.01.2007 um 10:17 Uhr (0)
was ist mit dem " (INIT) " ?
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
Burschii am 08.01.2007 um 10:45 Uhr (0)
(defun init ( )old_error *error* ; save current error function(chyba) ; osetreni chyb (setvar "cmdecho" 0) ; nezobrazuje vypis;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Inicializace promenych(setq textmodsiz (getvar "textsize")) ; ulozeni velikosti textu (text, dtext)(setq uchopmod (getvar "osmode")) ; ulozeni hodnoty syst. promene (uchop)(setq nast_hladiny (getvar "clayer")) ; ulozeni aktualni hladiny(setq nast_barvy (getvar "cecolor")) ; ul. akt. barvy(setq nast_cary (getvar "celtype")) ; ul. akt. typu cary ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
CADmium am 08.01.2007 um 10:59 Uhr (0)
.. und jetzt fehlt nur noch die Funktion (cistiskup) ... sag mal, aus welchem Bestand kramst du denn solche Programme vor? Deine eigenen Codes scheinen es ja nicht zu sein ( sonst würdest du ja den Fehler finden..) Lies dir bitte auch noch mal das durch.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
Burschii am 08.01.2007 um 11:20 Uhr (0)
(defun cistiskup ( / ) (setq skupiny (dictsearch (namedobjdict) "ACAD_GROUP")) (setq pocitadlo 0) (while (setq skupina (nth pocitadlo skupiny)) (if (= (car skupina) 350) (progn (setq prvkyskup (entget (cdr skupina))) (setq pocitadloa 0) (setq jetam nil) (while (and (setq prvky (nth pocitadloa prvkyskup)) (not jetam)) (if (= (car prvky) 340)(setq jetam 1)) (setq pocitadloa (+ pocitadloa 1)) );while (if (not jetam) (dictremove (cdar (dictsearch (namedobjdict) "ACAD_GROUP")) ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
clausb am 08.01.2007 um 11:24 Uhr (0)
Sind das tatsaechlich tschechische Variablen- und Funktionsnamen?Hoch sollen sie leben, die Globalisierung und das Outsourcing 8-)Claus------------------CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
CAD-Huebner am 08.01.2007 um 11:30 Uhr (0)
Ich vermute das problem ja eher in der (out) Funktuion, da das (command "_offset" ekvvzdlenost)nicht vollständig ist und entweder auf interaktive Eingaben wartet oder in der (out) Funktion weiter mit Eingaben gefüttert wird - offentsichtlich nicht mehr richtig - evt. sind die Befehlsoptionen beim _offset geändert.------------------Mit freundlichem GrußUdo Hübner
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
CADmium am 08.01.2007 um 11:31 Uhr (0)
naja .. weißt du ... irgentwie macht es keinen richtigen Spaß sich mit deinem Code auseinanderzusetzen... keine Formatierung ,(für mich) nicht sprechende Variablennamen, uneffiiziente Schleifen und Funktionsaufrufe usw. ..Mein Tipp : Schreib ne entsprechende Aufgabenstellung und lass es ordentlich machen. Oder fang mit den Grundlagen aus Mapcars Tutorial an und realisier es anschließend selber. Für das andere erscheint mir das Forum nicht die geeignete Plattform.------------------ - Thomas -"Bei 99% alle ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
Burschii am 08.01.2007 um 11:51 Uhr (0)
Habe die OUT-Funktion heraus genommen und schon läuft es wieder.Danke!!!Gruß, Burschii
|
| In das Form Lisp wechseln |
|
Lisp : Text durch Block ersetzen
cadffm am 10.01.2007 um 16:04 Uhr (0)
eigentlich ist das ja ein Forum zur selbsthilfe beim erlernen von LISP, aber naja..(mapcar (lambda (NAME / as) (setq as (ssget "_X" (list (-4 . "and") (0 . "TEXT") (cons 1 NAME) (-4 . "and") ) ) ) (mapcar (lambda (E) (command "_.INSERT" (strcat NAME);Hier Blocknamen in Abhängigkeit des Textwertes festlegen (cdr(assoc 10 (entget E))) "" ...
|
| In das Form Lisp wechseln |
|
Lisp : mit Lisp Flächen anwählen
SHP am 11.01.2007 um 11:35 Uhr (0)
Zitat:Original erstellt von wronzky:Hallo Hans-Peter,das mit der "Pause" geht schon, aber du musst für JEDE Eingabe eine Pause einfügen. Bei folgendem Befehl kannst Du eine Kante wählen, und die angrenzenden Flächen werden versetzt.(command "_solidedit" "_face" "_offset" pause pause "1.3" "" "")Bei folgendem Befehl kannst Du eine Kante wählen, "E" für entfernen drücken, und eine Flächen wegklicken, und die übrig gebliebene Fläche wird versetzt.(command "_solidedit" "_face" "_offset" pause pause pause paus ...
|
| In das Form Lisp wechseln |
|
Lisp : mit Lisp Flächen anwählen
CADmium am 11.01.2007 um 11:41 Uhr (0)
ungetestet(command "_solidedit" "_face" "_offset" (ssget ((0 . "3DFACE"))) "" "1.3" "" "")------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
steinwurm am 11.01.2007 um 12:39 Uhr (0)
Entschuldigt bitte diese primitive Frage, aber ich komm nicht drauf:Was muss ich in Lisp eingeben, wenn ich alle Objekte markieren möchte (STRG+A), um diese verschieben zu können?
|
| In das Form Lisp wechseln |
|
Lisp : Auswahl ja/nein
steinwurm am 12.01.2007 um 08:23 Uhr (0)
Hallo zusammen!Ich brauche nochmal Eure Hilfe.Bei meinem vorhandenen Lisp-Programm möchte ich nun noch eine Abfrage einbauen, die der Variablen "tisch" den Wert ja oder nein zuweist. Bei Ja soll der Block 1 eingefügt werden und bei Nein der Block 2.Was muss ich da einbauen?(setq tisch ????????????;;Bei Ja:(command "-einfüge" "Tisch1" "0,0" "1" "1" "0");;Bei Nein:(command "-einfüge" "Tisch2" "0,175.5" "1" "0.5" "0")
|
| In das Form Lisp wechseln |
