| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Lisp-Fehler bei Umstellung von 2004 auf 2006 (904 mal gelesen)
|
Burschii Mitglied Konstrukteur
Beiträge: 15 Registriert: 06.01.2007
|
erstellt am: 08. Jan. 2007 09:54 <-- editieren / zitieren --> Unities abgeben:
Hallo, habe ein LSP-Tool das nach der Umstellung auf ACAD2006 nicht mehr läuft. Es wird ein Wert mal einem Faktor genommen und diesen dann mit Offset zu versetzen. Läuft aber nicht mehr :-( Könnte mir da jemand weiter helfen, wäre echt dankbar. (defun c:ekvKolmo ( / pom_ekvKolmo ekvvzdlenost) (init) (if (= #_BRZ nil) (setq #_BRZ (getreal "\nBRZ: "))) (setq #_Ff (sqrt (+ (expt (/ #_BRZ 2000) 2) 1))) (terpri)(princ "Brz: ")(princ #_BRZ)(princ " Ff: ")(princ #_Ff)(princ " Systemabstand eingeben < ") (princ #_ekvKolmo)(princ " >: ")(setq pom_ekvKolmo (getreal)) (if (/= pom_ekvKolmo nil) (setq #_ekvKolmo pom_ekvKolmo)) (setq ekvvzdlenost (* #_ekvKolmo #_Ff)) (command "_offset" ekvvzdlenost) (out) ) Fehlermeldung: Befehl: _ekvkolmo BRZ: 80 Brz: 80.0 Ff: 1.0008 Systemabstand eingeben < nil >: 1000 Der Befehl wurde vollständig gelöscht. Desinence normally Befehl:
Gruß, Burschii Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 08. Jan. 2007 10:17 <-- editieren / zitieren --> Unities abgeben: Nur für Burschii
|
Burschii Mitglied Konstrukteur
Beiträge: 15 Registriert: 06.01.2007
|
erstellt am: 08. Jan. 2007 10:45 <-- editieren / zitieren --> Unities abgeben:
(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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Pro spravnou cinnost funkci (setvar "cecolor" "bylayer") ; barva dle hladiny (setvar "celtype" "bylayer") ; typ cary dle hladiny (setq #konec_chyba nil) (command "_undo" "_A" "_OFF") (command "_undo" "_BE")
;;;;;;;;;;;;;;;;;;;;;;;pro SAG (if (not meritko) (setq meritko (getvar "USERI1"))) (if (or (> meritko 11) (= meritko 11)) (setq caratloustka1 35) (setq caratloustka1 35)) (if (or (> meritko 11) (= meritko 11)) (setq caratloustka2 25) (setq caratloustka2 25)) (if (or (> meritko 11) (= meritko 11)) (setq carabarva1 2) (setq carabarva1 2)) (if (or (> meritko 11) (= meritko 11)) (setq carabarva2 1) (setq carabarva2 1))
(setq #stylTX "ISO") (setq #sirkaTX 0.9) (cistiskup) ); konec procedury init
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 08. Jan. 2007 10:59 <-- editieren / zitieren --> Unities abgeben: Nur für Burschii
.. 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." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Burschii Mitglied Konstrukteur
Beiträge: 15 Registriert: 06.01.2007
|
erstellt am: 08. Jan. 2007 11:20 <-- editieren / zitieren --> Unities abgeben:
(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")) (cdr (nth (- pocitadlo 1) skupiny)))) );progn );if (setq pocitadlo (+ pocitadlo 1)) );while (princ) ) Klar ist das nicht mein Code. Ist aber schon i.O. so. Der Verfasser ist nicht mehr greifbar und ich darf mich im Büro damit auseinader setzen um alles auf den aktuellen Stand zubringen, da hier alles um gestellt wird. Habe auch keine rechte Ahnung von LISP und bin daher dankbar für jede Hilfe!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
clausb Ehrenmitglied V.I.P. h.c.
Beiträge: 2914 Registriert: 20.12.2000 Ich schreibe das hier in meiner Freizeit und spreche weder für meinen Arbeitgeber noch für andere Firmen. Mehr Unsinn von mir unter clausbrod.de.
|
erstellt am: 08. Jan. 2007 11:24 <-- editieren / zitieren --> Unities abgeben: Nur für Burschii
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 08. Jan. 2007 11:30 <-- editieren / zitieren --> Unities abgeben: Nur für Burschii
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 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 08. Jan. 2007 11:31 <-- editieren / zitieren --> Unities abgeben: Nur für Burschii
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% 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 |
Burschii Mitglied Konstrukteur
Beiträge: 15 Registriert: 06.01.2007
|
erstellt am: 08. Jan. 2007 11:51 <-- editieren / zitieren --> Unities abgeben:
|