|
Autocad VBA : Dateien aus Verzeichnis / Ordner einlesen
Dirk.B am 03.07.2005 um 19:21 Uhr (0)
Hallo TP! Vielen Dank für Deine Hilfe, hat mir sehr geholfen. Ich habs leicht ändern müssen aber so gehts. Private Sub UserForm_Initialize() Dim fs, f, f1, fc Set fs = CreateObject( Scripting.FileSystemObject ) Set f = fs.GetFolder( K:3D_Ladenbau3D_BloeckeHakenteile ) Set fc = f.Files Dim oItem As ListItem With UserForm1.ListView1 .View = lvwReport .ColumnHeaders.Clear .ListItems.Clear .ColumnHeaders.Add , , Datei Name End With For Each f1 In fc If VBA.Right(f1.Name, 4) = .wmf Then ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht mittels Imageanzeige
Dirk.B am 03.07.2005 um 19:39 Uhr (0)
Hallo zusammen! Ich komme mit meiner Blockvorschau immer ein Stück weiter. Nun klappt es, daß ich aus einem benannten Verzeichnis die *.wmf Dateien in ein ListView und als Kachelbilder in einem Frame laden kann, siehe Bildchen. Nun die nächsten Dinge, die ich versuchen möchte zu realisiern. - Klick ich auf einen der Listeneinträge, soll das entsprechende Bild markiert werden und umgekehrt. - Geh ich mit einem Doppelklick auf einen Listeneintrag oder ein Bild, soll der entsprechende Block aus dem benannten ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht mittels Imageanzeige
Dirk.B am 21.08.2005 um 18:30 Uhr (0)
Hallo Günther!WMF Dateien erzeugst Du übers Menü Datei - Exportieren und dann den Dateityp *.wmf wählen, siehe Bildchen.GrußDirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht mittels Imageanzeige
Dirk.B am 12.10.2005 um 20:42 Uhr (0)
Hallo Zusammen!Ich will einfach noch nicht aufgeben, da ich glaube, daß es eine Lösung für mein Problem gibt.Noch hab ich keine Lösung, da das Programm beim laden der Images hängen bleibt (siehe Bildchen).Hier nochmal der aktuelle Code:Private Sub cmd1_Click() EndEnd SubPrivate Sub cmd2_Click() Dim NewImage As MSForms.Image On Error Resume Next==bei LastTop =10 bleibt das Programm hängen===? LastTop = 10 LastLeft = 10 For i = 1 To ListView1.ListItems.Count Set NewImage = PreviewFrm.Frame1.Controls.Add("Fo ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockvoransicht mittels Imageanzeige
Dirk.B am 01.11.2005 um 19:57 Uhr (0)
Hallo Stelli!Ich hab mal die *.dvb Datei angehangen.Leider komme ich damit nicht weiter. Ich hatte mir dieses leichter vorgestellt.Vielleicht siehst Du ja doch noch eine Möglichkeit dieses oder etwas ähnliches auf die Beine zu stellen.Ich habe auch schon mal darüber nachgedacht, es wie in Deinem Beispiel mit dem ListView inkl. Bildchen umzusetzen.GrußDirk
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Programmoptimierung
Dirk.B am 29.01.2006 um 14:49 Uhr (0)
Hallo Carsten!Der Tip war Ok, dieses Problem habe ich damit lösen können.Mein Problem mit dem "VonBlock" / "VonLayer" hab ich noch nicht lösen können.Mit diesem Code bricht zumindist das Programm nicht mehr ab.Code:Private Sub Cmd2_Click() Spax_01.Hide With ThisDrawing .SendCommand "_color" & Chr(13) c2 = .GetVariable("CECOLOR") End With Select Case IsNumeric(c2) Case 1 To 255: c.ColorIndex = c2 Case acByBlock: c2 = 0 Case acByLayer: c2 = 256 Case Else s = Split(Right(c2, Len(c2) ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Eigenschaften von Schraffuren
Dirk.B am 11.07.2006 um 07:29 Uhr (0)
Hallo zusammen!Meine Frage hat diesmal nicht unbedingt etwas mit VBA zu tun, aber vielleicht kann mir trotzdem jemand helfen.Gibt es eine Möglichkeit die Fangpunkte auf Schraffuren auszuschalten, damit ich die Schraffur nicht immer erst frieren muß bevor ich zB. einen Schrankkorpus bemaße?Ich arbeite mit AutoCAD 2004.Vielen Dank im voraus.GrußDirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Handbuch Version 2007
Dirk.B am 26.09.2006 um 12:42 Uhr (0)
Hallo zusammen!Kann mir jemand ein gutes Handbuch zu der Version 2007 empfehlen, nicht nur bzgl. VBA sondern auch oder nur allgemein?Vielen Dank im voraus.GrußDirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Handbuch Version 2007
Dirk.B am 26.09.2006 um 19:48 Uhr (0)
Hi Carsten!Vielen Dank für die Info.GrußDirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBA und INI-Dateien
Dirk.B am 03.10.2006 um 15:53 Uhr (0)
Hallo zusammen!Ich habe mir vor längerer Zeit ein kleines Tool unter VBA geschrieben, in dem ich Dateien in ein bestimmtes Verzeichnis konvertiere:C:ww4dxfWichtig ist der Ordner dxf. Dieser kann sich aber auf anderen Rechnern in einem ganz anderen Verzeichnis befinden.Über den Ordnerauswahldialog kann man zwar ein neues Verzeichnis auswählen aber es nicht in eine Textbox speichern, so daß dieser beim nächsten Programmstart auch wieder angezeigt wird.Ich hatte da schon mal im Forum nachgefragt und da kam de ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Vollvers. / LT
Dirk.B am 07.10.2006 um 12:06 Uhr (0)
Hallo Zusammen!Kann man unter AutoCAD /2002/2004 bis 2007 (Vollversion) geschriebene Lisp - VBA - Programme unter der jeweiligen AutCAD LT Version nutzen?GrußDirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Clickereignis auf TreeView Node
Dirk.B am 20.10.2006 um 07:12 Uhr (0)
Hallo und guten morgen Carsten!Den ersten Teil "Private Sub UserForm_Initialize()" habe ich aus dem Buch "AutoCAD programmieren mit VBA".Zu dem zweiten Teil "Private Sub TreeView1_nodeClick(ByVal Node As MSComctlLib.Node)" habe ich verschiedene Dinge aus dem Buch probiert, aber leider ohne Erfolg.Ich habe das Test-Progrämmchen mal angehangen und würde Dich bitten mal zu schauen, wo ich mich da aufhänge und selber im Weg stehe.Vielen Dank im voraus.GrußDirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Differenzierung 3DSolids
Dirk.B am 24.10.2006 um 12:48 Uhr (0)
Hallo Sun Lee!Probier es mal so ohne UserForm.Kopier dieses in ein Modul und für es aus.Bei mir funktionierts.Code:Private Sub cmd_rohr_Click()Dim oProfil1 As Acad3DSolidDim oProfil2 As Acad3DSolidDim oRohr As Acad3DSolidDim vZentrum As VariantDim Prompt1 As StringPrompt1 = vbCrLf & "Einfügepunkt:"vZentrum = ThisDrawing.Utility.GetPoint(, Prompt1)Dim vDurchmesserA As VariantDim vDurchmesserI As VariantDim vRohrlaenge As Variantnachfolgende Funktion versteckt das Formular nach aufruf dieser Prozedurund über ...
|
| In das Form Autocad VBA wechseln |
