---

Hallo Leute,

ich habe mal wieder ne kleine Frage, die ihr mir sicher beantworten könnt.
Wenn ich eine neue Zeichnung erstelle und ich sie zum ersten mal abspeicher, gibt es da eine Möglichkeit, den Button "speichern unter" so umzuschreiben, das der Name der Zeichnung beim speichern automatisch in das 1! Layoutfenster übertragen wird?

Ich bedanke mich schon mal im vorraus für Eure Hilfe!

------------------
gruß aus waldbrunn
werner

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

---

Hallo,

soweit mir das bekannt ist, ist es nicht möglich solche Einstellungen durchzuführen!!!

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

---

So etwas ist sicher kein Problem. Die Frage ist nur wie der Dateiname eingegeben wird. Zum Beispiel könnte man ja mal einfach ein _Sichern_als_ durchführen, anschliessend mit

Code:

---

(DEFUN C:SICHALS ()
(command "_.SAVEAS" "" "~")
(command "_LAYOUT" "_RENAME" "Layout1" (getvar "dwgname")))
(command "_UNDEFINE" "_SAVEAS")

---

Der Dateiname muß dann allerdings die Regeln für Layoutnamen einhalten. Wenn Layout1 nicht existiert gibt es eine kleine Fehlermeldung.

------------------
Gruß aus Wien
Bernhard

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

---

Hallo Bernhard!

Das war genau das was ich brauchte! Klappt perfekt, mit einem kleinen Schönheitsfehler. Wie schreibe ich die Lisp um, das er mir das .dwg weglässt?
Die Units sind schon unterwegs!
Danke für die superschnelle Hilfe

Ach ja entschuldigung, das der Beitrag jetzt 3 mal im Forum steht. Das war nicht meine Absicht, sondern ich hatte ein Serverproblem, und jedesmal wenn ich meinen Beitrag erstellt habe, ist er im Forum nicht aufgetaucht...

------------------
gruß aus waldbrunn
werner

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

---

indem du

Code:

---

(command "_LAYOUT" "_RENAME" "Layout1" (getvar "dwgname")))

---

durch

Code:

---

(command "_LAYOUT" "_RENAME" "Layout1" (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)))

---

ersetzt.

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

Thomas

[Diese Nachricht wurde von tunnelbauer am 09. Nov. 2005 editiert.]

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

---

(DEFUN C:SICHALS (/ ITEM)
  (vl-load-com)
  (command "_.SAVEAS" "" "~") 
  (vlax-for item(vla-get-layouts
                  (vla-get-activedocument(vlax-get-acad-object))
                )
    (if(=(vla-get-taborder ITEM)1)
      (vla-put-name ITEM (vl-filename-base (getvar"dwgname"))) 
    )   
  )
  (command "_.save" "")
)

da ist es dann egal, wie das Layout heißt.

P.S. ein Prog mit dem  vlr-dwg-reactor  ist noch eleganter 

------------------
    - 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

---

Danke an Euch beiden, aber...

in beiden Fällen, also wenn ich wie beschrieben, die eine Zeile gegen die andere tausche, oder die "neue" Lisp nehme, speichert mir AutoCad die Zeichnung nur noch ab und ändert mir nicht mehr das 1 Layoutfenster in den Namen der Zeichnung um...

Woran liegt das?

------------------
gruß aus waldbrunn
werner

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

---

na das (command "_UNDEFINE" "_SAVEAS") mußt du auch mit in die Lispdatei speichern

------------------
- 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

---

Genau das war es noch was fehlte...

Auch an Euch beiden gehen die Units auf die Reise.

DANKE!

------------------
gruß aus waldbrunn
werner

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

---

fehlt nicht in der ersetzten Zeile von Tunnelbauer eine 4. schließende Klammer am Ende?

Nicht mehr, da korrigiert

[Diese Nachricht wurde von cad4fun am 03. Jun. 2008 editiert.]

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

---

hallo.

das thema hatten wir ja bereits: ICH bin absoluter beginner in sachen autolisp. also hab ich mal versucht, nen ansatz zu finden, wie ich diese funktion so ummünzen kann:

wenn ich den befehl layoutname (z.b.) ausführe, soll er mir das layout so wie die datei benennen. hab ich aber mehrere, was ja nicht immer der fall ist, soll er den dateinamen auch verwenden und dann aber alle (um nicht mit indices 1,2,3,... durcheinanderzukommen) mit a,b,c,d,... durchnummerieren.

ich bin fast soweit, dass ich sag, ich kapier vielleicht, wie die sichals.lsp funktioniert, umbaun, krieg ich aber absolut nicht hin.

vielen dank

stolti

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

---

suchst du sowas:

(defun C:LAYOUTRENAME (/ ITEM LAYOUTLISTE)
  (vl-load-com)
  (setq NAME (cadr(fnsplitl(getvar"dwgname")))) 
  (vlax-for item(vla-get-layouts
                  (vla-get-activedocument(vlax-get-acad-object))
                )
    (setq LAYOUTLISTE(cons(list ITEM
                                (vla-get-name ITEM)
                                (vla-get-taborder ITEM)
                          )
                          LAYOUTLISTE
                     )
    )
  )
  (setq NR 0)
  (foreach LAYOUT  (cdr(vl-sort LAYOUTLISTE '(lambda(X1 X2)(<(caddr X1) (caddr X2)))))
    (if(not(vl-catch-all-error-p
             (vl-catch-all-apply
               'vla-put-name(list (car LAYOUT)(strcat NAME "-"(itoa NR)))
             )
           )
       )   
      (setq NR(1+ NR))
    )               
  ) 
)

wenn nicht, als Ansatz kannste es sicher verwenden.

------------------
      - 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

---

genau.

vielen dank.

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

---

ich muss sagen:
ich glaube, ich habe jetzt ansatzweise verstanden, wie die lisp funktioniert.

ich hab gestern abend im kochbuch autolisp nachgeschlagen und versucht rauszufinden, wie ich dann statt der zahlennummerierung eine mit buchstaben hinkriege.

aber daran scheitere ich noch.
ich wollte jetzt nur fragen: was ist das für ein lispbefehl, der mir das ganze in zahlen ausgibt, weil a+1 oder so kann ich ja nicht verwenden.

vielen DANK.

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

---

distof , atof, atoi sind Funktionen, die Zeichenketten in Zahlen umwandeln.

------------------
  - 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

---

und dann auch zahlen in zeichenketten?

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

---

dafür gibt es rtos und itoa 

------------------
  - 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

---

puuuh...

das werd ich mir abends dann mal zu gemüte führen.

vielen dank.

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

---

mh. also aus dem buch weiß ich jetzt:
(itoa) macht mir aus der zahl 555 den wert "555".
für euch hier absolut lachhaft wahrscheinlich, für mich komplett böhmische dörfer.

ist die strategie richtig: ich geh her und sag ihm nach dem
            )
          )
      )   
      (setq NR(1+ NR))

aus dem 1 ein a machen, aus dem 2 ein b, oder?
oder muss das früher geschehen?
geht das über ein normales setq?
(setq 1 a). oder denk ich da komplett verkehrt?
aber wie bind ich da den itoa ein?

aber danke dass ich euch so nerven darf.
stolti.

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

---

Ich weiß absolut nicht was du vorhast und was das mit dem Threadthema zu tun hat, poste doch mal deinen Code im Lispforum , dazu deine Fragen , und dann schauen wir weiter.OK?

------------------
  - 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

---

Hallo Stolti,

schau Dir mal die Funktionen (chr  ) und (ascii  ) an. Und wenn Du dann NR von 97 laufen lässt, hast Du schon fast gewonnen.
Weiteres bei Bedarf, wie Cadmium schon sagte, im Lisp-Brett.

Gruß
Thomas

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