|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
WolfgangSCH am 06.07.2003 um 10:34 Uhr (0)
Hallo, ich schreibe gerade ein Programm, mit dem ich gleiche Attribute in mehreren AutoCAD-Zeichnungen ändern kann (z.B. im Zeichnungskopf das Datum oder der Bearbeiter usw.) Dazu lese ich Attribute eines Blockes aus einer Referenzzeichnung mit "GetAttributes" in einen Array ein. Diese Attribute werden in einem Formular in Textboxen eingetragen (ähnlich wie bei dem Formular welches mit dem befehl DDATTE in AutoCAD erscheint). In diesem Formular kann ich, je nach Attributanzahl, vorwärts und rückwärts blätt ...
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
Rigobert am 07.07.2003 um 07:52 Uhr (0)
Hallo Wolfgang, klingt doch eigentlich alles machbar. Habe selber mal eine ähnliche Routine geschrieben, den Code der die Attribute ausliest und ändert hab ich mal aufgelistet, vielleicht hilft´s ja. Sonst beschreib mal genauer wo was hakt.. hier der Code : Public Function SetCustomer(Kundenname As String, Kommissionsnummer As String) As String Rem hier wird Autocad angewiesen in das Schriftfeld Rem den Kundennamen und die Kommissionsnummer einzutragen. Rem zusätzlich wird der Dateiname und das Plotdatum ...
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
WolfgangSCH am 07.07.2003 um 08:20 Uhr (0)
Hallo Rigo, danke für Deine schnelle Antwort. Das Auslesen der Attribute in ein Array ist nicht das Problem. Ich möchte die Attributbezeichnung aus dem Array in einem Formular in Textboxen darstellen, darin ändern und nur die geänderten Attribute wieder weiterverarbeiten. Also z.B. im Array Block Kopfdaten (Revision, Revisiondsdatum, Bearbeiter usw.) werden im Formular die Elemente Array.TagString (Bearbeiter) und Array.TagText (Klaus Mustermann) usw. in der Textbox dargestellt. Dann möchte ich einige dies ...
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
Rigobert am 07.07.2003 um 09:38 Uhr (0)
Hallo Wolfgang, habe einfach mal in den Code folgende Zeilen eingefügt, ******************************************************************* Dim attrib(0 To 9) As String Deine Variable für die Texte ******************************************************************* ******************************************************************* hier werden die Inhalte der Attribute den VAriablen zugewiesen und anschliessend in ein MsgBox angezeigt For j = 0 To 9 attr ...
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
WolfgangSCH am 07.07.2003 um 10:48 Uhr (0)
Hallo Rigo, danke für Deine schnelle Hilfe. Ich habe beim Deklarieren des Arrays einen Fehler gemacht. Dank Deinem Beispiel klappt es jetzt auch bei mir. Jedoch besteht noch folgendes Problem: Du hast den Array mit Konstanten deklariert (Dim attrib(0 To 9) As String). Ich kann zwar die Anzahl der Attribute im Array ermitteln (AnzAttr = UBound(attrib), benötige für die Deklaration jedoch eine Konstante (Du gehst von 9 Attributen aus). Die "9" kann jedoch nicht durch die Variable AnzAttr ersetzt werden. Da v ...
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
Rigobert am 07.07.2003 um 11:23 Uhr (0)
Hallo Wolfgang, das müßte eigentlich mit nachfolgendem Code funktionieren : Dim attrib() As String Deine Variable für die Texte wenn Du dann die Anzahl der Attribute weißt, kannst Du das Feld neu definieren mit : Redim attrib(0 to Anzahl) as String das sollte dann funktionieren.. Viel Erfolg Gruß Rigo ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
WolfgangSCH am 07.07.2003 um 11:26 Uhr (0)
Hallo Rigo, nochmals vielen Dank für Deine Hilfe. Ich bin durch Deine Hilfe ein großes Stück weiter gekommen! Ich werde dafür auch einmal auf den 10er klicken. Gruß Wolfgang
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
Rigobert am 07.07.2003 um 11:52 Uhr (0)
Gern geschehen ! ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Heiko76 am 03.07.2003 um 09:03 Uhr (0)
Hallo @ all, Was kann das sein??? Ich habe ein VBA-Program erstellt, in dem folgende Befehle vorkommen: FileCopy znrpfadaktuell, znrpfadalt Kill znrpfadaktuell Wenn ich das bei mir am PC starte, funktioniert alles. (Die Datei wird in ein anderes Verzeichnis kopiert und in dem alten Verzeichnis gelöscht.) Wenn ich jetzt dieses Programm auf einem PC der anderen User starte, funktioniert das nicht. (Die Datei wird zwar kopiert aber nicht gelöscht.) Die User haben alle ändern Rechte auf den Ver ...
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Heiko76 am 04.07.2003 um 11:06 Uhr (0)
Hi Ulf, danke für den Tipp, aber das ist es leider nicht. Ich habe noch etwas weiter probiert und habe mich mal an der Workstation des Kollegen angemeldet. Dann funktioniert alles. Der einzigste Unterschied zwischen ihm und mir ist, das ich zu einer lokalen Admingruppe gehöre. Aber auf das Verzeichnis, wo die Datei gelöscht werden soll haben wir beiden die gleichen Rechte. Also von der Software her ist da kein Problem... ------------------ cu Heiko
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Heiko76 am 07.07.2003 um 09:04 Uhr (0)
Hi, doch. Das ist ja gerade das komische. Wenn er in den Explorer rein geht, kann er genau die Datei, wo VBA/ACAD meckert, löschen. Ohne Probleme... ------------------ cu Heiko
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Heiko76 am 07.07.2003 um 12:39 Uhr (0)
Hi Ulf, das hab ich schonmal versucht. Da wird die scrrun.dll angemeckert. Ich habe auch ein Buch über VBA, da steht eine scrrun.dll mit ca. 400kb drin. Meine hat aber nur ca. 125kb. Hab auch schonmal im Internet gesucht, aber ich finde nichts und mit dem fso komm ich so nicht weiter. Ich finde in der Hilfe und in dem Buch auch keine richtigen Beispiele, um eine bestimmte Datei zu löschen. Was muß man da denn unter ACAD für einen "Namen für einen Filesystemobject" angeben? ------------------ cu Heiko
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Rigobert am 07.07.2003 um 13:08 Uhr (0)
Hallo Heiko, weiß nicht ob´s hilft aber ich habe eine Routine geschrieben in der alle *.dwg Files in einer FileListBox dargestellt werden. Dort kannder User dann eine auswählen und löschen. Der Code dazu : Private Sub Löschen_File_Click() On Error goto Fehlerbehandlung: If frmDatenbank.File1.FILEName = "" Then Rigo = MsgBox("Was,soll gelöscht werden ?", vbQuestion, "???") Exit Sub End If Rigo = InputBox("Datei löschen !", "Löscher", frmDatenbank.File1.FILEName, X, Y) If Not Rigo = "" Then Dummy ...
|
| In das Form VBasic wechseln |
