Ansys.com


Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 10 di 18

Discussione: Picchettamento in lisp

  1. #1
    Utente poco attivo
    Iscritto dal
    2008
    Messaggi
    4
    Professione
    geometra
    Regione
    sardegna
    Software
    autocad

    Picchettamento in lisp

    Ciao a tutti, sono nuovo del forum e mi sono affacciato da poco nel mondo del lisp...
    Ho la necessità di creare un'applicazione che faccia le seguenti azioni:

    -impostare le unità di misura (gradi centesimali, rotazione destra)
    -selezionare la stazione di origine (magari impostarla e fare in modo che rimanga fissa, con la possibilità di cambiarla)
    -selezionare l'orientamento (rispetto a un punto)
    -ricavare la lettura di un punto in coordinate polari
    -esportare in un file txt con numerazione progressiva.

    In che modo dovrei procedere? Ricorrendo alla conversione tra coordinate cartesiane e polari?
    Qualcuno è a conoscenza di un lisp che faccia le stesse cose?

    Grazie a tutti!
    Ultima modifica di peppolo; 01-08-2008 alle 21: 57

  2. #2
    Utente Standard L'avatar di liber
    Iscritto dal
    2007
    Messaggi
    281
    Professione
    tiralinee
    Regione
    Sotto la Gabbia
    Software
    autocad map

    Predefinito

    in sintesi ti scoccia digitare dist dal ... al, e trascrivere il tutto da te.....

  3. #3
    Utente poco attivo
    Iscritto dal
    2008
    Messaggi
    4
    Professione
    geometra
    Regione
    sardegna
    Software
    autocad

    Predefinito

    Non è così . Mi servono la distanza e l'angolo a partire da un punto noto e un allineamento. La procedura che uso quando devo ricavare i dati è:

    -imposto le unità di misura
    -imposto la nuova origine
    -ruoto il disegno mettendo l'allineamento in verticale
    -faccio id del punto.

    se mi servono le letture da un altro punto devo rifare la procedura a partire dall'origine. Il risultato va benissimo :D ma volevo velocizzare il lavoro creando un lisp che facesse le stesse cose senza necessità di ruotare il disegno, e quindi pensavo alle coordinate cartesiane da convertire in polari.
    Il problema è scriverlo in lisp dato che non lo conosco bene, chiedevo per ridurre un po' i tempi :)

  4. #4
    Utente Senior L'avatar di GP.
    Iscritto dal
    2008
    Messaggi
    1998
    Professione
    Nientologo
    Regione
    Vercelli
    Software
    uozapp

    Predefinito

    Questo lisp scrive in un file txt le coordinate polari dei punti selezionati a video rispetto ad un altro punto (stazione).

    L'orientamento non è (per ora) selezionabile ma impostato rispetto al nord (angolo 0,000 dell'UCS globale), al limite basta impostare in campagna, sul punto di orientamento, il relativo angolo calcolato.

    Scrive azimut e distanza ridotta, i punti 3D vengono automaticamente convertiti in 2D.

    Sicuramente migliorabile in futuro con le altre cose (giuste) che chiedi, per ora ti devi accontentare.
    File Allegati File Allegati

  5. #5
    Utente poco attivo
    Iscritto dal
    2008
    Messaggi
    4
    Professione
    geometra
    Regione
    sardegna
    Software
    autocad

    Predefinito

    Mi accontento :D grazie mille ;)

    vorrei esporre il ragionamento che ho fatto per scrivere il programma (la traduzione da linguaggio umano a lisp... eh quello per ora è un problema) in modo da avere l'opinione di chi è esperto:

    1) utilizzare le variabili di autocad per impostare:
    -origine della rotazione degli angoli a nord;
    -rotazione degli angoli in senso orario;
    -la gradazione centesimale.

    2) creare una variabile stazione che abbia:
    -coordinata x;
    -coordinata y;
    -angolo azimutale;

    3) lettura dei punti:
    - linea dalla stazione al punto;
    - distanza dal punto alla stazione (_dist?);
    - azimut della linea;
    - controllo della coordinata del punto (ad es "x.stazione<x.punto" per determinare il quadrante e quindi la sottrazione di 400 gradi in base alla somma degli angoli)

    4) risultati:
    da scrivere in un file di testo nominato nomedisegno.txt con la sintassi stazione|puntoBattuto|distanza|angolo

    5) possibilità di cambiare la stazione, con eventuale menu

    6) controllo di errori.

    Pensate che potrebbe funzionare, che sia completo, macchinoso o altro?

  6. #6
    Utente Senior L'avatar di GP.
    Iscritto dal
    2008
    Messaggi
    1998
    Professione
    Nientologo
    Regione
    Vercelli
    Software
    uozapp

    Predefinito

    1) utilizzare le variabili di autocad per impostare:
    -origine della rotazione degli angoli a nord;
    -rotazione degli angoli in senso orario;
    -la gradazione centesimale.
    Non serve, il valore dell'angolo viene restituito in radianti (con lo zero in direzione est), bisogna convertirlo successivamente.

    Il lisp che ho postato è indipendente da tutto questo in quanto calcola gli azimut con la funzione (angle) e poi converte da radianti.

    Una sola cosa è importante, impostare l'UCS = Globale prima di qualunque calcolo, specialmente se tu preferissi utilizzare le formule classiche di topografia tan(AB)=XB-XA/YB-YA impostando degli IF oppure COND per l'assegnazione del quadrante.


    2) creare una variabile stazione che abbia:
    -coordinata x;
    -coordinata y;
    -angolo azimutale;
    Per l'angolo azimutale vale quello scritto sopra.


    3) lettura dei punti:
    - linea dalla stazione al punto;
    - distanza dal punto alla stazione (_dist?);
    - azimut della linea;
    - controllo della coordinata del punto (ad es "x.stazione<x.punto" per determinare il quadrante e quindi la sottrazione di 400 gradi in base alla somma degli angoli)
    La linea dalla stazione al punto non serve, la distanza si calcola con (distance).


    4) risultati:
    da scrivere in un file di testo nominato nomedisegno.txt con la sintassi stazione|puntoBattuto|distanza|angolo
    OK


    5) possibilità di cambiare la stazione, con eventuale menu
    Se ritieni di farcela fai pure, però la vedo dura, scriveresti un "vero" programma di topografia con annessi e connessi. Molto più semplice calcolare il tutto da una stazione selezionata al lancio del lisp.


    6) controllo di errori.
    OK

  7. #7
    Utente poco attivo
    Iscritto dal
    2008
    Messaggi
    4
    Professione
    geometra
    Regione
    sardegna
    Software
    autocad

    Predefinito

    L'idea era quella di impostare la funzione principale in modo tale che si possa scegliere, e quella del picchettamento come sottofunzione... Però in effetti sarebbe già un grande risultato riuscire solo a fare il picchettamento... Provo a buttare giù qualcosa, solo con le idee non combinerò niente :)

  8. #8
    Utente poco attivo
    Iscritto dal
    2009
    Messaggi
    3
    Professione
    architetto
    Regione
    Lombardia
    Software
    autoca

    Predefinito

    Buongiorno a tutti....
    E' la prima volta che vengo a conoscenza dei file lisp....anche a me servirebbe uno tipo quello fatto da voi per il picchettamento.
    Purtroppo c'è un problema..ho scaricato questo ma io uso autocad in italiano e sembra non funzioni!
    Qualcuno sa dirmi come posso fare o se esiste una versione in italiano?
    Un ultima cosa...anche per il caricamento potete aiutarmi per autocadlt 2008 in italiano?
    Grazie!
    PS: scusate la mia ignoranza ma ho scoperto oggi i file lisp :D

  9. #9
    Moderatore L'avatar di PlannerRoad
    Iscritto dal
    2007
    Messaggi
    4954
    Professione
    Variabile
    Regione
    Italia
    Software
    AutoCAD 2016

    Predefinito

    Citazione Originariamente Scritto da Vilfredo Bordiga Visualizza Messaggio
    ...anche per il caricamento potete aiutarmi per autocadlt 2008 in italiano?...
    La versione LT non legge i lisp, non li puoi utilizzare su quella.

  10. #10
    Utente poco attivo
    Iscritto dal
    2009
    Messaggi
    3
    Professione
    architetto
    Regione
    Lombardia
    Software
    autoca

    Predefinito

    Grazie per la riposta...non ci speravo...
    scusa se insisto...ma non legge nessun file lisp?
    Perchè io ne ho caricato uno scaricato da un sito e lo utilizza....come mai se non li legge mi legge quello?


  • Pagina 1 di 2 12 UltimaUltima

    Discussioni Simili

    1. Lisp per picchettamento & tracciamento
      Di Luisi nel forum Lisp per Autocad
      Risposte: 7
      Ultimo Messaggio: 24-02-2011, 16: 39
    2. Risposte: 7
      Ultimo Messaggio: 10-12-2009, 15: 42
    3. Come si usano i lisp
      Di MARCOC nel forum AutoCAD
      Risposte: 1
      Ultimo Messaggio: 19-10-2008, 19: 49
    4. Come si carica un lisp
      Di christianc83 nel forum AutoCAD
      Risposte: 6
      Ultimo Messaggio: 08-09-2008, 14: 37
    5. Tradurre da VBA a Lisp
      Di carry nel forum Lisp per Autocad
      Risposte: 0
      Ultimo Messaggio: 21-02-2008, 17: 01

    Segnalibri

    Segnalibri

    Permessi di Scrittura

    • Tu non puoi inviare nuove discussioni
    • Tu non puoi inviare risposte
    • Tu non puoi inviare allegati
    • Tu non puoi modificare i tuoi messaggi
    •  



    CAD3D.it - la community dei progettisti