|
AutoCAD VBA : AutoCAD VB muss auf Access warten
JOLI am 24.09.2007 um 14:50 Uhr (0)
Hallo Zusammen,ich habe eine Programm geschrieben was in Autocad eine Access Maske Startet, der Anwender hat nun einen Datensatz aus zuwählen und an Autocad einen Wert zu übergeben.Läuft so weit ja Ok aber AutoCAD startet die Access Maske und wartet nicht bis aus Access die Daten übergeben Wurden.Wie kann ich nun VB sagen es muss warten !?????Sieht etwa so in AutoCAD aus aus:Sub hole () DoCmd.OpenForm Menue_name_load, acNormal , , "DOCUMENT_ID = *", acFormEdit, acDialog MyAccess.Forms.Item(Menue_name ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Textbreite von AcadText ändern
ThomDD am 24.09.2007 um 14:47 Uhr (0)
Hallo, ich habe in einer Zeichnung einen normalen Text, es handelt sich um ein AcadText-Objekt.Ich vermisse die Eigenschaft Width wie beim MText. Wenn ich ohne VBA das AutoCAD-Eigenschaftsfenster von diesem Text anzeigen lasse, dann sehe ich die Eigenschaft Breitenfaktor, dessen Wert ich ändern kann. Es gibt also so eine Eigenschaft. Aber wie schaffe ich das mit VBA? ThomDD
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Elementtyp (bspw. Linie, Block, Text...) eines AcadObject ermitteln
KlaK am 25.09.2007 um 10:33 Uhr (0)
Hallo Thom,komme leider erst jetzt dazu Dir zu antworten.Hast Du schon mal dran gedacht die Systeminfo im Profil auszufüllen? Ist manchmal hilfreich.Den Code oben habe ich aus der Hilfe zu AutoCAD 2008 kopiert (hatte ich gerade offen) und er funktioniert auch.Aber Du hast recht bisher hatte ich es auch immer über .ObjectName gemacht.Die Eigenschaft .EntityName scheint neu in 2008 zu sein.Habe zwar in der Hilfe schon mal gesucht, jedoch keinen Hinweis auf weitere Neuerungen gefunden. Vielleicht kann das jem ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bemaßungskette?
Carsten1210 am 26.09.2007 um 20:01 Uhr (0)
Hi,Welchen Zweck willst du damit verfolgen?! Reichen die AutoCAD-Bordmittel dafür nicht aus?!Welche Änderungen sollen denn wir registriert werden?! Und da Bemassungsänderung in VBA nicht unbedingt gut implementiert sind, stellt sich die Frage, ob VBA dafür die richtige Programmiersprache ist.Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bemaßungskette?
c.schojer am 26.09.2007 um 20:30 Uhr (0)
Nein die Autocad Bordmittel reichen nicht aus!Sonst würde ich kaum versuchen sowas zu programmieren!Ich kenne eine andere Art und Weise der Bemaßung eben mit Bemaßungsketten diese sind aber in einem eigenen externen Programm enthalten (Stahlbaumodul hatte ich bei der alten Firma)Darin konnte man zb die gesamte Bemaßung schnell rauf runterschiebenbzw einen Punkt dazwischen einfügen/löschen usw.. einfach effizienter halt!In der neuen Firma gibs das Programm nicht.und ich dachte mir mal ich versuche sowas in ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bemaßungskette?
CAD-Huebner am 26.09.2007 um 20:42 Uhr (0)
Ohne auf die eigentliche Frage einzugehen, sondern auf das Ziel -Kettenbemaßungen effizent zu bearbeiten.Für ein wenig mehr als StandardautoCAD bekommt man AutoCAD Mechanical, da ist die Bemaßungsfunktionaität weitaus besser, eben auch das von dir beschriebnee Einfügen von Maßen in Ketten, und das Anordnen einer ganzen Kette.Ob es sich da wirklich lohnt, das Rad neu zu erfinden?------------------Mit freundlichem GrußUdo Hübner
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel Workbook benennen oder identifizieren
c.schojer am 27.09.2007 um 10:48 Uhr (0)
Groß Kleinschreibung beachten!!beide programme funktionieren bei mir von Autocad aus!Set sollte man nicht vergessen!!! Sub testcreate_excel() Dim xlApp As Object Dim xlWB As Object Set xlApp = CreateObject("Excel.Application") Set xlWB = xlApp.Workbooks.Add xlWB.Sheets("Tabelle1").Cells(1, 1) = "A" xlApp.Visible = 1 End Sub Sub testget_excel() Hierfür muß Excel offen sein Sonst Fehler!! Dim xlApp As Object Dim xlWB As Object Set xlApp = GetObject(, "Excel.Application ...
|
| In das Form AutoCAD VBA wechseln |
|
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
JOLI am 01.10.2007 um 08:18 Uhr (0)
Hallo leider schein ich mich etwas Dumm ausgedrückt zu haben.Nochmal ein Versuch:ich starte einen Befehl um in meine Minizeichnungsverwaltung eine neue Zeichnung zu ladenDer Befehl geht in AUtoCAD VBA und Startet Access dort geht eine Maske auf. Ab diesem Moment übernimmt Access VBA die Kontrolle und AutoCAD arbeitet weiter.Der Anwender kann nun in AutoCAD und ACCESS machen was er will. An dieser Stelle möchte ich eigendlich, dass der Anwender in Access eine Zeichnung wählt und diese dann an in AutoCAD öf ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel Workbook benennen oder identifizieren
dupl am 26.09.2007 um 19:52 Uhr (0)
Zitat:Original erstellt von Andreas Widmann:Code:Sub Testaufbau()Set appExcel = CreateObject("Excel.Application") appExcel.Visible = True Excel starten appExcel.workbooks.add Neues Workbook appExcel.workbooks.Open ("C: est.xls") Workbook test.xls öffnen appExcel.workbooks.Open ("C: est2.xls") Workbook test2.xls öffnen AppActivate "AutoCAD 2006" zurück zu Autocad wechselnMsgBox "Excel ist gestartet und das letzte aktive Workbook war test2.xls. Au ...
|
| 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
RalphRX8 am 29.09.2007 um 10:18 Uhr (0)
Hallo Jörg, doch noch vom lispeln abgekommen? Wir kennen uns geschäftlich. Ich sage nur GM-Doku. War schon mal bei Euch im Haus.Stelli1, ich glaube Joli hat ein anderes Problem. Wenn ichs richtig verstanden habe, bekommt er ein leeres Datenfeld von Access, obwohl er eines mit wählbaren Werten bekommen sollte, bzw. möchte.Schon mal überlegt die Daten aus dem Access übers VBA ins AutoCAD zu holen und selbst ein Eingabeformular in VBA zu gestalten?Dann hast Du meiner Meinung nach die ganze Sache besser im G ...
|
| 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 |
