|
AutoCAD VBA : Blockattribute in eine Textdatei schreiben
ela-cad am 30.09.2009 um 00:09 Uhr (0)
Hallo Forum,vorweg: ich bin ein Neuling und darf mich mit AutoCAD Architecture 2010 beschäftigen.Mit unserem alten Programm (PROCHEM-C) schreibe ich die Schriftfeldeinträge in eine Textdatei. Diese wird mit einer HPGL-Datei der Zeichnung in ein Spul-DIR gestellt und von dort über einen crontabjob in unser Datenbanksystem (CIM-DATABASE) eingespielt.Da hier nicht viel dran zu rütteln ist möchte ich diese Vorgehensweise mit AutoCAD nachbilden.Mein Problem (Schritt 1):Wie kann ich meine Schriftfeldattribute mi ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Gruppencode und Gruppentyp herausfinden
Goofy007 am 09.02.2006 um 08:38 Uhr (0)
Hallo Florian,zu deiner ersten Frage: Was ist ein Frame, bzw. Zeichnungsrahmen? Ich kenne so ein Element in Autocad nicht. Versuch doch den Lisp-Ausdruck von Udo anzuwenden!Zur Frage der Selektionen hab ich ein paar Vorschläge.Abhängig von der Aufgabenstellung gibt es folgende Möglichkeiten.Wenn du alle Element der Zeichnung bearbeiten willst, dann ersetzte .SelectOnScreen duch ein .SelectAll das verlangt keine Benutzereingaben.Wenn du immer den gleichen Bereich bearbeiten willst, dann hast du zwei Möglich ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht mittels Imageanzeige
Dirk.B am 29.06.2005 um 09:35 Uhr (0)
Hallo Zusammen! Ich möchte mir eine Blockvoransicht erstellen und hoffe, daß mir von Euch jemand dabei helfen kann. In einem Verzeichnis zB. C:Bloecke befinden sich Blöcke und eine jeweilige Bilddatei. Beispiel: Hakenteil.dwg Hakenteil.wmf RWClip.dwg RWClip.wmf Ich möchte mir nun mittels VBA eine Dialogbox (Userform) mit einem Anzeigefeld (Image) und einem comandbutton erstellen, dies ist so weit ja auch kein Problem, hoffe ich! Beim bestätigen des comandbutton sollen wenn möglich die Bilddateien aus dem V ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Add entitys to block or change blockref insertationpoints
KlaK am 30.09.2016 um 08:11 Uhr (1)
Hallo Thomas,die Kommentare dazu könnten vielleicht auch darauf beruhen dass zwar viele Zeilen Code aufgelistet sind aber kaum eine Erläuterung was diese Funktionen überhaupt machen und wie sie verwendet werden könnten. Zum näheren Ansehen des Codes müßte zunächst das Interesse geweckt werden. Wenn in der Einführung aber nur geschrieben wird es werden Elemente zu einem Block hinzugefügt oder der Ursprung verschoben kommen natürlich die Nachfragen warum solch ein langer Code.Vielleicht solltest Du noch in d ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahlsätze
GüSo am 26.05.2011 um 08:24 Uhr (0)
Hallo Allerseits!Ich habe eine dxf-Datei mit Stromlaufplanelementen, z.B. Klemmen, erhalten. Vermutlich wurde diese Datei aus WSCAD exportiert. Nun mein eigentliches Problem: Ich klicke eine Klemme an und es sind alle dazugehörigen Elemente markiert. Soweit so gut. Sehe ich mir diese Auswahl in dem Eigenschaften-Fenster an, so stelle ich verwundert fest, daß es keine Blockreferenz ist, sondern n Einzelelemente unterschiedlicher Typen sind. Nehme ich die Auswahl mit "ThisDrawing.Utility.GetEntity..." vor, s ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Dringend Hilfe gesucht
BloodyMess am 03.09.2004 um 16:18 Uhr (0)
Hallo Michael, wie Du auf Excel zugreifst und dir die Dateinamen zusammenbastelst, das denk ich weißt Du. Also nehmen wir mal an, das der DateiName in der Variablen strDatName steht. Code: Thisdrawing.Open FullName:=strDatName ThisDrawing.SendCommand zoom ThisDrawing.SendCommand g nun kannst Du mit den Systemvariablen EXTMIN und EXTMAX die Ausdehnungen deines Ansichtsfensters auslesen. Code: Dim EMin as Variant EMin = ThisDrawing.GetVariable( EXTMIN ) gespeichert werden diese Werte als Arra ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : acadApp.Documents.Item(i)
lbcad am 10.10.2007 um 17:20 Uhr (0)
Hallo Leute,komme hier gar nicht weiter und wäre schön, wenn jemand eine Tipp hat:Möchte von Excel aus in einer AutoCad-Zeichnung rumwerkeln.Dazu benötige ich eine spezielle Zeichnungsdatei.Die Überprüfung, ob diese Datei schon offen ist, kriege ich aber nicht hin:Code: Dim i As Integer Dim acadDoc As AcadDocument For i = 1 To acadApp.Documents.Count acadDoc = acadApp.Documents.Item(i) If LCase$(acadDoc.FullName) = LCase$(ZuÖffnendeDatei) Then DateiSchonOffen = True ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block.delete funktioniert nicht immer
alfred neswadba am 27.01.2010 um 22:56 Uhr (0)
Hi, Was mich wundert, ist, dass ich, wenn ich den Debugger laufen lasse und am Ende der Sub abbreche, anschliessend den nichtgelöschten Block problemslos purgen kannDas konnte ich auch reproduzieren (mit VBA-Code: nein / mit Befehl _purge: funkt). Warum meinst du, das die XData ein Problem darstellen könnten? Ich habe darin nur Handlebezüge als StringsDarum hab ich auch die Formulierung zumindest scheint es so verwendet. Ich sah, dass in den EEDs Handles mit DXFCode 1000 und nicht mit 1005 gespeichert si ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Recover - alle Dateien in Verzeichnis
alfred neswadba am 25.07.2010 um 19:29 Uhr (0)
Hi,...hatte ein wenig Pause in der Waagrechten, sorry für Verzögerung. Nun jetzt weiß ich auch, dass es unhandlich ist, mit _RECOVER ein Document per SendCommand zu machen, geht auch nicht (nahezu kommentierterweise), daher zwei Umleitungen:a) erst ein Script erzeugen, das mit _RECOVER die Datei erzeugtb) einen EventHandler installieren, der das Ende des Doc-Opens überwacht und dann das AUDIT beginnt.Ein Auszug daraus (Dein Projekt bekommst Du per PM). VORSICHT ich hab da nix ausreichend getestet und es g ...
|
| 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 |
|
AutoCAD VBA : Probleme beim W-Block einfügen
alfred neswadba am 24.01.2011 um 08:19 Uhr (0)
Hi,ohne Deinen Code, ohne eine DWG eines WBLOCKS), ohne eine DWG (in die Du einfügst) beginnen wir hier nur mit Rätselraten.Es kann sein, dass die Inhalte des WBLOCK-DWGs um 1800 zu hoch liegen.Es kann sein, dass in der Zeichnung, wo Du einfügst, die SysVar ELEVATION auf 1800 steht.Es kann sein, dass Dein eingefügter Block über Ausrichtungsparameter verfügt.Es kann sein, dass Du im Code einen Fehler hast....Es kann so vieles sein. Mit Beispieldaten kommen wir aller Voraussicht nach schneller ans Ziel. Der ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Koordinaten in dyn. Feld
alfred neswadba am 12.12.2010 um 18:14 Uhr (0)
Hi, Dim tEnt as AcadEntity wozu dient das?Damit eine Deklaration erstellt wird, die Variable tEnt mal weiss, dass diese vom Typ AcadEntity ist == daher auch die Schleife durch die Elemente (Entities) im SelectionSet durchlaufen werden kann. Wie erstellt man aus den Koordinaten ein dyn. Feld?Beschreib bitte mal ein wenig genauer, was Du eigentlich willst, am besten eine Zeichnung, in der es so aussieht, wie Du es nach dem Durchlauf Deines Makros gerne hättest.Ich vermute, dass da Kommunikationsprobleme aufg ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : 3DFlächen extrudieren
PBPaul am 01.10.2006 um 08:13 Uhr (0)
Hallo,weil es beim letzten Mal so gut geklappt hat gleich noch ein Problem.1. ich wollte mit folgendem Code 3DFlächen zu Volumen umwandeln:Sub FlZuVol() Dim Ele As AcadEntity Dim Region As AcadRegion Dim Segment As Acad3DSolid Dim Blechdicke As Variant Blechdicke = 5 For Each Ele In ThisDrawing.ModelSpace If TypeName(Ele) = "IAcad3DFace" Then ActiveDocument.SendCommand "_Extrude" & vbCr & Ele & vbCr & Blechdicke & vbCr Region = ThisDrawing.ModelSpace.AddRegion(Ele) Set Segment = T ...
|
| In das Form Autocad VBA wechseln |
