Newsgroup: it.comp.software.cad
Titolo: "sgruppare" gruppi!!

Salve.
Lavoro principalmente su piattaforma Allplan e spesso devo esportare i miei 
file in formato DWG per renderli leggibili. Unico problema, i file che 
esporto diventano molto pesanti poichè l'esportazione crea un bel po di 
gruppi che devo andare a esplodere manualmente col comando "gruppo"...La mia 
domanda è: c'è la possibilità di selezionare tutti i gruppi in un'unica 
volta di modo che non debba esplodere i gruppi uno per uno?!
mille grazie
Solitobip 

 Solitobip
http://www.cg-cad.com/cr_lisp3.htm
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 in un'unica volta di modo che non debba esplodere i gruppi uno per uno?!
; Marc'Antonio Alessi, Italy - 
http://xoomer.virgilio.it/alessi
;
; Function: ALE_DeleteGroups
;
; Version 1.00 - 29/09/2004
;
; Arguments: WcMNms - see WcMatch
;
; Return Values: none
;
; Examples:
;  (ALE_DeleteGroups "`*A*")          > Delete anonimous groups
;  (ALE_DeleteGroups "GroupA,GroupB") > Delete GroupA GroupB
;  (ALE_DeleteGroups "Group*")        > Delete all Group*
;  (ALE_DeleteGroups "*")             > Delete all Groups
;
(defun ALE_DeleteGroups (WcMNms / DctDat GrpNms EntNms Dxf__3)
  (and
    (setq
      DctDat (dictsearch (namedobjdict) "ACAD_GROUP")
      GrpNms (member (assoc 3 DctDat) DctDat)
      DctDat (cdar DctDat)
    )
    (while (setq Dxf__3 (cdar GrpNms))
      (and (wcmatch Dxf__3 WcMNms) (entdel (dictremove DctDat Dxf__3)))
      (setq GrpNms (cddr GrpNms))
    )
  )
)
; Marc'Antonio Alessi, Italy - 
http://xoomer.virgilio.it/alessi
;
; Function: ALE_DeleteAllGroups
;
; Version 1.00 - 29/09/2004
;
; Arguments: none
;
; Return Values: none
;
(defun ALE_DeleteAllGroups ( / VlaObj)
  (ALE_vl-load-com)
  (vlax-for ForElm (setq VlaObj (vla-get-groups *AcAcDwg*))
    (vla-delete ForElm)
  )
  (vlax-release-object VlaObj)
)
;
(defun ALE_vl-load-com ( )
  (cond
    ( *AcadApp* )
    ( T
      (vl-load-com)
      (setq
        *AcadApp* (vlax-get-acad-object)
        *AcAcDwg* (vla-get-ActiveDocument *AcadApp*)
      )
    )
  )
)
----------------------------------------------------------
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
- ...
----------------------------------------------------------


Arri, ho scaricato i file zippati ma non riesco a capire nemmeno dalle 
istruzioni qual'è l'esatta collocazione dei file all'interno della cartella 
di Autocad 2004 per poterlo far funzionare....chi mi spiega? 

SolitoBip ha scritto:


devi inserirli in una cartella di quelle che trovi qui
Strumenti -> Opzioni -> file -> percorso di ricerca file di supporto


 ha scritto nel messaggio 
news:e66ccg$c2$1...@news.newsland.it...

mmm...ho preso i 3 file, li ho messi nella prima cartella che mi è comparsa 
sotto la lista di collegamenti che mi appare su "percorso di ricerca fule di 
supporto". Poi apro autoca 2004, clicco per la lista delle barre e non mi 
appare nulla di nuovo!....aiuto.... 

 appare nulla di nuovo!....aiuto....
dai il comando _menuload 
e carica il menu.mns 



ehm....si capisco, mi fischiano le orecchie per le insolenze.....ho fatto 
tutto e ora effettivamente mi appare oltre alla lista ACAD anche la lista 
MENU....ma non mi compare nessuna lista a discesa...non mi trova il file 
esplodig.lsp che è nella stessa cartella di "menu.mns"... 

SolitoBip ha scritto:


prova con _APPLOAD
e inserisci il lisp nel gruppo di avvio



Fin qui ci sono, il comando sembra funzionare...mi chiede di selezionare gli 
oggetti: se ne seleziono uno cliccandoci sopra compare questa scritta:
Selezionare oggetti: trovato(i) 26498, 1 gruppo
Selezionare oggetti:
*Non valido*
-----------------------
digitare un nome di gruppo o [?]:
Se a questo punto do Enter esce dal lisp, se invece digito "?" mi compare
digiatere nome/i di gruppo da elencare <*>:
e qui praticamente mi richede il nome del gruppo che voglio esplodere....ma 
se č cosě comunque mi tocca dirgli il nome di ogni gruppo uno per uno..e 
allora a che serve?
Sono io che sono cogli*ne o effettivamente questo lisp non funziona 
correttamente? 

SolitoBip ha scritto:





a questo punto lascia perdere,
ti consiglio di usare quello che ti ha postato Marco_AA
