|
Autocad VBA : Selectionset ohne gefrorene Layer ?
CAD-Huebner am 11.12.2006 um 22:46 Uhr (0)
a) Soll eine Liste der eingeschalteten (und getrauten) Layer erzeugt werden, oder b) sollen alle Objekte auf eingeschalteten (und getauten) Layern gewählt werden?wenn b)Was soll mit den Blockreferenzen passieren, deren Einfügepunkte auf ausgeschalteten Layern liegen, deren Blockelemente aber auf eingeschalteten Layern definiert sind und somit in der Zeichnung sichtbar sind?GC 70 der Layer kann man bei der direkten Objektwahl nicht verwenden, da die Objekte nur ihren Layer, nicht aber die erweiterten Einste ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Template von Thisdrawing gesucht
KlaK am 22.06.2023 um 18:38 Uhr (1)
Hallo Christian,Layeränderungen mache ich über verschiedene Layerstatusdateien (*.LAS), die über Export auf der Festplatte gespeichert sind.Wird dieser Status wieder importiert, werden auch nicht vorhandene Layer wieder hergestellt. In der LAS-Datei müssen auch nicht alle Layer gespeichert werden, man kann ja auch unterschiedliche Gruppen dort definieren, dann braucht man anschließend nicht wieder so viele nicht benötigte löschen.Vielleicht wäre das eine Alternative?GrüßeKlaus [Edit] Wenn Du prinzipiel ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layertabelle in Access einbinden
KlaK am 08.01.2020 um 13:15 Uhr (1)
Hallo Christian,Zitat:Gibt es eine Möglichkeit die Layer einer *.DWT-Datei mit allen Eigenschaften(An/Aus, Farbe, …) in MS Access als verknüpfte Tabelle darzustellen?Dazu ist mir leider nichts bekannt. Ich hatte das damals so gelöst, dass ich mir einen Layerstatus AlleLayer erstellte und diesen als LAS-Datei exportierte. Diese LAS-Datei muß dann noch umgesetzt werden damit jeder Layer in einer Zeile steht (beginnend mit Code " 8"). Also in Notepad alle Zeilenenden durch Tabs ersetzen und danach die " 8" du ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
kiltswitch am 05.11.2004 um 10:37 Uhr (0)
Danke für Deine ganzen Tipps, die Du mir gerade wieder gegeben hast. So langsam sehe ich Licht am Ende des Tunnels, wie ich an diese Sache überhaupt richtig rangehen muß. Ich habe eben leider noch nicht so das Wissen und bin froh, dass mich hier mal jemand ein bißchen unterstützt. Deinen Rat, mich erstmal nur mit dem Konzept zu befassen, werde ich annehmen. Nur nochmal zu dem Thema technische Eigenschaften und Dateiname. Ja, ich habe mir schon Gedanken gemacht, wie ich überhaupt an die richtige Datei ranko ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : MTEXT auflösen
jroedel am 12.04.2005 um 09:58 Uhr (0)
Habe dies schon mit folgendem Script versucht: Public Sub ConvertMText() Dim Object As Object Dim AcDraw As AcadDocument Dim OldMText As AcadMText Dim NewText As AcadText Dim CrLayer As AcadLayer On Local Error Resume Next Verweis auf aktuelle Zeichnung speichern Set AcDraw = ThisDrawing Layer entsperren For Each CrLayer In ThisDrawing.Layers If CrLayer.Freeze = True Then CrLayer.Freeze = False End If Next SelectionSets.Add "Auswahl" Objekte auswählen Set AcSSet = SelectionSets("Auswah ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Farbe ändern
Sagu am 05.08.2009 um 11:47 Uhr (0)
Hallo Forum,nachdem 40 Zeichnungen erstellt wurden, ist festgestellt worden, dass die "True-Color" Farben von ca. 500 Objekten in jeder Zeichnung geändert werden müssen. Ich hab bereits gelesen, dass es hierzu ein Programm gibt, wollte es aber selbst mit einem kleinen Makro ausprobieren-Auszug:Code:Set AcadApp = GetObject(, "autocad.application") With ThisWorkbook.Worksheets("Temp") RotAlt = .Range("E7") GrünAlt = .Range("E8") BlauAlt = .Range("E9") RotNeu = .Range("E10") GrünNeu = .Range ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : DXF-Gruppencode
BerndE am 23.04.2006 um 23:51 Uhr (0)
Hi Nancy,nochmal vielen dank für deinen code, durch den ich mich mittlerweile durchgebissen habe. hab ihn ein bißchen erweitert und schreibe jetzt die gewünschten daten in ein array, das ich dann (in einem überarbeiteten code) auslesen werde. vielleicht mag mir ja mal jemand seine meinung dazu sagen.berndCode:Sub Ausl()Dim AecDoc As AecDocumentDim Zaehler1 As Long, Zaehler2 As Long, Zaehler3 As LongDim aecObj As AecGeoSet AecDoc = AecArchBaseApplication.ActiveDocumentFor Zaehler1 = 0 To AecDoc.ModelSpace.C ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Aufbauanleitung für Möbel
dundeec am 31.07.2009 um 10:59 Uhr (0)
Hallo,ich bin ganz neu hier im Forum und leider auch nicht wirklich versiert im Umgang mit AutoCad. Seit einiger Zeit arbeite ich mit dem Programm IMOS 9.0, das auf einer AutoCad 2008 OEM Version basiert. Mit dem Programm erstelle ich Möbel, die ich unter anderem auch als selbstbau Möbel verteiben möchte. Nun bräuchte ich zum Aufbau des Möbels eine Aufbauanleitung ähnlich der von IKEA oder so. Das ganze wollte ich aus der ACAD Zeichnung generieren, am besten mit ganz wenigen Klicks. Eine Explosion zu mache ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Objektüberwachung
kamehama am 20.10.2006 um 08:02 Uhr (0)
HalloBeim Kopieren voon Blöcken mit Attributen habe ich das Problem, dass oft die Aktualisierung der Attribute übersehen wird. Weiters werden bei uns einige Blöcke für die Erstellung der Stücklisten verwendet, und da werden z.b.: für den Block Oberfläche immer dieselben Werte (z.b.: RAL1000 Grübeige,.. sämtliche Ralfarben) verwendet.Ich habe nun ein Makro erstellt, das unter Thisdrawing.AcadDocument_ObjectAdded überwacht welche Objecte der Zeichnung hinzugefügt wurden, und welches bei den betreffenden Blöc ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Listview - Vom ausgew. Listview-element zum dazugehörigen Block
steinemann09 am 18.02.2009 um 18:38 Uhr (0)
Hallo Wilfried,ich habe das zoom - Problem über die Koordinatenabfrage der InsertionPoint - Eigenschaft der Objektrefernez gelöst (Deine Variante2).attr_pkto = ent.InsertionPointNun tun sich 2 weitere Probleme auf1. Nach dem Zoom auf das Blockattribut soll der Anwender die Möglichkeit bekommen, in der Zeichnung zu editieren. Danach soller das Formular wieder aktivieren können. Ich dachte, ich könnte dasFormular ungebunden aufrufen, was aber zur Folge hat, dass ich Textfelder nicht editieren kann, und im Li ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Koordinaten von Volumenkörpern in Blockreferenzen
doubleq am 12.02.2019 um 17:31 Uhr (1)
Hallo Zusammen,ich habe mal wieder eine etwas knifflige AutoCAD-VBA Herausforderung.Die Situation:Ich habe Blöcke mit 3D-Objekten, die in der Zeichnung mehrfach in allen Raumachsen gedreht eingefügt sind.Von den Volumenkörpern in diesen Blockreferenzen möchte ich nun den Schwerpunkt auslesen.Mit Centroid bekomme ich den Schwerpunkt im Koordinatensystem des Blocks und muss diesen "nur" noch ins WKS umrechnen.Beteiligt an diesem Vorgang (nach meiner Vorstellung):- InsertionPoint (für die allgemeine Verschieb ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Selbsterstellte Befehle mit AcadDocument_BeginCommand abfangen
Stelli1 am 22.04.2008 um 16:45 Uhr (0)
Hallo,ich verstehe nicht wo das Problem ist. Im obigen Link war eine Lösung aufgeführt wie man ein VBA Makro als AutoCAD Befehl definieren kann.Ich habe die Lisp Zeile zum Test mal in eine Funktion gepackt.Diese Sub muss du als erstes ausführen. Später wird die Zeile in die AcadDoc.Lsp eingefügt. Dann steht der Befehl nach jedem laden des Dokumentes zur Verfügung.Code:Sub EigenerBefehl() Dieser wird normalerweise in der AcadDoc.Lsp untergebracht ThisDrawing.SendCommand "(defun c:MyLoad (/) (vl-vbarun "" ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block im UCS einfügen
EMARA am 31.07.2008 um 10:13 Uhr (0)
okay ich versuchs nochmal etwas genaueralso ich hab 3 Punkte für mein UCSP1(82500,-1511.158,30261.325)P2(82598.06,-1526.637,30273.354)P3(32500,-1449.797,30340.286)dann hab ich in einem dwg einen Block, ums einfach zumachen ein Rechteck (0,0,0 - 1000,1000,0)in meinen Code verwende ich sowohl VBA Befehle für das Blockeinfügen, aber auch die AutoCAD command zeile um das Koordinatensystem zu ändernTeil aus dem Main:das Koordinatensystem verändern ------------------------------- Call COMMAND_UCS_D ...
|
| In das Form AutoCAD VBA wechseln |
