|
Autocad VBA : Alle Layouts nach blöcken durchsuchen
Brischke am 19.05.2004 um 14:00 Uhr (0)
Hallo, erstell dir einen Auswahlsatz über alle Elemente der Zeichnung, die ein Block bestimmten Namens sind. Da werden alle Elemente, egal in welchem Layout, gefunden. Falls es für dich wichtig ist, das Layout zu wissen oder die Blöcke nach Layout sortiert auszugeben, dann kannst du das ja dann aus den Elementeigenschaften ermitteln und entsprechend sortieren. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat! T ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Batchprogramm
alfred neswadba am 22.01.2009 um 11:55 Uhr (0)
Hi,Workaround, das mir jetzt einfällt:mach den Schritt mit DXF-Einfügen in neue leere Zeichnung, wenn Du dann eine Exception bekommst (und diese sollte dann nicht den Dialog von AutoCAD unterbrechen), dann weisst Du, dass das DXF nciht zu öffnen ist.Funktioniert es doch, dann kannst Du ja das DXF mit Documents.Open öffnen, dann weisst Du ja schon dass es funkt.Anderes Workaround wäre, dass Du versucht, mit Windows-APIs Fenster zu überwachen und dann mit WindowsMessages (so glaube ich, dass der Name ist, st ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Bemaßung / Layer
Dirk.B am 27.11.2004 um 14:49 Uhr (0)
Hallo Zusammen! Ich habe in meiner Template Zeichnung festgelegte Bemaßungsstile (BS) und entsprechende Layer (LA). (BS) BEM1_1 / (LA) BEM1_1 (BS) BEM1_10 / (LA) BEM1_10 usw. Ich möchte mir unter VBA ein Tool erstellen, welches dann über ^C^C-vbarun BEM.dvb!... aus den normalen Werkzeugmakros wie: _dimlinear _dimaligned _dimradius etc. vor dem jeweiligen Bemaßungsbefehl, im Hintergrund erkennt, welcher Bemaßungsstil gerade aktuel geschaltet ist und daraufhin den entsprechenden Layer aktuel schaltet. Könnte ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : DWG in DGN Batchkonvertierung???
SKYSURFER am 01.07.2010 um 09:57 Uhr (0)
Hallo,sorry, dass ich mich erst jetzt melde. Vielen vielen Dank für das Macro.Leider hat es bei mir nicht funktioniert. Aber der "Fehler" muss irgendwo bei bei:Code:If App.ActiveDocument.FullName = FileName Thenbzw den folgenden Zeilen sein, denn die Zeichnung wird im ACAD geladen.Nachdem sich aber die Aufgabenstellung geändert hat, wird das wohl nichts mit dem Macro. Denn ich habe noch viele Referez-Dateien in dem gleichen Verzeichnis. Diese werden aber schon automatisch als DGN erzeugt. Somit müsste man ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Speicherpfad eines bmp s
Heiko76 am 14.10.2004 um 07:16 Uhr (0)
Hi zusammen, ich versuche den Speicherpfad eines bmp s in einer Zeichnung auszulesen. Ich hatte das schonmal geschafft nur leider funktioniert die Routine nicht mehr so wie es war. Kann mir hier vielleicht einer helfen??? Public Sub TestImageList() Dim varTest As Variant Dim i As Integer Dim test As String Application.Preferences.Files.SetProjectFilePath "Projekt2", "C:" test = Application.Preferences.Files.GetProjectFilePath("Projekt2") If IsArray(varTest) Then For i = LBound(varTest) To U ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Minimum finden
Willynchen_neu am 24.11.2005 um 11:31 Uhr (0)
Hallöchen,bräuchte mal wieder einen Denkanstoß Also ich hab mir eine Funktion geschrieben, welche mir an jeden Punkt einer Polylinie eine senkrechte Linie nach unten zeichnet.Diese Linien haben im Moment alle die gleiche Länge in y-Richtung. Ich brauche aber alle Endpunkte der einzelnen Linien auf dem gleichen y-Wert, aber ohne feste Koordinaten zuweisen zu müssen. Also ich wollt einfach den niedrigsten aller Endpunkte in der Zeichnung finden und dann alle Linien auf das gleiche Niveau ziehen. Is das irge ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : AcadLWPolyline.ObjectID
Soldnerkugel am 15.12.2011 um 10:29 Uhr (0)
werte Forumsgemeinde, mich würde da mal wieder was interessieren:ich erstelle mir in einer Zeichnung diverse LW-Polylinien mit VBAIm weiteren Verlauf möchte ich aus diesen Polylinien (in Civil3D) dann Achsen erstellen.Hierzu muss ich die ACADLWPolylinien "ansprechen"...das müsste ja über die .ObjectID möglich sein.Kann ich denn diese .ObjectID selber bestimmen? sprich: ich erstelle die LWPolyline und weise der .ObjectID dann einen Namen zu (z.B. "Achse1"), oder ist diese ObjectID ein Wert der von AutoCAD s ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : access via makro öffnen
Dexta am 07.03.2005 um 09:19 Uhr (0)
Hi liebe AutoCAD-Community, Ich habe da eine kleine Frage, wie kann ich in meiner AutoCAD-Zeichnung einen Button kreieren, der ein Makro aufruft, der eine bestimmte Access-Datei öffnet? Konkret: -Wie kann ich auf meinem Auto-CAD Bildschirm einen Button erstellen, der eine Access Datei öffnet? Zusatz: Wie kann ich in dieser sich öffnenden Access-Datei meine in AutoCAD mit Objekten verbundenen Datensätze anzeigen lassen. Gibt es dafür eine SQL-Abfrage (select * from Artikel where ???) BIS DANN!! :-)
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Doppelklick
BerndE am 10.11.2005 um 17:12 Uhr (0)
Ja...ich danke euch beiden,habe es jetzt im Dokumentenmodul eingefügt und es reagiert wie gewünscht.nur wie kann ich jetzt das formualr aufrufen?einfach mit Load frmTuer frmTuer.Showfunktioniert es nicht. da kommt der laufzeitfehler 424 "Objekt erforderlich"Außerdem: wenn ich den code im dokumentenmodul abspeicher, muss ich das dann bei jeder zeichung tun die ich öffne? das projekt kann ich ja allgemein mit autcad laden...aber wie bekomme ich deinen code dann in die zeichnung?eines noch...ents ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppen bilden und löschen
alfred neswadba am 26.03.2009 um 11:27 Uhr (0)
Hi Stefan,bevor wir jetzt das mit den Gruppen programmtechnisch machen, versuchen wir mal, das zeichentechnische zu durchforsten.Kannst Du dazu ev. eine Zeichnung mit ein paar Förderstreckenteilen und dazugehörige Beschriftungen als Beispiel uploaden?Ich hätte gerne die Zeichnungsstruktur festgehalten bevor programmtechnisch 5 mal geändert wird. Hintergrund dazu ist, dass ich i.d.R. vermeide, ein Rad zum zweiten mal zu erfinden, soll heissen, wenn AutoCAD-Standardfunktionalität schon mal vorhanden ist, dan ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Dateiauswahl aus Verzeichnis
Stelli1 am 30.01.2006 um 11:01 Uhr (0)
Halo Ines,in dem Artikel war folgender Code: Zitat:Original erstellt von startrek:.....Code:Sub asdf() Dim f$, p$, i& p = "D:Cad" f = Dir(p & "*.dwg") i = 1 Do While f "" Documents.Open p & f With ActiveDocument MsgBox i & ": " & .WindowTitle If Not .Saved Then .Save .Close End With i = i + 1: f = Dir LoopEnd SubGruss Nancy Das ist keine Endlosschleife.Dir(p & "*.dwg") liest die erste Datei im Pfadf = Dir liest die nächste Datei. Gibst keine mehr wird die Schleife beendet. Wichti ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Explode von uneinheitlich skalierten Blöcken
Theo37 am 08.10.2008 um 15:21 Uhr (0)
An "Sendcommand" hab ich auch schon gedacht. Aber da weiß ich nicht wie ich das "Entry" an den ACAD-Befehl übergeben soll. Auch wenn ich einen Auswahlsatz daraus machen würde, so daß alle Entry auf einmal enthalten wären, wüsste ich nicht wie ich den mit "sendcommand" an den ACAD-Befehl übergeben soll.Zu Deiner Frage. Sinn des ganzen Makros ist es die Layer und die Objekte einer Zeichnung, tabelarisch zu erfassen und diese dann Löschen, Auflösen oder Verschieben.... können. Im Prinzip das was auch Schnella ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Block einfügen
Huebi am 05.04.2005 um 10:22 Uhr (0)
Servus Ines, was definitiv nicht geht ist, daß Du die Blöcke ständig "umdefinierst". Was allerdings möglich ist, daß Du ein Insert unterschiedlich skalierst (z.B. x-Faktor = 2.78, y-Faktor=1, z-Faktor=1). Ob das allerdings das richtige in Deinem Fall ist, weiß ich nicht. Warum möchtest Du eigentlich Blöcke verwenden wenn sie nur einmal in der Zeichung auftauchen? Als Zusammenschluß mehrerer AutoCAD Elemente gibt s auch die Möglichkeit Gruppen zu bilden (was allerdings nicht weniger Aufwand ist). Außerdem s ...
|
| In das Form Autocad VBA wechseln |
