---

kann mir jemand bei einer lsp-änderung helfen??

hab da folgendes lsp-file:
(es legt mir layouts an mit einem inhalt den ich vorher im modellbereich auswähle und immer bezugnehmend auf das layout "ursprung"... Layoutname ist Blatt-1 bis Blatt-x
da allerdings ab Blatt 10 die zahlen zweistellig sind und bei Blatt 1-9 nicht druckt mir ACAD immer "durcheinander" jetzt würde ich gerne das lsp so ändern dass es bei Blatt 1-9 --> 01-09 verwendet und dann 10-irgendwas....dann würde acad der reihenfolge nach drucken und ich muss nicht immer die Layouts 1-9 händisch umändern )
hoffe das war halbwegs deutlich und das mir jemand helfen kann...

; START MIT CO2

(defun c:CO2 ()

(setq aw (ssget))
(command "_copybase" pause aw "")
(if (= Lnummer nil)(setq Lnummer 1))
(setq Blattbez-alt Blattbez)
(if (= (setq Lnummer-abfr (getint "Nummer des Layouts eingeben / weiter mit Enter:")) nil)
    (setq Lnummer (+ Lnummer 1))(setq Lnummer Lnummer-abfr)
)
(command "layout" "K" "URSPRUNG" (setq Blattbez (strcat "BLATT-" (rtos Lnummer 2 0))) "")
(command "layout" "SE" Blattbez "")
;(command "löschen" "L" "")
(command "_pasteblock" "0,0")

;Bei gewünschter Rückkehr zum Modell Layout Semikolon in nächster Zeile löschen
;(command "layout" "SE" "Modell" ) 

(if (= (getstring "Soll vorheriges Layout gelöscht werden [J] / weiter mit Enter ?" ) "j")
(command "layout" "L" Blattbez-alt )
)

)

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

---

Hallo Dominik,

folgende SUB macht genau das.

Code:

---

;führende Nullen auffüllen
;str = Zahl [String]
;si = Zahl[INT]-Anzahl der Gesamtstellen
;return = Zahl mit führenden Nullen[STRING]
;BSP: (str:add02n "1" 3);->"001"
(defun str:add02n  (str si / e)
  (while (<= (strlen (if e e (setq e str))) (1- si))
    (setq e (strcat "0" e))
    )
  e
  )

---

In deinem Code müßtest du dass dann in etwa so einbauen:

Code:

---

(str:add02n (rtos Lnummer 2 0) 2)

---

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

kannst du mir das erklären wo ich das einfügen muss und wie?
subroutine verstehe ich gerade noch aber dann nicht mehr viel...
leider :..-)

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

---

anstelle des Code-Schnipsels (kommt nur einmal im Code vor)
(rtos Lnummer 2 0)
fügst du
(str:add02n (rtos Lnummer 2 0) 2)
ein.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

ok super vielen dank

hast mir ne menge arbeit erspart

ciao dominik

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