|
Autocad VBA : MPolygon abfragen
Harald Schwenk am 07.08.2006 um 13:53 Uhr (0)
Hallo Leute,ich möchte mich zunächst bedanken und die Sache mal etwas zusammen fassen.Meine Absicht ist die Objekte MPolygon abzufragen um daraus ein Datenbankobjekt unter Berücksichtigung der Simple Feature Spezifikationen gemäß OGC zu erzeugen. Und, ganz wichtig, neben der geometrischen Ausprägung sind auch die Sachinformationen zum Objekt und Informationen zum Layout. Das alles wird in einem SQL-Statement zusammen gefasst und weiter verarbeitet. Das zum Hintergrund.Dank Eurer Unterstützung kann ich die ...
| | In das Form Autocad VBA wechseln |
 |
AutoCAD VBA : Inhalte eines ListViews an AutoCAD - Tabelle übergeben
Dirk.B am 19.10.2011 um 12:45 Uhr (0)
Hallo zusammen!Ich habe unter VBA ein ListView, in dem mir Daten aus einer Datenbank angezeigt werden.Ist es möglich bestimmte Einträge in dem ListView zu makierenund dann per Buttomklick in eine AutoCAD Tabelle zu schreiben, sodas mir diese im Layout angezeigt wird?Wäre schön, wenn mir da jemand bei helfen könnte.So befüll ich das ListView:Code:---ListView Einstellungen----------------------------------------------With ListView1 .ListItems.Clear .ColumnHeaders.Clear .View = lvwReport .SmallIcons = Ima ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCAD plotten
facebraker am 23.03.2009 um 14:30 Uhr (0)
Hallo Alfred,@publizieren, da hast du schon recht, ich möchte es bloß automatisieren, d.h. wenn das funktioniert, das jede geplottete Datei in eine Excel-Tabelle eingetragen wird, die der Auftraggeber für sein Controlling-Programm benötigt.Aber das ist noch weit weit weg, nur damit du ersteinmal die grobe Richtung weißt.Der Tipp mit dem Profil ohne ProSteel hat gewirkt, danke!Aber jetzt habe ich noch ein Problem, wie kann ich die Papiergröße festlegen (A3,A1 ...), wie komme ich an den Plotmanager ran, da k ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Layout löschen
mapcar am 16.07.2004 um 01:18 Uhr (0)
Hi Namenlos, dein Code ist ein wenig schwer nachvollziehbar, weil ich nicht weiss, was du da wirklich übergibst. Kann dir also nicht sagen, woher der Fehler kommt. Aber das Problem liegt irgendwo bei dir und nicht im System, denn das hier geht ohne Problem: Code: Public Sub Test() Dim n_layouts As Integer Dim oLayout As Object, oBlock As Object, oEntity As Object Dim bKeep As Boolean n_layouts = ThisDrawing.Layouts.Count For Each oLayout In ThisDrawing.Layouts bKeep = False If oLayo ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Auswahlsatz von Layern mit Filter Teil des Layernamens
otm am 07.10.2009 um 10:57 Uhr (0)
Hallo zusammen,ich versuche eine Layergruppe in einen Auswahlsatz zu bringen.Sollte nicht so schwer sein, geht aber nicht.Bis jetzt hab ich Folgendes:Code:Löscht alle eventuell vorhandenen Auswahlsätze If ThisDrawing.SelectionSets.Count 0 Then MsgBox "Vorhandene Auswahlsätze: " & ThisDrawing.SelectionSets.Count, , "Löschen" Dim intAuswahl As Long For intAuswahl = 0 To ThisDrawing.SelectionSets.Count - 1 ThisDrawing.SelectionSets.Item(intAuswahl).Delete Next intAuswahl End If Auswahlsatz n ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : alle Layer in Ansichtsfenster tauen
_stphn_ am 01.07.2006 um 21:31 Uhr (0)
Hallo,ich möchte per VBA für alle Layer in einem Layout-Ansichtsfenster die Eigenschaft "Layer in Anischtsfenster frieren" auf getaut setzen - sprich nicht frieren.Mit VBA ist das sehr umsändlich, da diese Eigenschaft im Layer-Objekt nicht enthalten ist und man einen Umweg über die XDaten machen muss.Bis hierhin kein Problem, nur leider funktioniert der untenstehende Code nicht, d.h. es gibt keine Veränderung am Layerstatus.Code:Sub ThawAllLayInViewP() alle Layer in Ansichtsfenster tauenDim xType As Varian ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Automatische Legende erstellen über Layernamen
KlaK am 22.11.2021 um 12:18 Uhr (1)
Hi,Zum Layer filtern hatten wir schon mal einen Beitrag.Die Layerliste müßte jetzt nur noch nach Deinen Kriterien (alle beginnend mit MT-1-2-) geändert werden.-Jedes Layer mit MT-1-2.... kriegt ein Pfad zu dem Block (da steckt die Arbeit bei 200 sachen leider 200 zeilen)Warum steckt da viel Arbeit drin? Sind die Blöcke denn in unterschiedlichen Verzeichnissen?Du hattest doch geschrieben der Name des Blockes korespondiert mit dem Namen des Layers, dann setzt man den Blocknamen zusammen, und ruft das Einfüge ...
| | In das Form AutoCAD VBA wechseln |
 |
AutoCAD VBA : Benutzerspezifische Eigenschaften / Fehlendes Projekt oder Bibliothek
Björn Möller am 05.08.2015 um 08:35 Uhr (15)
Hallo Forum,mithilfe eines Forums habe ich ein Programm zusammen kopiert, dass Benutzerspezifische Eigenschaften einträgt.Die sollen wiederum als Schriftfeld im Layout angezeigt werden.Ich entwickle auf einem 32bit/AutoCAD2012 Rechner auf dem mein Code ohne Probleme funktioniert.Der Code wird auf einem 64bit/AutoCAD2012-Rechner zur Anwendung gebracht, hier funktioniert er nicht.Als Fehler wird der erste Eintrag "acActiveViewport" markiert und mit der Fehlermeldung "Projekt oder Bibliothek nicht gefunden" k ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Formular zum ausfüllen meines Zeichnungskopfes
Dressler am 20.11.2003 um 11:49 Uhr (0)
Jetzt stllt sich auch noch die Frage, ist dein Block schon in der Zeichnung eingesetzt oder nicht? --- Bisher ist kein Block eingefügt mit dem Zeichnungsrahmen um Platz in den Zeichnungen zu sparen wo ich verschiedene Blattgrößen mit unterschiedlichen Köpfen verwende. Wenn er schon in der Zeichnung ist, dann musst du nach der jeweiligen Blockreferenz suchen. --- Wie kann ich nach so einer Blockreferenz suchen? Wenn du aber den Block erst einfügen musst, dann ist das noch leichter, du kennst ja dann die B ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Wert anzeigen
alfred neswadba am 05.03.2010 um 09:38 Uhr (0)
Hi, kann man das auswählen des blockes auch automatisieren?Du kannst mit SelectionSet die Elemente herausfinden, die z.B. vom Typ BlockReference sind und der Name = DIN-A3 ist.Du kannst ohne weitere Angaben diese bestimmte BlockReference NICHT herausfinden, wenn in der Zeichnung mehr als 1 Layout und damit mehr als einmal diese BlockReference eingefügt wurde.Code:Dim tSSet as AcadSelectionSetOn Error Resume NextProbieren, ein SelectionSet definierenSet tSSet = Thisdrawing.SelectionSets.Add("mySelSet")sollt ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCAD plotten
alfred neswadba am 26.03.2009 um 07:39 Uhr (0)
Hi,und weil ich gestern ein ähnliches Problem hatte, anbei noch ein CodeSchnippsel. Den Fehler den ich hatte, war eine Paarung aus Windows-XP (SP2), Adobe PDF-Drucker und AutoCAD 2007, da konnte man zwar in den Druckereinstellungen ein Seitenformat definieren, z.B. A0q (für A0 Querformat), wenn man dieses dann im Plotterdialog ausgewählt hat, war zwar das Papierformat A0q sichtbar, aber zeigte in der Graphik (kleine Rahmenvoransicht im Plotdialog) dann andere Dimensionen an. Also werden die Namen der Seite ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Layout wechseln
startrek am 09.09.2004 um 23:50 Uhr (0)
Hallo Dan, vorweg: hab lange überlegt, ob ich was schreibe und überhaupt, hoffe es kommt nicht falsch an, das wär schade. Ich find s erstmal schön, wennde deine fertigen Makros/dvb hier postest, aber wennde denne sowas schon machst, dann musste auch mit Kritiken leben aber macht nix, man kann eh nur draus lernen. Ausserdem, im Lisp-Forum wird fast jede Zeile analysiert/diskutiert, hier wohl weniger, deswegen Dan pack ich Dich jetz mal am Schopf ;-) Okay zum content: Möglicherweise hat das zipppen au ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Auswahlsatz, Filter für selectionsets
otm am 09.10.2009 um 09:15 Uhr (0)
@CADmiumDanke, hab ich geändert.Funktioniert aber trotzdem nicht.Es werden immer 0 Objekte im Auswahlsatz ausgeworfen.Hier nochmal der gesamte Code:Code:For Each aktLayer In ThisDrawing.Layers If UCase(aktLayer.Name) Like Gruppe Then Nur Layer bei denen der filternde Textstring Gruppe im Layernamen vorkommt bearbeiten Auswahlsatz mit allen Objekten bilden, die den Filterkriterien entsprechen und diese zählen Löscht nur den einen benötigten Auswahlsatz, falls vorhanden. Fehlerabfang, ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
