| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: _area / selbstschneidende Kurve (1553 mal gelesen)
|
kist Mitglied
Beiträge: 78 Registriert: 20.01.2005 Acad 2010 Windows XP SP3
|
erstellt am: 15. Mrz. 2010 09:41 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 15. Mrz. 2010 10:01 <-- editieren / zitieren --> Unities abgeben: Nur für kist
|
kist Mitglied
Beiträge: 78 Registriert: 20.01.2005 Acad 2010 Windows XP SP3
|
erstellt am: 15. Mrz. 2010 10:57 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 15. Mrz. 2010 11:01 <-- editieren / zitieren --> Unities abgeben: Nur für kist
|
kist Mitglied
Beiträge: 78 Registriert: 20.01.2005 Acad 2010 Windows XP SP3
|
erstellt am: 15. Mrz. 2010 11:16 <-- editieren / zitieren --> Unities abgeben:
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 |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 15. Mrz. 2010 22:57 <-- editieren / zitieren --> Unities abgeben: Nur für kist
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 16. Mrz. 2010 06:31 <-- editieren / zitieren --> Unities abgeben: Nur für kist
|
thors-hammer Mitglied technischer Angestellter
Beiträge: 19 Registriert: 25.10.2006 AutoCAD 2012, Windows 7 (64bit)
|
erstellt am: 16. Mrz. 2010 08:24 <-- editieren / zitieren --> Unities abgeben: Nur für kist
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 16. Mrz. 2010 08:45 <-- editieren / zitieren --> Unities abgeben: Nur für kist
|
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 16. Mrz. 2010 10:04 <-- editieren / zitieren --> Unities abgeben: Nur für kist
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 |