|
AutoCAD VBA : Plotten mit verschiedenen Layern
michimueller85 am 06.12.2010 um 14:55 Uhr (0)
Hallo liebes Cad Team,Ich will in einer Datei mit mehreren Layern und einem Layout immer nur ein Layer eingeschalten und Drucken!Bsp Layer: 1,2,3erster Druck: Layer 1 ein und Layer 2,3 auszweiter Druck: Layer 2 ein und Layer 1,3 ausdritter Druck: Layer 3 ein und Layer 1,2 ausich hab schon folgendes Programm geschrieben:Sub druck()Dim a As VariantDim layer_name As String For a = 1 To 3 For Each oblayer In ThisDrawing.Layers oblayer.LayerOn = False Next layer_name = a ThisDrawin ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Suchen und Ersetzen per VBA
michimueller85 am 14.12.2010 um 09:07 Uhr (0)
Hi in AutoCad gibt es ja die schöne Funktion unter Bearbeiten "Suchen und ersetzen" gibt es einen VBA Befehl mit dem ich die gleichen Möglichkeiten habe?ich will mehrere Texte suchen und ersetzen lassen!bzw. wenn ein Text nicht gefunden wurde, soll z.B über eine msgbox einen Hinweis gegeben werden!Vielen Dank (im Forum bin ich nicht wirklich fündig geworden!)
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppenfilterinhalte mit VBA auslesen
michimueller85 am 26.06.2018 um 10:20 Uhr (1)
Hallo ihr zwei oh das ging ja echt schnell mit den Antworten. also ich hab nun gleich mal den Code von silcono kopiert und ausgeführt.Ich hab einfach mal eine neue leere Datei angelegt, mit zwei Gruppenfiltern und in jedem Gruppenfilter je einen Layer angelegt.Jedoch kommt bei mir dann in der Zeile: Data = XRecordData(iCount) die Fehlermeldung Typen unverträglich.woran kann es liegen?!ich nutze autocad 2014Grüße
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppenfilterinhalte mit VBA auslesen
michimueller85 am 26.06.2018 um 11:32 Uhr (1)
Hallo Silcono,also wenn ich das mache kommt sofort eine Fehlermeldung, ich hab gelesen das in neueren Autocad Version glaube ab 2008 das ACLYDICTIONARY richtig wäre, daher würde es schon passen.Also ich hab nun mal drei Gruppenfilter erstellt und in den zweiten Gruppenfilter einen Layer gelegt.Dort wo der Layer liegt bleibt das Programm auch hängen. ich hab dir die Datei und zwei Screens angehängt.vielleicht kannst du mir damit weiterhelfen Danke dir
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppenfilterinhalte mit VBA auslesen
michimueller85 am 28.06.2018 um 10:49 Uhr (1)
hallo cadffm,danke für deine Antwort! wie komme ich denn zu den erweiterten Daten eines Layers?wenn ich mir mit VBA einen Layer anschaue gehe ich immer folgend vor:dim objLayer as ACADLayerdim layer_name as variantfor each objLayer in ThisDrawing.layerslayer_name= objLayer.namenun kann ich im VBA Lokalfenster guggen was der Layer alles für Informationen enhält.Es es befindet sich dort keine Information welchem Gruppenfilter der Layer zugeordnet ist. anbei bei Auszug von Autocad mit den Layerinformationen. ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppenfilterinhalte mit VBA auslesen
michimueller85 am 03.07.2018 um 08:09 Uhr (1)
Hallo Silcono,ok sehr merkwürdig, anbei die meine Test DWG Datei und nochmal zwei Bilder. Auf dem einen Bild ein Debug Auszug von dem zweiten Gruppenfilter mit den Record IDS. Auf dem anderen Bild wird die richtige Object id von dem Layer in Gruppe 2 angezeigt. Ich hab das direkt mit einem AutoCAD Datenbank-Tool ausgelesen.GrußMichi
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppenfilterinhalte mit VBA auslesen
michimueller85 am 05.07.2018 um 04:17 Uhr (1)
Hallo Holger,ok alles klar, könnest du mir den c#.Net Code zur Verfügung stellen vielleicht kann ich mir etwas daraus ableiten Ich hatte im Studium mal C++ vielleicht komm ich noch damit zurecht.@Silcono,bist du weitergekommen? bzw. konntest du mit meiner DWG Datei was anfangen.GrußMichi
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad kaufen statt mieten
michimueller85 am 16.02.2022 um 09:42 Uhr (1)
Hallo zusammen,ich würde gerne auf eine neuere Autocad Version umsteigen (alt Autocad 2010).Jedoch will ich nicht bei Autocad mieten sondern einmalig eine Vollversion kaufen.Ich habe auf der Seite 2ndsoft eine Vollversion von Autocad 2019 gefunden. Jetzt stellen sich mir folgende Fragen:1. hat jemand Erfahrung mit dem Unternehmen 2ndsoft, ist das Unternehmen seriös?2. wie ist es möglich das 2ndsoft eine Autocad 2019 Vollversion anbietet obwohl doch Autocad 2018 auf ein Abomodell umgestellt hat.3. Auf der S ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad kaufen statt mieten
michimueller85 am 16.02.2022 um 11:18 Uhr (1)
Hallo Klaus,danke für deine schnelle Antwort, ah sorry ja der Beitrag hätte ich nicht hier landen sollen. Kannich den Beitrag noch nachträglich dorthin verschieben?zu 1 und 2 habe ich keine Fragen mehr, danke. zu 3.habe ich ungefähr verstanden. Wenn ich das richtig verstehe könnte man dann Autocad auch aufmehreren Rechnern installieren (in diesem Fall insgesammt drei) und den Lizenzmanager auf dem Server.Autocad kann halt dann nur immer an einem der Rechner geöffnet werden, was aber völlig ausreichen würde ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA 64BIT GetOpenDialog Typen unverträglich
michimueller85 am 28.06.2022 um 12:17 Uhr (1)
Hallo zusammen,ich bin von Autocad 2011 auf Autocad 2019 umgestiegen und bin gerade dabei meine Maktros wieder zum laufen zu kriegen.Mit der Umstellung von 32Bit auf 64Bit hab ich nun so meine Probleme..in der Zeile .lpstrFile = VarPtr(sFile(0)) kommt die Meldung: Fehler beim Kompilieren, Typen unverträglichanbei der ganze Code:Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPrivate Function GetOpenDialog() As String Dim o ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel datei öffnen mit einer Dialogbox
michimueller85 am 28.06.2022 um 14:40 Uhr (1)
Hallo zusammen,kennt jemand den Code damit ich im Autocad 2019(64Bit) eineExcel Datei mit einer Dialogbox öffnen kann um mir eine Zeile auszulesen.Mit Excel funktioniert es ganz einfach:Sub ArbeitsmappeOeffnen() Dim strDatei As String strDatei = Application.GetOpenFilename() Workbooks.Open (strDatei)End SubJedoch funktioniert dieser Code nicht mit Autocad VBAVielen Dank[Diese Nachricht wurde von michimueller85 am 28. Jun. 2022 editiert.]
|
| In das Form AutoCAD VBA wechseln |
