---

Hallo,

gibt es eine Möglichkeit, die Anfangs- und Endkoordinaten sowie die Radien einer Anzahl von Bögen und Linien in einer Text-Datei oder ähnlichem aufzulisten?

Vielen Dank schon mal im Voraus!

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

---

Probier es mal mit dem Befehl LISTE  ... (und dann F2 und copy&Paste)

sollte dir das nicht genügen, kann eine entsprechende Programmierung weiterhelfen -> Stichwort LISP , VBA ..

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

mit Bordmitteln "_list" und dann in eine Textdatei kopieren.

Lothar

------------------
From Autodusk Till Dawn

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

---

Tag zusammen,
Vielleicht hilft auch das bei Deinem Anliegen, ich weiß aber nicht, ob es auch Bögen macht.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

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

---

BÖGEN mit PEDIT mehrere Objekte
in Poyllinien umwandeln, dann
AutoCAD Befehl: LISTE
Das Protokoll über die Zwischenablage kopieren oder das Protokoll einschalten und die Befehlszeilenaktivität mitschreiben lassen.
Befehl LOGFILEMODE 1 und LOGFILENAME und LOGFILEON und LOGFILEOFF

Für eine schön formatierte Liste ist aber ein Makro nötig.
Evt hilft auch ein simpler NC Konverter, der bei Bögen Startpunkt, Mittelpunkt, Endpunkt und Radius ausgibt.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

...warum einfach, wenn es auch kompliziert geht????

Seit der 2008er können mit dem erweiterten Attributextraktor EATTEXT auch reine AutoCAD-Elemente ausgelesen werden sowohl in eine Textdatei aber auch in z.B. Excel.

------------------

gruß
Stephan

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

---

Zitat:

---

Original erstellt von StephanJP:
...EATTEXT auch reine AutoCAD-Elemente ausgelesen...

---

Im Prinzip guter Hinweis, aber den Wunsch, Start- und Endpunktkoordinaten von Bögen auszulesen, erfüllt EATTEXT leider nicht.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo,

vielen Dank erstmal.

Der Befehl: _list würde mir im Grunde schon ausreichen, aber er liefert leider nur den Mittelpunkt und nicht die Start- und Endkoordinaten.
Kann man da die Ausgabe anpassen?

Was das Zerlegen in Polylinien betrifft, so habe ich dann das Problem, dass es zu viele Linienstücke werden, d.h. zu viele Daten, die ich dann nicht mehr weiterverarbeiten kann (CNC-Programmierung per Hand :-( )

Andy

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

---

sehr quick und sehr dirty, aber die angaben sind alle drin :

(defun c:LISTEX(/ A I)
  (if(setq a(ssget))
    (progn
      (setq I -1)
      (repeat(sslength A)
        (vlax-dump-object(vlax-ename->vla-object (ssname A (setq I(1+ I)))))
      ) 
    )
  ) 
)

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

---

Danke!

Funktioniert!

Kann man das Ganze irgendwie kürzen, dass nicht alle, sondern nur diese drei Eigenschaften angezeigt werden?

Wahrscheinlich irgendwie ne dumme Frage, aber mit programmieren siehts bei mir eher düster aus.

Andy

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

---

 

Zitat:

---

Original erstellt von andyt:

Kann man das Ganze irgendwie kürzen, dass nicht alle, sondern nur diese drei Eigenschaften angezeigt werden?

---

sicher...
mal als Begrüßungsgeschenk

(defun c:LISTEX(/ A I O)
  (if(setq a(ssget '((0 . "ARC"))))
    (progn
      (setq I -1)
      (repeat(sslength A)
        (setq O(vlax-ename->vla-object (ssname A (setq I(1+ I)))))
        (princ (strcat
                "\nSTARTPUNKT:"
                (vl-princ-to-string
                  (vlax-safearray->list(vlax-variant-value (vla-get-startpoint O)))
                )
                "\nENDPUNKT: "
                (vl-princ-to-string
                  (vlax-safearray->list(vlax-variant-value (vla-get-endpoint O)))
                ) 
                "\nRadius: "
                (rtos (vla-get-radius O)2 4)
              )
        )     
       
      ) 
    )
  )
  (princ)
)

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

---

Super!!!!

Vielen Dank!

Andy

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