| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Layer die eine Farbe haben eine andere Farbe sowie eine Linienstärke zuweisen (2900 mal gelesen)
|
-ikarus- Mitglied Zeichner
Beiträge: 142 Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015 Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro, Visual Studio 2013 Notepad++ Rechner: HP Z620 Workstation NVIDIA Quadro K4000
|
erstellt am: 23. Apr. 2014 10:03 <-- editieren / zitieren --> Unities abgeben:
Hab da schon wieder eine Frage. Kennt jemand eine Lisp die alle Layer mit der gleichen Farbe eine RGB-Farbe und eine Linienstärke zuweist. Der Hintergrund ist, ich habe eine DWG mit CTB verschickt, jetzt kommt das Büro mit seinem CAD System nicht mit der CTB zurecht. Da hab ich mir gedacht ich erstelle eine *.DWS zum Layer konvertieren, das funktioniert auch ganz gut. Nur wenn jetzt von unseren Konstrukteuren ein neuer Layer, der nicht in der DWS definiert ist, dazu kommt dann fehlt der natürlich. Aus diesem Grund würde ich gerne die Lösung mit einer Lisp bevorzugen. Das würde bedeuten, dass die Lisp die Layer durchgeht und alle nach einer (if... Abfrage jeweils ändert. Falls es da schon was gibt, würde ich mir die Arbeit ersparen, ansonsten muss ich mir die Arbeit ersparen, ansonsten muss ich mich doch da mal dran machen. Danke schönen Gruß Jürgen P.S. oder hat jemand eine bessere Idee Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 23. Apr. 2014 10:07 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2018.1.2 (Plant3D) AVIS ACAD LT 2013- 2020 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 23. Apr. 2014 10:20 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
.... so aus dem Bauch Filter oder swahl Eigenschafenten ändern und gut cu cw ------------------ Also ich finde Unities gut ... und andere sicher auch ------------------------------------------------ cadwomen™ Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
-ikarus- Mitglied Zeichner
Beiträge: 142 Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015 Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro, Visual Studio 2013 Notepad++ Rechner: HP Z620 Workstation NVIDIA Quadro K4000
|
erstellt am: 23. Apr. 2014 10:32 <-- editieren / zitieren --> Unities abgeben:
Danke für die schnelle Antwort. Das mit dem filter und der swahl geht auch bei Layern-Farben (keine Objektfarbe)? Wenn ich über ein Script mit -Layer gehe muss ich ja auch erst alle Layernamen haben und abarbeiten oder? Da komme ich mit dem Befehl: LAYKONV schneller klar da ich ja auch den umgekehrten weg wieder gehen kann. Bei der Lisp dachte ich an eine Schleife und einer CSV Datei als Quelle.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 23. Apr. 2014 10:39 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 23. Apr. 2014 10:43 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
|
-ikarus- Mitglied Zeichner
Beiträge: 142 Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015 Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro, Visual Studio 2013 Notepad++ Rechner: HP Z620 Workstation NVIDIA Quadro K4000
|
erstellt am: 23. Apr. 2014 10:51 <-- editieren / zitieren --> Unities abgeben:
|
-ikarus- Mitglied Zeichner
Beiträge: 142 Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015 Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro, Visual Studio 2013 Notepad++ Rechner: HP Z620 Workstation NVIDIA Quadro K4000
|
erstellt am: 23. Apr. 2014 11:02 <-- editieren / zitieren --> Unities abgeben:
Noch kurz cadffm das mit dem -layer habe ich nicht ganz verstanden ich kann doch nur den Layer ändern wenn ich den Layer mit Namen anspreche und dann mit mach Layer änder oder kann ich da auch alle Layer mit z.B. Rot ansprechen die in der DWG vorhanden sind und dann ändern? Ich müsste doch erst alle Layer mit der Farbe Rot an eine Liste übergeben und dann über -layer bearbeiten oder? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2018.1.2 (Plant3D) AVIS ACAD LT 2013- 2020 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 23. Apr. 2014 11:06 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
Zitat: Original erstellt von -ikarus-:...Ich müsste doch erst alle Layer mit der Farbe Rot an eine Liste übergeben und dann über -layer bearbeiten oder? [/B]
sowas kann man über ein vbs/ Batch machen
zieh das mal kurz zurück cu cw ------------------ Also ich finde Unities gut ... und andere sicher auch ------------------------------------------------ cadwomen™ Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht [Diese Nachricht wurde von cadwomen am 23. Apr. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 23. Apr. 2014 12:40 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
|
-ikarus- Mitglied Zeichner
Beiträge: 142 Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015 Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro, Visual Studio 2013 Notepad++ Rechner: HP Z620 Workstation NVIDIA Quadro K4000
|
erstellt am: 23. Apr. 2014 12:48 <-- editieren / zitieren --> Unities abgeben:
Achso jetzt verstehe ich. Ja meine Absicht ist schon die 255 ACAD Farben abzurufen und listen mit den Layernamen zu erstellen und diese dann doch über -layer der Farbe zuweisen. Danke für die guten Beiträge. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 23. Apr. 2014 12:51 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
|
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 23. Apr. 2014 13:11 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
|
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 23. Apr. 2014 13:13 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 23. Apr. 2014 13:18 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
Servus, gibt es ein Möglichkeit die CTB bzw. STB auf die DWG anzuwenden? So wie "Plotstile anzeigen" nur halt statt anzeigen>anwenden. Wäre eine einfache Möglichkeit Projekte von verschiedenen Planern zu verwenden ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
-ikarus- Mitglied Zeichner
Beiträge: 142 Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015 Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro, Visual Studio 2013 Notepad++ Rechner: HP Z620 Workstation NVIDIA Quadro K4000
|
erstellt am: 24. Apr. 2014 16:43 <-- editieren / zitieren --> Unities abgeben:
Hallo, also ich bin kein Profi aber was ich da gebastelt hab funktioniert soweit und das will ich euch nicht vorenthalten. Ich weiß eine Fehler-Abfragung fehlt noch.
Code: ; mit dem Viewer http://www.noliturbare.com/plot-print/print-ctbs-and-more die CTB in eine *.INI speichern ; und in der letzten Zeile der INI ENDE eintragen(princ "Am Ende der INI in die letzte Zeile bitte ENDE eintragen " ) (defun parse_nums (st / a k lst) (setq k 1) (setq a "") (setq lst nil) (repeat (strlen st) (if (= (substr st k 1) " ") (progn (setq lst (append lst (list a))) (setq a "") ) (setq a (strcat a (substr st k 1))) ) (setq k (+ k 1)) ) (setq lst (append lst (list a))) ) (defun c:konvlayer (/); layerliste layername layerfarbe ) (vl-load-com) (if (setq FILE (getfiled "Layer INI einlesen" (getvar "dwgprefix") "ini" 8 )) ;"C:\\" (progn (setq aL (tblnext "LAYER" t )) (while aL (setq layername (cdr (assoc 2 aL ))) (setq layerfarbe (cdr (assoc 62 aL ))) (setq f (open File "r" )) (setq dataline (read-line f)) (setq dataline (read-line f)) (while (/= dataline "ENDE") (setq dataline (parse_nums dataline)) (setq _layerfarbe (atoi (substr (nth 0 dataline ) 7 ) )) (setq _RGB-farbe (nth 2 dataline )) (setq _linienstaerke (strcat (substr (nth 11 dataline ) 1 1 ) "." (substr (nth 11 dataline ) 3) )) (if (= layerfarbe _layerfarbe ) (progn (if (/= "(Object)" _RGB-farbe ) (progn (command "-layer" "Fa" "T" _RGB-farbe layername "ls" _linienstaerke layername "" )) (princ) ) ) (princ) ) (setq dataline (read-line f )) ) (close f) (setq aL (tblnext "LAYER" )) ) ) (alert "Fehler" ) ) (princ "\n---------- fertig ----------\n") )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
-ikarus- Mitglied Zeichner
Beiträge: 142 Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015 Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro, Visual Studio 2013 Notepad++ Rechner: HP Z620 Workstation NVIDIA Quadro K4000
|
erstellt am: 25. Apr. 2014 07:24 <-- editieren / zitieren --> Unities abgeben:
Hab noch was ergänzt. Das Lisp schreibt jetzt erst ein Sicherungs DWG raus. Außerdem kann kann man den INI Pfad angeben. Code:
; mit dem Viewer http://www.noliturbare.com/plot-print/print-ctbs-and-more die CTB in eine *.INI speichern ; und in der letzten Zeile der INI ENDE eintragen(princ "\nAm Ende der INI in die letzte Zeile bitte ENDE eintragen <konvlayer>" ) (defun parse_nums (st / a k lst) (setq k 1) (setq a "") (setq lst nil) (repeat (strlen st) (if (= (substr st k 1) " ") (progn (setq lst (append lst (list a))) (setq a "") ) (setq a (strcat a (substr st k 1))) ) (setq k (+ k 1)) ) (setq lst (append lst (list a))) ) (defun c:konvlayer (/); layerliste layername layerfarbe ) (vl-load-com) ;;;; Error Funktion (setq MD_ERR *ERROR* *ERROR* M:FEHLER ) ;_ end of setq ;;Marke für Zurück nach Abbruch setzen (vla-endundomark (vla-get-activedocument(vlax-get-acad-object))) (vla-startundomark(vla-get-activedocument(vlax-get-acad-object))) ;;;Die eigentliche Funktion: (defun M:FEHLER (S) (print (strcat "M:fehler " S)) (vl-cmdf "_UNDO" "_BACK") (setq *ERROR* MD_ERR) (alert "Der Befehl wurde abgebrochen!") (princ) ) ;_ end of defun (setq _pfad "c:/test/adobe-pdf-2012.INI" ) (command "_undo" "_be") (initget "Ja Nein") (setq ant (getkword (strcat "Pfad " _pfad " verwenden? <Ja>/Nein:"))) (if (= ant "Nein") (progn (setq FILE (getfiled "Layer INI einlesen" (getvar "dwgprefix") "ini" 8 )) ) (progn (setq FILE _pfad ) ) ) ;------------------------------ ;Wblock DWG (setq DWGsicherung (strcat (getvar "dwgprefix") (substr (getvar "dwgname" ) 1 (- (strlen (getvar "dwgname" )) 4)) "-Sicherung" )) ;(setq oldDFFS (getenv "DefaultFormatForSave")) ;(setenv "DefaultFormatForSave" "18");oder welche Version auch immer (command "_.-WBLOCK" DWGsicherung "J" "*" ) (princ) ;(setenv "DefaultFormatForSave" oldDFFS ) (princ) ;----------------------------------------- (if (/= FILE nil );(setq FILE (getfiled "Layer INI einlesen" (getvar "dwgprefix") "ini" 8 )) ;"C:\\" (progn (setq aL (tblnext "LAYER" t )) (while aL (setq layername (cdr (assoc 2 aL ))) (setq layerfarbe (cdr (assoc 62 aL ))) (setq f (open File "r" )) (setq dataline (read-line f)) (setq dataline (read-line f)) (while (/= dataline "ENDE") (setq dataline (parse_nums dataline)) (setq _layerfarbe (atoi (substr (nth 0 dataline ) 7 ) )) (setq FModus (nth 1 dataline )) (setq _RGB-farbe (nth 2 dataline )) (setq _linienstaerke (strcat (substr (nth 11 dataline ) 1 1 ) "." (substr (nth 11 dataline ) 3) )) (if (= layerfarbe _layerfarbe ) (progn (if (/= "(Object)" _RGB-farbe ) (progn (if (/= "Color 7" FModus) (progn (command "-layer" "Fa" "T" _RGB-farbe layername "ls" _linienstaerke layername "" ) ) (progn (command "-layer" "Fa" "7" layername "ls" _linienstaerke layername "" ) ) ) ) (princ) ) ) (princ) ) (setq dataline (read-line f )) ) (close f) (setq aL (tblnext "LAYER" )) ) ) (alert "Fehler" ) ) (princ "\n---------- fertig ----------\n")(princ) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 25. Apr. 2014 07:30 <-- editieren / zitieren --> Unities abgeben: Nur für -ikarus-
|
-ikarus- Mitglied Zeichner
Beiträge: 142 Registriert: 12.02.2007 ACAD 2015,PSP 2011, Showcase 2015, Mudbox 2015 Indesign CC, Illustrator CC, Photoshop CC, After Effects CC, Premiere Pro CC, Edge Animate CC, Acrobat DC Pro mit PitStop Pro, Visual Studio 2013 Notepad++ Rechner: HP Z620 Workstation NVIDIA Quadro K4000
|
erstellt am: 28. Apr. 2014 08:43 <-- editieren / zitieren --> Unities abgeben:
Hi, hab noch was ergänzt - Layerstatus mit_Plotstiltabelle_CTB_plotten und ohne_Plotstiltabelle_CTB_plotten - Zeichnungsscalierung auf 1:1 und ändern des LtFaktor der Scalierung abhängig von der Layouteinstellung - mit Abfrage ob gewünscht. Code: ; von J.H. 28.04.2014 ; Änderungen bzw. Verbesserungen sind gern gesehen und sollten veröffentlicht werden - Danke!; mit dem Viewer http://www.noliturbare.com/plot-print/print-ctbs-and-more die CTB in eine *.INI speichern ; und in der letzten Zeile der INI ENDE eintragen (princ "\nAm Ende der INI in die letzte Zeile bitte ENDE eintragen <konvlayer>" ) (defun parse_nums (st / a k lst) (setq k 1) (setq a "") (setq lst nil) (repeat (strlen st) (if (= (substr st k 1) " ") (progn (setq lst (append lst (list a))) (setq a "") ) (setq a (strcat a (substr st k 1))) ) (setq k (+ k 1)) ) (setq lst (append lst (list a))) ) ;Mainprogramm (defun c:konvlayer (/ MD_ERR *ERROR* _pfad FILE DWGsicherung aL layername layerfarbe f dataline _layerfarbe FModus _RGB-farbe _linienstaerke plotmassstab2 1zu plotmassstab ant2 ) (vl-load-com) ;;;; Error Funktion (setq MD_ERR *ERROR* *ERROR* M:FEHLER ) ;_ end of setq ;;Marke für Zurück nach Abbruch setzen (vla-endundomark (vla-get-activedocument(vlax-get-acad-object))) (vla-startundomark(vla-get-activedocument(vlax-get-acad-object))) ;;;Die eigentliche Funktion: (defun M:FEHLER (S) (print (strcat "M:fehler " S)) (vl-cmdf "_UNDO" "_BACK") (setq *ERROR* MD_ERR) (alert "Der Befehl wurde abgebrochen!") (princ) ) ;_ end of defun ; INI-pfad (setq _pfad "I:/ACAD-Config/ACAD2012/TD/Support/adobe-pdf-2012.INI" ) (initget "Ja Nein") (setq ant (getkword (strcat "Pfad " _pfad " verwenden? <Ja>/Nein:"))) (if (= ant "Nein") (progn (setq FILE (getfiled "Layer INI einlesen" (getvar "dwgprefix") "ini" 8 )) ) (progn (setq FILE _pfad ) ) ) ;Wblock DWG (substr Dateinam 1 (- (strlen Dateinam) 4)) (setq DWGsicherung (strcat (getvar "dwgprefix") (substr (getvar "dwgname" ) 1 (- (strlen (getvar "dwgname" )) 4)) "-Sicherung" )) ;(setq oldDFFS (getenv "DefaultFormatForSave")) ;(setenv "DefaultFormatForSave" "18");oder welche Version auch immer (command "_.-WBLOCK" DWGsicherung "J" "*" ) (princ) ;(setenv "DefaultFormatForSave" oldDFFS ) (princ) ;----------------------------------------- ;Aktuellen Layer-STatus Speichern (command "-layer" "ST" "S" "mit_Plotstiltabelle_CTB_plotten" "" "" "" ) ;Zuweisungsfunktion (if (/= FILE nil ); (progn (setq aL (tblnext "LAYER" t )) (while aL (setq layername (cdr (assoc 2 aL ))) (setq layerfarbe (cdr (assoc 62 aL ))) (setq f (open File "r" )) (setq dataline (read-line f)) (setq dataline (read-line f)) (while (/= dataline "ENDE") (setq dataline (parse_nums dataline)) (setq _layerfarbe (atoi (substr (nth 0 dataline ) 7 ) )) (setq FModus (nth 1 dataline )) (setq _RGB-farbe (nth 2 dataline )) (setq _linienstaerke (strcat (substr (nth 11 dataline ) 1 1 ) "." (substr (nth 11 dataline ) 3) )) (if (= layerfarbe _layerfarbe ) (progn (if (/= "(Object)" _RGB-farbe ) (progn (if (/= "Color 7" FModus) (progn (command "-layer" "Fa" "T" _RGB-farbe layername "ls" _linienstaerke layername "" ) ) (progn (command "-layer" "Fa" "7" layername "ls" _linienstaerke layername "" ) ) ) ) (princ) ) ) (princ) ) (setq dataline (read-line f )) ) (close f) (setq aL (tblnext "LAYER" )) ) ) (alert "Fehler" ) ) ;neuen Layer-STatus speichern (command "-layer" "ST" "S" "ohne_Plotstiltabelle_CTB_plotten" "" "" "" ) (princ "\n---------- fertig ----------\n") ;Hinweis auf Layerstatus (alert "Es wurden zwei Layerstatus - ohne_Plotstiltabelle_CTB_plotten - mit_Plotstiltabelle_CTB_plotten <ist aktuell eingestellt> angelegt! Zum ändern Befehl: Layerstatus eingeben. " ) (princ) ;---------------- Scalierung ------------------- (vla-getcustomscale(vla-get-activelayout(vla-get-activedocument(vlax-get-acad-object))) '1zu 'plotmassstab );Maßstab ;(princ 1zu)(princ ":")(princ plotmassstab) (setq plotmassstab2 (/ 1zu plotmassstab )) (initget "Ja Nein N J ") (setq ant2 (getkword (strcat "Aktueller Plotmaßstab > " (rtos 1zu 2 2 ) " : " (rtos plotmassstab 2 2 ) " < verwenden? Ansonsten wird auf 1 : 1 scalieren! <Ja>/Nein:"))) (if (= ant2 "Nein") (progn (command "varia" "alle" "" "0,0,0" plotmassstab2 ) (setvar "ltscale" (* (getvar "ltscale" ) plotmassstab2 )) ) (progn (princ "\nes wurde der Aktuelle Plotmaßstab beibehalten die Zeichnung wurde nicht scaliert." )(princ) ) ) (command "regen") (princ "\nEs wurden zwei Layerstatus ohne_Plotstiltabelle_CTB_plotten mit_Plotstiltabelle_CTB_plotten <ist aktuell eingestellt> angelegt! zum ändern Befehl:Layerstatus eingeben " )(princ) );Ende Mainprogramm
Schönen Tag noch Gruß Jürgen [Diese Nachricht wurde von -ikarus- am 28. Apr. 2014 editiert.] [Diese Nachricht wurde von -ikarus- am 28. Apr. 2014 editiert.] [Diese Nachricht wurde von -ikarus- am 28. Apr. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |