---

Hallo.
Wir arbeiten mit Acad 2006.
Folgendes Problemchen.
Wenn ich ein Element kopiere kann ich dieses Element mehrfach einfügen.Gebe ich nun einen Wert für den Abstand ein so wird eine Kopie in dem Abstand erzeugt. Nun möchte ich noch eine Kopie erzeugen
mit dem gleichen oder einem anderen Abstand jedoch nicht vom alten
sondern von dem neuen Bezugspunkt. Also als relativer Abstandswert.
So könnte ich z.B. schnell mal ein Element um 1000 dann um 500 oder um andere Werte versetzen. Ähnlich einer ungleichen Reihe.
Weis jemand Rat.
Vielen Dank.
Jürgen           

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

---

Hallo Jürgen,

wenn du nach dem ersten Einfügen wieder mit "Fang von Punkt" (_from)
den Einfügepunkt der letzen Kopie anwählst gehts weiter relativ zur letzten Kopie.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Vielen Dank.
Würde dies gerne als Macro unter ein Button legen.
Nur wie ??
Danke Jürgen

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

---

Hallo Jürgen,

hast Du die Expresstools installiert ?
Dort sollte es einen Befehl copym geben der genau das auch macht.
Aber Stellis Variante kannte ich noch nicht und find' ich auch prima !

Gruß
Heiko

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

---

Hi,

die Griffbearbeitung bietet auch noch eine Möglichkeit, Objekte in gleichen Abständen zu kopieren:
http://www.cadmaro.de/front_content.php?client=12&lang=7&idcat=116&idart=118

Gruß
CADchup

------------------
CADmaro.de

[Diese Nachricht wurde von CADchup am 25. Jan. 2006 editiert.]

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

---

Hallo Jürgen,

das hast du schon auf einem Button.
Werkzeugleiste: Objektfang (2. von links/oben)

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Hallo.
Das mit dem _from funktioniert am besten.
Nur das mit dem Macro krieg ich nicht hin.
Nach dem Kopiervorgang müsste man wieder in die Abstandsangabe springen und einen neuen Abstand eingeben können.
Gruss
Jürgen. 

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

---

Hallo,

ich kenne das Problem gut. Multiples Kopieren mit verschiedenen Maßen. "copym" geht, die Eingabe muss aber immer mit @1,2, etc erfolgen. Das Zeigen der Richtung mit der Maus geht hier nicht. (@Heiko, oder wie handhabst Du das?) Ich arbeite auch mit "_from", ist aber auch lästig.
Vielleicht findet jemand so ein tool, ich wäre auch interessiert.

Lothar

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

---

GENAU.
Einer versteht mich.
Das wäre auch mein Wunsch.
Gruss
Jürgen
   

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

---

Hallo,

Lothar hat natürlich recht die relative Eingabe bei copym ist lästig, aber funktioniert gut.
Aber ich bin jetzt als Neuentdecker ganz begeistert von _from ! Hier geht das Gummiband für die Richtung und die direkte Eingabe des Vektors ganz prima... 

Noch Wünsche offen ?

[Endlich]
ich glaub' jetzt hab' ich's verstanden - ich wär auch interessiert _copy und _from auf einem Knöppel zu haben !
[/Edit]

Gruß
heiko

[Diese Nachricht wurde von heiko_hems am 25. Jan. 2006 editiert.]

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

---

Hallo,

mit diesem VBA Makro gehts:

Code:

---

Option Explicit

Sub xcopy()
    Dim ogac_Sset As AcadSelectionSet
    Dim BasisP As Variant
    Dim ZielP As Variant
    Dim ZwischenP As Variant
    Dim Fertig As Boolean
    Dim SourceEntity As AcadEntity
    Dim TargetEntity As AcadEntity

    ThisDrawing.Utility.Prompt Chr$(10) & "xcopy"

    ' Selectionset anlegen
    On Error Resume Next
    Set ogac_Sset = ThisDrawing.SelectionSets("MySelset")
    If Err.Number Then
       Set ogac_Sset = ThisDrawing.SelectionSets.Add("MySelset")
    End If

    ' Zeile fehlte
    ogac_Sset.Clear

    ogac_Sset.SelectOnScreen
   
    If ogac_Sset.Count = 0 Then
       ThisDrawing.Utility.Prompt Chr$(10)
       Exit Sub
    End If
   
    On Error Resume Next
    BasisP = ThisDrawing.Utility.GetPoint(, Chr$(10) & "Basispunkt wählen:")
    If Err.Number <> 0 Then
       Exit Sub
    End If
    On Error GoTo 0
    ZwischenP = BasisP
   
    Do
   
      On Error Resume Next
      ZielP = ThisDrawing.Utility.GetPoint(ZwischenP, Chr$(10) & "Zielpunkt wählen:")
      If Err.Number = 0 Then
         On Error GoTo 0
         For Each SourceEntity In ogac_Sset
             Set TargetEntity = SourceEntity.Copy
             TargetEntity.Move BasisP, ZielP
         Next SourceEntity
         ZwischenP = ZielP
      Else
         Fertig = True
      End If
    Loop While Not Fertig

End Sub

---

dann geht auch die Richtung mit der Maus

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

[Diese Nachricht wurde von Stelli1 am 25. Jan. 2006 editiert.]

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

---

@ Stelli,

das ist schon mal klasse. In einer *.dwg erhalte ich eine Fehlermeldung, in anderen geht's.
Tolles tool, Lothar

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