|
Autocad VBA : Ordnerbaum in VBA für AutoCAD?
Carsten1210 am 29.03.2006 um 11:47 Uhr (0)
Hallo Cimex,Du meinst das Tree-View-Steuerelement.Du solltest dir mal das Programm Blockinfo von Stelli anschauen. Dort hat er es eingesetzt. http://autocad.cad.de/modules.php?name=Downloads&d_op=viewdownloaddetails&lid=88&title=Blockinfo.dvb Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Fenstergröße ändern
Carsten1210 am 29.04.2006 um 10:07 Uhr (0)
Hallo Benny,Soweit ich wieß, unterstützt das VBA in AutoCAD diese Funktion nicht.Probier mal diesen Code: Option ExplicitPrivate Const MResizer = "ResizeGrab"Private WithEvents m_objResizer As MSForms.LabelPrivate m_sngLeftResizePos As SinglePrivate m_sngTopResizePos As SinglePrivate m_blnResizing As SinglePrivate Sub m_AddResizer() add resizing control to bottom right hand corner of userform Set m_objResizer = Me.Controls.Add("Forms.label.1", MResizer, True) With m_objResizer With .Font .Name = ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Text aus Layer in Datei exportieren
Carsten1210 am 29.04.2006 um 14:37 Uhr (0)
Hallo Frank,Natürlich bist du auch hier willkommen.Hier findest du das Programm LADOC. Damit kannst du den Layerstand in eine Textdatei abspeichern.Ist das so etwas, das du suchst?!Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Text aus Layer in Datei exportieren
Carsten1210 am 02.05.2006 um 11:44 Uhr (0)
Hallo Frank,Probiers mal hiermit:Sub Extract_Text() Dim sstext As AcadSelectionSet Variable für Auswahlsatz anlegen Dim FilterType(9) As Integer Variable für Filterliste (Typ) Dim FilterData(9) As Variant Variable für Filterliste (Daten) Dim fs As Object Variable für FileSystemObject Dim a As Object Variable für Datei Dim Object As Object Variable für vorhandene TextstringsOn Error Resume Next ThisDrawing.SelectionSets.Item("SS2").Delete Auswahlsatz, wenn vorhanden löschen Set sstext = ThisDrawing. ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei öffnen
Carsten1210 am 24.05.2006 um 18:03 Uhr (0)
Hallo Bernd,Nimm folgendes:Sub TestDateiOeffnen() Dim Meldung As String Datei = "C: est.dxf" rc = CheckAllocation(Datei, Meldung) If rc = 0 Then Öffne Datei Else MsgBox Meldung, vbExclamation End IfEnd SubFunction CheckAllocation(ByVal Datei As String, Meldung As String) As Integer On Error Resume Next slot = FreeFile Open Datei For Binary Access Read Lock Read As #slot Fehler = Err.Number strFehler = Err.Description Close #slot On Error GoTo 0 Select Case Fehler Case 0 Datei ist nicht allokiert Check ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Grafische Generierung
Carsten1210 am 26.05.2006 um 21:43 Uhr (0)
Hallo Dobatec,DWF wird so weit ich weiß nicht funktionieren, weil die vorhanden Steuerelemente dir nicht nur die Grafik, sondern auch teilweise die Oberfläche des DWF-Viewers in deine Form bringen. Die DWFs musst du dann im Hintergrund erstellen lassen.Bei dem DWG-Thumbnail ist, so weit ich weiß, die Größe der Vorschau Grafik begrenzt (Auf das, was du im Explorer bzw. bei Datei-Öffnen sehen kannst).Du könnst aber ein WMF oder eine Pixelgrafik im Hintergrund erstellen und diese in ein Image-Steuerelement la ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei öffnen
Carsten1210 am 27.05.2006 um 20:57 Uhr (0)
Hallo Bernd,Schön, das es das passende für dich war. Nur zu Info: Man kann nur einaml Unities für einen beitrag geben. Aber Danke fürs Feedback, da man dieses auch nicht immer bekommt.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
Carsten1210 am 22.06.2006 um 15:35 Uhr (0)
Hi Cadler06,Erst einmal Willkommen im Forum.Schau dir doch mal im Sample-Ordner unter VBA das Beispiel Excellink.dvb an. Dort werden Daten von Autocad nach Excel und zurück übertragen. Das sollte, denke ich schon mal ein Anfang sein.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
Carsten1210 am 22.06.2006 um 16:09 Uhr (0)
Hi Joe,Du kannst ja, wenn du die Daten von Excel je Rechteck hast, mit den Koordinaten (errechnet oder vorliegend) mittels AddPolyline die Rechtecke zeichnen. Danach rufst du den nächsten Datensatz ab und so weiter.Wenn du schon mal etwas zusammen hast kannst du es ja uploaden / posten und dann kann man weiterschauen.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
Carsten1210 am 23.06.2006 um 11:26 Uhr (0)
Hallo Joe,Das sollte eigentlich klappen. Als was für ein Datentyp bekommst du die Daten von Excel?Hier 2 Beispiele, wie du das verarbeiten kannst:Public Function Rechteck(Punkt1, Punkt2) As AcadLWPolyline Dim eckpunkt(0 To 7) As Double eckpunkt(0) = Punkt1(0): eckpunkt(1) = Punkt1(1) eckpunkt(2) = Punkt2(0): eckpunkt(3) = Punkt1(1) eckpunkt(4) = Punkt2(0): eckpunkt(5) = Punkt2(1) eckpunkt(6) = Punkt1(0): eckpunkt(7) = Punkt2(1) Set Rechteck = ThisDrawing.ModelSpace.AddLightWeightPolyline(eckpunkt) R ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
Carsten1210 am 23.06.2006 um 12:11 Uhr (0)
Hallo Nat-Bambo,Herzlich Willkommen im Forum. Zu deiner Frage: Die Suche hat mir das gebracht. Alternativ kannst du dir auch Beispiele im Sample-Ordner die Datei Excellink.DVB anschauen.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
Carsten1210 am 23.06.2006 um 14:36 Uhr (0)
Hi,Kann mir im Moment die ZIP-Datei nicht anschauen. Vielleicht hilft dir dieser Link ja weiter.Gruß Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : zugehörige dvb-datei ermitteln
Carsten1210 am 26.06.2006 um 10:29 Uhr (0)
Hallo Jan,Probier folgendes:Sub ProjektName() Dim prj As Object Set prj = ThisDrawing.Application.preferences.Application.VBE MsgBox prj.activevbproject.filename, , "aktueller Projektname"End SubÜber die Suche hättest du dies auch finden können. Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
