---

hallo forum,
ich habe sehr viel mit flächenberechnungen zu tun. dabei liegen mir fast immer dateien zugrunde, die wirklich nur zum plotten taugen.
meine flächen erstelle ich als poly oder region, der abzüge wegen.
zur auswertung habe ich mir einen eigenen attrib-block erstellt.
was mir fehlt und ich vermisse ist eine möglichkeit einen attrib-block mit einer fläche so zu verbinden, daß der flächenwert in den block eingetragen wird und sich auch aktuallisiert, wenn sich die geometrie ändert.
meine lisp kenntnisse beschränken sich momentan nur auf die schreibweise.
weiß jemand da draussen, wie ich die momentan sture abfrage/eintragen folter beenden kann.
ich habe AC-2004 pur.
dankundgruss günter

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

---

Du solltest vor dem erstellen eines ThemaŽs dich erstmal mit der
Suchfunktion des Forums (auch im LISPforum) ein wenig beschäftigen.
(wenn du das gemacht hast dann sorry, sieht aber nicht so aus)

Dann kann man in älteren Threads schon einige Informationen sammeln,
lese zum Beispiel diesen und nutze danach mal die Suchfunktion.
http://ww3.cad.de/foren/ubb/Forum54/HTML/008578.shtml 

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

---

danke für den hinweis, ich bin noch in der "stöberphase".
es wird aber täglich besser. versprochen!

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

---

Hallo Guenter
versuch es damit.

; berechnet eine Flaeche;;;;
(defun c:area (/ dd tt t_2 inpkt)

  (setq tt nil
        dd nil
        t_2 nil
        inpkt nil
        ) ;_ end of setq

  (setq tt (car (nentsel "Raumpolygon zeigen:")))
  (cond
    ((and (or (= (cdr (assoc 70 (entget tt))) 129)
              (= (cdr (assoc 70 (entget tt))) 1)
              ) ;_ end of or
          (= (cdr (assoc 0 (entget tt))) "LWPOLYLINE")
          ) ;_ end of and
    (redraw tt 3)
    (terpri)
    (princ "Abzugspolygon(e) zeigen:")
    (if (setq dd (ssget '((-4 . "<OR")
                          (-4 . "<AND")
                          (0 . "LWPOLYLINE")
                          (-4 . "<OR")
                          (70 . 129)
                          (70 . 1)
                          (-4 . "OR>")
                          (-4 . "AND>")
                          (-4 . "<AND")
                          (0 . "POLYLINE")
                          (-4 . "<OR")
                          (70 . 129)
                          (70 . 1)
                          (-4 . "OR>")
                          (-4 . "AND>")
                          (-4 . "OR>")
                          )
                        ) ;_ end of ssget
              ) ;_ end of setq
      (progn
        (terpri)
        (setq md_zaehler 0)
        (command "_.area" "a" "_o")
        (command tt "")
        (command "s" "_o")
        (repeat
          (sslength dd)
            (setq t_2 (ssname dd 0))
            (command t_2)
            (setq dd (ssdel t_2 dd))
            )                          ;ende rep
        (command "" "")
          (setq inpkt (getpoint "insert point for value:"))
  (command "_text"
          inpkt
          "0.35"
          "0"
          (rtos (getvar "area") 2 2)
          )                            ;command
        )                              ;progn
      (progn
        (command "_.area" "_o")
        (command tt)
          (setq inpkt (getpoint "insert point for value:"))
  (command "_text"
          inpkt
          "0.35"
          "0"
          (rtos (getvar "area") 2 2)
          )                            ;command
        )                              ;progn
      )                                ;if
    )
    ((null (PRINC "nothing select or wrong selection."))
    )
    ) ;_ end of cond
(command "_regen")
  )                                    ;defun
(princ "\nProgramm ausführen mit >area<")
(princ)

;|«Visual LISP© Format Options» (72 2 40 1 T "end of " 60 9 0 0 0 nil T nil T)
***Don't add text below the comment!***|;

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

---

danke, ich stürze mich gleich daran und melde mich auch
gruß

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