---

Hallo zusammen,

ich bin relativ unerfahren in VBA ACAD, deshalb habe ich eine Fragen an euch.
Wie kann ich am besten alle Objekte von einem Blatt kopieren und diese, auf der selben Position, in eine andere Datei einfügen?

Gruß

hti

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

---

Servus,

(progn (ssget) (command "_ucs" "_w") (command "_copybase" "0,0" "_p""") (command "_ucs" "_p"))
(progn (command "_ucs" "_w") (command "_pasteclip" "0,0") (command "_ucs" "_p"))

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

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

---

Wie setze ich das in meinen Code ein?

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

---

Es hat sich soeben herausgestellt das meine gedachte Lösung nicht realisierbar ist.

Gibt es eine Möglichkeit allen Blöcken eine Zahl/Buchstaben voranzuschreiben.

Ich habe beispielsweiße in einer Zeichnung 20 Blöcke, deren Namen ich nicht kenne. Ich möchte jetzt vor jedem Block eine Zahl/Nummer schreiben.

Ich hoffe ihr könnt mir helfen.

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

---

Hallo,

was hast du denn bis jetzt programmiert?

Es gibt eine Funktion "COPYOBJECTS" mit einem Beispiel aus der Suche.
Hier ist was um alle Blöcke zu suchen.

Oder war der Gedanke so, dass dir einer was programmiert?

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

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

---

Hallo,

das mit den Kopieren hatte ich soweit schon, nur das Problem war, das
manche Blöcke schon auf dem anderen Ballt vorhanden sind. Jetzt wäre mein Plan alle Blöcke auf dem Blatt umzubennen und anschließen erst zu kopieren.
Bis jetzt ändere ich den Namen der Blöcke mit untenstehen Code.

For Each objblock In ThisDrawing.Blocks
    If Left(objblock.Name, 1) Like "E" Then
    objblock.Name = c & "_" & objblock.Name
    End If
Next

Würde es eine Alternative dazu geben, da ich mir nicht sicher bin, dass alle Blöcke mit dem Buchstaben E beginnen.

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

---

@hti
Es läßt sich eine gewisse Unsicherheit aus deinen Posts herauslesen,
da hier sehr Erfahrene Anwender sind (ich rede nicht mal von "Programmierern")
wärees unter Umständen zu deinem Vorteil wenn du möglichst detailliert schilderst
a) was du hast
b) was du möchtest

und möglichst eine gute Beschreibung darüber was du damit bezweckst.
Denn oftmals steht diesen Beschreibungen im Wege das der Fragesteller bereits eine
Lösung im Kopf hat und viele Informationen wegläßt, da diese aus seiner Sicht
nicht relevant sind.

Und wenn es um Blöcke geht:
Blöcke sind die Definition, das was du anpicken kannst in der Datei sind die Blockreferenzen.

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

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