TuttoCAD Forum

TuttoCAD Forum
[ Home | Registrati | Discussioni Attive | Discussioni Recenti | Segnalibro | Msg privati | Sondaggi Attivi | Utenti | Album Fotografico | Download | | Cerca | FAQ ]
Nome Utente:
Password:
Salva Password
Password Dimenticata?

 Tutti i Forum
 1 - TuttoCAD Software
 AutoLISP
 Creazione automatica di elenco vie cittadine
 Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
I seguenti utenti stanno leggendo questo Forum Qui c'è:
Pagina Successiva
Autore Discussione Precedente Discussione Discussione Successiva
Pagina: di 2

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 08 novembre 2010 : 13:56:49  Mostra Profilo  Rispondi Quotando
Dato che e' apparsa una nuova stella nel firmamento Cadlandia (alludo a Terminator, degno erede di GP) provo a buttare li' un problema irrisolto qua in ditta, e chissa' mai che il miracolo avvenga.

Supponiamo di avere questa strada disegnata in rosso.

Se clicco su di essa, fra le sue proprieta' mi appare il nome della via.

Ora, si tratta di creare un classico elenco alfabetico delle strade, tipo:

...
Terminator's Street A1-F2
...

operazione che noi facciamo a mano, strada dopo strada, definendo per ognuna il quadrante d'arrivo e quello di partenza.

Grazie in anticipo per l'attenzione!

aforza
Utente Master


Regione: Italia
Prov.: Padova
Città: Cavarzere(VE)-Monselice(PD)


1798 Messaggi

Inserito il - 08 novembre 2010 : 14:09:13  Mostra Profilo  Rispondi Quotando
ciao,

CAD 2009 non mi appere il mome via, bisogna attivare qualcosa?

ciao

Andrea Forza

CadWorx 2014 & Plant3D AutoCAD 2014 su Seven 64bit - Dell Vostro i7 ram 8gb - doppio monitor Hanns-g 22"
Torna all'inizio della Pagina

Jotar
Utente Master



Regione: Lazio
Prov.: Roma
Città: Roma


799 Messaggi

Inserito il - 08 novembre 2010 : 14:27:24  Mostra Profilo Invia a Jotar un Messaggio Privato  Rispondi Quotando
Credo che su AutoCAD standard non appaia il nome della via.

Usi MAP, vero?

Jotar
Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 08 novembre 2010 : 14:30:58  Mostra Profilo  Rispondi Quotando
Ahi, come temevo.

Puo' darsi che tu debba installarti gli Object Enablers per Acad2009, ma non saprei dire quale di quelli attiva la visualizzazione estesa delle proprieta'...

Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 08 novembre 2010 : 14:34:36  Mostra Profilo  Rispondi Quotando
Esatto Jotar, e purtroppo non conosco altro modo per associare un attributo testuale (come appunto il nome della strada) ad una polilinea...

Come non detto, signori, ma grazie lo stesso.

Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 08 novembre 2010 : 14:38:14  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da antoniovinci

Esatto Jotar, e purtroppo non conosco altro modo per associare un attributo testuale (come appunto il nome della strada) ad una polilinea...


Autolisp - XDATA

Dati estesi

Modificato da - arri in data 08 novembre 2010 14:49:32
Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 08 novembre 2010 : 15:27:15  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
Grazie per la stella del firmamento Cadlandia, per me è un onore, ma secondo me esageri!

Il problema direi che è stimolante, vediamo se facciamo il miracolo...
La strada di arri è quella giusta, dopo si tratta solo di stabilire punti di inizio e fine della polilinea e questo lo si ottiene subito. Un tempo avevo fatto un programma lisp che caricava i blocchi con puntamento a video, si tratterrà di riciclarlo e adattarlo, ma dovrebbe andare abbastanza bene.

Comunque mi ritirerò nei miei alloggi a meditare su questo lisp...
Torna all'inizio della Pagina

joseph
Utente Master



Regione: Lombardia
Prov.: Cremona
Città: Casalmaggiore


1884 Messaggi

Inserito il - 08 novembre 2010 : 22:25:13  Mostra Profilo Invia a joseph un Messaggio Privato  Rispondi Quotando
<div align="center" id="quote2"><table class="quote"><tr><td class="quotetd"></td></tr><tr><td class="quotetd2"><span class="quotetext">Messaggio di antoniovinci

Dato che e' apparsa una nuova stella nel firmamento Cadlandia (alludo a Terminator, degno erede di GP) provo a buttare li' un problema irrisolto qua in ditta, e chissa' mai che il miracolo avvenga.

Supponiamo di avere questa strada disegnata in rosso.

Se clicco su di essa, fra le sue proprieta' mi appare il nome della via.

Ora, si tratta di creare un classico elenco alfabetico delle strade, tipo:

...
Terminator's Street A1-F2
...

operazione che noi facciamo a mano, strada dopo strada, definendo per ognuna il quadrante d'arrivo e quello di partenza.

Grazie in anticipo per l'attenzione!
</span></td></tr></table></div align="center" id="quote2">

Mi inserisco (scusa Terminator se ti sto rubando la parola) per avanzare la traccia di una soluzione ricorrerdo a un trucco.
Basta creare, in ambito Render, un materiale fittizio con un nome di una via e assegnarlo all'oggetto in questione.
Successivamente, nel riquadro mobile delle Proprietà, cliccando sul tasto Personalizza, è sufficiente aggiungere alle altre informazioni anche la proprietà Materiale.


Immagine inserita:

21,29 KB

Per i riquadri di partenza e fine.
Di ogni oggetto (anche blocchi) si possono estrarre, con la funzione vla-GetBoundingBox, i 2 punti estremi come da figura; è sufficiente allora confrontare le coordinate dei punti di inizio e fine della polilinea con questi estremi per ricavare il nome dei riquadri di inizio e fine


Immagine inserita:

16,36 KB

Modificato da - joseph in data 08 novembre 2010 22:37:25
Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 09 novembre 2010 : 06:25:49  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
Prima stesura grezza (versione neanche beta ma gamma):

1)Comando GRICITTA
imposta la griglia

2)Comando INSERTVIE
inserisce il nuovo nome della via

3)Comando STAMPAVIE
Scrive a video il nome della via e la sua localizzazione




Scarica allegato:

stradario.LSP
21,09 KB
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 09 novembre 2010 : 07:44:29  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da Terminator

Scarica allegato:


non si scarica,
devi allegarlo zippato
Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 09 novembre 2010 : 09:04:56  Mostra Profilo  Rispondi Quotando
Messaggio inserito da Terminator
versione neanche beta ma gamma


Semmai "alfa", perche' se fosse "gamma" sarebbe la versione quasi finale...

A parte gli scherzi, i punti primo e terzo vanno bene, mentre il secondo no, anche senza testare il tuo pre-miracolo.

Qui non si tratta di inserire nuovi nomi di vie, ma di estrarli automaticamente dalle proprieta' estese delle polilinee.

La toponomastica gia' esistente esclude di fatto l'ingegnoso espediente di Joseph: stiamo parlando di centinaia di polilinee-strade, ognuno col suo bravo nome annegato dentro.



Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 09 novembre 2010 : 09:13:54  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
Chiedo scusa se ho inserito l'estensione sbagliata, però devo dire che nella maschera di caricamento compare una sfilza di estensioni per tutti i gusti...

In ogni caso ne riparliamo perché bisognerà effettuare qualche adattamento, dato che non sono previsti inserimenti di vie nuove. Allegami magari una parte di disegno "vero".




Scarica allegato:

stradario.zip
1,86 KB

Modificato da - Terminator in data 09 novembre 2010 09:16:09
Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 09 novembre 2010 : 09:59:22  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
Piccola utility per verificare se esistono dati estesi e il nome dell'applicazione associata:

(defun C:VER3 ()
(setq ent (car (entsel "\nSelezionare entità: "))
datiestesi (assoc -3 (entget ent '("*")))
)

(if datiestesi
(setq listadatiestesi (cadr datiestesi))
(alert "Non è presente nessun dato esteso")
)

)

Dovrebbe venire fuori una descrizione di questo tipo:
("NOMEAPPLICAZIONE" (1000 . "TERMINATOR'S STREET"))
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 09 novembre 2010 : 10:05:39  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da Terminator

Piccola utility per verificare se esistono dati estesi e il nome dell'applicazione associata:

(defun C:VER3 ()
(setq ent (car (entsel "\nSelezionare entità: "))
datiestesi (assoc -3 (entget ent '("*")))
)

(if datiestesi
(setq listadatiestesi (cadr datiestesi))
(alert "Non è presente nessun dato esteso")
)

)

Dovrebbe venire fuori una descrizione di questo tipo:
("NOMEAPPLICAZIONE" (1000 . "TERMINATOR'S STREET"))


oppure xdlist degli Express tools
Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 09 novembre 2010 : 10:27:45  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
Nel caso qualcuno di noi non avesse installato gli express tools (cosa piuttosto improbabile), per buona misura ho preparato l'alternativa...
Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 09 novembre 2010 : 10:28:08  Mostra Profilo  Rispondi Quotando
Mi e' venuta un'idea per semplificarti la vita, grande T.

Lascia stare i nomi delle vie, cioe' fai finta che non siano strade, ma polilinee stupide senza alcuna proprieta' estesa.

Prova a darmi un elenco tipo "HANDLE quadrante_partenza-quadrante_arrivo" ove "Handle" si deduce da qua.

Nell'esempio del DWG con la strada rossa, sarebbe quindi:

453 A1-F2

A collegare gli handles ai nomi delle vie ci penso poi io in Access, per ora mi basterebbe questo.

Grazie ancora, sto preparando la damigiana di vodka.





Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 09 novembre 2010 : 10:34:06  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da Terminator

Nel caso qualcuno di noi non avesse installato gli express tools (cosa piuttosto improbabile), per buona misura ho preparato l'alternativa...


hai fatto bene

P.S.

se hai sottomano un lisp per eliminare gli XDATA sarebbe utile

Modificato da - arri in data 09 novembre 2010 10:57:42
Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 09 novembre 2010 : 11:11:20  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando


Scarica allegato:

stradario2.zip
1,66 KB
Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 09 novembre 2010 : 11:29:20  Mostra Profilo  Rispondi Quotando
Ok, sei sulla... via giusta.

Primo problema: avendo 100 strade, devo lanciare 100 volte il comando STAMPAVIE..?

In altre parole, e' possibile generare la lista "Handle Qp-Qa" ciclando automaticamente su TUTTE le polilinee selezionate?

Gli altri problemi dopo, per ora grazie!

Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 09 novembre 2010 : 12:28:12  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
Messaggio inserito da antoniovinci

Ok, sei sulla... via giusta.

Primo problema: avendo 100 strade, devo lanciare 100 volte il comando STAMPAVIE..?

In altre parole, e' possibile generare la lista "Handle Qp-Qa" ciclando automaticamente su TUTTE le polilinee selezionate?

Gli altri problemi dopo, per ora grazie!



Evidentemente no, questa versione ALFA del programma doveva solo essere una prova per verificare se i dati che erano visualizzati a video erano giusti. Ora devo solo usare una funzione repeat e fare in modo che il tutto venga sparato in un file txt.
Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 09 novembre 2010 : 12:35:22  Mostra Profilo  Rispondi Quotando
Va bene, aspetto golosamente la versione che esporta verso TXT.

Ti annuncio che la damigiana e' mezza piena...

Torna all'inizio della Pagina
Pagina: di 2 Discussione Precedente Discussione Discussione Successiva  
Pagina Successiva
 Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
Vai a:
TuttoCAD Forum © 2001-2010 CADLandia Torna all'inizio della Pagina
Pagina generata in 0,64 secondi.