|
AutoCAD VBA : Excel Workbook benennen oder identifizieren
Stelli1 am 27.09.2007 um 19:37 Uhr (0)
Hallo,versuchs mal so. Leg dir eine Form an mit einem Listenfeld und häng den Code z.B. an einen Button.Code: Liste der Exceldateien leeren Me.Lst_Exceldateien.Clear Excel Objekt zurücksetzen Set og_ExcelApp = Nothing Fehlerbehandlung On Error Resume Next Versuch ein Excelobjekt zu finden Set og_ExcelApp = GetObject(, "Excel.Application") Fehlerbehandlung If Err.Number 0 Then On Error GoTo 0 Excel läuft noch nicht Set og_ExcelApp = CreateObject("Excel.Application") og_ExcelAp ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCAD VB muss auf Access warten
Stelli1 am 28.09.2007 um 15:52 Uhr (0)
Hallo Jörg,überleg dir noch mal genau ob AutoCAD(VBA) wirklich warten soll. Wenn dein Anwender nicht versteht was zu tun ist ist AutoCAD blockiert.Wenn es wirklich warten soll kannst du mit im Access Formular die Eigenschaft TAG mit dem Wert "WAIT" oder auch "LIEBE_OMA" befüllen. Diese Eigenschaft fragst du in einer Schleife ab. Solange hier dein Wert drin ist hat der Benutzer nichst gemacht. Im Eventhandler des Accessformulars löschst du die TAG Eigenschaft wenn der Benutzer das gemacht hat was er sollte. ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCAD VB muss auf Access warten
Stelli1 am 01.10.2007 um 11:26 Uhr (0)
Hallo Jörg,ich meine du hast doch den Lösungsansatz. In einen vorherigen Thread war doch die Frage wie Access angesteuert wird. Da gabs ein Beispiel Zitat: If Err.Number 0 Then MsgBox "Keine Datenbank gefunden. Lade ...", , "Start MDB" On Error GoTo 0 Set MyAccess = CreateObject("access.application") MyAccess.OpenCurrentDatabase "C:Tempdb1.mdb" MyAccess.Visible = True End If On Error GoTo 0 Aufruf über Access Modul MyAccess.Run "openform", "Formular1" Direkter Aufruf MyAccess.DoCm ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Eigenschaften eines unbekannten Objekts
Stelli1 am 02.10.2007 um 11:49 Uhr (0)
Hallo,irgendwo kommt der Objekttype doch her. Wenn du die Application kennst, kannst du die unter Verweisen angeben. Dann kannst du im Objektkatalog (F2) nachschauen was es für Methoden und EIgenschaften gibt.Wenn du die Herkunft nicht kennst, deklarierst du das Element als Object. Wenn du es schaffst das Element anzusprechen kannst du dort während der Laufzeit einen Breakpoint setzen und im Überwachungsfenster (shift+F9) die Eigenschaften nachlesen.Die Objekte aus AutoCAD verfügen in der Regel nicht über ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Verschiedene Linientypen unterscheiden
Stelli1 am 03.10.2007 um 18:06 Uhr (0)
Hallo Peter,du kannst doch über das Eigenschaftsfenster von AutoCAD kontrollieren wie die Linieneigenschaften sind.Grundsätzlich sind Linien die auf einem Layer sind, die gleiche Linienart und Farbe haben auch Linien gleicher Bedeutung. Dabei ist die Linienart byLayer und die Farbe 256(byLayer) letzendlich auch Eigenschaften.In deinem Quelltext hast du TRUECOLOR auskommentiert. Haben deine Elemente nur die Indexfarben ?Ansonsten ist die Eigenschaft Truecolor nicht nur einfach ein Wert sondern ein Objekt. D ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objektauswahl an Eigenschaftenfenster übergeben
Stelli1 am 04.10.2007 um 12:55 Uhr (0)
Hallo,schau mal hier. Du kannst so deine Auswahl an jeden Autocad Befehl und auch an das Eigenschaftsfenster übergeben.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objektauswahl an Eigenschaftenfenster übergeben
Stelli1 am 04.10.2007 um 18:27 Uhr (0)
Hallo, Zitat:wenn ich Dein Code richtig verstehe, dann muss ich für jedes Objekt (Linien, Texte, Blöcke usw.) einen eigenen Filter schreiben, und diese Auswahl übergebenSo ist es nicht. In diesem Beispiel ging es drum zwei AutoCAD Befehle mit zwei unterschiedlichen Selektionen aus VBA auszuführen. Du kannst natürlich alle Elemente aus einem VBA Selectionset auf einmal übergeben.Ich bin mir aber nicht sicher, ob es auch wirklich mit den Properties geht.Wilfried Stelberg------------------Warum lispeln wenns ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Stelli1 am 08.10.2007 um 18:26 Uhr (0)
Hallo,IMHO müsste aber die richtige Caption beim AppActivate verwendet werden um das Fenster auch wirklich zu aktivieren.Oder ist keine Zeichnung offen ?Code:AppActivate "Autocad 2006"AppActivate acApp.CaptionWilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Probleme beim öffnen von DWGs
Stelli1 am 30.11.2007 um 11:18 Uhr (0)
Hallo Gerhard,zunächst mal herzlich willkommen im VBA Forum.Ich möchte dir aber auch ans Herz legen deine Systeminfo auszufüllen.Es wäre auf jeden Fall für alle hilfreich zu wissen ob und mit welcher Version von AutoCAD oder VB du arbeitest. Dann noch die Frage was ist das für eine Funktion "C:Bildererzeugen".Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Wieviele Elemente sind ausgewählt
Stelli1 am 02.12.2007 um 16:58 Uhr (0)
Hallo Willi W,Also du definierst in der Acad.lsp oder in der mnl Datei einer Menübar den Befehl:Code:(defun c:DemoSelection (/) (vla-runmacro(vlax-get-acad-object) "selection"))Auf deinen Button legst du den BefehlCode:^C^C_DemoSelection Dieser ruft folgende Funktion aufCode:Sub selection() Dim sset As AcadSelectionSet Set sset = ThisDrawing.PickfirstSelectionSet If sset.Count = 0 Then sset.SelectOnScreen End If MsgBox "Es wurden " & sset.Count & " Entitys gewählt"End SubUnd ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Toolbar mit Popupmenü
Stelli1 am 03.12.2007 um 17:52 Uhr (0)
Hallo,ich finde in dem Beispiel ist es doch ganz gut erklärt und ich hätte kein besseres Beispiel parat.Vielleicht noch der Hinweis das man mit VBA keine Menügruppe anlegen kann.Deshalb wird eine Menügruppe aus einer leeren Datei geladen. Die kann man ja per VBA erzeugen.Aber das mit dem Popup/Pulldown Menü bekommst du doch auch "per Hand" nicht hin.Meinst du ein Flyout ?Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Filegröße einer dvb-Datei
Stelli1 am 07.12.2007 um 11:09 Uhr (0)
Hallo,exportiere das Formular doch mal in eine Textdatei und füge sie wieder neu (aus der Textdatei) ein.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Probleme ein dem Verstehen eines Codeabschnitts
Stelli1 am 07.12.2007 um 18:57 Uhr (0)
Hallo, Zitat:Original erstellt von Gloem:Also wäre der if-Kram identisch zum_AcadBlockReference.GetAttributes(0).TextString = PktnrNein. Zitat:Original erstellt von Gloem:Kann es Blöcke ohne Attribute geben?Ja, natürlich kann es Blöcke ohne Attribute geben. Deshalb wird ja auch mit "If m_AcadBlockReference.HasAttributes Then" geprüft ob der Block Attribute hat. Ansonsten gibt es natürlich einen Fehler wenn man auf nicht vorhandene Attribute zugreift.Vielleicht solltest du das AutoCAD mal mit F1 befragen un ...
|
| In das Form AutoCAD VBA wechseln |
