Newsgroup: it.discussioni.geometri
Titolo: lisp

salve a tutti
non so se esiste,  ma mi servirebbe un lisp che disegni un punto di autocad
al centro di tutti i cerchi presenti nel disegno, tutto in un solo colpo e 
metterli in un determinato layer.
grazie

salco ha scritto:

Paghi bene? :-D
(cià.. mi prendo due minuti di RIPOSO e te lo scrivo; ma... porta 
pazienza, neh)
Bye
M


Paghi bene? :-D
 pizza e birra + limoncello a Positano
(cià.. mi prendo due minuti di RIPOSO e te lo scrivo; ma... porta
pazienza, neh)
certo quante ne vuoi
grazie 1000
Bye
M

 grazie 1000
Prego 500 (sai, coi tempi che corrono...) :-D
Bye
M

 grazie 1000

Bye
M
velocissimo grazie 

MioMao ha scritto:

SOB :-(
Non mi ero accorto che ti eri già lanciato e così ne ho scritto un 
anch'io ... inutilmente, mi hai fregato!  :-)
Ciao
Maci

 anch'io ... inutilmente, mi hai fregato!  :-)
In genere sei tu che mi batti sul tempo.
Secondo me stai invecchiando... LOL :-D
Bye
M

 
Vero, giorno dopo giorno :-)
Infatti vedo che tu da qualche tempo hai un praticante; io mi sto 
guardando in giro per una badante :-))
Ciao
Maci

 Infatti vedo che tu da qualche tempo hai un praticante; 
 > io mi sto guardando in giro per una badante :-))
Si, si... contala giusta... "badante"... tsk... LUSSURIOSO! :-D :-D
Bye
M

In news:48f3707f$0$14494$
5fc...@news.tiscali.it
,
MioMao  quando non aveva nulla da fare ha scritto:

Ma come c...o fai a scrivere un lisp così in quattroequattrotto?!?!
......nonostante l'età....
-- 
Ciao

 ......nonostante l'età....
uuuhahahahha :-D :-D   ....che battutona.... che ti darei sulla zucca... 
ahahaha :-D :-D
Come faccio?
Ma è semplice:
1) in primo luogo pensi a quel che dovresti fare a "video"  ;-)
2) ti costruisci (mentalmente, se ti è comodo, oppure lo scrivi) una 
struttura "sequenziale", dei vari passaggi da compiere
3) trasformi il tutto in "istruzioni" scritte, da passare al programma 
(il "programmino" in autolisp).
E' chiaro che se non si conoscono quali "istruzioni" utilizzare... non 
se ne verrà mai a capo.
Ad esempio.. ti faccio una "spiega"... che può essere utile a te e a 
chiunque. Prendiamo il caso dei "punti nel cerchio": a video dovrei dare 
il comando "punto" (point), quindi usare il filtro "cen" (centro) e 
toccare un cerchio. Quindi ripetere l'operazione per ogni cerchio.
Riassumendo (nella sostanza) mi occorre:
1) raccogliere tutti i cerchi
2) per ogni cerchio determinare la relativa coordinata di "centro"
3) scaricare sequenzialmente i punti, uno per cerchio
Gli argomenti di cui sopra, al di la delle varie "infarciture" di cui è 
composto il lispino che è stasto scritto, si ottengono in questo modo:
1) fisso una "variabile" che mi raccoglie una "selezione" di tutti i 
cerchi, cioè:
(setq TUTTI (ssget "X" '((0 . "CIRCLE")(0 . "CIRCLE"))))
Dove:
-- TUTTI è solo il nome della "variabile" (una specie di "contenitore di 
memoria" nel quale infilo i dati raccolti)
-- SSGET è l'istruzione che "raccoglie" i dati che mi occorrono
-- "X" è una istruzione "filtro" per SSGET, che gli dice (banalizzando) 
"prendili tutti"
-- '((0 . "CIRCLE")(0 . "CIRCLE")) è una LISTA (filtro) che dice a SSGET 
cosa prendere.
Se avessi voluto tutte le linee del disegno avrei scritto:
	'((0 . "LINE")(0 . "LINE"))
Se avessi voluto tutte le linee del SOLO layer "Pippo" avrei scritto:
	'((0 . "LINE")(8 . "PIPPO"))
Il numerino iniziale (0.. 8... etc..) corrisponde ad un codice di LISTA 
del "database" del programma. Tali codici sono... TANTI... in genere con 
numerazione fissa (es. 10 corrisponde sempre ad una coordinata, che sarà 
quella del "primo punto" nel caso di una linea.. o che sarà il "punto di 
centro" per il cerchio.. o il punto di inserimento di un blocco... etc).
L'elenco di tali codici lo si trova sui manuali di AutoLISP.. e in rete, 
ovviamente.
Poi interviene il codice per la determinazione del "centro" dove, 
appunto, viene preso il codice "10" dell'entità singola, con 
manipolazione della "lista".
Maggiori chiarimenti sulla manipolazione si possono trovare qui 
http://www.cadlandia.com/showarticle.asp?ID=466
(non sto a dilungarmi oltre).
Il resto sono solo operazioni sequenziali...
1) prelevo dalla lista "tutti" i dati di un cerchio alla volta
2) prelevo dalla lista "singolo cerchio" il suo centro
3) disegno il punto alla coordinata trovata (al punto 2)
4) ripeto l'operazione con il cerchio seguente.
Se occorrono maggiori chiarimenti (magari la spiegazione di ogni linea), 
fate un fischio... (ora non ho tempo per dilungarmi oltre) :-)
Bye
M

 Ma è semplice:
........ cut
Semplice a dirsi, meno semplice a farsi.
Occorre dimestichezza, pazienza e soprattutto tempo da rubare al 
lavoro.
Quei pochi lispetti topografici che ho fatto io mi hanno fatto sudare 
sangue.
Quando negli anni '90 programmavo in QB45 (quik basic) facevo le ore 
piccole (da discoteca!) e la moglie stava per chiedere il divorzio. E 
a ragione. :-)
-- 
Ciao

 ragione. :-)
Che bello che era il QB45!! Lo usavo anch'io...
Ho usato il VB per diverso tempo ma oggi.. quasi non ricordo più una 
fava. Peccato perchè l'uso del VBA per il CAD è molto interessate (più 
versatile del AutoLISP). Dovrei ri-studiarlo.. ma non ho proprio tempo.
Bye
M

 (da discoteca!) e la moglie stava per chiedere il divorzio. E a ragione. :-)
che nostalgia.
Io mi ricordo il basic, il basica, il gwbasic, l'autolisp e prima il 
VIC 20 ed il commodore 64 ed ancora prima il sinclair zx81(!).
Quante volte ho riscritto migliaia di righe di codice ad ogni cambio di 
sistema per i programmi di topografia.
Stiamo proprio diventando vecchi.
:/
-- 
Ciao

 ha scritto nel messaggio
news:48f4980b$0$11371$5fc...@news.tiscali.it...


 che nostalgia.
cosa, la moglie??
=:-DDD
Ciao, Alessio