---

Beispiel.zip

Hy

gibt es eine möglichkeit bei polylinien die nicht zusammenhängen zb. eine mit 340m eine mit 540m die gesamtlänge zu ermitteln ohne sie mit dem taschenrechner zusammenrechnen zu müssen ???

Habe einen Ahnhang mitgeliefert: Beispiel.zip (dwg-file)

danke im voraus
lg redbull138

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

---

http://ww3.cad.de/foren/ubb/Forum54/HTML/002945.shtml

------------------
Lothar</A>  Kramer

[Diese Nachricht wurde von Kramer24 am 22. Januar 2003 editiert.]

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

---

hy

hab die lisp schon länger aber ich check nicht wie man auf die gesamtlänge kommt !!!

kannst du mir helfen bei der eingabe ??

lg
redbull138

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

---

also bei dem von mir wird dir doch in der Befehlszeile der Gesamtwert angezeigt.
*****Gesamtlänge:irgendeinwert

------------------
Gruß
CADwiesel

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

---

hy

vielleicht bin ich ja begriffstützig aber ich checks immer noch nicht

führe den befehl aus:

Befehl: länge
Objekt wählen oder [DElta/Prozent/Gesamt/DYnamisch]:

dann gebe ich *g* ein dann kommt

Gesamtlänge angeben oder [Winkel] <1.0000)>:

und dann ?? geb ich einen wert ein z.b 20 verkürzt er mir die länge der polylinie auf 20 wie komm ich auf die gesamtlänge aller polylinien ??

lg redbull138

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

---

Guten Mooorgen!

der aufruf des Programmes ist nicht 'länge', sondern 'gesla'

------------------
Gruß
CADwiesel

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

---

hi nochmal

danke bin auf der leitung gestanden !!!

befehl funkt aber bekomm ne fehlermeldung kannst du mir vielleicht helfen ???

Befehl: _gesla
Objekte zur längenermittlung wählen:
Objekte wählen: Entgegengesetzte Ecke angeben: 7 gefunden

Objekte wählen:
; Fehler: no function definition: VLAX-ENAME->VLA-OBJECT

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

---

Hallo,

die Fehlermeldung kommt daher, dass die Visuallisp-Befehle genutzt worden. Evtl. mußt du diese mit dem Befehl (vl-load-com) erst gangbar machen.

Oder versuch das Folgende. Das kommt auch ohne vl-Befehle aus.

Bei Fragen ...

Grüße Holger

Code:

---

(defun c:gl (/ as elemli plangli z)
  (setq as (ssget (list
    '(-4 . "<or")
    '(0 . "POLYLINE")
    '(0 . "LWPOLYLINE")
    '(0 . "LINE")
    '(0 . "ARC")
    '(0 . "CIRCLE")
    '(0 . "SPLINE")
    '(-4 . "or>")
  )
  )
  )
  (setvar "CMDECHO" 0)
  (if as
    (setq elemli (bau_elemli as)
  z 0
    )
  )
  (if elemli
    (progn
      (setq plangli
    (mapcar
      '(lambda (plli)
  (command "_.LENGTHEN" plli "")
  (getvar "PERIMETER")
  );lambda
      elemli
      );mapcar
    )
      (terpri)
      (princ "Gesamt:\t")
      (princ (apply '+ plangli))
      (princ)
    );progn
  );if
)
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli (cons (ssname asatz n) elemli)
  n (1+ n)
    )
  )
  elemli
)

---

------------------
Holger Brischke
CADlon - Lisp over night!
Jetzt 25 Tools im FreeDownload

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

---

schon erledigt !!!

happy bin endlich nimmer tippen müssen !!!

lg redbull138

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

---

Vielen Dank für eure Hilfe.

Hallo Holger, habe Dein Lispprogramm angeschaut.
Es ist gut. Habe aber immer noch das Problem, daß ich die Daten in eine Datei wegschreiben möchte um diese zu prüfen.
Grüße anno45

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

---

Dann mußt Du max. einmal im Monat schauen und das Problem ist Geschichte.

Gruß Friedhelm

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