---

hallo
ich habe mir eine LISP Datei runtergeladen
kenne mich aber nicht mit der LISP Programierung aus
bei folgender  Datei wird ein Fläche berechnet , ich möchte jetzt das ergebnis noch durch eine Zahl teilen bevor  es als text in die Zeichnung eingetragen wird .
An welcher stelle muß mann welche berechnungszeile eingeben ??
:-) krenzi

(defun M:FEHLER (S)
  (print (strcat "M:fehler " S))
  (command "_UNDO" "_BACK")
  (close schreibdat)
  (setq *ERROR* MD_ERR)
  (princ)
) ;_ end of defun

(DEFUN koord (item / len pos zeich str)
  (setq len (strlen item))
  (setq pos len)
  (SETQ zeich (SUBSTR item Pos 1))
  (WHILE (/= zeich ":")
    (setq pos (1- pos))
    (SETQ zeich (SUBSTR item Pos 1))
    )
  (setq pos (1+ pos))
  (Setq str (atof (substr item pos (- len pos))))
);ende defun

(defun fl ( e1 / )
  (command "_.area" "_o")
  (command e1)
);ende defun

(defun c:schwpkt (/ t_2 Ss)
  (setq MD_ERR  *ERROR*
        *ERROR* M:FEHLER
        ) ;_ end of setq
  ;;Marke für Zurück nach Abbruch setzen
  (command "_UNDO" "_MARK")
  (setq el (entlast))
  (setq as (ssadd))
  (setq p1 (getpoint "\nin die zu berechnende Fläche klicken"))
  (command "_.boundary" "o" "i" "j" "o" "r" "x" p1)
  (if (>(sslength (ssget "_W" (getvar "vsmin")(getvar "vsmax")))1000)
    (command "J" "")
    (command "")
  )
  ;(setq e1 (ssname as 0))
  (if (= (entnext el) NIL)
    (setq e1 el)
    (setq e1 (entnext el))
  )
  (fl e1)
  (while e1
    (ssadd e1 as)
    (setq e1 (entnext e1))
    )
  (setq kont (ssname as 0))
  (ssdel kont as)
  (command "_massprop" "_l" "" "_Y" "test")
  (command "_.erase" "_l" "")
  (setq mprdat (open "test.mpr" "r"))
  (repeat 7
    (read-line mprdat)
    (princ)
    )
  (setq x (koord (strcase (read-line mprdat))))
  (setq y (koord (strcase (read-line mprdat))))
  (close mprdat)
  (setq p2 (list x y))
  (setq deldat (strcat "del test.mpr"))
  (command "_shell" deldat)
;;;  (setq schreibdat (open "C:\\Koord.csv" "a"))
;;;  (setq reinschreib (strcat
;;;       "Fläche: "
;;;       ";"
;;;       (rtos (getvar "area") 2 2)
;;;       ";"
;;;       " qm"
;;;       "\nSchwerpunkt in Y: "
;;;       ";"
;;;       (rtos y)
;;;       "\n"
;;;       )
;;; )
;;;  (write-line reinschreib schreibdat)
;;;  (close schreibdat)
  (command "_text" p2 "0.35" "0" (strcat (rtos (getvar "area") 2 2)" qm"))
  (princ)
  )
(prompt "\nZum Starten 'schwpkt' eingeben")
;|«Visual LISP© Format Options» (72 2 40 1 nil "end of " 60 9 0 0 0 T T nil T)
***Don't add text below the comment!***|;

------------------
Gruß Krenzi@lange

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

---

Hi

in einer der letzen Zeilen wird die
Systemvariable "AREA" mit "RTOS" konvertiert in eine
Zeichenkette. D.h. TEXT -> Dezimalschreibweise mit 2 Komma-Stellen.

Dieser Code ist zu Ändern:

Code:

---

(command "_text" p2 "0.35" "0" (strcat (rtos (getvar "area") 2 2)" qm"))

---

in:

Code:

---

(command "_text" p2 "0.35" "0" (strcat (rtos (/ (getvar "area") XXX) 2 2)" qm"))

---

Wobei das XXX für die Zahl steht

------------------
@edo...

[Diese Nachricht wurde von edo2000 am 24. Nov. 2004 editiert.]

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

---

Danke edo2000 klappt echt super
Wie würde der befehl ausshen wenn ich jetzt noch 3% abziehen möchte
sprich wo muß ich" x 0,97" einfügen
und würde es auch noch so gehen das ich einen neuen layer mit eienem namen auch gleich erzeuge

------------------
Gruß Krenzi@lange

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

---

Servus

Da wo die XXX stehen ist der Wert einzutragen und mit Multiplizieren gehtŽs auch leichter. (ungetestet)

(command "_text" p2 "0.35" "0" (strcat (rtos (/ (getvar "area") XXX) 2 2)" qm"))

(command "_text" p2 "0.35" "0" (strcat (rtos (* (getvar "area") 0.97) 2 2)" qm"))

------------------
schöne Grüsse aus der Steiermark  Bernd P. Warum Einfach es geht auch kompliziert

Bitte Supportangaben eintragen, warum siehst du hier

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

---

wo stell ich denn die Supportangaben ein habe es nicht im profil gefunden

------------------
Gruß Krenzi@lange

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

---

Hallo!

Das ist eine super Lisp-Routine! Ich habe viel mit Flächenberechnung zu tun und das jetzt gleich die Zahlen in die Zeichnung geschrieben werden ist spitze. Geht natürlich mit Map auch so, aber diese Routine ist doch einiges einfacher zu handhaben.

Ich finde sowas sollte standardmäßig in AutoCAD integriert sein. Danke an den Lispler, der das "verzapft" hat. 

In diesem Sinne einen schönen Tag noch.

------------------
Ich sag mal so... 

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

---

Hab ich doch glatt vergessen zu antworten. Tschuldigung.

Also Supportangaben = Systeminfo. Bei Profil bearbeiten.

Califax

------------------
Ich sag mal so... 

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

---

Zitat:

---

Original erstellt von Califax:
...Danke an den Lispler, der das "verzapft" hat. 

---

Scheint mir ein Programm vom Cadwiesel zu sein

------------------
Gruß, Ernst

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

---

scheint nicht nur so.... 

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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