|
Anwendungen : Tool zum Ersetzen von Texten gesucht
startrek am 12.11.2003 um 14:28 Uhr (0)
@Stefan: masochistisch (puristisch?) da hast Du wohl recht ..., auch weil einfach mal zu komplex. Okay, sehe ein, der Vorschlag war vielleicht bissel gewagt Sagen wir mal Heinos Frage bleibt somit noch offen. (hab da momentan keinen Plan) lg Nancy
| | In das Form Anwendungen wechseln |
|
Rund um AutoCAD : Texte ersetzen
startrek am 31.01.2005 um 00:00 Uhr (0)
reichlich OT, aber nett rübergebracht ;-),kenn ich auch irgenwoher ... alte codes von einem selbst zu lesen & und nicht darüber zu schmunzeln ...Von daher, würde auch morgen alles anders machen als gestern & heute[und wenns *nur* ne fielmann-Brille ist] ;;-))Wenns nicht so wäre, hat man entweder den Stein der Weisen bereits entdeckt oder ist tot ...lg Nancy -- ps: war echt kein effektiver Beitrag, nur Gelaber :dream
| | In das Form Rund um AutoCAD wechseln |
|
Excel : und-color: #FFFF99'>suchen nach XX in allen Tabellenblättern
startrek am 14.09.2004 um 13:31 Uhr (0)
Hi Gazelle, mal ohne Makro, alle Tabellen selektieren und danach die Suche starten. Vielleicht hilft Dir das schon weiter? Wenn nicht, nochmal melden. lg Nancy
| | In das Form Excel wechseln |
|
Excel : Ersetzen von Zeilenhöhen !
startrek am 24.11.2005 um 20:22 Uhr (0)
Hi Engel,so?Code:Sub send_me_an_angel() Dim i& With ActiveSheet.UsedRange For i = 4 To .Row + .Rows.Count Rows(i).AutoFit Select Case Rows(i).RowHeight Case 12.75: Rows(i).RowHeight = 15 Case 25.5: Rows(i).RowHeight = 25 Case 28.38: Rows(i).RowHeight = 40 Case 51: Rows(i).RowHeight = 52 End Select Next End WithEnd Sub;-)Gruss, Nancy
| | In das Form Excel wechseln |
|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
startrek am 05.11.2004 um 15:45 Uhr (0)
Moony, wenns wirklich nur eine Pline[Rechteck]/gesuchten Layer enthalten ist, und nicht so dolle viel Elemente in der Zeichnung sind , dann als Ansatz evtl auch: Code: Sub x() Dim i&, min, max With ThisDrawing.ModelSpace For i = 0 To .Count If TypeOf .Item(i) Is AcadLWPolyline And .Item(i).Layer = test Then .Item(i).GetBoundingBox min, max MsgBox minPoint: & min(0) & | & min(1) & Chr(13) _ & maxPoint: & max(0) & | & max(1) Exit For End ...
| | In das Form Autocad VBA wechseln |
|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
startrek am 11.07.2005 um 16:52 Uhr (0)
... quick n dirty noch, allerdings je quick desto dirty Code: Sub asdf() Dim src, a, b, x, y x = 3: y = blabla src = Array(1, 2, 3, 1, 2) a = Filter(src, x): b = Filter(src, x, 0) If Not CBool(UBound(a)) Then ReDim Preserve b(LBound(b) To UBound(b) + 1) b(UBound(b)) = y: src = b Else: MsgBox matches 1 End If End Sub lg Nancy [Diese Nachricht wurde von startrek am 11. Jul. 2005 editiert.]
| | In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : In einem Array und-color: #FFFF99'>suchen
startrek am 11.07.2005 um 13:19 Uhr (0)
Hi Cookie, fürchte mit normalen Arrays haste da schlechte Karten, bleibt IMHO nur die Schleife. Prüfen, ob ein Wert überhaupt vorkommt kannst evtl. mit Filter(), also so in etwa: If UBound(Filter(deinArr, deinWert )) = -1 Then MsgBox not exists Ansonsten bleiben Collections oder Dictionary als Alternative;-) Code: Sub test() Dim mydic As New Scripting.Dictionary mydic.Add key1 , one mydic.Add key2 , two mydic.Add key3 , three Debug.Print mydic( key1 ), mydic.Items(2), mydi ...
| | In das Form INVENTOR VBA wechseln |
|
Excel : zahlenwert aus String
startrek am 10.09.2004 um 14:42 Uhr (0)
Hi Joey, einfach mal ein Schuss ins Blaue, via und-color: #FFFF99'>Suchen/Ersetzen ersetzen durch [nix] ? lg Nancy
| | In das Form Excel wechseln |
|
Rund um Autocad : text aus dwg exportieren
startrek am 08.03.2005 um 21:53 Uhr (0)
auch noch ein Vorschlag, Ja die lieben und-color: #FFFF99'>MTexte machen einem hier das Leben schwer, habs mal der einfachheit halber simply in ne txt geschrieben, mit nem $ als Trenner, muss man dann halt unter Excel in Zeilenumbrüche ersetzen oder Daten Text in Spalten especially für und-color: #FFFF99'>MTexte freilich ;-) Alle andren Formatierungen ebenso aussen vor, das wird sonst bissel heftiger [isMirSchlecht;-)] ... lg Nancy Code: Sub xx() Dim i&, s$, arr With ThisDrawing.ModelSpace Open d: extit.txt For Output As #1 For i ...
| | In das Form Rund um Autocad wechseln |
|
Excel : Zellenformatierung: Ungewolltes Ändern in das Format Datum
startrek am 04.07.2003 um 18:20 Uhr (0)
Nachtrag, also das Ganze funktioniert sogar ohne numberformat, wahrscheinlich schlägt beim und-color: #FFFF99'>suchen/ersetzen irgendeine Formatautomatic zu, die das gesetzte Format überschreibt, zumindest sieht man das wenn man einfach mal ein Makro aufzeichnet, was er da alles so hineintextet (habe das einfach gelöscht) also nochmal less is more und ohne select siehts auch noch hübscher aus Grüsse Nancy -- Sub einfacher() Columns( A:A ).Replace What:= _ , Replacement:= . End Sub
| | In das Form Excel wechseln |
|
Rund um Autocad : MTEXT
startrek am 05.02.2006 um 12:22 Uhr (0)
Hi Antor,nicht besonders getestet, also eher für simple und-color: #FFFF99'>MTexte,kannst du mal folgendes probieren:Code:Sub del_second_row() Dim sset As AcadSelectionSet, ent As AcadEntity Dim rex As Object Set sset = ActiveDocument.SelectionSets.Add("set3") sset.SelectOnScreen Set rex = CreateObject("vbscript.regexp") rex.Global = True rex.Pattern = "(.*?P)(.*?P)(.*)" For Each ent In sset If TypeOf ent Is IAcadMText Then ent.TextString = rex.Replace(ent.TextString, "$1$3") End If Next sset.Delete Set ...
| | In das Form Rund um Autocad wechseln |
|
VBasic : Zeichenumwandlung
startrek am 06.02.2005 um 19:53 Uhr (0)
Hmm, ich kenn ja deine Texte/ersetzungen nicht, aber über ne Schleife? Geht sicher, aber irgendwoher muss er ja eine Art und-color: #FFFF99'>Suchen/Ersetzen Info bekommen. Theoretisch das ganze Palaver in nem Array oder nem externen File speichern, so als eine Art Übersetzungstabelle . Sinngemäss: Code: dim arr(1 to 10, 1 to 2) arr(1,1)= 1 : arr(1,2)= eins arr(2,1)= 2 : arr(2,2)= zwei arr(3,1)= 3 : arr(3,2)= drei arr(4,1)= 4 : arr(4,2)= vier Dann kannste den ganzen Kram mit for lbound(arr) to ubound(arr) - nex ...
| | In das Form VBasic wechseln |
|
Autocad VBA : Text selectieren / auslesen
startrek am 14.09.2005 um 12:18 Uhr (0)
Hi & welcome,ja, sendcommand "_mtedit" und sendkeys "^a" und sendkeys "^c" geht schonmal nicht, bzw. halt nur zu Fuss, da während der Texteditor aktiv ist, acadbefehle nicht ausgeführt werden.Damit hättest Du wenigstens den Text in der Zwischenablage ohne Formatierungsmüll.Na was solls, is halt alles nich so einfach ...Für einfache und-color: #FFFF99'>Mtexte kannste den Textstring auslesen, also so in etwa:Code:Sub a() Dim sset As AcadSelectionSet Dim pnt#(2), i%, s$ pnt(0) = 42.5: pnt(1) = 11 With ThisDrawing Set sset ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
