|
AutoCAD VBA : VBA: Dateien zum Lesen öffnen
Fabi143 am 11.08.2009 um 12:56 Uhr (0)
Hallo,hier also meine zweite Frage: Ist es möglich, in AutoCAD automatisch eine DXF Datei aus einem Ordner zu öffnen, eine Polylinie darin zu finden (es gibt immer meist nur eine, sonst sind sie anhand der Punktanzahl zu unterscheiden), ein paar Prozeduren darüber laufen zu lassen, die Datei wieder zu schließen und anschließend die nächste auf diese Weise zu verwursten?Viele Grüße und vielen Dank im voraus,FabiTante Edit: Jetzt gibts den Beitrag zweimal.. entschuldigung. Bitte an die Moderatoren: Bitte ein ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA: Dateien zum Lesen öffnen
alfred neswadba am 11.08.2009 um 13:44 Uhr (0)
Hi, Zitat:Stimmt das so als Herangehensweise?...sehe keinen Fehler, Verzeichnis einlesen kannst Du mit dem Windows-Scripting-Object oder mit der VB-Funktion DIR.Vorsicht bei großer Dateianzahl, Öffnen von 100ten Zeichnungen kann irgendwann mal ein MemoryLeak hinterlassen und AutoCAD ist tschüss.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Eingrenzung für Punktwolke
adblue am 20.08.2009 um 13:00 Uhr (0)
moin zusammen,ich suche nach einer Funktion, die mir aus einer punktwolke eine Umrahmung bzw. Eingrenzung als Polygonzug automatisch ermitteln. die funktion soll sich selbstständig die min / max werte der koordinaten ermitteln und die größte bzw die kleinsten punkte mit linien verbinden. eine art GetBoundingBox.wie hieß die funktion gleich nochmal in autocad? für vba
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Löschen von Schriftkopf / Rahmen
bassenc am 28.07.2010 um 13:44 Uhr (0)
Hallo, ich versuchs einfach mal hier da ich in ähnlichem Kontext Probleme mit dem Erstellen von Zeichnungen.Der Code ist nahezu identisch mit dem hier von CW77 gepostet, also wie folgt:Code:Dim ADoc As Autodesk.AutoCAD.Interop.AcadDocumentADoc = ACadApp.Documents.Add(IO.Path.GetFileName(theDWG_Data.AcadDrawingTemplate))SymBBMgr = ADoc.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")Dim BdMgr As SymBBAuto.McadTitleBorderMgrBdMgr = SymBBMgr.TitleBorderMgrDim TBDesc As SymBBAuto.McadTitleBorderDesc ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Löschen von Schriftkopf / Rahmen
alfred neswadba am 24.08.2009 um 12:42 Uhr (0)
Hi,@insidERR: Zitat:Zeichnungsrahmen und Schriftkopf sind doch BlöckeIch nehme an, dass es rund um dieses Problem relativ leise in diesem Thread ist, da das verwendete Objektmodell von CW77 eben Mechanical-eigene Objekte sind (siehe die Deklarationen, die allesamt nicht AutoCAD-Basisojekte sind).Wenn Du Mechanical hast, kannst Du doch seinen Code mal ausprobieren, gibts bei Dir den gleichen Fehler?Wenn es denn doch AutoCAD-Blöcke sind, dann sollte man acht geben, ob durch löschen einer solchen Blockreferen ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : PDF erstellen per VBA-Makro
alfred neswadba am 24.08.2009 um 19:56 Uhr (0)
Hi,das ZIP ist nicht beschädigt, es hat nur leider Sonderzeichen im Dateinamen. Öffne diesen Link und klicke dann auf die Datei direkt, dann bekommst Du sie herunter.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : PDF erstellen per VBA-Makro
Stelli1 am 24.08.2009 um 22:19 Uhr (0)
Hallo zusammen,hier mal ein Codeausschnitt zum drucken mit dem PDF Creator.Ist zwar für Word gemacht, aber das Prinzip lässt sich auch auf AutoCAD übertragen, da oft das Problem besteht den Ausgabenamen zu bestimmen und zu warten bis der Druck fertig ist.Code: Dim pdfjob As PdfCreator.clsPDFCreator Dim sPDFName As String Dim sPDFPath As String Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = New Word.Application Set WordApp = GetObject(, "Word.application") WordApp.Vi ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block einfügen mit getpoint
vittorio0 am 24.08.2009 um 23:33 Uhr (0)
Hallo alle ich möchte ein Block dessen Pfad und Name in einer Datei auf der Festplatte liegt mittels VBA in die Zeichnung einfügen. Den Skalierfaktor entnehme ich der DIMSCALE. Soweit funktionierts, nur sehe ich den Block nicht am Fadenkreuz beim wählen des Einfügepunktes. Ist das irgendwie machbar, ev. mit einem anderen Lösungsansatz?Code:Open "c: empinsblock.txt" For Input As #1Line Input #1, blockpathClose #1mst = Int(ThisDrawing.GetVariable("LTSCALE"))Set blockRefObj = ThisDrawing.ModelSpace.InsertBloc ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Eigene Textbox im Werkzeugkasten
CAD-Huebner am 31.08.2009 um 09:06 Uhr (0)
na dann schreib doch besserBefehl: OEF 1234567und erzeuge einen Befehl OEF, der die nachfolgende Eingabe als Dateiname auswertet und die gewünschte Datei öffnet.Da würde ich nicht versuchen, die gewohnte AutoCAD Eingabe zu verbiegen.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Eigene Textbox im Werkzeugkasten
alfred neswadba am 29.08.2009 um 10:18 Uhr (0)
Hi,weder TextBox noch ComboBox steht Dir in einem Werkzeugkasten mit VBA zur Verfügung. Mit AutoCAD 2002 mußt Du in diesem Fall auf ObjectARX greifen (und auch das ist hart).Ab AutoCAD 2009 wären die Ribbons dafür gut geeignet, denn damit kann man alles WPF-artige umsetzen und da kannst auch Filmchen-Player einbauen.Sorry, - alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Eigene Textbox im Werkzeugkasten
Heiko76 am 29.08.2009 um 10:51 Uhr (0)
Hi,wir setzen mittlerweile AutoCAD 2008 ein. Bekomm das nur nicht links geändert. Wie bekomme ich denn dann hin, die Eingabe des Users zu überwachen. Also wenn ein User etwas in der Befehlszeile eingibt, das ich das dann abfangen kann bevor AutoCAD sagt das ist kein Befehl...------------------ cuHeikoSchau mal rein www.diemertens.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Versionsabhängikeiten
Goofy007 am 31.08.2009 um 16:55 Uhr (0)
Hallo Forum,Ich habe in einem meiner Makros den Befehle:Code:Set Farbe = AcadApplication.GetInterfaceObject("Autocad.accmcolor.17")verwendet. Nun habe ich festgestellt, daß der nur in den 17er Versionen von ACAD funktioniert.Um Versionsunabhängig zu sein, muß ich wohl erst mal die Version feststellen, und dann die für die Verison passende Funktion wählen.Ist das so? Oder gibt es einen eleganteren Weg?Ich möchte unnötige if´s vermeiden. In der Hilfe und im Web konnte ich leider nichts brauchbares find ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Versionsabhängikeiten
alfred neswadba am 31.08.2009 um 17:06 Uhr (0)
Hi Didi,Dann kannst du statt fixer Texte eine Funktion definieren, die Dir die richtigen ActiveX-ObjectNames evaluiert und diesen retourniert.Code:...folgendes kann in eigenen Modulen stehen, die Du Dir als allgemeine Library erzeugstPrivate Function getAcadVersionMain as string getAcadVersionMain = left(ThisDrawing.Application.Version,2)End FunctionPrivate Function getColorInterfaceString() as String getColorInterfaceString = "Autocad.accmcolor." & getAcadVersionMain End Function...und in Deiner Funktio ...
|
| In das Form AutoCAD VBA wechseln |
