|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 05.04.2013 um 15:27 Uhr (0)
Hallo Klaus,Sieht gut aus die hälfte meines Programms funktionier schonBin jetzt soweit das ich alle daten auslesen kannTeil 2 sollte vorhandene daten in die Zeichnungen schreibenhier mal ein entwurf / ab Block 1 funktioniert er nicht richtigCode:Dim AngBracDwg As String Dim Schriftkopf1 As String Dim Schriftkopf2 As String Schriftkopf1 = Cells(3, 26 + 6).Text Schriftkopf2 = Cells(5, 26 + 6).Text For i = 1 To Selection.Count AngBracDwg = Selection.Item(i).Text tAcadApp.Documents.Open (AngBracD ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 09.04.2013 um 19:13 Uhr (0)
Hallo Klaus,hab mal aufgeräumt und die Definitionen geändert.weiters hab ich auf 4 Blöcke erweitertCode: Dim AngBracDwg As String Dim Block1, Block2, Block3, Block4 As String Block1 = Cells(2, 26 + 7).Text Block2 = Cells(3, 26 + 7).Text Block3 = Cells(4, 26 + 7).Text Block4 = Cells(5, 26 + 7).Text For intSel = 1 To Selection.Count AngBracDwg = Selection.Item(intSel).Text tAcadApp.Documents.Open (AngBracDwg)..................................................................................... ...
|
| 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 : Dezimaltrennzeichen der Ländereinstellungen abfragen
RoSiNiNo am 10.04.2013 um 14:43 Uhr (1)
Es ist zwar schon ein sehr altes Thema. Falls jemand aber mit dem Umstieg auf AutoCAD 2014 vielleicht nochmal auf dieses Problem trifft, hier die Lösung die ich jetzt verwende.Code:Public Function funDouble(Wert As String) As Double Dim Test As Double Test = 1 / 2 If InStr(Test, ".") 0 Then If InStr(Wert, ".") 0 Then funDouble = Wert Else funDouble = Replace(Wert, ",", ".") End If Else If InStr(Wert, ",") 0 Then funDouble = Wert ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ACAD 2013 - VBA Projekt konnte nicht geladen werden
Rolli69 am 12.04.2013 um 13:10 Uhr (0)
Hallo an Alle,ich habe ein Problem, bei dem mir die Forensuche leider nicht helfen konnte oder aberich habe falsch gesucht.Ich verwende ein VBA Projekt in einer Vorlagendatei, welches über eine in VB6 erstellte dllaus einer Datenbank Zeichnungsnummern ausliest und Zeichnungsinformationen in die Datenbank zur Nr. ablegt.Da diese Funktion für ACAD und die DIVA gleichermaßen arbeiten soll bin ich den Weg über eine dll gegangen.So nun zum eigentlichen Problem: ich habe die dll wie gewohnt eingerichtet (ins Win ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ACAD2011 und VBA
Stelli1 am 12.04.2013 um 19:38 Uhr (0)
Hallo Günter,hast du in deinem Proggi ein Formular.Das müsstest du verbergen um den Focus auf AutoCAD zu setzen.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ACAD steuert andere Anwendungen
GüSo am 15.04.2013 um 10:35 Uhr (0)
Hallo allerseits,ich habe in der Vergangenheit mehrere Fälle gehabt, in denen es sinnvoll war vom AutoCAD aus Daten in ein Excelsheet zu schreiben, bzw. von dort zurück zulesen. Nun habe ich mal gelesen, daß OpenOffice-Calc ebenfalls über eine API verfügt und somit von "außen" steuerbar ist. Leider habe ich bisher nirgends detailliertere Informationen dazu gefunden. Gibt es evtl. hier Erkenntnisse über das wie und ob?------------------MfGGünter
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block verschieben
KlaK am 10.05.2013 um 12:31 Uhr (0)
Hallo niclas, willkommen im ForumSo ganz verstehe ich Dein Problem nicht, denn im Prinzip brauchst Du dazu kein VBA.Dein Block "Josef" kann jetzt zwei Bedeutungen haben, bei denen Du Verschiebungen machen möchtest:Einmal als Blockdefinition, also praktisch die Vorlage, Definition. Die kann man nachträglich mit dem Blockeditor bearbeitenOder als Blockreferenz, diese besagt an welcher Stelle und mit welcher Skalierung die in der Blockdefinition festgelegte Zeichnung dargestellt werden soll. Den Einfügepunkt ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bemaßung Wert auslesen
82.lagrima am 11.05.2013 um 14:36 Uhr (0)
Hallo,ich noch nicht viel Erfahrung mit VBA in Autocad habe mich aber vor einer Weile aber schon (Learning by Doing) mit VBA in Excel auseinandergesezt.Jetzt würde ich gerne den Wert (in den Eigenschaften heißt es Maßeinheit) von Bemaßungen auslesen.Nach einiger Suche bin ich bereits auf folgenden Verweis in einer anderen Disskussion gestoßen:http://forums.augi.com/archive/index.php/t-35912.htmlAber das ist auch nicht das, was ich suche (wenn ich das denn richtig verstanden habe, mein Englisch ist nicht so ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bemaßung Wert auslesen
KlaK am 12.05.2013 um 19:16 Uhr (0)
Na gut, dann werde ich das morgen mal mit Autocad testen Bei mir (unter Bricscad, die Autocad Homeuse ist noch nicht erneuert) gibt es da keine Probleme. Hatte Deine Vorgaben nur kopiert und ergänzt. Hier mal mein Hauptcode:Code:Sub test_Bem() Dim Sset As AcadSelectionSet Dim Auswahl As AcadObject Dim Bemass As AcadDimension Dim FilterType(0) As Integer Dim FilterData(0) As Variant On Error Resume Next Set Sset = ThisDrawing.SelectionSets.Add("TEST_SSET") If Err 0 Then Set Sset = ThisDrawing.SelectionSet ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Projekt konnte nicht geladen werden
82.lagrima am 18.05.2013 um 21:05 Uhr (0)
Nein, die Datei finde ich ja. Falsches Verzeichnis kann also nicht sein. Aber nun ja, so ist das halt. In Zukunft werde ich meinen code halt zusätzlich als .txt speichern.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Projekt konnte nicht geladen werden
82.lagrima am 18.05.2013 um 12:40 Uhr (0)
Das A in VBA habe ich vergessen Ich habe eine dvb erstellt. Wobei ich dazu sagen muss, das dass mein erstes Projekt mit Autocad war und ich jetzt nicht weiß, ob "in der Zeichnung" gleich bedeutend ist, damit dass ich auch code in "ThisDrawing" geschrieben habe?
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Texthintergrund-Farbe
Björn Möller am 29.05.2013 um 16:24 Uhr (0)
Hallo Forum,ich möchte einem Mtext per VBA ein Hintegrundfarbe verpassten.Den Texthintergrund kann ich aktivieren, aber die Auswahl der Farbe gelingt mit nicht.Habt Ihr einen Tipp, wie ich vorgehen muss?Ich habe immernoch AutoCAD MAP 2012 im Einsatz.Gruß BjörnAnbei mein armseliger Versuch.Set BjMtext = Thisdrawing.modelspace.AddMText(BJ_INSERT, BJ_MTEXT_BR, BJ_MTEXT)BjMtext.Layer = "AW_INSP_BEMERKUNG"BjMtext.BackgroundFill = True
|
| In das Form AutoCAD VBA wechseln |
