|
AutoCAD VBA : Objekte aus Referenz kopieren -> Block Explode Problem
Hendrik2 am 14.09.2009 um 20:25 Uhr (0)
Hallo,ich habe folgendes Problem bei der Programmierung in AutoCAD 2008.Ich muss aus einer DWG Datei alles in eine andere übernehmen und einen Teil der Objekte löschen oder von vornherein nicht kopieren.Ich habe das wie folgt gemacht:Code: Als Referenz anhängenSet XRefFile = ThisDrawing.ModelSpace.AttachExternalReference(Filename, fso.GetBaseName(Filename), EinfügePt, 1, 1, 1, 0, False) Binden - Hier entsteht ein BlockThisDrawing.Blocks.Item(XRefFile.Name).Bind True Um damit weiterarbeiten zu können muss i ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekte aus Referenz kopieren -> Block Explode Problem
alfred neswadba am 14.09.2009 um 21:40 Uhr (0)
Hi Hendrik,mit VBA ist der einfachste Weg:- mach die Zeichnung auf statt zu referenzieren- selektiere dort die Objekte, die in eine andere DWG zu transportieren sind- erstelle mit den selektierten Elementen eine Zeichnung mittels WBlock- füge diese mit insert in die Zielzeichnung ein (und explodiere diese bei Bedarf)Sample von WBlock findest Du in der VBA-HilfeSample von Insertlock ebenfallsarbeitest Du mti VB.NET, da gibts schnelleres (vor allem da die Quellzeichnung nicht in den AutoCAD-Editor zu laden i ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AddText nimmt Koordinaten nicht
wwwilli am 15.09.2009 um 11:28 Uhr (0)
Hallo,ich will mit AddText Texte entsprechend einer Textdatei einfügen, aber AC versteht meine Koordinateneingabe nicht. Da wird immer 0,0,0 genommen.Dim TextObj As AcadTextDim myCorner(0 To 2) As Double... Datei lesen, Werte zuweisen usw.Set TextObj = ThisDrawing.ModelSpace.AddText(myText, myCorner, myHeight)An anderen Stellen hat das aber schon geklappt. Gibt es einen Trick? Mir ist so, wie wenn ich schon gehört hätte, da müssten bestimmte Datentypen verwendet oder zugewiesen werden.MfG,wwwilli
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AddText nimmt Koordinaten nicht
wwwilli am 15.09.2009 um 12:46 Uhr (0)
Also dann:Da sind schon ein paar Verrenkungen auf dem Weg zu myCorner zu sehen, die eigentlich überflüssig erscheinen.Code:Option ExplicitPrivate Const makTitel$ = "TexteAusDateiEinfuegen v0.01" aSub TexteAusDateiEinfuegen()Dim iZ As Integer, iP As IntegerDim txtFile$, zeilE$Dim TextObj As AcadTextDim xNew, yNew, zNewDim myCorner(0 To 2) As DoubleDim myText$, myRotat As Double, myHeight As DoubleDim errMsg$Dim textDaten() As String On Error GoTo fehlerende errMsg = "Textdatei" txtFile = InputBox("In die ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle Textstile in einer Zeichnung ändern
iphone747 am 21.11.2013 um 19:45 Uhr (1)
Guten Abend,ich bin neu hier im Forum und bin durch Zufall auf dieses Thema gestoßen, da ich gerade vor dem Selben Problem stehe.Ich habe auch unzählige Autocad Zeichnungen und würde gerne ohne großen Aufwand bei allen Zeichnungen die gleiche Schriftart haben.Das mit dem VB-Code sieht mir nach einer klasse Lösung aus könnte mir hier bitte jemand weiterhelfen wie ich diesen Code anwenden muss, bzw. wie das dann letzten endes funktioniert?Gruß und vielen Dank an alle!
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ATTSYNC
alfred neswadba am 25.09.2009 um 15:58 Uhr (0)
Hi Holger,woran arbeitest Du jetzt, VBA oder ObjectARX, weil Du einen vermeintlich unbedeutenden Hinweis zu einer DBX machst.Fügst Du eine BlockReference in eine Datenbank ein, die im Editor geöffnet ist, darf eigentlich kein Attsync notwendig sein.Fügst Du eine BlockReference in eine Datenbank ein, die NICHT im AutoCAD-Editor geöffnet ist, dann sind, wie Du schon bemerkt hast, alle Attributreferenzen, deren Ausrichtung nicht vorgabemäßig (Links/Unten) ist, so plaziert als wären diese Links/Unten. Ich sehe ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ATTSYNC
oscarr am 25.09.2009 um 16:42 Uhr (0)
Hallo Alfred,sorry wegen der missverständlichen Definition es muss wohl ObjectARX heissen.Sprich die Zeichnung wird nicht im Editor geöffnet.Programmieren tu ich mit Visual Basic 2008 Express Edition und muss sagen das es Liebe auf den ersten Blick war.Ich habe vorher etwas VBA gemacht, auch schon mal gelispelt(aber nix grosses).Ich versuche mal mein Problem zu beschreiben. Ich ordne Blockreferenzen in einem Kreis an. Jeder Block hat zwei Atrribute. Das klappt auch wunderbar. Aber ich möchte das die Attrib ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ATTSYNC
alfred neswadba am 29.09.2009 um 13:46 Uhr (0)
Hi Didi, deutschsprachige Lektüre zu dem ThemaSuch mal in diesem Forum, da hat es schon solche Anfragen und auch Antworten gegeben. Auch Schulungen zu dem Thema wären nicht uninteressantWerbung darf ich hier nicht machen, schick mir PM mit klein wenig Info, was Du machen willst, wie weit Du von Melk/St.Pölten entfernt bist, Deine eMail-Adresse, dann kann ich Dir direkt antworten. unmanaged und managed CodeSchau mal auf der Microsoft-Homepage nach Unterschieden zwischen C++ und C# (bzw. VB.NET), das kann n ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ATTSYNC
oscarr am 29.09.2009 um 14:51 Uhr (0)
Hallo Didi,dem ist im Grunde nichts hinzuzufügen.Ausser das ich nichts brauchbares auf Deutsch zum Thema AutoCAD und VB.net gefunden habe.Ich habe mir http://www.vbcad.com/showabook.asp?BOOKID=5 gekauft, als e-Book (nicht druckbar!) ist halt auf English und war für mich als VBA Umsteiger perfekt, gerade das Projekt Setup damit man in AutoCAD richtig debuggen kann ist gut beschrieben. Sowie die von Alfred beschriebenen Transactions und der allgemeine Zugriff auf AutoCAD.Was dabei fehlt ist lediglich der kle ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute in eine Textdatei schreiben
alfred neswadba am 30.09.2009 um 12:46 Uhr (0)
Hi, Bei dem Befehl DATENEXTRAKT kann ich zwar Textdateien erzeugen, erkenne aber nicht mehr die einzelnen Datensätze.Die mit Datenextrakt erzeugte Datei wird Dir je Schriftfeld eine ASCII-Zeile ausgeben. Hast Du mehrere Schriftfelder in Deiner Zeichnung, dann bekommst Du eben mehrere Zeilen in Deiner ASCII-Datei. Den Befehl müste ich auch in ein Makro einbinden, es sollten aber keine weiteren Abfragen kommenKannst Du auch mit DATENEXTRAKT, musst nur einmal eine Exportdefinitionsdatei anlegen (DXE-Datei) ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockref_Event , Attribute geändert stürzt ab
alfred neswadba am 30.09.2009 um 15:58 Uhr (0)
Hi, Internal Error; !dbattr.cpp@903: eWasNotifying...steht für ich habe gerade einen Event ausgelöst und in diesem mich zu ändern, ist kritisch. Damit schützt sich AutoCAD offensichtlich selbst davor, dass es in Endlos-Rekursionen hineinläuft.Da wird wohl notwendig sein, dass Du Dein Workflow überdenkst. Z.B. ist es notwendig, dass Du die BlockReference mit WithEvents deklarierst oder anders herum, im Eventhandler deaktivierst Du das EventHandling, indem Du am Anfang Deines Subs Set Annotation = Nothing ei ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute in eine Textdatei schreiben
ela-cad am 30.09.2009 um 21:00 Uhr (0)
Hallo Alfred,der Hinweis war super. In einem Makro läuft alles auch ohne Anwendereingabe.Es kommt leider noch ein kleines aber!In der Textdatei von AutoCad "Schriftfeld_9514.txt" s.h. Anhang ist noch die Überschrift vorhanden und das Feldtrennungszeichen ist der TAB.In unserer Datei (Prochem-C) "ZI-0001234.txt" ist keine Überschrift und das Trennungszeichen ist der Strich |.Diese Unterschiede würde ich jetzt über ein Linux-Script ausgleichen und den Dateinamen auch an die Zchng-Nr anpassen, bevor ich die D ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute in eine Textdatei schreiben
alfred neswadba am 30.09.2009 um 22:14 Uhr (0)
Hi,verstehe ich richtig, Dein bisheriges Handling führt dazu, dass bereits die TXT-Datei fertig rauskommt, es geht nur mehr um Umbenennen der Datei und um das Entfernen der ersten Zeile (der Überschriften) und das Ersetzen von TAB nach |?Das geht mit AutoCAD-VBA gleich wie mit Excel-VBA.AutoCAD-seitig brauchst Du eigentlich nur den Namen der Datei, den kannst Du mitCode:ThisDrawing.Nameherausholen.Das Datei öffnen, die Überschrift vernichten und die Tabs ersetzen ist ident zu anderen VBAs- alfred --------- ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
