---

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

---

was ist mit dem " (INIT) " ?

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

---

(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

---

.. 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

---

(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

---

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/

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

---

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

---

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

---

Habe die OUT-Funktion heraus genommen und schon läuft es wieder.
Danke!!!

Gruß, Burschii

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