Newsgroup: it.discussioni.geometri
Titolo: VOGLIO!

Salve!
Sono un bambino (di una certa età) bravo (nel senso che ci metto tutta 
la mia buona volontà) :-D che vuole imparare l'uso del Pregeo, anche 
solo per i TM in deroga (che se non me li faccio io... Porca Misejra... 
chi fa da se li fa in tre... volte più veloci) .
Quale "scuola" dovrei frequentare? :-)))
Saluti e baci! :-*
Bye
M

 ha scritto nel messaggio
news:4713bfdf$0$21198$5fc...@news.tiscali.it...


 M
-- 
Ciao

 bene    ciao
Ti credo sulla parola e vado a cercalo/richiederlo!
Grazie (davvero)! :-)
Bye
M

 La normale di Pisa?
"Normale"?   ....va che a me mica mi prendono, li... :-D
Bye
M


se ti riferisci a "guida operativa catasto terreni" del geom. Salvatore Rampino, confermo che che è 
un ottimo libro.
Io aggiungerei "guida per il rilievo catastale di aggiornamento" di Cannafoglia - Fabrizi - 
Ferrante, Tomo edizioni (se si riesce ancora a trovarlo). E' un po vecchiotto ( io ho la I edizione 
1989), ma ci sono tanti esempi di rilievi e relativi libretti delle misure svolti, per me è stato 
un libro fondamentale.
-- 
Ciao

fabio.it
 ha scritto:

Ottimo, grazie anche a te :-)
(adesso però vado a letto.. che mi devo scrivere sul notebook un lisp 
per calcolare le HMP) ;-)
Bye
M

 M
Bravo.
E quando hai un'altra notte bianca da fare (sul lisp), posso darti io un'idea su un comando lisp a 
cui fare una *piccola* modifica.
'night
-- 
Ciao

 ha scritto:
scusa la mia igno :-) ma cosa sono le HMP?
grazie


 M
hai dimenticato gli abbracci.
Ciao.
___________________
Albert.one

 un'idea su un comando lisp a cui fare una *piccola* modifica.
Dai, spara! :-)
Bye
M

 scusa la mia igno :-) ma cosa sono le HMP?
Si, scusa, hai ragione. intendevo l'altezza media ponderale dell'unità, 
in caso siano presenti altezze diverse (es. costruzioni entroterra, 
parzialmente al di fuori del sedime del fabbricato; oppure i sottotetti 
etc..).
Bye
M

 Sono disposto anche a fare il canneggiatore... Mi assumi? :-))
Trovati domani mattina al solito casello Ancona-Nord alle 8,00.
Ho un paio di rilievi....
:-))
-- 
Ciao

 hai dimenticato gli abbracci.
ooooh... come sei piGGGGNNNolo!! :-))
Bye
M

il grande fardello ha scritto:

Cazzarola, giuro che se "fosti" LOL :-D :-D più vicino....
Bye
M

 
Ma ti interessa di più avere un pezzo di carta o sapere fare le cose?
Ciao.
___________________
Albert.one

 M
Allora approfitto...
In primis, grazie per la tua disponibilità a perder tempo dietro a 'sta cosa che cmq non è 
questione urgente e tantomeno importante, è solamente uno sfizio che vorrei togliermi nei pochi 
momenti di tempo libero perciò se è cosa relativamente semplice bene, sennò lascia pure perdere.
Anni addietro io facevo i piani quotati con autocad in 2D e scrivevo la quota del punto con un 
testo, perciò la situazione di partenza è: un punto con coordinate X,Y,0 e un testo vicino con 
scritto il valore dell'elevazione.
Il risultato che vorrei ottenere è un comando che cambi l'elevazione del punto e la porti al valore 
del testo scritto a fianco (se poi si cambia anche l'elevazione del testo, tanto meglio, ma non è 
indispensabile) per arrivare alla fine ad avere il punto di coordinate X,Y(sempre le stesse), Z 
(uguale al valore di TEXT). Lo scopo sarebbe di poterli caricare sul cad topografico (che allora 
non avevo) e, con questo, farci le curve di livello, sezioni in automatico ecc...
Es.
- situazione di partenza: punto di coordinate 10,10,0 con testo a fianco (a coordinate 12,12,0) 
uguale a "25.00".
- situazione che si vuole ottenere con il lisp: punto di coordinate 10,10,25 e il testo a fianco, 
se si può (ma non è indispensabile) a coordinate 12,12,25.
In rete ho trovato un comando che fa una cosa che si avvicina ma non esattamente quello che mi 
serve, e lo trovi a
http://www.cg-cad.com/ttlisp141.htm
Con questo comando si cambia l'elevazione ad uno o più testi e si inserisce un nuovo)punto a quota 
giusta (valore di TEXT) sul punto di inserimento del testo.
Questo comando TXT2Z agisce anche su più punti contemporaneamente, mentre quello che servirebbe a 
me deve per forza agire su un punto ed un testo alla volta perchè li devo selezionare volta per 
volta e poi ripartire fino ad un ESC che lo interrompa.
Il comando che mi serve penso che debba funzionare nel seguente modo:
Seleziona testo di quota:
Seleziona punto:
(operazione di cambio elevazione)
Seleziona testo di quota:
Seleziona punto:
(operazione di cambio elevazione)
.......
ESC (fine comando)
Spero di essere stato chiaro.
Grazie ancora.
fabio.it
-- 
Ciao

 Ma ti interessa di più avere un pezzo di carta o sapere fare le cose?
Touchè! :-P
:-))
Bye
M

 Grazie ancora.
Ma ci mancherebbe altro! Con tutti i suggerimenti, aiuti, "conforti" che 
ci elargisci quotidianamente... è assolutamente il minimo! :-)
Bye
M

Ci ho provato anch'io
la routine va migliorata ma fa quello che volevi tu,
selezioni un testo (deve essere numerico)
selezioni un punto,
e a entrambi viene cambiata la coord Z del valore scritto nel testo.
Miglioramenti da fare:
gestione errori e uscita finale nel command
e anche un ciclo per far ripetere il comando senza uscire.
Inoltre si potrebbe cambiare colore ai punti e ai testi per evidenziare 
quelli già cambiati.
ciao
gene
---------------------------------------------------------------
(defun C:tz ( )
 (setq ent1 (entget (car (entsel "\nSeleziona un testo di quota: ")))) 
(terpri)
 (setq tipo1 (cdr (assoc 0 ent1)))
 (if (or (= "MTEXT" tipo1) (= "TEXT" tipo1))
  (progn
   (setq z (cdr (assoc 1 ent1)))
   (if (/= (atof z) 0.0) ; se Z non e' una parola
    (progn  ; trasforma la stringa in un numero reale
     (setq z (atof z))
     (setq ent2 (entget (car (entsel "\nSeleziona un punto: ")))) (terpri)
     (setq tipo2 (cdr (assoc 0 ent2)))
     (if (= "POINT" tipo2)
      (progn
       (setq pv (assoc 10 ent2))
       (setq pn (list 10 (cadr pv) (caddr pv) z))
       (entmod (subst pn pv ent2))
       (setq tv (assoc 10 ent1))
       (setq tn (list 10 (cadr tv) (caddr tv) z))
       (entmod (subst tn tv ent1))
      )
      (prompt "\nNon hai selezionato un punto.  ")
     )
    )
   (prompt "\nNon hai selezionato un testo di quota.  ")
   )
  )
  (prompt "\nNon hai selezionato un testo di quota.  ")
 )
)
------------------------------------------------------------- 

 Ci ho provato anch'io
Oooh.. bravo! :-)
Nel frattempo io sono andato a cena... ;-)
Che faccio?
Proseguo? ...o cancello tutto e chiudo lo SciTE?
(bellissimo editor freeware che vi consiglio) :-)
Bye
M

 (bellissimo editor freeware che vi consiglio) :-)
Lo devo scaricare..
io l'ho fatto col blocco note :-(
prosegui o modifica il mio se vuoi,
non c'è copyright
gene


sarebbe un'ottima cosa, ma forse si può ovviare lavorando in vista assonometrica... mah? Intanto lo 
provo.

-- 
Ciao

 non c'è copyright
Davvero posso? :-)
Bye
M


-------
Io invece uso come editor NOTEPAD++
ho copincollato il testo e mi è saltato fuori un listato a colori
le istruzioni in blu, le parentesi in azzurro i numeri in rosso....
Mai visto niente di simile.
(spero che non salti per aria tutto :D)
-- 
Ciao

 (spero che non salti per aria tutto :D)
Tutto giusto!
Ho provato SciTE, è stupendo!
gene


Ehm.
portate pazienza con un niubbo...
Ho 2 problemi:
tranne dopo il primo "carica" dando tz mi si apre la tavolozzestrumenti (così si chiama).
Invece quando do il primo carica, seleziono testo, seleziono punto e mi da:
Comando: _appload tz.lsp caricato.
Comando:
Seleziona un testo di quota:
Seleziona un punto:
; errore: parentesi destra in eccesso nell'input
Ho controllato di aver copincollato bene tutto...
-- 
Ciao

 portate pazienza con un niubbo...
Sorry, ma non ho capito una razza. :-))
A me le parentesi di Genep risultano esatte.
Spiega meglio che succede...
Bye
M


---
a me no,
ho tolto l'ultima e funziona (?).
E poi si ferma come ha scritto genep
-- 
Ciao

Nuova versione con ciclo,
ripete i comandi fino ad un enter o esc,
gene
---------------------------------------
(defun c:tz (;/ ent1 ent2 tipo1 tipo2 z pv pn tv tn
             )
 (setq ciclo "T")
  (while ciclo
   (setq ent1 (entget (car (entsel "Seleziona un testo di quota: ")))) 
(terpri)
   (setq tipo1 (cdr (assoc 0 ent1)))
    (if (or (= "MTEXT" tipo1) (= "TEXT" tipo1))
      (progn
       (setq z (cdr (assoc 1 ent1)))
        (if (/= (atof z) 0.0) ;se Z non e' una parola
          (progn  ;trasforma la stringa in un numero reale
           (setq z (atof z)) ;coordinata Z
           (setq ent2 (entget (car (entsel "Seleziona un punto: ")))) 
(terpri)
           (setq tipo2 (cdr (assoc 0 ent2)))
            (if (= "POINT" tipo2)
              (progn
               (setq pv (assoc 10 ent2)) ;punto vecchio coordinata
               (setq pn (list 10 (cadr pv) (caddr pv) z)) ;punto nuovo 
coordinata
               (entmod (subst pn pv ent2))
               (setq tv (assoc 10 ent1)) ;testo vecchio coordinata
               (setq tn (list 10 (cadr tv) (caddr tv) z)) ;testo nuovo 
coordinata
               (entmod (subst tn tv ent1))
              )
              (prompt "\nNon hai selezionato un punto.  ")
            )
          )
          (prompt "\nNon hai selezionato un testo di quota.  ")
        )
      )
      (prompt "\nNon hai selezionato un testo di quota.  ")
    )
  )
)
------------------------------------------------------- 

 E poi si ferma come ha scritto genep
Al tempo...
Non so come ma era sparita la prima, l'ho rimessa e l'editor ha rimesso anche l'ultima
Risolto.
Non si potrebbe rinominarlo in t2z per es.
perché altrimenti si apre sta maledetta tavolozza.
Ma poi, per farlo partire si batte: tz o !tz ?
-- 
Ciao

 ha scritto nel messaggio 
news:mn.85677d7a5...@desktoptwo.com...



-----
l'ultima versione funziona a:
M E R A V I G L I A
Sei grande.
Spero di poter in qualche modo ricambiare.
Grazie ancora.
(anche a MioMao)
-- 
Ciao

 Va che ti prendo in parola, neh... :-P
Dai che organizziamo il primo corso del ng.
Ciao.
___________________
Albert.one


Ma figurati!
Mi date tante di quelle dritte voi...
E' stato un piacere
ciao
gene

 (anche a MioMao)
Ok, prego anmche da parte mia... ma... io non ho fatto assolutamente 
NULLA! :-))
Quindi, per recuperare sul tuo "grazie", ecco alcune piccole info: il 
"comando" che avvia il LISP lo puoi cambiare da te, in questo modo (è un 
esempio):
-- La prima riga (in parte) è scitta così:
"(defun c:tz"
Il "c:" consente di istituire un vero e proprio "comando" (di nome "tz", 
appunto), richiamabile da tastiera e da menù (senza di quello, viene 
creasta una "normale" funzione, richiamabile da altre routine autolisp; 
ma questo è un altro discorso...) .
Quindi... se il "tz" non ti piace, puoi sostituirlo con quel che ti pare 
e piace (es. "c:vattellapesca", oppure "c:zz", "c:ciccì", "c:coccò" 
e.... etc...) :-D
In genere (anche se, in pratica non serve) si usa salvare con "nomefile" 
uguale a quello usato per il comando "c:" (senza il "c:", ovviamente). 
Ma... ripeto, non è necessario, in quanto al momento del caricamento, il 
prompt della linea dei comando (in autocad) "propone" il nome del 
comando appena caricato (nel caso di Genep "c:tz", appunto).
Inoltre, per essere sicuri di quale "comando" scrivere a tastiera (se si 
è smemorati), si può aggiungere al termine del file LSP (oltre l'ultima 
parentesi già esistente, quindi fuori dall'istruzione "defun") una 
istruzione del tipo:
(print "Ciao Fabio! Il comando che devi scrivere a tastiera è = CICCIO")
Questo, subito dopo il caricamento del file LSP, stamperà a video (nella 
riga dei comandi) il relativo messaggio di promemoria.
Altra cosa che si può fare (per semplificarsi la vita) è quello di 
introdurre il comando (e il caricamento del file LSP) all'interno dei 
menù di autocad.
La sequenza solita (ma credo che non vada bene a partire dalla 2007; 
sorry ma io non uso autocad) è (dovrebbe essere) :-D la seguente:
^C^C^C(load "nomefile");CICCIO;
Che significa:
-- ^C^C^C = annulla eventuali comandi attivi (corrisponde al vecchio 
"control+C" che si usava con le versione per DOS e all'attuale ESC, 
nelle versioni per Winzoz).
-- (load "nomefile"); = carica automaticamente il file (chiaramente va 
indicato il "nomefile" corretto)
-- CICCIO; = è il comando usato per avviare QUEL file LSP.
Infine, (come dice un mio cliente)... "Geometra, ha capito? Cioè... non 
so se me lo spiego..." :-))
Bye
M

 Dai che organizziamo il primo corso del ng.
Alla grande, io ci stò! :-)
Bye
M

sorry ma io non uso autocad) è (dovrebbe essere) :-D la seguente:
...qui m'hai incuriosito. Che usi?
Se non usi AutoCAD che ci fai con l'AutoLISP?
ciao
gene 

 Se non usi AutoCAD che ci fai con l'AutoLISP?
...i LISP? Li metti sul lettore MP3 e me li faccio ripetere... LOL :-D
Uso l'IntelliCAD (progecad), che è analogo (grosso modo).
Bye
M


mi permetto di dissentire...
la tua disponibilità è stata il "catalizzatore" alla soluzione del mio problema.
Buona giornata
-- 
Ciao

 Buona giornata
Fino ad ora non è stata una "buonissima" giornata.
Speriamo che adesso cambi improvvisamente... tipo il clima! :-))
Btw, grazie e altrettanto a te :-)
Bye
M

> Il comando che mi serve penso che debba funzionare nel seguente modo:...
ce l'ha già: me l'ha dato qualche anno anno fa, CI FECI UN FIGURONE 
ECCEZIONALE :D e non ho ancora finito di ringraziarlo.
Se ho un archivio meglio organizzato del suo, ma non credo :( , provo a 
mandartelo.
-- 
ciao
Stefano