---

Hallo an alle,

Autocad ist eine Weile her bei mir. Habe momentan einen Anwendungsfall und ich erinnere mich dunkel an LISP. Folgende Thematik:

Meine Hauptzeichnung enthält mehrere hundert Einzelgeometrien die als separate DXF benötigt werden.
Wunsch: Geometrie markieren, LISP-Befehl ausführen...
a. Routine kopiert in die Zwischenablage,
b. erstellt neue Zeichnung und fügt Daten dort auf 0,0 ein
c. speichert diese als DXF2000 ab (und fragt nach dem Dateinamen...)
(d. alternativ: DXF-Dateinamenvergabe erfolgt nach Namensvorgabe in LISP-Skript  )

Geht sowas mit LISP!?
Gruß

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

---

Hast du das denn schon mal von Hand probiert? Als diese Einzelschritte?
Wenn das geht, kannst du das auch automatisieren.
Ich würde mal ja, geht, antworten.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Servus, zu Fuß geht das auf jeden Fall:

1. Markieren
2. kopieren: STRG + C
3. neue Datei: STRG + N
4. einfügen: STRG + V
5. einfügen auf Null: 0,0
6. STRG + S

Wie kann ich das sinnvoll in eine LISP-Routine unterbringen? Kann diese überhaupt Dokument übergreifend agieren (nach Neuerstellung per STRG + N)?

Gruß

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

---

Ein Lisp arbeitet an sich nicht über mehrere Dateien.

Aber warum Copy&Paste? Wie schaut es mit WBlock aus?

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Zitat:

---

Ein Lisp arbeitet an sich nicht über mehrere Dateien.

---

Wo bist du abgebogen?
Oder hab' ich was verpasst?

Kann mich nicht anschließen

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Also ich finde die Idee mit Wblock am sinnvollsten.

@CADwiesel
Bei bei meinen Lisp-Kenntnissen würde die Routine auch nur bis zum Öffnen einer neuen Datei kommen. Danach wird die neue Datei aktuell gesetzt und Lisp abgebrochen.
Falls Du weißt, wie man den Code in einer neuen Zeichnung fortsetzt: Meine Ohren sind gespitzt.

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt! 

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

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

---

Zitat:

---

Original erstellt von CADuceus:

Falls Du weißt, wie man den Code in einer neuen Zeichnung fortsetzt: Meine Ohren sind gespitzt.

---

Stichwort ActivX / DBX-Server : Über die Schnittstelle kann man Zeichnungen im Hintergrund öffnen usw...

Für Dein Problem geht auch die Arbeitsweise "Auswählen außer" , Auswahl löschen … speichern als was auch immer , anschließendes Undo und Spiel von vorn ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Zu spät, aber als Ergänzung:
@CADuceus
passend für deine Kenntnisstand würde man mit SDI arbeiten, dabei ist immer genau nur eine Datei offen
und man kann von einer Datei in die nächsten wechseln (wobei die vorherige geschlossen wird/werden muss,
da ja immer nur genau eine Datei pro Programminstanz offen ist.
Stichwort: SDI und Lispinit

Möchtest du noch weiter gehen so mußt du das (offenbar bekannte) AutoLISP verlassen und dir die VisualLISP Erweiterungen ansehen,
in dem Fall anstatt des DXF Modellobjektes (falls ich das so als synonym für AutoLISP schreiben darf) das ActiveX-Objektmodell ansehen.

Du kannst Dateien öffnen und bearbeiten ohne diese im Programm "aktuell" zu setzen,
man könnte dann auch noch weiter gehen und die Dateien über eine noch weiter eingeschränkte
Schnittstelle öffnen, welche dann superschnell ist, aber einige liebgewonnen Funktionen nicht unterschützt.

ActiveX - Modell

Mache mal zwei,drei Dateien auf (mit nicht so vielen Layouts) und gebe dieses ein:
(vlax-for FILE (setq CDS (vla-get-documents(vlax-get-acad-object)))
  (if (setq FILENAME (vla-get-Name FILE))
      (vlax-for LAYOUT (vla-get-Layouts FILE)
(alert (strcat (vl-filename-base FILENAME) " - " (vla-get-Name LAYOUT)))
      )
  )
)

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

---

Zitat:

---

Original erstellt von CADwiesel:

Wo bist du abgebogen?
Oder hab' ich was verpasst?

Kann mich nicht anschließen

---

"An sich" war gemeint in dem Sinne, dass - wie auch cadffm dann erläuterte - bei der aktuellen Fragestellung bzw. Wissenstand die Problemlösung für Einsteiger schon ein paar Minuten Aufwand verursacht.

Aber ohne "an sich" gelten natürlich die obigen Hinweise.

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Hallo an alle,

vielen Dank für die Mühe und die bisherigen Ansätze!  Ich bastel mal weiter und versuche eine praktikable Lösung umzusetzen.
In jedem Fall ein netter Ausflug in die 2D-Welt 

Gruß

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

---

Ich muß dich enttäuschen, auch diese Welt ist 3-Dimensional!
Bin gespannt wie es weitergeht 

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

---

Ein Workaround ist gebastelt:

Code:

---

(defun c:x ()
  (setvar "cmdecho" 0)
  (prompt "\nBitte Element auswählen")
  (command "cutclip")
  (command "newdocument" "paste" "0,0,0")
  (command "_.saveas")
  (command "closedocument")
)

---

Läuft soweit, Dateiname eingeben, Enter und nächste Geometrie wählen... (läuffähig im AutoCAD-Klon "NanoCA")

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