|
AutoCAD VBA : Aktuelles Ansichtsfenster
Theo37 am 17.01.2012 um 16:50 Uhr (0)
Hier jetzt die (vorläufig) endgültige Form:Wenn jemand ne Idee hat wie man das schneller und oder genauer machen kann, wäre ich sehr dankbar.Gruß, Theo Autodesk.AutoCAD.Runtime.CommandMethod("Tex") _ Sub Tex() Dim Myselect As AcadSelectionSet Dim Bildecke(2) As Double Dim Zentrum(2) As Double Dim PunktüberZentrum(2) As Double Dim Point(2) As Double Dim Mytext As AcadMText Dim Mytextmirr As AcadMText Dim Viewport As AcadViewport Dim Satz() ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD ARX Object : Datei unter neuem Namen speichern
Theo37 am 11.08.2010 um 16:57 Uhr (0)
Hallo,mein jetziger Stand ist: If My.Computer.FileSystem.FileExists(ThisDrawing.Path & "NEB") = False Then My.Computer.FileSystem.CreateDirectory(ThisDrawing.Path & "NEB") End If Name = "Svr1struktur".ToString & Mid(ThisDrawing.Path, 3) & dazu.ToString & ThisDrawing.Name If Left(ThisDrawing.Path, 1) "O" Then Name = ThisDrawing.Path & dazu.ToString & ThisDrawing.Name MsgBox(Name) fileReader = _ My.Computer.FileSystem.OpenTextFileWriter(ThisDrawing.Path & "NEBText ...
| | In das Form AutoCAD ARX Object wechseln |
|
AutoCAD ARX Object : Dateinamen ohne Pfad
Theo37 am 21.09.2010 um 14:56 Uhr (0)
Hallo an Alle,mit der folgenden Prozedur(aus der VB2008 Hilfe), komme ich recht schnell an Alle Dateinamen eines Verzeichnisses.Public Sub Dateinameneinlesen() Dim i As Integer ReDim Namen(My.Computer.FileSystem.GetFiles(ThisDrawing.Path).Count) i = 0 For Each foundFile As String In My.Computer.FileSystem.GetFiles(ThisDrawing.Path) Namen(i) = foundFile i = i + 1 Next End SubDamit bekomme ich den vollständigen Pfad der Dateien.Hat jemand ne Idee, wie ich nur die Dateinamen selbst, ...
| | In das Form AutoCAD ARX Object wechseln |
|
AutoCAD ARX Object : Dateinamen ohne Pfad
Theo37 am 21.09.2010 um 15:58 Uhr (0)
Danke Alfred,ich hab mich für die zweite Version entschieden und habe diese noch ein bisschen abgewandelt.: Namen(i) = My.Computer.FileSystem.GetName(foundFile)Funktioniert bestens.Gruß, Theo
| | In das Form AutoCAD ARX Object wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
