---

Gruesse aus den USA! 

Nun zu meiner Frage:
Ich habe in AutoCAD eine Zeichnung erstellt, ein Typenschild bzw. Leistungsschild. Sie besteht nur aus einzelnen Linien, die die Nenndaten voneinander trennen.
Ausserdem habe ich in VBA ein Programm geschrieben, dass mir eine txt-Datei oeffnet, Daten ausliest, damit wiederum eine Excel-Datei oeffnet, diese ausliest und die Daten darin dann in die Zeichnung an die richtige Stelle einfuegt. Aus der txt-Datei habe ich ausserdem die erste Seriennummer der chronologischen Reihe an Seriennummern ausgelesen und lasse sie, nach Eingabe der Anzahl zu druckender Schilder, hochzaehlen.
Soweit sogut!
Mein Problem besteht jetzt darin, die Zeichnung mit den nun darin befindlichen Nenndaten per VBA-Code zu kopieren/duplizieren und so oft auf den gleichen Modelspace einzufuegen, wie es mir die Anzahl vorgibt. Wenn das geschehen ist, muss dann in jedes Duplikat die entsprechende Seriennummer eingetragen werden. Das ganze soll dann naemlich mit einer Lasermaschine auf einzelne Edelstahlschilder gelasert werden.
Ich hoffe, ich konnte es ausfuehrlich und verstaendlich genug erklaeren und ihr versteht was ich meine.    Und ich hoffe ebenso, dass ihr mir da weiterhelfen koennt!  Sollten Fragen auftreten, scheut nicht mich zu loechern! 

MfG und vDiV
JoKurt87

------------------
"Um ein tadelloses Mitglied einer Schafherde sein zu können, muß man vor allem ein Schaf sein."
Albert Einstein

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

---

Mir ist zwar schleierhaft wie die Maschine an die Daten kommen soll für ein Schild ??
Aber angenommen man würde den Vorgang den du dir vorstellst nicht in Frage stellen, so hast du 2 Möglichkeiten.

Jedes Objekt mit geänderten Koordinaten erneut erstellen (mehrfach mit entsprechend angepassten Koordinaten,
oder ziemlich simpel mit dem AutoCadbefehl _copy kopieren.

Dafür brauchst du nur ein sendcommand dem du folgendes mitgiebst:
"_copy" "_all" "chr" "0,0,0" <neue Koordinate> <neue Koordinate...

Beispiele für die richtige Schreibweise etc. gibt es hier zuhauf.
Danach kommt der Teil die richtigen Texte zum anpassen zu finden.

Aber ehrlich gesagt interessiert mich eher ob dein Weg der Richtige ist.

willst du wirklich mehrfach nebeneinander ein lose Anzahl von Objekten in einer Dwg haben ?
Und wie bekommt der Laser an die Daten, SO von alleine ja sicher nicht !?
Also mußt du das ganze drucken ? Fragen über Fragen.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Danke erstmal fuer die Antwort!

Die Lasermaschine ist als Drucker auf dem PC installiert und funktioniert auch so. Man kann also die fertige Zeichnung einfach drucken als waere es ein normaler Drucker mit Papier.
Darauf aufbauend erklaert sich vllt auch weshalb ich mehrere Schilder in einem Layout benoetige. Ich habe dem Layout die Groesse der bedruckbaren Flaeche zugewiesen, in meinem Fall 24" x 12". Angenommen ich muss laut txt-Datei 21 Schilder drucken, dann soll mir das Programm das 1. Schild mit den Nenndaten aus der Excel-Datei fuellen und dann 21 mal auf dem bedruckbaren Bereich platzieren und chronologisch mit den Seriennummern fuellen.
Das Schild ist so gross, dass max. 28 Schilder (4 x 7) auf den bedruckbaren Bereich passen.

Ich hoffe das macht es etwas klarer...

------------------
"Um ein tadelloses Mitglied einer Schafherde sein zu können, muß man vor allem ein Schaf sein."
Albert Einstein

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

---

Ich sollte vllt hinzufuegen, dass ich vor 2 Wochen erst angefangen habe VBA zu programmieren. Davor bin ich nie damit in Beruehrung gekommen. Ich finde, dafuer bin ich schon ziemlich weit mit meinem Programm. 
Dass das mit der Lasermaschine so funktioniert, dafuer kann ich nix, ich muss es auch so hinnehmen.
Es waere also sehr nett, wenn eure Antworten etwas ausfuehrlicher/erklaerender ausfallen koennten. 

------------------
shit's getting real:

(sqrt(-shit))^2

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

---

Ich habe inzwischen eine annehmbare Loesung zu dem Problem gefunden, bin aber weiterhin fuer Vorschlaege offen!
Danke erstmal an alle die sich bisher Gedanken gemacht haben!
Hier der Code:

Code:

---

Dim dblPnt1(0 To 2) As Double
Dim dblPnt2(0 To 2) As Double
Dim dbltest1(0 To 2) As Double
Dim dbltest2(0 To 2) As Double
Dim objSS As AcadSelectionSet
Dim tSourceEnt As AcadEntity
Dim tCopyEnt As AcadEntity
         
Set objSS = ThisDrawing.SelectionSets.Add("plate")
dblPnt1(0) = 10: dblPnt1(1) = 11.55: dblPnt1(2) = 0
dblPnt2(0) = 15.85: dblPnt2(1) = 10: dblPnt2(2) = 0
objSS.Select acSelectionSetCrossing, dblPnt1, dblPnt2
dbltest1(0) = 10: dbltest1(1) = 10: dbltest1(2) = 0
dbltest2(0) = 15.85: dbltest2(1) = 10: dbltest2(2) = 0
For i = 0 To objSS.Count - 1
    Set tSourceEnt = objSS.Item(i)
    Set tCopyEnt = tSourceEnt.Copy
    Call tCopyEnt.Move(dbltest1, dbltest2)
Next

---

Wenn ich die kopierte Zeichnung jetzt aber per Hand markiere und loesche und danach das Programm erneut durchlaufen lasse, kommt die Fehlermeldung, dass das SelectionSet schon besteht.
Wie kann ich das loesen? Muss ich es loeschen und wenn ja, wie? 

------------------
shit's getting real:

(sqrt(-shit))^2

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

---

Zitat:

---

Original erstellt von JoKurt87:
Wenn ich die kopierte Zeichnung jetzt aber per Hand markiere und loesche und danach das Programm erneut durchlaufen lasse, kommt die Fehlermeldung, dass das SelectionSet schon besteht.
Wie kann ich das loesen? Muss ich es loeschen und wenn ja, wie?  

---

Geloest indem ich das Objekt, dem ich das SelectionSet zugewiesen habe, geloescht habe:

Code:

---

...
Next
objSS.Delete

---

------------------
shit's getting real:

(sqrt(-shit))^2

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

---

Mal eine andere Frage:
Warum erstellst Du Dir nicht einen Block mit den entsprechenden Attributen (Textfelder)?
Diesen Block kannst Du beliebig plazieren und die Attribute mit Deinen Werten (z.B. Seriennummern) füllen.

Schau mal in der Hilfe unter:
- AcadBlock (oBlock = Thisdrawing.blocks.add(,)
- oBlock.AddAttribute( )
- AcadBlockReferenz (oBlockRef=ThisDrawing.ModellSpace.InsertBlock(ipoint,oblock,..)
- oBlockRef.HasAttributes
- oBlockRef.Getattributes

Ist für den Anfang vielleicht etwas viel, aber es gibt hier auch genügend Beispiele

Viel Erfolg

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

---

... oder du erstellst das Zeug auf verschiedenen Layern und frierst und taust die wie du die brauchst.

Oder du erstellst die Objekte mit entsprechendem Versatz im Modelbereich und änderst den Viewport im Layout-Ansichtsfenster.

Oder du schaltest die Objekte einfach unsichtbar (Eigenschaft Visible)

oder, oder, oder

Grüsse!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Danke fuer die Loesungsmoeglichkeiten!  Ich habe das Problem inzwischen geloest, um mich neuen stellen zu koennen. 

------------------
shit's getting real:

(sqrt(-shit))^2

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