---

CNC.dwg.txt

Hallo erstmal.

Mir stellt sich von Zeit zu Zeit immer wieder folgendes kleines Problem. Für unsere CNC Fräse muß ich DXF-Dateien erstellen bei denen der Basispunkt immer an der äußersten oberen Ecke des jeweiligen Objekts ist.
Ich habe mal eine Datei mit dazu getan wo ich diese Punkte rot gekennzeichnet habe. Nun sind es meistens recht viele Einzelteile aus denen sich ein Baukörper zusammen setzt. Meine bisherige vorgehensweise ist wie folgt: Einzelteil markieren > kopieren mit Basispunkt > Basispunkt in der linken oberen Ecke wählen (Schnittpunkt der beiden Bemaßungslinien) > neue leere Datei erstellen > RMK Einfügen > 0 eintippen (zum verschieben des eingefügten Bauteils auf den Nullpunkt) > speichern als DXF12 (da dieses Format am besten von der Maschine gelesen wird)
Und dann so weiter mit allen anderen Bauteilen. ....
Gibt es eventuelle eine leichtere Möglichkeit, oder eine Automatisierung des ganzen?

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

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

---

Hallo Dressler!
.. klar kann man das automatisieren. Dafür gibts Lisp! Versuchs mal im Lisp-Forum... Könnte ungefähr so aussehen.. Zeichnung "scannen"-Maximale Objektkoordinaten( von Linie PL usw) merken und dann Objekt mit WBLOCK in ne neue Zeichnung schreiben. Bei Blöcken müssen die einzelnen Blockelemente durchlaufen werden .. kein Problem denke ich, bloß halt etwas aufwendig, wenn du eine komplettlösung erwartest.
Gruß Thomas

------------------
Thomas

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

---

Hallo Dressler,

CADmium hat Recht. Mit AutoLISP/VLisp ist das kein Problem.
Die folgenden Zeilen basteln dir den Punkt an die entsprechende Stelle. Soll mit einem Tool alles in einem Rutsch passieren, muss man doch etwas mehr Aufwand treiben.

Code:

---

(defun c:poli (/ elem mimapt mipt mapt pt)
  (setq elem (entsel))
  (if elem
    (progn
      (setq mimapt (getboundingbox (setq elem(car elem)))
            mipt (car mimapt)
            mapt (cadr mimapt)
            pt (list (car mipt)(cadr mapt))
            )
      (command "_.POINT" pt)
      )
    (princ "\nKein Element gewählt!")
    )
  )
(defun getboundingbox (ent1 / minpt maxpt)
  (vl-load-com)
  (vlax-invoke-method
    (vlax-ename->vla-object ent1)
    'GetBoundingBox
    'minpt
    'maxpt
    )
  (list (vlax-safearray->list minpt) (vlax-safearray->list maxpt))
)
(vl-load-com)

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

[Diese Nachricht wurde von Brischke am 12. Jan. 2004 editiert.]

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

---

Hallo Dressler,

Michael Brix hat vor einiger Zeit einen CNC-Generator zur Verfügung gestellt, der Dir gleich in ACAD die CNC-Daten ausgibt. Dann brauchst Du den umständlichen Weg über DXF nicht gehen.
Der Generator von Michael kostet nix.
Bei meiner Software habe ich auch einen CNC-Generator aber der ist nicht kostenlos. Auf meiner Seite ist eine Kurzbeschreibung. http://www.lehrer.uni-karlsruhe.de/~za685

Gruß
Theodor Schönwald

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