Newsgroup: it.comp.software.cad
Titolo: Problema di visualizzazione

Ciao a tutti.
C'è qualcuno che sa dirmi xchè quando apro autocad o un nuovo file mi si 
apre prima la guida?
Grazie 

mari ha scritto:

che versione di AutoCAD hai ?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

2005 

 apre prima la guida?
Sei certo che sia la guida e non la finestra di StartUp che trovi e setti in 
strumenti-opzioni-Sistema?
frank 

E' proprio la guida di autocad!!!! 

molto comodo ma non so perchè mi fa aprire la guida 

 
[...]
Hai impostato AutoCAD per il caricamento automatico di questo lisp 
all'avvio?
Comunque, sia in caricamento automatico che manuale, a me non apre 
nessuna guida.
Ciao
Maci

"Maci" <maci...@pippo.pip> ha scritto nel messaggio 
news:dZdOg.22056$6Z1....@tornado.fastwebnet.it...

 Se lo imposto in automatico mi parte la guida
 altrimenti non da nessun problema.
 Comunque mi è utilissimo e non è un gran problema e che non capisco 

  Comunque mi è utilissimo e non è un gran problema e che non capisco
sostituisci il lisp con uno di questi e risolvi il problema
http://www.professionearchitetto.it/forum/forum_posts.asp?TID=212


> Comunque mi è utilissimo e non è un gran problema e che non capisco
Ci sono due problemi:
1) mancava una parentesi destra
2) se usi uno stile con altezza fissa va in errore
Prova questo:
(defun c:pal ( / b pref suff p1 p4 txt Flag)
  (and
    (= 0.0 (cdr (assoc 40 (tblsearch "STYLE" (getvar "Textstyle")))))
    (setq Flag T)
  )
  (setq
    b    (getvar "textsize")
    pref 1
    suff 1
    p1   (list 1 1)
  )
  (setvar "cmdecho" 0)
  (setvar "textsize" 0.25)
  (while p1
    (initget 2 "Prefisso")
    (setq p1
     (getpoint "\Punto di inserimento o P per incrementare il prefisso:  ")
    )
    (cond
      ( (= p1 "Prefisso")
        (setq pref (1+ pref) suff 1)
        (princ (strcat "\nPrefisso = " (itoa pref) "  "))
      )
      ( p1
        (setq txt (strcat (itoa pref) "." (itoa suff)) )
        (if Flag
          (command "_.text" "m" p1 "" 0 txt)
          (command "_.text" "m" p1    0 txt)
        )
        (setq suff (1+ suff))
      )
    )
  )
  (setvar "textsize" b)
  (princ)
)
-- 
----------------------------------------------------------
Marc'Antonio Alessi - 
http://xoomer.virgilio.it/alessi
Per AutoCAD:
- Travi 2D: disegno automatico travi e pilastri in C.A.,
  relativi ferri e staffe, report peso ferri e C.A.
  su Excel
- Calcolo automatico aree su planimetrie: report su Excel
  per locale altezza, piano con descrizioni locali e piani
- Elaborazione dati from/to Excel
- Librerie manufatti in assonometria
- Autolayers: gestione automatica dei layers
- Elaborazioni e stampe multiple e automatiche
- Parametrico 2D, Viterie 2D/3D, Esplosi 2D/3D
- AutoGroups: gestione automatica gruppi di layers
- SetUp del disegno con gestione automatica DimStyles
- Conversione automatica files Inventor a DWG e viceversa
  anche senza avere Inventor installato
- ...
----------------------------------------------------------

 1) mancava una parentesi destra
Dove, secondo te?
A me lo carica senza problemi
Ciao
Maci

 A me lo carica senza problemi
Hai ragione, chiedo umilmente scusa.
Mancava perchè ci avevo già messo le mani per togliere la "(if".
...allora non si spiega l'errore in caricamento,
forse il problema sta in qualche altro "lisp".
Ciao.
Marco