|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 11:21 Uhr (0)
Warum denn? Ich habe doch nichts falsches gesagt? Ich habe ein Problem und habe es hier in dem Thread dargestellt, sodaß mir andere evtl. helfen können. Das ist doch das Ziel des Forums? Ich weiß ja schon, wie ihr das mit den Antwort-Beiträgen meint und was das Problem sein könnte. Es geht mir hier doch aber einzig und allein darum, den Code entsprechend ändern zu können, sodaß es funktioniert. Kannst Du mir nochmal sagen, wo Du den Code in der Hilfe gefunden hast? Zitat: Original erstellt von harryk: ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 22.11.2004 um 13:12 Uhr (0)
Also ideal wäre eine Datei, die in VBA integriert ist, somit man nicht auf externe Programme wie Excel zurückgreifen muß (wenn es jedoch nicht anders gehen sollte, dann wäre das doch eine Variante). Die Daten sollen tabellarisch aufgelistet werden: Blockname, X-Koordinate, Y-Koordinate, Z-Koordinate, Drehwinkel Und ganz wichtig: ich muß diese Daten weiterverarbeiten können. ----- Ich habe einen Code (auch mal hier bekommen), bei dem die Blockattribute in eine Textdatei exportiert werden. Aber die Werte wer ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Zeichnung in einen Block laden klappt nicht immer
Arol am 06.07.2009 um 20:31 Uhr (0)
Hallo,also an den Variablennamen liegt es nicht, die Verwirrung kam zustande, da ich nicht den gesamten Quelltext kopiert habe.Das Programm bricht bei der Zeile:Set insideBlockRef = mainBlock.InsertBlock(insidebpkt, insideSource, 1, 1, 1, 0)ab. Fehlermeldung:Laufzeitfehler -2145386445 (80200033)DateifehlerHabe dazu was im engl. Forum gefunden:On Error Resume NextSet myBlockObj = ThisDrawing.ModelSpace.InsertBlock(IPoint, BlockName, XScale, YScale, ZScale, Rotation)If Err = -2145386445 Then Block not yet in ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
Huebi am 28.02.2005 um 10:38 Uhr (0)
Servus CoXiDo, erstmal wilkommen im Forum! Ohne AutoCAD Kenntnisse wirst Du Dir sehr hart tun bei dem was Du vor hast, da VBA für AutoCAD natürlich an den Methoden und Funktionen in AutoCAD zusammenhängt. Zuerst versuche doch mal zu beschreiben, wie Du das, was Du machen möchtest, manuell in AuoCAD machen würdest. Es klingt so, als möchtest Du einen Ausschnittplot verkleinert auf ein festes Format bringen und dazu via OLE eine Excel-Tabelle einblenden. Das mit dem Einblenden von Excel-Tabellen wurde schon ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
The VIP am 11.08.2003 um 08:37 Uhr (0)
Hallo beisammen. Habe am Wochenende alleine mit Excel versucht rechnerisch mit Hilfe von Pythagoras an die Koordinaten der Endpunkte der Bögen zu gelangen. Hat geklappt, wenn ich auch etwas skeptisch war was die Genauigkeit angeht. Heute morgen als ich die Bögen in AutoCAD gemessen habe und die Koordinaten vermasst habe, hab ich Abweichungen im 100stel-Bereich gegenüber der Excel-Berechnung festgestellt (kann mit Rundungen oder der Zahl Pi zu tun haben - keine Ahnung). Jedenfalls stimmt die Berechnung (sie ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 14:03 Uhr (0)
Code: Sub Träume_am_laufenden_Block() Dim elem As AcadEntity Dim rownum As Long, ip As Variant Dim ExcelApp As Excel.Application Dim ExcelWbk As Excel.Workbook Dim ExcelWks As Excel.Worksheet rownum = 2 Set ExcelApp = New Excel.Application Set ExcelWbk = ExcelApp.Workbooks.Add ExcelApp.ActiveWorkbook.SaveAs "D:Mappe1.xls" Set ExcelWks = ExcelWbk.ActiveSheet With ExcelWks .Cells(1, 1) = "x": .Cells(1, 2) = "y" usw For Each elem In ThisDrawing.ModelSpace If TypeOf elem Is IAcadBlockReferenc ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Alle Textstile und Textgröße in einer Zeichnung ändern
Brischke am 03.10.2012 um 18:25 Uhr (0)
Zitat:Original erstellt von Oliwoos:Okay, hat jemand ein paar Tipps für mich, da sich meine VBA-Kenntnisse auf Excel begrenzen!Bzw. eine gute Homepage wo ich Hilfe finde!?Vielen Dank...ähmm, das Problem sind nicht die VBA-Kenntnisse, sondern die Kenntnis über den Aufbau einer Zeichnungsdatenbank in Kombination zu dem durch die API zur Verfügung gestellten Objekten.Wenn du in dieser Hinsicht keine Erfahrung hast, dann wird es schwer werden da kurzfristig Ergebnisse zu erzielen (meine Meinung).Die Beste Hilf ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
The VIP am 12.08.2003 um 12:00 Uhr (0)
Hier noch ein paar Fragen: 1. ich spiegle bisher das erste Viertelsegment der Drehtür nach links und habe dann eine halbe Drehtür, dann spiegel wiederum dieses Viertel nach unten und dann wieder nach rechts um eine komplette Drehtür zu erhalten. Kann ich auch die kompletten Objekte nach unten spiegeln wenn ich bereits eine halbe Drehtür habe, oder muss ich wirklich Segment für Segment spiegeln? Ich würde mir einen Spiegel-Vorgang sparen. 2. Jetzt geht s etwas ins Detail, da wir auch noch die Glasscheibe ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
The VIP am 19.08.2003 um 11:05 Uhr (0)
Hi. melde mich nach langer Zeit wieder zurück Wir hatten hier ein bisschen viel Areit und ich musste das VBA Projekt ne Zeit ruhen lassen. Bin ständig am erweitern und verbessern. Bin aber nun auf ein Hürde gestossen: Ich habe hier ein Teil des Makros welches mir die Bögen an den entsprechenden Linie stutzt. Code: SP1_1 = Bogen1Temp.IntersectWith(Linie1, acExtendNone) SP2_1 = Bogen1Temp.IntersectWith(Linie2, acExtendNone) SP1_2 = Bogen2Temp.IntersectWith(Linie1, acExtendNone) SP2_2 = Bogen2Temp.Inte ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Zeichnung ohne AutoCAD erstellen / Create Drawing without AutoCAD
MichaelKlein am 05.12.2008 um 10:28 Uhr (0)
Hallo,vielen Dank für die schnelle Antwort. Ich habe mir auch schon überlegt eine DXF-Datei aus textblöcken zusammenzubauen. Um das Format zu analysieren habe ich einen einfachen Würfel gezeichnet und als DXF abgespeichert. Die entstandene Textdatei hatte eine Länge von 7402 Zeilen !!! Wie soll da jemand der nicht 48 Stunden am Tag AutoCAD programmmiert durchblicken ? Es wäre mit lieber wenn ich die Geometrien mit den gleichen oder ähnlichen Funktionsaufrufen erzeugen könnte wie beim Programmieren mit VBA. ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
mapcar am 22.11.2004 um 23:12 Uhr (0)
Alle Winkel kleiner als ca. 57° sind kleiner als 1, wenn sie in Rad dargestellt werden. Liegt da ein Trennzeichen-Konflikt vor, werden alle Winkel kleiner als diese 57° als 0 in Excel dargestellt (bis 114° ist es dann 1 usw.) Excel/MSOffice liest das verwendete Trennzeichen aus den Windows-Ländereinstellungen aus, AutoCAD verwendet immer den Punkt (ausser bei Bemaßungstexten, wenn das eingestellt ist). Verwirrend aber, dass VBA bei der Eingabe von float/double-Literalen plötzlich auch den Punkt als Trennze ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 10.04.2013 um 00:18 Uhr (0)
Hallo Ronald,Du hast ja immer Spezialfragen Zunächst mal Gratulation zu den bisherigen Erfolgen, dann gleich die erste Frage:Bist Du Dir sicher, dass Ddein Programm in der Zeile 8 beginnt?Du setzt: intZeil = intSel ------- Zeilenwert?D.h. Hier wird beim ersten Wert 1 und dann jeweils der erhöhte Wert zugewiesen.Dann kommt die Zuweisung:Cells(intZeil + 8, intSpalt1).Value = acad.ActiveDocument.FullNamealso: 1 + 8 = 9 Nur mal so zum Nachdenken ...Aber nun zur eigentlichen Frage:1. leider fängt ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
hsb am 11.08.2003 um 12:11 Uhr (0)
hallo vip, das ist richtig, der downloadbereich steht nur unseren kunden zur verfügung. geht es um eine einfache kostengünstige lösung des problems oder geht es um das erlernen von vba? hsb Zitat: Original erstellt von The VIP: Hallo beisammen. Habe am Wochenende alleine mit Excel versucht rechnerisch mit Hilfe von Pythagoras an die Koordinaten der Endpunkte der Bögen zu gelangen. Hat geklappt, wenn ich auch etwas skeptisch war was die Genauigkeit angeht. Heute morgen als ich die Bögen in AutoCAD geme ...
|
| In das Form Autocad VBA wechseln |
