Systemvariable die read-only sind ändern (Autodesk/AutoCAD VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Systemvariable die read-only sind ändern (1487 mal gelesen)
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 09. Jan. 2008 09:22 <-- editieren / zitieren --> Unities abgeben: 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
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...	erstellt am: 09. Jan. 2008 09:26 <-- editieren / zitieren --> Unities abgeben: Nur für dj_assp 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 Thoma s Korrekturen zum Kochbuch AutoLISP Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 09. Jan. 2008 09:33 <-- editieren / zitieren --> Unities abgeben: 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
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...	erstellt am: 09. Jan. 2008 10:45 <-- editieren / zitieren --> Unities abgeben: Nur für dj_assp 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 Thoma s Korrekturen zum Kochbuch AutoLISP Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 09. Jan. 2008 11:02 <-- editieren / zitieren --> Unities abgeben: 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
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 ACAD 2008 Mechanical	erstellt am: 09. Jan. 2008 11:09 <-- editieren / zitieren --> Unities abgeben: Nur für dj_assp 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
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 09. Jan. 2008 11:25 <-- editieren / zitieren --> Unities abgeben: 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
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 09. Jan. 2008 11:28 <-- editieren / zitieren --> Unities abgeben: 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
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 ACAD 2008 Mechanical	erstellt am: 09. Jan. 2008 11:31 <-- editieren / zitieren --> Unities abgeben: Nur für dj_assp 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
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 09. Jan. 2008 11:36 <-- editieren / zitieren --> Unities abgeben: 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
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 10. Jan. 2008 08:25 <-- editieren / zitieren --> Unities abgeben: 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
Carsten1210 Mitglied staatl. geprüfter Holztechniker Beiträge: 1357 Registriert: 24.07.2002	erstellt am: 10. Jan. 2008 09:05 <-- editieren / zitieren --> Unities abgeben: Nur für dj_assp 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
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 10. Jan. 2008 09:37 <-- editieren / zitieren --> Unities abgeben: 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
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 10. Jan. 2008 13:16 <-- editieren / zitieren --> Unities abgeben: 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
dj_assp Mitglied Tech. Angestellter Beiträge: 50 Registriert: 02.10.2006 Autocad VBA	erstellt am: 10. Jan. 2008 13:27 <-- editieren / zitieren --> Unities abgeben: 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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)