|
VBasic : Solid Works API ?
Rigobert am 05.02.2004 um 09:39 Uhr (0)
Hallo Forum, wir haben seit diesm Jahr Solid Works 2004, und ich möchte einige Sachen mit VB 6 programmieren. Unter ACAD ging das ganz gut, aber in Solid Works finde ich keinen Einstieg. Mir fehlen anscheinend irgendwelche Verknüpfungen. Unter AutoCad konnte ich mich durch die Objekte wühlen und bekam die Methoden , Eigenschaften usw. angezeigt. Bei Solid Works hab ich nix :-( Nun hab ich mir Beispiele runtergeladen ( Dank an Stefan ) und die laufen auch , wenn ich mir jetzt aber im Debugger das aktuelle ...
|
| In das Form VBasic wechseln |
|
VBasic : Makro zum öffnen eines Dialogfeldes bei Zeichnungsstart
Rigobert am 20.03.2003 um 16:00 Uhr (0)
Hallo Kloibi, nachfolgend der Code : Public WithEvents ACADApp As AcadApplication Use with Application Event Examples Private Sub Form_Load() Set ACADApp = GetObject(, "AutoCAD.Application") End Sub Private Sub ACADApp_EndOpen(ByVal FileName As String) Dim VBACode As String VBACode = "MsgBox " & Chr(34) & " Zeichnung wurde geladen : " & Chr(34) & " & " & Chr(34) & " " & FileName & " " & Chr(34) ACADApp.Eval (VBACode) End Sub Private Sub ACADApp_BeginOpen(FileName As String) Dim VBACode As String ...
|
| In das Form VBasic wechseln |
|
VBasic : Winkel an Variable übergeben.
Rigobert am 25.03.2003 um 14:34 Uhr (0)
Hallo GWH, das Problem wird wohl sein, daß Autocad den Wert nicht als Grad sondern als Bogenmaß interpretiert. D.h. ein Vollkreis sind nicht 360 sondern 2*PI. Du mußt Deinen Wert also mit PI/180 ( = 0.0174532925199433) multiplizieren, dann müßte es wieder passen. Gruß Rigo ------------------ [Diese Nachricht wurde von Rigobert am 25. März 2003 editiert.]
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
Rigobert am 07.07.2003 um 07:52 Uhr (0)
Hallo Wolfgang, klingt doch eigentlich alles machbar. Habe selber mal eine ähnliche Routine geschrieben, den Code der die Attribute ausliest und ändert hab ich mal aufgelistet, vielleicht hilft´s ja. Sonst beschreib mal genauer wo was hakt.. hier der Code : Public Function SetCustomer(Kundenname As String, Kommissionsnummer As String) As String Rem hier wird Autocad angewiesen in das Schriftfeld Rem den Kundennamen und die Kommissionsnummer einzutragen. Rem zusätzlich wird der Dateiname und das Plotdatum ...
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
Rigobert am 07.07.2003 um 09:38 Uhr (0)
Hallo Wolfgang, habe einfach mal in den Code folgende Zeilen eingefügt, ******************************************************************* Dim attrib(0 To 9) As String Deine Variable für die Texte ******************************************************************* ******************************************************************* hier werden die Inhalte der Attribute den VAriablen zugewiesen und anschliessend in ein MsgBox angezeigt For j = 0 To 9 attr ...
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
Rigobert am 07.07.2003 um 11:23 Uhr (0)
Hallo Wolfgang, das müßte eigentlich mit nachfolgendem Code funktionieren : Dim attrib() As String Deine Variable für die Texte wenn Du dann die Anzahl der Attribute weißt, kannst Du das Feld neu definieren mit : Redim attrib(0 to Anzahl) as String das sollte dann funktionieren.. Viel Erfolg Gruß Rigo ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Attribute aus AutoCAD in Array auslesen und verarbeiten
Rigobert am 07.07.2003 um 11:52 Uhr (0)
Gern geschehen ! ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Befehl Kill
Rigobert am 07.07.2003 um 13:08 Uhr (0)
Hallo Heiko, weiß nicht ob´s hilft aber ich habe eine Routine geschrieben in der alle *.dwg Files in einer FileListBox dargestellt werden. Dort kannder User dann eine auswählen und löschen. Der Code dazu : Private Sub Löschen_File_Click() On Error goto Fehlerbehandlung: If frmDatenbank.File1.FILEName = "" Then Rigo = MsgBox("Was,soll gelöscht werden ?", vbQuestion, "???") Exit Sub End If Rigo = InputBox("Datei löschen !", "Löscher", frmDatenbank.File1.FILEName, X, Y) If Not Rigo = "" Then Dummy ...
|
| In das Form VBasic wechseln |
|
VBasic : txt Datei anlegen und diese Dateien als variable definieren
Rigobert am 11.08.2004 um 07:50 Uhr (0)
Hallo Feyza, also ich benutze dafür immer die Input # und Print # Anweisungen. Habe Dir mal ein Beispiel gemacht. Viel Spaß damit Gruß Andreas ------------------
|
| In das Form VBasic wechseln |
|
VBasic : txt Datei anlegen und diese Dateien als variable definieren
Rigobert am 11.08.2004 um 09:28 Uhr (0)
Hallo, da würde mir dann noch der Umweg über eine Filebbox einfallen. Vielleicht kommt das ja Deinen Vorstellungen entgegen... Gruß Andreas ------------------
|
| In das Form VBasic wechseln |
