|
Autocad VBA : Text in Autocad
JoergAD am 07.03.2007 um 15:45 Uhr (0)
Volltreffer CADmium!!!Das wars!So ein unscheinbarer kleiner Strich.Vielen Dank!Mensch wer denkt denn auch daran, dass der Textbefehl neuderdings zu den Befehlen mit Dialogfenstern gehört, wo doch gar kein richtiges Dialogfenster vorhanden ist.Ich meine, wer denkt schon daran, wenn man nicht gerade CADmium heisst. Danke nochmal. Jörg AD
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 09.03.2007 um 10:59 Uhr (0)
Hallo Dirk,irgendwie kommt mir dein Code bekannt vor. Keine Ahnung wo das Problem liegt.Da du ja immer so grosszügig Us verteilst hier mal ein Ansatz der alle Dateien aus einem Verzeichnis liest und alle Blöcke jeder einzelnen Zeichnung nacheinander in eine leere Zeichnung kopiert und anzeigt. Als Einfügepunkt Markierung ist ein Kreis mit drin.Das kann dann vielleicht auch jemand brauchen der aus einer beliebigen Zeichnung einen Block, ein Layout oder so was in die aktuelle Zeichnung einfügen möchte.Ich g ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 09.03.2007 um 15:37 Uhr (0)
Hallo Dirk,nimm doch mal die letzte Variante (die ganze SUB) von mir und kopiere diese in ein Modul. Unter Extras Verweise wählst du noch den Verweis Autocad/ObjectDBX Common 1xxx aus. Ändere den Pfad "D:Daten_PZ" in deinen gewünschten Pfad. Dann erstellst du mit Datei/Neu eine leere Zeichnung. Schalte mal den Vollbildmodus des Dokumentes aus und schieb die Größe des Fensters mal ein wenig kleiner. Dann startest du mal die Funktion Blocks2wmf und du siehst alle deine Blöcke aus allen Dateien des gewählten ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Verzögerte Ausführung DOS-Shell
Stelli1 am 09.03.2007 um 17:19 Uhr (0)
Hallo Willi,so einen PC mit verzögerter Ausführung hatte ich früher auch mal. Ich würde die Datei direkt aus dem Programm schreiben wie du in deinem Beispiel ja schon geschrieben hast.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht
Dirk.B am 13.03.2007 um 20:40 Uhr (0)
Hi Carsten!Hi Wilfried!Ich glaube, ich habe mich festgefahren.Wenn ich die einzelnen Programme von Dir Wilfried durchlaufen lasse, funktionieren diese soweit prima.Das mit den Zeichnungen öffnen, Kreis einfügen etc. funktioniert, bis auf das, daß das Objekt in der Zeichnung kein Block ist und somit der InsPkt nicht mit dem InsPkt des Kreises übereinstimmt.Eigentlich müßte ich aber doch folgendes erreichen:Eine neue Zeichnung öffnen.In diese Zeichnung sollen nun die Dateien/Zeichnungen aus einem Verzeichnis ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Texte ausrichten
geodata am 13.03.2007 um 16:28 Uhr (0)
Habe mal die relevanten Zeilen herausgezogen, da der gesamte Code zu umfangreich ist. Die Werte ziehe ich aus einer AccessDB, von der aus ich auf ACAD zugreife.Private Sub TextDrehen()Dim Punkt(0 To 2) As Double Microsoft DAO 3.51 .... unter Verweisen einbinden !!!Dim rs As DAO.Recordset AutoCAD Verweis muss angegeben sein !!Dim AcadPunkt As AcadPointDim AcadTxt As AcadTextDim LineObj As AcadLineDim pktH(0 To 2) As DoubleDim ya As Double, ye As Double, xa As Double, xe As Double, hl As Double, rw As Double ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 14.03.2007 um 11:57 Uhr (0)
Zitat:Original erstellt von Dirk.B:Das mit den Zeichnungen öffnen, Kreis einfügen etc. funktioniert, bis auf das, daß das Objekt in der Zeichnung kein Block ist und somit der InsPkt nicht mit dem InsPkt des Kreises übereinstimmt.Wenn die Zeichnung eingefügt (oder XREF) wird ist sie ein Block.Vielleicht hast du die Blöcke falsch erzeugt. Mit dem WBLOCK Befehl kannst du ja vorhandene Blöcke oder eine Objektauswahl in eine eigene Datei schreiben. Bei einer Auswahl der Objekte kann leicht der Einfügepunkt ver ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Füllen eines Kreises aus Excel
Sagu am 14.03.2007 um 10:16 Uhr (0)
Hallo Forum, zur Zeit sitze ich an einem Makro, welches ich in Excel 2003 ausführe. Es sollen die Daten für Kreise an Autocad 2004 übergeben gezeichnet und mit Solid gefüllt werden. Das Öffnen der Zeichnung und das Erstellen der Kreise klappt schon super, aber das Füllen der Kreise schafft mich. Nun bin ich in der VBA Sprache Neuling und probiere mehr aus als dass ich gezielt vorgehe. Wollte mir entsprechende Literatur besorgen. Das gestaltet sich etwas schwierig, da in den großen Buchhandlungen nur noch e ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Texte ausrichten
Stelli1 am 13.03.2007 um 15:58 Uhr (0)
Hallo,wenn du von Richtungswinkel schreibst meinst du 400gon rechtsdrehend und im Norden 0 ?AutoCAD will die Winkelangabe in Rad linksdrehend und 0 nach Rechts.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Prüfen ob Excel bereits gestartet ist !
dobatec am 14.03.2007 um 14:09 Uhr (0)
Hallo geschätztes Forum,heute hätt ich mal ne allgemeine Frage die nur "naja" mit AutoCad zu tun hat. Für meine Applis die sich mit Excel austauschen möchte ich eine Function einbauen die prüft ob Excel bereits gestartet ist. Mittels API (FindWindow) ist das ja nur ne halbe Sache wenn Excel ohne .visible ausgeführt wird. Weiß jemand ob ich dies über das Application Object abrufen kann so wie in .Net per App.PrevInstance ? Bin Euch dankbar für Tipps und Tricksdobagruß
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Stelli1 am 15.03.2007 um 13:48 Uhr (0)
Hallo,es gibt da wohl noch ein paar Punkte ...Ein selectionset (mit und ohne s) mit gleichen Namen kann nur einmal pro Zeichnung existieren. Du musst prüfen ob eines da ist und wenn nicht eins anlegen.Code:on error resume nextset sset = thisdrawing.selectionsets("Mysel")if err.number then set sset = thisdrawing.selectionsets.add("Mysel")end ifon error goto 0Wenn du per Sendcommand ein Element erzeugts kannst du dir dieses in der passenden Ereignisroutine in AutoCAD abfangen.Code: Thisdrawing CodePrivate S ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : allen Blocken in einer Zeichnung Linieweight zuweisen
Stelli1 am 15.03.2007 um 14:15 Uhr (0)
Dann brauchst du doch nur mit der AutoCAD Schnellauswahl alle Blöcke selektieren und im Eigenschaftsfenster ändern.Wenn in einer Blockdefinition die Linienstärke fix angegeben wurde musst du sie auch in der Definition ändern. Dann ändern sich logischerweise auch die Abbilder (Einfügungen)Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 16.03.2007 um 10:13 Uhr (0)
Guten Morgen Stelli1,die Tips die Du mir gegeben hast laufen in AutoCAD super. Das Problem entsteht, wenn ich die Sachen in mein Excel Makro übernehme. Mein Code sieht wie folgt aus:Sub X() Dim i As Integer Dim kx As Double Dim ky As Double Dim r As Double Dim ThisDrawing As AcadDocument Dim centerPoint(0 To 2) As Double Dim radius As Double Dim hatchObj As AcadHatch Dim kreis(0 To 0) As AcadEntity Dim patternName As String Dim PatternType As Long Dim bAssociativity As Boolean Daten der ...
|
| In das Form Autocad VBA wechseln |
