| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Effiziente Reinraumlösungen effizienter entwickeln - Ortner Reinraumtechnik GmbH, ein Anwenderbericht
|
Autor
|
Thema: Kopieren mehrfach relativ (2237 mal gelesen)
|
jukni Mitglied Techniker
Beiträge: 175 Registriert: 28.03.2002 Autocad 2006 -WIN XP Prof. -Intel Core2 Duo E6700-4GB -PNY Quadro FX3500
|
erstellt am: 25. Jan. 2006 11:44 <-- editieren / zitieren --> Unities abgeben:
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 |
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2013, Rasterdesign MapGuide 6.5 - 2013 Oracle 9i,10g,11g Enterprise autodesk Topobase 2-2012 VS6, VS.net
|
erstellt am: 25. Jan. 2006 12:03 <-- editieren / zitieren --> Unities abgeben: Nur für jukni
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 |
jukni Mitglied Techniker
Beiträge: 175 Registriert: 28.03.2002 Autocad 2006 -WIN XP Prof. -Intel Core2 Duo E6700-4GB -PNY Quadro FX3500
|
erstellt am: 25. Jan. 2006 12:25 <-- editieren / zitieren --> Unities abgeben:
|
heiko_hems Mitglied Freier Architekt
Beiträge: 1305 Registriert: 14.01.2005
|
erstellt am: 25. Jan. 2006 12:27 <-- editieren / zitieren --> Unities abgeben: Nur für jukni
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 |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 25. Jan. 2006 12:45 <-- editieren / zitieren --> Unities abgeben: Nur für jukni
|
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2013, Rasterdesign MapGuide 6.5 - 2013 Oracle 9i,10g,11g Enterprise autodesk Topobase 2-2012 VS6, VS.net
|
erstellt am: 25. Jan. 2006 13:47 <-- editieren / zitieren --> Unities abgeben: Nur für jukni
|
jukni Mitglied Techniker
Beiträge: 175 Registriert: 28.03.2002 Autocad 2006 -WIN XP Prof. -Intel Core2 Duo E6700-4GB -PNY Quadro FX3500
|
erstellt am: 25. Jan. 2006 13:54 <-- editieren / zitieren --> Unities abgeben:
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 |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 25. Jan. 2006 15:35 <-- editieren / zitieren --> Unities abgeben: Nur für jukni
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 |
jukni Mitglied Techniker
Beiträge: 175 Registriert: 28.03.2002 Autocad 2006 -WIN XP Prof. -Intel Core2 Duo E6700-4GB -PNY Quadro FX3500
|
erstellt am: 25. Jan. 2006 15:39 <-- editieren / zitieren --> Unities abgeben:
|
heiko_hems Mitglied Freier Architekt
Beiträge: 1305 Registriert: 14.01.2005
|
erstellt am: 25. Jan. 2006 15:58 <-- editieren / zitieren --> Unities abgeben: Nur für jukni
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 |
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2013, Rasterdesign MapGuide 6.5 - 2013 Oracle 9i,10g,11g Enterprise autodesk Topobase 2-2012 VS6, VS.net
|
erstellt am: 25. Jan. 2006 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für jukni
Hallo, mit diesem VBA Makro gehts:
Code:
Option ExplicitSub 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 MausStelli ------------------ 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 |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 25. Jan. 2006 18:40 <-- editieren / zitieren --> Unities abgeben: Nur für jukni
|