|
Autocad VBA : und-color: #FFFF99'>Suchen/Ersetzen via RegExp
startrek am 07.02.2005 um 21:07 Uhr (0)
hey Roland, danke auch für den Link! und wieder einer mehr im Boot - schön, vielleicht können wir ja irgendwann mal sowas wie nen Club bilden ;-) Naja, zugegeben, das mit den 30 min. hat bei mir nich so ganz funktioniert ..., aber wenigstens weiss ich jetze, warum das mit dem | == oder nicht klappte, da muss man mit den kompliziertesten Mustern beginnen und nach hinten sukzessive vereinfachen [glaube], wieauchimmer, bin jetzt damit hier und habe es ziemlich verschlimmbessert [geht nämlich garnich mehr gr ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : und-color: #FFFF99'>Suchen/Ersetzen via RegExp
startrek am 17.09.2004 um 13:32 Uhr (0)
Hallo zusammen, ich hab mal versucht Bernd s [bst] RegexReplace für Excel auf ein Selectionset umzustricken, da ich die Idee ganz nett fand. Funktioniert aber nur für DTexte ;-) Ganz unten noch eine kleine Erklärung zum und-color: #FFFF99'>Suchen/Ersetzen, hier erstmal der Code, vielleicht kanns ja wer mal brauchen: Code: Verweis auf Microsoft VBScript Regular Expressions 5.5 setzen Option Explicit Sub such_ersetz() Dim stext As AcadText Dim such$, ersetz$ With ActiveDocument such = .Utility.GetString(1 ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : und-color: #FFFF99'>Suchen/Ersetzen via RegExp
startrek am 30.01.2005 um 19:45 Uhr (0)
Ich bleib mal in dem Thread, da das Thema doch etwas spezifisch ist: im Rahmen dieses Threads http://ww3.cad.de/foren/ubb/Forum54/HTML/009666.shtml, war ich zwar vba-functions-technisch dran, is aberein Fass ohne Boden. Hab heute zum Sonntag mal noch bissel rumgespielt, Basis war Axels Ausdruck: pattern = (.*?){f.*?;(.*?)}(.*) aus diesem Thread: http://ww3.cad.de/foren/ubb/Forum54/HTML/004190.shtml#000012 Leider berücksichtigt der keine Höhenangaben bei formatiertem Text, oder aber ich bin zu blö ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : und-color: #FFFF99'>Suchen/Ersetzen via RegExp
startrek am 17.09.2004 um 20:20 Uhr (0)
Ehm, it s me again, Nachtrag: Das ganze ist natürlich recht simpel gestrickt und auch nicht sonderlich getestet, war also mehr oder weniger nur ein Test/Ansatz. Für weiterführendes, speziell MText betreffend, versteck ich mich aber schonmal besser im nächstbesten Schrank ;-) Desweiteren ist hier weniger der Code das A&O, sondern eher der einzugebende Suchstring , im Nachinein erscheint mir der Begriff fast bissel unglücklich, es ist ja kein String in dem Sinne, sondern eher ein Such muster . Das Gan ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : und-color: #FFFF99'>Suchen/Ersetzen via RegExp
startrek am 18.01.2005 um 20:49 Uhr (0)
Zitat: Original erstellt von mapcar: Damit meinte ich, dass es unter VB(A) doch nicht reicht, nur einen Kommentar einzufügen, um auf etwas zu verweisen: Verweis auf Microsoft VBScript Regular Expressions 5.5 setzen Muss dann da nicht so was kommen? Declare Function publicname Lib "libname" [Alias "alias"] [( ByVal] variable [As type] [,[ByVal] variable [As type ...])] As Type dies hat mir ja nun teilweise schlaflose Nächte bereitet, deswegen: wenn ich auch ein sehr, sehr spätes Mädchen bin, ich ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : und-color: #FFFF99'>Suchen/Ersetzen via RegExp
startrek am 18.09.2004 um 13:45 Uhr (0)
Hi Axel, puhhh, Du bist ja wiewohl schon sehr tief in die Materie eingetaucht, was ich von mir nun nicht gerade behaupten kann. Dementsprechend flach fällt wohl auch mein Reply im Endeffekt aus. Von Perl hab ich absolut keinen Plan, von daher kann ich nix zu den Feinheiten & Unterschieden sagen. Die RegEx an sich sind schon ein mächtiges Werkzeug, aber eben auch hammermässig schwierig. Ich hab mich da bisher auch nur auf die einfachsten Sachen beschränkt, wie halt wenn man mal fix paar dTexte ändern w ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : und-color: #FFFF99'>Suchen/Ersetzen via RegExp
startrek am 18.09.2004 um 20:31 Uhr (0)
Damit meinte ich, dass es unter VB(A) doch nicht reicht, nur einen Kommentar einzufügen, um auf etwas zu verweisen. Ahso - nun, ich hielt es für wesentlich gesünder dem geneigten Tester einen Hinweis zu geben, wo ein Haken zu machen ist, als dass ich erstmal jemandes System verwirre, nur weil trekkie mal versucht hat, eine Lib automatisch laden. Jaja, hier sindse wieder die vba-kiddies, keine Ahnung wie se ne DLL korrekt aufrufen, ich geh dann mal besser Schleudereuter spielen ;-) Okay - ernstha ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Bestimmten Text kopieren, umwandeln und ersetzen
startrek am 23.01.2006 um 22:34 Uhr (0)
Hi,und erstmal willkommen hier, Jens.Ich zitiere dich mal teilweise: Ich möchte nach mehreren bekannten Texten in einer Zeichnung und-color: #FFFF99'>suchen, diesen kopieren (10 Einheiten nach oben o.ä.), jeweils in MTEXT umwandeln und dann diesen Text mit Text aus einer Excel-Tabelle ersetzen. Habe aber die Hoffnung dass mein Problem eigentlich nicht soo riesig sein kann?!So wie du das beschreibst, klingts schon riesig;-)Wozu erst kopieren, umwandeln und dann ersetzen?Man kann nach mehreren bekannten Texten [was auch immer ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : und-color: #FFFF99'>Suchen
startrek am 02.10.2004 um 12:00 Uhr (0)
Mahlzeit Bernd, schau mal ob Dir der Thread etwas weiterhilft: http://ww3.cad.de/foren/ubb/Forum259/HTML/000291.shtml Gruss Nancy
| | In das Form Autocad VBA 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 |
|
Autocad VBA : Problem mit Auswahlsatz
startrek am 08.01.2004 um 12:40 Uhr (0)
Hi Wolfgang, zwei kurze Ideen, 1.: if sset.count 1 then msgbox nur ein Block wählbar 2.: versuch einmal das Objekte wählen durch deinen eigenen String zu ersetzen, mehr als nen Fehler kanns nicht geben lg Nancy
| | In das Form Autocad VBA 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 |
|
Autocad VBA : Warum funktioniert das hier nicht?
startrek am 12.10.2004 um 10:19 Uhr (0)
Hi Heiko, zur letzten Frage: in der reinen VBA-Lib Drücke im VBE mal F2 [Objectkatalog], dann gib mal RTrim ein und geh auf und-color: #FFFF99'>Suchen, da bekommst Du alle Infos ;-) lg Nancy
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
