---

Hallo Zusammen,
ich bin kein Anwender von Autocad, möchte aber unserer technischen Abteilung unter die Arme greifen. Von Excel her habe ich relativ gute Kenntnisse in VB. Wir haben folgendes Problem:
Wir haben tausende von Zeichnungen, die ungültig sind und entsprechend gekennzeichnet werden müssen. Daher die Idee, über VB einen Block mit Text "Ungültig" quer über die Zeichnung zu setzen.
Dieser Block sollte sich automatisch an die Blattgröße anpassen so daß das Programm sich die Zeichnung holt, den Block einsetzt und wieder abspeichrt, dann die nächst Zeichnung usw.
Geht das auch über ein Script, und wie kommen die Dateinamen der Zeichnungen in das Script oder in das VB-Programm? Zeichnungen sind als Excelliste mit Pfad und Dateinamen verfügbar. Da das im Rahmen eines bevorstehenden Audits erfolgen soll, wäre ich über eine rasche und einfache Hilfe sehr dankbar.

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

---

Hallo Michael,

warum fügst nicht in den Dateinamen einfach 'ungültig' ein?
Kann ja auch automatisiert erfolgen. Oder muss es unbedingt in der Zeichnung gekennzeichnet sein?

Gruß TP

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

---

wäre einfach, geht aber nicht, die Zeichnung muß gekennzeichnet werden

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

---

Hallo Michael,

wie Du auf Excel zugreifst und dir die Dateinamen zusammenbastelst, das denk ich weißt Du.
Also nehmen wir mal an, das der DateiName in der Variablen strDatName steht.

Code:

---

Thisdrawing.Open FullName:=strDatName
ThisDrawing.SendCommand "zoom "
ThisDrawing.SendCommand "g "

---

nun kannst Du mit den Systemvariablen EXTMIN und EXTMAX die Ausdehnungen deines Ansichtsfensters auslesen.

Code:

---

Dim EMin as Variant
EMin = ThisDrawing.GetVariable("EXTMIN")

---

gespeichert werden diese Werte als Array und mit diesen Werten kannst Du deinen Block in die Zeichnung setzen.

Code:

---

Dim BlockRefObj as AcadBlockReference
set BlockRefObj = ThisDrawing.ModelSpace.InsertBlock(EMin, "C:\DeinBlock.dwg", XSklierung, YSkalierung, ZSkalierung, Rotation)

---

Die Skalierung musst Du Dir selbst ermitteln und eintragen.
Vielleicht kannst ja auch einen Text in die Ausdehnungen einpassen, dass musst aber selbst entscheiden.
Ich denke damit solltest Du schon weiter kommen.

Schönes WE ... Gruß TP

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

---

Wäre es nicht sinnvoll, als erstes in den Modellbereich zu gehen?

ThisDrawing.SetVariable("TILEMODE", 0)

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Hallo,

ja genau, hab nicht dran gedacht, das eine Zeichnung auch in der Layoutansicht gespeichert sein könnte.

Um die Zeichnung nach dem Block einfügen zu speichern, reicht ein
ThisDrawing.Save

Gruß TP

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