generare quote cerchiate (per metterle in evidenza)

Mano63

Utente re-attivo
professione: fast designer
software: autocad 2023
regione: lombardia
Buongiorno,

solo se non richiede dispendio di tempo importante.
Uso il lisp allegato per inserire quote tra polilinee (con un solo click tra 2 oggetti-polilinea). Il risultato è una quota secondo stile corrente il cui testo si colora magenta (colore 6) se inferiore a 3000. E' possibile correggere il codice in modo che il testo, se inferiore a 3000, oltre che colorarsi magenta, venga cerchiato?

Grazie sempre a tutti, siete fantastici!
 

Allegati

  • Q click.lsp
    1.9 KB · Views : 7

rpor66

Utente Standard
professione: Programmatore
software: Lisp, Vba per Autocad, BricsCad e GstarCAD, CadWorx
regione: Sicilia
Se invece di cerchiare il testo viene impostato lo sfondo di un colore a scelta ti va bene?
 

dsw

Rossano Praderi
professione: Libero Professionista
software: Vari
regione: Lombardia
Cambiare lo stile della quota anziché le proprietà locali, potrebbe essere un alternativa più semplice da gestire.

Se creo uno stile di quota solo per quote da evidenziare assegnando dimensioni testo, colori, cornice di testo o quant'altro.

Lo script lisp deve solo assegnare lo stile, mentre le proprietà dello stile possono essere cambiate/adattate a seconda delle esigenze del momento senza dover modificare il codice lisp.

Anche questa potrebbe essere una soluzione, cosa ne pensate?
 

Mano63

Utente re-attivo
professione: fast designer
software: autocad 2023
regione: lombardia
Grazie Roberto, grazie Rossano,
per Roberto: ...uno sfondo tipo quello dei campi dati? L'importante per me sarebbe evidenziare il testo di quota. Anche uno sfondo andrebbe bene, purchè gestibile in fase di stampa.
Per Rossano: le quote le inserisco attraverso il lisp che ho allegato al primo messaggio. L'evidenziazione del testo in colore magenta appare naturalmente in automatico (e mi piacerebbe incrementare l'evidenziazione). E' autocad che in questo modo mi segnala la quota inferiore a 3000. Se ho capito bene il tuo messaggio, invece, impostando le quote in maniera diversa, il segnale lo faccio io a terzi, ma prima dovrei analizzare il disegno....
Grazie ancora
 

rpor66

Utente Standard
professione: Programmatore
software: Lisp, Vba per Autocad, BricsCad e GstarCAD, CadWorx
regione: Sicilia
Marca con un cerchio le quote inferiori a 3000.
Se vuoi, puoi disabilitare il richiamo della funzione (addCerchioDim (entlast)) e attivare quelle che cambiano lo sfondo con il colore 9.
Bye
 

Allegati

  • Q click.lsp
    2.7 KB · Views : 4

dsw

Rossano Praderi
professione: Libero Professionista
software: Vari
regione: Lombardia
Per Rossano: le quote le inserisco attraverso il lisp che ho allegato al primo messaggio. L'evidenziazione del testo in colore magenta appare naturalmente in automatico (e mi piacerebbe incrementare l'evidenziazione). E' autocad che in questo modo mi segnala la quota inferiore a 3000. Se ho capito bene il tuo messaggio, invece, impostando le quote in maniera diversa, il segnale lo faccio io a terzi, ma prima dovrei analizzare il disegno....
No, non c'è da fare nessuna analisi del disegno, a differenza della modifica diretta delle proprietà della quota(come cambiare colore al testo) o l'inserimento di un cerchio, il mio approccio è creare ed usare uno stile di quota personalizzato ed assegnare questo stile alle quote che si vogliono evidenziare.
 

Allegati

  • Q click_StileQuota.lsp
    2 KB · Views : 3

Mano63

Utente re-attivo
professione: fast designer
software: autocad 2023
regione: lombardia
Marca con un cerchio le quote inferiori a 3000.
Se vuoi, puoi disabilitare il richiamo della funzione (addCerchioDim (entlast)) e attivare quelle che cambiano lo sfondo con il colore 9.
Bye
Funziona perfettamente! Grazie. Su colore e layer del cerchio ci provo io.... a più tardi
 

Mano63

Utente re-attivo
professione: fast designer
software: autocad 2023
regione: lombardia
No, non c'è da fare nessuna analisi del disegno, a differenza della modifica diretta delle proprietà della quota(come cambiare colore al testo) o l'inserimento di un cerchio, il mio approccio è creare ed usare uno stile di quota personalizzato ed assegnare questo stile alle quote che si vogliono evidenziare.
Grazie Rossano, forse ho usato un termine sbagliato (analisi). Tra poco provo il tuo lisp, poi ti farò sapere. Grazie ancora
 

rpor66

Utente Standard
professione: Programmatore
software: Lisp, Vba per Autocad, BricsCad e GstarCAD, CadWorx
regione: Sicilia
Avendo un po' di tempo libero, interessato dall'argomento, ho creato il lisp allegato che estrae le coordinate della polilinea secondo un passo determinato, calcola la distanza dall'entità più vicina e quota i range inferiori a 3000.
Nel dwg sono spiegati i comandi da utilizzare.
 

Allegati

  • q click.dwg
    69.2 KB · Views : 4
  • Q auto.lsp
    4.6 KB · Views : 4

Mano63

Utente re-attivo
professione: fast designer
software: autocad 2023
regione: lombardia
Grazie Roberto, e scusa il ritardo. Studio i dettagli e rispondo.
Buona giornata
 

Mano63

Utente re-attivo
professione: fast designer
software: autocad 2023
regione: lombardia
..non ho capito nulla? comando qqo, seleziono la polilinea (v. x rossa) e mi da il messaggio riportato qui sotto..
1763108881736.png
 

rpor66

Utente Standard
professione: Programmatore
software: Lisp, Vba per Autocad, BricsCad e GstarCAD, CadWorx
regione: Sicilia
Corretta
 

Allegati

  • Q auto.lsp
    4.7 KB · Views : 3

Mano63

Utente re-attivo
professione: fast designer
software: autocad 2023
regione: lombardia
ora funziona! interessante. Purtroppo non trova applicazione nel mio lavoro, che è molto più banale. Ma conservo volentieri il tuo materiale per eventualità future. Grazie!
 

Statistiche forum

Discussioni
59,249
Messaggi
504,723
Utenti registrati
110,471
Ultimo utente registrato
Clydenot

Utenti online

Top