|
AutoCAD VBA : Block aus Header / aus Bibliothek einfügen
otm am 10.09.2009 um 21:53 Uhr (0)
Hallo zusammen,ich habe eine Blockbibliothek (Ordner mit DWG-Dateien) in der es z.B. einen Block "Baum.dwg" gibt.Mit einem VBA-Code füge ich diesen Block in meine leere Zeichnung ein. (Block ist noch nie in die Zeichnung eingefügt worden)Während des Projekts soll der Baum auf einmal anders aussehen und ich definiere den Block "Baum" in der Zeichnung neu.Wenn ich jetzt den Code wieder laufen lasse, weil ich irgendwo noch einen Baum einfügen will, wird nicht der geänderte Baum-Block aus der Zeichnung referen ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block aus Header / aus Bibliothek einfügen
otm am 11.09.2009 um 08:31 Uhr (0)
Hi Alfred,das dachte ich auch aber es klappt leider nicht.Foldender Code soll schauen, ob der Block in der Zeichnung vorhanden ist. (Der Code ist von verschiedenen Autoren zusammengetragen. Hier auch ein Dank an alle.)Wenn er vorhanden ist, dann den Code aus der Zeichnung nehmen.Wenn er nicht vorhanden ist, dann aus der Bibliothek "nachladen".Hauptprogramm:... Ist der gewünschte Block schon in der Zeichnung definiert ? Set Blockdef = GetBlockDef(BlkNameDWG) Block in die Zeichnung laden, wenn er nicht s ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auf Ereigniss reagieren
otm am 27.01.2017 um 21:28 Uhr (5)
Hallo Forum,ich möchte auf das Ereignis Activate reagieren.Immer, wenn ich eine Zeichnung aktiviere, soll ein VBA-Makro ausgeführt werden, zwei benutzerdefinierte Eigenschaften prüfen und abhängig davon ein UserForm starten oder nicht.In der ACAD-Hilfe und im Forum habe ich ein paar Beiträge dazu von 2007 gefunden.Ich glaube aber, mein Problem liegt weit früher.Wo schreibe ich die Makros rein, damit das Makro jedesmal startet, wenn die Zeichnung aktiviert wird?In ein Klassenmodul? In ein Modul?------------ ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layerfilter löschen
otm am 03.08.2017 um 14:04 Uhr (5)
Liebes Forum,ich versuche in C3D 2017 alle Layerfilter der aktuellen DWG mit folgendem Code zu löschen.Code: Dim ent As AcadDictionary Dim strNames As String Dim blnLayFilter As Boolean Dim dict As AcadDictionary Set dict = ThisDrawing.Layers.GetExtensionDictionary("ACAD_LAYERFILTERS") If ThisDrawing.Layers.HasExtensionDictionary Then For Each ent In dict strNames = strNames & vbCrLf & ent.Name ent.Delete blnLayFilter = True Next ent I ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Template von Thisdrawing gesucht
otm am 22.06.2023 um 14:04 Uhr (5)
Liebes Forum,gibt es die Möglichkeit bei einer Zeichnung festzustellen von welcher Vorlage sie abstammt?So eine Art Parent-Eigenschaft.------------------Grüße aus MünchenChristian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Xref Statusabfrage
otm am 08.02.2025 um 18:46 Uhr (5)
Liebes Forum,wie kann ich von einem xref in einer Zeichnung den Status abfragen (geladen, entfernt, unreferenziert, ...)?So etwa:if BlockDef.detach(ed) = True then ...Vielen Dank für einen Hinweis------------------Grüße aus MünchenChristian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layertabelle in Access einbinden
otm am 08.01.2020 um 13:43 Uhr (5)
Hallo Klaus,das mit der Textdatei kann ich bereits.Ich wollte meinen Programmablauf gerne dynamisch gestalten und deshalb von Access direkt auf die "Datenbank" der AutoCAD-Zeichnung zugreifen.Da komme ich aber nicht weiter, weil mir da noch Wissen fehlt.Kannst Du mir da vielleicht ein paar Stichpunkte zum Suchen nach den Beispielen nennen?------------------Grüße aus MünchenChristian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Mittels Access einen Block aus einer .dwg (Bibliothek) in eine andere .dwg einfügen
otm am 07.10.2009 um 11:06 Uhr (0)
Hi Manuel,wenn ich Dich richtig verstehe, möchtes Du Die Blöcke Deiner Blockbibliothek über einen Button in Deine Aktuelle Zeichnung einfügen.Ich habe den Weg gewählt alle Blöcke einzeln in ein Verzeichnis zu speichern (als DWG) und füge diese über Blöcke einfügen, bzw. über ein Icon, bei dem dieser Behfehl hinterlegt ist, ein.------------------Christian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block im Ursprung einfügen
otm am 10.09.2009 um 21:43 Uhr (0)
Hallo zusammen,ich habe einen VBA-Code der mir nach Anklicken eines Icons einen Block in meine Zeichnung einfügt. Der Block wird aus einer DWG-Bibliothek (eigener Ordner mit vielen Blöcken) geholt.Das funktioniert.Wie kann ich den Block im Ursprung einfügen?In Lisp würde ich dem Blocknamen einfach ein "*" voranstellen und der Block würde im Ursprung (gesprengt) eingefügt. ?------------------Christian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : dynamischer Block
otm am 12.04.2022 um 12:58 Uhr (1)
@cadffmnur die dynamischen Blöcke speichere ich so verschachtelt.Wenn das einfacher geht, bin ich um einen Hinweis dankbar.Im Anhang mal ein einfacher Block, bei dem die Blöcke *U0 und *U1 drin sind.Mit BenennUBL werden sie als zu bereinigen angezeigt.Schließt man die Datei und öffnet sie wieder, sind die *U0, *U1 wieder nicht zu bereinigen.Bislang kopiere ich die Objekte, füge sie in eine saubere Zeichnung ein und weg sind die Blöcke.------------------Grüße aus MünchenChristian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layertabelle in Access einbinden
otm am 08.01.2020 um 11:29 Uhr (5)
Liebes Forum,ich bin beim Suchen nicht weitergekommen, deshalb hier meine Frage:Gibt es eine Möglichkeit die Layer einer *.DWT-Datei mit allen Eigenschaften(An/Aus, Farbe, …) in MS Access als verknüpfte Tabelle darzustellen?In MS Access reicht ein ReadOnly-Zugriff auf diese Tabelle.Auch schon weiterhelfen würde eine Tabelle in MS Access in der nur die Layernamen stehen, wenn es in ACAD über VBA eine Möglichkeit gibt, einen Layer aus einer *.DWT-Datei anhand seines Layernamens mit allen Eigenschaften in die ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layerfilter löschen
otm am 11.09.2020 um 23:02 Uhr (5)
Hallo Klaus,auch wenn der Beitrag schon sehr alt ist, hätte ich dazu noch eine Frage.Wenn ich einen Eigenschaftsfilter (AB) habe, der wiederum einen Unter-Eigenschaftsfilter (A) hat, dann ist die Anzahl der ermittelten Filter 2. Es wird aber nur die unterste Ebene (A) gelöscht und ist im Layermanager auch nicht mehr zu sehen.Das Programm schreibt aber der Obere Filter (AB) sei gelöscht worden.Der Filter (A) wird nicht erwähnt.Lasse ich das Programm nochmals laufen ermittelt der Code 0 Layerfilter und entfe ...
|
| In das Form AutoCAD VBA wechseln |
