|
Autocad VBA : fasen / runden von Kanten bei Volumenkörper
Dirk.B am 25.10.2006 um 10:10 Uhr (0)
Hallo zusammen!Kann mann eigentlich mittels VBA die Kanten eines Quaders runden oder fasen?Quaderbeispiel aus der AutoCAD - Hilfe!Code:Sub Example_AddBox() This example creates a box in model space. Dim boxObj As Acad3DSolid Dim length As Double, width As Double, height As Double Dim center(0 To 2) As Double Define the box center(0) = 5#: center(1) = 5#: center(2) = 0 length = 5#: width = 7: height = 10# Create the box (3DSolid) object in model space Set boxObj = ThisDrawing.ModelSpace. ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD und VB6
Dirk.B am 01.03.2007 um 21:11 Uhr (0)
Hallo zusammen!Ich habe hier mal ein kleineres VBA - Programm und möchte nun probieren, dieses aus VB6 zu starten / nutzen.Kann mir da jemand helfen und zeigen, wo etwas wie geändert werden muß?Vielen Dank im voraus.Modul:Code:Sub User_Dialog() Falzleiste.ShowEnd SubFormular:Code:Const pi = 3.14159 Festlegung der Konstanten PI = 3,14159Function dtr(a As Double) As Double dtr = (a / 180) * pi Festlegung der WinkelfunktionEnd FunctionPrivate Sub cmd1_Click()Festlegung der VariablenDim Prompt1 As StringDim ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD und VB6
Dirk.B am 07.03.2007 um 13:03 Uhr (0)
Hallo Startrek!Hallo Carsten!Das mit VBA und oder VB6 interessiert mich einfach nur mal so,nicht speziell zu diesem Code.Mir geht es mehr darum ob es generell möglich wäre.Vielen Dank für Eure Infos.GrußDirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht
Dirk.B am 13.03.2007 um 20:40 Uhr (0)
Hi Carsten!Hi Wilfried!Ich glaube, ich habe mich festgefahren.Wenn ich die einzelnen Programme von Dir Wilfried durchlaufen lasse, funktionieren diese soweit prima.Das mit den Zeichnungen öffnen, Kreis einfügen etc. funktioniert, bis auf das, daß das Objekt in der Zeichnung kein Block ist und somit der InsPkt nicht mit dem InsPkt des Kreises übereinstimmt.Eigentlich müßte ich aber doch folgendes erreichen:Eine neue Zeichnung öffnen.In diese Zeichnung sollen nun die Dateien/Zeichnungen aus einem Verzeichnis ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Block aus Ordner einfügen
Dirk.B am 27.03.2007 um 17:41 Uhr (0)
Hi Carsten!Das Programm spielt sich innerhalb einer UserForm ab und wird aus einem Modul her ausgeführt.Code:Sub User_Dialog() Dialog aufrufen UserForm1.ShowEnd SubListView füllen:Code:Private Sub CommandButton4_Click()Dim Anzahl As IntegerDim PicList As ListItemAnzahl = 0Dim cFile As StringDim i As Integer ListView1.View = lvwReport ListView1.ColumnHeaders.Clear ListView1.ColumnHeaders.Add , , "Bildname"bmpPath = TextBox1.Value & "" "c:Temp" & "*.bmp") ListView1.ListI ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : TreeView - Steuerelement
Dirk.B am 12.08.2007 um 14:04 Uhr (0)
Hallo Wilfried!Hallo Carsten!Leider war ich die letzten 2 Monate bzgl. VBA zu nichts gekommen, da diese Zeit recht chaotisch war.Ab morgen bin dann erst einmal 1 Wochen im Urlaub.Gestern Abend hatte ich mal Zeit, mich um das TreeView zu kümmern.Wilfried, Dein Programm ist das was ich meinte bzw. erreichen wollte.Zu der INI Datei habe ich bzgl. schreiben und bearbeiten unter vb@rchiv folgendes gefunden: http://www.vbarchiv.net/workshop/workshop17.php Den Source Code habe ich mal versucht in VBA umzusetzen.D ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : TreeView - Steuerelement
Dirk.B am 22.08.2007 um 10:34 Uhr (0)
Hallo Carsten!Hallo Forum! Zitat:nodetag.Pfad = GetIniString("Leuchten", "Halogen", "", "C:Blockverwaltung.ini", 32767)Hiermit komme ich nicht klar.Ich habe ja einmal meinen INIEditor und einmal mein TreeView_Test.In dem TreeView_Test habe ich bzw. Wilfried ja die Nodes manuel erstellt und die Pfadzuweisung erfolgt ja über die Registry.Wenn ich Wilfried ja richtig verstanden habe, Zitat:Als nächsten Schritt würde ich an deiner Stelle das Befüllen des Treeviews ändern. Du arbeitest jedes Node für sich ab. B ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : TreeView - Steuerelement
Dirk.B am 21.08.2007 um 21:31 Uhr (0)
Hallo zusammen!Erst noch einmal Danke für Eure Hilfe.Mit dem Tool zum schreiben bzw. bearbeiten einer INI Datei funktioniert soweit gut.Wie befüll ich denn nun das TreeView, wie in dem TreeView_Test von Stelli1 beschrieben mit dem Inhalt aus der INI Datei?INI-Datei:[Scharniere]Holz=J:AutoCAD_2007DB_TuningBloeckeScharniereGlas=J:AutoCAD_2007DB_TuningBloeckeScharniere[Schlösser]Holz=J:AutoCAD_2007DB_TuningBloeckeSchloesserGlas=J:AutoCAD_2007DB_TuningBloeckeSchloesser[Verbindungen]Holz=J:AutoCAD_2007DB_Tuning ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : TreeView - Steuerelement
Dirk.B am 24.08.2007 um 07:27 Uhr (0)
Hallo zusammen!Ich komme mit meinem Problem des automatischen befüllens des TreeViews nicht weiter.Dieses ist der letzte Stand meiner Versuche:Code:Private Sub TVAktu_Click()Dim xNode As NodeDim strSections As StringDim strTitel As StringDim strVorgabe As StringDim Section() As StringDim i As Integer TVStartMask.Nodes.Clear strSections = GetIniString(vbNullString, "", "", INIFile, 32767)strTitel = GetIniString(strSections, vbNullString, "", INIFile, 32767)strVorgabe = GetIniString(strSections, strTitel, vb ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Aus Formular Acrobat - Reader / pdf starten
Dirk.B am 17.12.2007 um 12:22 Uhr (0)
Hallo Zusammen!Ich bin gerade dabei mir ein kleines Tool zu schreiben in dem ich folgendes realisieren möchte.Aus einem Verzeichnis lese ich die vorhanden PDF-Dateien in eineComboBox ein.Per klick auf einem Button soll die ausgewählte PDF gestartet werden.So habe ich es bislang probiert:Code:Private Sub cmdpdf_Click() Dim Pfadpdf As String Pfadpdf = (txtbox1.Text & "") Verzeichnis aus TextBox z.B.: C:Temp Dim Ergebnis Adobe Acrobat Reader starten Ergebnis = Shell("C:ProgrammeAdobeAcrobat 7.0ReaderAcro ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Drag & Drop
Dirk.B am 04.02.2008 um 13:10 Uhr (0)
Hallo Zusammen!Hat jemand Erfahrung mit Drag & Drop?Ich beabsichtige folgendes umzusetzen.Auf einer UserForm habe ich kleine Bildchen (wmfs) in einem Frame liegen. Nun möchte ich eins per linker Mousetaste anklicken und in den Zeichenbereich von AutoCAD ziehen.Als Ereignis, soll der entsprechende Block aus einem Verzeichnis geladen werden, so wie man es von den Werkzeugpaletten her kennt.Verzeichnis = c:TempBlock = Testblock.dwgGeht soetwas?Wenn ja wie?Danke im voraus.GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ListBox Inhalt automatisch aktualisieren
Dirk.B am 25.02.2008 um 07:40 Uhr (0)
Hallo zusammen!Da habt Ihr nartürlich recht.Das funktioniert ja auch. Ich hatte mein eigentliches Problem auch falsch geschiltert.Über einen Button wähle ich Objekte in der Zeichnung aus und speicher diese als DXF in einem Verzeichnis ab.Nach dem speichern soll die ListBox DXF aktualisiert werden.Das funktioniert aber erst nach dem erneuten Buttonklick.Code:Private Sub cmdObjekte_Click() Dim objDxf As AcadSelectionSet Dim strTempName As String Dim strTempPath As String Dim strFilename As String Dim ob ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ListBox Inhalt automatisch aktualisieren
Dirk.B am 26.02.2008 um 20:16 Uhr (0)
Hallo Wilfried!Ich glaube, daß ich das eigentliche Problem nun habe.Die ausgewählten Objekte werden ja als DXF - Datei in ein Verzeichnis gespeichert. Dieser Vorgang dauert ca. 2-3 Sekunden, also wird die neue DXF - Datei erst abgelegt, nachdem die Aktualisierung bereits stattgefunden hat.Kann man da eine Verzögerung oder wie unter Lisp eine pause einbauen?GrußDirk
|
| In das Form AutoCAD VBA wechseln |
