---

Hallo Leute,

weiß grad nicht mehr weiter.
Würde gern die Multilinien auswerten, so dass ich die Gesamtlängen zu den einzelnen Maßstäben raus bekomme...
…geht das mit einem Lisp oder so?

Danke schon mal!

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

---

Was haben Maßstäbe(was für Maßstäbe?) mit MLinien zutun ???

Zudem kann man vorab aber schon sagen: Ja, mit Lisp kann man das auswerten.

EDIT: Habe mal Google gefragt was es zu Mline, Lisp und length kennt: KLICK
------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Hier war IMHO schon mal das Thema

oder sowas:

(defun DT:ML-GET-KOORDS ( ML-OBJ / COORDS POINTS)
  (if(and(setq ML-OBJ(cond                                        ;_ VLA-OBJEKT erzeugen
                      ((=(type ML-OBJ) 'VLA-OBJECT) ML-OBJ)
                      ((=(type ML-OBJ) 'Ename) (vlax-ename->vla-object ML-OBJ))   
                    )
        )
        (=(strcase(vla-get-Objectname ML-OBJ))"ACDBMLINE")  ;_ Ist es eine Multilinie ?
        (setq COORDS(vlax-safearray->list            ;_ StützpunktKoordinaten auslesen
                      (vlax-variant-value               
                        (vlax-get-property ML-OBJ 'coordinates)
                      )
                    )     
        )
        (repeat (/(length COORDS)3)
          (setq POINTS(cons(list(car COORDS)(cadr COORDS)(caddr COORDS))POINTS))
          (setq COORDS (cdddr COORDS))
          POINTS
        )                         
    )
    (reverse POINTS)
  )
) 
(defun c:MLINEL?( / MLOBJ POINTS L)
  (if(and(setq MLOBJ(car(entsel "\nMULTILINIE wählen:")))
        (setq POINTS(DT:ML-GET-KOORDS MLOBJ))
    )
    (progn
      (setq L 0)
      (repeat (1-(length POINTS))
        (setq L (+ L(distance (car POINTS)(car(setq POINTS(cdr POINTS))))))
      )
      (prompt (strcat "\nMultilinienlänge: " (rtos L 2 3) "\n"))
    )
    (prompt "\nKeine Multilinie gewählt")
  )
 
)
------------------
      - 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

---

wow, das ist gar nicht mal so schlecht, danke!!
Man kann doch bei der Multilinie den Abstand (Maßstab) der Linien angeben.
Wenn ich jetzt die Multilinien mit verschiedenen Abständen (Maßstäben) zeichne, kann man dann die Auswertung so auslegen, dass er mir diese unterscheidet 
Ausgabe z.B .:
-mit Abstand (Maßstab) 5cm : Gesamtlänge X
-mit Abstand (Maßstab) 10cm : Gesamtlänge Y
- usw.

Kann man die auch mit Fenster auswählen und nicht durch anklicken.

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

---

Kann man alles, wenn man (programmieren) kann !
AutoDESK bietet diese Möglichkeit(en) aber nicht an.

Mir ist jedoch auch immernoch völlig unklar wie du bei dem Thema auf das Wort "Maßstab" kommst,
da es aber zur eigentlichen Frage nicht weiter interessant sein wird ist es auch recht egal.

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

@cadffm:

Zitat:

---

Mir ist jedoch auch immernoch völlig unklar wie du bei dem Thema auf das Wort "Maßstab" kommst,
da es aber zur eigentlichen Frage nicht weiter interessant sein wird ist es auch recht egal.

---

Wenn Du eine Multilinie zeichnest, kannst Du mit der Option "Maßstab" die Breite festlegen. Ich habe z.B. verschiedene Multilinien-Stilvorlagen mit einem Außenabstand der Linien von +/- 0.5 Einheiten, also 1 Einheit Gesamtbreite bei Maßstab 1. Gebe ich nun z.B. vorm Zeichnen mit der Option m(aßstab) 15 ein, wird die Linie 15 Einheiten breit gezeichnet usw...

Gruß, Walter

------------------
FAQ     Hilfe zum Dateiupload
Systeminfo anpassen

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

---

ah, danke Walther - Alfred hatte mich zwar auch schon aufgeklärt, aber ich
kam hier noch nicht zur Ergänzung, DANKE 

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Danke Walter, so habe ich das gemeint!!

Das mit dem „selber“ programmieren ist bei mir noch nicht wirklich soweit…hat vielleicht jemand sowas bereits im Gebrauch oder kann mir helfen das Lisp von CADmium oder das folgende, so umzubauen dass die Längen nach den verschiedenen Abständen (der Linien zu einander) oder nach den Stilen unterschieden werden und das man die Auswahl mit einem Auswahlfenster vornehmen kann?

(defun c:mll ()
  (setq Totlen 0 n 0)
  (setq e1 (car (entsel "\nSelect MLINE: ")))
  (setq VertList (get_mline_cor (entget e1)))
  (repeat (- (length VertList) 1)
    (setq Pt1 (nth n Vertlist))
    (setq Pt2 (nth (+ n 1) Vertlist))
    (setq VertDist (distance Pt1 Pt2))
    (setq Totlen (+ TotLen VertDist))
    (setq n (1+ n))
  )
  (princ (strcat "\nLength of MLINE= " (rtos TotLen)))
  (princ)
)
(defun get_mline_cor (elst)
  (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 11 (car x))) elst))

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

---

ungetestet zum Feierabend

(defun c:mll (/ Totlen n z ml vertlist e1 pt1 pt2 vertdist n)
  (setq Totlen 0
z      -1
ml    (ssget '((0 . "MLINE")))
  )
  (if ml
    (while (setq e1 (ssname ml (setq z (1+ z))))

;(setq e1 (car (entsel "\nSelect MLINE: ")))
      (setq VertList (get_mline_cor (entget e1))
    n     0
      )
      (repeat (- (length VertList) 1)
(setq Pt1      (nth n Vertlist)
      Pt2      (nth (+ n 1) Vertlist)
      VertDist (distance Pt1 Pt2)
      Totlen  (+ TotLen VertDist)
      n       (1+ n)
)
      )
    )
  )
  (princ (strcat "\nLength of MLINE= " (rtos TotLen)))
  (princ)
)
(defun get_mline_cor (elst)
  (mapcar 'cdr
  (vl-remove-if-not '(lambda (x) (= 11 (car x))) elst)
  )
)

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

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

ungetestet aber funktioniert!
Und wenn man die längen jetzt noch auf die verschiedene Breiten unterscheiden will?
Weil so zählt er mir ja alle multilinien mit unterschiedlichen breiten zusammen…

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

---

ja, könnte man noch integrieren ... Selektion per Property MLineScale

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

---

Boardmittel: Schnellauswahl oder Filter oder...
oder noch ne Auswahl einbauen 

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

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

Was ist Schnellauswahl?
...mit Filter habe ichs schon probiert, das lässt aber die Auswahl nicht zu.

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

---

gib mal _qselect ein ..

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

---

funktioniert, BESTEN DANK!!
..und wieder was dazu gelernt!

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