---

Hallo,
hab im Amiland gerade dieses Makro entdeckt, aber noch nicht getestet.

Public Sub Add_Ø()
On Error Resume Next
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oSelectSet As SelectSet
Set oSelectSet = oDrawDoc.SelectSet
Dim colDimensions As New Collection
Dim i As Long
For i = 1 To oSelectSet.Count
If TypeOf oSelectSet.Item(i) Is DrawingDimension Then
colDimensions.Add oSelectSet.Item(i)
End If
Next
For i = 1 To colDimensions.Count
Dim oDimension As DrawingDimension
Set oDimension = colDimensions.Item(i)
oDimension.Text.FormattedText = "Ø"
Next
End Sub

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Rembrandt?     

Hi HP!
Was soll das Makro machen?
Durchmesserzeichen an einen selektierten Satz von Bemaßungen?
Oder an alle Maße? 

------------------
CU tph

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

---

Ich nehme mal an, alle selektierten Maße.
Wie gesagt ich habs noch nicht probiert.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Um genau zu sein: Durchmesserzeichen an alle selektierten Bemaßungen.

Ich gehe mal davon aus, das der Befehl

Code:

---

oDimension.Text.FormattedText = "Ø"

---

nur das Prefix meint, und den Wert nicht überschreibt.

Nachtrag: So einfach, wie sich die Ami´s das vorstellen geht´s nicht 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Hallo Hans Peter,

interessant wäre ob es die Toleranzen beibehält ?

Grüße Stefan

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

---

Die Toleranzen bleiben, aber das Ø-Zeichen steht hinten an.
Da ist eine Korrektur notwendig  .

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

So geht´s besser:

Code:

---

Public Sub Add_Ø()
On Error Resume Next
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oSelectSet As SelectSet
Set oSelectSet = oDrawDoc.SelectSet
Dim colDimensions As New Collection
Dim i As Long
For i = 1 To oSelectSet.Count
If TypeOf oSelectSet.Item(i) Is DrawingDimension Then
colDimensions.Add oSelectSet.Item(i)
End If
Next
For i = 1 To colDimensions.Count
Dim oDimension As DrawingDimension
Set oDimension = colDimensions.Item(i)
oDimension.Text.FormattedText = "<StyleOverride Font='AIGDT'>n</StyleOverride><DimensionValue/>"
'Debug.Print (oDimension.Text.FormattedText)

Next
End Sub

---

Bei mir tat´s garnichts.

Toleranzen checke ich gleich.

Nachtrag: Toleranzen sind ein anderes Objekt. Werden nicht angefaßt.

Das Makro ersetzt jetzt jeden Bemaßungstext durch den Ausdruck "Durchmesser Wert". Alle anderen Überschreibungen, die vorhervgemacht wurden gehen verloren. Toleranzen bleiben wie voreingestellt.

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Das klappt bei mir nicht.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Zitat:

---

Original erstellt von SHP:
Das klappt bei mir nicht.

---

Bei mir klappt des 

Diva X SP2

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

So klappt es bei mir im 9er.

oDimension.text.FormattedText = "<StyleOverride Font='AIGDT'>n</StyleOverride><<>>"

------------------
Gruß
Hans-Peter 
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

[Diese Nachricht wurde von SHP am 13. Dez. 2005 editiert.]

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

---

Ok, Alles klar. Die kleinen aber feinen Unterschiede 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

So, hier beide Varianten.

Public Sub Add_Ø()
On Error Resume Next
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oSelectSet As SelectSet
Set oSelectSet = oDrawDoc.SelectSet
Dim colDimensions As New Collection
Dim i As Long
For i = 1 To oSelectSet.Count
If TypeOf oSelectSet.Item(i) Is DrawingDimension Then
colDimensions.Add oSelectSet.Item(i)
End If
Next
For i = 1 To colDimensions.Count
Dim oDimension As DrawingDimension
Set oDimension = colDimensions.Item(i)

'im 9er
'oDimension.Text.FormattedText = "<StyleOverride Font='AIGDT'>n</StyleOverride><<>>"

'im 10er
oDimension.Text.FormattedText = "<StyleOverride Font='AIGDT'>n</StyleOverride><DimensionValue/>"

'Debug.Print (oDimension.text.FormattedText)

Next
End Sub

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Zitat:

---

Original erstellt von Charly Setter:
Bei mir klappt des

---

Was diese Kurzaufenthalte im Schwabenländle alles bewirken...

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

---

Zitat:

---

Original erstellt von mimamb:
Was diese Kurzaufenthalte im Schwabenländle alles bewirken...

---

Gelle 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

makro.jpg

Hallo IV Profis,
mal ne Frage von einem Makro Dummi.

Wie bekommt man so ein Makro in die Diva. Bei der Anpassung der Werkzeugkästen habe ich "Makro" ja schon gefunden. Komme aber nicht weiter. Hilfe IV bringt auch nichts und bei cad.de auch nichts gefunden.

viele Grüße
Jens

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

---

Inventor_tt_6-03.pdf

Halo Jens

siehe Anhang

Gruss Christian

------------------
Wer andern eine Bratwurst brät,
hat ein Bratwurst-Bratgerät

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

---

sehr guter Thread siehe hier http://ww3.cad.de/foren/ubb/Forum258/HTML/000026.shtml

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

---

Danke an Euch für die Hilfe, funktioniert sehr gut.

Gruß Jens

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

---

hab mich gestern auch erstmal reingelesen! Funzt aber super   

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

---

Wirklich eine Super Sache!

Ich habe jetzt alles so gemacht, wie es im PDF beschreiben ist! Auch das mit dem Icon und dem BMP dazu funktioniert jetzt! 

Jedoch, wenn ich im IV eine Zeichnung öffne ist das Icon immer ausgegraut. Wenn ich nun auf Werkzeugleist anpassen gehe und unter Makro  diesen Befehl antippe wird dieses Icon aktiv geschaltet. 

Hab ich da irgend etwas noch vergessen, das dies geladen wird oder so ähnlich? Hat da jemand eine Ahnung, wo es da hackt? 

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

  Fg Mario

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

---

Liegt das evtl. an Deinen Projekteinstellungen?

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

---

VBA.jpg

Welche Projekteinstellungen meinst du da genau? Im Browser wird auf jeden Fall auf die IVB im IV Verzeichnis verwiesen!

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

  Fg Mario

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

---

Das Anführungszeichen vor dem Debug.Print muss weg (grüne Schrift)

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

---

So, hab es jetzt weg gemacht! Doch leider hat sich dadurch nichts geändert!   
Ist noch immer so wie schon beschrieben, ich bin am verzweifeln. Aber wenns einmal aktiv ist, funktioniert es solange die IV-Sitzung geöffnet ist!

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

  Fg Mario

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

---

hmmmm, nächste DAU Frage: was mache ich falsch, oder ist meine alte Diva einfach zu alt (2³)?

------------------
ciao bene
                 
"Bloody Stupid Johnson"  

AUGCE

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

---

Hallo Mario,

das selbe Problem hab ich auch.
Wenn ich das Icon in eine Werkzeugleiste ziehe kann ich es benutzen. So lang bis ich IV schließe und neu starte. Dann ist es immer ausgeraut.

Ist die Farbe Magenta die Transparente Farbe bei den Icons?

Gruß Thorsten

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

---

MacroIV9.jpg

Bei mir in IV 9 sieht es so aus

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

---

Zitat:

---

Original erstellt von Bonkers:
So, hab es jetzt weg gemacht! Doch leider hat sich dadurch nichts geändert!   
Ist noch immer so wie schon beschrieben, ich bin am verzweifeln. Aber wenns einmal aktiv ist, funktioniert es solange die IV-Sitzung geöffnet ist!

---

IV schon mal neu gestartet 

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

---

Nachdem ich den Inventor das Makro zu fressen gegeben habe und Icons in das entsprechende Verzeichniss gepackt hab erscheint das Makro Add_Ø 2x unter Anpassen/Befehle/Makros

Ist das Normal oder hab ich was falsch gemacht?

Auch nach dem Neustart ist das Symbol noch ausgegraut, auch wenn man das ' vor dem letzten Befehl wegmacht.

Gruß Thorsten

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

---

Zitat:

---

Original erstellt von Bene:
hmmmm, nächste DAU Frage: was mache ich falsch, oder ist meine alte Diva einfach zu alt (2³)?

---

Ich tippe mal ja.

Bist Du immer noch nicht umgestiegen. Wozu bezahlt Ihr die Sub....

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Zitat:

---

Original erstellt von Charly Setter:

Ich tippe mal ja.

Bist Du immer noch nicht umgestiegen. Wozu bezahlt Ihr die Sub....

---

gar nicht mehr? Aber die 2² liegt unterm Tisch und die 10 ist angefragt wg. Vault/Productstream - ob ich die Einführung hier noch erleben darf   

------------------
ciao bene
                 
"Bloody Stupid Johnson"  

AUGCE

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

---

@ Peterpaul:
Ja, hab IV neu gestartet und auch den Rechner. Funktioniert nicht!
Hab auch mal alles wieder heraus gelöscht und neu erstellt --> leider auch nichts!
Das Makro ist genau das gleiche wie bei dir!   

@ Thorsten:
ja, bei mir ist es auch 2x vorhanden! Du stellst dich ja genau so an wie ich!!!     

     

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

  Fg Mario

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

---

Hallo,
kann es sein, daß ihr den Button NICHT bei einer geöffneten Zeichnung in die Werkzeugleiste eingefügt habt?

Wir hatten gerade auch Euer beschriebenes Problem.
Haben dann den Button gelöscht.
Eine idw geöffnet.
Button wieder rein.

nun funzt es.

STOOOOOOOOOOOOOOOOOOP alles zurück, mein Kollege sagt nun geht es doch nicht. Sorry für die Falschinfo.

[Diese Nachricht wurde von haputo am 15. Dez. 2005 editiert.]

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

---

Hallo Haputo,

geht doch, aber nur so lange du den IV nicht wieder schliesst und neu startest!

Wäre doch zu schön gewesen! 

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

  Fg Mario

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

---

In welchem Werkzeugkasten wollt ihrs denn einfügen?
Ich habs im "Zeichnungskommentar" eingefügt, wo es auch blieb.
HTH

Gruss Christian

------------------
Wer andern eine Bratwurst brät,
hat ein Bratwurst-Bratgerät

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

---

@Mathias,

in IV8 geht's definitiv nicht - kein SelectSet in Zeichnungsdokumenten.

Für die 9 und 10 habe ich mal ein Tool gemacht ----> www.morecam.ch/cad.htm  guckst Du bei DrawingDimensionTextEdit - macht alle möglichen Sonderzeichen, kostet halt auch 'ein paar Eurofünfzig'

Grüsse,

Paul
www.morecam.ch
www.thinkcad.de

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

---

Stimmt, und für die Zeit, die die Jungs mit den Buttons verballern hätten Sie es auch schon kaufen können.

Aber so beschäftigen Sie sich wenigstens mal mit der Materie 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Zitat:

---

Original erstellt von Charly Setter:
... Aber so beschäftigen Sie sich wenigstens mal mit der Materie ...

---

Hi Mathias,

das ist immer gut - so wird dem Einen oder Anderen auch klar, dass sowas nicht mit 5 Zeilen Code zu machen ist.

Du als heimlicher VB- und VBA-ler wist das ja...

Grüsse,

Paul

www.morecam.ch
www.thinkcad.de

[Diese Nachricht wurde von PaulSchuepbach am 15. Dez. 2005 editiert.]

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

---

Naja, eher Delphi für Berechnunge und Automatisierungstechnik.

In den anderen Kram (IV, VB(A) ) muß ich mich erst einarbeiten.

Dann aber eher C# 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Hi an alle,

Macro für Durchmesserzeichen oder x45° oder oder oder?

Wofür gibt es die Bemaßungsstile?
Hier kann man doch alles vordefinieren.

Bemaßungstile mit entsprechendem Präfix oder Suffix erzeugen, Bemassungen (auch mehrere) wählen und Stil oben rechts anklicken --> fertig.

------------------
--------------------------
Wolfgang Venhoff
Autodesk Inventor Certified Expert

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

---

Zitat:

---

Original erstellt von wolfgang.venhoff:

.....
Wofür gibt es die Bemaßungsstile?
.....

---

Das frage ich mich auch schon die ganze Zeit, aber vielleicht gibt es ja doch einen Vorteil für dieses Makro und ich erkenne das nur nicht.

------------------
Viele Grüsse aus dem Schwarzwald
Uwe S.

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

---

Doch, wenn Du getorft hast und mit dem falschen Stil bemaßt hast. 

Weiß auch nicht, aber so als Spielerei ist´s doch OK, oder ? 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Na ja, es sind halt wieder mal die lieben Kollegen! Es ist für die, die weniger mit IV zu tun haben, das ganze über ein verständliches Icon umschalten zu können. Über die Stile umschalten geht natürlich, aber es macht ja schon Probleme eine DWG zu erstellen, und das ist ja auch nur der Objektstil auf ACAD zu ändern!

@ McChristim: Funktioniert leider auch im Zeichnungskommentar auch nicht!

PS:Etwas dazu lernen ist ja auch nicht schlecht. VBA ist ja wirklich sehr interessant, aber leider für mich noch absolut unverständlich!

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

  Fg Mario

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

---

Zitat:

---

Original erstellt von wolfgang.venhoff:
... Wofür gibt es die Bemaßungsstile?
Hier kann man doch alles vordefinieren.

Bemaßungstile mit entsprechendem Präfix oder Suffix erzeugen, Bemassungen (auch mehrere) wählen und Stil oben rechts anklicken --> fertig.

---

Zitat:

---

Original erstellt von Uwe.Seiler:
Das frage ich mich auch schon die ganze Zeit, ...

---

Das Verwenden von eigenen Bemaßungsstilen für Pre- und Postfixes wie ein Durchmesserzeichen oder "x45" ist zwar sehr praktisch, aber man sollte sich auch die Konsequenzen vor Augen führen:

Eine nachträgliche Änderung des Bemaßungsstils (z.B. Maßpfeile, Abstände ...) muss dann für alle Stile getrennt vorgenommen werden.

Nur ein Stil ist über den Objektstandard zugeordnet, die anderen Stile umgehen den Objektstandard. Tauscht man nachträglich den Objektstandard aus (z.B. Anpassung an andere Zeichnungen, Kundenwünsche, Export per DWG ...), bleiben z.B. alle Durchmesser- und Fasenbemaßungen davon unberührt.

Daher finde ich Textüberschreibungen (wie in der Acad/M-Powerbemaßung) wesetlich sinnvoller und hoffe, dass das auch in IV mal so einfach gehen wird.

------------------
Michael Puschner
Autodesk Inventor Certified Expert
Scholle und Partner GmbH

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

---

Bei wem der Button füe Add_Ø ausgegraut ist, der sollte das Makro (und auch das Bitmap)auf Add_dm unbenennen.
Dann funzt es  .

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Hallo,

gibt es denn auch Makros für Fasenbemaßung, ... als frei verfügbare Version?
Gibt es gute Literatur zum Thema VBA?

Gibt es ferner für das Makro eine Möglichkeit, die betreffenden Maße erst nach dem Aufruf des Befehls per Mausklick auszuwählen?
Jetzt muss ja "Objekt vor Befehl" gewählt werden - schön wäre es auch, wenn man die betreffenden Maße nach dem Start des Befehls anwählen könnte.

[Diese Nachricht wurde von olinka am 16. Dez. 2005 editiert.]

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

---

Zitat:

---

Original erstellt von SHP:
Bei wem der Button füe Add_Ø ausgegraut ist, der sollte das Makro (und auch das Bitmap)auf Add_dm unbenennen.
Dann funzt es  .

---

rotfl

Ich hatte gleich so ein komisches Gefühl, als ich den Namen des MAkro´s gesehen habe.

@Michael: Auch im Acad (pur) habe ich damals mit Stilen gearbeitet. Das leidige Anpassen per Textüberschreibung war mir zu blöde.

Schön wär´s, wenn die "Spezialstile" die Grundeinstellungen von einem "Master" erben würden und bei einer Änderung des "Masters" diese Änderungen übernehmen würden.

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Durchm_BMP.zip

 

Zitat:

---

Original erstellt von SHP:
Bei wem der Button füe Add_Ø ausgegraut ist, der sollte das Makro (und auch das Bitmap)auf Add_dm unbenennen.
Dann funzt es    .

---

Toll es geht, da werden meine Kollegen eine Freude haben.   

Besten Dank und schönes WE an alle!   

PS: Wer das BMP verwenden will! Ich stells halt mal rein!

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

   
  Fg Mario

[Diese Nachricht wurde von Bonkers am 16. Dez. 2005 editiert.]

[Diese Nachricht wurde von Bonkers am 16. Dez. 2005 editiert.]

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

---

Zitat:

---

Original erstellt von wolfgang.venhoff:

Macro für Durchmesserzeichen oder x45° oder oder oder?

---

Hallo zusammen,

ich mache mich schon seit längerem in diesem Forum schlau, wenn es um CAD-Fragen geht. Doch dies ist jetzt mein erstes Posting.
Habe diese Woche noch mit einem Kollegen über diese Sache gesprochen, dass es doch ein Makro geben müßte für das einfügen des Durchmesserzeichens. Tja, und wie es der Zufall will, habe ich es hier gleich gefunden. Allerdings habe ich null Ahnung von Makro-Programmierung.
Nun denn, das DM-Zeichen habe ich mit Hilfe der ausführlichen Anleitungen zwar eingefügt, aber wie kann ich das Makro denn umschreiben, dass es jetzt ein Makro zum  einfügen der x45° wird.
Wie schon gesagt, null Ahnung von den ganzen Variablen und so. Scheint ja auch nicht wirklich einfach zu sein. Zumindest habe ich nirgends einen Text gesehen, wie etwa 'Durchmesserzeichen vor Auswahl setzen'.
Diesen hätte ich dann einfach in 'x45° hinter Auswahl setzen' geändert.
Aber so einfach ist es wohl nicht.
Wenn mir also jemand ne Anleitung dafür schreiben könnte wäre ich sehr dankbar.

MfG figgi

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

---

Herzlich willkommen figgi im Weltbesten Forum !

Du mußt im Code oben einfach die Zeile die mit oDimension.Text beginnt durch folgende ersetzen. Ich glaube das Schema ist klar, oder ?
In der Klammer steht der Bemaßungswert dahinter einfach der Text.Mit dem Style Override kann man wohl den Textstil ändern falls das nötig ist (z.B. beim Durchmesserzeichen den Textstil AIGDT)

oDimension.Text.FormattedText = "<DimensionValue/>x 45°"

Gruß

Michael

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