|
Autocad VBA : Blockvoransicht mittels Imageanzeige
Stelli1 am 22.08.2005 um 16:22 Uhr (0)
Hallo Dirk,für mein Plotprojekt werde ich folgende Form benutzen.Im Anhang ist die Form als ZipPrivate Sub CommandButton1_Click() Me.ListView1.View = lvwReportEnd SubPrivate Sub CommandButton2_Click() Me.ListView1.View = lvwListEnd SubPrivate Sub CommandButton3_Click() Me.ListView1.View = lvwSmallIconEnd SubPrivate Sub CommandButton4_Click() Me.ListView1.View = lvwIconEnd SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Me.Image1.Picture = Me.ImageList1.ListImages(Item.index).Pic ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Aus Excel Autocad aufrufen
Stelli1 am 26.08.2005 um 12:23 Uhr (0)
Zitat:Dim ac As ObjectSet ac = CreateObject("Autocad.application")ac.visible = trueHallo Andreas,bei AutoCAD LT geht nichts mit CreateObject("Autocad.application")da LTGrußStelli1
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Automatischer AutoCad Start
Stelli1 am 26.08.2005 um 12:33 Uhr (0)
Hallo wasc,in der AutoStart läuft das Ding nur einmal.Als geplanter Task kann man ein Intervall vorgeben.(siehe Bild)Wenn man für die BAT noch eine Pif Datei anlegt,kann man dort einstellen das das ganze minimiert läuft.Ansonsten noch die etwas? kompliziertere Variante in.net einen DIenst zu schreiben der das übernimmt.Stelli1
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle 10 sec schauen ob Datei vorhanden?
Stelli1 am 02.09.2005 um 08:58 Uhr (0)
Hallo Thomas,bei VB6 gibt es das Timer Steuerelement. Habs bei VBA nicht gefunden.Unter VB6 kann man relativ einfach ein Benutzersteuerelement (OCX)erstellen. Dieses könntest du in eine VBA Form einbinden.Das OCX könnte man so einstellen, das es in einem bestimmtenInterval ein Ereignis "feuert". Dieses könnest du mit deinemCode belegen.Stelli1------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektauswahl in AutoCAD
Stelli1 am 02.09.2005 um 16:38 Uhr (0)
Hallo so kurz vorm Wochenende,ich möchte das der Benutzer in AutoCAD ein! bestimmtes Objektauswählt.Momentan mach ich das mit SelectOnScreen und einem Filter dernur den gewünschten Typ zur Selektion zuläßt. Klappt grundsätzlichauch ganz gut, da eine Mehrfachauswahl vom Programm abgefangenwerden kann. Außerdem kommt nur die einfache Aufforderung"Objekt wählen:"Die Frage ist, wie kann ich erstens in die Befehlszeile so was wie"Bitte Ansichtsfenster wählen:" und wie kann ich es erreichen dasnur ein Objekt gew ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektauswahl in AutoCAD
Stelli1 am 02.09.2005 um 19:47 Uhr (0)
Hallo Andreas,Hallo Nancy,schön das andere auch noch klicken müssen undDanke für dir Antworten.Beides hilft weiter. Ich kann mich jedoch nicht entscheiden,ob ich dem Filter (User kann nur das gewollte anklicken) oderder Lösung von Nancy arbeiten soll.Diese Lösung ist eigentlich genau die absolut richtige,wenn man noch einen Filter obendrauf setzen könnte.Schönes WochenendeStelli1------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle 10 sec schauen ob Datei vorhanden?
Stelli1 am 02.09.2005 um 20:27 Uhr (0)
Hallo Thomas,hatte noch so ein OCX, habs ein bisschen reduziert.Wer brauchen mag.- Auf Rechner Kopieren- In der Dos-Box oder Ausführen regsvr32 specialtimer.ocx (im Verzeichnis oder mit Pfad)In VBA oder sonstwo weitere Komponenten hinzufügen."SpecialTimwe.Xtimer" wählen und Control in die Form schieben.Mit Code:Private Sub timerOCX_ZeitIstUm(Interval As Long) Dim tmp As Long tmp = Me.timerocx.GetTime Timer anhalten Me.timerocx.SetTime = 0 MsgBox Me.timerocx.GetInfo Me.timerocx.SetTime = tmpEnd SubPrivate ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektauswahl in AutoCAD
Stelli1 am 02.09.2005 um 20:33 Uhr (0)
Hallo Axel,überzeugt! Bau ich halt alles um. Schönes WochenendeStelli1------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ObjectDBX
Stelli1 am 07.09.2005 um 16:49 Uhr (0)
Hallo Florian,also du willst nicht die Definition sondern den Einfügepunkt(Blockreferenz). Wenn es 80000 Blöcke sind ?Gibt es eine weitere Selektion z.B. Layer, Farbe, Blocknameoder oder ?Wenn man unter VBA als Verweis "autocad/ObjectDBX Common xx.0 .."angibt kann man mit dem Objektbrowser (F2) die Methoden und Eigenschaften anschauen.GrussStelli1------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ObjectDBX
Stelli1 am 08.09.2005 um 10:52 Uhr (0)
Hallo Florian,stimmt leider das es hier kein selectionset gibt.Suchen könnte man so:Code:Private Sub CommandButton1_Click() Ist unter Verweisen eingebunden Dim axDoc As New AxDbDocument axDoc.Open "D:Daten_PZPZ_AW_DIN.DWG" Dim Entity As AcadEntity Dim BlockRef As AcadBlockReference Dim TestPunkt(0 To 2) As Double Dim InsPunkt As Variant TestPunkt(0) = 0: TestPunkt(1) = 0: TestPunkt(2) = 0 For Each Entity In axDoc.ModelSpace If Entity.EntityType = acBlockReference Then Set BlockRef ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Anzeigereihenfolge per VBA
Stelli1 am 21.09.2005 um 11:46 Uhr (0)
Hallo,und noch ein Problem.Wie kann ich mit VBA die Anzeigereihenfolge (ähnlich der AutoCAD Funktion) einstellen ?Stelli------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Winkel und Bogenmaß beim Blockeinfügen
Stelli1 am 22.09.2005 um 09:20 Uhr (0)
Hallo Dominik,auf die Schnelle hab ich deinen Code nicht ganz verstanden.Ich habe mir dafür eine Funktion gebaut. Die rechnet fürdie Vermessung den Richtungswinkel.Code:Public Function x_Riwi#(ya#, xa#, Ye#, Xe#)Dim dy#, dx#Dim TanAlpha#Dim winkel#dy = Ye - yadx = Xe - xaIf dx 0 Then TanAlpha = dy / dx winkel = Atn(TanAlpha) * 200 / 3.141593 If winkel 0 Then winkel = winkel + 200 End If If dy 0 Then winkel = winkel + 200 End If If winkel = 0 And dx 0 Then winkel = 200 End IfElse If dy = ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : RS232 Schnittstelle ansprechen, gibt es da Neuerungen seit AC2000 ?
Stelli1 am 27.09.2005 um 22:04 Uhr (0)
Hallo Ralf,so als letzte Aktion für Heute. (Mein SQL ist durch)Ich mache das meistens mit VB. Geht genauso wi VBA.Holst die unter Verweisen die AutoCAD Biliothek undab gehts.Ich habe eine kleine Funktion in VB die prüft ob eineVersion von AutoCAD geladen ist. Die geht auch bei mehrfachInstallation verschiedener Versionen.Code:Function ac_Programm_gestartet%() Prüft ob AutoCAD geladen istDim Prog As String Prog = acad_app On Error GoTo ACAD14 Set obj_ACAD_app = GetObject(, Prog) GoTo ACADOK ACAD14: ...
|
| In das Form Autocad VBA wechseln |
