Newsgroup: it.comp.software.cad
Titolo: come far diventare piatta una.... ( ACAD 2000)

ciao!
chi sà come posso rendere tutti i punti di un disegno di autocad alla stessa
quota Z?
ora sono tutti a Z differenti e muoverli uno ad uno è un po' dura.....
ci vorrebbe qualche comando magico...!!!
grazie!
riki

 ha scritto nel messaggio
news:Yi8T6.367$7F4....@news.infostrada.it...


Prova con il flatten.lsp (da cercare in rete). Il suo compito č di impostare
tutte le Z a 0.
Io mi sono ritrovato entitą con differenti Z usando il copia-clip e
incolla-clip. Nonostante gli oggetti del file sorgente erano con Z=0 e il
file di destinazione avesse elevazione corrente =0, nel passaggio
copia-incolla mi cambiavano le Z.

 ha scritto nel messaggio
news:9fj7qb$47sov$1...@ID-56223.news.dfncis.de...


 ma non ce l'ho e dovrebbe esserci qualcosa di più tecnico.....o no?
Alcune entita' le puoi aggiustare cosi'. Selezioni tutto e nelle 
proprieta' scegli un tipo di entita'. Cambi di questo gruppo la z e la 
poni uguale a 0. Per le linee devi cambiare la z iniziale e quella 
finale, per i cerchi il centro, ecc.
Non va bene ovviamente per tutto.
Ciao ... Dino

Non va bene ovviamente per tutto.
Le mazzate iniziano quando hai pure i blocchi...  :))))
Ciao ciao.
--
Gabriele Pranzo-Zaccaria   architetto
membro dello staff di 
www.cadlandia.com
gabri...@tiscalinet.it
  ICQ 77540493

 copia-incolla mi cambiavano le Z.
Misteri di Autocad :-))))
So che succedono !
Ciao
Giulio

 ha scritto nel messaggio
news:Yi8T6.367$7F4....@news.infostrada.it...

c'e' un programma su 
cadalog.com
 che fa qualcosa del genere in una "botta"
unica , provare si chiama autozero.lsp mi pare
ciao
--
---------------------------------------------
Tecnoship s.n.c.
Impianti Navali e Industriali
Mestre - Venezia
tel./FAX +39 (0)41 5312883
e-mail: 
tecn...@tecnoship.it
WEB: 
www.tecnoship.it
---------------------------------------------

Ho fatto un applicativo in AutoLISP che utilizza l'uscita in DXF e la
modifica in questo di tutte le coordinate Z.
Purtroppo l'ho fatto su richiesta di un professionista che mi ha pagato.
Non posso quindi passartelo gratuitamente.
Comunque il procedimento funziona: potresti ad esempio esportare in DXF il
tuo disegno, aprire il DXF con un editore di testi (es. Word), sostituire
(con la funzione di Word) a tutti i codici della coordinata Z il valore 0 ed
importare il file DXF modificato in AutoCAD.
Provaci.
Ciao Claudio

...

Ciao ricky, prova questo:
;;;-------------------------------------------------------------------------
-----------------------
;;; cambia la Z delle entita' in 0 - Mario Scavroni / 96
(defun c:utgen_z0 ( / avv ss lung cont ent datent tipent p1 p2 p1n p2n)
(setvar "cmdecho" 0)
	(initget "S" )
	(setq avv (getkword "\nAvviare procedura di trasformazione coordinate Z ?
" ))
	(if (= avv "S" ) 
	(progn
 
		(prompt "Selezionare entita: " )
		(setq ss (ssget))
		(prompt "Conversione in corso..." )
		(if ss (progn
			(setq lung (sslength ss))
			(setq cont 0)
			(repeat lung
				(setq ent (ssname ss cont))
        			(setq datent (entget ent))
        			(setq tipent (cdr (assoc 0 datent )))
	        		(cond	((= tipent "LINE")
					(progn
			 		(setq p1 (cdr (assoc 10 datent))) 
			 		(setq p2 (cdr (assoc 11 datent))) 
					(setq p1n (subst 0.0 (nth 2 p1) p1)) 
					(setq p2n (subst 0.0 (nth 2 p2) p2)) 
	        (setq datent (subst (cons 10 p1n)(assoc 10 datent) datent))
	        (setq datent (subst (cons 11 p2n)(assoc 11 datent) datent))
					(entmod datent)
					))
					((or	(= tipent "ARC")
						(= tipent "CIRCLE")
						(= tipent "LWPOLYLINE")
						(= tipent "POLYLINE")
						(= tipent "TEXT")
						(= tipent "BLOCK")
					 )
					(command "_change" ent "" "_prop" "_elev" 0 "") 
					)
				)	
			(setq cont (1+ cont))
			)
		))
	))
(setvar "highlight" 1)	
(prompt "Modificate entita' con coordinata Z=0." )
(princ)
)
;;;;------------------------------------------------------------------------
----------------------
Funziona con buona parte delle entità, scusa ma non ho il tempo di
modificarlo per renderlo totale.
Ciao Mario Scavroni

 ha scritto nel messaggio
news:01c0eeb3$e2266e60$8d1ab7c2@gqgrmhba...


Selezioni da:
 
 ;;;------------------------------------------------------------------------
-
 ;;; cambia la Z delle entita' in 0 - Mario Scavroni / 96
 (defun c:utgen_z0 ( / avv ss lung cont ent datent tipent p1 p2 p1n p2n)
 (setvar "cmdecho" 0)
acc. ecc., al punto:
(setvar "highlight" 1)
(prompt "Modificate entita' con coordinata Z=0." )
(princ)
)
 ;;;;-----------------------------------------------------------------------
-
poi lo copy con copia di windows e lo incolli in notepad salvandolo con
estensione .lsp
indi da autocad in "carica applicazioni" lo carichi, e scrivi a tastiera il
comando utgen_z0.
Ciao Mario Scavroni

 ha scritto nel messaggio
news:OQbT6.2760$7F4....@news.infostrada.it...
