|
Autocad VBA : Grafische Generierung
BerndE am 24.05.2006 um 17:34 Uhr (0)
Hi, interessantes Projekt. habe vor, in bälde etwas ähnliches für schränke zu erstellen und habe mir da auch schon erste gedanken gemacht aber noch nicht weiter versucht. eine möglichkeit könnte es doch sein, in deinem formular Autocad-DWF-Viewer-Control oder ein AutoCad-DWG-Thumbnail-Control zu setzen. wäre nett, wenn du mich auf dem laufenden halten könntest.bernd------------------Bernd
|
| 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 : Datei öffnen
BerndE am 24.05.2006 um 18:08 Uhr (0)
heißen dank Carsten, daß sieht so gut aus, da gibts schon ungeprüft 10Us dafür wünsch dir wasbernd------------------Bernd
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Linien im Formular
Stelli1 am 26.05.2006 um 16:49 Uhr (0)
Hallo Bernd,ich glaube Huebi wollte es mit AutoCAD VBA machen Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| 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 : Grafische Generierung
BerndE am 27.05.2006 um 04:44 Uhr (0)
sodele, hat mir doch keine ruhe gelassen. aufbauend auf carstens vorschlag habe ich mal nen bißchen rumgebastelt. vielleicht kanns ja schon mal als anregung dienenberndCode:Private Sub CommandButton1_Click()On Error GoTo err_handler Erstellen der Linie Dim exportFile As String Dim SSetColl As AcadSelectionSets Dim sset As AcadSelectionSet Dim LineObj As AcadLine Dim StartPt(0 To 2) As Double Dim EndPt(0 To 2) As Double Dim Liste As Variant StartPt(0) = 4: StartPt(1) = 2: StartPt(2) = 0 EndPt(0) ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Fehlermeldung Map 2006
Stelli1 am 27.05.2006 um 14:15 Uhr (0)
Hallo Jörg,du hast wahrscheinlich 2006 und 2007 parallel auf dem Rechner.Jede Version hat seine Nummer. Dein Eintrag verweist auf die letzte Version. In 2006 muss du auf das passende interface Verweisen.ACAD14: Prog = "AutoCAD.application.14"ACAD2000: Prog = "AutoCAD.application.15"ACAD2004: Prog = "AutoCAD.application.16"ACAD2006: Prog = "AutoCAD.application.16.2"Kannst du mit Application.Version abrufen und dynamisch einbauen.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelb ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei öffnen
BerndE am 27.05.2006 um 18:09 Uhr (0)
hi carsten,habe deinen code für meine zwecke umgebaut und es funktioniert super, nochmal danke und nochmal us bernd------------------Bernd
|
| 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 : Fehlermeldung Map 2006
itrvolk am 28.05.2006 um 10:54 Uhr (0)
Hallo Stelli,da ich noch recht wenig Erfahrung habe in VBA. Wie bringe ich Map dazu den Code auszuführen bzw. die Version einzubinden. Wenn ich mit application.version die Version abfragen kommt dann folgendes zurück: "16.2s(LMS Tech)"gruß JörgP.S. Autocad Civil 2006 und 2007 ist parallel installiert------------------Civil 3D 2006, AIS9, ADT2004, B&BDell M60, Windows XP
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Fehlermeldung Map 2006
Stelli1 am 28.05.2006 um 12:13 Uhr (0)
Hallo Jörg,es gibt mehrere Varianten. Je nachdem was alles Versionsabhängig ist.Code: Variante 1Acad_Version = Replace(Left(Application.Version, 4), ".0", "")Acad_Object_String = "AutoCAD.Application." & Acad_VersionMap_Object_String = "AutoCADMap.Application." & Acad_Version Variante 2Select Case Left(Application.Version, 4) Case "16.0" Acad_Version = "16" Case "16.2" Acad_Version = "16.2"End SelectAcad_Object_String = "AutoCAD.Application." & Acad_VersionMap_Object_String = "AutoCADMap.Applicatio ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
CADLER06 am 22.06.2006 um 15:27 Uhr (0)
Hallo liebe CAD´ler,möchte mich doch gerne auch aktiv am Forum beteiligen, bin aber noch ziemlich grün hinter den Ohren.Habe hier im Forum schon viele nützliche Tipps gefunden. Jetzt habe ich ein anderes Problem.Ich muss aus Excel Werte als Punkte an AutoCAD übergeben, damit nach diesen Punkten Rechtecke gezeichnet werden. Habe mich dazu entschieden das per VBA zu lösen (ginge mit Sicherheit auch mit LISP, oder ??)Kann mir jemand einen Tipp über die Vorgehensweise geben ?im Voraus vielen Dankder CADL ...
|
| 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 |
