---

Hallo ich habe ein Problem mit einem "Upgrade" von 2007 auf 2010

folgender Codeschnipsel

Code:

---

 
(Command "_area" "_o" (handent (car so_graf)))
(setq lg (/ (getvar "perimeter") (getvar "DIMLFAC")))

---

Das Objekt ist immer eine Polylinie.
Wenn die Polylinie z.B. Z-förmig ist
gab es in ACAD 2007 kein Problem
in ACAD 2010 gibt es folgende Fehlermeldung

Zitat:

---

Fläche einer selbstschneidenden Kurve kann nicht berechnet werden.

---

Ich hoffe mir kann jemand helfen.

------------------
schöne Grüsse

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

---

ich denke ACAD ist da endlich mal konsequent, anbei das Ergebnis in 2008
        
Immer die gleiche Kurve .. einmal als 2 Dreiecke ... einmal, die gleichen Dreiecke einschließende sich überkreuzende Pl und einmal als nicht geschlossenen PL ... mit der jeweils angezeigten Fläche

such dir was aus    

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

---

Hallo

Ich hab mich denke ich etwas lückenhaft ausgedrückt

Ich hab das Problem, dass die Lisp-Routine einfach abbricht.

Ich benötige nur die Länge der Polylinie.

------------------
schöne Grüsse

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

---

    (gilt der ursprünglichen Problembeschreibung  )

z.B.:

(vla-get-length(vlax-ename->vla-object(car(entsel "\nPolylinie:"))))

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

---

Vielen herzlichen Dank

Genau das brauche ich.

Als Hobby - Freizeit - so ab und an mal - Lispler tu ich mich mit dem ActiveX
oder wie das heisst sehr schwer.
Denke ich sollte mich da mal einlesen.

------------------
schöne Grüsse

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

---

Hallo,

Ein Beispiel für eine oder mehrere Polylinien, ohne VL-Befehle.

;;------------------------------------
(defun C:PLL (/ SS I LP EN)

(prompt "\nBitte Polyline\(n\) wählen: ")
(while (not SS)
  (setq SS (ssget '((0 . "*POLYLINE"))))
  (if (not SS)
  (alert "Es wurde nichts gewählt")
  )
)
(setq I  (sslength SS)
      LP 0
)
(while (not (minusp (setq I (1- I))))
  (setq EN (ssname SS I))
  (command "_.AREA" "_E" EN)
  (setq LP (+ LP (getvar "PERIMETER")))
)
(princ (strcat "\nLänge der " (itoa (sslength ss)) " Polylinien = " (rtos LP 2 2) ))
(princ)
)
(princ)
(prompt "\nC:PLL")
(princ)
;;---------------------------------

Gruß
Theodor
www.cad-cnc.com

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

---

Hallo Theodor

...IMHO funktionierten genau diese Zeilen laut 1.Posting in 2010 nicht, weil area da nicht will !!! Selbst ausgetestet hab ich es allerdings nicht. Vielleicht kann ja noch mal jemand sein 2010 bemühen.

Aber man kann Polylinienlängen natürlich auch ohne ActiveX berechen. über (distance ) und etwas Mathe bei den Bögen ist das ja kein Problem ... allerdings auch kein 10-Zeile mehr.

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

---

bei sich kreuzenden polylinien kommt bei mir im autocad 2010 folgende fehlermeldung:
"Konnte Fläche nicht berechnen."

jedoch wenn du nur die länge einer polylinie benötigst, würde ich als alternative zum befehl "_.AREA", "_.LENGTHEN" verwenden. und anschließend wie gehabt die länge aus der systwemvariabel "PERIMETER"
holen.

mit besten grüßen
Manuel

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

---

also rudimentär umgesetzt:

(setq PL(car(entsel"\nPL wählen:")))
(command "_lengthen" (ssadd PL) "")
(setq L (getvar "perimeter"))

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

---

Hallo Thomas,

".. allerdings auch kein 10-Zeile mehr."

... kann ich bestätigen, ich habe es für CNC benötigt, hinzu kommt noch, dass es für Polylininen und LWPolylinien funktionieren soll.

Gruß
Theodor

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