---

Hallo Leute
Ist es möglich mittels VBA eine read-only Systemvariable zuändern?????

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

---

Hängt davon ab um welche es sich handelt...

Es gibt Variablen die durch andere Werte beinflusst werden und somit ihren Wert ändern können.

Also gibt es keine pauschale Antwort dafür.

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Hallo Thomas

es geht um folgendes ich muss in einem Programm die möglichkeit haben die Plotstieltabelle von STB auf CTB um zustellen.
wenn ich es über den Befehl "CONVERTPSTYLES" versuche bekomme ich immer einen Dialog denn ich mit "OK" bestättigen muss und ich habe es nicht zusammen gebracht ihn mittels VBA zubestättigen.
und jetzt gibt es die SYSVar "PSTYLEpolicy" die ist aber "read-only"
über diese müsste es auch funktioieren.

Alex

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

---

Was willst du mit dieser Variable bezwecken?

Zitat:

---

PSTYLEPOLICY System Variable

Type: Integer
Saved in: Registry
Initial value: 1

Controls whether an object's color property is associated with its plot style. The new value you assign affects only newly created drawings and pre-AutoCAD2000 drawings.

0 No association is made between color and plot style. The plot style for new objects is set to the default defined in DEFPLSTYLE. The plot style for new layers is set to the default defined in DEFLPLSTYLE.

1 An object's plot style is associated with its color.

---

Das hat keine Auswirkungen bei bestehenden Zeichnungen..

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Hallo Thomas
Das ist nur eine ist nur eine von vier Variablen
Ich habe folgendes gemacht ich bin hergegangen und habe den Systemvarablen-Editor von den Express Tools gestartet und habe sie mir in eine Text-Datei gespeichert.
dann habe ich den Befehl "CONVERTPSTYLES" aus geführt und die Variabeln wieder exportiert.
und die zwei Textfiles habe ich dann im Excel verglichen

es sind dann folgende Varablen geändert worden:

; read-only - CPLOTSTYLE "ByColor"
; read-only - DATE 2454475.3608
; read-only - DEFLPLSTYLE "ByColor"
; read-only - DEFPLSTYLE "ByColor"
; read-only - PSTYLEMODE 1
; read-only - TDINDWG 0.0114
; read-only - TDUSRTIMER 0.0114
; read-only - TEMPPREFIX "C:\\DOCUME~1\\atw11nn2\\LOCALS~1\\Temp\\"
(setvar "XLOADPATH" "C:\\DOCUME~1\\atw11nn2\\LOCALS~1\\Temp\\")

so und ich bin der Meinung wenn ich von denn 9 Variablen 4 (CPLOTSTYLE, DEFLPLSTYLE, DEFPLSTYLE, PSTYLEMODE)ändere musste es klappen.
Das müsste dann so funktionieren.

Alex

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

---

die systemvariablen änderst du (zum Teil) nit dem Befehl "CONVERTPSTYLES" .. den dialog kannst du vermeiden , indem du CONVERTPSTYLES innerhalb eines Command-Aufrufes ausführst.Also (command "CONVERTPSTYLES" ...) oder in VBA mit sendcommand.

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Das habe ich schon Probiert, habe aber ein Problem dabei

der Command schaut wenn ich ihn eingebe so aus:
(command "CONVERTPSTYLES" "_n")

wenn ich es über VBA ausführe mit SendCommand
ThisDrawing.SendCommand "(command "CONVERTPSTYLES" "_n")" & vbCr

Das geht so nicht wegen den (") und ich finde aber keine andere Lösung

Vieleicht geht es noch anders

Alex

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

---

Ich bin schon drauf gekommen wie es geht

ThisDrawing.SendCommand "(command ""CONVERTPSTYLES"" ""_n"")" & vbCr

Alex

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

---

Zitat:

---

Original erstellt von dj_assp:
Ich bin schon drauf gekommen wie es geht

ThisDrawing.SendCommand "(command ""CONVERTPSTYLES"" ""_n"")" & vbCr

Alex

---

IMHO so
ThisDrawing.SendCommand ("CONVERTPSTYLES" & vbCr "_n" & vbCr)

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Alex[/b][/QUOTE]
IMHO so
ThisDrawing.SendCommand ("CONVERTPSTYLES" & vbCr "_n" & vbCr)

[/i][/QUOTE]

Wenn ich es so mache bekomme ich wenn ich das Prog. beende wieder die Meldung
wenn ich es so (command "......) mache geht es einwandfrei!

Alex

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

---

Jetzt habe ich ein anderes Problem
Ich wollte jetzt mit dem Befehl
ThisDrawing.ActiveLayout.StyleSheet = "Lineweight.ctb"
die CTB setzten aber es entsteht ein Fehler
jetzt ist meine Frage giebt es eine Möglichkeit den Befehl "CONVERTPSTYLES" auch anders lösen, über VBA?

Alex

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

---

Hi Alex,

Wie sieht die Fehlermeldung aus, falls es eine gibt?!

Ich kann dein Problem so noch nicht nachvollziehen. Ich kann eine CTB ohne Probleme setzen.

Gruß, Carsten

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

---

Hallo Carsten

Ich bekomme im VBA folgende Meldung

"Run-time error '2145386493 (80200003)': Invalid input"

Ich glaube das es sich um folgendes Problem handelt.
Ich habe die Befehlsfolge so geschrieben:

    ThisDrawing.SendCommand "(command ""CONVERTPSTYLES"")" & vbCr
    ThisDrawing.ActiveLayout.StyleSheet = "Lineweight.ctb"

Ich schätze das aus irgeneinem Grund der Befehl "SendCommand" nicht sofort ausgeführt wird.
Aber die VBA Rotine sofort, weil wenn ich es noch einmal durchlaufen lasse funktioniert es einwand frei.

Grüsse Alex

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

---

Hallo Carsten

Ich habe jetzt das Problem gefunden.
Das problem ist der SendCommand Befehl.
Der wird erst ausgeführt wenn das Program beendet wird und der VBA Befehl sofort.

Gibt es eine andere Möglichkeit statt SendCommand??

Grüsse Alex

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

---

Ich muss das Dialogfenster aus bleden dann geht es.
Weil der SendComman erst dann ausgeführt wird.

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