|
Autocad VBA : Objekt kopieren solange bis Taste E es beendet
Stelli1 am 13.11.2006 um 20:59 Uhr (0)
Hallo Tom,habs mal abgespeckt. Es läuft, aber so macht man das nicht.Mir ist AutoCAD 2mal abgeschmiert.Machs wie in allen anderen Funktionen mit der RT/ESC.Aber wie auch immer. Du musst schon ein Timer Kontroll einbinden.EIne Zählschleife bringt es nicht da sie nicht abgearbeitet wird.Code:Modul1Option ExplicitPublic E_gedrückt As BooleanDeclare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As IntegerSub test()Dim dbltest As DoubleDim i As IntegerDim AntwortDim GesamtflaecheDim loeschen As In ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Probleme mit Dateidruckbatch
Stelli1 am 27.11.2006 um 20:57 Uhr (0)
Hallo Ralph,ohne genau in dein Problem einzusteigen....Eine Schleife die wartet bis eine Datei da ist kannst du auch ohne On Error machen. Such doch nach dem Dateinamen wie so z.B.Code:While dir(Datei)=""wendansonsten solltest du das Error Objekt mit err.clear wieder freimachen.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : CHM-Hilfe Datei über LISP aus VBA
Stelli1 am 01.12.2006 um 09:41 Uhr (0)
Hallo Jörn,da gibt es (wie oft) eine API.So geht es zum Beispiel:Code: ModulOption ExplicitPublic Declare Function HtmlHelpLongArg Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long FormPrivate Sub CommandButton1_Click() WindowHandle , Helpfile ,Command,HelpIndex HtmlHelpLongArg Application.VBE.mainwindow.HWND, "C:Appl opobaseHelp bedbs.chm", &HF, 4 Letzter Parameter ist ContextID im H ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : CHM-Hilfe Datei über LISP aus VBA
Stelli1 am 01.12.2006 um 12:53 Uhr (0)
Hallo Jörn, Zitat:Code: ModulOption ExplicitPublic Declare Function HtmlHelpLongArg Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long FormPrivate Sub CommandButton1_Click() WindowHandle , Helpfile ,Command,HelpIndex HtmlHelpLongArg Application.VBE.mainwindow.HWND, "C:Appl opobaseHelp bedbs.chm", &HF, 4 Letzter Parameter ist ContextID im HelpFileEnd SubDie Public Declare Function HtmlHel ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : CHM-Hilfe Datei über LISP aus VBA
Stelli1 am 01.12.2006 um 15:30 Uhr (0)
Hallo Jörn,kanns die nicht genau sagen. Such mal in Google nach dem API Namenz.B hierHast du deine Helpdatei mit dem HTML Compiler von Mircosoft gemacht ?Da ist es teilweise nicht so durchsichtig wie man die Indexe auch wirklich generieren kann. Die Indexe müssen in einer Mapping Datei stehen.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Exceldatei erweitern
Stelli1 am 07.12.2006 um 11:13 Uhr (0)
Hallo Ines,bin auch nicht der Excel Spezi. Ich untersuche einfach in einer Schleife ob was in der Zelle steht.Wähle doch mal unter Projekt/Verweise Microsoft Excel aus. Dann kannst du die Methoden und EIgenschaften der Excelobjekte kontexsensitiv eingeben.Code:Option ExplicitPrivate Sub CommandButton1_Click() Dim ExcelApp As Excel.Application Dim ExcelWorkbook As Excel.Workbook Dim ExcelSheet As Excel.Worksheet Dim Zeile As Long Dim Datei As String Dim DateiOffen As Boolean Dat ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : CSV - Dateien einlesen
Stelli1 am 06.01.2007 um 16:35 Uhr (0)
Hallo,versuchs doch mal soCode:Sub test() Dim Datei As String Dim DatenZeile As String Dim AnzZeilen As Long Dim Kanal As Integer Dim Feld As Variant Dim i As Integer Datei = "C: empschnee.csv" Kanal = FreeFile Open Datei For Input As #Kanal While Not EOF(Kanal) AnzZeilen = AnzZeilen + 1 Line Input #Kanal, DatenZeile Feld = Split(DatenZeile, ";") For i = LBound(Feld) To UBound(Feld) Debug.Print "Zeile " & AnzZeilen & " Feld " & i & ": " & Feld(i) Next i Wend Close (Kanal)E ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : CSV - Dateien einlesen
Stelli1 am 05.01.2007 um 15:35 Uhr (0)
Hallo,die Könnte man vorher in Excel einlesen oderdu liest die Datei z.B. mit line input#1, Zeile und bröselts sie Felder mit Hilfe der Funktion Split in ein Variant Array auf. Da kannst du die Felder ja lesen und auswerten.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 02.02.2007 um 12:39 Uhr (0)
Hallo Uwe,eigentlich ist es fast ein Umkehr zum Einlesen oder soCode:Sub test() Dim fso As New FileSystemObject Dim DateiName As String Dim BakName As String Dim Quelle As TextStream Dim Ziel As TextStream Dim Zeile As String Dim Reihe As Long Dim ZielReihe As Long Dim Spalte As Long Dim ZielSpalte As Long Dim NeuerWert As String Dim Spalten As Variant Dim i As Long DateiName = "C: empFEM_CAD_2.txt" BakName = fso.GetBaseName(DateiName) & ".BAK" ZielReih ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 02.02.2007 um 18:16 Uhr (0)
Hallo Carsten,:top@Uwediesen Verweis müsstes du aber eigentlich schon zum Einlesen eingestellt haben. (hier)------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 02.02.2007 um 18:42 Uhr (0)
Hallo Uwe,zuerst prüfen ob es das BakFIle gibtfso.Fileexist Bakfilewenn ja dann löschenfso.removefile BakFIleStelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 02.02.2007 um 18:47 Uhr (0)
Hallo Uwe,mir ist noch aufgefallen das du eine Stelle noch einfacher hinbekommstCode: ALT Spalten(ZielSpalte) = NeuerWert For i = 0 To UBound(Spalten) Ziel.Write Spalten(i) & ";" Next i Ziel.Write vbCrLf Neu Spalten(ZielSpalte) = NeuerWert Ziel.WriteLine Join(Spalten,";")Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 25.02.2007 um 12:59 Uhr (0)
Hallo Uwe,erstmal scheint mir das du da etwas mit den Dateien durcheinander bist. Wo soll denn das Ergebnis rein ?Datei = "C:ProgrammeAutoCAD 2002 DeuERG_VT_ID.bakoderDateiName = "C: empERG_VT_ID.csv"Eigentlich kann das so nicht laufen.Code: ....... Datei = "C:ProgrammeAutoCAD 2002 DeuERG_VT_ID.bak" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Datei) Then Datei = "C:ProgrammeAutoCAD 2002 DeuERG_VT_ID.bak" Set fso = CreateObject("Scripting.FileSystemObject") ...
|
| In das Form Autocad VBA wechseln |
