|
AutoCAD VBA : Layer Gruppen
Dirk.B am 14.03.2008 um 12:46 Uhr (0)
Hallo Chris!Beim googlen habe ich dieses gefunden: http://books.google.de/books?id=HXG2N2Wy6iMC&pg=PA166&lpg=PA166&dq=vba+autocad+layer+gruppe+auslesen&source=web&ots=aho8jChmAa&sig=7EXpUlMxA_Q4mYN7myoLSuPWmT8&hl=de#PPA165,M1 GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Laden einer *.dvb aus einer geöffneten *.dvb
Dirk.B am 22.10.2008 um 06:56 Uhr (0)
Hallo und guten Morgen zusammen!Ich habe in einem Verzeichnis, daß auch im Suchpfad für Support-Dateien unter AutoCAD Optioneneingetragen ist, zwei VBA-Programme liegen.Aus dem einen möchte ich per Button_Click das andere laden bzw. öffnen.Im Forum habe ich bereits gesucht aber noch nichts adäquates gefunden.So hab ich es probiert, jedoch funktioniert das leider nicht.Code:Private Sub cmdspax_Click()LoadDVB Spax_01.dvb!Modul1.User_DialogEnd SubCode:Private Sub cmdspax_Click()LoadDVB Spax_01.dvbUserForm.Sho ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Automatische Umgrenzungslinie erstellen
Dirk.B am 06.03.2009 um 10:36 Uhr (0)
Hallo zusammen!Wir haben immer wieder mal Feiformen, die wir von Architekten bekommen, oder uns mittels Hilfslinien erzeugen.(Einfaches Beispiel siehe Anhang 1)Kann man nun mittels Klick in die Fläche automatisch eine Polylinie als Umgrenzungslinie erzeugen?(siehe Anhang 2)Geht das evtl. ganz normal aus AutoCAD oder könnte man dieses per VBAerledigen?Wenn mittels VBA, hätte da jemand einen Lösungsansatz für mich.GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Suche Hilfe / Programmcode
Dirk.B am 15.03.2009 um 18:36 Uhr (0)
Hallo Wilfried!Genau das meinte ich.Das mit den Bildchen markieren in dem Frame bzw. in der ListBox hatte ich heute Mogen so ähnlich hinbekommen.Was bei mir noch nicht funktioniert ist das mit dem Frame - Inhalt über die beiden Button hoch.- bzw. runterschalten.An Deine Zip Datei komme ich leider nicht ran, das sich das Bild von der UserForm2 davorsetzt.Könntest Du die Zip - Datei nochmal hochsalten?So habe ich es bislang gemacht:Code:###Mouseklick auf ein Image - Control------Private Sub PreviewFrm_MouseD ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Abfrage bei DXF speichern
Dirk.B am 27.03.2011 um 20:15 Uhr (0)
Hallo Alfred!... mit dem über Array nachgedacht hast Du recht.Ich weiss nur nicht, wie ich das richtig umsetzen muss?Daher wäre ich Dir sehr dankbar, wenn Du mir dabei helfen könntest.Code:If Dir(LB_DXFFileLocal.Caption & "" & BlockWert(0).TextString & ".dxf") = BlockWert(0).TextString & ".dxf" Then --Abfrage ob man die bereits vorhandene Datei überschreiben möchte--!!! Dim Antwort As VbMsgBoxResult Dim DxfVorhanden As String DxfVorhanden = BlockWert(0).TextString & ".dxf" Antwort = MsgBox("Die Datei ...
|
| In das Form AutoCAD VBA wechseln |
DxfLog.txt |
AutoCAD VBA : Abfrage bei DXF speichern
Dirk.B am 27.03.2011 um 15:17 Uhr (0)
... habe da etwas gefunden, was auch soweit funktioniert.Code:Select Case Antwort Case vbYes strTempPath = LB_DXFFileLocal.Caption & "" & BlockWert(0).TextString & ".dwg" strFilename = RemoveExtension(ThisDrawing.Name) ThisDrawing.Wblock strTempPath, DSSet Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath) With objExportFile .SaveAs LB_DXFFileLocal.Caption & "" & BlockWert(0).TextString, acR18_dxf .Close --in Textdatei schreiben--!!! Dim Nr As ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Abfrage bei DXF speichern
Dirk.B am 27.03.2011 um 14:51 Uhr (0)
Hallo!Habe dazu noch eine Frage.Wie kann ich dem User nach dem Durchlauf der Schleife die Infogeben, welche Datei überschrieben unter "Yes" und / oder unter "No"nicht überschrieben wurde?Code:If Dir(LB_DXFFileLocal.Caption & "" & BlockWert(0).TextString & ".dxf") = BlockWert(0).TextString & ".dxf" Then --Abfrage ob man die bereits vorhandene Datei überschreiben möchte--!!! Dim Antwort As VbMsgBoxResult Dim DxfVorhanden As String DxfVorhanden = BlockWert(0).TextString & ".dxf" Antwort = MsgBox("Die Dat ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Abfrage bei DXF speichern
Dirk.B am 26.03.2011 um 11:39 Uhr (0)
Hallo zusammen!Ich habe eines meiner älteren Programme etwas erweitert.Ferner möchte ich diesem hinzufügen, dass wenn die DXF - Datei bereits vorhanden ist, dann MsgBox "Yes" / "No" etc.Hier der Code:Code:For Each BlockEnt In DSSet Set BlockObj = BlockEnt If BlockObj.ObjectName = "AcDbBlockReference" Then If BlockObj.HasAttributes Then BlockWert = BlockObj.GetAttributes --DXF - Datei erzeugen--!!! If Dir(LB_DXFFileLocal.Caption & "" & BlockWert(0).TextString) = BlockWert(0).TextSt ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA und 3D
Dirk.B am 01.11.2009 um 10:13 Uhr (0)
Hallo und guten Morgen zusammen!In der AutoCAD Hilfe habe ich zu dem Thema Kappen (Slice) noch folgendes gefunden:Code:Sub Ch8_SliceABox() Erstellen des Quaderobjekts Dim boxObj As Acad3DSolid Dim length As Double Dim width As Double Dim height As Double Dim center(0 To 2) As Double center(0) = 5#: center(1) = 5#: center(2) = 0 length = 5#: width = 7: height = 10# Erstellen des Quaderobjekts (3Dsolid-Objekts) im Modellbereich Set boxObj = ThisDrawing.ModelSpace. _ AddBox(center, length, width, ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : DWGs im Durchlauf öffnen bearbeiten speichern schließen
Dirk.B am 21.12.2009 um 15:46 Uhr (0)
Hallo zusammen!Ich möchte Zeichnungen aus einem Verzeichnis der reihenach öffen, bearbeiten, speichern und anschließend wieder schließen.Dieses soll wenn eben möglich in einem automatischen Durchlauf stattfinden.Das ganze unter AutoCAD 2009 bzw. 2010.Muß ich da noch etwas bzgl. dynamische Blöcke berücksichtigen.Diese könnten evtl. in solch einer Zeichnung enthalten sein.Die Bearbeitungen sollen wie folgt aussehen:- Zeichnung bereinigen- Zoom Grenzen- Zeichnung speichern und schließenDen Fortschritt würde i ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : DWGs im Durchlauf öffnen bearbeiten speichern schließen
Dirk.B am 14.01.2010 um 21:01 Uhr (0)
Hallo zusammen!@Alfred:Ich hätte hierzu noch mal ne Frage.Ist die zu öffnende Zeichnung selbst eine Blockdefinition (mit dynamischen Eigenschaften), dann ist der Weg allerdings zu überdenken, denn dann folgt von AutoCAD die Abfrage wollen Sie diese Zeichnung im Blockeditor öffnen?An dieser Stelle unterbricht ja das Programm, weil die besagte Dialogbox erscheint.Code:...Do While Dateiname "" Set tAcadDoc = tAcadApp.Documents.Open(ImportPfad & Dateiname)###Hier kommt die Dialogbox...Die Dialogbox steht ja ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCAD 2010 / Kompilierungsfehler
Dirk.B am 06.08.2010 um 09:02 Uhr (0)
Hi Carsten!Wenn ich den Haken rausnehme funktioniert es bis zum nächten Start von AutoCAD.Ich vermute, daß es daran liegt, das das Tool auf unserem Server liegt und mehrere User darauf zugreifen?GrußDirk------------------GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCAD 2010 / Kompilierungsfehler
Dirk.B am 09.08.2010 um 09:48 Uhr (0)
Hallo Alfred!Hallo Carsten!Sorry, daß ich mich erst jetzt melde.Vielen Danke für Infos.@AlfredDas mit dem Strings.Left$ habe ich geändert.@CarstenDie Dateien werden nun beim Start mittels robocopy lokal kopiert.Das scheint ja auf jeden Fall Sinn zu machen.Nun scheint es stabil zu laufen.------------------GrußDirk
|
| In das Form AutoCAD VBA wechseln |
