|
AutoCAD VBA : mein Programm wartet nicht
Frank136 am 13.06.2009 um 09:43 Uhr (0)
Hallo zusammen, ich habe ein Programm, welches mir in einer MsgBox mitteilt, dass ich in der AcadZeichnung etwas verändern soll. Wenn ich auf das Ok der MsgBox klicke, soll das Programm angehalten werden und ich möchte ich in der Zeichnung rumbasteln können.Währenddessen soll ein Formular mit einer Schaltfläche "fertig" oben rechts im Bildschirm warten. Wenn ich dann "fertig" drücke, soll das Hauptprogramm weiterlaufen.Das Formular steht auch schon oben rechts und wartet, aber das Programm läuft mir immer ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekte auf Layer erkennen
Frank136 am 02.06.2009 um 11:21 Uhr (0)
Da bin ich mal wieder ,heute gehts um Layer. Ich habe eine Zeichnung mit verschiedenen Layern, auf denen Polylinien und Blockreferenzen liegen.Jetzt möchte ich von einem bestimmten Layer die Koordinaten aller Blockreferenzen auslesen.mein Code:Dim Entity As AcadEntityDim ActLayer As AcadLayerDim InPoint As VariantOn Local Error Resume NextSet ActLayer = ThisDrawing.Layers("Module")ActLayer.Freeze = FalseThisDrawing.ActiveLayer = ActLayerFor Each Entity In ThisDrawing.ActiveLayer If TypeOf Entity Is AcadBl ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribute auslesen von aktuellem Blatt
runkelruebe am 11.03.2010 um 08:35 Uhr (0)
Moin,Nur mal zur Klarstellung:der code läuft und tut das, was Du wolltest. Ich hab Deine Anforderungen an das Programm dabei offensichtlich genau so verstanden wie Alfred, dem ich hiermit die güldene Ausdauermedaille am Bande überreichen möchte Es waren gestern Abend noch klitzekleine Schreibfehler drin, die bekam man aber, wenn man ihn durcharbeitet mit F8 raus:Warum springt diese msgbox an?Weil tSSet.Count = 0Warum ist das 0?Weil wohl das tSSet.Select acSelectionSetAll, , , tDxfCodes, tDxfValues keinen E ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blockvoransicht
Dirk.B am 08.03.2007 um 13:12 Uhr (0)
Hallo Carsten!Mit der Vorgabe von Stelli1 bzgl. Blöcke aus der aktuellen Zeichnung lesen und als wmf exportieren komme ich soweit klar, daß funktioniert auch.Mein Problem ist einfach, daß ich nicht weiß bzw. hinbekomme dieses auf ein Verzeichnis mit Zeichnungen anzuwenden.Vom Prinzip her soll es ja wie bei dem Zeichnungsdurchlauf funktionieren.Ich drücke auf einen Button und alle Zeichnung in dem zuvor ausgewählten Verzeichnis werden geladen und als wmf exportiert.Hier das, was ich bislang habe:Code:Option ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Civil 3D - DGM Höhe ändern
Soldnerkugel am 03.02.2013 um 17:18 Uhr (0)
Hallo liebe Forenmitglieder,ich bräuchte mal wieder eure Hilfe:Ich möchte in Civil 3D ein DGM um einen bestimmten Betrag in der Höhe verschieben.ich habe also bisher:...Dim oSurf As AeccSurfaceSet oSurf = oAeccDoc.Surfaces.Item(intDGMPos)...Dim SurfBase(0 to 2) as VariantDim SurfShift(0 to 2) as VariantSurfBase(0) = 0: SurfBase(1) = 0: SurfBase(2) = 0SurfShift(0) = 0: SurfShift(1) = 0: SurfShift(2) = 1oSurf = oSurf.Move(SurfBase, SurfShift)mit "intDGMPos" wird übrigens ein DGM (sind mehrere in der Zeichnun ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : AcadBlöcke mitels vb6 ermitteln
Marco Lorenz am 20.08.2004 um 17:18 Uhr (0)
Hallo, lg, in Deinem Code startest Du AutoCAD gleich zweimal, einmal über die Shell und dann nochmal mit CreateObject oder? Ich würde das so machen: Zuerst nachsehen, ob schon ein AutoCAD aktiv ist: Dim Acadapp As Object On Error Resume Next Set Acadapp = GetObject(, Autocad.Application ) If Err 0 Then AutoCAD nicht gefunden - wird nun gestartet... Set AcadApp = CreateObject( Autocad.Application ) End If Nun eventuell eine Datei in AutoCAD öffnen: Dim Drawing as As AcadDocument Set Drawing ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Objeke vergleichen
fuchsi am 26.11.2008 um 12:46 Uhr (0)
ich würde das problem anders angehen.Zuerst einen Auswahlsatz über alle Linien (nennen wir ihn MasterAusdwahlsatz).Hiervon die erste Linie nehmen. Dann einen Auswahlsatz erstellen von allen Linien in der zeichnung, wo entweder der Startpunkt mit dem Start oder Endpunkt meiner Linie (und bzw. umgekehrt). Alle diese gefundenen Linien aus dem MasterAuswahlsatz entfernen.Jetzt für alle dies gefunden Linien wiederum rekursiv angrenzende Linien suchen, bis jede dieser Suchen ins Lehre läuft.Jetzt nimmt man wiede ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockanzahl auslesen
RoSiNiNo am 09.03.2004 um 08:42 Uhr (0)
Code:Anzahl der Blöcke in der Zeichnung mit der Bezeichnung BlockNamePublic Function BlockCount(BlockName As String) As Long Dim SS As AcadSelectionSet Dim FltTypes(3) As Integer Dim FltData(3) As Variant Set SS = CreateSelectionSet("BlockAttUnvisibleAuswahl") FltTypes(0) = -4: FltData(0) = "AND" FltTypes(1) = 0: FltData(1) = "INSERT" FltTypes(2) = 2: FltData(2) = BlockName FltTypes(3) = -4: FltData(3) = "AND" Selectionset erstellen, Benutzer fragen und Filter anwenden SS.Clear SS.Select acSe ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bemassung teilweise hochstellen
alfred neswadba am 23.04.2009 um 12:41 Uhr (0)
Hi Chris,wenn Du mit VBA einen Event ObjectModified abfängst, in diesem prüfst, ob es sich um eine Bemassung handelt, dann solltest Du genau dort sein, wo Du die Bemassung nachbearbeiten kannst.Lass mir/uns mal eine Zeichnung mit ein paar Bemassungen zukommen (per upload hier), in welchem Du eine modifizierte und eine nicht modifizierte Bemassung hast, damit kann ich dann auf die genaue Situation in einem Sample eingehen.VORSICHT: wenn Du das über Bemassungstext-Überschreibung machen willst, dann ist der B ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Block copieren und neu einfügen
Stelli1 am 05.09.2005 um 19:59 Uhr (0)
Hallo Fuchsi,da die Diskussion wieder aufgenommen ist.... noch die ein oder andere Frage/Problem.Mit ..Code:Dim arx As ObjectDim arx As AxDbDocumentDim col(0) As ObjectDim blockdef As AcadBlockDim acadTyp As StringacadTyp = Left$(ThisDrawing.Application.Version, 2)Set arx = ThisDrawing.Application.GetInterfaceObject("ObjectDBX.AxDbDocument." & acadTyp)arx.Open "D:Daten_PZPZ_AW_DIN.DWG" For Each blockdef In arx.Blocks If blockdef.IsLayout = False Then Set col(0) = blockdef Call arx.CopyObjec ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBA Tool umwandeln von mm in inch
CADmium am 24.01.2004 um 16:51 Uhr (0)
Ob s was fertiges gibt, weiß ich nicht.... Da ACAD aber intern sowieso nur in Zeicheneinheiten rechnet ist ZOLL oder mm reine Interpretationssache. Das Tool könnte aber so funktionieren : Ist bloß der Modellbereich betroffen müßte folgende Eingabe in der Befehlszeile reichen : (setq AUSWAHL (ssget _X ))(command varia AUSWAHL (0 0 0) 0.03937) Wurde mit Layouts und Viewports gearbeitet, gibt es zwei Möglichkeiten: 1 . die unsaubere : alle Bemassungstexte mittels Proggi überschreiben 2. die saubere ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : verschiedene Elemente auswählen und drehen
Stelli1 am 24.10.2005 um 16:18 Uhr (0)
Hallo,du brauchst nicht unbedingt ein Selektionset.Das kannst du füllen in dem du über einen FIlter und/oder einer Benutzerauswahl Element aus der Zeichnung holst.Das Brauchst du hier nicht, da du die Elemente selbst erzeugst.Da du eine Achse zeichnest, hat die x-Elemente.Anschrieb und Referenzlinie zum Achshauptpunkt kommt aber nur einmal.Merke die doch die Zeichnungsentitys in einem eigenen Arrayz.B.Dim MyElements () as acadentityfor i=1 to 10 myPolyline = blabla redim Preserve myElements(Ubound(myElem ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Wert anzeigen
alfred neswadba am 03.03.2010 um 16:40 Uhr (0)
Hi,wenn ich frage welche Blockreference, dann meine ich damit:Du hast einen oder mehrere Blöcke (Blockreferenzen) in Deiner Zeichnung eingesetzt, sei es im Modellbereich, sei es in verschiedenen Layouts. Dann musst DU dem Programm mitteilen, von welchem der vielen Einfügungen Du jetzt Werte ausgegeben haben willst, das kann das Programm nicht wissen.Wenn der Zeichner einen Stücklistenblock einfügt, dann muss der Zeichner auch wissen, wo er diesen einfügt, wenn Der Zeichner dann Eigenschaften dieses Element ...
|
| In das Form AutoCAD VBA wechseln |
