|
Autocad VBA : AutoCAD mit VB6
startrek am 11.10.2005 um 22:40 Uhr (0)
Ralph, das wird denke so schwierig auf die Schnelle und ohne Code.Erste [versuchte] Hilfe:Schau# mal im Taskmanager ob da noch ne acad.exe als Prozess läuft,wenn ja kann das viele Ursachen haben,das naheliegendste wäre eine inkorrekte Refernezierung.Schiessen tut man die acApp meisst mit acApp.Quit und die Variable freigeben: set acApp = Nothing Poste mal den [abgespeckten] Code, wenn geht;-)Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD mit VB6
RalphRX8 am 11.10.2005 um 22:42 Uhr (0)
Hi nochmal,hier der abgespeckte Code:Set acApp = New AcadApplicationacApp.Visible = 1Set AcDok = acApp.Documents.Open(dwgname)For Each Element In AcDok.PaperSpaceIf Element.ObjectName = "AcDbBlockReference" ThenSet Objekt = AcDok.ObjectIdToObject(Element.ObjectID)If Objekt.Name = "XLO_KON_NEU_180" ThenInhalt = Objekt.GetAttributesFor X = LBound(Inhalt) To UBound(Inhalt)If Inhalt(X).TagString = "XLO_SA" ThenSachnummer = Inhalt(X).TextStringMsgBox SachnummerEnd IfNext XEnd IfEnd IfNext ElementAcDok.CloseEnd ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD mit VB6
RalphRX8 am 11.10.2005 um 22:48 Uhr (0)
Wollt den Fehler noch kurz beschreiben:Wenn ich nach ausführen des Tools im Explorer einen Doppelklick auf die Zeichnung mache, startet das AutoCAD und bleibt dann beim öffnen der Zeichnung hängen. Dann wird der Bildschirm weiß.Selbiges beim öffnen aus einem gestarteten AutoCAD. Da ist dann im Öffnen-Dialog auch keine Vorschau mehr da
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD mit VB6
startrek am 11.10.2005 um 23:01 Uhr (0)
Bissel wirr & ungetestet,die Variablenzuweisung ist nicht optimal;-)lg Nancy-- Code: Set acApp = New AcadApplication acApp.Visible = 1 Set AcDok = acApp.Documents.Open(dwgname) For Each acDokElement In AcDok.PaperSpace If acDokElement.ObjectName = "AcDbBlockReference" Then Set Objekt = AcDok.ObjectIdToObject(Element.ObjectID) If Objekt.Name = "XLO_KON_NEU_180" Then Inhalt = Objekt.GetAttributes For X = LBound(Inhalt) To UBound(Inhalt) If Inhalt(X).TagString = "XLO_SA" Then Sachnumm ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD mit VB6
RalphRX8 am 11.10.2005 um 23:09 Uhr (0)
Ok. Danke fürs erste.Scheint als ob Du das gleiche Problem hast nachdem Du schreibst das es auch nicht hinhaut.Hoffe wir kriegen das in Griff.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD mit VB6
RalphRX8 am 12.10.2005 um 07:50 Uhr (0)
Guten Morgen zusammen,habe heute morgen festgestellt das das Tool mit dem AutoCAD-Mech-2004 einwandfrei funktioniert und den Zeichnungen nichts tut.Also denke ich ganz klar ein 2005-Problem. Hilft das weiter?An was kanns liegen? Vielleicht mal nen Service-Pack draufspielen?Hilfe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD mit VB6
RalphRX8 am 12.10.2005 um 16:57 Uhr (0)
Hallo Nancy,Du glaubst es nicht, Problem gelöst.Hatte in meinen AutoCAD-Einstellungen eingestellt das er die Zeichnungen immer im AutoCAD2000-Format speichern soll.Hab jetzt das für Mech2005 übliche Format eingestellt und siehe da es funktioniert.Hoffe wir können anderen durch dieses Thema viel viel Zeit sparen
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht mittels Imageanzeige
Dirk.B am 12.10.2005 um 20:42 Uhr (0)
Hallo Zusammen!Ich will einfach noch nicht aufgeben, da ich glaube, daß es eine Lösung für mein Problem gibt.Noch hab ich keine Lösung, da das Programm beim laden der Images hängen bleibt (siehe Bildchen).Hier nochmal der aktuelle Code:Private Sub cmd1_Click() EndEnd SubPrivate Sub cmd2_Click() Dim NewImage As MSForms.Image On Error Resume Next==bei LastTop =10 bleibt das Programm hängen===? LastTop = 10 LastLeft = 10 For i = 1 To ListView1.ListItems.Count Set NewImage = PreviewFrm.Frame1.Controls.Add("Fo ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Timer in Autocad 2000 einbinden ?
Ralf33 am 12.10.2005 um 21:31 Uhr (0)
Hallo,in Autocad VBA ist ja kein Zeitgebersteuerelement enthalten.Ich habe mal versucht, den Timer von VB 6 einzubinden, einen entsprechenden Verweis gesetzt und nun erscheint der Timer auch im Objektkatalog.Leider ist er weder unter Werkzeuge, noch unter zusätzliche Steuerelemente zu finden.Was mache ich falsch ?Gruß ralf33
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Timer in Autocad 2000 einbinden ?
startrek am 12.10.2005 um 21:59 Uhr (0)
Hi Ralf,wie Timer einbinden unter Verweise???IMHO ist der sowieso da;-)Code:sub asdf() dim a# a=timer msgbox "test" msgbox timer - aend suboder was meintest Du?lg Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Timer in Autocad 2000 einbinden ?
Ralf33 am 12.10.2005 um 22:17 Uhr (0)
Hallo Nancy,besten Dank für Deine Antwort.In Visual Basic habe ich doch unter Werkzeuge diese kleine Uhr, also den Zeitgeber. Da kann ich unter Eigenschaften einfach einstellen, das eine Prozedur zB. alle 500 Millisekunden ablaufen soll.Das vermisse ich bei VBA.Deshalb habe ich versucht, die Bibliothek von VB6 einzubinden. (hat mit MSCOMM einwandfrei funktioniert)Gruß ralf33
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Timer in Autocad 2000 einbinden ?
fuchsi am 13.10.2005 um 13:17 Uhr (0)
also das TimerControl hab ich auch nicht gefunden. Da ich das auch mal selber gebraucht hatte habs ich per windows API gelöst.Hier der Auszug aus meinem Projekt (das ganze muss in einem allgemeinen Modul stehen)Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID _ As Long) As Long Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay _ As Long, ByVal uResolution As Long, ByVal lpFunction _ As Long, ByVal dwUser As Long, ByVal uFlags As Long) _ As LongPublic TimerSub TimerStart() ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VB starten beim Start von AutoCAD
Heiko76 am 14.10.2005 um 09:12 Uhr (0)
Hallo zusammen,guckt Ihr hier... http://ww3.cad.de/foren/ubb/Forum110/HTML/000421.shtml------------------ cuHeiko
|
| In das Form Autocad VBA wechseln |
