---

Hallo !

ich muß aus einem Katasterplan die Länge einer Kabeltrasse ermitteln.
Die Trasse ist 3D gezeichnet und aus endlos vielen Teilen zusammengesetzt.

Meine Idee bis jetzt : die Teile zu einem Element (Linie) verbinden und über den Befehl "liste" wird dann die 3D-Länge angezeigt.
(richtig so ?)

Wie kann ich die vielen 3D-Teile zu einer Linie verbinden?

Oder hat jemand eine andere Lösung für das Problem?

Danke im voraus!

I.Seyfarth

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

---

Das Programm PEDIT3D verbindet Segmente aus Linien, Polylinien, LWPolylinien, 3D-Polylinien, (3D-)Kreisbögen, (3D-)Ellipsenbögen und (3D-)Splines zu einer 3d-Polylinie, die aus linearen Abschnittenbesteht. Dabei werden in der DEMO-Version Lücken zwischen den Segmenten, die nicht größer sind als 0.01, automatisch geschlossen -in der Vollversion ist die Toleranzweite vorwählbar.
http://home.t-online.de/home/scj.schulz/pedit.htm

------------------

Warum einfach, es geht auch Kompliziert.

mfG Bernd P.     

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

---

Servus

nochmal der Link
http://home.t-online.de/home/scj.schulz/pedit.htm

------------------

Warum einfach, es geht auch Kompliziert.

mfG Bernd P.      

[Diese Nachricht wurde von Bernd P am 26. Jan. 2004 editiert.]

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

---

Hi,
was für 3D-Objekte sind denn das? Linien? 3D Polylines?

------------------
Ciao,
Marc

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

---

Hi,
versuch mal dies hier, Du mußt nur ein Objekt auf dem Layer wählen für den die Längen zu ermitteln sind.
Herausgefiltert werden:
*POLYLINE, SPLINE, CIRCLE, ELLIPSE, ARC,LINE

Code:

---

(defun C:LSUMME2 (/ VLADOC APICKSTYLE OBJ LAYER AUSW LEN Z O VLAO)
  (vl-load-com)
  (setq VLADOC    (vla-get-activedocument (vlax-get-acad-object))
        APICKSTYLE (vla-getvariable VLADOC "PICKSTYLE")
  )
  (vla-setvariable VLADOC "PICKSTYLE" (vlax-make-variant 0 2))
  (setq OBJ (vl-catch-all-apply
              'entsel
              (list "\nWählen Sie ein lineares Objekt: ")
            )
  )
  (if (vl-catch-all-error-p OBJ)
    (setq OBJ NIL)
    (setq OBJ (car OBJ))
  )
  (if OBJ
    (progn
      (setq LAYER (cdr (assoc 8 (entget OBJ))))
      (setq AUSW (ssget "X"
                        (list (cons 8 LAYER)
                              '(-4 . "<OR")
                              '(0 . "*POLYLINE")
                              '(0 . "SPLINE")
                              '(0 . "CIRCLE")
                              '(0 . "ELLIPSE")
                              '(0 . "ARC")
                              '(0 . "LINE")
                              '(-4 . "OR>")
                        )
                )
      )
      (if AUSW
        (progn
          (setq Z  -1
                LEN 0.0
          )
          (repeat (sslength AUSW)
            (setq Z    (1+ Z)
                  O    (ssname AUSW Z)
                  VLAO (vlax-ename->vla-object O)
            )
            (cond
              ((apply
                'or
                (mapcar '(lambda (X) (= (cdr (assoc 0 (entget O))) X))
                        '("POLYLINE" "LWPOLYLINE" "ELLIPSE" "SPLINE")
                )
              )
              (setq LEN (+ LEN
                            (vlax-curve-getdistatparam
                              VLAO
                              (vlax-curve-getendparam VLAO)
                            )
                        )
              )
              )
              ((= (cdr (assoc 0 (entget O))) "CIRCLE")
              (setq LEN (+ LEN (vla-get-circumference VLAO)))
              )
              ((= (cdr (assoc 0 (entget O))) "ARC")
              (setq LEN (+ LEN (vla-get-arclength VLAO)))
              )
              ((= (cdr (assoc 0 (entget O))) "LINE")
              (setq LEN (+ LEN (vla-get-length VLAO)))
              )
            )                          ; cond
          )                            ; repeat
          (alert (strcat "Der Länge aller "
                        (itoa (sslength AUSW))
                        " linearen Zeichnungselemente im\nLayer "
                        LAYER
                        " beträgt "
                        (rtos LEN)
                        " m."
                )
          )
        )                              ; progn
      )                                ; if
    )                                  ; progn
  )                                    ; if
  (vla-setvariable VLADOC "PICKSTYLE" APICKSTYLE)
  (princ)
)                                      ; bil_l

(princ "\nStart mit \"LSUMME2\".")

---

.

------------------
Ciao,
Marc

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

---

Hallo Marc,

habe dein Programm ausprobiert und leider:

Fehler: no function definition: LINIE

Was habe ich vergessen oder falsch gemacht?

Hallo Bernd,

dein Programm habe ich auch probiert, nur habe ich über 2000
einzelne Teilstücke und das Programm mag max. 15

I.Seyfarth

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

---

Hallo Seyfarth,

schau mal meiner Seite im Download Prog9 und Prog19. Könnte auch passen.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

hi seyfarth!

stell die datei rein, dann ermittle ich dir die längen.
ergebnis 2d und 3d längen.
(brauchst nichts verbinden etc., wenn's geht alles auf einen layer)

ciao georg

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

---

Hi Seyfarth,
k.A. was Du falsch gemacht hast.
Du mußt den Code von:
"(defun C:LSUMME2 (/ VLADOC APICKSTYLE OBJ LAYER AUSW LEN Z O VLAO)..."

bis

...
(princ "\nStart mit \"LSUMME2\".")

komplett markieren, via Zwischenablage in 'ne Textdatei kopieren, die Datei speichern als z.B. "lsumme2.lsp", diese in Acad laden und dann nur noch den Befehl "lsumme2" eingeben...

Bei mir geht das problemlos, der Code ist intakt.

------------------
Ciao,
Marc

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

---

Hallo,

danke für Eure Bemühungen, habe fast alle Angebote ausprobiert.

Die LSP von Bernd paßt am besten zu meinem Problem.
Bernd, ich werde mir deine "Vollversion"  holen!

Nochmal Danke!

I.Seyfarth

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

---

Uh, Oh,
40€?
Na dann berichte mal, ob das Ding sein Geld wert war.

------------------
Ciao,
Marc

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