Newsgroup: it.comp.software.cad
Titolo: Aiutino?

Tempo fa ho trovato questo lisp di Paolo Grigio mi sembra, e non avendo 
dimestichezza vorrei sapere dove intervenire per inserire solo numeri senza 
pallino e se magari si può modificare il carattere (mettere in corsivo)
Grazie a chiunque mi aiuti
(defun c:pal ( / b k r p1 p4 )
     (setq b (getvar "textsize"))
     (setvar "textsize" 0.25)
     (setq k 1)
     (initget 2)
     (setq r 0.30)
     (setq p1 (list 1 1))
     (while (/= p1 nil)
         (setq p1 (getpoint "Punto di inserimento:  "))
         (if (/= p1 nil)
             (progn
               (command "_circle" p1 r)
               (command "_text" "m" p1 "" 0 k)
               (setq k (+ k 1))
             )
         )
     )
     (princ)
     (setvar "textsize" b)
) 

 Grazie a chiunque mi aiuti
Per eliminare il cerchio rimuovi questa linea:
 >                (command "_circle" p1 r)
Se vuoi modificare l'altezza del testo devi cambiare il valore 
pre-impostato di 0.25 qui:
 >      (setvar "textsize" 0.25)
Per quanto riguarda il cambio del carattere, direi che la cosa più 
semplice è modificare lo stile di testo (comando "stile" o "style" in 
inglese) prima di lanciare il comando.
Ciao
Maci

Grazie mille, lo provo subito
"Maci" <maci...@pippo.pip> ha scritto nel messaggio 
news:dVVNg.20436$6Z1....@tornado.fastwebnet.it...


 ha scritto nel messaggio 
news:ZhWNg.20486$6Z1....@tornado.fastwebnet.it...

Funziona, grazie, e hai ragione per lo stile di testo. Ma se volessi 
inserire progressivamente una numerazione del tipo 1.1    1.2    1.3  ecc.?
Se esagero ti chiedo scusa
Grazie lo stesso
Se esagero 

 Se esagero 
... un pochino :-)
beccati questo:
(defun c:pal ( / b pref suff p1 p4 txt)
      (setq b (getvar "textsize"))
      (setvar "cmdecho" 0)
      (setvar "textsize" 0.25)
      (setq pref 1)
      (setq suff 1)
      (setq p1 (list 1 1))
      (while (/= p1 nil)
          (initget 2 "Prefisso")
          (setq p1 (getpoint "\Punto di inserimento o P per incrementare 
il prefisso:  "))
          (if (/= p1 nil)
              (cond ((= p1 "Prefisso") (setq pref (1+ pref) suff 1))
                    (t (setq txt (strcat (itoa pref) "." (itoa suff)))
                       (command "_text" "m" p1 "" 0 txt)
                       (setq suff (1+ suff))
                    )
              )
          )
      )
      (princ)
      (setvar "textsize" b)
)
Ciao
Maci

E' esattamente quello che cercavo, e grazie ancora per la pazienza
XM

> ... scusa se esagero 

tanto per *esagerare* ancora un pochino...
mi intrometto per chiederTi corteseemente qual'è la variabile che imposta
la rotazione del testo.
(a me compare ruotato di 90 gradi a sinistra)
TIA, ...e scusate l'intromissione! Veramente un lispettino comodo.
ByE bYe By Taf®
-- 
A: Because it disturbs the logical flow of the message.
Q: Why is top posting frowned upon?
R: Perche' disturba il flusso logico della lettura
D: Perche' "postare sopra" e' tanto fastidioso?

basta cercare in rete
http://www.professionearchitetto.it/forum/forum_posts.asp?TID=212
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Non è una variabile (o forse c'è, ma non è questo il punto)
La funzione
(command "_text" "m" p1 "" 0 txt)
scrive un testo esattamente con la stessa sequenza di dati così come 
avviene da tastiera:
-   "_text" è il comando ("testo" in italiano)
-   "m" è opzionale, specifica che il punto di inserimento è il punto di 
mezzo del testo (al centro sia orizzontalmente che verticalmente)
-   p1 è la risposta alla richiesta del punto di inserimento, che è 
stato selezionato prima;
-   "" è la risposta alla richiesta del valore dell'altezza, che è già 
stata preimpostata all'inizio con valore 0,25 ("textsize"); la risposta 
è nulla, equivale ad un invio, cioè conferma del valore di default;
-   0 è la risposta alla richiesta dell'angolo di rotazione; quindi 
angolo 0 = orizzontale
-   txt è la variabile che contiene la stringa di testo da scrivere.
Quindi per ottenere una rotazione particolare del testo occorre 
intervenire sul valore dell'angolo attualmente a 0.
Per il tuo problema credo possa derivare:
-	da un'UCS impostata ruotata;
-	da una impostazione delle direzioni angolari non standard.
Ciao
Maci

intervenire sul valore dell'angolo attualmente a 0.
il mio problema è che sono proprio negato!!!
ho cancellato lo "0" quando ho cambiato l'altezza del carattere.
Grazie 1000!
