---

hallo!
is' zwar eine frage die lisp betrifft, wie ich aber glaube von allgemeinem interesse. deswegen poste ich hier.
ich verwende ein kleines lisp um waermedaemmungen einzufuegen. das funktioniert einwandfrei in der version 2006, bricht aber in version 2007 mit folgender fehlermeldung ab: Einheiten werden in eingefügter Datenbank skaliert...nil
weiss jemand, was das bedeutet?
gruss aus wien
peter

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

---

Klinkt nach Syntaksfehler im Programm,

Hier hat sich vermutlich die verwendete Syntax der AutoCAD Version in der das Tool erstellt wurde so verändert, das sie nicht mehr Kompatibel ist.

Starte - wenn vorhanden- das LSP Prog im Debugmode uns prüfe wo es Problem macht und hängt!

------------------
Grüße
Jörg Lipphardt

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

---

hallo Joerg!
ich kann mir einen syntaxfehler eher nicht vorstellen.
das programm ist simpelst:

(defun c:WDH (/ P1 P2 D LTSC D_EFF)
(setq LTSC (getvar "LTSCALE"))
(setq P1 (getpoint "\nStartpunkt zeigen:" ))
(setq P2 (getpoint "\nEndpunkt zeigen:" ))
(setq D (getdist "\nDicke der Dämmung:" ))
(setq D_EFF (/ (/ D LTSC) 2))
(command "_.line" P1 P2 "")
(command "_.insert" "WD" "0,0" "" "" "")
(command "_.chprop" "_l" "" "_LA" "0_WDH" "_LTScale" D_EFF "" )
)

es werden nur start- endpunkt und dicke abgefragt, eine linie gezeichnet und mit dem Layer/linientypdefinitionen versehen, die mit dem block 'WD' eingefuegt worden sind.
aber ich werde das mit dem debuggen versuchen, das habe ich eh' noch nie gemacht, da muss ich allerdings erst schau'n wie das geht.

danke jedenfalls fuer die prompte antwort!
peter

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

---

WD.zip

nach ein paar aenderungen hab' ichs doch zum laufen gebracht:

(defun c:WDH (/ P1 P2 D LTSC D_EFF)
(setq LTSC (getvar "LTSCALE"))
(setq P1 (getpoint "\nStartpunkt zeigen:" ))
(setq P2 (getpoint "\nEndpunkt zeigen:" ))
(setq D (getdist "\nDicke der Dämmung:" ))
(setq D_EFF (/ (/ D LTSC) 2))
(command "_.insert" "WD" "0,0" "" "" "")
(command "_.line" P1 P2 "")
(command "_.chprop" "_l" "" "_LA" "0_WDH" "_Lt" "_bylayer" "_LTScale" D_EFF "" )
)

die zeichnung, die geladen wird ist zwar leer und enthaelt nur die benoetigten layer und linientypen, aber offensichtlich muss ich sie zuerst importieren und dann erst die linie zeichnen lassen. scheinbar gibt's sonst verwirrungen mit der objektwahloption 'letztes' bei der veraenderung der eigenschaften.
ausserdem habe ich noch den linientyp manuell auf 'vonlayer' gestellt, anderen falls wird die linie ausgezogen gezeichnet.
habe die zwei lisps und die WD.dwg aangehaengt, falls es jemand ausprobieren moechte.
wuensche allen ein schoenes wochenende!
peter

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