---

Hallo,

habe mir vor Zeiten mal ein Lisp zur Flächenberechnung runtergeladen - es funktioniert wunderbar.
Es wäre allerdings noch besser, wenn das Programm automatisch 3% (Wohnflächenberechnung 2. BV) abziehen würde.
Da ich selber keine Ahnung vom lispeln habe, würde ich euch bitten mir weiter zu helfen.

Besten Dank im Voraus

Gehry

So, und jetzt das Lisp:

(defun  c:fla_ber ( / 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*****Gesamtfläche: " (rtos (getvar "area") 2 5)))(terpri)
    ;(command "_.Insert" "md_fla" startp "1" "1" "0" (rtos (getvar "area")2 2))
  );endprogn
  );endif
(setq startp (getpoint "Einfügepunkt:"))
(command "_text" startp "0.35" "0" (rtos (getvar "area")2 2))

; ;ende progn
; ;end if
(princ)
)

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

---

Ungetestet :

(defun  c:fla_ber ( / t_2 Ss) 
(if (setq Ss (ssget ))
  (progn
    (command "_.area" "_a" "_o")
    (while (setq t_2 (ssname Ss 0))
      (command t_2)
      (setq Ss (ssdel t_2 Ss))
    )
    (command "" "")   
    (princ (strcat "\n\n*****Gesamtfläche    : " (rtos (getvar "area") 2 5) "\n"))
    (princ (strcat "\n*****Gesamtfläche(-3%): "  (rtos (*(getvar "area")0.97) 2 5) "\n"))
    (setq startp (getpoint "Einfügepunkt:"))
    (command "_text" startp "0.35" "0" (rtos (*(getvar "area")0.97)2 2))
  )
  (princ (strcat "\nNichts gewählt."))
  )
  (princ)
)

------------------
- Thomas -

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

---

geil, geil, geil!!!

Besten Dank - 10 points!

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