---

Hi,

ich möchte die gesamtlänge von einzelnen Linien
haben, ohne sie einzeln zu messen und dann mit dem Tischrechner
zu addieren.  Ist das über ein Lisp möglich?

Gruss
Wolli

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

---

cadwiesel.de - geht mit polyŽs , evtl auch mit Linien ?
schau mal nach....

Die richtige Antwort lautet: JA das geht.

Suche im Forum: "Gesamt" + "länge" !
------------------
  Gruß Sebastian , Ffm
Der Feind des Guten ist das Bessere.

[Diese Nachricht wurde von cadffm am 15. Januar 2003 editiert.]

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

---

also nochmal:  (gesucht und nix passendes gefunden)

da liegen 50 linien mit verschiedenen längen mit einem Abstand von X
parallel nebeneinander.
Jetzt möchte ich die Linien markieren und dann die gesamtlängen
(in addition) haben ?!

Hoff eich hab mich verständlich ausgedrückt.

Gruss wolli

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

---

Ja das hast du schon die ganze Zeit !-
also habe ich jetzt MEINE ZEIT geopfert und sage dir:
SIEH GENAUER NACH !
cadwiesel.de/sonstiges/sonstiges/laenge.lsp

[Diese Nachricht wurde von cadffm am 15. Januar 2003 editiert.]

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

---

ok ok

hab genauer geguckt, gesucht, gefunden, probiert und.....
genau das hab ich gesucht.
Vielen Dank für Deine Zeit.

Gruss
Wolli

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

---

war ja net so jemeint...);

viel Spaß damit...

------------------
Gruß Sebastian , Ffm
Der Feind des Guten ist das Bessere.

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

---

HI,

heute morgen beim Test hat es geklappt.
Jetzt diese Fehlermeldung :

Objekte zur längenermittlung wählen:
Objekte wählen: 1 gefunden

Objekte wählen: 1 gefunden, 2 gesamt

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

Was ist passiert?

Gruss wolli

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

---

ergänze im quellcode folgendes

(defun C:gesla (/ ss T_2 lang)
  (vl-load-com) ;_ ActiveX Extension laden <-----NUR DIESE ZEILE HINZUFÜGEN
  (setq Ss nil
        t_2 nil
        lang 0

------------------
Grüße aus dem Rheingau.
Rolf aka Benwisch

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

---

hat leider nicht geklappt.

Gruss wolli

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

---

Hallo Wolli,
anbei ein kleines VBA-Tool.

Code:

---

' FELETIC - 15.01.2003
Public Sub Linienlänge()
' gibt Gesamtlänge aller gezeigten Linien an
   
    Dim ss As AcadSelectionSet
    Dim FltTypes(0) As Integer
    Dim FltData(0) As Variant
   
    Dim LinObj As AcadLine
    Dim Laenge As Double
    Dim Nachkomma As Long
   
    ' Frage nach den zu bearbeitenden Blöcken
    Set ss = CreateSelectionSet("LinienlängeAuswahl")
    FltTypes(0) = 0: FltData(0) = "LINE"
   
    ' Selectionset erstellen, Benutzer fragen und Filter anwenden
    ss.SelectOnScreen FltTypes, FltData
   
    If ss.Count = 0 Then GoTo ENDE
   
    For Each LinObj In ss
   
        Laenge = Laenge + funDist(LinObj.startPoint, LinObj.endPoint)
   
    Next LinObj
   
    Nachkomma = ThisDrawing.GetVariable("luprec")

    ThisDrawing.Utility.Prompt vbCr & "Gesamtlänge der " & ss.Count & " gezeigten Linien: " & funPunkt(LTrim(Format(Laenge, "0." & String(Nachkomma, "0"))))
ENDE:
    ss.Delete
End Sub

'Ersetzt Komma durch Punkt
Public Function funPunkt(Wert)
    Dim Punkt As Long
    Dim Komma As Long
   
    Wert = LTrim(Wert)
    Komma = InStr(Wert, ",")
    If Komma > 0 Then Mid(Wert, Komma) = "."
    Punkt = InStr(Wert, ".")
    If Punkt = 1 Then Wert = "0" & Wert
   
    funPunkt = Wert
End Function

' Abstand zwischen Punkt1 und Punkt2
Public Function funDist(Punkt1, Punkt2)
'As illustrated, Distance can accept both 3D and 2D points in the same call.
'Doing so results in a 2D distance (the distance you would get if both points were on the same plane).
'To get a 3D distance, both points must be 3D.
    Dim Dist As Double
    Dim i As Long
   
    On Error Resume Next
    For i = LBound(Punkt1) To UBound(Punkt1)
        Dist = Dist + ((Punkt1(i) - Punkt2(i)) ^ 2)
        If Err Then Exit For
    Next

    funDist = Sqr(Dist)
   
End Function

Public Function CreateSelectionSet(Optional ssName As String = "SS") As AcadSelectionSet
   
    Dim ss As AcadSelectionSet
   
    On Error Resume Next
    Set ss = ThisDrawing.SelectionSets(ssName)
    If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
    ss.Clear
    Set CreateSelectionSet = ss

End Function

---

------------------
Roland

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

---

Versuch's nochmal! Lad' das Prog erneut und starte es evlt mit 'ner neuen Zeichnung.
Ich hab's gerade nochmal ausprobiert. Es geht einwandfrei.
Hast du nur linien? oder sind auch Ellipsen dabei?
Da wird nämlich ein command benutzt. Ich weiss nicht, wie sich das unter MDT oder INventor verhält.

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

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

---

@cadwiesel
habe den kompletten Rechner neu gestartet.
Es klappt weder mit dieser , noch mit einer neuen Zeichnung.
Ich habe nur gerade Linien ohne Kreise,Elipsen.

@RoSiNiNo
Wie muss ich mit dem Tool umgehen.(Habe vom Programmieren keinen
blassen schimmer)

Gruss wolli

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

---

morgen,

habe meine Arbeit mit Nachhause genommen und siehe da,
das Lisp klappt wunderbar.
Heute morgen hier = nix da. Die gleiche Fehlermeldung wie unten beschrieben.

Gruss wolli

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

---

Mensch, Wolli. Was hast Du denn da für 'ne Kiste?
funktionieren denn andere Lisp's?

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

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

---

Hi,

keine Probleme mit anderen Lisps.
Der erste Versuch nach dem Download hat ja auch toll funktioniert.
Da ich noch andere Acad versionen zur verfügung habe werde ich noch bei gelegenheit testen. Die Ergebnisse poste ich dann .

Gruss
Wolli

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

---

Hi,

auf ner reinen Acad02 Inst. funzt es ohne Probleme.
Auf ADT oder MDT klappt es nicht mehr.

Gruss Wolli

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

---

Hallo Wolli,

bei mir 2000i, ADT 3.0 läuft's

Lothar

------------------
Lothar Kramer

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

---

Zitat:

---

Original erstellt von cad-wolli:
[BWie muss ich mit dem Tool umgehen.(Habe vom Programmieren keinen
  blassen schimmer)
Gruss wolli[/B]

---

In AutoCAD ALT-F11 um VBA Editor
zu starten, im Menü Einfügen->Modul
wählen, Modul öffnen und Code reinkopieren.
In AutoCAD unter Extras->Makro->Makros
das Ding starten starten.

------------------
Bernd Cuder
Cad&Co makes CAD easy

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

---

Danke Bernd,
ich hab leider keine Meldung über neue Einträge bekommen, darum auch keine Meldung von mir.

------------------
Roland

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