CAD3D meccanica CAD3D grafica CAD3D architettura < cad3d.forumcommunity.net >

Reply

APPLICAZIONI LISP per AutoCAD

« Older   Newer »
view post Posted on 22/3/2009, 18:15           Quote
Avatar

Advanced Member

Group:
Administrator
Posts:
1062
Reputation:
0

Status:


APPLICAZIONI LISP per AutoCAD

Le seguenti applicazioni LISP si possono scaricare ed utilizzare liberamente. Una volta effettuato il download utilizzare il comando di AutoCAD "Load Application..." per caricare il file.

Calcolo Superfici

Questa funzione chiede un punto all'interno di un'area (che identifica una stanza) e l'altezza delle pareti. Restituisce, scrivendoli sul punto scelto: la superficie, il volume e la superficie totale comprensiva delle pareti e del soffitto della stanza. Oppure scrive solo la superficie ed il perimetro dell'area su nuovi layers.

Cambia elevazione a curve

Con questa funzione è possibile cambiare velocemente l'elevazione a delle polilinee che rappresentano le curve di livello. Il programma chiede la quota della prima polilinea, i punti dell'intercetta e l'equidistanza tra le curve di livello.
Da polilinea a sezione

Questa routine permette di trasformare una polilinea che rappresenta l'andamento altimetrico del terreno in un file di sezione contenente NUM,X,Y di ogni punto.
Squadratura

Questo programma serve per il disegno in modo interattivo della squadratura del foglio alle varie scale di plottaggio. Una volta lanciato il formato desiderato (A0, A1, A3, A4) digitare alla tastiera la scala della squadratura e premere invio; muovendosi con il mouse sullo schermo di AutoCAD verrà proposta la squadratura scelta. Se invece della scala si digita "r" (erre minuscola) verrà proposto il foglio ruotato di 90°.
Scrivi coordinate polilinea

Con questa funzione si scrivono in un file TXT le coordinate di una polilinea. Su ogni riga del file ci sarà N X Y Z di ogni vertice separati da un carattere scelto dall'utente.

Elimina vertice da polilinea

Questa routine permette di eliminare un vertice da una polilinea. Il programma chiede all'utente di selezionare la polilinea e successivamente il vertice da eliminare.
Scrive Progressive e Quote in File CSV

Se si hanno a disposizione delle sezioni già disegnate in AutoCAD e si vogliono trasferire in un file utilizzabile in EXCEL, con questa funzione è possibile farlo selezionando i testi che rappresentano le progressive e quelli delle quote.
Carica punti da file TXT

Con questo applicativo si possono caricare in AutoCAD una serie di punti registrati in un file TXT. Ogni riga del file contiene i dati di un punto: Codice;X;Y;Z separati da un punto e virgola. L'utente può decidere di creare punti 2D o 3D; oltre al punto vengono scritti il codice e la quota del punto su layers diversi.
Carica punti da file TXT e traccia le linee che li unisce

Con questo applicativo si possono caricare in AutoCAD una serie di punti registrati in un file TXT ed unirli con delle linee. Ogni riga del file contiene i dati di un punto: Codice;X;Y;Z separati da un punto e virgola. L'utente può decidere di creare punti 2D o 3D (e quindi linee 2D o 3D); oltre al punto ed alle linee vengono scritti il codice e la quota del punto su layers diversi.

Esporta in un file TXT le coordinate X,Y,Z dei punti presenti in AutoCAD

Questo applicativo esporta in un file TXT le coordinate dei punti presenti nel dwg. Viene creata una riga per ogni punto con X Y Z separati da un punto e virgola.
Selezione veloce

Questo applicativo contiene 2 utility: SB e SL. SB permette la selezione veloce di tutti i blocchi aventi lo stesso nome di quello selezionato, mentre SL seleziona tutte le entità con lo stesso layer dell'oggetto selezionato. In entrambi i casi viene creato un gruppo di selezione con i grips attivati (come succede con la selezione veloce di AutoCAD).
Trasforma una polilinea 3D in polilinea 2D

Questo applicativo trasforma una polilinea 3D (entità 3DPOLY) con le coordinate dei vertici diverse da 0 in una polilinea ancora 3D ma con tutte le quote dei vertici a 0.
Esporta tutti i collegamenti ipertestuali in un file .csv

Questa procedura permette di esportare tutti i collegamenti ipertestuali inseriti su blocchi presenti nel disegno in un file .CSV che si può aprire direttamente con EXCEL.
Ricrea il contorno di un HATCH (retino) con una polilinea

Se avete degli HATCH (retini) rimasti senza contorno, questo programma è in grado di creare una polilinea di contorno selezionando l'Hatch.
Trasforma i blocchi con attributi in punti 3D

Se nel vostro disegno avete dei blocchi che rappresentano dei punti 3D, lanciando la funzione ATTPUNTI il programma crea un punto 3D nel punto di inserimento del blocco.

Se invece avete dei blocchi con attributi che rappresentano dei punti 3D, la funzione ATTPUNTIQ crea un punto in corrispondenza del punto di inserimento del blocco e gli attribuisce la Z che legge dall'attributo che contiene la quota.
Scrive le lunghezze dei segmenti lungo una polilinea (1)

Con questa routine potete scrivere le lunghezze dei segmenti che compongono una polilinea semplicemente selezionandola. I testi vengono inseriti su un nuovo layer, la polilinea può essere una LWPOLYLINE o una POLYLINE, per cambiare l'altezza dei testi digitare HT al prompt dei comandi.

Scrive le lunghezze dei segmenti lungo una SERIE di polilinee (2)

Come il precedente ma permette di selezionare una serie di polilinee. Il codice è in chiaro.
Calcola il volume di una superficie realizzata con 3DFaces

Nello ZIP troverete 2 files: PRISMOIDI.lsp e PRPiani.DCL. Vanno estratti nella stessa cartella e tale cartella deve essere inserita nei percorsi di ricerca di AutoCAD (Strumenti->Opzioni->Files). PRISMOIDI.lsp contiene 2 funzioni: PRISMODIFF per calcolare la differenza di volume tra 2 superfici e PRISMO per calcolare il volume rispetto ad 1 piano orizzontale. Il programma cambia il colore delle 3DFaces a seconda che queste sottendano un volume di scavo o di riporto (in questo modo si ottiene una visualizzazione delle aree di scavo e di riporto, ovviamente se il piano taglia la superficie).
Spezza le linee selezionate in tutti i punti di intersezione

Si selezionano delle linee nel disegno ed il programma le spezza (comando Break) in ogni punto di intersezione tra loro.
Crea una polilinea 3D di sezione su una superficie a 3DFACES

Una volta disegnata una polilinea che interseca delle 3Dfaces, con questa funzione viene generata una 3DPOLY che ha come vertici i punti di intersezione della polilinea 2D con i lati delle 3DFACES (di fatto una sezione del modello del terreno).
Crea una polilinea 3D di sezione su una superficie a curve di livello

Il programma serve per tracciare una sezione su curve di livello. La routine restituisce una poly 3D con i vertici nei punti di intersezione con Polyline, 3DPoly, Line.
Scambia le coordinate Y e Z dei punti presenti nel disegno

Questo programma scambia le coordinate Y e Z di tutti i punti presenti nel disegno.
Inserimento di triangoli numerati utilizzabili per scrivere i vertici in una tabella

In questo ZIP si trovano 2 files: triangoli.lsp e triangoli.dcl. Vanno estratti nella stessa cartella e tale cartella deve essere inserita nei percorsi di ricerca di AutoCAD (Strumenti->Opzioni->Files). Il programma permette all'utente di inserire dei triangoli (LWPOLYLINE) numerati e successivamente di scrivere nel disegno una tabella con il numero del triangolo e le coordinate dei 3 vertici.
Carica i punti e i contorni da file .EMP generato da PREGEO 8

Con questo programma caricate, direttamente da AutoCAD, i punti e i contorni leggendoli da un file .emp generato da PREGEO 8. Verranno considerate solamente le righe 8 dei punti e le righe 7 dei contorni. I punti, i testi e le linee verranno creati rispettivamente sui layers 00_PUNTI, 00_CODICI, 00_CONTORNI.
Cambia lo spessore di polilinee e linee

Routine per cambiare lo spessore a polilinee, lwpolyline e linee che l'utente seleziona.
Cambia il numero di decimali ai testi selezionati

Programma per cambiare il numero di decimali dei testi selezionati.
Sposta le entità selezionate sul layer 0 e gli attribuisce il colore e tipolinea dei layers di partenza

Programma spostare le entità selezionate sul layer 0 attribuendogli il tipolinea e il colore del layer su cui erano in partenza.
Esporta in un file csv le lunghezze delle polilinee selezionate

Programma per esportare in un file .csv il codice e la lunghezza delle polilinee selezionate in AutoCAD. L'ordine di scrittura nel file è quello con cui si sono selezionate le polilinee. Utilizzando il metodo _fence durante la selezione le polilinee saranno in ordine a cominciare dal primo punto della spezzata fino all'ultimo.
Inserisce un vertice in una poly3D interpolando la quota tra i vertici più vicini

Programma inserire dei punti all'interno di una poly 3D. La quota del nuovo punto viene calcolata interpolandola tra le quote dei vertici esistenti più vicini.
http://www.sepram.com/applicazioni_lisp.htm

 
PM Email  Top
view post Posted on 23/3/2009, 19:42           Quote
Avatar

Advanced Member

Group:
Administrator
Posts:
1385
Reputation:
0
Location:
ROMA

Status:


Singoli lisp e intere librerie freeware per semplificare l'uso di Autocad.

LISP

QUOTESOV di Claudio Rivoira - Trova tutte le quote sovrapposte.
EsplodiG di Claudio Rivoira - Permette di esplodere i gruppi.
AssCav 2.0 2004 di Paolo Grigio - Genera assonometrie cavaliere perfette.
Filet3D 2004 di Paolo Grigio - Disegna filettature solide 3D secondo il Sistema Metrico Internazionale.
DWGguard TNT 2006 di Fabrizio Battistini - consente di trasformare un file DWG in un equivalente formato protetto.
Wall 5.03 di Marco Monni
Libreria lisp di Claudio Rivoira
COPIATXT di Claudio Rivoira - Per copiare la stringa di un testo, selezionando un altro testo.
Lisp per il disegno 3d di Fabrizio Battistini
Finestre di Claudio Paris
deldup.zip - Rimuove entità (linee, archi, cerchi, testi) duplicate sovrapposte (o parzialmente sovrapposte) dal disegno. Autore Theo L.A. Groenenberg
star.zip - Due LISP per disegnare una stella. Autori C. Guerin, J. Tippit
Lisaju2 v3 - Disegna curve di Lissajous nel piano. Autore Claudio Piccini
PicK 3.7 - Libreria di 134 LISP per il disegno architettonico in AutoCAD. Autore Claudio Piccini
Tecniche di programmazione in LISP

Tips 'n Tricks - Consigli, trucchi e sorgenti lisp per programmare in AutoLISP
LISP Trek - Una guida all'uso del linguaggio LISP in ambiente CAD
http://www.cg-cad.com/lisp.htm

 
PM Email  Top
view post Posted on 23/3/2009, 20:08           Quote
Avatar

Advanced Member

Group:
Administrator
Posts:
1385
Reputation:
0
Location:
ROMA

Status:


LISP GRATUITI
creapat.zip
seguire istruzioni contenute nel file creapat.txt

Piccola utility che permette di creare un file *.pat personalizzato contenete, un modello di tratteggio da aggiungere a quelli gia presenti in AutoCAD.
Si possono creare tutti i modelli di tratteggio personalizzati che si desiderano!!

Per l'utilizzo dell'utility leggere il file creapat.txt

(P.S. Funziona solo con AutoCAD2000 o succ.)

45.zip

45
Alterna la rotazione del UCS rispetto l'asse Z di +45° e -45°
acce-isola.zip

acce
Accende e scongela tutti i layer del disegno corrente

isola
Congela tutti i layer tranne quello corrente, in altre parole isola il layer corrente
bl.zip

bl
Crea un blocco e lo riposiziona nello stesso punto in cui erano posizionati gli oggetti selezionati per la creazione del blocco
cer.zip

cer

Ricerca tra i testi selezionati un testo a piacere e lo colora di blu
conpo.zip

compo
Converte le entità LINEA selezionate in POLILINEE3D (attenzione: i segmenti di polilinea 3D ricavati non vengono uniti!)
pol.zip

pol
Converte le polilinee2D in polilinee3D
cor.zip

cor
Permette di posizionare un'entità punto che giaccia su una linea 3D partendo dalla sua proiezione nel piano, in altre parole permette di individuare la quota di un punto di una linea 3D semplicemente dando le coordinate XY
cp.zip

cp
Copia gli oggetti selezionati sopra a se stessi, può sembrare un comando inutile, ma non lo è quando si lavora con le regioni o i solidi, infatti il comando unione,sottrai,interseca, fanno sparire dal disegno gli oggetti selezionati per l'operazione, copiandoli sopra a se stessi si evita la perdita dell'oggetto originale
elim.zip

elim
Non è altro che il comando "elimina" o "purge" nella versione inglese di AutoCAD che funziona con interfaccia grafica semplificando la risposta a tutte le domande che fa AutoCAD.

Per un suo veloce utilizzo ed pulire tutto il DWG dagli oggetti e/o impostazioni indesiderate è sufficiente avviare il comando "elim" e premere per n°3 volte consecutive INVIO.

freccia.zip

freccia
Permette di disegnare una freccia inserendo solo alcuni valori tipo la lunghezze, la partenza e l'arrivo. Inoltre permette la scelta tra una freccia vuota o piena
imm.zip

imm
Comando molto utile quando si ha a che fare con numerose immagini, infatti permette di "Scaricare" "Staccare" o "Ricaricare" una o più immagini semplicemente selezionandole.
mod_retin.zip

mod_retin
Modifica la scala o il tipo del retino per uno o più retini selezionati, l'unico neo del comando è quello che il nome del retino bisogna ricordarlo a memoria. Questo comando è molto utile quando bisogna cambiare la scala centinaia di retini, con in soli comandi di AutoCAD bisogna farlo retino per retino
pen.zip

pen
Calcola la pendenza di una linea in percentuale considerando l'asse delle X come piano campagna
retin-sol.zip

retin
Permette di retinare con una campitura a scelta una o più regioni o polilinee chiuse

sol
Permette di retinare con una campitura solida una o più regioni o polilinee chiuse
sca2.zip

sca2
Utility che scala secondo un determinato fattore di scala uno o più cerchi, ellissi, testi, blocchi secondo il loro centro o il loro punto di inserimento
scablo.zip

scablo
Utility che permette di scalare uno o più blocchi secondo l'asse delle X delle y della Z
sis.zip
sis
Utility che permette di correggere polilinee 2D che hanno degli incroci nascosti o comunque qualcosa che non permette l'inserimento corretto di una campitura al loro interno (Richiede AutoCADMAP3.0-2000)
tes.zip

tes
Permette di aggiungere del testo a una o più scritte precedentemente selezionate
txt.zip

txt
Continua a scrivere del testo sotto una scritta precedentemente selezionata
zeta.zip

zeta
Porta tutti gli oggetti selezionati a una determinata quota (di solito viene usato per portare tutti gli oggetti a quota "0")
zoom.zip

zd
Abbreviazione del comando Zoom dinamico

+
Abbreviazione del comando Zoom In

-
Abbreviazione del comando Zoom Out

ze
Abbreviazione del comando Zoom Estensione

zp
Abbreviazione del comando Zoom Precedente
dxfconv.zip
dxfconv
VERSIONE BETA
Permette di convertire un'intera cartella di file *.DXF in file *.DWG.

Il "dxfconv.scr" è da copiare nella cartella support di AutoCAD, mentre il file "dxfconv.zip" va caricato in AutoCAD mediante il comando "_appload"

divlayer.zip
div
Programma per la conversione di tutti i layers presenti in singoli files DWG

Il "acad.lay" è da copiare nella cartella support di AutoCAD, mentre il file "divlayer.lsp" va caricato in AutoCAD mediante il comando "_appload"
buf.zip
buf
Comando che permette di creare un buffer attorno a una o più polilinee, cioè data una polilinea e una distanza il lisp crea una regione equidistante dalla polilinea. Una specie del comando offset di AutoCAD, solo che quest'ultimo negli spigoli cima le linee mentre il comando buf le raccorda con un raggio pari alla distanza impostata.
pcp.zip
pcp
Comando che permette dato un file di plottaggio *.PCP di disegnare una tabella indicante: colore in AutoCAD, colore di stampa, spessore di stampa.
Il comando prima di generare la tabella controlla tutti i colori utilizzati nel disegno e poi controlla i parametri di stampa impostati nel file PCP

sta.zip
sta
Permette di mandare più tavole di più file distinti al plotter durante la notte.
Il comando richiede di specificare quanto tempo una determinata tavola impiegherà all'incirca a essere stampata in modo che il computer non mandi tutte le stampe al plotter insieme ma che aspetti che la stampa sia finita prima di mandare la successiva.

Una volta finito di impostare tutte le tavole da stampare viene creato un file script con estensione *.scr da mandare in esecuzione tramite il comando di AutoCAD _script.

N.B. Funziona solo con AutoCADr14 e precedenti, inoltre chiede una calibrazione iniziale per il calcolo corretto del tempo. Per maggiori informazioni chiedere al WebMaster

conta.zip
conta
Calcola la somma delle distanze di più linee selezionate
punti3dface.zip
3dpu
Comando che inserisce un'entità punto su ogni vertice di 3DFACE
Wall5.0
wall
E' una applicazione per il disegno di muri in c.a che consente di rappresentare lo sfilato dei ferri, le quote ecc. Ha le seguenti caratteristiche;
la possibilità di inserire il diametro dei ferri d'armatura e il numero di ferri per metro di muro;
la visualizzazione della tabella dei ferri, redatta secondo la norma UNI 9120;
il calcolo del peso dell'armatura per ogni metro di muro. Utilizzando questo dato assieme al volume di cls (per metro di muro) sarà possibile eseguire un agevole computo dei costi della struttura.
LINEMEND.zip
GETPROP.zip

BRKLINE.zip

NUVOLA.zip

ROUGHEN.zip

RSNAP.zip

LINEMEND
GETPROP

BRKLINE

NUVOLA

ROUGHEN

RSNAP

"Brkline" serve per disegnare una linea di interruzione (occorre disattivare i filtri osnap)

"Roughen" disegna una linea segmentata (occorre disattivare i filtri osnap)

"Nuvola" serve per disegnare una nuvola di revisione

"Linemend" serve per congiungere due linee precedentemente separate con il brek o trim

"Getprop" serve per acquisire le caratteristiche di un entità e poter disegnare poi con quelle caratteristiche di layer, colore tipolinea altezza ed elevazione

"Rsnap" serve per poter impostare la rotazione degli assi
M2S.zip
M2S
Permette di trasformare una 3DMesh in un solido.
Utility sviluppata da Bill Gilliss bill.gilliss@aya.yale.edu

HPGL2SCR.EXE
Usare MSDOS
Utility per convertire i file PLT in DWG. Per utilizzare questa utility bisogna andare nel prompt di MSDOS e avviare il comando (ad esempio hpgl2scr nomefile.plt).
Verrà creato un file con estensione SCR nella stessa cartella dove risiede il file PLT. Questo file SCR deve essere caricato in AutoCAD con il comando Strumenti-->Carica Script
http://www.emicad.it/EmiCAD/simbolicad/lisp/index.asp

 
PM Email  Top
view post Posted on 24/3/2009, 02:17           Quote
Avatar

L'ETRUSCO

Group:
Administrator
Posts:
1236
Reputation:
0

Status:


Lisp
Filtro Ordina Mostra #
Data Titolo articolo Autore Visite
12 Mar, 2009 at 09:18 AM Come scalare oggetti su una dimensione Administrator 29
23 Gen, 2009 at 03:52 PM Aprire un file autocad con autolisp Administrator 155
16 Dic, 2008 at 08:24 AM Come cancellare un DATALINK Administrator 135
16 Ott, 2008 at 03:04 PM Come copiare un blocco lungo una polilinea Administrator 208
11 Lug, 2008 at 09:19 AM Calcolare lunghezza di un arco Administrator 227
10 Lug, 2008 at 08:40 AM Importare testi in un file autocad Administrator 165
10 Lug, 2008 at 08:25 AM Esporta testi in un file ordinato Administrator 161
28 Mar, 2008 at 02:26 PM Elimina vertice da polilinea Administrator 198
28 Mar, 2008 at 02:18 PM Impostare la squadratura del disegno Administrator 480
28 Mar, 2008 at 02:06 PM Estrazione vertici da una polilinea Administrator 257
28 Mar, 2008 at 01:58 PM Codici di gruppo nelle entità Administrator 200
12 Mar, 2008 at 08:27 AM Creare entità elementari con lisp Administrator 711
06 Dic, 2007 at 05:07 PM Trasformare una polyline 3D in 2D Administrator 1080
04 Dic, 2007 at 05:27 PM Come caricare i file Lisp in Autocad
http://autocad.compago.it/index.php?option...2&id=2&Itemid=9

 
PM Email  Top
3 replies since 22/3/2009, 18:15
 
Reply