|
CATIA V5 Programmierung : vbscript macro auf allen geöffneten zeichnungen ausführen
dero2k am 04.03.2013 um 09:04 Uhr (0)
Hiich habe ein macro welches bei der gerade geöffneten zeichnung ein parr property einträge ausfüllt diese dann speichert und schliest. funktioniert soweit auch einwandfrei, allerdings hätte ich gerne das er dann mit den anderen geöffneten zeichnungen weiter macht. ich also nicht bei jeder zeichnung einzeln das macro starten muss.hier mal der codeCode:Language="VBSCRIPT"Sub CATMain()Set drawingDocument1 = CATIA.ActiveDocumentSet parameters1 = drawingDocument1.ParametersSet strParam1 = parameters1.Item("Dra ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : vbscript macro auf allen geöffneten zeichnungen ausführen
dero2k am 04.03.2013 um 09:30 Uhr (0)
hidanke für die schneller antwort.leider bin ich nicht so bewandert was das programmieren angeht und weis daher nicht wie ich die schleife einbaue. hast du da villeicht ein beispiel ?und wie meinst du das mit dem namen ? bis jetzt hat das macro immer funktioniert
|
| In das Form CATIA V5 Programmierung wechseln |
|
Inventor .NET : c# Inventor Material auslesen und ändern
dero2k am 07.03.2013 um 08:59 Uhr (0)
hidanke für die schnelle antwort.allerdings scheint dies nicht das zu sein was ich suche. oder ich komme nicht mit klar.so wie ich das sehe werden mit dem macro nur gewisse eigenschaften des materials ausgelesen. das macro was ich erstelle ist übrigens für iv 2011
|
| In das Form Inventor .NET wechseln |
|
Inventor : Inventor 2012 Makros in altes menü
dero2k am 10.10.2011 um 14:47 Uhr (0)
Hihabe jetzt iv 2012 installiert und es auch schon geschafft das hässliche multi funktions ui über die registry abzuschalten. nur leider finde ich keine möglichkeit mit dort oben selber symbole reinzuziehn habe mir ein macro erstellt um die geöffnete Zeichnung direkt als pdf zu drucken und würde das macro gerne oben ablegen. bei 2008 hatte dies noch wunderbar geklappt.Danke schonmaDero
|
| In das Form Inventor wechseln |
|
Inventor VBA : Alle geöffneten idws Drucken
dero2k am 12.10.2011 um 08:09 Uhr (0)
HiIch habe mir ein macro erstellt um die geöffnete IDW mit meinen Einstellungen auf A3 Drucken zu lassen. Funktioniert so weit auch supper. Jetzt würde ich das macro gerne abändern, bzw. Ein 2. Erstellen mitdem alle geöffneten IDWs so gedruckt werden. Gibt es dazu villeicht schon Beispiel Code oder könnt ihr mir sagen mit welchem Befehl ich das ganze realisieren kann ?Danke schonmalDero
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Macro auf allen blättern einer IDW ausführen
dero2k am 29.04.2013 um 12:30 Uhr (0)
Hihabe mir gerade ein Macro geschrieben was automatisch den maßstab einer zeichnung ausfüllt funktioniert soweit auch perfekt.nun würde ich aber gerne das macro gleich über alle blätter der IDW laufen lassen, zurzeit wird der maßstab nur bei dem aktiven blatt ausgefüllt.hier mal der codeCode:Function SetPromptValue(ByVal fBlock As TitleBlock, _ByVal fPrompt As String, _ByVal fValue As String)Changes the value of prompted entry in the title blockOn Error Resume NextDim oTextbox As Inventor.TextBoxDim oTextB ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Macro auf allen blättern einer IDW ausführen
dero2k am 29.04.2013 um 16:34 Uhr (0)
so habe es geschafft.hier mal der code falls es jemanden interessiert.Code:Public Sub Maßstab() Dim oSourceDocument As DrawingDocument Set oSourceDocument = ThisApplication.ActiveDocumentDim oSheet As Sheet For Each oSheet In oSourceDocument.Sheets oSheet.ActivateCall prompt_fillNext End Sub
|
| In das Form Inventor VBA wechseln |
|
Inventor : INV 2012 macro symbol größe
dero2k am 11.10.2011 um 11:28 Uhr (0)
Hihabe jetzt meine macros von iv2008 unter 2012 am laufen aber leider sehen die symbole nicht so schön aus.habe die small mit 16x16px und die large mit 32x32pxsehen aber halt leider doch recht verpixelt aus. in welcher größe muss ich sie abspeichern für iv2012danke schonmalDero
|
| In das Form Inventor wechseln |
|
Inventor VBA : vba skizzierte symbole nach namen
dero2k am 29.04.2013 um 11:17 Uhr (0)
hidanke für die antwort habe es aber in diesem moment so gelöst bekommen.Code: Dim myidw As DrawingDocument Set myidw = ThisApplication.ActiveDocument Dim oSS As SketchedSymbol For Each oSS In myidw.ActiveSheet.SketchedSymbols If oSS.Definition.Name = "Zusatzschriftfeld 2" Then Set otext = oSS.Definition.Sketch.TextBoxes.Item(4)Call oSS.SetPromptResultText(otext, sMassstab1) End If NextEnd Subjetzt wäre noch die frage wie ich das macro über alle blätter einer zeichnung aufeinmal laufen lasse ...
|
| In das Form Inventor VBA wechseln |
|
AutoCAD VBA : Autocad vba layer nach namen wechseln
dero2k am 06.08.2013 um 11:34 Uhr (1)
nunja er soll ja nicht einfach nur umbenannt werden sondern wirklich der layer gewechselt werden.also das er aus einer weißen 0.5er linie z.b. eine rote 0.25er linie macht so wie das in dem layer vorgegeben ist.also nach dem motto select all layers "layer1" change to "layer2"allerdings weis ich nicht wie ich da überhaupt vorgehe da das mein erstes acad macro werden soll
|
| In das Form AutoCAD VBA wechseln |
|
Inventor .NET : c# Inventor Material auslesen und ändern
dero2k am 07.03.2013 um 14:00 Uhr (0)
ok soweit das das aktuelle material in der combobox angezeigt wird bin ich jetztaber wie bekomme ich jetzt die liste der verfügbaren materialien in die combobox ?€€€€habe jetzt versucht das material durch einfaches ändern des textes in der combobox zu setzen. aber leider funktioniert dies nicht wirklich. in inventor ist immernoch das alte material gesetzt und auch die farbe des bauteils ändert sich nicht.wenn ich allerdings mein macro nochmal starte zeigt er mir das material an was ich vorher eingetragen h ...
|
| In das Form Inventor .NET wechseln |
|
Inventor VBA : vba skizzierte symbole nach namen
dero2k am 29.04.2013 um 10:38 Uhr (0)
Hihabe mir ein macro erstellt was einen wert in einem skezzierten symbol ausfüllt.Code:Dim odrawdoc As DrawingDocumentSet odrawdoc = ThisApplication.ActiveDocumentDim Sym As SketchedSymbolSet Sym = odrawdoc.ActiveSheet.SketchedSymbols.Item(1)Dim otext As TextBoxSet otext = Sym.Definition.Sketch.TextBoxes.Item(4)Call Sym.SetPromptResultText(otext, "xxx33x33")End Subfunktioniert soweit auch ganz gut das einzige problem was ich noch habe das er das symbol über .Item(1) auswählt, also das zuerst gesetzte. nun ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Part macro bei doppelklick in baugruppe nutzen
dero2k am 13.08.2012 um 14:08 Uhr (0)
Hi forumIch habe ein Makro um in einem part mit einem klick direkt die ausgewählte fläche in einer bestimmten farbe einzufärbenallerdings funktioniert dies leider nicht wenn ich das part in der baugruppe geöffnet habe. also doppelklick auf das teil. dann wird ja alles andere durchsichtig.hier mal der code, villeicht kann mir ja jemand helfen dies so anzupassen Code:Public Sub Passflächen() Dim strColorName As String strColorName = "RAL 1012 Zitronengelb" On Error Resume Next Dim oPartDoc As PartDocum ...
|
| In das Form Inventor VBA wechseln |
