|
Lisp : Systemvariablen in Bemaßungsstilen ändern
Musicus am 19.11.2009 um 15:48 Uhr (0)
Hallo Forum,zugegeben, es ist schon eine Weile her, dass ich mich zuletzt mit LISP auseinander gesetzt habe und ich habe jetzt auch nicht das ganze Forum hier per Suchfunktion umgekrempelt, ich setze jetzt einfach mal in euch, dass ihr mir etwas auf die Sprünge helft bzw. auf den richtigen Weg bringt.Folgende Problemstellung:Ich habe eine Zeichnung mit unbekannter Anzahl Bemaßungsstilen mit unbekannten Namen. Ich will diese Bemaßungsstile jetzt ändern, konkret will ich die Farbzuweisung für Linien und Text ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
Musicus am 19.11.2009 um 15:48 Uhr (0)
Hallo Forum,zugegeben, es ist schon eine Weile her, dass ich mich zuletzt mit LISP auseinander gesetzt habe und ich habe jetzt auch nicht das ganze Forum hier per Suchfunktion umgekrempelt, ich setze jetzt einfach mal in euch, dass ihr mir etwas auf die Sprünge helft bzw. auf den richtigen Weg bringt.Folgende Problemstellung:Ich habe eine Zeichnung mit unbekannter Anzahl Bemaßungsstilen mit unbekannten Namen. Ich will diese Bemaßungsstile jetzt ändern, konkret will ich die Farbzuweisung für Linien und Text ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
cadffm am 25.11.2009 um 14:46 Uhr (0)
na damit kann man so langsam arbeiten ..Zur neueren Version:(setq STILNAME (cdr(assoc 2 (tblnext "DIMSTYLE"))))austauschen gegen(setq STILNAME (cdr(assoc 2 STILDEF)))(command "-bemstil" "si" STILNAME "j")austauschen gegen(command "-bemstil" "ho" STILNAME)(setq STILNAME (tblnext "DIMSTYLE"))austauschen gegen (setq STILDEF (tblnext "DIMSTYLE"))NachtragNur mal nebenbei: Dein Code berücksichtigt nicht die Füllfarbe des (MT)Textes - falls das nur vergessen wurde..Und: So wie der Code dann aussieht muß man 2-3 D ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
cadffm am 25.11.2009 um 19:06 Uhr (0)
Weil du für die Aktualisierung der vorhandenen Bemaßungsobjekten einen AutoCAD-Befehl nutzt(Command ist ja nichts anderes wie eine Tastatureingabe in die Befehlszeile und "BEM" der Befehl -wirkt sich das Ganze Aktualisieren natürlich nur auf Objekte im aktuellen Bereich aus ! (ssget "_X" wählt zwar auch in allen anderen Layouts/Modellbereich Objekte aus, "BEM"wirft die Objekte aber wieder aus dem Bearbeitungssatz raus.Das sollte nun aber die letzte (ungefragte) Info sein dazu denke ich ------------------d ...
|
| In das Form Lisp wechseln |
|
Lisp : Reaktoren auf ATHENA-Befehl
wisch am 25.11.2009 um 16:39 Uhr (0)
Ich habe von mapcarunter http://www.visuallisp-tutorial.mapcar.net/layreactor.html eine lisp gefunden, die mir grundsätzlich ganz gut passen würde.Es funktioniert auch super, solange ich Autocad-Befehle zum Ansprechen des Reaktors verwende.Da ich ATHENA einsetze und ich einen Befehl von ATHENA ("ATH_HOKO") ebenfalls mit in die Liste aufnehmen will, hab ich einfach mal versucht diesen Befehl bei den ganzen DIM-Befehlen hinten anzureihen, aber es funktioniert nicht!Funktionieren die Reaktoren nur für AutoCAD ...
|
| In das Form Lisp wechseln |
|
Lisp : Reaktoren auf ATHENA-Befehl
archtools am 25.11.2009 um 18:14 Uhr (0)
Zitat:Original erstellt von wisch:Ich habe von mapcarunter http://www.visuallisp-tutorial.mapcar.net/layreactor.html eine lisp gefunden, die mir grundsätzlich ganz gut passen würde.Es funktioniert auch super, solange ich Autocad-Befehle zum Ansprechen des Reaktors verwende.Da ich ATHENA einsetze und ich einen Befehl von ATHENA ("ATH_HOKO") ebenfalls mit in die Liste aufnehmen will, hab ich einfach mal versucht diesen Befehl bei den ganzen DIM-Befehlen hinten anzureihen, aber es funktioniert nicht!Funktion ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
Musicus am 19.11.2009 um 15:48 Uhr (0)
Hallo Forum,zugegeben, es ist schon eine Weile her, dass ich mich zuletzt mit LISP auseinander gesetzt habe und ich habe jetzt auch nicht das ganze Forum hier per Suchfunktion umgekrempelt, ich setze jetzt einfach mal in euch, dass ihr mir etwas auf die Sprünge helft bzw. auf den richtigen Weg bringt.Folgende Problemstellung:Ich habe eine Zeichnung mit unbekannter Anzahl Bemaßungsstilen mit unbekannten Namen. Ich will diese Bemaßungsstile jetzt ändern, konkret will ich die Farbzuweisung für Linien und Text ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
cadffm am 25.11.2009 um 14:46 Uhr (0)
na damit kann man so langsam arbeiten ..Zur neueren Version:(setq STILNAME (cdr(assoc 2 (tblnext "DIMSTYLE"))))austauschen gegen(setq STILNAME (cdr(assoc 2 STILDEF)))(command "-bemstil" "si" STILNAME "j")austauschen gegen(command "-bemstil" "ho" STILNAME)(setq STILNAME (tblnext "DIMSTYLE"))austauschen gegen (setq STILDEF (tblnext "DIMSTYLE"))NachtragNur mal nebenbei: Dein Code berücksichtigt nicht die Füllfarbe des (MT)Textes - falls das nur vergessen wurde..Und: So wie der Code dann aussieht muß man 2-3 D ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
cadffm am 25.11.2009 um 19:06 Uhr (0)
Weil du für die Aktualisierung der vorhandenen Bemaßungsobjekten einen AutoCAD-Befehl nutzt(Command ist ja nichts anderes wie eine Tastatureingabe in die Befehlszeile und "BEM" der Befehl -wirkt sich das Ganze Aktualisieren natürlich nur auf Objekte im aktuellen Bereich aus ! (ssget "_X" wählt zwar auch in allen anderen Layouts/Modellbereich Objekte aus, "BEM"wirft die Objekte aber wieder aus dem Bearbeitungssatz raus.Das sollte nun aber die letzte (ungefragte) Info sein dazu denke ich ------------------d ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
CADmium am 25.11.2009 um 20:18 Uhr (0)
Zitat:Original erstellt von cadffm:Weil du für die Aktualisierung der vorhandenen Bemaßungsobjekten einen AutoCAD-Befehl nutzt(Command ist ja nichts anderes wie eine Tastatureingabe in die Befehlszeile und "BEM" der Befehl -wirkt sich das Ganze Aktualisieren natürlich nur auf Objekte im aktuellen Bereich aus ! (ssget "_X" wählt zwar auch in allen anderen Layouts/Modellbereich Objekte aus, "BEM"wirft die Objekte aber wieder aus dem Bearbeitungssatz raus.Das sollte nun aber die letzte (ungefragte) Info sein ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
Musicus am 19.11.2009 um 15:48 Uhr (0)
Hallo Forum,zugegeben, es ist schon eine Weile her, dass ich mich zuletzt mit LISP auseinander gesetzt habe und ich habe jetzt auch nicht das ganze Forum hier per Suchfunktion umgekrempelt, ich setze jetzt einfach mal in euch, dass ihr mir etwas auf die Sprünge helft bzw. auf den richtigen Weg bringt.Folgende Problemstellung:Ich habe eine Zeichnung mit unbekannter Anzahl Bemaßungsstilen mit unbekannten Namen. Ich will diese Bemaßungsstile jetzt ändern, konkret will ich die Farbzuweisung für Linien und Text ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
cadffm am 25.11.2009 um 14:46 Uhr (0)
na damit kann man so langsam arbeiten ..Zur neueren Version:(setq STILNAME (cdr(assoc 2 (tblnext "DIMSTYLE"))))austauschen gegen(setq STILNAME (cdr(assoc 2 STILDEF)))(command "-bemstil" "si" STILNAME "j")austauschen gegen(command "-bemstil" "ho" STILNAME)(setq STILNAME (tblnext "DIMSTYLE"))austauschen gegen (setq STILDEF (tblnext "DIMSTYLE"))NachtragNur mal nebenbei: Dein Code berücksichtigt nicht die Füllfarbe des (MT)Textes - falls das nur vergessen wurde..Und: So wie der Code dann aussieht muß man 2-3 D ...
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariablen in Bemaßungsstilen ändern
cadffm am 25.11.2009 um 19:06 Uhr (0)
Weil du für die Aktualisierung der vorhandenen Bemaßungsobjekten einen AutoCAD-Befehl nutzt(Command ist ja nichts anderes wie eine Tastatureingabe in die Befehlszeile und "BEM" der Befehl -wirkt sich das Ganze Aktualisieren natürlich nur auf Objekte im aktuellen Bereich aus ! (ssget "_X" wählt zwar auch in allen anderen Layouts/Modellbereich Objekte aus, "BEM"wirft die Objekte aber wieder aus dem Bearbeitungssatz raus.Das sollte nun aber die letzte (ungefragte) Info sein dazu denke ich ------------------d ...
|
| In das Form Lisp wechseln |
