|
Autocad VBA : Werte in csv-Datei schreiben
Stelli1 am 27.02.2007 um 21:30 Uhr (0)
Hallo Uwe,hab dir mal ein Beispiel gemacht wie ich es anfangen würde.Hab mal ein paar Fehlerabfragen reingebaut, aber ein wenig musst du ja auch noch zu tun haben.Code: in ein ModulPublic mycsv As cls_CSVSub test() Dim i As Integer Set mycsv = New cls_CSV If Not mycsv.OpenFile("C:TEMPTEST.txt") Then MsgBox mycsv.ErrMessage Exit Sub End If For i = 2 To mycsv.Rows mycsv.SetValue i, 3, "TEST2" Next i If mycsv.UnSaved Then mycsv.SaveFile End IfEnd SubSu ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 09.03.2007 um 10:59 Uhr (0)
Hallo Dirk,irgendwie kommt mir dein Code bekannt vor. Keine Ahnung wo das Problem liegt.Da du ja immer so grosszügig Us verteilst hier mal ein Ansatz der alle Dateien aus einem Verzeichnis liest und alle Blöcke jeder einzelnen Zeichnung nacheinander in eine leere Zeichnung kopiert und anzeigt. Als Einfügepunkt Markierung ist ein Kreis mit drin.Das kann dann vielleicht auch jemand brauchen der aus einer beliebigen Zeichnung einen Block, ein Layout oder so was in die aktuelle Zeichnung einfügen möchte.Ich g ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 09.03.2007 um 15:37 Uhr (0)
Hallo Dirk,nimm doch mal die letzte Variante (die ganze SUB) von mir und kopiere diese in ein Modul. Unter Extras Verweise wählst du noch den Verweis Autocad/ObjectDBX Common 1xxx aus. Ändere den Pfad "D:Daten_PZ" in deinen gewünschten Pfad. Dann erstellst du mit Datei/Neu eine leere Zeichnung. Schalte mal den Vollbildmodus des Dokumentes aus und schieb die Größe des Fensters mal ein wenig kleiner. Dann startest du mal die Funktion Blocks2wmf und du siehst alle deine Blöcke aus allen Dateien des gewählten ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Verzögerte Ausführung DOS-Shell
Stelli1 am 09.03.2007 um 17:19 Uhr (0)
Hallo Willi,so einen PC mit verzögerter Ausführung hatte ich früher auch mal. Ich würde die Datei direkt aus dem Programm schreiben wie du in deinem Beispiel ja schon geschrieben hast.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 14.03.2007 um 11:57 Uhr (0)
Zitat:Original erstellt von Dirk.B:Das mit den Zeichnungen öffnen, Kreis einfügen etc. funktioniert, bis auf das, daß das Objekt in der Zeichnung kein Block ist und somit der InsPkt nicht mit dem InsPkt des Kreises übereinstimmt.Wenn die Zeichnung eingefügt (oder XREF) wird ist sie ein Block.Vielleicht hast du die Blöcke falsch erzeugt. Mit dem WBLOCK Befehl kannst du ja vorhandene Blöcke oder eine Objektauswahl in eine eigene Datei schreiben. Bei einer Auswahl der Objekte kann leicht der Einfügepunkt ver ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Texte ausrichten
Stelli1 am 13.03.2007 um 15:58 Uhr (0)
Hallo,wenn du von Richtungswinkel schreibst meinst du 400gon rechtsdrehend und im Norden 0 ?AutoCAD will die Winkelangabe in Rad linksdrehend und 0 nach Rechts.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Stelli1 am 15.03.2007 um 13:48 Uhr (0)
Hallo,es gibt da wohl noch ein paar Punkte ...Ein selectionset (mit und ohne s) mit gleichen Namen kann nur einmal pro Zeichnung existieren. Du musst prüfen ob eines da ist und wenn nicht eins anlegen.Code:on error resume nextset sset = thisdrawing.selectionsets("Mysel")if err.number then set sset = thisdrawing.selectionsets.add("Mysel")end ifon error goto 0Wenn du per Sendcommand ein Element erzeugts kannst du dir dieses in der passenden Ereignisroutine in AutoCAD abfangen.Code: Thisdrawing CodePrivate S ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : allen Blocken in einer Zeichnung Linieweight zuweisen
Stelli1 am 15.03.2007 um 14:15 Uhr (0)
Dann brauchst du doch nur mit der AutoCAD Schnellauswahl alle Blöcke selektieren und im Eigenschaftsfenster ändern.Wenn in einer Blockdefinition die Linienstärke fix angegeben wurde musst du sie auch in der Definition ändern. Dann ändern sich logischerweise auch die Abbilder (Einfügungen)Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Stelli1 am 16.03.2007 um 11:09 Uhr (0)
Hallo,das Problem bei dir ist folgendes. In AutoCAD wird der Event AcadDocument_ObjectAdded ausgelöst und abgearbeitet. In Excel natürlich nicht, es sein denn du hast den Datentyp mit der Option withevents deklariert.Ungetestet müsste das so aussehen:Code:Dim withevents AcadDoc as acadDocumentErgeignisroutinesub AcadDoc_ObjectAdded (ByVal Object As Object) Codeend subIn einem gewissen Punkt wiederspreche ich da Nancy. Mit Create/GetObject kann man auch early Binding einsetzen. Ich bevorzuge das weil man d ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Elemente an befehlszeile übergeben
Stelli1 am 23.03.2007 um 10:09 Uhr (0)
Hallo Ralph,der Code war ja auch nicht fertig. Ich dachte jemand hätte noch eine Idee für die fehlende Zeile.Auf jeden Fall hat das VBA Selektionset nichts mit dem in AutoCAD zu tun. Nachfolgend aber noch eine andere Möglichkeit.Code:Sub test() Zum Testen einige Linien ud einige Kreise zeichnen Dim FilterType(0) As Integer Dim FilterData(0) As Variant Dim sset As AcadSelectionSet Set sset = ThisDrawing.ActiveSelectionSet Alle Linien wählen FilterType(0) = 0 FilterData( ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Fehler beim Starten der Applikation
Stelli1 am 08.06.2007 um 22:28 Uhr (0)
Hallo Andre,sind auf dem Rwechner verschiedene AutoCad Release drauf ?Such doch mal im Registrieungseditor unter HKEY_CLASSES_ROOT nach dem Schlüssel "AutoCAD.Application". Da gibt es eventuell verschiedene z.B. "AutoCAD.Application.16" oder "AutoCAD.Application.17".Versuch dein createobject dann mal mit dieser Variante.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : custom_mittellinie
Stelli1 am 12.06.2007 um 14:03 Uhr (0)
Hallo,da du hier im VBA Forum bist mal eine Antwort aus dieser Sicht:Das kann man mit VBA schon programmieren. Aber mit wenig VB Kenntnissen sehe ich da nicht viel Chancen.Aber da gibt es bestimmt schon was. Ich denke aber das der Beitrag im "Rund um AutoCAD" Forum besser aufgehoben ist, da hier alle (auch die Lispler ) lesen und einer eine Lösung bzw. einen Tipp hat.Wenn du möchest, können wir den Beitrag dorthin verschieben um Crossposts zu vermeiden.Viel ErfolgWilfried Stelberg------------------Warum li ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute eingeben; Layer löschen
Stelli1 am 27.06.2007 um 13:44 Uhr (0)
Hallo,ändere doch mal die Zeilen ein wenig ab.Code: Set SS = SelectOnScreenFix(FltTypes, FltData, "BlockAttColToByBlockAuswahl") SS.SelectOnScreen FltTypes, FltDataSelectOnScreenFix scheint eine Funktion von Roland zu sein die er aber nicht gepostet hat.SelectOnScreen ist eine aus AutoCAD-VBAAusserdem kannst du die Sub ja mal mit F8 im Einzelschritt durchgehen. Dann wirst du sehen wo es hängt.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
