---

Hallo Forum,

habe mal eine Frage.
Für ein LV brauche ich die Gesamtlänge aller 36.5er-Wände. Geht das irgendwie? In meinem Fall brauche ich die für horizontale Absperrung.
Volumen geht ja, aber Länge?
Polylinie will ich nicht, Taschenrechner auch nicht, Lisp aus dem ACAD-Bereich geht nicht...

Idee?

Grüße, Lothar

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

---

Hallo Lothar,
du kannst ja die Wandtabelle dazu benutzen, Länge, Breite und Höhe einer Wand in eine Tabelle zu drucken, die dann nach Excel exportierbar ist.  in Excel läßt du dann nach Wandstil sortieren und machst die Summe aus der Länge in eine neue Zeile
Das Ergebnis wäre die Gesamtlänge aller zu einem Wandstil gehörenden Wände.

mfg
kajomies

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

---

Hallo,

ich könnte mir vorstellen, dass man über eine Bauteiltabelle zum Ziel kommen könnte.

- Klassifizierung erstellen (z.b. MW365) und an den Stil für die MW365 hängen.
- Eingenschaftssatz der die Länge enthält für Wände definieren der nur für Stile mit o.g. Klassifizierung gilt.
-Bauteiltabelle erstellen, die auf o.g. Eigenschaftssatz zurückgreift und die Spalte zusammensummieren lassen.

Ok, man kanns noch etwas einfacher machen, aber so wäres nur für bestimmte Wände.

Ich wäre allerdings mit den Werten etwas kritisch, da ADT oft andere Ansichten hat, wie unser eins.

HTH
Tom

[edit: war wohl wieder etwas zu langsam ;D]
------------------
Inoffizielle ADT-Help-Site

Rome wasn't built in a day. But these days we just have one to do so.

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

---

Danke bis hierhin,

hatte auf simplere Auswertung gehofft...

Lothar

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

---

Einfacher ist's zwar nicht, aber in Lisp geht es natürlich auch:

--- 8< --- Hier den Glasschneider ansetzten --- 8< ---

(defun c:wandlaenge (/ ss stylename wallstyle sum i)
  (setq
    i 0
    sum 0
  )
  (princ "\nWände wählen ")
  (if (setq ss (ssget '((0 . "AEC_WALL"))))
    (progn
      (setq stylename (getstring T "\nStilename: "))
      (repeat (sslength ss)
        (setq
          vlaobj (vlax-ename->vla-object (ssname ss i))
          i (1+ i)
          wallstyle (vla-get-stylename vlaobj)
        )
        (if (= wallstyle stylename)
          (setq sum (+ sum (vla-get-length vlaobj)))
        )
      )
    )
  )
  sum
)

--- 8< --- Hier den Glasschneider ansetzten --- 8< ---

Es gilt allerdings wie von Tom bereits angemerkt, dass die Länge zwischen den Griffpunkte als Länge verwendet wird und dies je nach Arbeitsweise (Verschneidungen) nicht unbedingt genau der dargestellten Länge entspricht.

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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

---

Danke für das Lisp,
die anderen Möglichkeiten teste ich später...

Lothar

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