---

Hallo allerseits,

vor einiger Zeit hatte ich mich mit eigenen Zeichnungsvorlagen beschäftigt. So nach und nach habe ich dann auch alles so hinbekommen, wie ich es mir vorgestellt hatte.
Nur eine Sache ist mir immer wieder ins Auge gesprungen, auch wenn das jetzt nicht wirklich ein großes Thema ist:
Die später eingefügten Linien in skizierten Symbolen, Zeichnungsrahmen, Schriftfeld usw. liegen naturgemäß über den früher eingefügten Linien; und beim Schriftfeld z.B., bei mir mit verschiedenen Farben für dicke und dünne Linien, fällt es doch dann (zumindest mir als Ersteller) auf, daß manche dünnen Linien eben über den dicken liegen, andere darunter. Vor allem wenn ich mir eine PDF-Ausgabe zum Kontrollieren der letzten Vorlagen-Änderungen anschaue.
In dem Bereich hatte ich vorher unter Inventor nicht viel zu tun gehabt, daher fällt mir als einzige Abhilfe ein, alle dicken Linien zu verschieben, an den ursprünglichen Ort zu kopieren und die verschobenen zu löschen. Nicht gerade sehr förderlich für den Projektfortschritt ;-)

Da das Ganze aber natürlich auch in anderen Zeichnungselementen, Zeichnungsrahmen usw. auftritt, wäre es nicht schlecht, wenn jemand ein Skript hätte, das das automatisch erledigt. Meinetwegen auch über die ganze Zeichnung hinweg, gern natürlich auch nur über das jeweils aktive Symbol etc.
In meinem Fall liegen die Linien eines Schriftfeldes z.B. auf demselben Layer und sind nur in Linienstärke und Farbe verschieden, das sollte natürlich idealerweise von dem Skript abgedeckt werden.

Ist jemandem da etwas fertiges bekannt?

Vielen Dank im Voraus schon mal!

Grüße
Stephan

------------------
QR-Code als DXF-Datei erstellen: http://webtools.mhk-i.com/qr2dxf/

[Diese Nachricht wurde von MHK-Innovation am 23. Mai. 2014 editiert.]

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

---

Na, gibt es keine Vorschläge dazu?

Natürlich ist das kein brennendes Problem, aber ich würde mich trotzdem freuen, wenn auch dieser Punkt gelöst wäre.

------------------
QR-Code als DXF-Datei erstellen: http://webtools.mhk-i.com/qr2dxf/

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

---

hey ich habe es nicht verstanden. deswegen habe ich es nicht angeschaut. Sorry.

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

---

Hallo Stephan,

warum hast Du denn an der gleichen Stelle mehrere Linien übereinander?

Wenn die Farbe und Linienstärke an dieser Stelle für Dich wichtig ist, dann mache dort eben nur eine einzige Linie hin. Es gibt im Inventor nach meinem Wissen keine Möglichkeit, die Linienreihenfolge mit VBA o.ä. zu verändern.

------------------
mit freundlichem Gruß
aus Mönchengladbach
Lothar Boekels

-----------------------------------------------------
Wir unterstützen die Arbeit der
Rettungshundestaffel des DRK in Viersen

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

---

Naja, z.B. ein Skript das die Linien einer Farbe woandershin verschiebt, dann zurück kopiert, und die verschobenen löscht (oder das dem Benutzer überläßt - allein das automatische Auswählen aller Linien einer Farbe und/oder einer Linienstärke ist ja schonmal ganz hilfreich). Wenn es keinen besseren Weg gibt.

Ich hatte gehofft, daß es etwas Sinnvolleres gäbe, z.B. einen Block aus den Linien einer Farbe erstellen und danach wieder auflösen. Oder irgendeinen anderen Behelfsvorgang.

??

------------------
QR-Code als DXF-Datei erstellen: http://webtools.mhk-i.com/qr2dxf/

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

---

ich grüble schon die ganze Zeit wo der Unterschied dann in der Ausgabe sein kann. 
Inventor ist halt nicht CorelDraw  .

------------------

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

---

Wenn die Linien alle hübsch bunt sind kann's schon ganz schön bunt aussehen 

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Ist das jetzt der Punkt, wo ich mich für die Unterstützung bedanken sollte? ;-)

Ich hatte eigentlich gehofft, daß jemand ein VB-Skript aus dem ärmel schüttelt, das zumindest Grundfunktionen dafür enthält, wie eben z.B. Linien einer bestimmten Farbe woanders hin zu verschieben, und vielleicht hätte ja jemand sogar darauf aufgebaut und noch etwas hinzugefügt.

Meine Linien liegen übrigens nicht parallel aufeinander, sondern kreuzend und meist rechtwinklig. Trotzdem nervt das, wenn man immer wieder drüber stolpert.
Bei Ansichten usw. stört mich das ja nicht weiter, aber beim Schriftfeld und Zeichnungsrahmen möchte ich einfach eine saubere Vorlage haben.

Eine so ausführliche Diskussion war aber tatsächlich nicht mein Ziel. 5 Zeilen Code täten es durchaus auch schon ;-)

------------------
QR-Code als DXF-Datei erstellen: http://webtools.mhk-i.com/qr2dxf/

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

---

Zitat:

---

Original erstellt von MHK-Innovation:
Trotzdem nervt das, wenn man immer wieder drüber stolpert.

---

Wenn du genügend Mitstreiter findest und eine Lizenzanzahl dahinter steht wird es Autodesk sicher machen, die wollen ja Geld verdienen, wird eventuell diese CorelDraw-Funktion eingebaut.

Aber da das Problem anscheinend nicht nur mir noch nie untergekommen ist und für die 2D-Ausgabe so was von egal ist (siehe oben) ist halt der Druck nur marginal.

------------------

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

---

Moin

Mit 5 Zeilen Code ist es da nicht ganz getan.
Um mal zu deiner eigentlichen Frage Stellung zu beziehen, ein  Beispiel. Würde man Skizzenobjekte verschieben, zurückkopieren und die verschobenen Originale löschen wärst du der Erste der heulend vor seiner komplett Bemaßungs- und Abhängigkeitenfreien Skizze sitzen würde. Da kommt richtig Freude auf, wenn die nächste Änderung ansteht.  
Und weil mir eh immer keiner glaubt, bitte probiers selbst aus. Der Code funktioniert mit Linien die auf verschiedenen Layern liegen. Was bei dir dicke und dünne Linien sind, steht nirgends. Daher habe ich keine Ahnung wie man das als Auswahlkriterium nutzen soll.
Alles auf einen Layer und dann Strichstärke und Farbe überschreiben - dafür gab's bei uns zu AutoCAD-Zeiten schon Teeren und Federn.

Code:

---

Sub MoveSketchObjects()
    ' Check to make sure a sketch is open.
    If Not TypeOf ThisApplication.ActiveEditObject Is Sketch Then
        MsgBox "A sketch must be active."
        Exit Sub
    End If
   
    ' Set a reference to the active sketch.
    Dim oSketch As Sketch
    Set oSketch = ThisApplication.ActiveEditObject
   
    ' Select Object specifying layer
    Dim oSel As SketchEntity
    Set oSel = ThisApplication.CommandManager.Pick(kSketchDefaultFilter, "Quellobjekt auswählen ...")
   
    ' Get Layer name
    Dim sLayername As String
    sLayername = oSel.Layer.Name
       
    ' Create a vector along the x-axis.
    Dim oVec As Vector2d
    Set oVec = ThisApplication.TransientGeometry.CreateVector2d(5, 0)
   
    ' Create a reverting vector
    Dim oVec2 As Vector2d
    Set oVec2 = ThisApplication.TransientGeometry.CreateVector2d(-5, 0)

    Dim oSketchObjects As ObjectCollection
    Set oSketchObjects = ThisApplication.TransientObjects.CreateObjectCollection
   
    Dim oNewSketchObjects As ObjectCollection
    Set oNewSketchObjects = ThisApplication.TransientObjects.CreateObjectCollection
   
    ' Get all entities in the sketch
    Dim oSketchEntity As SketchEntity
    For Each oSketchEntity In oSketch.SketchEntities
        If Not oSketchEntity.Layer Is Nothing Then
            If oSketchEntity.Layer.Name = sLayername Then
                oSketchObjects.Add oSketchEntity
            End If
        End If
    Next
    'Copy Sketch Objects along x-Axis
    Set oNewSketchObjects = oSketch.MoveSketchObjects(oSketchObjects, oVec, True)
    ' Delete original SketchObjects
    For Each oSketchEntity In oSketchObjects
        oSketchEntity.Delete
    Next
    'Move back new Sketch Objects
    Call oSketch.MoveSketchObjects(oNewSketchObjects, oVec2)
   
End Sub

---

------------------
MfG
Ralf

[Diese Nachricht wurde von rkauskh am 01. Jun. 2014 editiert.]

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

---

Hallo,

vorab schonmal vielen Dank für die Mühe, ich werde das mal laufen lassen, sobald ich am CAD-Rechner bin.

Was die unterschiedlichen Farben im selben Layer angeht: Ich meine, das macht bei Schriftfeldern und Rahmen selbst AutoDesk so.

Meine Schriftfelder kopiere ich aus Mechanical in Inventor rein, dann wird alles (inkl. Endpunkte) fixiert. Dort (und bei Zeichnungsrahmen) mit Bemaßungen zu arbeiten, halte ich für wenig zielführend, auch wenn praktisch alle es tun.
Die Inventor-spezifischen Sachen wie variable Texte werden dann mit Verschiebe-Operationen aus dem Millimeter- Raster an die richtigen Positionen gebracht und am Ende ebenfalls fixiert.
Bemaßungen betreffen mich in dem Bereich also gar nicht. Das wäre natürlich dann wirklich eine herausfordernde Aufgabe ;-)

Da die dicken (und in meinem Fall schwarz / weißen Linien) in den Vordergrund sollen, aber ebenso auch die dünnen auf dem Layer AM_BOR liegen, muß ich nach wie vor nach Farben filtern. Da geht kein Weg dran vorbei. Schließlich macht es ja z.B. keinen Sinn, vom Zeichnungsrahmen oder vom Schriftfeld per Layerausblendung nur die dicken auszublenden, was ja ein wesentlicher Sinn von unterschiedlichen Layern ist.
Natürlich könnte ich einen Layer AM_BOR_S einführen für die schmalen Linien, aber eine so hohe Priorität gebe ich der Kombination aus meinem anfänglichen Wunsch und meiner Faulheit dann auch wieder nicht ;-)

Darf ich mal ganz brav fragen, ob die Filterung nach Farben doch auch noch im Gratis-Paket mit eingeschlossen werden könnte? 

------------------
QR-Code als DXF-Datei erstellen: http://webtools.mhk-i.com/qr2dxf/

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

---

Hallo

Sorry, ich war verhindert.
Die Filterung nach Farben ist meiner Meinung möglich. Sind die Farben alle Überschreibungen oder ist eine davon die originale Layerfarbe? Sind die schwarzen/weißen Linien die mit Farbe "VonLayer" auf AM_BOR? Dann könnte man schonmal alle mit Farbüberschreibung ausfiltern und könnte die Userselektion rausnehmen. Wenn es für "dick" noch einen Zahlenwert oder ein "größer als x mm" Strichbreite gäbe, kämen wir der Sache weiter näher.

------------------
MfG
Ralf

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

---

Die dicken Linien sind zugleich schwarz/weiß und vermutlich (bin gerade nicht am CAD-Rechner) farblich vonLayer, müßte ich aber noch schauen.
Evtl. die Alternative auskommentiert mit liefern (ich weiß, ich bin luxusverwöhnt ;-) )
Die dünnen Linien sind zugleich rot und haben die Farbüberschreibung.
Dicken sind meines Wissens 0.50 mm und 0.25 mm.

Die Funktion darf ruhig speziell auf diese konkreten Anwendungspunkte zugeschnitten sein. Ich mache mir außer bei der Zeichnungsvorlage ansonsten keine Mühe mit der Linienreihenfolge.

------------------
QR-Code als DXF-Datei erstellen: http://webtools.mhk-i.com/qr2dxf/

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

---

Hallo

Ich hab's jetzt so geändert, das keine "Musterlinie" gewählt werden muss, sondern alle Objekte ohne Farbüberschreibung mit Strichstärke 0,5mm bearbeitet werden. Probier's mal aus.

Code:

---

Sub MoveSketchObjects()
    ' Check to make sure a sketch is open.
    If Not TypeOf ThisApplication.ActiveEditObject Is Sketch Then
        MsgBox "A sketch must be active."
        Exit Sub
    End If
   
    ' Set a reference to the active sketch.
    Dim oSketch As Sketch
    Set oSketch = ThisApplication.ActiveEditObject
   
    ' Create a vector along the x-axis.
    Dim oVec As Vector2d
    Set oVec = ThisApplication.TransientGeometry.CreateVector2d(5, 0)
   
    ' Create a reverting vector
    Dim oVec2 As Vector2d
    Set oVec2 = ThisApplication.TransientGeometry.CreateVector2d(-5, 0)

    Dim oSketchobjects As ObjectCollection
    Set oSketchobjects = ThisApplication.TransientObjects.CreateObjectCollection
   
    Dim oNewSketchObjects As ObjectCollection
    Set oNewSketchObjects = ThisApplication.TransientObjects.CreateObjectCollection
   
    On Error Resume Next
   
    ' Get all entities in the sketch
    Dim oSketchEntity As SketchEntity
    For Each oSketchEntity In oSketch.SketchEntities
        If Not oSketchEntity.Type = kSketchPointObject Then
            If oSketchEntity.OverrideColor Is Nothing Then
                If Round(oSketchEntity.LineWeight, 2) = 0.05 Then
                    oSketchobjects.Add oSketchEntity
                End If
            End If
        End If
    Next
   
    On Error GoTo 0
   
    'Copy Sketch Objects along x-Axis
    Set oNewSketchObjects = oSketch.MoveSketchObjects(oSketchobjects, oVec, True)
    ' Delete original SketchObjects
    For Each oSketchEntity In oSketchobjects
        oSketchEntity.Delete
    Next
    'Move back new Sketch Objects
    Call oSketch.MoveSketchObjects(oNewSketchObjects, oVec2)
   
End Sub

---

------------------
MfG
Ralf

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

---

Hallo,

danke vorab für die Mühe. Die nächsten Tage bin ich wieder an einem eigenen CAD-Rechner, dann wird das gleich durchgetestet!

Grüße
Stephan

------------------
QR-Code als DXF-Datei erstellen: http://webtools.mhk-i.com/qr2dxf/

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

---

Also... das letzte Skript läuft bei mir in Inventor 2010 nicht richtig.
Ich hatte auch zwischendurch alle Abhängigkeiten entfernt und verschiedene Lineinstärken (0.05, 0.25, 0.5) getestet.

Bei der Zeile
Set oNewSketchObjects = oSketch.MoveSketchObjects(oSketchobjects, oVec, True)
erscheint der gelbe Balken beim Debuggen.
Ist das so gewollt, daß die Funktion rekursiv läuft?

------------------
QR-Code als DXF-Datei erstellen: http://webtools.mhk-i.com/qr2dxf/

[Diese Nachricht wurde von MHK-Innovation am 23. Aug. 2014 editiert.]

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

---

Hallo

Ist eventuell die ObjectCollection oSketchobjects leer? Wenn der Debugger dort stehen bleibt, füge mal eine Überwachung für oSketchobjects und sieh dir den Inhalt an. Man kann das auch im Code berücksichtigen. Füge bitte zwischen die Zeilen

Code:

---

On Error GoTo 0
 
'Copy Sketch Objects along x-Axis

---

den hier ein:

Code:

---

If oSketchObjects.Count=0 Then
  MsgBox("Keine passenden Objekte gefunden. Abbruch")
  Exit Sub
End If

---

Rekursion? Hab ich nicht eingebaut. Aber da die API keine Funktion bietet mit einem Filter alle gesuchten Objekte auf einmal auszuwählen, muß man in einer Schleife alle Objekte prüfen und wenn's paßt zur Auswahl hinzufügen.

------------------
MfG
Ralf

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