|
AutoCAD VBA : Eigenschaften eines unbekannten Objekts
Stelli1 am 02.10.2007 um 11:49 Uhr (0)
Hallo,irgendwo kommt der Objekttype doch her. Wenn du die Application kennst, kannst du die unter Verweisen angeben. Dann kannst du im Objektkatalog (F2) nachschauen was es für Methoden und EIgenschaften gibt.Wenn du die Herkunft nicht kennst, deklarierst du das Element als Object. Wenn du es schaffst das Element anzusprechen kannst du dort während der Laufzeit einen Breakpoint setzen und im Überwachungsfenster (shift+F9) die Eigenschaften nachlesen.Die Objekte aus AutoCAD verfügen in der Regel nicht über ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ausgewählte Elemente in der Zeichnung per Macros abfragen
ThomDD am 03.10.2007 um 12:44 Uhr (0)
Hallo, ich möchte auf die ausgeählten Elemente in einer AutoCAD-Zeichnung per Macro zugreifen.Leider habe ich das Problem, dass beim Start des Macros (über ein Button im Werkzeugkasten (-vbarun dvbname.modulname.prozedurname)) alle zuvor ausgewählten Elemente deselektiert werden, also die Auswahl aufgehoben wird.Wenn ich dagegen mein Macro im VBA-Editor mit F5 starte, dann kann ich auf die zuvor selektierten Elemente zugreifen.Das heißt, sobald ich den Befehl zum Start des Macros über den Button im Werkzeu ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Verschiedene Linientypen unterscheiden
Stelli1 am 03.10.2007 um 18:06 Uhr (0)
Hallo Peter,du kannst doch über das Eigenschaftsfenster von AutoCAD kontrollieren wie die Linieneigenschaften sind.Grundsätzlich sind Linien die auf einem Layer sind, die gleiche Linienart und Farbe haben auch Linien gleicher Bedeutung. Dabei ist die Linienart byLayer und die Farbe 256(byLayer) letzendlich auch Eigenschaften.In deinem Quelltext hast du TRUECOLOR auskommentiert. Haben deine Elemente nur die Indexfarben ?Ansonsten ist die Eigenschaft Truecolor nicht nur einfach ein Wert sondern ein Objekt. D ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objektauswahl an Eigenschaftenfenster übergeben
sarotti am 04.10.2007 um 12:02 Uhr (0)
Hallo Forum,ich habe folgende Idee:Mit meinem Makro werden alle Objekte, z.B. mit der Farbe 9, aus dem Modelspace in ein Array gespeichert.Dieses Array möchte ich als Auswahl an das Eigenschaftfenster von AutoCAD übergeben.Anschließend kann der Anwender über das Eigenschaftenfenster die Farbe änderen.Mein Problem: Wie spreche ich das Eigenschaftsfensterobjekt an? Ich weis leider nicht wonach ich suchen muss.Im voraus vielen DankSarotti
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objektauswahl an Eigenschaftenfenster übergeben
sarotti am 04.10.2007 um 12:17 Uhr (0)
Danke für den schnellen Hinweis Thomas.Über die Schnellauswahl läßt sich das Problem lösen, wird zwar nicht so elegant, aber damit kann ich leben.Vor lauter Programmiereifer übersieht man die Bordmittel von AutoCAD.Nochmals Danke.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objektauswahl an Eigenschaftenfenster übergeben
Stelli1 am 04.10.2007 um 12:55 Uhr (0)
Hallo,schau mal hier. Du kannst so deine Auswahl an jeden Autocad Befehl und auch an das Eigenschaftsfenster übergeben.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objektauswahl an Eigenschaftenfenster übergeben
Stelli1 am 04.10.2007 um 18:27 Uhr (0)
Hallo, Zitat:wenn ich Dein Code richtig verstehe, dann muss ich für jedes Objekt (Linien, Texte, Blöcke usw.) einen eigenen Filter schreiben, und diese Auswahl übergebenSo ist es nicht. In diesem Beispiel ging es drum zwei AutoCAD Befehle mit zwei unterschiedlichen Selektionen aus VBA auszuführen. Du kannst natürlich alle Elemente aus einem VBA Selectionset auf einmal übergeben.Ich bin mir aber nicht sicher, ob es auch wirklich mit den Properties geht.Wilfried Stelberg------------------Warum lispeln wenns ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objektauswahl an Eigenschaftenfenster übergeben
sarotti am 04.10.2007 um 16:13 Uhr (0)
Hallo Carsten, hallo Wilfried,das mit der Farbe 9 war nur ein Beispiel. Mein Makro durchläuft die gesamte Autocad-Sitzung und zeigt den Inhalt nach Layer, Farbe, Textbreite usw. an.Nachdem ich jetzt weis, was in der Zeichnung von meinem Standard abweicht, muss ich die einzelnen Elemente auswählen und deren Eigenschaften ändern.Wilfried,wenn ich Dein Code richtig verstehe, dann muss ich für jedes Objekt (Linien, Texte, Blöcke usw.) einen eigenen Filter schreiben, und diese Auswahl übergeben.Jetzt könnten di ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
fuchsi am 08.10.2007 um 15:48 Uhr (0)
Nehmen wir mal an, dass der ganze String wirklich eins zu eins in einem Excelferld stehtEyxcelfeld Inmhalt : (command "_ucs" "_w") (command "_insert" "Kot_Hoehe_LP" "-101941.8499051,203057.2992329" "" "" "" "1023.2" ) (command "_ucs" "_p") jetzt holst du dir diesen Inhalt einfach in eine Variable z.B.: StringAusExcelFeld und schiesst es so ins Autocad:acadObj.ActiveDocument.sendcommand "(progn" & StringAusExcelFeld & ")" & vbcr------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC[Diese Nachricht wurde von f ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 09.10.2007 um 08:18 Uhr (0)
ServusDer Code funktioniert jetzt soweit danke @allHier der Code für Eine ZelleCode:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y AppActivate "Microsoft Excel" Sheets("start").SelectEnd Submehrere Zellen untereinander ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 08.10.2007 um 16:20 Uhr (0)
ServusGenau das war das Problem wie bekomme ich den String StringAusExcelFeld richtig rüber.Hier auch der Code zum persönlichen anpassen (die FETT markierten stellen.)Code:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Stelli1 am 08.10.2007 um 18:26 Uhr (0)
Hallo,IMHO müsste aber die richtige Caption beim AppActivate verwendet werden um das Fenster auch wirklich zu aktivieren.Oder ist keine Zeichnung offen ?Code:AppActivate "Autocad 2006"AppActivate acApp.CaptionWilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 08.10.2007 um 15:41 Uhr (0)
ServusJo mei, wenn mans logisch durch denkt gehts eh.Code:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y AppActivate "Microsoft Excel" Sheets("start").SelectEnd Sub------------------"Warum Einfach es geht auch komplizi ...
|
| In das Form AutoCAD VBA wechseln |
