---

Hallo alle zusammen!
wie kann ich am einfachsten eine DWG-Datei in die aktuelle geladene Datei(dwg) laden?
Die zu ladene DWG liegt in dem selben Verzeichnis, hat den selben Dateinamen + suffix.
--------------------------------------------------------------------
Kann man es direkt hinter der Schaltfläche hinterlegen oder muss man doch mit lisp anfangen?

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

---

per XREF
oder als Block

oder einfach aus dem Explorer in die Zeichnung ziehen

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

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

---

hallo CADwiesel,
erst einmal als Block. XREF steht noch unter ????.

Übrigens Suffix wäre dann immer konstant "xyz"

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

---

mach dir eben einen Button, auf den du dann den _insert befehl legst:
hier habe ich mal eben die Suche für dich bemüht:

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

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

---

hallo cadwiesel, danke für deinen hinweis.
aber ich habe mir das etwas anders vorgerstellt.
und zwar: eine dwg ist geladen, per mausklick auf die
schaltfläche "xyz" möchte ich automatisch einen block bzw. dwg
einfügen die in dem selben verzeichnis liegt und den selben
namen hat + suffix wie die aktuell geladene dwg(mit einem klick, und der block bzw. die dwg "hängt" am cursor).
der "user" darf natürlich NICHT manuell hingehen und den block bzw.
die dwg einfügen.
-------------------------------------------------------------------
meine überlegung war:
"xyz" schaltfläche lädt die lisp-datei, die dann von prinzip so
aufgebaut ist:
1.aktuellen pfad auslesen
2.dwg namen auslesen
3.neue varible def. (aktueller pfad+dwgname+suffix)
suffix ist konstant
4.(command _insert.........."neue varible".........)
-------------------------------------------------------------------
da ich ein "lisp-anfänger" bin kann ich die "..." nicht so genau
mit leben füllen :-)
Vielleicht geht es auch einfacher!  ?
Ich freue mich für jede lösung

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

---

1.  (setq PFAD(getvar "DWGPREFIX"))
2.  (setq DWG (getvar "DWGNAME")
3a. (setq SUFFIX "-1")
3b. (setq NAME (strcat PFAD (cadr(fnsplitl DWG)) SUFFIX ".DWG"))
4.(if (findfile NAME)
    (progn
      (command "_insert" NAME)
      (while (/= 0 (getvar("cmdactive"))
        (command pause)
      )
    )
  )

Und damit du aus dem Stadium des Lispanfängers rauskommst : Mapcars Tutorial

------------------
       - 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 cadmium 
genau so habe ich mir es vorgestellt gehabt!

hinweis: bei 2. fehlt die klammer am ende
und die Plausibilitätskontrolle habe ich erst
einmal weggelassen, weil irgendwo eine klammer fehlt.?

ansonsten läuft es wie geschmiert!

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