Newsgroup: it.comp.software.cad
Titolo: Newbie

Salve, è possibile in autocad assegnare delle quote alle curve di livello
(ottenute vettorializzando un file raster) e poi fissata una linea
congiungente due punti far calcolare in automatico il profilo
loingitudinale?

non mi pare che acad preveda una maniera automatica. puoi però portare in
quota le varie curve, e lavorando sul piano XY far toccare ad una 3dpoly
tutte le curve di livello in base alla direttrice planimetrica scelta.
passando poi alla vista laterale XZ ti guardi il tuo bel profilo che
eventualmente ribalterai sul piano XY. tieni presente che se poi dovrai
lavorare su questo profilo (aggiungere campiture  vestizioni varie) ti
converrà "ripassare" con una polilinea il tuo profilo.
ciao
stefano

No, per fare questo esistono dei file lisp,(me ne hanno dato uno che ti
permette di generare un file con le progressive e le quote intercettando con
una linea d'asse le linee 3d del disegno).
se ti puo' servire te lo mando via e-mail
ciao, paolo :-)
-- 
Posted from 
mail2.dada.it
 [195.110.96.69] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

lo cercavo da una vita!!! saresti cosě gentile da mandarlo anche a me?
grazie infinite
stefano
stefan...@libero.it

mi pare che i NG che prevedono lo scambio di files sono quelli del gruppo
alt.binaries e questo NG non ne fa parte. ma da parte mia (e credo di poter
dire anche da parte del maggior numero di partecipanti a questo NG) non c'è
alcuna difficoltà a condividere files o informazioni.
quando riesco... sono a disposizione.
ciao
stefano

 quando riesco... sono a disposizione.
faresti un favore anche a me
Ciao
Gianfranco

 wrote in message
qtLr6.39685$yl2.9...@news1.tin.it...


ma quante balle che racconti!

 wrote in message
j9%r6.22713$x3.4...@news2.tin.it...


 
Veramente (volendo farlo con autocad e senza applicativi) non mi sembra una
balla, ma se hai qualche idea migliore......
Mario Scavroni.

come testo normale.
Ed oltre tutto, essendo un file di testo, si può anche allegarlo,
infatti su comp.cad.autocad e alt.cad.autocad gli allegati lisp
viaggiano una bellezza e se ricordo anche qui tempo addietro qualcuno
l'ha mandato.
Saluti, Aniello
-- 
Aniello Annunziata
Direttore Marketing di CADLandia
www.cadlandia.com
aniello.a...@cadlandia.com
Per rispondermi in privato, togli NOGARBAGE dall'indirizzo

eccolo qua'

vi allego il file lisp in questione, spero che vi sia utile
saluti paolo :-)
;PROFILO LONGITUDINALE TERRENO NATURALE
(defun c:pro()
(command "_style" "RMS" "ROMANS" "1.0" "1" "0" "N" "N" "N" "")
(command "_layer" "_m" "Testosez" "_c" "4" "" "")
(setq nome1 (getstring " Nome del file.txt   : "))
(setq distprg (getreal "inserisci distanza progressiva : "))(terpri)
(setq test1 "T")
(while test1
(print dtprg)
(setq a (getpoint "\n Seleziona vertice iniziale tratto asse : "))(terpri)
(setq b (getpoint "\n Seleziona vertice finale tratto asse : "))(terpri)
(setq test "T")
(while test
(print nr)
(setq nr (getstring " nr sezione : "))
(setq t (entsel "\n Seleziona linea terreno : "))(terpri)
(setq commento (getstring 25 "inserisci commento :  "))
(setq t1 (entget (car t)))
(setq tpt5 (cdr (assoc 10 t1)))
(setq txy5 (list (car tpt5)(cadr tpt5)))
(setq tz5 (caddr tpt5 ))
(setq tpt6 (cdr (assoc 11 t1)))
(setq txy6 (list (car tpt6)(cadr tpt6)))
(setq tz6  (caddr tpt6 ))
(setq stp2  (inters a b txy5 txy6 nil))
(setq dtsz (distance txy5 txy6))
(setq pend (/ (- tz6 tz5) dtsz))
(setq dtsztr (distance txy5 stp2))
(setq qtz (+ (* dtsztr pend) tz5))
(setq qtz (rtos qtz 2 3))
(setq dist (distance a stp2 ))
(setq dtprg (+ distprg dist))
(setq distaf (rtos dtprg 2 3))
(setq riga (strcat nr "," distaf "," qtz "," commento))
(setq name1 (open (strcat nome1".txt") "a"))
(write-line riga name1)
(close name1)
(princ "distanza => ") (princ distaf) (princ " ") (princ "quota =>") (princ
qtz )(terpri)
(setq hztxt (*(angle a b)(/ 200 3.
14159265359
)))
(command "_text" stp2 hztxt nr "")
(setq zerouno (getreal " INVIO = continua \/ 0 = fine "))
(if (= zerouno 0)( setq test nil))
 )
(setq distvert (distance a b ))
(setq dtprg (+ distprg distvert))
(setq distprg dtprg)
(setq zerouno (getreal " INVIO = nuovo tratto asse \/ 0 = fine "))
(if (= zerouno 0) (setq test1 nil))
 )
)
-- 
Posted from 
mail4.dada.it
 [195.110.96.56] 
