---

Bild1.jpg Bearbeitung.zip

Hallo Zusammen,

nachdem ich viel aus dem Forum gezogen habe, möchte ich auch einen kleinen Beitrag leisten.

Habe ein kleines Macro erstellt welches Bearbeitungszeichen auf einer Zeichnungsableitung ablegt.

Das Makro ist zwar noch verbesserungswürdig, aber für den anfang nicht schlecht.

Zeichen werden als Blöcke unten links auf der zeichnung eingefügt.
Hoffe jemand kann es gebrauchen.

Ciao
Manuel

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

---

bearbeitung.zip

Hallo Manuel,

klasse, sieht gut aus. Ich hab es noch etwas angepaßt, damit man die Pfade nicht editieren muss, sollte so direkt laufen, wenn man es irgendwo hin extrahiert.

Kann ich das mit in die Makrotauschbörse aufnehmen?

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

Hi,

das Makro kannst du auf jeden Fall aufnehmen, ist ja schließlich für alle da.

Ciao
Manuel

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

---

Hallo Manuel,

besten Dank für das Makro, welches mir schon mal super weiterhilft.

Ich hab allerdings noch ein weiteres Problem, vielleicht gibt es ja hierzu auch eine passende Lösung.

Ich möchte beim Einfügen einer Oberflächenbeschaffenheit nicht jedesmal die kompletten Angaben neu eingeben. d.h. jedesmal wenn
ich auf einer Zeichnung ein Oberflächenzeichen eingebe gilt es ersteinmal die Werte bei Symbol, Besondere Angaben, Rillenrichtung,
Rauheit usw. auszuwählen bzw. einzugeben.
Kann man hier nicht ein paar vordefinierte Einstellungen abspeichern?

Für Lösungen sag ich schon mal Danke im voraus

------------------
MfG Bernhard

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

---

Hallo Manuel und Stefan,

das ist eine gute Idee, kleine anwenderfreundliche und anpassbare Funktionen in Menü-Fensterchen zu packen. Leider habe ich keine Ahnung, wie man sowas selber machen kann (möchte meinen Mist auch irgendwann mal unter die Leute bringen...). ¿Kann mir da jemand von Euch weiterhelfen?

hastalavista
Stephan

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

---

Hallo Zusammen,

es ist auf jedenfall möglich das Macro noch anzupasen.

Das Standardwerte vorbelegt sind ist schon einmal das kleinste übel, aber was soll denn noch alles ins Makro ????

Kenne mich so im Detail nicht mit den ganzen Zeichen aus, brauche halt nur die Zeichen die ich zur Zeit eingebracht habe.

Aber wenn Vorschläge kommen, könnte es realisiert werden.

ciao
Manuel

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

---

Hi Manuel.

1A!!! Thanks!

------------------
Gruss
Andreas

A+E Müller AG

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

---

Really good program Manuel!
I would suggest you something IMHO helpful for program.
The surface marks and brackets are not compound.
User can not move them round easily.
So my idea is to add an empty view and
lock the surface marks and brackets to it.
Afterwards it will be easy to move them to another
place on drawing 

keep up the good work

Vana Peer

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

---

Hallo Manuel und Stefan,

hab mir das Makro runtergeladen und finde es einfach Klasse!

Für unseren Bedarf muß es zwar noch angepaßt werden, aber ich denke das kriegen wir auch noch hin. Vielen Dank!

Gruß,

Joachim

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

---

Hallo Manuel,

vielen Dank für das Makro.

Wenn ich das Makro ausführe, gehen die Zeichen immer unten links in die Ecke.
Wie kann ich alles auf einmal verschieben, oder wie beim einfügen eines Blocks die Position vorher festlegen?

Bis dann

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

---

Zitat:

---

Original erstellt von Hony:
HalloWie kann ich alles auf einmal verschieben, oder wie beim einfügen eines Blocks die Position vorher festlegen?

---

Hallo Zusammen,

Wirklich ein tolles Makro - vielen Dank an die Erschaffer  !

@Hony: alles Makieren (mit LMB Rahmen über alles ziehen), dann mit LMB an die gewünschte Position schieben! Aufpassen, daß du keinen unteren Punkt von den Oberflächenzeichen anklickst, sonst verschiebst du nur das eine Zeichen!

Gruß

------------------
Mike

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

---

Moin,
@ Hony
Die Position kannst Du auch im Makro festlegen:

Code:

---

      Part.InsertSurfaceFinishSymbol2 1, 0, EinfuegCS(0) + 0.037, EinfuegCS(1), 0, 0, 1, "", "", "", rh2, "", "", ""

---

in diesem Fall werden die Variablen EinfuegCS(0) und (1) vorher anhand des Blattformates festgelegt. Die Zahl, die addiert wird ist nur ein Korrekturwert.
So kann ich die Symbole je nach Blattgröße immer an dei gleiche Stelle Positionieren.
Ich hoffe, das Hilft Dir ein wenig 

------------------
Viele Grüße aus dem Schwarzwald
gismo

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

---

Hallo Mike Hallo Gismo,

Vielen dank euch Beiden.
Werde erst das verschieben verwenden.

An Gismo,

ist das erste Makro was ich geöffnet habe, werde deshalb die Beabeitung in eine "Streß Freie Zeit" verlegen.
Vorab:
Wenn ich dich richtig verstanden habe muß der Code für jede Nr geändert werden?

Danke
Hony

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

---

Zitat:

---

Original erstellt von Hony:
Wenn ich dich richtig verstanden habe muß der Code für jede Nr geändert werden?

---

Hi Hony,
Wenn ich Dich richtig verstanden habe, meinst Du mit "jede Nr" jedes Bearbeitungszeichen!?! Ja. Die Variablen sind für jedes Zeichen gleich, nur der Korrekturwert bestimmt mir die Verschiebung jedes Zeichens in 'X' Richtung. (sonst sitzen die Dinger aufeinander)
Nachtrag: Wenn Dir Die Werte etwas niedrig vorkommen: Maße werden in SWX Macros immer in Meter angegeben!!!
Ist vielleicht etwas umständlich, aber ich erhebe auch nicht den Anspruch ein "Superprogrammierer" zu sein.
Aber es macht viel Spass (wie Du evtl. auch noch merken wirst   )

------------------
Viele Grüße aus dem Schwarzwald
gismo

[Diese Nachricht wurde von gismo am 14. Oktober 2002 editiert.]

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

---

Hallo Manuel,
klasse gemacht, sehr nützlich, benutze das Makro regelmäßig, danke!!

Hallo Gismo,
ich habe vergeblich einen Befehl gesucht, mit dem man per Mausklick diese Zeichen an einen beliebigen Ort auf der Zeichnung setzen kann. Hast Du Gismo eine Idee, wie dieser heisst?

Saludo
Stephan

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

---

Hallo Stephan,
Ich bin mir nicht sicher, was Du meinst. Willst Du auf einen Punkt in der Zeichnung klicken und dann die Zeichen an dieser Stelle einfügen?
Ich habs selbst noch nicht probiert, aber evtl. kann man den vorher angeklickten Punkt im Makro auslesen und dann die Zeichen an diese Koordinaten setzen??
Wenn ich Zeit habe, teste ich das mal!

------------------
Viele Grüße aus dem Schwarzwald
gismo

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

---

Hallo Gismo,

es ist kein bestimmter Punkt z.B. auf einem Körper oder einer Linie. Bevor die Zeichen gesetzt werden, möchte ich mit der Maus den Ort auf der Zeichnung bestimmen, wohin die Zeichen geschrieben werden sollen.
Leider komme ich mit der VB- und API-Hilfe nicht zum Ziel, aber ich gebe noch nicht auf...!

Gruß und danke für die schnelle Antwort
Stephan

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

---

Hallo Stephan,

das du vorher bestimmen möchtest wo die Zeichen hingesetzt werden sollen, ist schon zu machen.
Es müssen halt nur die abstände der Blöcke hinzugerechnet werden.
Den "Mauspunkt" in eine Variable packen und Abstände hinzuaddieren und durch die gesetzten werte ersetzen.

Bin zur Zeit ziemlich beschäftigt, hätte das programm sonst umgeschrieben,aber...

Dennoch viel Spass

Ciao
Manuel 

------------------
ciao 
Manuel

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

---

Lieber Manuel,

wenn Du mir sagst, wie der Befehl heißt, mit dem man die Koordinaten des Mouseklickes auslesen kann, dann versuche ich mich mit dem Umschreiben des Programmes!

Grüße
Stephan

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

---

Hallo zusammen,

gute Idee, vielleicht kann ich schon mal mit den Befehlen auf die Sprünge helfen:

...
Dim vSelPt As Variant

Set SelectionMgr = DrawingDoc.SelectionManager
vSelPt = SelectionMgr.GetSelectionPoint(1)

dann stehen die Koordinaten über vSelPt(0), vSelPt(1), vSelPt(2) zur Verfügung. Etwas mehr Erklärungen dazu siehe auch http://solidworks.cad.de/mm_11.htm

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

Hallo.

Das Makro ist schon ganz gut gelungen.
Doch kann man das Ganze nicht so hinbekommen, dass man auch RZ-Werte eingeben kann? "Poliert" und "geschliffen" wäre auch ganz nett.
Dann wäre ich schon fast zufrieden.  ;-)

Gruß

Alex

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

---

Die Funtkion der Bearbeitungszeichen finde ich schon recht komfortabel. A bissele muss ich ja auch so noch schreiben.

Reicht die Dir nicht aus? Was für Vorteile hätte das Makro dann noch grossartig? Mach mich bitte schlau ;-)

------------------
Gruß, der Teddibaer

---------
Es gibt Tage an denen verliert man, und es gibt Tage, an denen kann man nicht gewinnen ... Das Leben ist eben kein Schlotzer.

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

---

@Alex: Probiers mal mit Makro Nr. 10 der Makromania-Tauschböre auf Stefans solidworks.cad.de !

Gruß,
Uwe

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

---

Hallo,

habe das Makro runtergeladen auf unsere bedürnisse angepasst aber leider funkt es nicht mit den Klammerzeichen habe nun auch schon mal das ganze als orginal ausprobiert und immer wieder das selbe, es werden einfach keine klammersymbole eingefügt!!

Jemand ne idee?

Gruß Torsten

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

---

Hallo!
Seit wir auf SWX2007 upgedated haben sind die Klammern auch nicht mehr da.

Funktioniert das Makro bei jemandem in SWX2007 bzw. weiss jemand an was es liegen könnte?

Grüßle
Daniel

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

---

Zitat:

---

Original erstellt von StefanBerlitz:
Set SelectionMgr = DrawingDoc.SelectionManager

---

Hallo

kannst du mir kurz auf die Sprünge helfen?
Gibt es einen Unterschied zwischen DrawingDoc.SelectionManager und ModelDoc.SelectionManager? (wenn ja, welchen?)

ich hab mit ModeDoc... herumprobiert und dann selected object auf typ 19 (swsheet) überprüft. da funktioniert das mit den Punktkoordinaten.
wenn ich etwas anderes selektiere, tauchen Fehler auf und der Block bekommt eine Bezugslinie spendiert ....
Ansonsten geht es mit der Vorauswahl der Position.

(mit SWX 2006 - ist da bei den neueren was anders? )

Gruß, Christian

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist! Schon wieder?

Hallo,

hat das Makro jemand mit Version 2010 SP5 im Einsatz? Bei mir passiert nach dem aufrufen des Makros garnichts mehr, aber wirklich garnichts mehr. Nicht mal ein Fensterwechsel ist noch möglich. CPU Auslastung geht gegen Null, aber SWX ist tot :-(

Gruß Oll

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!
Hallo erst einmal, ich habe das Makro runtergeladen und ausprobiert, es funktioniert, aber wenn ich mehrere Oberflächenangaben angebe werden keine Klammern angezeigt. Weiß emand woran es liegen kann? Danke für euer Feedback.

------------------
Grüße vom
Erzmichel

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