|
Autocad VBA : Excel und AutoCAD
CADLER06 am 22.06.2006 um 15:59 Uhr (0)
Hi Carsten,danke für den Tipp, wenn die Lösung nun auch noch fast vor der Nase liegt ;-)))Daten werden wenn ich das VBA-Projekt anpasse importiert, aber irgendwie bekomme ich es nicht hin, das er mir daraus ein Rechteck macht !Muss ich das im VBA Script per Aufruf des Zeichenbefehls aktivieren ?GrußJoe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
Carsten1210 am 22.06.2006 um 16:09 Uhr (0)
Hi Joe,Du kannst ja, wenn du die Daten von Excel je Rechteck hast, mit den Koordinaten (errechnet oder vorliegend) mittels AddPolyline die Rechtecke zeichnen. Danach rufst du den nächsten Datensatz ab und so weiter.Wenn du schon mal etwas zusammen hast kannst du es ja uploaden / posten und dann kann man weiterschauen.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
CADLER06 am 23.06.2006 um 09:33 Uhr (0)
Hallo Carsten,Public Function rechteck(Punkt1, Punkt2) As AcadLWPolyline Dim eckpunkt(0 To 7) As Double, poly As AcadLWPolyline eckpunkt(0) = CDbl(Punkt1(0)): eckpunkt(1) = CDbl(Punkt1(1)) eckpunkt(2) = CDbl(Punkt2(0)): eckpunkt(3) = CDbl(Punkt1(1)) eckpunkt(4) = CDbl(Punkt2(0)): eckpunkt(5) = CDbl(Punkt2(1)) eckpunkt(6) = CDbl(Punkt1(0)): eckpunkt(7) = CDbl(Punkt2(1)) Set poly = ThisDrawing.ModelSpace.AddLightWeightPolyline(eckpunkt) poly.Closed = True Set rechteck = poly End FunctionDas habe ich ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Drag & Drop
BerndE am 21.06.2006 um 16:14 Uhr (0)
Hi Forum,in Access2003 habe ich ein treeview definiert. OLEStartDrag usw ist eingerichtet. wenn ich nun einen datensatz aus access nach autocad ziehe, sehe ich vor dem loslassen, das da etwas am cursor hängt. na dem loslassen tut sich dann aber nix.wie komme ich per vba an das drop-ereignis heran um auf bestimmte umstände zu reagieren?ziel des ganzen ist es, aus einer zb. einrichtungsliste ein datensatz ins autocad zu ziehen. anhand der datensatznummer soll dann das am cursor hängende object zu einem entsp ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Drag & Drop
Stelli1 am 23.06.2006 um 09:37 Uhr (0)
Hallo, Zitat:Original erstellt von BerndE:Hi Forum,in Access2003 habe ich ein treeview definiert. OLEStartDrag usw ist eingerichtet. Was hast du den eingerichtet. Normalerweise "hängt" dann ein Treeview Node "am Fadenkreuz". Eingefügt wird wie über die Zwischenablage. Da musst du sehen das das richtige dataobject übergeben wird. Zitat:wie komme ich per vba an das drop-ereignis heran um auf bestimmte umstände zu reagieren?Wo ziehst du den Eintrag denn hin. Im Modelbereich würde der Event BeginnCommand (Past ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
startrek am 23.06.2006 um 10:02 Uhr (0)
Hi Cadler,das haut doch aber so eigentlich hin;-)Code:Sub x() Dim p1#(1), p2#(1) p2(0) = 5: p2(1) = 10 rechteck p1, p2 ZoomExtentsEnd SubGruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
Carsten1210 am 23.06.2006 um 11:26 Uhr (0)
Hallo Joe,Das sollte eigentlich klappen. Als was für ein Datentyp bekommst du die Daten von Excel?Hier 2 Beispiele, wie du das verarbeiten kannst:Public Function Rechteck(Punkt1, Punkt2) As AcadLWPolyline Dim eckpunkt(0 To 7) As Double eckpunkt(0) = Punkt1(0): eckpunkt(1) = Punkt1(1) eckpunkt(2) = Punkt2(0): eckpunkt(3) = Punkt1(1) eckpunkt(4) = Punkt2(0): eckpunkt(5) = Punkt2(1) eckpunkt(6) = Punkt1(0): eckpunkt(7) = Punkt2(1) Set Rechteck = ThisDrawing.ModelSpace.AddLightWeightPolyline(eckpunkt) R ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
Carsten1210 am 23.06.2006 um 12:11 Uhr (0)
Hallo Nat-Bambo,Herzlich Willkommen im Forum. Zu deiner Frage: Die Suche hat mir das gebracht. Alternativ kannst du dir auch Beispiele im Sample-Ordner die Datei Excellink.DVB anschauen.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Acad-Events und VB2005
BJ am 23.06.2006 um 13:01 Uhr (0)
Hallo Stelli!Das Problem konnte ich nach viel Kopfschmerzen selber lösen Zu deinen Fragen:VB2005 = VB.NET 2005 was anderes gibts nicht (meines wissens)Zugriff kann in dem Fall nur uber COM-Objekte gehen.Und ACAD-Events können nur mit WithEvents abgefangen werden.Die Lösung (falls von Interesse):Das Problem ist, das .NET keine threadübergreifenden Vorgänge zulässt. Mit einem kleinen Trick, kann man sich aber behelfen.Private WithEvents ACEvents As Autodesk.AutoCAD.Interop.AcadApplicationPrivate Delegate Su ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
Nat_Bambo am 23.06.2006 um 13:03 Uhr (0)
Hallo Charsten,das ging aber mit der Antwort schnell.Der Link mit der ZIP-Datei, die eine Excelliste und dwg.zeichnung enthält, ist vermutlich das was ich benötige. Allerdings muß ich vielleicht in meiner Unerfahrenheit irgendetwas nicht richtig machen.Ich öffne beide Dateien. In der Excelliste drücke ich auf dem Button Attribute einlesen erscheint eine MSG-Box kein Block angewählt.Nachdem ich den Block in dwg.Zeichnung angewählt, der in die Excelliste übertragen werden soll, angewählt habe, erscheint nach ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
Carsten1210 am 23.06.2006 um 14:36 Uhr (0)
Hi,Kann mir im Moment die ZIP-Datei nicht anschauen. Vielleicht hilft dir dieser Link ja weiter.Gruß Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Drag & Drop
Stelli1 am 24.06.2006 um 11:34 Uhr (0)
Hallo Bernd, Zitat:Original erstellt von Stelli1:Was hast du den eingerichtet. Normalerweise "hängt" dann ein Treeview Node "am Fadenkreuz". Eingefügt wird wie über die Zwischenablage. Da musst du sehen das das richtige dataobject übergeben wird.Wenn du für Autocad unbekannte Objekte in der Zwischenablage hast bleibt der Menüpunkt "Einfügen" auch grau weil AutoCAD nichts mit dem Datentyp, hier Treeview Node, anfangen kann. Du musst wohl versuchen einen Block an das Drag&Drop Dataobject anzuhängen.Ansonsten ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
Nat_Bambo am 26.06.2006 um 09:35 Uhr (0)
Hallo Carsten,danke Dir für Deinen Tipp.Ich habe mich über das Wochenende intensiv mit dem Thema beschäftigt und nochmals im Forum rumgestöbert.Mir erscheint der erste Link von Dir am ehestens für mein Problem geeignet zu sein. Allerdings habe ich überhaupt keine Ahnung wie die Syntaxbefehle für ACAD heißen. Gibt es für ACAD einen Makrorekorder, den man von Excel her kennt?Ich habe eine andere Idee:Du siehst hier ein Makroprogramm, mit der ich Excel und Word miteinander verbunden habe. Dieses könnte man do ...
|
| In das Form Autocad VBA wechseln |
