Profili stradali longitudinali

Lisp per profili stradali longitudinali creato da rpor66.

Scompattate il file zip in una cartella, includetela nei percorsi di ricerca di autocad, richiamate il file con AppLoad.

Comandi:
ItPunti, salva le coordinate dei punti relativi ad una polilinea 3D che identifica il profilo del terreno.
ItProf, disegna il profilo caricando i dati salvati da ItPunti.

P.s.: It sta per italiano, sostituendo It con En il​

programma diventa in inglese, con Es spagnolo.

Ciao, non riesco a far funzionare il lisp.

Dopo ITPunti, e la successiva selezione della polilinea 3d, non prende ilcomando ITProf .
sai darmi qualche indicazione?

salvo9 ha detto:

Ciao, non riesco a far funzionare il lisp.

Dopo ITPunti, e la successiva selezione della polilinea 3d, non prende ilcomando ITProf .
sai darmi qualche indicazione?

Clicca per espandere...

Il lisp funziona.
Hai seguito le istruzioni contenute nel file pdf?
Cosa ti dice dopo che digiti il comando ITPROF?

Ricapitolo:
1. appload e carico "Crea profili"
2. digito "ITPunti" invio e mi chiede di salvare il file txt
3. lo salvo in desktop
4. mi chiede "seleziona polilinee" ed io seleziono
5. mi chiede "Traccio punti ? : (Si/No) ed io digito S
6. qua penso ci sia l'inghippo mi compare una scritta che nn capisco e che ti incollo di seguito:

Traccio punti ?: (Si/No) S
_layer
Layer corrente: "0"
Digitare un'opzione
[?/Def/coRrente/Nuovo/ON/OFF/Colore/Tipolinea/SPesslin/MAteriale/Stampa/conGela/
SCongela/BLocca/SBlocca/stAto]: _m
Digitare nome del nuovo layer (che diventerà il layer corrente) <0>: Punti
Digitare un'opzione
[?/Def/coRrente/Nuovo/ON/OFF/Colore/Tipolinea/SPesslin/MAteriale/Stampa/conGela/
SCongela/BLocca/SBlocca/stAto]:
Comando: _osnap Digitare elenco di modalità di snap ad oggetto: _none
Comando: _point
Modalità del punto corrente: PDMODE=0 PDSIZE=0.0000
Specificare un punto:
Comando: _point
Modalità del punto corrente: PDMODE=0 PDSIZE=0.0000
Specificare un punto:
Comando: _point
Modalità del punto corrente: PDMODE=0 PDSIZE=0.0000
Specificare un punto:
Comando: _layer
Layer corrente: "Punti"
Digitare un'opzione
[?/Def/coRrente/Nuovo/ON/OFF/Colore/Tipolinea/SPesslin/MAteriale/Stampa/conGela/
SCongela/BLocca/SBlocca/stAto]: _m
Digitare nome del nuovo layer (che diventerà il layer corrente) <Punti>: 0
Digitare un'opzione
[?/Def/coRrente/Nuovo/ON/OFF/Colore/Tipolinea/SPesslin/MAteriale/Stampa/conGela/
SCongela/BLocca/SBlocca/stAto]:

Grazie per l'aiuto.

Hai aggiunto la cartella nei percorsi di ricerca di Autocad?
Come dice appunto il pdf....

: GRAZIE
tutto fatto
è utilissimo

:

Ciao a tutti sono luca58.

ho scaricato i file per i profili ma il file "esempio di polilinea 3d" non e' una poly 3d nelle coordinate manca la z

Se leggi il PDF del primo post vedi che l'autore rpor66 risponde ad una domanda analoga dicendo che il programma era nato per disegnare il profilo traendo i dati da una polilinea 3D generata da un altro software.

In ogni caso la 3DPOLY non è spalmata sul DTM in 3D, ma disegnata come una polilinea 2D al fine di estrarne quote e distanza, così vuole il lisp.

Eccomi.
Rispondo a Luca58.
Il programma ItPunti, in presenza di una polilinea 3D, estrae distanze e differenze di quote, creando una sequenza di coordinate che serviranno alla formazione del relativo profilo.
In pratica, se selezioni una polilinea 2D si attiva una routine, se selezioni una poli 3D ne attiva un'altra, senza richiedere alcun intervento da parte dell'utente.

Ciao

Ciao sono luca58
Ho creato un file xyz da dei dati di un rilievo e mi sono creato dei punti 3d in file di autocad li ho uniti con una poly3d e ho fatto leggere la poly3d al lisp profili che mi ha generato un profilo con dei dati errati, tipo non mi ha rispettato la distanza tra un picchetti e l'altro e non ha tenuto conto della "z" quota. Comunque mi riservo di fare altre prove e chiaramente di farvi sapere come va'. saluti luca58

x Luca58

ti allego un file di esempio con una poli 3D, su model, e relativo profilo, su Layout "profilo".

Ho quotato la polilinea, così è più facile leggere il profilo.

Ciao

x rport66
Ho aperto il tuo file e ho eseguto il lisp.

Ti mando il file con la tua poly3d e il mio profilo.

Domanda perche' mi viene in questo modo con le scritte troppo grandi rispetto al profilo?

Devo settare qualche altra cosa?

saluti luca58

credo dipenda dalla variabile INSUNITS, prova a settarla a 0.

Ciao

programmino per lo stesso scopo, ma per quotare sezioni o profili precedentemente disegnati.
nello zip c'è un file chm con una breve guida, richiamabile dal programma.

Grazie rpor66 portando la variabile a 0 funziona grazie ancora

ps. appena finisco lo straordinario ho qualche altro quesito da porre.

Saluti luca58

Ciao, scusa se ti disturbo, ho approfittato anche io scaricando la lisp dei profili visto che devo fare delle sezioni ed ho pensato che in questo modo potessi fare prima, ma haimè ho dei problemi. Ti spiego cosa ho fatto e se puoi aiutarmi te ne sarei grato:
- ho salvato la cartella contenuta nel file zip nella cartella support di autocad;
- ho aperto un nuovo file di autocad per prova e creato un 3dpoly;
- ho caricato l'applicazione creaprofili.lisp
- ho digitato itpunti, selezionato la polilinea, e tutto ok;
- ho digitato itprof ma il programma fa una serie di operazione ed alla fine scrive:
Verticale? <N>
"simplex" è ora lo stile di testo corrente.
Comando: ; errore: esci / continua
Comando:

ed esce dal comando. Dove ho sbagliato??

Ti ringrazio anticipatamente, Marco

ti ho risposto tramite messaggi privati.

Ciao

Ciao sono Daniele
Ho creato una polilinea 3D di un sentiero, ho procetuto come riportato nel file pdf ma itpunti mi genera i punti, mentre itprof non riproduce il profilo e quello che mi compare è:
Apertura di un file nel formato AutoCAD 2004.
Sostituzione di [ARIALUNI.TTF] con [simplex.shx].
Rigenerazione modello in corso.
Caricamento delle utilità dei menu di AutoCAD avvenuto.
"ER Mapper Plugin Loaded"
Comando:
Comando:
Comando: _options
Comando:
Comando: appload
Crea profili.LSP caricato.
Comando:
Software fornito con licenza GPL, creato da Roberto Portuese - rpor@libero.it
ItProf: Crea profilo - itPunti: Salva dati polilinea
EnProf - EnPunti: English version
EsProf - EsPunti: Spanish version
Comando:
Comando: itpunti
Seleziona polilinea:
Selezionare oggetti: trovato(i) 1
Selezionare oggetti:
Traccio punti ?: (Si/No) s
_layer
Layer corrente: "0"
Digitare un'opzione
[?/Def/coRrente/Nuovo/ON/OFF/Colore/Tipolinea/SPesslin/Stampa/conGela/SCongela/B
Locca/SBlocca/stAto]: _m
Digitare nome del nuovo layer (che diventerà il layer corrente) <0>: Punti
Digitare un'opzione
[?/Def/coRrente/Nuovo/ON/OFF/Colore/Tipolinea/SPesslin/Stampa/conGela/SCongela/B
Locca/SBlocca/stAto]:
Comando: _osnap
Modalità osnap correnti: Fine,Med,Cen,Int,Per,Est
Digitare elenco di modalità di snap ad oggetto: _none
Comando: _point
Modalità del punto corrente: PDMODE=0 PDSIZE=0.0000
Specificare un punto:
Comando: _point
Modalità del punto corrente: PDMODE=0 PDSIZE=0.0000
Specificare un punto:
Comando: _point
...
Specificare un punto:
Comando: _layer
Layer corrente: "Punti"
Digitare un'opzione
[?/Def/coRrente/Nuovo/ON/OFF/Colore/Tipolinea/SPesslin/Stampa/conGela/SCongela/B
Locca/SBlocca/stAto]: _m
Digitare nome del nuovo layer (che diventerà il layer corrente) <Punti>: 0
Digitare un'opzione
[?/Def/coRrente/Nuovo/ON/OFF/Colore/Tipolinea/SPesslin/Stampa/conGela/SCongela/B
Locca/SBlocca/stAto]:
Comando: nil
Comando: itprof
_-style Digitare nome dello stile di testo o [?] <Standard>: simplex
Stile esistente.
Specificare nome di font completo o nome del file di font (TTF o SHX)
<simplex.shx>: simplex
Font riservati per la visualizzazione di font SHX nella finestra di dialogo
TESTOM.
Comando: 0.000000
*Annullato*
Grazie per la risposta.

alcuni file andavano inseriti in una cartella di percorso di autocad, o aggiungere un percorso nuovo di ricerca, oppure in support, ma non il support di c:\programmi\autocadxx\support
bensi quello all'interno di C:\Documents and Settings\XXXX\Dati applicazioni\Autodesk\AutodeskXXX\R1XXX\ita\Support


dati applicazioni è una cartella nascosta
le varie XXX indicano l'utente e le varie versioni ai autocad

Grazie, ho seguito le tue indicazioni ed è andato tutto ok. Ciao e grazie ancora