| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: ACad Objekte Kopieren (1100 mal gelesen)
|
DrCNC
Mitglied
   Beiträge: 96
Registriert: 04.01.2011
|
erstellt am: 07. Nov. 2014 00:30  <-- editieren / zitieren -->   Unities abgeben:          
|
Ingenieur Studio HOLLAUS
Mitglied
CAD / CAFM / GIS Beratung-Programmierung-Schulung
Beiträge: 1049
Registriert: 06.11.2008 Autocad 2 bis Autocad 2020 (+Map3D, +Civil3D, +Infraworks)
RKV .... CAFM+mehr
HMap ... Vermessung und Verkehr
OoC .... Raumplanung
CBox ... Tools für AutoCAD und BricsCAD (kostenfrei)
|
erstellt am: 07. Nov. 2014 07:06 <-- editieren / zitieren --> Unities abgeben: Nur für DrCNC 
|
Ingenieur Studio HOLLAUS
Mitglied
CAD / CAFM / GIS Beratung-Programmierung-Schulung
Beiträge: 1049
Registriert: 06.11.2008 Autocad 2 bis Autocad 2020 (+Map3D, +Civil3D, +Infraworks)
RKV .... CAFM+mehr
HMap ... Vermessung und Verkehr
OoC .... Raumplanung
CBox ... Tools für AutoCAD und BricsCAD (kostenfrei)
|
erstellt am: 07. Nov. 2014 07:07 <-- editieren / zitieren --> Unities abgeben: Nur für DrCNC
|
DrCNC
Mitglied
Beiträge: 96
Registriert: 04.01.2011
|
erstellt am: 08. Nov. 2014 20:15 <-- editieren / zitieren --> Unities abgeben:
Hallo, Bekomme das, mit dem Kopieren nicht hin. Ich möchte das selectierte Objekt auf die selben Stelle kopieren und einen anderen Layer zuweisen. das Zuweisen auf einen anderen Layer funktioniert. Code:
Public Function CopyFormat(ByVal Layer)
Dim AcSSet As AcadSelectionSet
Dim obj As Object
Dim ID
On Error Resume Next
AcSSet = ThisDrawing.SelectionSets.Add("Auswahl")
AcSSet.SelectOnScreen()
AcSSet = ThisDrawing.SelectionSets("Auswahl")
For ID = 0 To AcSSet.Count - 1
obj = AcSSet(ID)
obj.Layer = Layer
Next ID
AcSSet.Delete()
End Function
Danke für die Hilfe Johann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ingenieur Studio HOLLAUS
Mitglied
CAD / CAFM / GIS Beratung-Programmierung-Schulung
Beiträge: 1049
Registriert: 06.11.2008 Autocad 2 bis Autocad 2020 (+Map3D, +Civil3D, +Infraworks)
RKV .... CAFM+mehr
HMap ... Vermessung und Verkehr
OoC .... Raumplanung
CBox ... Tools für AutoCAD und BricsCAD (kostenfrei)
|
erstellt am: 09. Nov. 2014 00:21 <-- editieren / zitieren --> Unities abgeben: Nur für DrCNC
Ok, COM-basiert sieht das anders aus als managed. Suche in Deinen Fällen in der Hilfe für VBA. Vergiss bitte nicht, dass Variablen deklarieren mit Typ die bessere Alternative ist! Ergänze ".Copy" in dieser Zeile:
obj = AcSSet(ID).Copy ------------------
 
 
www.cars4fun.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
DrCNC
Mitglied
Beiträge: 96
Registriert: 04.01.2011
|
erstellt am: 09. Nov. 2014 13:33 <-- editieren / zitieren --> Unities abgeben:
Hallo, Besten Dank für die rasche Antwort, hat bestens funktioniert. Eine Frage hätte ich noch zu diesem Thema. Ist es möglich die Auswahl mit einem Klick zu beenden (wird in diesen Fall nur 1 Objekt gewählt)um das Enter zu ersparen. Danke noch einmal Johann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ingenieur Studio HOLLAUS
Mitglied
CAD / CAFM / GIS Beratung-Programmierung-Schulung
Beiträge: 1049
Registriert: 06.11.2008 Autocad 2 bis Autocad 2020 (+Map3D, +Civil3D, +Infraworks)
RKV .... CAFM+mehr
HMap ... Vermessung und Verkehr
OoC .... Raumplanung
CBox ... Tools für AutoCAD und BricsCAD (kostenfrei)
|
erstellt am: 09. Nov. 2014 13:36 <-- editieren / zitieren --> Unities abgeben: Nur für DrCNC
|
DrCNC
Mitglied
Beiträge: 96
Registriert: 04.01.2011
|
erstellt am: 10. Nov. 2014 20:49 <-- editieren / zitieren --> Unities abgeben:
Hallo, Besten dank für deine Hilfe, funktioniert bestens Code:
Public Function CopyFormat(ByVal Layer)
Dim AcSSet As Object
Dim Pickpoint As Object
Dim obj As Object
With ThisDrawing.Utility
.GetEntity(AcSSet, Pickpoint, vbCrLf & "bitte Werkstück wählen")
obj = AcSSet.copy
obj.Layer = Layer
End With
Return ""
End Function
Danke Johann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
