|
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
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 : Excel und AutoCAD
CADLER06 am 22.06.2006 um 15:27 Uhr (0)
Hallo liebe CAD´ler,möchte mich doch gerne auch aktiv am Forum beteiligen, bin aber noch ziemlich grün hinter den Ohren.Habe hier im Forum schon viele nützliche Tipps gefunden. Jetzt habe ich ein anderes Problem.Ich muss aus Excel Werte als Punkte an AutoCAD übergeben, damit nach diesen Punkten Rechtecke gezeichnet werden. Habe mich dazu entschieden das per VBA zu lösen (ginge mit Sicherheit auch mit LISP, oder ??)Kann mir jemand einen Tipp über die Vorgehensweise geben ?im Voraus vielen Dankder CADL ...
|
| 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 |
|
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
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 |
