lisp x scrivere coorddinate dei punti
Invernomuto
selezionare i punti tramite osnap per poi darmi le coordinate dei punti in
formato testo e non come blocco, con l'unica accortezza che le coordinate al
posto di X e Y debba avere rispettivamente Est e Nord.
ricapitolando:
E=(valore numerico)
N=(valore numerico)
insomma la stessa cosa che fa questo lisp trovato su www.cadlandia.it
(defun c:mv (/ os pt1 pt py pt2)
(setq os (getvar "osmode"))
(setvar "osmode" 8)
(setq pt1 (getpoint "\nSelezionare il punto: "))
(setq pt (caddr pt1))
(setq py (rtos pt 2 3))
(setvar "osmode" 0)
(progn)
(setq pt2 (getpoint "Punto di inserimento coordinata Z: "))
(command "_text" pt2 "" "" py)
(setvar "osmode" os)
)
ma al posto del valore di z io voglio su due righe distinte i valori di Est
(X)e Nord (Y) con anteposto E= e N=
grazie
InvernoMuto
ps x Aniello
allora ricordi il problema dell' MTEXT? non sono riuscito piu' a risolverlo
a presto formatto il pc e complimenti il tuo sito (portale) cresce a vista
d'occhio ed meta della mie visite periodicamente a caccia di news e utility.
Davvero complimenti
ppss
come mai non hai utilizzato i frame per il menu'? ormai li supportano tutti
i browser.
Invernomuto
e r14 sia inglse che italiano... ( "e una fetta di culo? no?"...^_^)
Inve
Stefano Gaggioli
ti potrebbe andare bene questa variante?
(defun c:mv (/ os pt1 pt py pt2)
(setq os (getvar "osmode"))
(setvar "osmode" 8)
(setq pt1 (getpoint "\nSelezionare il punto: "))
(setq pt (car pt1))
(setq ptt (cadr pt1))
(setq py (strcat "Nord: "(rtos pt 2 3)" - " "Est: "(rtos ptt 2 3)))
(setvar "osmode" 0)
(progn)
(setq pt2 (getpoint "Punto di inserimento delle coordinate N ed E: "))
(command "_text" pt2 "" "" py)
(setvar "osmode" os)
)
Ciao, Stefano Gaggioli - Bologna
"Invernomuto" <ax...@orvienet.it> ha scritto nel messaggio
news:jAT57.4612$8M2.1...@news.infostrada.it...
Invernomuto
"Stefano Gaggioli" <stefano...@tin.it> ha scritto nel messaggio
news:9j913b$euk$1...@pinco.nettuno.it...
> Ciao,
> ti potrebbe andare bene questa variante?
>
> (defun c:mv (/ os pt1 pt py pt2)
> (setq os (getvar "osmode"))
> (setvar "osmode" 8)
> (setq pt1 (getpoint "\nSelezionare il punto: "))
> (setq pt (car pt1))
> (setq ptt (cadr pt1))
> (setq py (strcat "Nord: "(rtos pt 2 3)" - " "Est: "(rtos ptt 2 3)))
> (setvar "osmode" 0)
> (progn)
> (setq pt2 (getpoint "Punto di inserimento delle coordinate N ed E: "))
> (command "_text" pt2 "" "" py)
> (setvar "osmode" os)
> )
>
> Ciao, Stefano Gaggioli - Bologna
>
Ora provo e ti faccio sapere
cmq vada grazie!!
Invernomuto
distinti (uno sopra e uno sotto) sarebbe perfetto
Invernomuto
"Invernomuto" <ax...@orvienet.it> ha scritto nel messaggio
news:fCU57.4966$8M2.1...@news.infostrada.it...
Stefano Gaggioli
ecco fatto!
(defun c:mv (/ os pt1 pt py pt2)
(setq os (getvar "osmode"))
(setvar "osmode" 8)
(setq pt1 (getpoint "\nSelezionare il punto: "))
(setq pt (car pt1))
(setq ptt (cadr pt1))
(setq pnord (strcat "Nord: "(rtos pt 2 3)))
(setq pest (strcat "\nEst: "(rtos ptt 2 3)))
(setvar "osmode" 0)
(progn)
(setq pt2 (getpoint "Punto di inserimento delle coordinate N ed E: "))
(command "_text" pt2 "" "" pnord)
(command "_text" pt2 "" "" pest)
(setvar "osmode" os)
(princ)
)
Stefano.
> "Invernomuto" <ax...@orvienet.it> ha scritto nel messaggio
news:nBV57.5327$8M2.1...@news.infostrada.it...
Roasio Piercarlo
Sarebbe possibile inserire un blocco con attributi ?
il simbolo dovrebbe essere un enita' "point"
e i due attributi uno Est e l' altro Nord.
Grazie
Piercarlo
"Stefano Gaggioli" <stefano...@tin.it> ha scritto nel messaggio
news:9jc4nd$9l4$1...@pinco.nettuno.it...
Aniello Annunziata
>insomma la stessa cosa che fa questo lisp trovato su www.cadlandia.it
Beh, InvernoMuto, non è che ci giri poi tanto sul sito se non ti
ricordi nemmeno la URL :)... www.cadlandia.COM
>ma al posto del valore di z io voglio su due righe distinte i valori di Est
>(X)e Nord (Y) con anteposto E= e N=
Al quesito t'ha risposto già Stefano Gaggioli dunque io taccio.
>ps x Aniello
>allora ricordi il problema dell' MTEXT? non sono riuscito piu' a risolverlo
>a presto formatto il pc
TEXTED="."
Questo è l'unica cosa che devi fare.
> e complimenti il tuo sito (portale) cresce a vista
>d'occhio ed meta della mie visite periodicamente a caccia di news e utility.
>Davvero complimenti
CADLandia è un frutto di 6 persone (io, Lorenzo Innocenti, Luigi
Provenza, Luigi Rattini, Alessandro Miele e Gabriele Pranzo), più
degli altri collaboratori esterni... ossia 6 persone che ci lavorano
48 ore al giorno a cranio ed altre 6 (Simone Spinaci, Alessandro
Timpano, Sergio Moalli, Mario Iannelli, Mario Scavroni e Giovanni
Anzani) che ci valorano nei ritagli di tempo del loro lavoro
semplicemente per il gusto di aiutare gli altri, ed a loro va la
maggior parte degli onori di CADLandia, noi preferiamo prenderci gli
oneri.
>ppss
>come mai non hai utilizzato i frame per il menu'? ormai li supportano tutti
>i browser.
Beh, abbiamo fatto un piccolo studio e la creazione delle pagine fatta
in questo modo era più semplice per noi, ed essendo il menu testuale
non appesantiva il caricamento. Inoltre visto che stiamo portando
tutto in ASP, in effetti tramite la funzione INCLUDE delle SSI
riusciremo a creare una sola volta il menu ed a farlo includere
tramite l'ASP in tutte le pagine.
Comunque aspettatevi altre grosse novità, e siccome sono buono, vi
preannuncio che a settembre comparirà un calendario in home page con
tutti gli appuntamenti legati al CAD in evidenza... e poi anche le
news.
Saluti, Aniello
--
Aniello Annunziata
Content Director Manager
www.cadlandia.com
aniello.a...@cadlandia.com
Per rispondermi in privato, togli NOGARBAGE dall'indirizzo
Invernomuto
> Beh, InvernoMuto, non è che ci giri poi tanto sul sito se non ti
> ricordi nemmeno la URL :)... www.cadlandia.COM
chiedo venia ^_^ e non trattarmi male io ero in buona fede!!!! oltretutto vi
sto' facendo pubblicita' anche tra i vari professionisti del settore...
almeno quando vvi quotate in borsa mi darete qualche percentuale ^__^
> TEXTED="."
> Questo è l'unica cosa che devi fare.
boh... ora riprovo...cmq devo foramattare..sai winzoz...
> CADLandia è un frutto di 6 persone (io, Lorenzo Innocenti, Luigi
> Provenza, Luigi Rattini, Alessandro Miele e Gabriele Pranzo), più
> degli altri collaboratori esterni... ossia 6 persone che ci lavorano
> 48 ore al giorno a cranio ed altre 6 (Simone Spinaci, Alessandro
> Timpano, Sergio Moalli, Mario Iannelli, Mario Scavroni e Giovanni
> Anzani) che ci valorano nei ritagli di tempo del loro lavoro
> semplicemente per il gusto di aiutare gli altri, ed a loro va la
> maggior parte degli onori di CADLandia, noi preferiamo prenderci gli
> oneri.
...minghia allora guadagnata una marea di soldi :))))))
> Beh, abbiamo fatto un piccolo studio e la creazione delle pagine fatta
> in questo modo era più semplice per noi, ed essendo il menu testuale
> non appesantiva il caricamento. Inoltre visto che stiamo portando
> tutto in ASP, in effetti tramite la funzione INCLUDE delle SSI
> riusciremo a creare una sola volta il menu ed a farlo includere
> tramite l'ASP in tutte le pagine.
> Comunque aspettatevi altre grosse novità, e siccome sono buono, vi
> preannuncio che a settembre comparirà un calendario in home page con
> tutti gli appuntamenti legati al CAD in evidenza... e poi anche le
> news.
ok capito io chiedevo perchè sto mettendo in piedi una mia paginetta e
siccome ci capisco poco... chiedevo...
> Saluti, Aniello
ciao Invernomuto
Invernomuto
> Ciao,
> ecco fatto!
>
> (defun c:mv (/ os pt1 pt py pt2)
> (setq os (getvar "osmode"))
> (setvar "osmode" 8)
che dire non ti bacio perchč poi potrebbero pensare male qua ^_^
Invernomuto
Aniello Annunziata
>chiedo venia ^_^ e non trattarmi male io ero in buona fede!!!! oltretutto vi
>sto' facendo pubblicita' anche tra i vari professionisti del settore...
>almeno quando vvi quotate in borsa mi darete qualche percentuale ^__^
Beh, non volevo rimproverarti. Comunque quando ci quoteremo in borsa,
ti daremo l'1% delle azioni... e non dire che sono poche!
>boh... ora riprovo...cmq devo foramattare..sai winzoz...
Lo so, lo so, ora passo a Win2000 così certe cose me le scordo.
>...minghia allora guadagnata una marea di soldi :))))))
Si, tanti, pensa che volevamo fare una OPA su Bentley, Autodesk,
Graphisoft e Bricsnet, in modo da comprarcele tutte e fare un unica
grande compagnia software...
>ok capito io chiedevo perchè sto mettendo in piedi una mia paginetta e
>siccome ci capisco poco... chiedevo...
Ed io ti ho risposto!
Ciao Inverno!