---

Hallo Forum,

ich bräuchte einen kleinen Schups in die richtige Richtung.
Ich habe Zeichnungen in denen ich Linien anhand der Länge in einen Auswahlsatz bekommen möchte.
Mit der Schnellauswahl funktioniert das ja nicht, mit dem Filter hab ichs auch nicht hin bekommen.
Da ich nun schon einige kleine Lisp-Programme erfolgreich im Einsatz habe, dachte ich an ein kleines Lisp.
Mein Problem ist nun das es ja keinen Gruppencode für die Länge einer Linie gibt. Wie kann ich also mit ssget arbeiten ohne Gruppencode-Linienlänge?

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

---

dann musste alle Elemente durchlaufen lassen und die Länge prüfen und schauen ob sie in deinem Bereich liegt!

ihmo kann man die Schnellauswahl entsprechend anpassen nur hab ich gerade mein Acad nicht zur Hand ;-)

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
-Lots of irritating superfluous parentheses!-

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

---

Zitat:

---

Original erstellt von Madler:
... Wie kann ich also mit ssget arbeiten ohne Gruppencode-Linienlänge?

---

gar nicht.
Du musst alle Linien einsammeln und dann die Länge ermitteln und entscheiden, ob diese zu den gesuchten gehört oder nicht.
ich würde mir eine Liste der Elementnamen aus dem Auswahlsatz machen und dann mit (vl-remove-if '(lambda (E) ...) die unnützen aus der Liste entfernen.

Bei Fragen ...

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Schnell_Linien.jpg

Zitat:

---

Original erstellt von Madler:
Hallo Forum,
...
Mit der Schnellauswahl funktioniert das ja nicht, ...

---

Hallo Madler,

wieso sollte es mit der Schnellauswahl nicht gehen?
Auswahl z. B. wie folgt (s. Bild):
Objekttyp:  Linie
Eigenaschaften:  Länge
Operator:  < kleiner als
Wert:  Wert eingeben

Oder habe ich etwas falsch verstanden?

Gruß
Thomas

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

---

Vielen Dank für Eure Anregungen. Ich werde mal mein glück versuchen und mich später nochmal melden.

@ spider
Ich möchte ja nicht Linien haben die Kleiner sind als die gesuchte Länge. Ich suche ja Linien mit einer bestimmten Länge. Dies scheint mit der Schnellauswahl nur bei Linien mit 1 Nachkommastelle zu funktionieren. Hab versucht eine Linie z.B. 100.1234 zu erfassen..leider erfolglos.

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

---

Mal eine Funktion zur Aufgabe :

(vl-load-com)
(defun SSGETL(L FUZZY / AWS LI)
  (or(numberp FUZZY)(setq FUZZY 0.000000000001))
  (if (and(or(numberp L)(prompt "\nLängenvorgabe erforderlich"))
          (setq AWS(ssget "_x" (list '(0 . "*LINE")(cons 410(getvar "CTAB")))))   
          (setq LI(vl-remove-if 'null
                    (mapcar
                      '(lambda(X / O V D)
                          (if(and(setq O (cadr X))
                                (setq V (vlax-ename->vla-object O))
                                (setq D (vlax-curve-getdistatparam V
                                          (vlax-curve-getendparam V)
                                        )
                                )
                                (equal L D FUZZY)
                            )
                            O
                          ) 
                        ) 
                      (ssnamex AWS)
                    )
                  ) 
          )
      )
    (progn
      (setq AWS(ssadd))
      (mapcar '(lambda(X)(ssadd X AWS))LI)
      (sssetfirst AWS AWS)
      AWS
    ) 
  ) 
) 

------------------
  - 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

---

Zitat:

---

Original erstellt von Madler:
Ich suche ja Linien mit einer bestimmten Länge. Dies scheint mit der Schnellauswahl nur bei Linien mit 1 Nachkommastelle zu funktionieren. Hab versucht eine Linie z.B. 100.1234 zu erfassen..leider erfolglos.

---

Dann machst Du irgendwas falsch.
gerade getestet mit:

• Objekttyp:  Linie
  
• Eigenschaften:  Länge
  
• Operator:  = Gleich
  
• Wert:  100.1234

es werden genau die richtigen Linien selektiert, keine kürzeren und keine längeren...

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

---

...  und wenn Du Linien haben willst, die nur so ungefähr 100.1234 lang sind (also z. B. irgendwo zwischen 100.123 und 100.124) geht das natürlich auch.
Erst Auswahl auf Länge kleiner 100.124 und dann Schnellauswahl  Anwenden auf:  Aktuelle Auswahl  Länge größer 100.123 z. B.

Gruß
Thomas

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