|
Autocad VBA : MPolygon abfragen
Carsten1210 am 16.07.2006 um 16:46 Uhr (0)
Hallo Harald,An die Coordinaten des Polygons (oder Polylinie) kommst du mit dem Code sehr wohl ran. Probier mal das Schrittweise debuggen und Schau dann in das Lokalfenster, dort findest du unter Object/Coordinates eine Liste mit Coordinaten der Stützpunkte (Immer X- und Y-Werte abwechselnd).An das Handle des Objects kommst du über Handle = Object.Handle ran.An die ID des Objects kommst du über ObjectID = Object.objectID ran (Dies wird bei jedem Öffnen der Zeichnung neu vergeben).An Attribute in einem Bloc ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Automatischer Programmstart
Murkel am 14.02.2008 um 12:16 Uhr (0)
Hallo Leute,ich hab mir gestern mal die Tipps genauer angeschaut. Ich hatte in meinem jugendlichen Leichtsinn gehofft, das es eine Funktion gibt, die im Hintergrund nach dem Speicherort der Exceldatei sucht, diesem dann in eine Variable schreibt und ich mit dieser Variable den Excelaufruf starten kann. Der Anwender sollte also keine Dialogboxen oder ähnliches sehen. Hat jemand Ahnung wie diese OLE-Verknüpfungen im ACAD gelöst sind?Vielleicht muß ich doch die ganze Sache von der Excelseite aus betrachten un ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Datei schließen & öffnen ; crosspost.Lisp
cadffm am 15.08.2003 um 09:22 Uhr (0)
Isch hätte gern..... ein Zeichnung schließen (ohne speichern) und erneut öffnen Button ! - Jetzt wo endlich das Lt-feature mit dem Pulldown für Zurück in die Vollversion übernommen wurde ist es zwar eigentlich nicht mehr von Nöten, aber dennoch hätte ich sowas gern. Da ich in Lisp nur innerhalb einer Datei agieren kann wird das wohl damit nicht funktionieren (lasse mich aber liebend gern belehren). In VBa dürfte das aber doch möglich sein ... aktuelle Datei... 1. merken 2. schließen (ohne speichern) ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Problem mit Auswahlsatz
WolfgangSCH am 08.01.2004 um 12:20 Uhr (0)
Hallo, ich benötige für die weitere Bearbeitung einen Auswahlsatz mit nur einem Block, welcher aus der aktuellen Zeichnung zu wählen ist. Mit untem stehenden Code kann der Anwender zwar nur Blöcke auswählen, alle anderen Objekte werden herausgefiltert, jedoch können mehrere Blöcke ausgewählt werden, was ich nicht möchte. Wie muß der Code modifiziert werden, damit nur ein Block ausgewählt werden kann? Kann ich auch einen beliebigen Text in der Befehlszeile von AutoCAD ausgeben lassen (z.B. Bitte wählen Sie ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Einige grundsätzliche Fragen
Ralf Rehm am 30.12.2003 um 13:39 Uhr (0)
Also, vielleicht bin ich ja mit meiner Antwort viel zu spät: Der direkte EPS-Export ist das weiter oben beschriebene Drucken der Zeichnung. Nur wählst Du dafür keinen physikalischen Plotter aus, sondern im Plotmenü einen PostScript-Plotter (heißt auch so, mußt Du nur eventl. mit dem Plot-Manager neu einrichten). Mit diesem Plotter druckst Du dann in eine Datei - und schon hast Du eine EPS-Datei. Auf dem gleichen Weg kannst Du z.B. auch eine JPG-Datei erstellen (dann mit dem AutoCAD-JPEG-Plotter). Guten Rut ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Block austauschen
zech am 10.03.2016 um 12:38 Uhr (1)
Hallo,ich möchte gern einen vorhandenen Block in einer Zeichnung mit VBA austauschen, mit "-einfüge" .....Die grafische Ausprägung soll sich ändern.In Lisp ist das kein Problem, nach der Frage "neu definieren" die mit "J" beantwortet wird folgt einfach ein ^C.In VBA Autocad 2016 geht das nicht, jedenfalls bei mir nicht. Habe schon viel probiert, aberes klappt einfach nicht.ThisDrawing.SendCommand "-einfüge" & vbCr & "altblock=neublock" & vbCr & "J" & vbCr & ......... (hier fehlt etwas)Ich denke mal in VBA ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
gerhard123 am 21.01.2009 um 13:49 Uhr (0)
Hallo Alfred,ein guter Ansatz, aber ich verwende eine ähnlichen Batch auch für das Plotten von Zeichnungen und da habe ich das selbe Problem wenn eine Zeichnung kaputt ist.Anbei ein Codeauszug aber aus eine DB ist aber egal, Public Sub machBilder() Dim SQL As String Dim z As Integer Dim t1, t2 As String SQL = ("select Dokumentennummer, dateiname from DB where Dokumentennummer = 11111 order by Dokumentennummer;") Set rs = CreateObject("adodb.recordset") Set con = CreateObject("adodb.connection") con.Open " ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : In Excel vorhandene Blöcke auflisten
Bernhard F. am 27.04.2009 um 11:44 Uhr (0)
Hallo Wilfried,ich will nur wissen welche Blöcke sich in der Zeichnung befinden. (Auflistung der Blocknamen).Code: Dim acad As AcadApplication Dim fType(0 To 1) As Integer, fData(0 To 1) Dim adBlockSS As AcadSelectionSet Dim adBlock As AcadBlockReference Dim adBlockAttributes As Variant Dim adBlockList As String Dim i As Integer Set adBlockSS = acad.ActiveDocument.SelectionSets("adBlockSS")hier ist der Fehler If Err Then Set adBlockSS = acad.ActiveDocument.SelectionSets.Add("adBlockSS") adBlockSS.Clear fTy ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Absoluter Nullpunkt
The VIP am 16.12.2003 um 14:34 Uhr (0)
Hallo. Wenn ich bisher Zeichnungen per Makro erstellt habe (weil sich variable Maße im Teil befinden) dann wurden die immer auf dem absoluten Nullpunkt gezeichnet: Code: Public Function Point3D(X As Double, Y As Double, Optional Z As Double = 0) As Variant Dim retVal(0 To 2) As Double retVal(0) = X retVal(1) = Y retVal(2) = Z Point3D = retVal End Function Wenn ich nun neben dieses Teil (welches auf dem absoluten Nullpunkt sitzt) ein weiteres Teil per Makro zeichnen lass ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Punktwolke weiter bearbeiten
MOE II am 24.03.2013 um 15:00 Uhr (0)
kann ich eine LISP erstellen, wo ich in der Zeichnung auf eine Zahl klicke und autocad zeichnet mir eine Linie mit der Länge des angeklickten Wertes? Ich habe eine 2D Punktwolke (Punkt ,Code und Höhenangabe) in der Draufsicht. Jetzt möchte ich diese in eine Ansicht Projektieren, Habe mir hierfür eine Linie (Meine HöHE NN) erstellt. Jetzt wähle ich einen Punkt, mit einer Funktion zieht autocad mir eine linie bis zu meiner Nullinie, - (ab hier weiss ich nicht mehr weiter) , Jetzt möchte ich die Höhenangabe ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : zwei CAD-Zeichnungen an einem bestimmten Einfügepunkt zusammenfügen?
kiltswitch am 28.10.2004 um 08:29 Uhr (0)
Nachdem ich gerade meine Frage nach einem Ebook oder Tutorial hier reingestellt habe, möchte ich auch gleich das erste Problem formulieren, welches ich lösen muß: es gibt einen Bauteilkatalog, in dem jedes einzelne Bauteil in einer separaten dwg-Datei abgelegt ist. Meine Aufgabe besteht darin, in einer neuen dwg-Zeichnung diese Einzelkomponenten zusammen zu fügen. Und zwar soll die Verbindung der Teile an ganz bestimmten Einfügepunkten erfolgen. Nun die beiden wichtigsten Fragen: Wie kann ich mit VBA in ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : IntersectPointWithSurface
Soldnerkugel am 02.06.2010 um 16:50 Uhr (0)
dass ich auf das erste DGM zugreife, ist gewollt. (ich habe auch nur eines in der Zeichnung)die Variable varStartPt ist mit UTM-Koordinaten belegt, so wie z.B. varStartPt(0) = 403324.222varStartPt(1) = 5572164.233varStartPt(2) = 308.222(0) und (1) sind UTM-Koordinaten, (2) ist die Geländehöhe + eine Aufbaute(ich bin mir bewusst, dass ich da x/y vertauscht habe...spielt aber keine Rolle)varDir ist ein Vektor, aktuell gefüllt mit etwavarDir(0) = 0varDir(1) = 1varDir(2) = 0.29(der Vektor soll exakt in Richtun ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Listview - Vom ausgew. Listview-element zum dazugehörigen Block
Stelli1 am 19.02.2009 um 16:36 Uhr (0)
Hallo Volker,wenn ein Formular gebunden ist (modal=1) kannst du es mit me.hide ausblenden und hast so wieder Zugriff auf AutoCAD. Danach kannst du es wieder mit FOrm1.show anzeigen. Der Nachteil ist, dass du eventuelle Änderungen (Position, Eingaben etc) vor dem ausblenden auf "zwischenspeichern" musst (InI Datei oder als globale Variable) und nach dem erneuten Laden diese wieder herstellen musst.Im Listview kannst du die automatische Bearbeitung des Nodes abstellen (meine es wäre AutoLabel=false). Die wei ...
|
| In das Form AutoCAD VBA wechseln |
