|
AutoCAD VBA : Blocktausch und Datentransfer
steffen.katzschke am 30.09.2008 um 17:06 Uhr (0)
Windows 2000 +SP4, ACAD 2000Ich mußte mal wieder das alte CAD reaktivieren, da bei LT-Versionen die VBA-Schnittstelle fehlt.Aus einem CAE-System wurden Pläne exportiert. Diese dwg-Zeichnungen haben Zeichnungsrahmen. Die Zeichnungsrahmen sind als Blöcke angelegt. Diese enthalten Attribute mit Daten, die per Dialog editierbar sind.Folgende Punkte sind zu erledigen - Erkennen des Rahmens, - Auslesen der Attribute, - externe Speicherung der Daten, - Löschen des Rahmens, - Einsetzen eines neuen Rahmens (Block), ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Arbeiten mit Dictionaries
GustavZwo am 08.01.2009 um 23:26 Uhr (0)
Guten Tag,beim Verarbeiten der Tips blieb ich wieder hängen.Was ich will: ich will in einer Zeichnung eine Reihe "Textmarken" in Form eines Punktes unterbringen.Die Textmarken sollen in einem Dictionary abgespeichert werden, Key=fortlaufende Nummer, Wert ist ein Punkt,genauer gesagt, drei Koordinaten x,y,z, zusammengefaßt in einem Array.Die Punkte will ich später der Reihe nach aufrufen und als Referenzpunkt z.B. eines Blockes nutzen.1 Public Sub speicherePt()2 Dim oDict As AcadDictionary3 Dim oXRec As A ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Koord auslesen und sortieren
ThebigH am 04.03.2010 um 17:50 Uhr (0)
Hallo liebe Community!!Das ist mein erster Beitrag (hoffentlich nicht der letzte) und ich hab gleich ein paar schwere Probleme.Ich soll aus einer CAD Zeichnung alle Koordinaten der vorhandenen Punkte auslesen, mit Bubblesort sortierenund hübsch formatiert in eine txt ausgeben.Einlesen, formatieren und ausgeben funktioniert schon ganz gut, aber der Bubblesort sortiert einfach nicht.Bin für jede Hilfe dankbar.Hier mein Code:Sub Bam()Dim obj As AcadEntityDim Dateiname As StringDim PktKoord As VariantDim Absta ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Objektzuweisung über Handle funzt nicht
mapcar am 23.12.2004 um 08:30 Uhr (0)
Ich wollte nicht nur eine Dwg uploaden sondern eine ZIP mit txt-Datei und dwg-Datei. Geht das auch so mit Handle.zip.txt? Ja, das geht mit jeder Datei. Es steht aber nicht in der Hilfe, weil das etwas zweischneidig ist: Einerseits braucht man das, um eben Zeichnungen austauschen zu können, andererseits werden hier auch Berge von irgendwelchen Powerpoint-Jokes hochgeladen, was eigentlich nicht im Sinne des Erfinders ist. Mit dem Lesen von R14 hast du natürlich Recht;-) Das Schreiben geht glaube ich nich ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Block aus Ordner einfügen
Dirk.B am 26.03.2007 um 15:49 Uhr (0)
Hallo Zusammen!Nochmal zum Thema Block aus einem Verzeichnis/Ordner in die aktuelle Zeichnung über die Mausposition einfügen.Geht dieses wirklich nicht über die GetPoint Funktion?Über das LispTool "blockin" funktioniert es auch nicht.Hier mal meine Versuche:Code:Private Sub CommandButton9_Click()Dim NewInstBlock As AcadBlockDim NewInstBlockDef As AcadBlockReferenceDim dwgpath As StringDim returnPnt As Variantdwgpath = "c:Temp 11_188x35_BA128_S.dwg"returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Block.delete funktioniert nicht immer
alfred neswadba am 27.01.2010 um 14:16 Uhr (0)
Hi Christian,Du hast an den Elementen entweder XRecords und/oder auch EEDs dran hängen, die auf die Blockreferenz verweisen, zumindest scheint es so. Auf die schnelle hab ich die Referenzierung nicht gefunden.Ich hab in Deiner DWG alles rausgelöscht, ausser ein LoftedSurface (Handle AE13), es ist nichts anders mehr in der DWG, nicht im Modellbereich, nicht in Layouts. == Durchlauf hängt mit Fehler (wenn Du On Error Resume Next rausnimmst).Löscht Du aber alle Elemente auf dem Layer AFP_Sec_Line, dann funkti ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
BloodyMess am 02.11.2004 um 15:14 Uhr (0)
Also wenn ich einen Haltepunkt an der If-Stelle setze, dann durchläuft er beim Einzelschrittablauf trotzdem die Schleife. Was bedeutet das denn nun genau? Das bedeutet, das er Blockreferenzen findet, aber es keine Attribute an den Blöcken gibt, die würde er ja sonst in die Textdatei schreiben. Und wenn ich einen Block doppelt anklicke, dann öffnet er mir das Fenster Referenz bearbeiten und zeigt mir links den Referenznamen an. Dieses Fenster kommt immer, wenn es keine Attribute gibt. Im unteren Ber ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : sld erstellen und in UserForm einfügen
idraH am 18.02.2004 um 08:31 Uhr (0)
also ich kann mich nur der Meinung von harryk anschliessen, diese zusätzliche OCX Datei ist mir auch zu unhandlich, da ich diese auf jeden Rechner registrieren muss, auf dem die Applikation genutzt werden soll und würde darum auch vorschlagen WMF-Dateien zu erzeugen, diese kann man ohne Probleme über das PictureSteuerelement in ein Formular einfügen. Der WMF-Export ist sehr einfach, man sollte allerdings einiges beachten: die Systemvariable WMFBKGND WMFBKGND 0 = Hintergrundfarbe transparent WMFBKGND 1 = Hi ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : InsertBlock langsam - Alternativen ?
alfred neswadba am 20.11.2008 um 13:51 Uhr (0)
Hi Klaus,für solche Fälle stehe ich grundsätzlich auf dotNET, da fahren wir in einer Applikation (Raumplanung) je Darstellung generieren (ein Großteil davon Blöcke) samt Berechnungsfunktionen wie Dissolve, ... in der Regel 100.000 Objekte und das in 2min.Mit VBA hast Du spätestens mit 64bit-Version von AutoCAD einen zusätzlichen Verlangsamungsfaktor von 10, damit fällt für mich VBA (ausser für schnelle, ganz kleine, nur wenige male verwendete Makros) raus.Ich nehme auch an, dass Du wohl schon bei den Blo ...
|
| In das Form AutoCAD VBA wechseln |
 |
AutoCAD VBA : [VBA] Acad Mechanical 2018 nach Autocad 2013 speichern nicht möglich?
IVDH808 am 21.08.2018 um 12:37 Uhr (15)
Hi,habe folgende Aufgabenstellung. ich muss für einen Kunden eine gesamte Planung von unserem nativen Autocad Mechanical 2018 nach Autocad 2013 (ohne Mechanical) runterspeichern. wenn ich jetzt manuell "speichern unter" ausführe und dann "autocad 2013" dateiformat auswähle funktioniert das wunderbar. jedoch nicht wenn ich das ganze versuche mit VBA zu realisieren. sobald nämlich autocad speichern will erkennt er das verschiedene mechanical objekte auf der Zeichnung vorhanden sind (z.b. am_note) und bringt ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : ACAD-Befehl aus Excel starten
Alfonso am 14.02.2006 um 20:23 Uhr (0)
Hallo Nancy,danke für die schnelle Antwort. Es funktioniert gut. Ist es auch noch möglich das eine Meldung in Excel kommt, wenn AutoCAD oder eine Zeichnung nich geöffnet ist?Hier der VBA-Code:Sub Maßstabholen() Dim acApp As Object, x Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName Cells(1, 1) = x AppActivate "AutoCAD 2000" acApp.activedocument.sendcommand "T2" & Chr(13) acApp.activedocument.sendcommand "vbastmt" & Chr(13) & "msgbox now" & Chr(13) AppActivate "Micro ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockattribute in eine Textdatei schreiben
alfred neswadba am 30.09.2009 um 12:46 Uhr (0)
Hi, Bei dem Befehl DATENEXTRAKT kann ich zwar Textdateien erzeugen, erkenne aber nicht mehr die einzelnen Datensätze.Die mit Datenextrakt erzeugte Datei wird Dir je Schriftfeld eine ASCII-Zeile ausgeben. Hast Du mehrere Schriftfelder in Deiner Zeichnung, dann bekommst Du eben mehrere Zeilen in Deiner ASCII-Datei. Den Befehl müste ich auch in ein Makro einbinden, es sollten aber keine weiteren Abfragen kommenKannst Du auch mit DATENEXTRAKT, musst nur einmal eine Exportdefinitionsdatei anlegen (DXE-Datei) ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer umbenennen (VBA)
cadnetz am 19.02.2009 um 12:49 Uhr (0)
Ich habe ca. 600 Zeichnungen, ähnlich wie in der test.dwg dargestellt, nur größer. Alle koordinatenmäßig so um 0,0 (x/y)gezeichnet. Alle zeichnungen haben dieselbe Layerstruktur, jeweils ca. 20 Layer. Ziel: Alle Zeichnungen in eine zusammenführen und dadurch einen Zusammenhängenden Leitungsplan erstellen. Quasi lokal georeferenzieren. Eine Übersicht erstellen. Alle Elemente werden jeweils einer Leitung zugeordnet. Dies geschieht durch Zuordnung zum Layer "Dateiname-LayerX). Danach Trennung der Layer nach d ...
|
| In das Form AutoCAD VBA wechseln |
