|
Autocad VBA : zugehörige dvb-datei ermitteln
tappenbeck am 26.06.2006 um 09:51 Uhr (0)
moin !weiß einer von euch ob ich irgendwie das quellverzeichnis der dvb-datei ermitteln kann aus dem das aktuelle macro stammt.in vb gibt es soetwas wie app.path !application.path in acad-vba liefert das acad-installationsverzeichnis. das suche ich nicht !gruß Jan :-)------------------jan :-)
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : zugehörige dvb-datei ermitteln
startrek am 26.06.2006 um 10:31 Uhr (0)
Hallo Jan,ganz easy:Code:?vbe.activevbproject.filenameD: empProjekt1.dvbGruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : zugehörige dvb-datei ermitteln
Carsten1210 am 26.06.2006 um 10:29 Uhr (0)
Hallo Jan,Probier folgendes:Sub ProjektName() Dim prj As Object Set prj = ThisDrawing.Application.preferences.Application.VBE MsgBox prj.activevbproject.filename, , "aktueller Projektname"End SubÜber die Suche hättest du dies auch finden können. Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
CADLER06 am 26.06.2006 um 11:12 Uhr (0)
Juhu,also das klappt so ganz gut ! Rechteck wird gezeichnet wunderbar.Besteht auch eine Möglichkeit aus Excel heraus per VBA Zeichnen- Befehle aufzurufen ?? Ich habe da folgende Zeile die aber irgendwie unter ACAD 2006 nicht funktioniert:ac.thisdrawing.sendcommand "_zoom " zum Beispíel.Gruß und dank an alle für die Superhilfe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
startrek am 26.06.2006 um 12:49 Uhr (0)
Hallo Nat, Gibt es für ACAD einen Makrorekorder, den man von Excel her kennt?Niente, negativ ;-)Probier das mit den Einlesen aus der blockattr.dwg nochmal so:Code:Sub bla() Dim acApp As Object, acDoc As Object Dim fType%(0), fData(0), sset As Object, x As Object Dim r&, i%, attr Set acApp = GetObject(, "autocad.application") Set acDoc = acApp.ActiveDocument Set sset = acDoc.SelectionSets.Add("NewSet03") Block-Filter setzen fType(0) = 0: fData(0) = "INSERT" alle Blöcke wählen sset.Select acSelecti ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
startrek am 26.06.2006 um 15:07 Uhr (0)
Okay, hier noch andersrum,aber:- ohne Worksheet_Change-Event;-)- ohne irgendwelche Errorhandler- ohne irgendwelche Abgleiche der Namen/Reihenfolge- ohne Abgleich der richtigen dwg etc pp... geprüft wird nur auf Übereinstimmung der Handles, Basis wieder die blockattr.dwg und blockattr.xls:Code:Sub blubb() Dim acApp As Object, acDoc As Object Dim fType%(0), fData(0), sset As Object, x As Object Dim r&, i%, attr Set acApp = GetObject(, "autocad.application") Set acDoc = acApp.ActiveDocument Set sset = a ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
startrek am 26.06.2006 um 23:06 Uhr (0)
Zitat:Original erstellt von Nat_Bambo:Ich weißt überhaupt nicht, ob dieses in ACAD möglich ist und ob das jetzige Programm dazu überhaupt geeignet ist.Hallo Uli,Na warum denn nicht? ;-)Das Autocad/VBA ist nix andres als das Office/VBA.Soll heissen, beide greifen auf die gleiche dll zu, nämlich die MsForms,zumindest hinsichtlich der Userforms.Ich denke das wäre schon machbar, der Weg wäre grob folgender:- User wählt Block/dwg aus - die werden geöffnet/eingefügt?- dann ziehst eine Schleife erstmal über alle ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : getpoint Fehler
rhoehnke am 27.06.2006 um 15:53 Uhr (0)
Hallo,wir haben eine Software geschrieben, für AutoCAD 2000 und AutoCAD VBA. Jetzt haben wir auf AutoCAD 2007 upgedatet und bekommen eine Fehlermeldung. Bei Aufruf unserer Software erscheint auf dem Bildschirm eine VBA Formular mit einem Button "draw". Wenn der Benutzer auf "draw" klickt, wird in VBA die Funktion getpoint aufgerufen. Wenn der Benutzer dann mit der Maus auf die Zeichnung klickt, kommt folgende Fehlermeldung:Laufzeitfehler -2147352567 (80020009):Die Methode GetPoint für das Objekt IAcadUtili ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : getpoint Fehler
Stelli1 am 27.06.2006 um 16:54 Uhr (0)
Hallo Reiner,die Fehlermeldung sieht irgendwie nach VB und nicht VBA aus.Hast du AutoCAD 2000 und 2007 oder andere AutoCAD parallel installiert ?Und verwendest du irgendwo createobject oder getobject ?Dann musst du hinter "autocad.application.x" für x die VErsion eintragen.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
CADLER06 am 28.06.2006 um 10:36 Uhr (0)
Hi Stelli,habe die Zeilen in mein Script eingefügt. AutoCAD startet wunderbar, dann bekomme ich in Excel jedoch einen Laufzeitfehler 438, Object unterstützt dies Eigenschaft oder Methode nicht.Hmm hab ich es vielleicht an der falschen Stelle eingefügt?*grübel *rätsel
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
startrek am 28.06.2006 um 10:46 Uhr (0)
Dein Acad-Objekt hast Du aber schon davorgesetzt oder?ac.ThisDrawing.SendCommand "_zoom "ac.ThisDrawing.Application.ZoomPickWindowoder versuchs mal direkt, etwa so:ac.ZoomExtents oder ac.ZoomAll oder so ...Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
startrek am 28.06.2006 um 11:05 Uhr (0)
Hallo,zu Ersterem, dem Prob mit den Formeln in deiner xls,hmm, das lässt sich so aus der Ferne nicht beantworten,evtl. lade mal die Datei hoch.Zu Letzterem: http://ww3.cad.de/foren/ubb/Forum259/HTML/000693.shtml#000000 http://ww3.cad.de/foren/ubb/Forum54/HTML/013151.shtml Grüsse Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
CADLER06 am 28.06.2006 um 13:26 Uhr (0)
Juhu Nancy,hmm ich armer VBA Lehrling, ich hab das folgender massen eingefügt Private Sub CommandButton1_Click()Dim ac As ObjectSet ac = CreateObject("Autocad.application")ac.Visible = Trueac.ZoomExtensEnd SubIst doch so richtig oder ???
|
| In das Form Autocad VBA wechseln |
