---

Hi!

Ich möchte gerne die Länge von 3D Polylinien in die Zwischenablage übernehmen.

Leider kriege ich die Länge nicht ausgelesen, bzw. an die Variable "Laenge" vergeben. Aus den Forenbeiträgen werde ich nicht so recht schlau.

Folgendes habe ich hinbekommen:

Code:

---

(defun c:sg (/)

(princ "\nLinie wählen: ")
  (setq Objekt (ssget "_:S" '((0 . "PolyLINE"))))

;Wie ermittel ich hier die Gesamtlänge der 3D Polylinie und gebe diese an die Variable "Laenge" weiter???

(setvar "DIMZIN" 0)
(dos_clipboard
  (strcat Laenge)
)
(setvar "DIMZIN" 8)

)

---

Könnt Ihr mir helfen!

Viele Grüße,
  Sebastian

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

Ach ja,

nicht wundern, DIMZIN habe ich schon mal eingebaut, weil ich später auf zwei Stellen nach dem Komma auslesen will ;-)

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

(vla-get-length(vlax-ename->vla-object(car(entsel))))

oder du nutzt die vlax-curve...-Funktionen

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Habe das mit der Curve-Funktion mal probiert. Kannte ich bisher nicht und komme auch noch nicht so gut zurecht damit.

Ich kann den Wert nicht vernünftig an die Zwischenablage übergeben.

Code:

---

(defun c:sg ( / ename vlaxObj ObjLaenge)
(vl-load-com)
  (if (setq ename (car (entsel "\nObjekt wählen:")))
    (progn
      (setq vlaxObj (vlax-ename->vla-object ename))
      (setq objLaenge (vlax-curve-getDistAtParam vlaxObj (vlax-curve-getEndParam vlaxObj)))
    )     
  )
  (setvar "dimzin" 0)
  (rtos objLaenge 2 2)
  (setvar "dimzin" 8)
  (dos_clipboard
    (strcat ObjLaenge)
  )
)

---

Viele Grüße,
Sebastian

------------------
Warum seid Ihr alle schlauer als ich??? 

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

---

Weil objLaenge immer noch eine Zahl ist:
...
(setq objLaenge (rtos objLaenge 2 2))
...

sollte klappen.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Jo, vielen Dank an Euch!

10 U´s für jeden 

Zum einen für den Hinweis auf die Curve-Funktion, zum anderen für den Hinweis auf das vergessene setq. Manchmal macht aber auch die dümmsten Flüchtigkeitsfehler.

Funktionierender Komplettcode für alle die es gebrauchen können:

Code:

---

(defun c:sg ( / ename vlaxObj ObjLaenge)
(vl-load-com)
  (if (setq ename (car (entsel "\nObjekt wählen:")))
    (progn
      (setq vlaxObj (vlax-ename->vla-object ename))
      (setq objLaenge (vlax-curve-getDistAtParam vlaxObj (vlax-curve-getEndParam vlaxObj)))
    )     
  )
  (setvar "dimzin" 0)
  (setq objlaenge (rtos objLaenge 2 2))
  (setvar "dimzin" 8)
  (dos_clipboard
    (strcat ObjLaenge)
  )
)

---

Viele Grüße,
  Sebastian

------------------
Warum seid Ihr alle schlauer als ich??? 

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