Inserire blocco in centro geometrico di ogni polilinea su un dato layer

mArCo1928

Utente poco attivo
Professione: Disegnatore AutoCAD
Software: AutoCAD 2013
Regione: Emilia Romagna
E' così come in oggetto, devo inserire n volte lo stesso blocco al centro di ogni polilinea chiusa, che è sempre sullo stesso layer, per decine o centinaia di volte. E' possibile automatizzare l'operazione? Con una lisp? Grazie
 

Cristallo

Utente Standard
Professione: Leggo e confronto
Software: Lettura critica
Regione: Fuori dalla cerchia
ho modificato al volo un lisp che avevo per il calcolo del baricentro.
Le polilinee possono anche non essere chiuse, ma devono necessariamente definire il contorno di un'area, altrimenti la routine va in crash.
Per esempio una polilinea semplice, dritta, manda in crash la routine. Non ho tempo di affinare la gestione errori.
Funziona SOLO SU POLILINEE
 

Allegati

mArCo1928

Utente poco attivo
Professione: Disegnatore AutoCAD
Software: AutoCAD 2013
Regione: Emilia Romagna
Ma a me va già benissimo così com'è, ora la provo e ti dico!
 

mArCo1928

Utente poco attivo
Professione: Disegnatore AutoCAD
Software: AutoCAD 2013
Regione: Emilia Romagna
Fattore di scala del blocco da inserire: 1
Selezionare le polilinee alla quale calcolare il baricentro:
Selezionare oggetti: trovato(i) 1

Selezionare oggetti:

Estrazione eseguita di 1 sequenza chiusa.


Creazione eseguita di 1 regione.
Comando sconosciuto "-INSERT". Premere F1 per la Guida.
Comando sconosciuto "COD_AUSL". Premere F1 per la Guida.
1
 

mArCo1928

Utente poco attivo
Professione: Disegnatore AutoCAD
Software: AutoCAD 2013
Regione: Emilia Romagna
P.S. E' un blocco con attributi...

Provando a fare il comando -insert manualmente me lo da come esistente...
 

Cristallo

Utente Standard
Professione: Leggo e confronto
Software: Lettura critica
Regione: Fuori dalla cerchia
prova ad inserire un blocco senza attributi.
Il problema credo sia li
 

mArCo1928

Utente poco attivo
Professione: Disegnatore AutoCAD
Software: AutoCAD 2013
Regione: Emilia Romagna
Niente da fare, stesso identico errore...
 

Cristallo

Utente Standard
Professione: Leggo e confronto
Software: Lettura critica
Regione: Fuori dalla cerchia
Apri il file lisp con il blocco note (fanne una copia) e sostituisci -INSERT con -INSER.
Poi verifica se funziona, forse è un problema di localizzazione.
Resta il fatto che avrai problemi con l' attributo, si deve inserire un'apposita richiesta, ma inizia a fare questa variazione.
 

mArCo1928

Utente poco attivo
Professione: Disegnatore AutoCAD
Software: AutoCAD 2013
Regione: Emilia Romagna
Ok adesso funziona, e posso usare anche il blocco con attributo, alla fine del comando mi compare la tipica finestre di un blocco con attributi incollato e non compilato, quella con tutti i campi bianchi da compilare.
Mi organizzo così, è più che sufficiente.
Posso anche inserire un blocco qualsiasi e poi ridefinirlo con il blocco che serve a me e poi con un "export attributes" degli express tools gestirmi la compilazione degli attributi come meglio credo.
Grazie mille, è già tanta roba!
 

mArCo1928

Utente poco attivo
Professione: Disegnatore AutoCAD
Software: AutoCAD 2013
Regione: Emilia Romagna
Per cambiare il nome del layer su cui va a finire il blocco basta fare una ricerca all'interno del file di testo e sostituire Baricentro con layer desiderato?
 

Ch.giacomo

Utente poco attivo
Professione: Disegnatore Tecnico
Software: Autocad
Regione: Lombardia
Buongiorno, ho trovato comoda questa lisp, ma ho 2 problemini:
1) ogni volta che utilizzo il comando, i puntamenti SNAP vengono azzerati.
è possibile che rimangano come prima dopo l'utilizzo?
2)sarebbe possibile una variante della stessa LISP che invece di un blocco inserisca un punto sempre al baricentro? :) "BARIPUNTO"
Magari esiste di già, ma nel forum non ho trovato nieste.
Allego la versione in mio possesso.
Grazie mille!!
 

Allegati

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, CadWorx, Lisp, VBA. YouTube: roberto portuese
Regione: Sicilia
Ma utilizzare _GCEN sia con Insert che con Circle non è più comodo?
 

Ch.giacomo

Utente poco attivo
Professione: Disegnatore Tecnico
Software: Autocad
Regione: Lombardia
beh quando uso BARIBLOCK sono tantissime polilinee...
praticamente ho delle polilinee a forma di asola già disegnate e mi capita spesso di doverle sostituire con altre asole + o - grandi sia nel diametro che nella lunghezza..
Premessa ho tantissime asole già pre-impostate nei miei blocchi..
quindi il mio scopo è inserire un punto al centro geometrico delle asole/polilinee esistenti e poi con un'altra LISP sostituisco i punti con un blocco.. (la LISP è PT2BLOCK) faccio un doppio passaggio perché PT2BLOCK mi consente di scegliere anche la rotazione.
Parlando di decine di asole un doppio passaggio è nulla rispetto a fare 1 ad 1.
Ma se ci fosse una LISP che inserisce un PUNTO nel punto geometrico di una polilinea avrei vita facile.

per il problema 1) degli SNAP ho risolto

Grazie
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, CadWorx, Lisp, VBA. YouTube: roberto portuese
Regione: Sicilia
Ho fatto un pò di modifiche:
- Aggiunta selezione da ListBox del blocco da inserire
- Selezionando "DisegnaPunto" nella ListBox viene disegnato un punto
- File dcl creato in automatico ed eliminato a fine comando
 

Allegati

Ch.giacomo

Utente poco attivo
Professione: Disegnatore Tecnico
Software: Autocad
Regione: Lombardia
Grande!!! grazie mille!! funziona perfettamente!!
 

MANOLI63

Utente poco attivo
Professione: progettista
Software: autocad MAP 3D 2018
Regione: lombardia
Buongiorno a tutti,
ho approfittato del lavoro di Roberto (Grazie!) nell'ultimo allegato. L'ho subito provato, ma qualcosa non funziona: dopo aver scelto il blocco e impostata la scala (1), Autocad Map3d 2018 mi restituisce i
messaggi visibili qui sotto:

1631965582951.png

Sbaglio qualcosa?
Grazie
 

Allegati

MANOLI63

Utente poco attivo
Professione: progettista
Software: autocad MAP 3D 2018
Regione: lombardia
..scusate il disturbo... ora è tutto ok! Grazie a tutti (Doppio grazie a Roberto)
 

MANOLI63

Utente poco attivo
Professione: progettista
Software: autocad MAP 3D 2018
Regione: lombardia
..un ultimo dubbio...
il comando, quando inserisce i blocchi, li inserisce 1 ad 1 (se faccio "undo" ne toglie uno alla volta).
Con PT2BLOCK l'inserimento dei blocchi al posto dei punti è contestuale (se faccio "undo" tutti i blocchi spariscono insieme).
Si può ottenere lo stesso vantaggio da BARIBLOCK ?
Grazie