|
AutoCAD VBA : einzeiliger text und alignment funktion
runkelruebe am 08.08.2009 um 11:34 Uhr (0)
Moin,wenn Du Deinen code jetzt nicht bis zur Unkenntlichkeit zusammengekürzt hast, wundert mich, dass überhaupt etwas passiert.Code:Sub TextTest()Dim textA As AcadTextDim AngleAngle = 0Dim InsertPointA(0 To 2) As DoubleInsertPointA(0) = 10#: InsertPointA(1) = 20#: InsertPointA(2) = 0#Set textA = ThisDrawing.ModelSpace.AddText("text", InsertPointA, 0.2) textA.Alignment = acAlignmentMiddleCenter textA.TextAlignmentPoint = InsertPointA textA.Rotation = AngleEnd SubAufgemerkt: Punktabfrage (Befehl: ID) des ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Verknüpfung AutoCAD mit Excel
c.schojer am 17.07.2008 um 22:57 Uhr (0)
Hallo Tommy also jedes Objekt in Autocad sei es ein Text, Attribut, Block Kreis Linie usw hat einen eindeutigen Handle .Mit dem Handle kanns du ganz schnell auf diese Objekte zugreifenDer Handle besteht aus nummern und zahlen wie eine IDzb 3E4Sub Ausgabe_Handledim EntFor each ent in thisdrawing.modelspacedebug.print ent.handlenext entend subDim Object,HandleSo bekommst du das Objekt (zb den Text den du dann weiter bearbeiten kannst so wie oben "ent")set object=Thisdrawing.objectohandle(Handle)Das objekt mi ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Grundsätzliche Entscheidung: VBA oder LISP?
Big Sven am 02.03.2006 um 14:32 Uhr (0)
Hallo Ontario!Ich stand neulich vor einer ganz ähnlichen Entscheidung. Nur war es bei mir ein wenig verdreht: Lisp seit vielen Jahren und VBA gleich null. Habe dann ein Projekt begonnen, welches Daten aus der Zeichnung in eine Excel-Liste schreibt und im nächsten Schritt wieder Daten aus der Liste in die Zeichnung überträgt. Ich hatte das schon mit Acad und Lisp realisiert, aber der Zeitunterschied für das Ein- bzw. Auslesen mit der Excellösung ist so erheblich, dass ich alles was mit irgendwelchen Listen ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 10.04.2013 um 00:41 Uhr (0)
Noch einen ergänzenden Hinweis:Ich weis ja nicht welche Art von Blöcken Du bearbeiten willst, aber ich finde den Abschnitt zum befüllen der Blöcke sehr gefährlich, da Du damit die Attribute praktisch neu definierst. Wenn also der Block in der Zeichnung nicht genau den Vorgaben entspricht werden manche Felder einfach überschrieben.Meist geht man hier so vor dass man das Array aus dem Tabellenblatt liest und dann das Blockattribut mit dem neuen Inhalt füllt.Beim Planstempel etwa so ähnlich:Select case attrib ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Aktuelles Projekt per VBA auslesen
koala2000 am 12.03.2010 um 13:11 Uhr (0)
Hallo. Zitat:Die Projektverwaltung von AutoCAD Architecture besteht im Wesentlichen aus dem Projekt Browser und dem Projektnavigator. Mit diesen Werkzeugen steht nicht nur versierten 3D Anwendern, sondern auch Ein- Um- und Aufsteigern eine einfache und intuitive Art, einzelne Dateien in einem Projekt zu vereinen und diverse Zusatzfunktionen zu nutzen. Quelle: AutodeskBeim anlegen eines neuen Projektes wird erst einmal ein Grundgerüst aus Vorlagen und Zeichnungen zur Verfügung gestellt. In den Projektdetail ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad aus Excel heraus ansprechen
Murkel am 25.02.2008 um 12:48 Uhr (0)
Hallo Wilfried,danke für Deinen Tipp! Ich hatte am Wochenende mein ganz persönliches Erfolgserlebnis, das Programm läuft jetzt auch ohne gesetzte Verweise. Ich werde trotzdem Deine Variante probieren, vielleicht läuft das Proggi ja dann etwas schneller. Eine kleine Sache ärgert mich aber noch: Sobald ich mitSet acApp = CreateObject("Autocad.Application")eine neue AutoCAD-Instanz erzeuge, wird AutoCAD mit Zeichnung1.dwg gestartet. Diese Zeichnung muß dann erst geschlossen werden und dann wird mit "acApp.Doc ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Atribute Export
alfred neswadba am 19.06.2009 um 13:28 Uhr (0)
Hi, Zitat:Ich habe jetzt über einen Plot eine .dwf Datei erstellt.Gibt es da eine Möglichkeit das VBA Programm mit zu exportieren, so dass die MSGBox (oder was auch immer) auch erscheint?...versuchst Du damit zu fragen, ob das VBA dann im DWF eingebettet sein soll und wenn das DWF dann im DesignReview geöffnet wird, das DesignReview automatisch weiss, dass mit diesem:Private Sub AcadDocument_BeginRightClick(ByVal PickPoint As Variant)automatisch aus einem AcadDocument ein DesignReview-Document geworden ist ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : PDF erstellen per VBA-Makro
Amatronik am 16.05.2011 um 17:15 Uhr (0)
Hallo,vielleicht bin ich unter diesem Thema mit meinen grundlegenden Fragen nicht ganz an der richtigen Stelle,aber vielleicht könnte der eine oder andere mir doch eine Tipp geben.Die letzten zwei Tage habe ich mich intensiv mit der PDF-Erstellung rumgeplagt, ja, wirklich ;-).Ich habe vor, unter VBA alles noch zu optimieren und möchte gerne Eure Meinungen hören:1. Einstellung: Plot-Transparenz (rechts bei den Plotoptionen) Dies ist zwar eine Einstellungsoption, den entsprechenden VBA-Befehl kann ich aber n ...
|
| 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 : Excel Workbook benennen oder identifizieren
startrek am 03.12.2006 um 21:49 Uhr (0)
Du benötigst eigentlich gar keinen Activate-Käse & Consorten,da du das workbook als auch das Sheet Objekt (Collection) über den Index/Namen direkt ansprechen kannst.Bei Workbooks.Add ist dann das neue WB eh das Active-WB;-)Ich würde eher bei Workbooks.Add erst mal den Namen abfragen oder das neue Kind exakt benimen.Irgendwie komm ich da noch nicht ganz klar, was das werden soll.Weiters, ein SaveAs ist recht blöde manchmal, einfach deswegen, da ein SaveAs die MutterDatei schliesst und Feierabend;-)Was spric ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Füllen eines Kreises aus Excel
Stelli1 am 14.03.2007 um 11:31 Uhr (0)
Hallo,hast du doch den Weg ins VBA Forum gefunden Probier es doch mal so:Code:Sub donut() Dim Kreis(0) As AcadCircle Dim InnenKreis(0) As AcadCircle Dim Hatch As AcadHatch Dim InsPkt(0 To 2) As Double Dim Radius As Double InsPkt(0) = 5: InsPkt(1) = 5: InsPkt(2) = 0: Radius = 5 Set Kreis(0) = ThisDrawing.ModelSpace.AddCircle(InsPkt, Radius) Kreis(0).Update InsPkt(0) = 5: InsPkt(1) = 5: InsPkt(2) = 0: Radius = 3 Set InnenKreis(0) = ThisDrawing.ModelSpace.AddCircle(InsP ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Systemvariable die read-only sind ändern
dj_assp am 09.01.2008 um 11:02 Uhr (0)
Hallo ThomasDas ist nur eine ist nur eine von vier VariablenIch habe folgendes gemacht ich bin hergegangen und habe den Systemvarablen-Editor von den Express Tools gestartet und habe sie mir in eine Text-Datei gespeichert.dann habe ich den Befehl "CONVERTPSTYLES" aus geführt und die Variabeln wieder exportiert.und die zwei Textfiles habe ich dann im Excel verglichenes sind dann folgende Varablen geändert worden:; read-only - CPLOTSTYLE "ByColor"; read-only - DATE 2454475.3608; read-only - DEFLPLSTYLE "ByCo ...
|
| In das Form AutoCAD VBA wechseln |
