|
VBasic : EMail Link
startrek am 11.10.2004 um 15:28 Uhr (0)
Hi Badu, ob das mit den Standardsteuerlementen machbar ist, keine rechte Ahnung, glaube eher nicht. Fiele mir als eine Möglichkeit auf die Schnelle nur der M$ Webbrowser unter den Zusatzsteuerelementen ein, wo Du halt via Userform_initialize auf eine *.htm Datei [mit mailaddys] navigierst Code: Private Sub UserForm_Initialize() WebBrowser1.Navigate ( file://C:pfadindex.htm ) End Sub Aber hinsichtlich versch. Standardbrowsern darfst mich nicht fragen, nicht probiert ;-) lg Nancy
| | In das Form VBasic wechseln |
|
VBasic : Suche eine kleines Modul
startrek am 14.09.2005 um 17:02 Uhr (0)
Hi Boris,geschnitten oder am Stück? SolidEdge oder Inventor, Corel oder Word?Code:Sub kleines_modul_für_ACAD() Dim rect As AcadPolyline Dim insp, L#, coo#(11) L = CDbl(ThisDrawing.Utility.GetString(0, "Kantenlänge: ")) insp = ThisDrawing.Utility.GetPoint(, "Einfügepunkt:") coo(0) = insp(0): coo(1) = insp(1): coo(2) = insp(2) coo(3) = coo(0) + L: coo(4) = coo(1): coo(5) = coo(2) coo(6) = coo(3): coo(7) = coo(4) + L: coo(8) = coo(2) coo(9) = coo(0): coo(10) = coo(7): coo(11) = coo(2) Set rect = This ...
| | In das Form VBasic wechseln |
|
VBasic : Suche eine kleines Modul
startrek am 24.09.2005 um 14:06 Uhr (0)
Hi hep,müsste für obiges so in etwa ausschauen:[code]Private Sub Command1_Click() Dim ac As Object, acDoc As Object Dim rect As Object Dim insp, L#, coo#(11) Set ac = CreateObject("autocad.application.15") Set acDoc = ac.activedocument ac.Visible = True L = CDbl(acDoc.Utility.GetString(0, "Kantenlänge: ")) insp = acDoc.Utility.GetPoint(, "Einfügepunkt:") coo(0) = insp(0): coo(1) = insp(1): coo(2) = insp(2) coo(3) = coo(0) + L: coo(4) = coo(1): coo(5) = coo(2) coo(6) = coo(3): coo(7) = coo(4) + L ...
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
startrek am 08.12.2005 um 13:24 Uhr (0)
Hi Garry,manche Texteditoren (zB VIM www.vim.org) können REGEXPda sähe das ganz einfach so aus für die erste Fundstelle::%s/,/,POS-/Ich geh mal davon aus, das fehlende führende Hochkomma ist ein Schreibfehler,wenn nicht, gehts doch normal im Wordpad;-)Oder als Makro und ohne RE;-)Code:Sub asdf() Dim s0$, s1 Open "o: est.txt" For Input As #1 Open "o: est1.txt" For Output As #2 While Not EOF(1) Line Input #1, s0 s1 = Split(s0, ",") s1(1) = "POS-" & s1(1) Print #2, Join(s1, ",") Wend Close ...
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
startrek am 08.12.2005 um 23:25 Uhr (0)
Kann man ein Makro so abspeichern das es, wenn es aufgerufen wird Startet und Abläuft. Denke schon;-)Gugge mal hier Du brauchst natürlich eine Application dazu, welche VBA unterstützt.Das kann Autocad sein, Excel oder Word, oder auch Corel Draw oder weiss-der-Geier ...Einfach Alt+F11 drücken, Einfügen Modul, in das Codefenster Modul1 den code kopieren und ausführenmit F5 oder Alt + F8 je nachdem unter welcher UmgebungRein theoretisch [mangels Nichtwissen] müsste auch sowas gehen, wenn du den code kopiers ...
| | In das Form VBasic wechseln |
|
VBasic : einlesen von koordinaten aus excel in autocad mit vba
startrek am 05.02.2006 um 18:42 Uhr (0)
Hi & Willkommen,hier ein Beispiel von Acad aus Excel:Code:Sub test() Const xlup& = -4162 Dim xlApp As Object, xlWB As Object Dim i&, acP#(2) Set xlApp = CreateObject("excel.application") Set xlWB = xlApp.workbooks.Open("d:mappe1.xls") With ThisDrawing.ModelSpace For i = 1 To xlWB.Sheets(1).Cells(xlApp.Rows.Count, 1).End(xlup).Row spalte A [x] acP(0) = xlWB.Sheets(1).Cells(i, 1) Spalte B [y] acP(1) = xlWB.Sheets(1).Cells(i, 2) Spalte C [z] acP(2) = xlWB.Sheets(1).Cells(i, 3) .AddPoint ...
| | In das Form VBasic wechseln |
|
VBasic : Datei finden
startrek am 15.03.2006 um 14:44 Uhr (0)
Hallo Heiko,so?Code:Sub y() Dim s$ s = Dir("d:*.dwg") While s "" If IsNumeric(Right(Split(s, ".")(0), 2)) Or _ Right(Split(s, ".")(0), 2) = "xx" Then Debug.Print s s = Dir WendEnd SubGruss Nancy
| | In das Form VBasic wechseln |
|
VBasic : Datei finden
startrek am 25.03.2006 um 13:07 Uhr (0)
Hi Klaus, regex.Pattern = "^[A-Za-z][0-9]{5}[0-9x][0-9x]$"matched das in VBScript??? Bei mir geht nur sowas:Code:regex.Pattern = "^[A-Za-z][0-9]{5}(?:dd|xx).dwg$"oderregex.Pattern = "wd{5}(?:dd|xx).dwg"Gruss Nancy-- ps: zB bei:A1234501.dwg YA12345xx.dwg YA1234599.dwg YA12345zz.dwg N
| | In das Form VBasic wechseln |
|
VBasic : Datei finden
startrek am 25.03.2006 um 14:27 Uhr (0)
Jo Claus,du hast recht, w kann auch eine Ziffer sein, auweia das hab ich voll versemmelt;-)Also auch Dir Danke für den Hinweis, aber wo wir grade beim perfektionieren sind,noch was:Code:regex.Pattern = "^[A-Za-z]d{5}[0-9x]{2}.dwg$"= matched auch auf: A12345x0.dwgdeswegen Kombination aus deinem und meinemregex.Pattern = "[A-Za-z]d{5}(?:dd|xx).dwg"ich hoffe das müsste nun einigermaßen sicher sein.Achja was gibt es schöneres als so ne kleine RegExp-Übung an so nem verregneten Samstag ... lg Nancy
| | In das Form VBasic wechseln |
|
VBasic : ungültiges Zeichen in einem String
startrek am 27.03.2006 um 12:48 Uhr (0)
Hallöle Bernd :-)youre right, ich hatte mich nur auf das Rexp bezogen, nicht auf die erlaubten Zeichen im Blattnamen, silly me ... BTW, ups da ist sogar ein Ø erlaubt ...Mir gings eher dadrum, manche speichern ja dann auch die Tabellen als Datei ab und da finde ich es besser, man hält von vornherein die Leine kurz, was Sonderzeichen angeht, soll heissen, nicht alles was erlaubt ist, ist auch automatisch gut;-)lg Nancy
| | In das Form VBasic wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
