TuttoCAD Forum

TuttoCAD Forum
[ Home | Registrati | Discussioni Attive | Discussioni Recenti | Segnalibro | Msg privati | Sondaggi Attivi | Utenti | Album Fotografico | Download | | Cerca | FAQ ]
Nome Utente:
 Password:
Salva Password
Password Dimenticata?

 Tutti i Forum
 1 - TuttoCAD Software
 AutoLISP
 Creare sequenza layer numerati in modo ultrarapido		  Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
I seguenti utenti stanno leggendo questo Forum Qui c'è:
Autore Discussione Precedente Discussione Discussione Successiva  

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 17 novembre 2011 : 10:00:00  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
fonte

(defun c:test ( / c n )
(setq c 0)
(if (setq n (getint "\nNumber of Layers: "))
(repeat n
(entmake
(list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
(cons 2 (itoa n))
(cons 62 (setq c (1+ (rem c 255))))
'(70 . 0)
)
)
(setq n (1- n))
)
)
(princ)
)

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 18 novembre 2011 : 08:37:03  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
variante con prefissi 0

(defun c:test ( / c n nl k kl pref name )
    (setq c 0 k 0 pref "")
    (initget 7)
    (if (setq n (getint "\nNumber of Layers: ") nl (strlen (itoa n)))
        (while (< k n)
            (setq k (1+ k) kl (strlen (itoa k)))
            (repeat (- nl kl)
                (setq pref (strcat "0" pref))
            )
            (setq name (strcat pref (itoa k)))
            (entmake
                (list
                   '(0 . "LAYER") 
                   '(100 . "AcDbSymbolTableRecord") 
                   '(100 . "AcDbLayerTableRecord") 
                    (cons 2 name) 
                    (cons 62 (setq c (1+ (rem c 256))))
                   '(70 . 0)
                )
            )
            (setq pref "")
        )
    )
    (princ)
)
Torna all'inizio della Pagina
  Discussione Precedente Discussione Discussione Successiva  
 Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
Vai a:
TuttoCAD Forum © 2001-2010 CADLandia Torna all'inizio della Pagina
Pagina generata in 0,53 secondi.