Newsgroup: it.comp.software.cad
Titolo: Lisp porta tutte entità su livello 0 mantenedo colore e tratto originale

Ciao, mi chiedevo se esiste una lisp che porta tutte entità su livello 0
mantenedo colore e tratto originale.
-- 
^__^
o.g.a.v.o.s. [Onorevoli  Grazie  A  Voi  Ohhh  Saggi]

Esiste.
"-= Luca =-" <news_...@TogliberlusconidalgovernOtiscali.it> ha scritto nel 
messaggio news:88%If.1614$S6.1...@twister2.libero.it...


 > Ciao, mi chiedevo se esiste una lisp che porta tutte entità su livello 0


qualcosa esisteva, ma si tratta di preistoria, se non ricordo male in autocad 12 dos, vi era un comando di esportazione igesout e poi di importazione igesin, se non erro esportava in 2d trascrivendo colori e tipolinea tutti nel piano zero, solo che dopo la 12 cambiando il modulo ame, l'opzione degli iges è stata implementata solo in autocad versione mechanical visto che quel formato era prettamente uno scambio dati di cad meccanici, per saperne di più gioverebbe saper se qualcuno utilizza mechanical e se il comando ha queste peculiarità
per il momento l'unico lisp è flatten che porta tutto in 2d al piano zero colore bianco tipolinea continua
-- 
liber 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-777067.html
Inviato via 
http://www.itsistemi.net

 mantenedo colore e tratto originale.
Cosa intendi per "livello 0" > Layer o coordinata 0?
; per livello = Z
; Nota: non funziona per tutte le entità
;
(defun C:ALE_Flatten ( / SelSet)
  (if (setq SelSet (ssget "_X"))
    (command
      "_.MOVE" SelSet "" '(0 0  1e99) '(0 0 -1e99)
      "_.MOVE" "_P"   "" '(0 0 -1e99) '(0 0  1e99)
    )
    (alert "Nessun oggetto nel disegno")
  )
  (princ)
)
-- 
----------------------------------------------------------
Marc'Antonio Alessi - 
http://xoomer.virgilio.it/alessi
Per AutoCAD:
- Travi 2D: disegno automatico travi e pilastri in C.A.,
  relativi ferri e staffe, report peso ferri e C.A.
  su Excel
- Calcolo automatico aree su planimetrie: report su Excel
  per locale altezza, piano con descrizioni locali e piani
- Elaborazione dati from/to Excel
- Librerie manufatti in assonometria
- Autolayers: gestione automatica dei layers
- Elaborazioni e stampe multiple e automatiche
- Parametrico 2D, Viterie 2D/3D, Esplosi 2D/3D
- AutoGroups: gestione automatica gruppi di layers
- SetUp del disegno con gestione automatica DimStyles
- Conversione automatica files Inventor a DWG e viceversa
  anche senza avere Inventor installato
- ...
----------------------------------------------------------


Ciao, no non intendo la coordinata Z,
scusate è vero, livello "0" fà confusione,
diciamo che mi interessa che porti tutto sul layer "0"
oppure layer "assi" insomma tutto su un unico layer
ma mantenendo colore e tratteggio.
In teoria basterebbe un loop che ad 1 ad 1 memorizzi
colore e tratteggio in2 variabili, che porti l'entità nel
layer selezionato di default e che poi riassegni
colore e tratteggio originale.... già, a parole sembra facile,
ma come si fà?
Chiedo aiutooooo
^__^

Senza troppe pretese prova questo:
http://www.sepram.com/DEMO/LSP/TuttoSu0.LSP
Ciao Claudio
-- 
--
"-= Luca =-" <news_...@TogliberlusconidalgovernOtiscali.it> ha scritto nel
messaggio news:88%If.1614$S6.1...@twister2.libero.it...


 Ciao Claudio
Beh ^__^ direi che è ottima!!!
...se non chiedo troppo, 2 sistemazioni da fare:
1) Seleziona tutto in auto invece che chiedere la finestra.
2) Se disegno un cerchi e 1 linea con il layer "esempio" che ha colore
"rosso" e tratto "continuos",
poi però cambio colore e/o tratto alla linea portandola a "blu" e
"tratteggiata2", quando
eseguo la lisp, questa porta tutto su layer "0" ma riporta la linea a colore
"rosso" e tratto "continuos"
(quindi ad esempio il tratteggio interno dello spessore di un tubo su layer
"tubo" a cui ho modificato
colore da "rosso" a "verde" e il tratto da "continuos" a "tratteggiata2" in
mdo che venga stampato più sottile,
verrà invece perso e riportato tutto  "rosso" e tratto "continuos", perdendo
la differenza di spessore in stampa.
Dici che si può rimediare?
^__^
Grazie,
Luca

L'ho modificato come hai chiesto.
Riscaricalo da 
http://www.sepram.com/DEMO/LSP/TuttoSu0.LSP
Ciao Claudio
-- 
--
"-= Luca =-" <news_...@TogliberlusconidalgovernOtiscali.it> ha scritto nel
messaggio news:tikJf.181739$65.49...@twister1.libero.it...


L'ho modificato come hai chiesto.
Riscaricalo da 
http://www.sepram.com/DEMO/LSP/TuttoSu0.LSP
Ciao Claudio
-- 
--
"-= Luca =-" <news_...@TogliberlusconidalgovernOtiscali.it> ha scritto nel
messaggio news:tikJf.181739$65.49...@twister1.libero.it...


 Ciao Claudio
beh è.... f a n t a s t i c o ! ! ! ^__^
Onorevoli  Grazie  A  Tè  Ohhh  Saggio]
...beh e ora?  spudorato x spudorato ti chiedo anke questa:
Esiste una lisp che
- chiede di selezionare le entità di un perimetro chiuso (linee, archi)
- le trasforma in polilinea
- comunica il perimetro (mm) e area (m2) (considerando che il disegno è in
mm)
esempio: rettangolo 500x300(mm) ricavo:
Perimetro= 1600
Area= 0,15
Grazie ancora
Luca

Utilizzando il comando _PEDIT non devi fare molti passaggi in più.
Ciao Claudio
-- 
--
"-= Luca =-" <news_...@TogliberlusconidalgovernOtiscali.it> ha scritto nel
messaggio news:QolJf.181856$65.49...@twister1.libero.it...
