Lisp per forzare la cancellazione di stili di quota

jim78b

Utente Standard
Professione: PROGETTISTA
Software: Solidworks 2016- autocad mech 2013-2017
Regione: lombardia
#1
Avete un lisp x forzare la cancellazione degli stili di quota?a volte mi ritrovo sempre ANSI e x cancellarlo devo fare wblock ogni volta.grazie
 
Ultima modifica da un moderatore:

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#2
Ma il semplice comando purge non basta?
In ogni caso se così non fosse, prova a cancellare tutto ciò che non si vede:
erase all e rimuovi con crossing tutto il disegno.
 

jim78b

Utente Standard
Professione: PROGETTISTA
Software: Solidworks 2016- autocad mech 2013-2017
Regione: lombardia
#3
No no non basta non se ne va via lo stile ansi io ho mechanical 2013.se rimuovo tutto non ha senso o no?
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#5
Mi sono espresso male:
(command "_erase" "_all" "" "_r" "_c" (getvar "extmin") (getvar "extmax") "")
poi fai purge all
E' equivalente al wblock.
 

jim78b

Utente Standard
Professione: PROGETTISTA
Software: Solidworks 2016- autocad mech 2013-2017
Regione: lombardia
#6
cioè salvo questo come lisp? cosa fa questo listato? scusami se non capisco.grazie
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#7
Salvalo come comando:
(defun c:EraseAllNotVisible()
(command "_erase" "_all" "" "_r" "_c" (getvar "extmin") (getvar "extmax") "")
)
Cancella tutto ciò che non è visibile.
 

jim78b

Utente Standard
Professione: PROGETTISTA
Software: Solidworks 2016- autocad mech 2013-2017
Regione: lombardia
#8
mi ha cancellato tutto il disegno!!!! scrivendo nil alla fine!
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#9
(command "_erase" "_all" "_r" "_c" (getvar "extmin") (getvar "extmax") "")
mi sono scappate due virgolette in più :giggle:
 

jim78b

Utente Standard
Professione: PROGETTISTA
Software: Solidworks 2016- autocad mech 2013-2017
Regione: lombardia
#10
Quindi così cosa farebbe ?cancella lo stile ansi ?però dubito perché è come se èusato da qualcosa
 

jim78b

Utente Standard
Professione: PROGETTISTA
Software: Solidworks 2016- autocad mech 2013-2017
Regione: lombardia
#11
Command: _appload EraseAllNotVisible.lsp successfully loaded.
Command: ; error: malformed list on input

non lo carica

(defun c:EraseAllNotVisible()
(command "_erase" "_all" "_r" "_c" (getvar "extmin") (getvar "extmax") "")
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#12
Non volermene ma se vuoi usare i comandi in lisp, non credi che almeno l'abc ti tocca studiartelo?
Una qualsiasi funzione defun parte con la parentesi ( e si deve chiudere con ), tante aprono, tante chiuduno.
Nel tuo caso, manca la chiusura, ci sono 5 che aprono ma solo 4 che chiudono.
Link: Il mio Lisp
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#17
Ho verificato, al momento l'unico sistema è quello del wblock, se trovo una soluzione alternativa mi faccio sentire.
 

jim78b

Utente Standard
Professione: PROGETTISTA
Software: Solidworks 2016- autocad mech 2013-2017
Regione: lombardia
#18
guarda grazie del tempo che mi hai dedicato, che roba strana pero' ! è come la peste sto stile!!
buona giornata