EXTRAS --OPTIO - ANZ - FARBE (Autodesk/Rund um AutoCAD)

Tagchen Forum

nur allzuoft erstelle ich mir ein WMF für andere Programme.
Dafür mach ich mir meinen Hintergrund weiss.
Sonst zeichne ich auf schwarzem Hintergr.

Den Weg zum "weiss" kennt man ja
Menü - Extras - Optionen - Anzeige - Farben - .......

Kennt jemand die Variablen für ein Script oder andere kurze "Eintastenwege" hierfür ?

Mozi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo,

Vorlage (z.B. WMF.dwt) mit weißem Hintergrund für WMF Bilder erstellen und verwenden,
andernfalls Vorlage (normal.dwt) mit schwarzem Hintergrund.

Gruss
Susi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hi,

wenn Du A2k oder später hast, heißt die magische Variable WMFBKGND
Und das sagt die freundliche Online-Hilfe dazu:

Steuert, ob der Hintergrund von AutoCAD-Objekten in anderen Anwendungen transparent angezeigt wird, wenn diese Objekte

an eine Windows®-Metadatei ausgegeben werden (mit dem BefehlWMFOUT)
in die Zwischenablage von AutoCAD kopiert und dann als Windows®-Metadatei eingefügt werden
aus AutoCAD gezogen und als Windows-Metadatei abgelegt werden

Die von AutoCAD definierten Werte sind:

0 Die Hintergrundfarbe ist transparent. Die Vordergrundfarbe richtet sich nach der Einstellung vonWMFFOREGND.
1 Die Hintergrundfarbe entspricht der aktuellen Hintergrundfarbe in AutoCAD (im Modellbereich oder in einem Layout). Die Vordergrundfarbe bleibt unverändert.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Na das schmeckt mir wie auf den Pommes.......

Sofort probiert und funktioniert.
Danke CADchup

Danke auch an SUSI aber über Vorlage geht das anscheinend nikkese.

Schönes Wochenende wünscht Mozi

[Diese Nachricht wurde von Mozi am 22. März 2002 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Mozi!

Apropos Hintergrundfarbe! Weil ich hin und wieder die Hintergrundfarbe wechsel (je nachdem was ich mit welchen Farben mache) habe ich das Wechseln der Farben in drei kleine VBA-Programme gepackt! Der Code:

Sub Hintergrund_weiß()
Application.Preferences.Display.GraphicsWinModelBackgrndColor = 16777215
Application.Preferences.Display.ModelCrosshairColor = 0
End Sub

Sub Hintergrund_schwarz()
Application.Preferences.Display.GraphicsWinModelBackgrndColor = 0
Application.Preferences.Display.ModelCrosshairColor = 16777215
End Sub

Sub Hintergrund_grau()
Application.Preferences.Display.GraphicsWinModelBackgrndColor = 14079702
Application.Preferences.Display.ModelCrosshairColor = 0
End Sub

Diesen Code einfach in ein Modul einfügen und den entsprechende Makro aufrufen. In einer Schaltfläche sieht das so aus:

^C^C-vbarun hintergrund_weiß
(die anderen entsprechend)

Wenn die Projektdatei immer automatisch geladen wird, stehen die Befehle auch immer direkt zur Verfügung. Zum Automatischen laden einer VBA-Datei muss ich auch erst noch mal die Hilfe quälen. Deshalb hier keine angaben.

Gruß Stefan

[Diese Nachricht wurde von s.wickel am 22. März 2002 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Ich habe nicht viel Ahnung vom Programmieren.
Wie packe ich den deine Befehle in ein Modul, besser, was ist den ein Modul?

Bitte nicht lachen wegen meiner Unwissenheit.

Sparky

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Sparky,

wichtig ist, dass du bei der Installation auch VBA installiert hast. Wenn nicht bitte nachholen.

Du gehst am besten wie folgt vor:

Menü Extras -> Makro -> VBA-Manager

Das Feld Projekte ist wahrscheinlich leer. Wenn nicht ist's auch egal.
Gehe rechts auf den Button NEU.

Klicke das entstandene Projekt an und gehe auf Speichern unter. Wähle einen Dateinamen.
Nach dem Speichern gehst du auf Visual Basic Editor. Wundere dich nicht, wenn in der Titelleiste was von Microsoft steht. Ist Ok so.
In dem sich öffnenden Programmfenster wählst du aus dem Menü Einfügen -> Modul.
Jetzt kannst du rechts im Fenster den Programmcode einfügen.

Den Visual Basic Editor kannst du jetzt wieder schließen.

Jetzt gehst du in ACAD wieder ins Menü Extras -> Makro -> Makros.

In der Liste stehen jetzt die neu erzeugten Makros. Zum Ausführen einfach doppelklicken.

Bei Fragen bitte noch mal posten.

Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Tagchen alle

Diese Infos sind Oberspitze !

Nun der nächste Schritt ...

Aus Gründen der Verstädigung Ägyptisch-Deutsch
hier in Naivsprache :

^C^C
( IF
Appli....ModelBackgrndColor = 16777215
Then
-vbarun hintergrund_schwarz
)
( IF
Appli....ModelBackgrndColor = 0
Then
-vbarun hintergrund_grau
)
( IF
Appli....ModelBackgrndColor = 14079702
Then
-vbarun hintergrund_weiß
)

Also ein Button
Wenn Hintergr. = soundso, dann mach soundso
Rundumlaufend schwarz/grau/weiss

Aaaaber wie greiff ich diese Variable ? Bin ein totaler VBA !
"Visualbasic Brutal Ahnungslooser"

Mozi

[Diese Nachricht wurde von Mozi am 25. März 2002 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Wickel,

hab dank für deine kleine Einführung. Wie ich das verstanden habe, wäre es wohl vom größten Vorteil wenn man ein wenig Visuel Basic kann. Das kann ich nicht. Ich habe mal versucht mich da reinzulesen, aber es dann doch wieder gelassen. Naja, das kann ich ja nachholen. Mir scheint das man mit Visual Basic in AutoCad noch viel heraus holen kann. Vor allem wenn ich halt solche Makros machen will.

Ist denn dann mit der Möglichkeit Visual Basic einzusetzten das AutoLisp hinfällig oder sind das zwei ganz unterschiedliche Wege Marcos oder Module im AutoCad zu erstellen ?

bis dann und noch mal thx

Sparky

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

- > kann. Das kann ich nicht. Ich habe mal versucht mich da reinzulesen,

Hallo Sparky,
ich glaube, daß das doch lohnenswert ist sich da reinzulesen.
Hab das gerade mal so gemacht, wie hier von s.wickel
beschrieben. Hat aufs erste mal geklappt.
Ich brauch zwar nun, wo ich die WMF-Variable nutze keine Hintergrundverfarbungen mehr, aber das war zu interessant.

Daher wollte ich hier noch etwas fragen. Wir sind anscheinend gerade zugleich online.

Mozi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Sparky!

In der Hilfe läßt sich Autodesk auch über das Verhältnis von VBA und Lisp aus (In ACAD 14 war die Hilfe noch deutsch). VBA soll danach kein Ersatz für LISP sein. Ich finde LISP ist viel einfacher und man hat schneller Erfolg als bei VBA. Ich habe in VBA auch nur ein paar Makros geschrieben, die mit LISP nicht gehen. Z. B. kann man mit VBA Daten aus Exceltabllen einlesen. Da ich viel in Excel mit VBA arbeite fiel mir der Einstieg auch nicht so schwer. Aber für die kleinen Programmieraufgaben die ich so zu bewältigen habe nutze ich halt doch eher LISP.

Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

hi @all,

sehr interessante sache, eine frage habe ich noch:

Zitat:
Original erstellt von s.wickel:
Hallo Mozi!
...Wenn die Projektdatei immer automatisch geladen wird, stehen die Befehle auch immer direkt zur Verfügung. Zum Automatischen laden einer VBA-Datei muss ich auch erst noch mal die Hilfe quälen. Deshalb hier keine angaben...

wie bekommt man denn eine *.dvb automatisch geladen? ich habe es über einen eintrag in der acaddoc.lsp (appload ...) versucht, es aber nicht hinbekommen. wie lautet der korrekte aufruf und wo muß der drinstehen, damit er immer geladen wird?
das laden eines projektes (wie von Stefan beschrieben) funzt problemlos. aber es geht mir nicht um einen arbeitsplatz, sondern um ein zusatzmenü, das ich per kopieren und profil auf vielen workstations lade. bis jetzt lasse ich mehrere hilfreiche lisproutinen über die o.g. datei mitladen, das funzt.
wer kann bei den vba's helfen?

Yeti

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Mozi!

Bei der letzten Anwort hatte ich deine Nachricht noch nicht gelesen!

Lies die Variable nicht im Schaltflächenmakro aus sondern erst in dem VBA-Makro selbst. Dann brauchst du auch nur noch ein Programm.

Sub Hintergrund_wechsel()
Select Case Application.Preferences.Display.GraphicsWinModelBackgrndColor
'Anhand des Variablenwertes eine Aktion durchführen
'entspricht in Lisp dem Befehl (COND ......)
Case 0 'schwarz
Application.Preferences.Display.GraphicsWinModelBackgrndColor = 14079702 'grau im Hintergrund
Application.Preferences.Display.ModelCrosshairColor = 0 'Schwarzes Fadenkreuz
Case 14079702 'grau
Application.Preferences.Display.GraphicsWinModelBackgrndColor = 16777215 'weiß im Hintergrund
Application.Preferences.Display.ModelCrosshairColor = 0 'Schwarzes Fadenkreuz
Case 16777215 'weiß
Application.Preferences.Display.GraphicsWinModelBackgrndColor = 0 'schwarz im Hintergrund
Application.Preferences.Display.ModelCrosshairColor = 16777215 'weißes Fadenkreuz
Case Else 'alle anderen Farben
Application.Preferences.Display.GraphicsWinModelBackgrndColor = 0 'schwarz im Hintergrund
Application.Preferences.Display.ModelCrosshairColor = 16777215 'weißes Fadenkreuz
End Select
End Sub

Den Code hab ich eben getestet. Funktioniert. In ACAD 14 hatte ich einen VBA-Makro wo man die Nummer der Hintergrundfarbe eingeben konnte. Leider hat Autodesk in diesem Bereich ein paar Änderungen vorgenommen, so dass ich den Makro in die Tonne kloppen konnte.

Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo YETI!

Ich muss ehrlicherweise zugeben, dass ich mir das bisher immer irgenwie zurechtgefuddelt habe und gar nicht genau weiß wie ich das hinbekommen habe.

Das sagt die ACAD14 Hilfe dazu (die ich mir vor dem Update auf 2002 gesichert habe, weil in 2002 die LISP-Hilfe in Englisch ist!):

Es gibt zwei Möglichkeiten, ein VBA-Projekt automatisch zu laden:

Wenn VBA geladen wird, sucht es im AutoCAD-Verzeichnis nach einem Projekt acad.dvb . Diese Datei wird automatisch als Vorgabeprojekt geladen.
Jedes andere Projekt als das Vorgabeprojektacad.dvb kann explizit beim Start durch den Befehl VBALOAD geladen werden. Im folgenden Code-Beispiel wird die AutoLISP-Start-up-Datei dazu verwendet, VBA und ein VBA-Projekt namensmyproj.dvb beim Start von AutoCAD zu laden. Starten Sie notepad.exe , und erstellen (oder erweitern) Sie die Datei acad.lsp mit den folgenden Zeilen:

(defun S::STARTUP()
(command "_VBALOAD" "myproj.dvb")
)

Probiers einfach aus. Ich arbeite mit dem Projekt ACAD.DVB. Inzwischen kann man auch Projekte in Zeichnungen speichern (wie Makros in einer Excel-Tabelle), dann stehen sie nur zur Verfügung, wenn die entsprechende Zeichnung geladen wurde.

Gruß, Stefan

[Diese Nachricht wurde von s.wickel am 25. März 2002 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

das war besser als SEX.....
was nicht heissen soll, daß ich mit meinem Rechner....
(meiner Rechnerin...)

Mozi

[Diese Nachricht wurde von Mozi am 25. März 2002 editiert.]

nachträgliche -> konstruktive <- ....
Case 16777215 'weiß
......
könnte rausgelassen werden
(ich habs drinngelassen, weil das alles so schön war)

[Diese Nachricht wurde von Mozi am 25. März 2002 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

DANKE Stefan und alle anderen!

Zitat:
Original erstellt von s.wickel:
Hallo YETI!
Ich muss ehrlicherweise zugeben, dass ich mir das bisher immer irgenwie zurechtgefuddelt habe und gar nicht genau weiß wie ich das hinbekommen habe.

Mach ich eigentlich auch immer so, erstmal probieren und dann irgendwann fragen...
Hat wunderbar geklappt mit dem Eintrag in der acaddoc.lsp!!!
Es macht doch immer wieder Spaß hier im Forum.

------------------
hopethishelps

Yeti

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Zitat:
Original erstellt von s.wickel:
Es gibt zwei Möglichkeiten, ein VBA-Projekt automatisch zu laden:
Wenn VBA geladen wird, sucht es im AutoCAD-Verzeichnis nach einem Projekt acad.dvb . Diese Datei wird automatisch als Vorgabeprojekt geladen.
Jedes andere Projekt als das Vorgabeprojektacad.dvb kann explizit beim Start durch den Befehl VBALOAD geladen werden. Im folgenden Code-Beispiel wird die AutoLISP-Start-up-Datei dazu verwendet, VBA und ein VBA-Projekt namensmyproj.dvb beim Start von AutoCAD zu laden. Starten Sie notepad.exe , und erstellen (oder erweitern) Sie die Datei acad.lsp mit den folgenden Zeilen:
(defun S::STARTUP()
(command "_VBALOAD" "myproj.dvb")
)

Hi Stefan,

nur noch 'ne kleine anmerkung: beim laden über die acaddoc.lsp mit dem (defun.... -befehl kommt es zu einem unerwünschten effekt. das autocad-aktuell-fenster wird nicht mehr automatisch beim acadstart mit hochgeladen. wenn man das projekt mit der acad.dvb und der autostartgruppe lädt, tritt dieser effekt nicht auf. hast du dafür eine erklärung bzw. weiß jemand anders, worauf das zurückzuführen ist?

------------------
hopethishelps

Yeti

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hi Yeti,
zu:
"nur noch 'ne kleine anmerkung: beim laden über die acaddoc.lsp mit dem (defun.... -befehl kommt es zu einem unerwünschten effekt. das autocad-aktuell-fenster wird nicht mehr automatisch beim acadstart mit hochgeladen."

Und eben drum verwende ich in meiner "Acaddoc.lsp" diese Form:

Code:

(defun S::STARTUP()
(vl-vbaload (findfile "myproj.dvb"))
)

Damit gibt's keine Probleme mit dem "Acad-Aktuell".
Ciao,
Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

hi marc,

danke für den tip. werde es montag auf arbeit gleich mal ausprobieren.
schönes wochenende an alle.

------------------
hopethishelps

Yeti

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Zitat:
Original erstellt von s.wickel:
Du gehst am besten wie folgt vor:
Menü Extras -> Makro -> VBA-Manager
Stefan

Häng mich hier mal dran, obwohl schon bissl älteres Thema...

Wie geht das in R14? Kann ich den VBA-Manager dort auch irgendwie "aktivieren"? Meines Wissens gabŽs denn ja erst ab AC2000

------------------
mfG
Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Soviel ich mich erinnern kann, von Acad CD
installieren, gabs aber erst in Acad 14.01
oder wie das Update auch immer hieß.

------------------
Bernd Cuder
Cad&Co makes CAD easy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Bei der ACAD 14.01 kann die VBA-Unterstützung gleich mit installiert werden. Bei der ACAD 14.0 muss man noch ein anderes Setupprogramm von der CD ausführen. Jedenfalls meine ich mich daran zu erinnern. Wir hatten beide Versionen im Büro. In irgendeiner Hilfedatei ist das auch erklärt. Einfach mal auf der CD nachsehen.

------------------
Nodda,

Stefan

[Diese Nachricht wurde von s.wickel am 20. Januar 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

VBA ist ja mit installiert (Editor etc.), nur den VBA-Manager kann ich nicht starten. Frage war also: GabŽs denn erst ab 2000 und wenn ja, kann ich den in 14.01 trotzdem mit einbinden?

------------------
mfG
Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo 1000Hands!

Tja, ich glaube den Projektmanager gab's noch nicht. Ich habe ihn aber auch unter 2002 noch nie verwendet. Allerdings weiß ich noch, dass man unter ACAD 14 nur ein Projekt auf einmal laden kann. Also benötigt man auch keinen Manager.

------------------
Nodda,

Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP