|
Autocad VBA : Bemaßung unter AutoCAD / VBA
Dirk.B am 17.02.2004 um 08:25 Uhr (0)
Hallo CAD Huebner! Vielen Dank für den Tip! Eine Frage hab ich aber noch; Wie kann man, oder gibt es überhaupt die Möglichkeit, einem ausgewählten Bemaßungsstil einen festen Layer - automatisch - zu zuordnen, damit man diese in den entsprechenden Ansichtsfenstern ein/aus schalten kann. Für Hilfe wäre ich auch hierbei sehr dankbar. Gruß Dirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Bemaßung unter AutoCAD / VBA
Dirk.B am 17.02.2004 um 08:55 Uhr (0)
Hallo Dressler! Eigentlich hatte ich ja auch mit dem Gedanken gespielt mir etwas unter VBA zu programmieren. Trotzdem vielen Dank für die Hilfe. Gruß Dirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBA und "Peplace"
Dirk.B am 17.02.2004 um 14:28 Uhr (0)
Hallo zusammen! Hat einer eine Idee, warum dieses so unter AutoCAD 2002 funktioniert und wenn ich mir dieses Programm auf einen Rechner mit AutoCAD 2000 - beide mit BS Win. 2000 pro. - kopiere nicht? Private Sub tbo1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Erlaubt = 0123456789., & Chr$(8) zeichen = Chr$(KeyAscii) If InStr(1, Erlaubt, zeichen) = 0 Then KeyAscii = 0 End If End Sub Private Sub tbo1_Change() tbo1.Text = Replace(tbo1.Text, . , , ) End Sub Vielen Dank im voruas. Gruß Dirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : DXF speichern unter
Dirk.B am 22.03.2004 um 21:55 Uhr (0)
Hallo Zusammen! Ich habe mir vor einigen Wochen ein VBA Programm geschrieben, mit dem ich Objekte auswähle, die als *.dxf Datei abgelegt werden, um sie dann von einem anderen Programm weiter verarbeiten zu lassen. Dieses funktionierte eigentlich sehr gut. Nun arbeite ich zur Zeit für einen amerikanischen Kunden, der mir AutoCAD Zeichnungen zu mailt, in denen ich dann weiter arbeiten muß. Wenn ich in diesen Zeichnungen mein Programm anwende, funktioniert dies zwar auch, aber der Speicherungsablauf dauert en ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : DXF speichern unter
Dirk.B am 28.05.2004 um 12:29 Uhr (0)
Hallo Nancy! Erst einmal vielen Dank für Deine Hilfe. Aber genau da _____________________________________________________________________ Naja und nicht grad ein selectonscreen zwischen den Timerz, es sei denn Du willst messen wie lange der User zur Auswahl braucht _____________________________________________________________________ scheint mein Problem zu liegen. Denn in meinem Programm - siehe Code weiter oben - selectiere ich ja Objekte über selectonscreen aus einer Zeichnung, die dann als Block/dwg in ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Ordner auswählen
Dirk.B am 30.11.2004 um 14:01 Uhr (0)
Hallo Zusammen! Ich habe einen VB / VBA Code mit dem man über einen Buttonclick eine Dialogbox öffnet, in der man dann (ähnlich Windows Explorer)einen Ordner auswählen kann. Dieser lief bis vor kurzem noch problemlos! Nun wird folgende Zeile angemeckert und das Programm bricht ab. strPfad = ReturnFolder( Bitte Verzechnis wählen ) Hier der komplette Code: Private Declare Function SHBrowseForFolder Lib shell32.dll _ () () Alias SHBrowseForFolderA (lpBrowseInfo As BROWSEINFO) As Long Private Declare Fun ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Farbpalette
Dirk.B am 05.01.2005 um 13:31 Uhr (0)
Hallo Zusammen! Wie kann man mittels VBA aus der AutoCAD-Farbpalette eine ausgewähle Farbe einem Objet zu weisen. Die Farbpalette öffne ich über: ThisDrawing.SendCommand _color & vbCr Ich habs mal so probiert, aber so geht es nicht. Sub Beispiel_Farbpalette() Dim col As New AcadAcCmColor ThisDrawing.SendCommand _color & vbCr Dim line As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0# endPoint(0) = 5#: endPoint(1) = 5#: ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Farbpalette
Dirk.B am 06.01.2005 um 12:49 Uhr (0)
Hallo Nancy! Mit dem ThisDrawing.SendCommand _color & vbCr komme ich erst einmal klar, da ich damit bevor das Objekt gezeichnet wird die Farbe für die Zeichnung festlege. Sub cmd_click() me.hide ThisDrawing.SendCommand _color & vbCr me.show End Sub Danach wird die ausgewählte Farbe ja in der Farbanzeige der Eigenschaftstoolbar übernommen und aktuell gesetzt. Könnte man denn diesen Farbindex nicht in eine Variable übernehmen, um damit weiter arbeiten zu können? Vielen Dank im voraus. Gruß Dirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : 3D revolve und rotate
Dirk.B am 12.01.2005 um 09:03 Uhr (0)
Hallo Zusammen! Ich benötige mal wieder Eure Hilfe. Zur Erstellung eines 3D Volumenkörpers (Acad3DSolid) über die Methode AddRevolvedSolid habe ich eine Region als Form / Fläche erstellt. Diese Region soll nun um die Y Achse laufen und den entsprechenden 3D V-Körper erstellen. Dieses funktioniert auch soweit, nur habe ich so meine Probleme mit den Koordinatenfestlegungen. Startpunkt = S0 Richtungspunkt: axisDir(0) = 0.01: axisDir(1) = 360: axisDir(2) = 0 Winkel: angle = (2 * pi) Hierbei liegt das Objekt ni ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : 3D-Solids aus Oberfächen extrudieren
Dirk.B am 09.02.2005 um 20:34 Uhr (0)
Hallo pfitzepfatze! VBA und 3D ist schon eine Sache für sich. Ich bin gerade dabei, mir kleine Programme im Bezug auf Volumenkörper zu schreiben. Die AutoCAD Hilfe gibt schon oft einiges an Anregungen hervor. Ich hab Dir mal folgenden Add3DMesh Example Code kopiert, der unter VBA das was die Befehle 3dnetz oder _3dmesh unter AutoCAD erzeugen, ein Polygonnetz. Kopier Dir diesen mal in ein leeres Modul und führ es aus. Ich hab es mal getestet und die Ergebnisse kannst Du in den Bildchen sehen (hoffe das es d ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : SendCommand
Dirk.B am 02.03.2005 um 13:08 Uhr (0)
Hallo Hain! Wahrscheinlich hast Du bereits ne Lösung gefunden, aber trotzdem. Ich habe soetwas über "UserForm.Hide" und "UserForm.Show" gelöst. Nach dem anklicken eines CommandButton wechsel ich aus der UserForm (Dialogbox) in den AutoCAD Zeichnungsbereich um dort Objekte auszuwählen. Über UserForm.Show kommt man zur Dialogbox zurück. Kleines Beispiel aus dem Bereich Objektauswahl und speichern unter: Private Sub cmd2_Click() Dim objDxf As AcadSelectionSet Dim strTempName As String Dim strTempPath As Strin ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht mittels Imageanzeige
Dirk.B am 30.06.2005 um 15:33 Uhr (0)
Hallo Zusammen! Ich habe mal ein kleines Bildchen gemacht von dem was AutoCAD ohne viel Aufwand zur Verfügung stellt. So etwas möchte ich mit VBA umsetzen. Sieht da jemand eine Möglichkeit. Ich bin mir ziemlich sicher, daß es geht, hab nur noch nicht den richtigen Faden gefunden. Auch hierzu hab ich mal ein Bildchen erstellt. In einer UserForm soll es eine Listbox, CommandButton, einen Frame mit Images entstehen. Die Bilder (Images) sollen zur Laufzeit aus einem Verzeichnis zB C:Bloecke gezogen werden. K ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Dateien aus Verzeichnis / Ordner einlesen
Dirk.B am 02.07.2005 um 08:13 Uhr (0)
Hallo Zusammen! Ich programmiere mir in VBA für AutoCAD einige kleine Tools. Nun möchte ich mir eine Block Vorschau basteln. Zu jeden Block wird eine Bild/Image Datei erzeugt (*.wmf oder *.bmp). Diese *.wmf Dateien befinden sich in dem Ordner C:Bloecke. Ich möchte alle *.wmf Dateien zur Laufzeit in eine ListView Anzeige laden. Aus dieser ListView werden diese dann aus kleine Bildkachelungen in einem Frame angezeigt. Dieses Tool habe ich. Ich weiß nur nicht, wie ich die *.wmf Dateien aus dem Ordner C ...
|
| In das Form Autocad VBA wechseln |
