---

Hallo,

ich brauche für dieses Flächenberechnungslisp folgende Anpassung:
Zur Zeit errechnet das Tool die Fläche in Quadratmeter, die Zeichnungseinheiten sind allerdings in mm, d.h. z.B. 1000mm² werden automatisch in 1m² umgerechnet.
Da ich zur Zeit im imperial System arbeite brauche ich die Ausgabe der Fläche in square feet. Die Zeichnungseinheiten sind in feet. Ich hoffe ihr könnt mir weiterhelfen.

Code:

---

(defun  c:area-sqm ( / t_2 Ss)

;;(if
;;  (/= (findfile "md_fla.dwg")nil)
;;(progn

  (setq Ss  nil
        t_2 nil)

(setq Ss (ssget ));'((0 . "LWPOLYLINE"))))
  (if (not Ss) (princ (strcat "\nNichts gewählt."))
  (progn
    (command "_.area" "_a" "_o")
    (while (setq t_2 (ssname Ss 0))
;;;    (setq md_in (cdr (assoc 10 (entget t_2))))
;;;    (setq md_rnr_in (ssget "X" t_2))
;;;    (setq startp md_in)
    (command t_2)
    (setq Ss (ssdel t_2 Ss))
    );while 
    (command "" "")
    (princ "\n")
    (princ
    (strcat "\n*****Total Area: " (rtos (getvar "area") 2 5)))(terpri)
    ;(command "_.Insert" "md_fla" startp "1" "1" "0" (rtos (getvar "area")2 2))
  );endprogn
  );endif
(setq startp (getpoint "Insertion Point:"))
(command "_text" startp "500" "0" (strcat (rtos (/ (getvar "area") 1000000) 2 2) "m²"))
; 
;;);ende progn
;;);end if
(princ)
)

---

Vielen Dank und schöne Grüße aus Kanada

Sero

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

---

Moin Kanadier

Zitat:

---

Converts a number into a string

(rtos number [mode [precision]])

The rtos function returns a string that is the representation of number according to the settings of mode, precision, and the system variables UNITMODE, DIMZIN, LUNITS, and LUPREC.

Arguments

number

A number.

mode

An integer specifying the linear units mode. The mode corresponds to the values allowed for the LUNITS AutoCAD system variable. The mode can be one of the following numbers:

1  Scientific

2  Decimal

3  Engineering (feet and decimal inches)

4  Architectural (feet and fractional inches)

5  Fractional

precision

An integer specifying the precision.

The mode and precision arguments correspond to the system variables LUNITS and LUPREC. If you omit the arguments, rtos uses the current settings of LUNITS and LUPREC.

Return Values

A string. The UNITMODE system variable affects the returned string when engineering, architectural, or fractional units are selected (mode values 3, 4, or 5).

---

Aus der LISP-Hilfe

Gruß Bruno

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

---

Morgen,
(command "_text" startp "500" "0" (strcat (rtos (/ (getvar "area") 1000000) 2 2) "m²")) ....diese Zeile anpassen.

(/ (getvar "area") 1000000) 2 2) "m²")) --> / -->div
1000000 --> Umrechnung
"m²")) --> Einheit oder was du da noch so hinschreiben magst.

Mfg Heiko

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

---

Das Programm schaut mir sehr nach Cadwiesel aus - und den findest Du hier: www.cadwiesel.de

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

He danke es hat funktioniert mit dem Umrechnungsfaktor.

@Ernst: ja das lisp ist von CADwiesel, ich brauchte nur ne Anpassung fuer die Ausgabe in square feet.

Vieln Dank

Sero

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