---

Hallo Forum,

mit beigefügtem Makro ersetze ich in einer Zeichnung den Block „A0“ aus dem Verzeichnis „C:/Daten“.
Würde gerne das Makro ausbauen und dem Benutzer die Möglichkeit geben den Block selbst auszuwählen.
Geht das? Kann mir jemand dabei helfen?

Viele Grüße
Waldemar

(Defun C:HBEEWP ()
  (progn
    (setvar "attreq" 0)
    (command "_INSERT" "A0=C:/Daten/A0.dwg" '(0 0 0) 1 1 0)
    (command "_attsync" "_n" "A0")
    (entdel(entlast))
    )
); Defun

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

---

Hallo
vllt. Hilft dir "getstring" ja schon weiter
siehe Acad-Hilfe
mfg heiko

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

---

Mit getstring kann ich nur im Befehlsfenster Eingaben machen.
Ich will über Dialogfenster wie Öffnen, Speichern Unter usw.

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

---

guck mal hier

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

---

...
blocktausch.lsp von cadwiesel???

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

---

Thomas,

danke für den Link. Es hat sehr geholfen. Bin fast am Ziel.

Wie kann ich aus dem String "C:\\Daten\\A0.dwg" (der sich wg. Verzeichnis und Dateiname ändern kann)
alles nach dem letzten "\\" herausfiltern? Für den _INSERT brauche ich den reinen Dateinamen.

Ich muss nämlich (command "_INSERT" "A0=C:\\Daten\\A0.dwg" '(0 0 0) 1 1 0) eingeben um den vorh. Block zu ersetzen.

Grüsse
Waldemar

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

---

na so ähnlich

(Defun C:HBEEWP ( / a)
  (if(and(setq a(getfiled "Block  einfügen" "d:/" "DWG" 16))
        (setq a(findfile a))
    )
  (progn
    (setvar "attreq" 0)
    (command "_INSERT" (strcat"A0=" a) '(0 0 0) 1 1 0)
    (command "_attsync" "_n" "A0")
    (entdel(entlast))
  )
  ) 
)

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

---

Nicht ganz.

an der Stelle von "A0" in (strcat"A0=" a) muss ich eben nur den Dateinamen aus der Variable "a".
"a" ist der ganze Pfad und Dateiname

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

---

ach so .. na dann :

(Defun C:HBEEWP ( / a b)
  (if(and(setq a(getfiled "Block  einfügen" "d:/" "DWG" 16))
        (setq a(findfile a))
        (setq b (cadr (fnsplitl a)))
        (tblobjname "BLOCK" b)
    )
  (progn
    (setvar "attreq" 0)
    (command "_INSERT" (strcat b "=" a) '(0 0 0) 1 1 0)
    (command "_attsync" "_n" b)
    (entdel(entlast))
  )
  ) 
)

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

---

Thomas,

vielen Dank. Das ist es !!!

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