---

Hallo,

Ich bin neu hier und auch neu in Acad VBA.
Vielleicht könnte mir jemand helfen.

Ich habe in Acad einen Block definiert mit einem bestimmten Namen.
Sagen wir einfach mal "Josef" 
"Josef" gibt es nur einmal in der Zeichnung und es wird auch nie einen zweiten "Josef" geben.

Ich möchte nun "Josef" um 1mm nach rechts verschieben.

Kann mir jemand sagen wie das geht?
Kann ja nicht so schwierig sein.
Hab schon 3 Stunden gegoogelt und nichts gefunden.

Habe Autocad 2004

Danke im Voraus

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

---

Hallo niclas, willkommen im Forum

So ganz verstehe ich Dein Problem nicht, denn im Prinzip brauchst Du dazu kein VBA.

Dein Block "Josef" kann jetzt zwei Bedeutungen haben, bei denen Du Verschiebungen machen möchtest:

Einmal als Blockdefinition, also praktisch die Vorlage, Definition. Die kann man nachträglich mit dem Blockeditor bearbeiten

Oder als Blockreferenz, diese besagt an welcher Stelle und mit welcher Skalierung die in der Blockdefinition festgelegte Zeichnung dargestellt werden soll. Den Einfügepunkt kannst Du über die Eigenschaften verschieben.

Soweit die Grundvoraussetzungen, jetzt bräuchten wir von Dir genauere Angaben und vielleicht schon mal Codeschnipsel wo Du nicht weiterkommst ...

Grüße
Klaus  

PS.: Hast Du auch in der Autocad Hilfe gesucht?
Unter "Handbuch für Benutzeranpassungen" - "ActiveX-Automatisierung und VBA" -
öffnet sich das ActiveX- und VBA-Entwicklerhandbuch
Dort gibt es das Kapitel
"Erweiterte Zeichen- und Strukturierungsfunktionen"
- "Verwenden von Blöcken und Attributen"
-- "Arbeiten mit Blöcken"
Hier sind auch Beispiele hinterlegt wie Blöcke geändert werden

[Diese Nachricht wurde von KlaK am 11. Mai. 2013 editiert.]

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

---

'untested
sub move_JC
dim e as acadentity
dim P(2) as double
dim i as long
dim b as acadblockreference
for each entity in thisdrawing.modelspace 'alles durchwueheln
if lcase(entity.objectname)="acdbblockreference" then 'is sich block
set b=entity 'mussu machen doofe entity pointer zu block pointer
if lcase(b.name)="josef" then 'hassu nun volle doenerrotweiss
for i=0 to 2 'kriegstu block koordinaten
p(i)=b.insertationpoint(i)
next
'voll krass koordinaten
p(0)=p(0)-1 'one step to the left (c) Frank N further
b.insartationpoint =p
exit sub 'cheffe sauna ferrdich
end if
end if
next
end sub

Die b.name funktion funktioniert nicht bei dynamischen blöcken
dort muss b.effectivename verwendet werden
das suchen nach blockreferencen mit einem bestimmten namen ist auch bissi ungeschickt - besser attribute verwenden und diese auslesen um dann zu entscheiden welcher block gemeint ist

------------------
wer es nicht versucht, hat schon verlorn

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