Stampa Pagina | Chiudi Finestra

CadTools, free

Stampato da: TuttoCAD Forum
URL Discussione: http://www.cadlandia.com/topic.asp?TOPIC_ID=6324
Stampato il: 19 dicembre 2014

Discussione:


Autore Discussione: arri
Oggetto: CadTools, free
Inserito il: 10 aprile 2006 14:34:14
Messaggio:

utilità per autoCAD full

http://www.glamsen.se/CadTools.htm

Insert or Remove Characters to Single Line Text
Edit Block Attribute Text
Annotate Block Elevation
All Layers off but Selected
All Layers off but Current
Layer off by Object
Xref Layer freeze by Single Object
Move to Layer by Object
All Layers on
Set Current Layer by Object
Delete layer
Area calculation of polylines based on color or layer. Results can be exported to Excel
Export Polyline Coordinates to Excel
Length Calculate of polylines based on color or layer. Results can be exported to Excel
Reverse Polyline
Point Section and Offset from Polyline
Draw slopemarks from Polylines
Send Point to Clipboard
Align text to UCS and scale it.
Send Selected Text to Excel
Drainage Network Evaluation, evaluation of block (manholes) and Lines (pipes)
Draw Polylines, Circles and Blocks from Coordinates. Paste from Excel to CadTools
Offset 3DPolylines
Create cylinders (pipes) from polylines/lines.

Risposte:


Autore Risposta: stef@no
Inserita il: 10 aprile 2006 14:55:54
Messaggio:

molto interessante! Grazie!


Stefano


Autore Risposta: arri
Inserita il: 10 aprile 2006 15:45:09
Messaggio:

prego

ciao Stefano


Autore Risposta: meridianoit
Inserita il: 11 aprile 2006 10:04:20
Messaggio:

molto interessante arri, grazie per l'informazione.

___________________________________
=**=**Meridiano =*=
____________________________________


Autore Risposta: arri
Inserita il: 11 aprile 2006 10:36:09
Messaggio:

prego

ciao meridianoit


Autore Risposta: arri
Inserita il: 20 aprile 2006 23:22:06
Messaggio:

barra degli stumenti per le tabelle

http://www.cadig.com/products/tablebar.php



Immagine:

133,06 KB


Autore Risposta: meridianoit
Inserita il: 21 aprile 2006 09:31:55
Messaggio:

ottima cosa, con le tabelle c'è sempre da tribolare.


Autore Risposta: arri
Inserita il: 21 aprile 2006 10:03:01
Messaggio:

alla prossima utilità

ciao meridianoit


Autore Risposta: arri
Inserita il: 15 maggio 2006 19:53:48
Messaggio:

AutoCAD Drawing Viewer 2.0 - FREE AutoCAD utility

AutoCAD Drawing Viewer is a powerful utility for viewing AutoCAD drawing files. Features include: View and open drawings, view block attribute values, view text values, view layer information, print drawings, copy drawing to ClipBoard, save drawing as a BMP file, etc. AutoCAD Drawing Viewer does not require AutoCAD to run.

http://www.skysof.com/


Autore Risposta: arri
Inserita il: 12 giugno 2006 08:22:44
Messaggio:

http://www.nyacad.com/FreeStuff.htm


Autore Risposta: arri
Inserita il: 19 luglio 2006 03:06:47
Messaggio:

fonts SHX multilingua per AutoCAD

http://www.electrographics.it/fontautocad.htm


Autore Risposta: MaxiPT
Inserita il: 19 luglio 2006 14:06:40
Messaggio:

grazie mille


Autore Risposta: arri
Inserita il: 19 luglio 2006 14:45:32
Messaggio:

prego


Autore Risposta: arri
Inserita il: 20 luglio 2006 02:44:34
Messaggio:

applicazione per personalizzare la barra di stato

http://www.cadpanel.com/for_download...ar_manager.htm



qui un'alternativa

http://www.professionearchitetto.it/forum/forum_posts.asp?TID=27&


Autore Risposta: arri
Inserita il: 16 ottobre 2006 19:33:57
Messaggio:

epoint2cad (Excel points to AutoCAD)

http://www.zonums.com/epoint2cad.html


Autore Risposta: arri
Inserita il: 23 ottobre 2006 05:11:39
Messaggio:

Freemust is a autocad express tools. freemust is a series of autolisp programs or routines that can be added to Autocad to allow extra improved drawing capacity to the basic Autocad

http://freemust.googlepages.com/


Autore Risposta: arri
Inserita il: 08 novembre 2006 07:56:58
Messaggio:

LinCatalog disegna nel dwg l'elenco di tutti i tipi linea presenti nel file .LIN

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=5271


Autore Risposta: BleEzE
Inserita il: 13 novembre 2006 05:11:54
Messaggio:

salve ho scaricato cadtools...molto interessante...volevo sapere solo una cosa....se dopo che faccio i triangoli di alcuni punti voglio il profilo di una linea fatta da me su questi triangoli si puo fare???

Grazie


Autore Risposta: BleEzE
Inserita il: 13 novembre 2006 05:55:52
Messaggio:

ottimo lisp...pero vedo ke kmq ti fa il profilo di una 3dpoly dove le quote le dai tu...invece se io volessi il profilo terreno di una linea disegnata da me su dei triangoli ricavati da acadtools????non c'è kualòke lisp ke mi legge la quota della lina in kuel punto del triangolo????


graziew ancora


Autore Risposta: arri
Inserita il: 18 novembre 2006 04:44:41
Messaggio:

interessante

font di testo multilingua e altro

http://www.electrographics.it/download_3.htm


Autore Risposta: arri
Inserita il: 24 novembre 2006 03:50:31
Messaggio:

visto che aumentano le richieste,
ecco un convertitore PDF -> DXF

Aide PDF to DXF Converter

http://v1.cad3d.it/modules.php?op=mo...=getit&lid=243

PDF to DXF Converter is a powerful windows program that will help you convert your PDF files to usable and editable DXF files quickly and easily. You can import DXF files into AutoCAD and save them as DWG


Autore Risposta: Tiranno
Inserita il: 24 novembre 2006 06:12:07
Messaggio:

Non accetta il precedente link diretto.
Accedere tramite questo:
http://v1.cad3d.it/modules.php?op=modload&name=Downloads&file=index&req=viewdownload&cid=32


Autore Risposta: arri
Inserita il: 24 novembre 2006 07:04:30
Messaggio:

grazie Tiranno


Autore Risposta: Tiranno
Inserita il: 24 novembre 2006 08:23:28
Messaggio:

Citazione:
Messaggio inserito da arri

grazie Tiranno



Di niente


Autore Risposta: arri
Inserita il: 29 novembre 2006 13:47:52
Messaggio:

Bonus Tool per prodotti basati su AutoCAD 2007

http://autodesk.blogs.com/between_the_lines/2006/10/trick_or_treat_.html


Autore Risposta: arri
Inserita il: 30 novembre 2006 03:53:16
Messaggio:

x liber

ma di cosa stai parlando ?


Autore Risposta: arri
Inserita il: 04 dicembre 2006 13:13:33
Messaggio:

CAD2FILE - This program allows you to send the properties of entities in a drawing to an Excel file, comma delimited text file, space delimited text file, or a tab delimited text file.

http://www.jefferypsanders.com/autolisp_cad2file.html


Autore Risposta: bandit
Inserita il: 04 dicembre 2006 16:31:34
Messaggio:

Bravo arri, hai trovato un tool veramente interessante....


Citazione:
Messaggio inserito da arri

Bonus Tool per prodotti basati su AutoCAD 2007

http://autodesk.blogs.com/between_the_lines/2006/10/trick_or_treat_.html


Autore Risposta: arri
Inserita il: 04 dicembre 2006 16:54:25
Messaggio:

grazie,

comunque l'ho copiato questo link, l'ha segnalato l'utente Cad1985 di cad3d.it


Autore Risposta: arri
Inserita il: 19 gennaio 2007 10:14:54
Messaggio:

DOSLib™ for AutoCAD 2007

funzionalità aggiuntive

http://www.en.na.mcneel.com/news/0306pr.htm


Autore Risposta: CompGos
Inserita il: 03 febbraio 2007 11:57:19
Messaggio:

Ciao
Trovai qui il link di cadtools, l'ho provato, la funzione "slope mark" é utile per disegnare passi di zebra, bande inclinate per la segnalazione di spartitraffico e rotonde, parcheggi a spina di pesce.
Queste cose farle a mano porta via moltissimo tempo. Inoltre l'autore é molto disponibile, lo contattai per suggerirgli di modificare il programma, adesso le strisce pedonali non sono semplici polilinee con spessore ma polilinee chiuse in tutto uguali a quelle che si verniciano sull'asfalto!! Consiglio a tutti di scaricarlo.
Ciao


Autore Risposta: arri
Inserita il: 12 febbraio 2007 14:18:39
Messaggio:

Bricks'n'Tiles
Easy Creation of Architectural Textures

http://www.3d-rekonstruktionen.de/bricksntiles/download/


Autore Risposta: arri
Inserita il: 27 febbraio 2007 09:38:01
Messaggio:

Bubble per AutoCAD
L'assistente di informazioni gratuito per gli utenti di AutoCAD

http://www.bubblecad.com/it/whatis.htm


Autore Risposta: arri
Inserita il: 05 marzo 2007 00:06:59
Messaggio:

AutoCAD OwnerGuard

programma di protezione file dwg

http://www.armjisoft.com/?page=autocadownerguard#Screenshots


Autore Risposta: arri
Inserita il: 14 marzo 2007 23:15:08
Messaggio:

il Vlisp CUI to MNU.vlx converte i nuovi formati di menu .CUI in .MNU, rendendoli modificabili con Notepad e leggibili anche da versioni di AutoCAD precedenti

http://www.cadforum.cz/cadforum_en/dl_file.asp?ID=647


Autore Risposta: arri
Inserita il: 31 marzo 2007 23:00:01
Messaggio:

DOSLib™ for AutoCAD 2008

funzionalità aggiuntive


http://en.wiki.mcneel.com/default.aspx/McNeel/DOSlib.html


Autore Risposta: arri
Inserita il: 12 maggio 2007 09:47:16
Messaggio:

PL2ML è un Vlisp per convertire linee e polilinee in MLINE

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=5560

http://www.xanadu.cz/dl_file.asp?ID=670


Autore Risposta: arri
Inserita il: 04 giugno 2007 13:48:04
Messaggio:

Tavoletta virtuale per AutoCAD

http://xoomer.alice.it/rportue/Home.html


Autore Risposta: arri
Inserita il: 12 giugno 2007 11:46:19
Messaggio:

Drawing Tabs / Manager for ACAD 2002-2007

http://www.caelink.com/drawing_tabs.htm


Autore Risposta: riga
Inserita il: 14 giugno 2007 13:53:04
Messaggio:

Citazione:
Messaggio inserito da arri

Drawing Tabs / Manager for ACAD 2002-2007

http://www.caelink.com/drawing_tabs.htm



E quì altri link a tools simili (free e a pagamento)

http://rkmcswain.blogspot.com/2007/01/mdi-document-navigation.html


Autore Risposta: arri
Inserita il: 26 giugno 2007 21:34:29
Messaggio:

Spezzare automaticamente linee nei punti di intersezione

Automatic line breaks at intersection points

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=5632

http://www.synapse-informatique.com/qbrick_en.htm



Autore Risposta: arri
Inserita il: 09 luglio 2007 08:16:17
Messaggio:

utilità varie tra cui quella per creare (ed eliminare) velocemente gruppi anonimi

http://www.delicad.com/autocad/cpt.php3?NomFich=grpdegrp

http://www.delicad.com/autocad/sommaire_divers.htm


Autore Risposta: arri
Inserita il: 11 luglio 2007 08:12:15
Messaggio:

a differenza del bcount degli Express, il lisp allegato conta anche i blocchi dinamici e gli Xref

Scarica allegato:

BlkQnt.zip
1,55 KB


Autore Risposta: arri
Inserita il: 12 luglio 2007 12:11:03
Messaggio:

utility interessanti

http://web2.airmail.net/terrycad/


Autore Risposta: arri
Inserita il: 10 agosto 2007 12:09:36
Messaggio:

Cataloghi colori gratuiti da aggiungere alle versioni AutoCAD 2004 o superiori

http://www.resene.co.nz/comn/services/cad_colour_books.htm


Autore Risposta: arri
Inserita il: 13 settembre 2007 08:21:00
Messaggio:

Using XML Notepad 2007 with AutoCAD ToolPalettes

http://cadit.typepad.com/my_weblog/2007/05/using_xml_notep.html


Autore Risposta: meridianoit
Inserita il: 13 settembre 2007 12:50:37
Messaggio:

Che ne pensate?
http://www.kitox.com/kitoxtools_en.php
non ho ancora testato.


Autore Risposta: arri
Inserita il: 14 settembre 2007 08:31:58
Messaggio:

Citazione:
Messaggio inserito da meridianoit

Che ne pensate?
http://www.kitox.com/kitoxtools_en.php
non ho ancora testato.



visto ma non l'avevo segnalato,

hai fatto bene a inserire il link


Autore Risposta: arri
Inserita il: 19 ottobre 2007 10:58:07
Messaggio:

TCE - Vlisp per editare direttamente i blocchi contenuti in una tabella

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=5806


Autore Risposta: arri
Inserita il: 24 ottobre 2007 08:27:16
Messaggio:

Visual Search

http://labs.autodesk.com/technologies/visualsearch/

http://visualsearch.labs.autodesk.com/


Autore Risposta: arri
Inserita il: 27 ottobre 2007 09:04:17
Messaggio:

SHP2DWG

Read Esri Arcview Shape File and draw it in AutoCAD environment (AutoCAD 14, 2002, 2004, 2005).
Directly into AutoCAD (no dxf files!!! as shp2dxf or similar!)


http://www.cad3d.it/forum1/showpost.php?p=150978&postcount=50

http://www.filippoforlani.org/software.php#FREE%20SOFTWARE


Autore Risposta: arri
Inserita il: 02 novembre 2007 16:13:29
Messaggio:

ABC Amber EPS Converter

http://www.processtext.com/abceps.html


Autore Risposta: arri
Inserita il: 05 novembre 2007 09:03:21
Messaggio:

G.R.i. 2008 for AutoCAD

utility immagini georeferenziate

http://www.ductisoft.com/gri2008.html


Autore Risposta: arri
Inserita il: 07 novembre 2007 15:11:17
Messaggio:

applicativi per disegnare:

Porte 2D

http://digilander.libero.it/stegag/Pre_Scarico_PORTE.htm

Finestre 2D

http://digilander.libero.it/stegag/Pre_Scarico_FINESTRE.htm

Quota ferri

http://digilander.libero.it/stegag/Pre_Scarico_QF.htm


Autore Risposta: liber
Inserita il: 07 novembre 2007 19:20:16
Messaggio:

Citazione:
Messaggio inserito da arri

applicativi per disegnare:

Porte 2D

http://digilander.libero.it/stegag/Pre_Scarico_PORTE.htm

Finestre 2D

http://digilander.libero.it/stegag/Pre_Scarico_FINESTRE.htm




http://www.cadlandia.com/forum/topic.asp?TOPIC_ID=6621

ti sei scordato di me perchè sono piccolo e nero


Autore Risposta: arri
Inserita il: 07 novembre 2007 19:30:29
Messaggio:



bravo liber,

hai fatto bene ad aggiungere il tuo link

così è riunito lo stesso argomento


Autore Risposta: Giuseppe GENCHI
Inserita il: 10 novembre 2007 10:07:11
Messaggio:

Ma funzionano con la versione Italiana.

Ciao


Autore Risposta: meridianoit
Inserita il: 13 novembre 2007 13:03:17
Messaggio:

Citazione:
Messaggio inserito da arri

G.R.i. 2008 for AutoCAD

utility immagini georeferenziate

http://www.ductisoft.com/gri2008.html



CHE COS'E' "ObjectDCL ARX", COME LO TROVO? E' A PAGAMENTO?
PERCHE' ME LO CHIEDE PER UTILIZZARE IL PROGRAMMA.


Autore Risposta: Tiranno
Inserita il: 13 novembre 2007 14:08:50
Messaggio:

Questi vanno bene?
http://www.ductisoft.com/download.htm
http://sourceforge.net/projects/objectdcl/


Autore Risposta: meridianoit
Inserita il: 13 novembre 2007 15:26:04
Messaggio:

sarà che non sono in grado, ma non riesco a scaricare se non a pagamento...


Autore Risposta: meridianoit
Inserita il: 13 novembre 2007 15:31:50
Messaggio:

a me da questo errore autocad:

Command:
G.R.i. 2008 loaded.
Command:
Command: gri
; error: no function definition: ODCL_LOADPROJECT


Autore Risposta: arri
Inserita il: 28 novembre 2007 09:27:38
Messaggio:

Polyarea

lisp per calcolare l'area totale di polilinee chiuse



Scarica allegato:

polyarea.zip
1,12 KB


Autore Risposta: antoniovinci
Inserita il: 28 novembre 2007 09:51:02
Messaggio:

Citazione:
Messaggio inserito da arri
lisp per calcolare l'area totale di polilinee chiuse



Il file e' illeggibile: puoi controllare se e' solo a me cosi'?


Autore Risposta: arri
Inserita il: 28 novembre 2007 10:02:40
Messaggio:

tutto regolare,

inserisco il link dove lo trovate insieme ad altre utilità

http://www.turvill.com/t2/free_stuff/index.htm


Autore Risposta: antoniovinci
Inserita il: 28 novembre 2007 10:13:28
Messaggio:

Confermo: il Lisp contenuto e' illeggibile, l'ho provato sia con Opera che con Explorer.

Probabilmente si e' corrotto quando l'hai zippato...


Autore Risposta: antoniovinci
Inserita il: 28 novembre 2007 10:15:13
Messaggio:

Citazione:
http://www.turvill.com/t2/free_stuff/index.htm


Questo invece e' OK

Grazie!


Autore Risposta: joseph
Inserita il: 28 novembre 2007 10:28:52
Messaggio:

Per calcolare la somma di aree di contorni chiusi, basta questa semplice macro applicata a un pulsante:
^C^C^Carea;a;o;


Autore Risposta: antoniovinci
Inserita il: 28 novembre 2007 11:21:51
Messaggio:

Bella Joe

Se invece il contorno non e' un'isola, ma un insieme complesso tipo questo:
www.sieradz.internetdsl.pl/cadlandia/boundary.gif

allora propongo:

^C^C_-BOUNDARY;\;AREA;_O;_L;_E;_L;;

Basta cliccarci dentro, e lo script al volo calcola area e perimetro (per vedere l'output: F2)


Autore Risposta: joseph
Inserita il: 28 novembre 2007 12:04:21
Messaggio:

I Tools per Autocad non solo solo i link di Arri!


Autore Risposta: arri
Inserita il: 28 novembre 2007 12:23:18
Messaggio:

Citazione:
Messaggio inserito da joseph

I Tools per Autocad non solo solo i link di Arri!



esatto,

ma non credo che VuCumpra intendesse questo


Autore Risposta: antoniovinci
Inserita il: 28 novembre 2007 12:33:59
Messaggio:

Citazione:
Messaggio inserito da joseph

I Tools per Autocad non solo solo i link di Arri!



Joe, definire "Tools" i nostri script... mi sembra leggermente esagerato.

Diciamo che sono quattro comandi in croce che, messi insieme, formano una macro.

A dire il vero, manca in questo forum un posto dove fare esperimenti in liberta': gli inglesi, con felice sintesi, lo chiamerebbero "sandbox".

Che ne dici, Aniello?


Autore Risposta: joseph
Inserita il: 28 novembre 2007 14:27:38
Messaggio:


Citazione:
Messaggio inserito da joseph
A dire il vero, manca in questo forum un posto dove fare esperimenti in liberta': gli inglesi, con felice sintesi, lo chiamerebbero "sandbox".
Che ne dici, Aniello?




Concordo pienamente: luogo in cui allegare (senza domande e risposte) trucchi, scorciatoie, macro, comandi, variabili e loro opzioni non documentati/e, senza scomodare Lisp, Vba o altri linguaggi di programmazione e, udite,udite , senza link , ma riportate integralmente, cioè immediatamente visibili, fruibili e ricercabili.
Spero di non aver snaturato il contenuto della richiesta di Antonio


Autore Risposta: Aniello Annunziata
Inserita il: 28 novembre 2007 15:44:19
Messaggio:

OK, Joseph ed Antonio, ho recepito il vostro messaggio, vedremo se riesco ad inserire quello che chiedete!


Autore Risposta: antoniovinci
Inserita il: 28 novembre 2007 20:01:28
Messaggio:

- Per i mappisti -

Delle utilities contenute nel sito segnalato sopra [http://www.turvill.com/t2/free_stuff/index.htm] davvero impressionante e' RRL.LSP, per creare strade ferrate.

Finora impazzivo con una complessa procedura a base di topologie, "mapanbuffer" e "ltscale", ma con questo tool e' tutto assolutamente immediato.

*******************

Quanto alla proposta di Joseph, inviterei Aniello ad ampliare lo spettro all'intero mondo del computing, non limitandosi alla sola nicchia Cad.

Ad es. ecco un trucchetto poco noto per MS Word.

Selezionato un paragrafo, se ne puo' cambiare la leggibilita' con le segg. combinazioni di tasti:

CTRL + 2 = doppia interlinea
CTRL + 5 = interlinea una volta e mezza
CTRL + 1 = singola interlinea



Autore Risposta: arri
Inserita il: 03 dicembre 2007 08:53:12
Messaggio:

Sidekick is fully integrated with AutoCAD

programma di meccanica

http://www.cwattsdesign.com/Sidekick.htm


Autore Risposta: arri
Inserita il: 04 dicembre 2007 12:54:56
Messaggio:

Batch Select

Questo programma permette di selezionare le entità in base alla loro posizione nello spazio quando sono disposte a distanze costanti tra di loro.
Specialmente nei disegni edili può nascere l'esigenza di selezionare entità disposte secondo una matrice

http://dieva.altervista.org/hp4/bs.htm


Autore Risposta: liber
Inserita il: 12 dicembre 2007 07:42:08
Messaggio:

a u t o c a d k o m m a n d o ' s

per conoscere i comandi di autocad nelle varie lingue:
Inglese, Tedesco, Spagnolo, Francese, Italiano

http://www.braakhekke.de/acadcom.htm


Autore Risposta: arri
Inserita il: 12 dicembre 2007 07:48:21
Messaggio:

@ liber

interessante


Autore Risposta: arri
Inserita il: 17 dicembre 2007 15:51:47
Messaggio:

AllVports

sets the UCSFOLLOW variables to 0 in all floating viewports of all layouts and in all tiled viewports of the modelspace

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=5713

http://www.xanadu.cz/dl_file.asp?ID=703


Autore Risposta: MrICE
Inserita il: 17 dicembre 2007 16:26:43
Messaggio:

Ottima questa cosa


Autore Risposta: liber
Inserita il: 04 gennaio 2008 09:50:04
Messaggio:

ecco un altro ottimo sito di risorse lisp certamente le stesse saranno anche da qualche altra parte, ma per verificarle bigona che qualche volenteroso faccia da interpetre

http://www.cad.pl/lisp.cgi

una piccola traduzione online di una descrizione lisp

Citazione:

XRec.vlx 9KB
Polecenie XR tworzy niegraficzny obiekt XRECORD wykorzystuj#261;c okno dialogowe do wprowadzania danych typu STRING, REAL, INTEGER, POINT i ENAME.
-----------------------------------
Delega XR produzione niegraficzny moneta corrente XRECORD adventists dialogo scatola fino a fare in domanda typu Spogliarello - pulirsi il pelo , Vero , Integro , PUNTATORE anche Smalto.



ho qualche difficoltà, per fortuna il sito è di cad tecnico ed altro ... altrimenti chissà che veniva fuori da una traduzione di qualche altro.


Autore Risposta: antoniovinci
Inserita il: 04 gennaio 2008 09:57:11
Messaggio:


Hai qualche idea su chi possa decifrare quello strano idioma..?


Autore Risposta: arri
Inserita il: 04 gennaio 2008 09:57:40
Messaggio:

Citazione:
Messaggio inserito da liber

ecco un altro ottimo sito di risorse lisp certamente le stesse saranno anche da qualche altra parte


grazie liber,

ma per me bastano e avanzano quelli italiani o inglesi


Autore Risposta: liber
Inserita il: 04 gennaio 2008 11:30:34
Messaggio:

Citazione:
Messaggio inserito da antoniovinci


Hai qualche idea su chi possa decifrare quello strano idioma..?





bè se ve nè qualcuna interessante si, ci vorrebbe un amico, altrimenti mi sembra di esser finito in chissà quale localino a luci rosse quando il traduttore mi rifila certe frasi "fino a fare in domanda typu Spogliarello - pulirsi il pelo , Vero , Integro , PUNTATORE anche Smalto."


Autore Risposta: antoniovinci
Inserita il: 04 gennaio 2008 11:54:53
Messaggio:

Siccome la richiesta viene da un grande come Liber, vedro' di fare qualcosa...

Il problema e' che sono 183 i programmini Lisp la' presenti, e il tempo manca: m'impegno a tradurne 1 al giorno, quindi in 6 mesi avremo completamente decodificato quel sito marziano: ok?

Ecco il primo XRec.vlx:

Il comando XR crea l'oggetto non-grafico XRECORD usando la finestra di dialogo d'inserimento dati tipo STRING, REAL, INTEGER, POINT e ENAME.


Autore Risposta: liber
Inserita il: 04 gennaio 2008 12:25:32
Messaggio:

se ve n'è qualcuno interessante e di utilizzo con Map, topografia cartografia, architettura, ok altrimenti qua ci linciano
magari prima di tradurli puoi fare una cernita


Autore Risposta: antoniovinci
Inserita il: 04 gennaio 2008 12:42:58
Messaggio:

Ricevuto, mettero' qua la traduzione dei Lisp che:

- hanno un'interfaccia non solo in polacco
- che girano almeno su Autocad versione inglese
- che possano interessare l'utente medio di Cadlandia




Autore Risposta: liber
Inserita il: 07 gennaio 2008 12:48:00
Messaggio:

convertitore free

http://www.devcad.com/download/DevConv.exe

trovasi nel sito

http://www.devcad.com/ita/default.htm

nello stesso trovasi 2 versioni di cad simil autocad dai prezzi veramente interessanti dal costo per licenza rispettivamente per la Versione LE di 25 € e della versione Pro di 70€
gli stessi si possono visionare con le limitazioni


Autore Risposta: antoniovinci
Inserita il: 07 gennaio 2008 13:12:48
Messaggio:

Per la serie "Un Lisp al giorno toglie l'help-desk di torno":

http://www.cad.pl/lisp/ddsteel.zip

Descrizione: "parametryczne profile stalowe"
ovvero
"profilati parametrici in acciaio"


Autore Risposta: GP
Inserita il: 07 gennaio 2008 18:40:07
Messaggio:

Antonio

spero non ti dispiaccia se ho aggiornato il lisp per renderlo usabile da parte di noi poveri "linguamadristi".



Scarica allegato:

ddsteel.zip
9,19 KB


Autore Risposta: antoniovinci
Inserita il: 07 gennaio 2008 23:09:38
Messaggio:

Al contrario, questo tipo di sinergia puo' solo far bene al forum...

Domani in ufficio testero' la tua versione in dialetto bicciolano mentre, da parte mia, cerchero' di tradurre in italiano i Lisp interessanti aventi interfaccia in polacco.

Buonanotte a tutti!


Autore Risposta: arri
Inserita il: 11 gennaio 2008 19:07:59
Messaggio:

Freeware application for digital terrain modelling (DTM) in AutoCAD

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=5934


Autore Risposta: liber
Inserita il: 11 gennaio 2008 20:37:19
Messaggio:

Citazione:
Messaggio inserito da arri

Freeware application for digital terrain modelling (DTM) in AutoCAD



potrà essere free pero' il mio pc si è piantato per ore e senza definire nulla, ok ho dato solo 28000 punti ma anhe altri software free e non sono molto veloci a realizzare il dtm.

nella mia ricerca di software con il quale realizzare i dtm, mi ha colpito un software try della romania
Rtopo 1.5

http://www.rcad.eu/

a parte il costo di 37 euro, tutta la cartella scompattata pesa 1,24 mb, capace di stare in un solo floppy da 1.4 mb
importa ed esporta il dxf, ha un ambiente cad con comandi autocad, ma mancano le solite cose come l'offset, il taglia, ed il raccorda, pero' devo dire impressionante velocità a realizzare il dtm, chi lo vuol provare lo scriva ed io lunedi' alleghero un file dxf con 28000 punti per fare il dtm, tanto provare non costa nulla, e se poi a qualcuno piace ecco il link degli screen

http://www.rcad.eu/rtopo_examples.html

certo 37+7,03 euro li vale tutti e di certo ci farò un pensierino


Autore Risposta: antoniovinci
Inserita il: 11 gennaio 2008 21:11:40
Messaggio:


Allega, Liber, allega pure: non vedo l'ora che arrivi lunedi' per generare una TIN coi tuoi punti.

Comunque e' normale che il free del sito ceco ti abbia piantato il pc, perche' nel file Leggimi e' esplicito il limite di 2000 punti.

Come si dice da queste parti: "A caval donato non controllare i denti", inoltre quel Lisp, sebbene limitato, e' made in Italy!

Buon weekend a tutti


Autore Risposta: arri
Inserita il: 11 gennaio 2008 23:18:49
Messaggio:

http://www.cadalyst.narod.ru/


Autore Risposta: liber
Inserita il: 12 gennaio 2008 09:31:57
Messaggio:

Citazione:
Messaggio inserito da antoniovinci


Comunque e' normale che il free del sito ceco ti abbia piantato il pc, perche' nel file Leggimi e' esplicito il limite di 2000 punti.

inoltre quel Lisp, sebbene limitato, e' made in Italy!



in effetti mi capita sovente che faccio sempre i medesimi errori, cioè quando ho qualcosa per le mani la provo subito e cerco di scoprire le funzionalità in maniera istintiva e solo forse dopo guardo le istruzioni
insomma come aver una nuova moto ed andare subito in impennata e a tavoletta, purtroppo il file che ho conservato è solo di un lavoro in cui dovevo giustificare un tipo di scavo che non dava impatto ambientale, e dunque un dtm un pò esagerato con tutti quei punti, e utilizzo sempre il medesimo file per provare le applicazioni per realizzare i tin.

il file del sito ceco nonostante sia un vlx come hai scritto si evinche che l'ha realizzato Piazza, del quale ho trovato tempo fa il lisp, bè dava il medesimo problema, ed in più non solidificava la mesh, la faceva solo vedere, quindi sia il sito ceco, come arklisp con il suo triangulate.vlx hanno tolto solo le righe che non permettevano la solidificazione.


Autore Risposta: liber
Inserita il: 14 gennaio 2008 07:50:20
Messaggio:

Citazione:
Messaggio inserito da antoniovinci


Allega, Liber, allega pure: non vedo l'ora che arrivi lunedi' per generare una TIN coi tuoi punti.



ecco allegato il file

http://rapidshare.com/files/83656686/punti1.zip.html

Rtopo 1.5

http://www.rcad.eu/
sul software andare su file

dxfin

selezionare il file dxf punti1
andare sulla tendina RTOPO
selezionare
Triangulation

lasciate inpostato offset 300.000
premere INVIO

ed in un flash ecco realizzato il DTM
l'amibiente grafico sembra essere come l'ORBIT di autocad, quindi basta cliccare e ruotare in 3D


Autore Risposta: antoniovinci
Inserita il: 14 gennaio 2008 15:21:34
Messaggio:

Per Liber

Il software rumeno e' davvero veloce, ma appena di qualche secondo piu' del nostro buon vecchio Map3D:

www.sieradz.internetdsl.pl/cadlandia/liberTIN.zip


Autore Risposta: liber
Inserita il: 14 gennaio 2008 16:10:50
Messaggio:

ok ok, ma quello che volevo significare era che il software rumeno in pochi kb, integra un elaboratore di mesh o 3dfaccia, un software topografico, e un ambiente cad simile ad autocad, per gli altri software ci vogliono mega e mega per arrivare ad un simile risultato.

speriamo che lo sviluppino ulteriormente, potrebbe essere interessante visionarlo.


Autore Risposta: antoniovinci
Inserita il: 14 gennaio 2008 16:59:27
Messaggio:

D'accordissimo, e' molto promettente.

Peccato che persino la stampa sia inibita nella versione demo, perche' avevo pensato di esportare la mesh come DWF, poi convertirla in DXF, e confrontarla col DWG di Map2005...


Autore Risposta: liber
Inserita il: 18 gennaio 2008 12:05:37
Messaggio:

interessante sito per coloro che svolgono lavori catastali, applicazioni lisp a cura di Daniele Pinna

http://www.ildocfainpillole.it/nuke/nuke-Downloads.html

fra queste utilità ve nè una interessante denominata Docfa3.zip Utility Lisp
questa utility permette di evidenziare le polilinee non chiuse e dunque correggerle con _pedit
vi sono 2 tipi di polilinee non chiuse,
1) la si realizza partendo da un punto e concludendo al punto iniziale con osnap fine e non con ch (chiudi)
2) sono le polilinee con i vertici vicini e dunque non chiuse

durante il lavoro le più subdole appartengono alla prima ipotesi, pur avendo un contorno, la polilinea non è considerata chiusa.

http://www.ildocfainpillole.it/nuke/nuke-Downloads-d_op-viewdownload-cid-2.html
p.s. non so per voi ma a me è molto utile, anche in autocad map


Autore Risposta: antoniovinci
Inserita il: 18 gennaio 2008 12:17:09
Messaggio:

Citazione:
p.s. non so per voi ma a me è molto utile, anche in autocad map


Grazie Liber, ma per amor di precisione, va detto che anche in Map esiste l'evidenziazione degli elementi non chiusi, e precisamente nella routine che crea le topologie.



Autore Risposta: arri
Inserita il: 15 febbraio 2008 08:45:21
Messaggio:

Creazione veloce di uno script per la modifica di una lista di DWG

http://www.dailyautocad.com/autocad/script-usage-to-edit-multiple-drawings-quickly/


Autore Risposta: arri
Inserita il: 21 febbraio 2008 14:52:29
Messaggio:

Caricare file.CUI tramite Autolisp

http://www.dailyautocad.com/autocad/loading-cui-files-with-autolisp/

http://www.dailyautocad.com/download/uploads/cui.lsp


Autore Risposta: arri
Inserita il: 03 marzo 2008 08:02:41
Messaggio:

DodoCAD

E' un pacchetto di utility varie che aggiunge un nuovo menù in autocad.

http://dodocad.sourceforge.net/index.html

segnalazione: PlannerRoad


Autore Risposta: arri
Inserita il: 11 marzo 2008 19:22:56
Messaggio:

CurveText

scrive testo lungo polilinea - spline - ellisse

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6016


Autore Risposta: GP
Inserita il: 25 marzo 2008 12:25:11
Messaggio:

Lisp per eliminare le entità esterne ad una polilinea di contorno



VERSIONE 26/3/2008
- alleggerito il codice
- modifica metodo di cattura entità da eliminare

EXT_DEL.zip


Autore Risposta: arri
Inserita il: 28 marzo 2008 08:23:38
Messaggio:

Adding your home city to the list for geographic location settings.

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6048


Autore Risposta: arri
Inserita il: 31 marzo 2008 14:58:33
Messaggio:

ISODim

Create Non-Associative Isometric Dimensions

http://www.jefferypsanders.com/autolisp_ISODIM.html

http://www.jefferypsanders.com/ISODIM.LSP


Autore Risposta: arri
Inserita il: 31 marzo 2008 19:42:19
Messaggio:

RTLTSCAL permette, dopo avere impostato un numero di incremento, di modificare la scala globale del tipolinea e vedere in tempo reale le variazioni nel dwg.

Dopo aver caricato l'applicazione bisogna eseguirla con VBARUN

http://www.dotsoft.com/public/rtltscal.dvb


Autore Risposta: arri
Inserita il: 01 aprile 2008 00:11:15
Messaggio:

Ridefinisce Layer, Colore, Tipolinea, di tutte le entità dei blocchi selezionati, senza esploderli

blockentprops

Quickly redefines the layer, linetype, and color of all entities within selected block definitions. This is especially useful if your drawing has many blocks that are comprised of entities on explicit layers or with explicit colors, which you would rather have inherit the color and linetype of the layer that they're isnerted on.



Scarica allegato:

BlockEntProps.zip
49,71 KB


Autore Risposta: arri
Inserita il: 18 aprile 2008 10:21:01
Messaggio:

detect DWG files containing AEC objects

A If you need to identify all DWG drawings containing so called "AEC objects", i.e. objects from the applications AutoCAD Architecture (ADT), AutoCAD Civil 3D or AutoCAD MEP (ABS), you can use the Xanadu DBXscanAEC application.
The free LISP utility DBXscanAEC scans all DWG files in a given folder (and its subfolders) and generates a report with a list of all DWG files containing AEC objects. The files are not opened individually.

If you open such DWG files in AutoCAD, you will need the "Object Enabler" or you will get only proxy entities. This utility can detect such files, so you can resave them properly to a plain DWG format - with the ExportToAutoCAD command.

Just appload this utility and start the "DBXscanAEC" command. Browse to the folder you want to process and click "Save".

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6092


Autore Risposta: arri
Inserita il: 19 aprile 2008 14:04:54
Messaggio:

Database Access from AutoLISP

http://acad.fleming-group.com/Download/ADOLisp/ADOLisp.html


Autore Risposta: arri
Inserita il: 20 aprile 2008 13:14:30
Messaggio:

Importazione di Shape in AutoCAD

Questo programma aiuta chi lavora in AutoCAD con le mappe geografiche in formato ESRI ArchView o ArcGIS (file SHP).
ImportShapes permette di importare su layer diversi e con diversi colori o retini i file Shape, creando eventualente in modo automatico i layer e i blocchi, se necessario

http://www.abcautocad.it/software_autocad.html#ImportShapes_SHP_ESRI_AutoCAD


Autore Risposta: joseph
Inserita il: 20 aprile 2008 14:58:21
Messaggio:

L'informazione sul link sarebbe più completa, se oltre al link venisse riportato anche l'utente (e/o il forum) da cui si è ricevuta la prima segnalazione, non per una questione di paternità della notizia, ma per capire i motivi (nel caso ci fossero) da cui è partita la richiesta.


Autore Risposta: liber
Inserita il: 20 aprile 2008 16:36:04
Messaggio:

Citazione:
Messaggio inserito da joseph

L'informazione sul link sarebbe più completa, se oltre al link venisse riportato anche l'utente (e/o il forum) da cui si è ricevuta la prima segnalazione, non per una questione di paternità della notizia, ma per capire i motivi (nel caso ci fossero) da cui è partita la richiesta.



bè io opterei per il NI visto che zrarchitetti fa parte di ABCautoCAD ed il sito è comparso più volte in vari topic sia di questo forum che di altri, e dunque senza andare altrove magari visitando casualmente il sito in cerca di novità o di qualche tratteggio, abbia visto il software e riportato qui.


Autore Risposta: arri
Inserita il: 20 aprile 2008 16:45:18
Messaggio:

Citazione:
Messaggio inserito da joseph

L'informazione sul link sarebbe più completa, se oltre al link venisse riportato anche l'utente (e/o il forum) da cui si è ricevuta la prima segnalazione, non per una questione di paternità della notizia, ma per capire i motivi (nel caso ci fossero) da cui è partita la richiesta.



altri 2 forum oltre a questo

http://www.professionearchitetto.it/bacheca/software/159646.aspx

che conferma la valutazione di liber


Autore Risposta: arri
Inserita il: 24 aprile 2008 09:49:14
Messaggio:

sito Autodesk con innumerevoli risorse

http://seek.autodesk.com/


Autore Risposta: arri
Inserita il: 23 maggio 2008 09:09:35
Messaggio:

trovare, eliminare VBA incorporati nei dwg

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6146


Autore Risposta: arri
Inserita il: 15 luglio 2008 09:57:24
Messaggio:

con DesignCenter si possono trascinare gli hatch direttamente nel dwg,
come spiegato qui

http://www.archidigm.com/lounge/architectural_desktop/design%20center/designcenter_and_hatch_patterns.htm#Merging%20Hatch%20Patterns


Autore Risposta: arri
Inserita il: 17 luglio 2008 13:25:05
Messaggio:

SRXTEXT

Search and replace AutoCAD drawing texts using regular expressions, supports batch scripts, table replacements.

http://www.cad3d.it/forum1/showthread.php?t=3360


Autore Risposta: arri
Inserita il: 23 luglio 2008 15:09:34
Messaggio:

SSD

lisp per selezionare i blocchi dinamici in base alle proprietà



Scarica allegato:

ssd.zip
2,18 KB


Autore Risposta: arri
Inserita il: 27 agosto 2008 13:29:04
Messaggio:

velocizzare la creazione/eliminazione dei Gruppi di selezione

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6287

http://www.xanadu.cz/en/download.asp?file=GRP


Autore Risposta: GP
Inserita il: 01 settembre 2008 13:59:53
Messaggio:

Se ne è già parlato in giro nel forum, ma non mi sembra di aver visto qualcosa "raccolto" in questo topic, se mi sbaglio dimetelo che cancello:



lisp per eliminare vertici di una polilinea

EliminaVerticePoly.zip

fonte




lisp per inserire nuovi vertici in una polilinea

ADVERT.zip

non ricordo da dove arriva (forse Cadalyst)

Inserire nel lisp il testo in rosso per renderlo "de noantri" e trattare anche le lwpoly (nel '95 non esistevano ancora).



; ADVERT.LSP Add a Vertex (c)1995, Steve Houghton
;revised 3/23/95 to ensure new vertex is at crosshairs
;thanks to Patrick Wheatley

;Inserts a vertex in a polyline. If a line is selected, it offers to convert
;it to a polyline and then insert the vertex.
;Will report: At least one break point must be on polyline. if the end of
;a polyline is chosen
;***************************************************************************

;(defun C:ADV ( / OB OC OO OH POLYLINE POLYNAME PICKPOINT POLYDXF ENTTYPE
LASTENT NEWVERT OLDERR ANSWER INSERTVERT)


(princ "\nADD VERTEX")

;*set all env variables,
;*osmode to avoid conflicts with the osnap
;*blipmode to make her pretty
(setq OO (getvar "OSMODE")
OB (getvar "BLIPMODE")
OH (getvar "HIGHLIGHT")
OC (getvar "CMDECHO")
OLDERR *error*
*error* MC_ERR
)


;*vertext insert routine
(defun insertvert()
;*ensure that last entity is not a compound entity
;*by creating a simple temporary entity as the last entity in the
;*database this way we can be sure that the next two entities
;*will be the two new polylines created by breaking the current
;*polyline
(entmake (list '(0 . "POINT") (cons 10 (getvar "VSMIN"))))
(setq LASTENT (entlast))
;*breaks polyline at pickpoint
(command "_break" POLYNAME PICKPOINT PICKPOINT)

;*(entnext lastent) will be the next polyline created after lastent
;*(entlast) will be the other polyline created
;*so now join the two and we have a polyline with the new vertex
;*inserted
(command "_PEDIT" (entnext LASTENT) "_join" (entlast) "" _exit)
;*get rid of temporary point
(entdel LASTENT)
(princ "\nMove new vertex: ")
(setq NEWVERT (osnap pickpoint "int,vic"))
(COMMAND "_STRETCH" "_C" NEWVERT NEWVERT "" PICKPOINT pause)
);insertvert

(setvar "OSMODE" 0)
(setvar "BLIPMODE" 0)
(setvar "HIGHLIGHT" 0)
(setvar "CMDECHO" 0)

(while (setq POLYLINE (entsel))
(setq POLYNAME (car POLYLINE)
PICKPOINT (osnap (cadr POLYLINE) "_nea")
POLYDXF (entget POLYNAME)
ENTTYPE (cdr (assoc 0 POLYDXF))
)

(if (OR (= enttype "POLYLINE") (= enttype "LWPOLYLINE"))

(insertvert)
(if (= enttype "LINE")
(progn
(initget "Y y N n")
(setq ANSWER (getkword "\nDo you wish to turn this line to a polyline <Y>? "))
(if (or (null ANSWER)
(= ANSWER "Y")
(= ANSWER "y"))
(progn
;*turn current line into a polyline
(command "_pedit" POLYNAME "_y" "")
(insertvert)
);progn
);if
);progn

(princ "\nMust Select a polyline or line.")
);if
);if
);while

(setvar "OSMODE" oo)
(setvar "BLIPMODE" ob)
(setvar "HIGHLIGHT" oh)
(setvar "CMDECHO" oc)
(setq *error* OLDERR)
(princ)
);end advert.lsp


Autore Risposta: arri
Inserita il: 15 settembre 2008 09:44:06
Messaggio:

bloccare tutte le finestre di tutti i layout

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6305

http://www.xanadu.cz/en/download.asp?file=LockAllVp


Autore Risposta: arri
Inserita il: 22 settembre 2008 08:41:55
Messaggio:

ricercare blocchi in rete

http://seek.autodesk.com/

http://autodesk.blogs.com/between_the_lines/2008/09/and-one-hairy-l.html


Autore Risposta: arri
Inserita il: 24 settembre 2008 08:30:41
Messaggio:

tutorial

Dynamic text on sheets within a Sheet Set

http://images.questex.com/Cadalyst/Tips&Tools/2008/0922ttw.zip


Autore Risposta: arri
Inserita il: 30 settembre 2008 08:17:18
Messaggio:

LayIso Like

http://www.nyacad.com/Handy%20AutoCAD-8.html


Autore Risposta: arri
Inserita il: 15 ottobre 2008 08:09:44
Messaggio:

Free AutoCAD programming webcast: .NET for LISP Programmers

http://through-the-interface.typepad.com/through_the_interface/2008/10/free-autocad-pr.html


Autore Risposta: arri
Inserita il: 18 ottobre 2008 06:53:35
Messaggio:

lisp per facilitare la selezione di un layout
(utile specialmente quando il dwg ne contiene molti)

http://www.jefferypsanders.com/autolisp_LAYOUTS.html


Autore Risposta: GP
Inserita il: 26 ottobre 2008 18:50:43
Messaggio:

Lisp per Rinominare Blocchi velocemente. Nella finestra di dialogo viene riproposto il nome attuale per agevolare eventuali piccole modifiche allo stesso senza doverlo ridigitare.


Lo zip contiene:

RB.LSP e RB.DCL per chi volesse apportare migliorie o personalizzazioni
(per l'uso almeno il DCL deve essere posto in una cartella del percorso di AutoCAD).

RB.VLX per chi va bene com'è e predilige utilizzare un singolo file
(posto in una qualunque cartella).



10/02/2010 un aggiornamento del lisp che mi ero dimenticato di postare

- Impostato il default su OK, ora è possibile confermare con INVIO dopo la digitazione del testo, senza cliccare di nuovo sulla casella;
- inserito controllo su nome blocchi esistenti;
- ingrandita la casella per la digitazione del nome blocco.


Scarica allegato:

RB.zip



Autore Risposta: arri
Inserita il: 29 ottobre 2008 14:58:58
Messaggio:

esempio di lisp per selezione rapida oggetti simili

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6365


Autore Risposta: arri
Inserita il: 30 ottobre 2008 19:45:41
Messaggio:

Esportare le proprietà dei layer in Excel

- aprire Gestione layer

- tasto destro -> seleziona tutto

- CTRL+C

- incollare in Excel

http://ltunlimited.typepad.com/my_weblog/2008/07/copy-layer-tabl.html


Autore Risposta: arri
Inserita il: 31 ottobre 2008 07:40:41
Messaggio:

Inserting and updating time and date in an AutoCAD drawing


Plain text - you can always put dates manually in the text (e.g. by copying from Word)

Diesel macro - you can add a Diesel macro to your toolbars or pull-down menus which inserts the current date/time - use e.g. $M=$(EDTIME,0,DD.MO.YYYY HH:MM:SS); this makes a plain text (never updated)

RTEXT - the remote text command from Express Tools can add a dynamic text containing some property of the drawing or drawing environment - you can e.g. use a Diesel expression $(edtime,0,MON DD"," YYYY - H:MMam/pm) which will display the current date and time. Such date is updated on every regen.

FIELD - dynamic text fields are the most flexible way to add time and date to your drawings. You can use fields separately (as standalone texts, FIELD), in block attributes (e.g. title blocks), or inside Mtext texts. You can choose formatting and various time/date sources (current date, last save date, last plot date, creation date). Please note that the current date value does not behave like the other fields - it is not automatically updated on events defined with the FIELDEVAL variable but only on the UPDATEFIELD command.
You can also use Diesel expressions in Fields - use the above mentioned RText Diesel expression to make a dynamically updated time/date in a Field.

You can also enter the field code as a plain text - AutoCAD will properly interpret it even in AutoCAD LT. Use the DTEXT command to enter e.g. the following text: %<\AcVar Date \f "%#c">%

Plot stamp - plot stamp (the PLOTSTAMP command, or the stamp setting in the PLOT dialog) adds time/date texts only to printouts (outside borders) of your drawings.

External data source - an advanced method for inserting live time data (e.g. time of the latest data update) from an external database or XLS table. You can use the dbConnect tools, linking to Excel or an add-on utility.

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=6366


Autore Risposta: arri
Inserita il: 06 novembre 2008 09:25:14
Messaggio:

Online Sketching Tool from Autodesk Labs: Project Draw

http://www.dailyautocad.com/announcements/online-sketching-tool-from-autodesk-labs-project-draw/

http://draw.labs.autodesk.com/ADDraw/draw.html


Autore Risposta: arri
Inserita il: 07 novembre 2008 10:15:13
Messaggio:

Citazione:
Messaggio inserito da GP

Lisp per Rinominare Blocchi velocemente. Nella finestra di dialogo viene riproposto il nome attuale per agevolare eventuali piccole modifiche allo stesso senza doverlo ridigitare.


Lo zip contiene:

RB.LSP e RB.DCL per chi volesse apportare migliorie o personalizzazioni
(per l'uso almeno il DCL deve essere posto in una cartella del percorso di AutoCAD).

RB.VLX per chi va bene com'è e predilige utilizzare un singolo file
(posto in una qualunque cartella).


Saluti.


RB.zip







grazie GP !
questo è un tassello mancante di AutoCAD


Autore Risposta: GP
Inserita il: 07 novembre 2008 13:39:40
Messaggio:

Prego, ci pensiamo noi CADLandesi.



Autore Risposta: arri
Inserita il: 07 novembre 2008 14:03:28
Messaggio:


Autore Risposta: arri
Inserita il: 15 dicembre 2008 13:11:21
Messaggio:

Force layer for selected commands (objects).

The FLay LISP utility (reactor) automatically sets layers for drawing objects created with specific commands. The settings are loaded from a customized definition file.
Using FLay you can put all newly created Texts, Dimensions, Hatches etc. to the predefined layer names. If the layer does not exist, it will be created.


Autore Risposta: antoniovinci
Inserita il: 15 dicembre 2008 21:11:18
Messaggio:

Citazione:
Messaggio inserito da arri
Force layer for selected commands (objects).


Sulla base della descrizione, questa utility mi pare fenomenale, per almeno 3 buoni motivi.

1] aumento di produttivita', evitando di perder tempo col selettore layers

2] riduzione drastica degli errori tipo "testo messo nel layer Quote"

3] se lo usassero tutti per legge, le tavole tecniche risulterebbero finalmente standardizzate, ma questa e' una mera utopia prenatalizia...



Autore Risposta: arri
Inserita il: 17 dicembre 2008 07:35:17
Messaggio:

Citazione:
Messaggio inserito da antoniovinci
questa utility mi pare fenomenale


chi padroneggia l'uso dei reattori ha a disposizione possibilità infinite


Autore Risposta: GimmiGIS
Inserita il: 17 dicembre 2008 10:46:35
Messaggio:

Applicazione gratuita riservata agli utenti che hanno un contratto di manutenzione e aggiornamento (Autodesk Subscription).
Si chiama Autodesk Impression ed è... impressionante!
Permette di abbellire le tavole in modo pittorico prima di stamparle

http://map3d.blogspot.com/2008/05/software-autodesk-in-regalo.html

Buon lavoro
GimmiGIS


Autore Risposta: arri
Inserita il: 17 dicembre 2008 11:12:46
Messaggio:

Citazione:
Messaggio inserito da GimmiGIS

Applicazione gratuita riservata agli utenti che hanno un contratto di manutenzione e aggiornamento (Autodesk Subscription).
Si chiama Autodesk Impression ed è... impressionante!
Permette di abbellire le tavole in modo pittorico prima di stamparle

http://map3d.blogspot.com/2008/05/software-autodesk-in-regalo.html

Buon lavoro
GimmiGIS




un regalo che paghi con la Subscription


Autore Risposta: arri
Inserita il: 22 gennaio 2009 11:57:07
Messaggio:

Visual Lisp vari

2Dto3D.LSP - Visual LISP Examples for 2D to 3D conversions


2Dto3D - Utility to change entity Z value
C:Carpet - Reduce all Z values to zero
C:2Dto3DByHand - Manual selection of entities to change
C:2Dto3DbyProx - Z update by proximity to Z elevation tag
getTheStartPoint - Utilily to get object start point
AREAGAMES.LSP - Visual LISP Examples for area calculations with block data


C:EXAMPLE1 - Calculate area based on border-object in block
GetBlockArea - Get the area utility function
GetBorderObject - Search block definition for border object
C:EXAMPLE2 - Calculate area based on attribute values
get_ATTS - Return a list of tags and attribute values
put_ATTS - Write a list of tags and attributes to a block insert
ATTRIBS.LSP - Visual LISP Example application for attribute manipulations


C:ATTOUT - extract attributes and block info
C:ATTINP - import attributes and block info
ATT:REPLACE - replace attributes in a block insert
ATT:GETS - get attributes attached to a block insert
BLOCKATTRIBS.LSP - Visual LISP Example utility to update redefined blocks with attributes


C:BLOCKATTRIBS - Command function to update blocks after redefining
ATT:REPLACE - replace attributes in a block insert
ATT:GETS - get attributes attached to a block insert
BLOCKFUN.LSP - Visual LISP Function set to append objects to a block


AppendBlock - append entity to existing block definition
RemoveBlock - remove entity name from block defintion
Get_Block_Ref_Obj - return object reference given block name
CHANGES.LSP - Visual LISP Example to change layers and Z values.


Layer_Update - change layers given selection set and nested list of layer names.
Z_Update - change Z elevations of a selection set.
Ent_Z_Update -change Z elevation for a single entity.
C:TEST1 - Layer conversion demonstration.
C:TEST2 - Z conversion demonstration.
CTEXT.LSP - Visual LISP Example to change text and mark revision.


C:CTEXT - command function to mark change text
DATES.LSP - Visual LISP Utility set for converting various date formats.


AcadCalendar - Given Julian date from AutoCAD DATE variable, returns string MM/DD/YYYY.
AcadJulianDate - Determines base value (Midnight) for AutoCAD DATE variable given the month, day, and year.
AstroCalendar - Given astronomical Julian date, returns string with MM/DD/YYYY format.
AstroJulianDate - Given month, day, year returns Julian date as determined by the Naval Astronomical Observatory.
DayOfWeek - Given month, day, year returns string with the day of the week.
DayOfYear - Given month, day, year return integer number for day of the year.
isLeapYear - Given year returns T if leap year, nil otherwise.
DBREAK.LSP - Visual LISP Routine to break dimension lines (regenerating dimensions will erase breaks!)


C:DBREAK - Break dimension lines command function.
DETAIL.LSP - Visual LISP Routine to create detail enlargements in model space


C:DETAIL - Detail enlargement command function.
DIRSEARCH.LSP - Visual LISP Utility function for directory searching.


DirSearch - Directory search utility function.
SearchThese - Recursive directory search utility function

DRAWCHART.LSP - Visual LISP Example Function to draw a text chart or table from a list of data


DrawChart - Utility function for chart processing.
DetermineColHeight - Figure out which column is tallest.
DetermineRows - Figure out where rows start in Y.
Draw_The_Cells - Draw the linear grid for the chart.
Add_A_Line - Utility to draw a line object.
Add_A_Text - Utility to insert text.
Col_Total_Size - Find X width and Y height of a column.
Get_Column - Get column data as nested list.
Cell_Size - Determine cell size from data.
Verify_data_List - Verifies format of input data list.
HARRYDIALOG1.LSP - Visual LISP and DCL example of Dialog box control


C:HD1 - Hot Tip Harry's Dialog example command function.
varies - Example call back functions for dialog box control.
nth-replace - Replace Nth value in a list utility function.
nth-remove - Remove Nth value in a list utility function.
INOUT.LSP - Visual LISP Utility to determine if point is inside or outside of boundary.


InOut - Utility to determine if a point is inside or outside geometry.
Line_Arc - Compute intersection of line and arc.
Line_Arc_Loop - Looping work horse for Line_Arc.
Find_Lim - Apply tool for point list testing.
C:TestIt - Basic test example.
LastPlot.LSP - Visual LISP Example to display last records from plot log file.


GetLayoutObject - get current layout object reference.
GetPlotConfigs - get active document plot configurations reference.
GetPrefObj - get preferences object reference.
GetPrefOutput - get preferences output object reference.
GetPrefFiles - get preferences files object reference.
GetPlotLogName - retrieve plot log file name from preferences.
ParseCSV - parse input line in comma format to list.
C:LastPlot - command function to display data from plot log file.
LAYERSWAP.LSP - Visual LISP functions that manipulate and swap layer names.


LayerSwap - utility that does the layer name change work.
C:TEST - example that calls LayerSwap for all open documents.
C:DEMOLAYER - utility to modify layer name prefix/suffix for selected entities
LENGTHS.LSP - Visual LISP Example functions using entity object lengths.


getTheLength - return length value for an entity
sumLengths - sum the length values found in a selection set.
findTheLongest - returns ename of longest object in selection set.
findTheShortest - returns ename of shortest object in selection set.
findLengthTest - generic length test utility given selection set.
LINESLOPE.LSP - Visual LISP Example command to annotate sloped line.


C:LineSlope - command function to place percentage slope dimension.
DrawArrow - draw a solid arrow utility.
LWPLINES.LSP - Visual LISP Utilities for manipulating lightweight polylines


LWPOLY_SHOW - Given Entity list, prints points in polyline.
LWPOLY_NTH - returns point, bulge, and widths of segment N.
LWPOLY_CHANGE - change nth point, bulge and widths.
LWPOLY_2_POLY - convert a lightweight poly to a traditional poly

MATH.LSP - Visual LISP Utility function set for math operations.


RTD - radians to degrees.
DTR - degrees to radians.
TAN - compute tangent.
ARCCOS - compute arccosine.
ARCSIN - compute arcsine.
SEC - compute secant.
COSEC - compute cosecant.
COTAN - compute cotangent.
VectMag - compute vector magnitude.
UnitVect - compute unit vector.
VectAdd - add two vectors.
VectAngle - vector angle.
ApplyCoeff - apply a coefficient f(x)=L0+L1*X+L2*X^2...
MATRIX1.LSP - Visual LISP function set to perform matrix math, block point conversion


MatrixOrder - Determine size of rectangular matrix.
AddMatrix - Add matrices of like size.
MultMatrix - Multiply matrices.
MatrixFlip - Row-based to/from Column-based.
BuildBlockMatrix - Construct transformation matrix for block insert.
BlockPnt->WCS - Convert point from block definition to insert location.
NLENGTHEN.LSP - Visual LISP function for modified delta lengthen command.


C:NLENGTHEN - Command function for new lengthen command.
*ERROR* - embedded defun in command function.
PFUNC.LSP - Visual LISP function to plot a function Y=f(X) with f(X) as a form.


C:PFUNC - Command function to execute plot.
PLCHOP.LSP - Visual LISP Example to chop a section out of a polyline.


C:PLCHOP - Command function to chop vertices from a pline.
GetVertexPoints - User input of two vertices from same pline.
REACTOR.LSP - Visual LISP Example application for entity reactors.


C:CONNECT - Connect two circles with a line.
Connection - Draw a line between two circles.
ConnectFix - Reactor function when a circle changed.
WierdSorting.LSP - Visual LISP Examples for demonstrating the sort utilities.


C:ENTITIES - Example to sorted list of entity counts.
C:ESORT - Example that sorts entity points by X then Y.
SortWierdFormat - Example to sort sheet set reference numbers.
C:SORTREFS - Example command function for SortWierdFormat utility.
QuickArrow - GRDRAW example to draw line with arrow head.
ParseNumbs - Parse string into list of numbers.
XDATA.LSP - Visual LISP Example application for extended data manipulation.


X_DATA_GET - get extended data list from entity.
X_DATA_ADD - add extended data to entity.
X_DATA_DEL - remove extended data from entity.
X_DATA_APPIDS - build list of registered applications.
NTH_SUBST - substitute nth member in list.
C:EST - estimation example application shows use of extended data to house bill of material info about objects.
XLSEEK.LSP - Visual LISP Example to search an Excel Spreadsheet.


Excel_Record - Search for a match in column A of work sheet.
Close_Excel_Links - Close object linkage to work sheet.
ColLetter - Given a number returns letter as per Excel columns.
XLSEX1.LSP - Visual LISP Example to write a list to an Excel Spreadsheet.


List_2_Excel - Write a list of data to a spread sheet.
ColLetter - Convert column number to Excel style letter label.
XLSOBJ.LSP - Visual LISP Example to link to Excel Spreadsheet, update variable reference.


Link_2_Excel - Set up link to Excel worksheet objects.
Update_Variable - Sends new value to variable named in spreadsheet.
Close_XL - Close link to Excel worksheet object


Autore Risposta: arri
Inserita il: 26 gennaio 2009 08:40:22
Messaggio:

Convert entities or entity colors to separate layers


Autore Risposta: arri
Inserita il: 27 gennaio 2009 11:28:41
Messaggio:

isolare layer xref

The LAYISO command does not support selection of entities embedded in blocks or xrefs. So you cannot use it to isolate (hide other) layers which are part of an external reference drawing.
By principle, it is not possible to show a single layer from an xref and hide (switch off) all other drawing layers (including the layer where the xref is inserted). By switching off the xref insertion layer, you'll switch off the whole xref, regardless of the visibility of its individual layers.

Nevertheless, as a limited solution for this functionality (assumes an xref inserted in the layer 0, not switched off), you can use the following LISP utility - the "LIX" command (save it to the file lix.lsp and load it with APPLOAD):

(defun C:LIX ( / entlay)
(setq entlay(cdr(assoc 8 (entget(car(nentsel "Select an Xref-object to isolate: "))))))
(if (vl-string-search "|" entlay)
(command "._-layer" "_s" "0" "_off" "*" "_n" "_on" entlay "")
(princ "\nThis is not an Xref!")
)
(prin1)
)


Autore Risposta: MEM
Inserita il: 29 gennaio 2009 13:43:48
Messaggio:

In questo sito http://www.acadianagraphics.com/, che forse arri ricorda per i quiz, ci sono delle ottime utility compreso un Solid Stretch.


Autore Risposta: arri
Inserita il: 29 gennaio 2009 14:06:20
Messaggio:

Citazione:
Messaggio inserito da MEM

In questo sito http://www.acadianagraphics.com/, che forse arri ricorda per i quiz, ci sono delle ottime utility compreso un Solid Stretch.



hai fatto un bel regalo a chi usa il 3D


Autore Risposta: MEM
Inserita il: 30 gennaio 2009 15:40:07
Messaggio:

Gia' citato in altre occasioni da Aniello e arri, questo sito:http://www.afralisp.net/downloads.htm, propone alcuni lispini.


Autore Risposta: joseph
Inserita il: 01 febbraio 2009 17:15:26
Messaggio:

Non visualizzare Drawing1.dwg all'apertura.

Un utente ha chiesto, su un altro forum, se esisteva un'opzione per far aprire autocad senza nessun Nuovo File di Default.
Soluzione (non mia): inserire questa funzione alla fine del file "acadxxxxdoc.lsp" (dove, al posto di xxxx, si deve indicare il numero della versione):
Il file dovrebbe trovarsi nella cartella Support di Autocad.

(defun-q s::startup ()
(if (= (getvar "dwgname") "Drawing1.dwg")
(progn (command "_close")
(if (> (getvar "cmdactive") 0) (command "_Y"))
))
(princ)
)

Sulle versioni italiane, sostituire Drawing1.dwg con Disegno1.dwg).


Autore Risposta: arri
Inserita il: 19 febbraio 2009 08:20:11
Messaggio:

Giving Elevation Symbols Automaticly


Autore Risposta: arri
Inserita il: 24 febbraio 2009 10:57:22
Messaggio:

convert 2D SOLID objects to 3D faces

If you need to (e.g. for rendering) convert 2D objects of the type SOLID to 3D faces, use an intermediate conversion to REGION or a conversion to Surfaces.
The REGION command can convert Solids to Regions - then you can explode them or use them for modeling.

But you can also directly use the CONVTOSURFACE command and get the entity of the type Surface (PLANESURFACE). You can render it directly or use the THICKEN command to assign it a minimal thickness making it a 3D Solid body (3DSOLID).

To directly convert 2D Solids to 3D Faces or PFaces you can use the Xanadu Sol2Face utility


Autore Risposta: MEM
Inserita il: 25 febbraio 2009 13:22:26
Messaggio:

Gia' citato in una discussione da Jotar, evidenzio questo utile sito:


Autore Risposta: arri
Inserita il: 28 febbraio 2009 01:51:56
Messaggio:

EZSCRIPT-PRO

generatore di script per versioni AutoCAD sino alla 2005


Autore Risposta: arri
Inserita il: 19 marzo 2009 08:14:00
Messaggio:

Change AutoCAD screen background color based on OSNAPZ

;;; By Jimmy Bergmark
;;; Copyright (C) 2009 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; 2009-03-17 - First release
;;; Tested on AutoCAD 2010

;;; changes the background depending on the state of OSNAPZ

; activate the reactor with the (chz) command
; remove the semicolon befor on the last row to automatically activate this upon loading this lisp
; you can load this in each drawing with acaddoc.lsp
; http://www.jtbworld.com/lisp/acaddoc.htm
: background colors can easily be changed below in the code.

(vl-load-com)
(defun chz ()
(if (not ct_rea)
(setq
ct_rea (vlr-sysvar-reactor
nil
'((:vlr-sysVarChanged . reactonosnapz))
)
)
)
)

(defun reactonosnapz (event parameter)
(if (= (car parameter) "OSNAPZ")
(if (= (cadr parameter) T)
(if (= (getvar "OSNAPZ") 1)
(BGGrey)
(BGWhite)
)
)
)
)

; Set the background in model and paper space to grey
(defun BGGrey ()
(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))
(vla-put-GraphicsWinModelBackgrndColor disp 5987163)
(vla-put-GraphicsWinLayoutBackgrndColor disp 5987163)
(vla-put-LayoutCrosshairColor disp 16777215)
(vla-put-ModelCrosshairColor disp 16777215)
(vla-put-AutoTrackingVecColor disp 16777215)
(vla-put-AutoSnapMarkerColor drafting 2)
)

; Set the background in model and paper space to white
(defun BGWhite ()
(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))
(vla-put-GraphicsWinModelBackgrndColor disp 16777215)
(vla-put-GraphicsWinLayoutBackgrndColor disp 16777215)
(vla-put-LayoutCrosshairColor disp 0)
(vla-put-ModelCrosshairColor disp 0)
(vla-put-AutoTrackingVecColor disp 0)
(vla-put-AutoSnapMarkerColor drafting 6)
)

; Set the background in model and paper space to black
(defun BGBlack ()
(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))
(vla-put-GraphicsWinModelBackgrndColor disp 0)
(vla-put-GraphicsWinLayoutBackgrndColor disp 0)
(vla-put-LayoutCrosshairColor disp 16777215)
(vla-put-ModelCrosshairColor disp 16777215)
(vla-put-AutoTrackingVecColor disp 16777215)
(vla-put-AutoSnapMarkerColor drafting 2)
)

;(chz)


Autore Risposta: arri
Inserita il: 26 marzo 2009 07:43:53
Messaggio:

LISP utility DBXscanXref scans all DWG files in a given folder (and its subfolders) and generates a report with a list of all DWG files containing external references, the number of xrefs and optionally also their names (paths). The files are not opened individually.


Autore Risposta: arri
Inserita il: 01 aprile 2009 11:55:13
Messaggio:

utilità per Civil2009

Reverse sample line numbering for river flow alignments.


Autore Risposta: arri
Inserita il: 17 aprile 2009 21:46:38
Messaggio:

Esportare le proprietà dei layer in Excel

- aprire Gestione layer

- tasto destro -> seleziona tutto

- CTRL+C

- incollare in Excel

fonte


Autore Risposta: arri
Inserita il: 21 aprile 2009 21:29:15
Messaggio:

possibilità di richiedere gratuitamente il Manuale Utente

Want hard copy manuals to go with your AutoCAD?

Back in the day of R13 and earlier, AutoCAD used to come with enough hard copy manuals to stack 7 or 8 inches high. I've still got more than one R13 box, although not all the books. Nowdays you receive a plastic DVD box with a disk. The manuals are still there, they are just in electronic form now.

Some people prefer this method, and it certainly saves tons of paper. I'm sure there were some people who received the giant box of manuals in the old days and never even *****ed them. Are you one of the other type? Do you still like a real paper book in your hands? Read on...




Yes, you can still get hard copy Users Guides, and best of all they are FREE. Well, you did pay a huge chunk for the software, but the manuals won't cost you any more, let's put it that way. Go to http://www.autodeskbookrequest.com and put in your request. You will need your serial number, and you will be able to get one set for each license that you have. I received mine in about 3 days.

The Users Guide is so large, it's split into three volumes. The Customization Guide and strangly enough, the VBA and ActiveX developers guide are still available too, though the latter looks unchanged compared to previous years. I say strangly because VBA is on its way out the door, it isn't even shipped or installed with AutoCAD 2010.


Autore Risposta: arri
Inserita il: 04 maggio 2009 11:40:04
Messaggio:

Break curve at all listed distances (stations)

BrkList


Autore Risposta: MEM
Inserita il: 04 maggio 2009 17:58:42
Messaggio:

AlgoLab Raster to Vector Conversion Toolkit converts architect, mechanical and various technical drawings, maps and other types of line artwork from raster to vector formats. This means that a paper drawing can be scanned, line artwork automatically recognized and represented in a vector format that then can be imported to your CAD or drawing program.
AlgoLab
Non male, l'ho provato.

Dall'Autodesk il trial 30 gg. di: AutoCAD Raster Design


Autore Risposta: antoniovinci
Inserita il: 04 maggio 2009 19:50:06
Messaggio:

Citazione:
Messaggio inserito da MEM
Non male, l'ho provato

Beh, come prestazioni e' simile al gratuito Wintopo, solo che costa 99 verdoni in piu'...


Autore Risposta: arri
Inserita il: 05 maggio 2009 01:07:22
Messaggio:

Citazione:
Messaggio inserito da MEM

AlgoLab Raster to Vector Conversion Toolkit[size=1] ...



qui si parla di Freeware,

apri una nuova discussione per software shareware

(altrimenti diventa un minestrone)


Autore Risposta: arri
Inserita il: 07 maggio 2009 09:00:20
Messaggio:

VBA per contare i blocchi inseriti sui vari layer


Scarica allegato:

count_block.zip
25,03 KB


Autore Risposta: arri
Inserita il: 12 maggio 2009 10:22:15
Messaggio:

; fonte

; **=-=-=-=-=-=-=-=-=-=-=- DINFO.lsp =-=-=-=-=-=-=-=-=-=-=-**
; ** by Lee McDonnell **
; ** Copyright © May 2009 **
; ** **
; ** Contact at: CADTutor.net, TheSwamp.org **
; ** **
; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
; ** **
; ** DYNAMIC INFORMATION TOOL **
; ** **
; ** FUNCTION DESCRIPTION: **
; ** **
; ** Information about an object is displayed upon the **
; ** user moving the cursor over the object. **
; ** **
; ** FUNCTION SYNTAX: DINFO **
; ** **
; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
; ** **
; ** Click or Hit Enter to Exit Program **
; ** Press "+" to Increase Cursor Pick Box **
; ** Press "-" to Decrease Cursor Pick Box **
; ** **
; ** Click on Text or Attributes to Edit them. **
; ** Click on a Viewport to Lock it. **
; ** Click on Drawing Objects to Edit them. **
; ** **
; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
; ** **
; ** ADDITIONAL FUNCTIONS: **
; ** **
; ** CurMod: Creates Custom Cursor Object **
; ** cInter: Checks for Intersection & Creates Info Str **
; ** cErase: Erase Information Box and Cursor Object **
; ** blkinfotxt: Creates Information Box **
; ** arcmake: Creates an Arc Object **
; ** dxf: Returns DXF code value **
; ** verchk: Checks AutoCAD Version **
; ** round: Rounds a Number to Nearest Whole Number **
; ** **
; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
; ** **
; ** PLATFORM RESTRICTIONS: **
; ** **
; ** For use on AutoCAD 2000 onwards. **
; ** Only tested in AutoCAD 2004. **
; ** **
; ** Requires EXPRESS TOOLS to run. **
; ** **
; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
; ** **
; ** WITH THANKS TO: **
; ** **
; ** Andrea Andreetti ~ for providing me with **
; ** the inspiration to create this. **
; ** **
; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
; ** **
; ** VERSION: **
; ** **
; ** 1.0 First Release ~ 09.05.2009 **
; ** 1.1 ProgEdition Added (Commented) ~ 09.05.2009 **
; ** 2.0 Text and Attribute Edit Added ~ 09.05.2009 **
; ** 3.0 Line Editor Added ~ 09.05.2009 **
; ** 4.0 Circle and LWPolyline Editor ~ 10.05.2009 **
; ** 5.0 Xref and Block Update ~ 10.05.2009 **
; ** 5.1 Bug fix Editing Nested Ents ~ 11.05.2009 **
; ** 6.0 Shift-Click Edit Attributes ~ 11.05.2009 **
; ** **
; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**


(defun c:dInfo
(/ *error* vSze bText bBack tStr radscl doc
spc vlst ovar grdat cPt IntSs CurCirc ssDat)

;;; (setq progEdition nil) ;; Programmer's Reference (T or nil)

(if (verchk)
(progn

(vl-load-com)
(setq bText "DINFO"
bBack 71
tStr ""
radscl 20.0)

(vla-StartUndoMark
(setq doc (vla-get-ActiveDocument
(vlax-get-acad-object))))

(defun *error* (msg)
(cErase)
(if ovar
(mapcar 'setvar vlst ovar))
(vla-EndUndoMark doc)
(if (not (member msg '("Function cancelled" "quit / exit abort")))
(princ (strcat "\nError: " msg)))
(redraw)
(princ))

(setq spc (if (zerop (vla-get-activespace doc))
(if (= (vla-get-mspace doc) :vlax-true)
(vla-get-modelspace doc)
(vla-get-paperspace doc))
(vla-get-modelspace doc)))

(setq vlst '("CMDECHO" "OSMODE")
ovar (mapcar 'getvar vlst))
(mapcar 'setvar vlst '(0 0))

(princ "\nMove Cursor Over Objects to Retrieve Information...")

(while (or (eq (car (setq grdat (grread t 7 1))) 5)
(eq 3 (car grdat))
(and (eq 2 (car grdat)) (eq 43 (cadr grdat)))
(and (eq 2 (car grdat)) (eq 45 (cadr grdat)))
(and (eq 2 (car grdat)) (eq 61 (cadr grdat))))
(redraw)
(setq vSze (getvar "VIEWSIZE"))

(if (or (eq 5 (car grdat)) (eq 3 (car grdat)))
(setq cPt (cadr grdat)))

(if (and (eq 2 (car grdat))
(member (cadr grdat) '(43 61)))
(and (> radscl 1.0)
(setq radscl (1- radscl))))

(if (and (eq 2 (car grdat))
(eq 45 (cadr grdat)))
(setq radscl (1+ radscl)))

(CurMod cPt 3)
(setq IntSs (ssget "_C" (car ssDat) (cadr ssDat)))
(ssdel CurCirc IntSs)
(if (cInter IntSs)
(CurMod cPt 1)
(setq bText "DINFO"
bBack 71))
(blkinfotxt bBack (polar cPt (/ pi -4) rad) bText))

(cErase)
(vla-EndUndoMark doc)
(mapcar 'setvar vlst ovar))
(alert "This Program is not Supported in this AutoCAD Version"))

(princ))

(princ (strcat "\nDInfo "
(chr 169)
" by Lee McDonnell Loaded.\n"
"Type \"DINFO\" to invoke..."))

(defun CurMod (pt col / minp maxp)
(cErase)
(setq CurCirc
(entmakex
(list
(cons 0 "CIRCLE")
(cons 62 col)
(cons 10 pt)
(cons 40 (setq rad (/ vSze radscl))))))
(vla-getBoundingBox
(vlax-ename->vla-object CurCirc)
'minp
'maxp)
(setq ssDat (mapcar 'vlax-safearray->list
(list minp maxp))))

(defun cInter (ss / iArr iObj iEnt count att aLst
attLst col grldat ClsPt CurPt
sPt ePt nLine pt1 arcCen cArc
Objflag mtxt mtxtObj)
(if (> (sslength ss) 0)
(progn
(setq iArr
(vlax-variant-value
(vla-IntersectWith
(vlax-ename->vla-object CurCirc)
(setq iObj (vlax-ename->vla-object
(setq iEnt (ssname ss 0))))
acExtendNone)))
(if (> (vlax-safearray-get-u-bound iArr 1) 0)
(setq Objflag nil)
(if (setq iEnt (car (nentselp cPt)))
(setq iObj (vlax-ename->vla-object iEnt) Objflag T)
(setq iEnt nil iObj nil Objflag nil)))

(if (and iEnt iObj)
(progn

;;; (if (not progEdition)
;;; (progn
(cond ((and (eq "INSERT" (dxf 0 (entget iEnt)))
(eq 1 (dxf 66 (entget iEnt))))
(setq count (sslength (ssget "X"
(list (cons 0 "INSERT")
(assoc 2 (entget iEnt)))))
att (entnext iEnt))
(while (not (eq "SEQEND" (dxf 0 (setq aLst (entget att)))))
(setq attLst (cons (list (dxf 2 aLst) (dxf 1 aLst)) attLst)
att (entnext att)))
(foreach x (reverse attLst)
(setq tStr (strcat tStr "\n" (car x) ": " (cadr x))))
(setq bText (strcat "ATTRIBUTED BLOCK\nLAYER: "
(dxf 8 (entget iEnt))
"\nINSTANCES: "
(itoa count)
"\nATTRIBUTES:{\\fArial|b0|i0|c0|p34;"
tStr
"}")
bBack 51
attLst nil
tStr ""))
((eq "INSERT" (dxf 0 (entget iEnt)))
(setq count (sslength (ssget "X"
(list (cons 0 "INSERT")
(assoc 2 (entget iEnt))))))
(setq bText (strcat "BLOCK\nLAYER: "
(dxf 8 (entget iEnt))
"\nINSTANCES: "
(itoa count))
bBack 51))
((eq "VIEWPORT" (dxf 0 (entget iEnt)))
(setq bText (strcat "VIEWPORT\nLAYER: "
(vla-get-Layer iObj)
"\nLINETYPE: "
(vla-get-Linetype iObj)
"\nHEIGHT: "
(rtos (vla-get-Height iObj) 2 2)
"\nWIDTH: "
(rtos (vla-get-Width iObj) 2 2)
"\nLOCKED: "
(if (eq :vlax-true (vla-get-DisplayLocked iObj))
"YES"
"NO"))
bBack 51))

(T
(setq bText (strcat (dxf 0 (entget iEnt))
"\nLAYER: "
(dxf 8 (entget iEnt))
(if (vlax-property-available-p iObj 'Linetype)
(strcat "\nLINETYPE: "
(vla-get-Linetype iObj))
"")
(if (vlax-property-available-p iObj 'Length)
(strcat "\nLENGTH: "
(rtos (vla-get-Length iObj) 2 2))
"")
(if (vlax-property-available-p iObj 'Area)
(strcat "\nAREA: "
(rtos (vla-get-Area iObj) 2 2))
"")
(if (vlax-property-available-p iObj 'Height)
(strcat "\nTEXT HEIGHT: "
(rtos (vla-get-Height iObj) 2 2))
"")
(if (vlax-property-available-p iObj 'StyleName)
(strcat "\nTEXT STYLE: "
(vla-get-StyleName iObj))
""))
bBack 51)))
(if (eq 3 (car grdat))
(progn
(cond
((or (and (eq "INSERT" (dxf 0 (entget iEnt)))
(eq 1 (dxf 66 (entget iEnt))))
(eq "ATTRIB" (dxf 0 (entget iEnt))))
(cErase)
(if (and (acet-sys-shift-down)
(eq "ATTRIB" (dxf 0 (entget iEnt))))
(progn
(setq tBox (textbox (list (assoc 1 (entget iEnt))
(assoc 40 (entget iEnt))))
mtxtObj (vla-addMtext spc
(vlax-3D-point (dxf 10 (entget iEnt)))
(- (caadr tBox) (caar tBox))
(dxf 1 (entget iEnt))))
(vla-put-height mtxtObj (dxf 40 (entget iEnt)))
(vla-put-StyleName mtxtObj (dxf 7 (entget iEnt)))
(vla-put-layer mtxtObj (dxf 8 (entget iEnt)))
(setq mtxt (vlax-vla-object->ename mtxtObj))
(command "_.ddedit" mtxt "")
(entmod (subst (assoc 1 (entget mtxt))
(assoc 1 (entget iEnt)) (entget iEnt)))
(entupd iEnt)
(entdel mtxt))
(vl-cmdf "_.eattedit" iEnt)))
((wcmatch (dxf 0 (entget iEnt)) "*TEXT")
(cErase)
(vl-cmdf "_.ddedit" iEnt ""))
((and (eq "LINE" (dxf 0 (entget iEnt)))
(not Objflag))
(cErase)
(setq col (vla-get-color iObj))
(while (eq 5 (car (setq grldat (grread t 7 0))))
(redraw)
(setq CurPt (cadr grldat)
ClsPt (vlax-curve-getClosestPointto iObj CurPt))
(if (>= (distance ClsPt (dxf 10 (entget iEnt)))
(distance ClsPt (dxf 11 (entget iEnt))))
(setq sPt (dxf 10 (entget iEnt))
ePt (dxf 11 (entget iEnt)))
(setq sPt (dxf 11 (entget iEnt))
ePt (dxf 10 (entget iEnt))))
(grvecs (list col sPt CurPt 3 CurPt ePt)))
(setq nLine
(vla-addLine spc
(vlax-3D-point sPt)
(vlax-3D-point CurPt)))
(vla-put-layer nLine (vla-get-layer iObj))
(vla-put-color nLine (vla-get-color iObj))
(vla-put-linetype nLine (vla-get-linetype iObj))
(vla-put-linetypescale nLine (vla-get-linetypescale iObj))
(vla-delete iObj)
(redraw))
((and (eq "LWPOLYLINE" (dxf 0 (entget iEnt)))
(not Objflag))
(cErase)
(setq col (vla-get-color iObj))
(while (eq 5 (car (setq grldat (grread t 7 0))))
(redraw)
(setq CurPt (cadr grldat)
xInPt (vlax-curve-getParamAtPoint iObj
(vlax-curve-getClosestPointto iObj CurPt))
ClsPt (round xInPt))
(if (eq :vlax-false (vla-get-Closed iObj))
(progn
(cond ((= (vlax-curve-getStartParam iObj) ClsPt)
(grvecs (list col (vlax-curve-getPointatParam iObj (1+ ClsPt)) CurPt
3 (vlax-curve-getPointatParam iObj ClsPt) CurPt)))
((= (vlax-curve-getEndParam iObj) ClsPt)
(grvecs (list col (vlax-curve-getPointatParam iObj (1- ClsPt)) CurPt
3 (vlax-curve-getPointatParam iObj ClsPt) CurPt)))
(T
(grvecs (list col (vlax-curve-getPointatParam iObj (1+ ClsPt)) CurPt
col (vlax-curve-getPointatParam iObj (1- ClsPt)) CurPt
3 (vlax-curve-getPointatParam iObj ClsPt) CurPt)))))
(progn
(cond ((= (vlax-curve-getStartParam iObj) ClsPt)
(grvecs (list col (vlax-curve-getPointatParam iObj (1+ ClsPt)) CurPt
col (vlax-curve-getPointatParam iObj
(1- (vlax-curve-getEndParam iObj))) CurPt
3 (vlax-curve-getPointatParam iObj ClsPt) CurPt)))
((= (vlax-curve-getEndParam iObj) ClsPt)
(grvecs (list col (vlax-curve-getPointatParam iObj (1- ClsPt)) CurPt
col (vlax-curve-getPointatParam iObj
(1+ (vlax-curve-getStartParam iObj))) CurPt
3 (vlax-curve-getPointatParam iObj ClsPt) CurPt)))
(T
(grvecs (list col (vlax-curve-getPointatParam iObj (1+ ClsPt)) CurPt
col (vlax-curve-getPointatParam iObj (1- ClsPt)) CurPt
3 (vlax-curve-getPointatParam iObj ClsPt) CurPt)))))))
(vla-put-Coordinate iObj ClsPt
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbDouble
(cons 0 1))
(list (car CurPt) (cadr CurPt))))))
((and (eq "ARC" (dxf 0 (entget iEnt)))
(not Objflag))
(cErase)
(setq StAng (dxf 50 (entget iEnt))
EnAng (dxf 51 (entget iEnt))
pt1 (polar (dxf 10 (entget iEnt)) StAng
(dxf 40 (entget iEnt)))
arcCen (polar (dxf 10 (entget iEnt))
(+ (/ (- EnAng StAng) 2.0) StAng)
(dxf 40 (entget iEnt)))
pt2 (polar (dxf 10 (entget iEnt)) EnAng
(dxf 40 (entget iEnt))))
(vl-cmdf "_.arc" pt1 "_E" pt2 "_D" pause)
(vla-delete iObj))
((and (eq "CIRCLE" (dxf 0 (entget iEnt)))
(not Objflag))
(cErase)
(setq ClsPt (dxf 10 (entget iEnt)))
(vla-delete iObj)
(vl-cmdf "_.circle" ClsPt pause)
(redraw))
((and (eq "VIEWPORT" (dxf 0 (entget iEnt)))
(not Objflag))
(if (eq :vlax-false (vla-get-DisplayLocked iObj))
(vla-put-DisplayLocked iObj :vlax-true)
(vla-put-DisplayLocked iObj :vlax-false)))
(T
(princ
"\n<!> Cannot Edit that Object <!>
\nMove Cursor Over Objects to Retrieve Information...")))))
;;; )
;;; (progn
;;; (setq tStr "DXF Table Data:\n")
;;; (foreach x (entget iEnt)
;;; (setq tStr (strcat tStr (vl-princ-to-string x) "\n")))
;;; (setq bText tStr bBack 51)))
T)
nil))
nil))

(defun cErase ()
(if CurCirc
(progn
(entdel CurCirc)
(setq CurCirc nil)))

(if iText
(progn
(entdel iText)
(setq iText nil))))

(defun blkinfotxt (back pt text / text)
(if iText
(progn
(entdel iText)
(setq iText nil)))
(setq text (strcat "{\\fArial|b1|i0|c0|p34;" text "}")
iText (entmakex
(list
(cons 0 "MTEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbMText")
(cons 1 text)
(cons 10 (polar pt 0 (/ vSze 90.0)))
(cons 40 (/ vSze 60.0))
(cons 50 0.0)
(cons 62 250)
(cons 71 1)
(cons 72 5)
(cons 90 1)
(cons 63 back)
(cons 45 1.2)))))

;;;(defun arcmake (pt1 pt2)
;;; (if cArc
;;; (progn
;;; (entdel cArc)
;;; (setq cArc nil)))
;;; (vl-cmdf "_.arc" pt1 CurPt pt2)
;;; (setq cArc (entlast)))

(defun dxf (code lst)
(cdr (assoc code lst)))

(defun verchk ()
(if (>= (distof (substr (getvar "ACADVER") 1 4)) 15)
T nil))

(defun round (num)
(if (<= 0.5 (rem num 1))
(fix (1+ num))
(fix num)))

;|
;;;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,;

End of Program Code

;;;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,;
|;


Autore Risposta: arri
Inserita il: 18 maggio 2009 12:09:26
Messaggio:

Autonumbering of AutoCAD blocks (incremental counter)

If you need to insert blocks with incrementing numbers in attributes, or automatically renumber existing blocks in your DWG drawing, you can use the free Xanadu InsertC utility. InsertC contains two commands - InsertC and BlockC.
The InsertC command is a "counting" version of the INSERT command. It inserts a specified block and automatically fills its first attribute with a increasing number in a series. You can either specify the block by picking an existing reference, or by entering its name.

The BlockC command takes the selection set of existing blocks and fills (renumbers) their first attributes with a series of incrementing numbers. You can sort the blocks (influence the numbering order) by their selection order, or by their X- or Y- coordinates.

Both autonumbering commands allow to specify the starting value of the counter, the prefix and the postfix for the generated number. You can also use the insertc:Inc LISP variable to set the increment (if other than +1).

The LISP utility InsertC is available for download


Autore Risposta: arri
Inserita il: 22 maggio 2009 08:22:46
Messaggio:

fix x AutoCAD 2007 - 2008 - 2009

MDI Tabs Update for AutoCAD


Autore Risposta: arri
Inserita il: 05 giugno 2009 07:44:20
Messaggio:

Automatically generated picture-legend of drawing blocks.

With the Xanadu BLegend utility you can easily create a legend (BOM table) of blocks used in your drawing (including icons - previews of the blocks).
Load the LISP utility with APPLOAD and start it with the BLegend command. Pick the top left corner of the legend table and specify its width. The legend will list all blocks in the current space (model/paper), their names, descriptions (see the block editor) and count. The legend is created in the current table style. You can then customize it.



Autore Risposta: antoniovinci
Inserita il: 05 giugno 2009 08:09:12
Messaggio:

Carino questo BOM (Bill of material, ossia "Distinta base").

Peccato non si aggiorni con UPDATE TABLE al variare del numero di blocchi presenti nel disegno, comunque davvero non male.


Autore Risposta: arri
Inserita il: 30 giugno 2009 11:17:05
Messaggio:

Purge unreferenced images in AutoCAD with AutoLISP

(defun purge-unreferenced-images (/ ss1 ctr id symlst enamelst delent vl_delent ipath iname tmp)
(defun remlst (/ tmp1)
(setq
tmp (length (member (cdr (assoc 340 (entget delent))) enamelst))
)
(repeat (- (length symlst) tmp)
(setq tmp1 (cons (car symlst) tmp1))
(setq symlst (cdr symlst))
)
(setq tmp (list (car symlst)))
(setq symlst (append (reverse tmp1) (cdr symlst)))
)
(defun massoc (key alist / x nlist)
(foreach x alist
(if (eq key (car x))
(setq nlist (cons (cdr x) nlist))
)
)
(reverse nlist)
)

(vl-load-com)
(setq ss1 (ssget "x" '((0 . "IMAGE"))))
(setq ctr 0)
(setq id (dictsearch (namedobjdict) "acad_image_dict"))
(setq symlst (massoc 3 id))
(setq enamelst (massoc 350 id))
(if ss1
(progn
(while (< ctr (sslength ss1))
(setq delent (ssname ss1 ctr))
(setq vl_delent (vlax-ename->vla-object delent))
(setq ipath (vla-get-ImageFile vl_delent))
(remlst)

(setq iname (strcat (vl-filename-base ipath) (vl-filename-extension ipath)))

(if (and (not (findfile ipath))
(not (findfile iname))
)
(progn
(dictremove (cdr (car id)) (car tmp))
(append tmp symlst)
(ssdel delent ss1)
(vla-delete vl_delent)
)
(progn
(setq ctr (1+ ctr))
)
)
)
)
)
(while symlst
(dictremove (cdr (car id)) (car symlst))
(setq symlst (cdr symlst))
)
)
(purge-unreferenced-images)
(command "QSAVE")
(command "_QUIT")


Autore Risposta: MEM
Inserita il: 30 giugno 2009 16:21:47
Messaggio:

Dopo aver istallato Design Review 2010 + DWG TrueView 2010 il 7MAG2009, oggi mi sono accorto che solo Design Review 2010 e' "vivo", mentre DWG TrueView 2010 e' "expired"; ma non doveva essere gratis?


Autore Risposta: arri
Inserita il: 02 luglio 2009 10:32:48
Messaggio:

Autocad CTB (or STB) online viewer


Autore Risposta: arri
Inserita il: 02 luglio 2009 11:23:47
Messaggio:

Citazione:
Messaggio inserito da MEM

Dopo aver istallato Design Review 2010 + DWG TrueView 2010 il 7MAG2009, oggi mi sono accorto che solo Design Review 2010 e' "vivo", mentre DWG TrueView 2010 e' "expired"; ma non doveva essere gratis?



è spirata perchè è una pre-release,

io aspetto quella in italiano


Autore Risposta: arri
Inserita il: 14 luglio 2009 14:08:15
Messaggio:

FieldLink to display links between fields and objects.

The free AutoCAD utility Xanadu FieldLink displays temporary lines (arrows) between the dynamic text fields and the objects, which properties are used in the fields.

So you can easily represent links and relations between text fields and dependent drawing objects (entities) - e.g. between a boundary polyline and its acreage label. The lines also identify all fields depending on objects. The temporary lines are automatically erased on redraw or zoom operations.

You can download the the FieldLink application
Load it with APPLOAD and start the FIELDLINK command.


Autore Risposta: arri
Inserita il: 20 luglio 2009 08:25:10
Messaggio:

macro in linguaggio DIESEL

utili in particolare per utenti LT


Autore Risposta: arri
Inserita il: 20 luglio 2009 15:40:26
Messaggio:

programma per distribuire in maniera casuale dei punti o dei blocchi all'interno di un'area di disegno specificata


Autore Risposta: arri
Inserita il: 23 luglio 2009 10:01:47
Messaggio:

LinExp

lisp per esplodere linee tratteggiate


Autore Risposta: arri
Inserita il: 27 luglio 2009 15:19:12
Messaggio:

Lisp application Centroid calculates and creates (as a POINT object) the center of gravity (centroid) of any closed polyline (pline), 2D region or 3D solid. Load it with APPLOAD and run the CENTROID command


Autore Risposta: arri
Inserita il: 29 luglio 2009 09:30:01
Messaggio:

AutoCAD .NET Developer's Guide


Autore Risposta: arri
Inserita il: 10 agosto 2009 14:25:00
Messaggio:

LinOut - exports linetype definitions (incl. shape+text info) from an AutoCAD DWG drawing back to .LIN file

http://www.cadforum.cz/cadforum_en/qaID.asp?tip=3958


Autore Risposta: arri
Inserita il: 02 settembre 2009 08:46:48
Messaggio:

Offset in Xref


Autore Risposta: arri
Inserita il: 03 settembre 2009 10:03:44
Messaggio:

256 è il numero massimo dei Layout per ogni dwg

Per superare questo limite si può utilizzare questo dwg contenente 302 Layout


Autore Risposta: arri
Inserita il: 08 settembre 2009 12:44:10
Messaggio:

Recuperare la definizione di hatch da un dwg

http://www.turvill.com/t2/free_stuff/getpat.lsp

;|

GETPAT.LSP (c) 2001 Tee Square Graphics
Version 1.01b - 1/22/2002

This routine may be used to extract hatch pattern data
from existing drawings when the .pat file containing
the original information is not available.

After loading the file in the usual manner, type the
command GETPAT at the AutoCAD Command: prompt, select
any (non-SOLID) hatch object, and the pattern information
will be written to a .pat file having the same name as
the pattern (e.g., pattern information for the hatch
pattern WOODS will be written to WOODS.PAT.

Ver. 1.01b includes two small fixex to eliminate "Bad
Argument" LISP errors when run with certain installations
of AutoCAD 2000+.

|;

(defun C:GETPAT (/ cmde hat elst rotn hnam temp xofs yofs what
temp outf flin angl tmp1 tmp2 xvec yvec)
(setq cmde (getvar "cmdecho"))
(setvar "cmdecho" 0)
(while (not (setq hat (entsel "\nSelect hatch: "))))
(setq elst (entget (car hat)))
(if (= (cdr (assoc 0 elst)) "HATCH")
(progn
(setq rotn (* 180 (/ (cdr (assoc 52 elst)) pi))
hnam (cdr (assoc 2 elst))
hscl (cdr (assoc 41 elst))
)

;; The following nine lines may optionally be omitted.
;; Their purpose is to create a temporary "clone" of the
;; selected hatch with a 0 deg. rotation angle, in case
;; the hatch object specified a rotation angle. If these
;; lines are omitted, the current rotation of the selected
;; hatch will become the "0" deg. rotation for the extracted
;; pattern definition.
(if (not (zerop rotn))
(progn
(setq temp elst)
(entmake temp)
(command "_.rotate" (entlast) "" (cdr (assoc 10 temp))(- rotn))
(setq elst (entget (entlast)))
(entdel (entlast))
)
)
;; End of optional code.

(setq xofs (cdr (assoc 43 elst))
yofs (cdr (assoc 44 elst))
elst (member (assoc 53 elst) elst)
)
(setq outf (strcat hnam ".pat"))
(if (findfile outf)
(progn
(initget "Overwrite Append")
(setq what (getkword (strcat "\n" outf " already exists; Overwrite/Append? ")))
)
)
(setq outf (open outf (if (= what "Append") "a" "w"))
flin (strcat "*" hnam)
)
(foreach x elst
(cond
((= (car x) 53)
(write-line flin outf)
(setq angl (cdr x)
flin (trim (angtos angl 0 7))
)
)
((= (car x) 43)
(setq flin (strcat flin ", " (trim (rtos (/ (- (cdr x) xofs) hscl) 2 7))))
)
((= (car x) 44)
(setq flin (strcat flin "," (trim (rtos (/ (- (cdr x) yofs) hscl) 2 7))))
)
((= (car x) 45)
(setq tmp1 (cdr x))
)
((= (car x) 46)
(setq tmp2 (cdr x)
xvec (/ (+ (* tmp1 (cos angl))(* tmp2 (sin angl))) hscl)
yvec (/ (- (* tmp2 (cos angl))(* tmp1 (sin angl))) hscl)
flin (strcat flin ", " (trim (rtos xvec 2 7)) "," (trim (rtos yvec 2 7)))
)
)
((= (car x) 49)
(setq flin (strcat flin ", " (trim (rtos (/ (cdr x) hscl) 2 7))))
)
((= (car x) 98)
(write-line flin outf)
)
(T nil)
)
)
(write-line "" outf)
(close outf)
(alert (strcat hnam " pattern definition written to " hnam ".PAT"))
)
(alert "Selected object not a HATCH.")
)
(setvar "cmdecho" cmde)
(princ)
)
(defun trim (x / n)
(setq n (strlen x))
(while (= (substr x n 1) "0")
(setq n (1- n)
x (substr x 1 n)
)
)
(if (= (substr x n 1) ".")
(setq x (substr x 1 (1- n)))
)
x
)
(alert
(strcat "GETPAT.LSP (c) 2003 Tee Square Graphics\n"
" Type GETPAT to start"
)
)
(princ)







Autore Risposta: arri
Inserita il: 09 settembre 2009 08:33:17
Messaggio:

Just PURGE - no question asked.

If you want to perform a PURGE in your drawing, without any interactive questions, you can use the commandline version of this command: -PURGE, or a simple LISP macro:
Either add the following menu macro to your menu:

_-PURGE;_All;*;_N;
Or add the the following LISP macro:

(vl-load-com)(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))

Or use LISP to define your own new command PURGEA:

(defun C:PURGEA ()
(vl-load-com)
(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))
(prin1)
)


Autore Risposta: arri
Inserita il: 09 settembre 2009 14:06:18
Messaggio:

PSrename

- adds prefix or suffix to the name of any symbol - Block, Dimstyle, Layer, Linetype, Style, Ucs, View


Autore Risposta: arri
Inserita il: 15 settembre 2009 08:01:14
Messaggio:

History - display the order the drawing entities were created


Autore Risposta: arri
Inserita il: 19 settembre 2009 13:55:33
Messaggio:

Top 10 AutoCAD Blogs


Autore Risposta: arri
Inserita il: 23 settembre 2009 13:10:18
Messaggio:

Automatic drawing label - filename, date, author...

Using the text fields introduced back in AutoCAD 2005 you can easily create an automatic block to label your drawing with the information about its file name and path, last save date and author, and last plot date.

See an example - in your AutoCAD drawing enter the INSERT command, click the Browse button, press Alt+3 (Search Web) and in the lower address field enter the URL address http://www.xanadu.cz/dl/xstamp2005.dwg. Alternatively, use the commandline version of the command: _-INSERT http://www.xanadu.cz/dl/xstamp2005.dwg.
This will insert a block containing predefined automatic text fields - these fields will be updated on any save and plot.

You can also try the Net_ID dynamic block.


Autore Risposta: arri
Inserita il: 24 settembre 2009 07:58:39
Messaggio:

Aggiungere o eliminare vertici polilinea

AddV/DelV - interactively adds or deletes polyline vertex by picking (VLX Lisp for AutoCAD)


Autore Risposta: GP
Inserita il: 26 settembre 2009 18:50:49
Messaggio:

Citazione:
Messaggio inserito da arri

Aggiungere o eliminare vertici polilinea

AddV/DelV - interactively adds or deletes polyline vertex by picking (VLX Lisp for AutoCAD)


Melius abundare quam deficere.


Autore Risposta: arri
Inserita il: 27 settembre 2009 01:08:57
Messaggio:

StripMtext

remove formatting codes applied to characters and words inside Mtext objects


Autore Risposta: arri
Inserita il: 30 settembre 2009 12:53:29
Messaggio:

domande e risposte - suggerimenti vari


Autore Risposta: antoniovinci
Inserita il: 30 settembre 2009 15:20:24
Messaggio:

Citazione:
Messaggio inserito da arri

domande e risposte - suggerimenti vari


Un po' datati a dire il vero, ma un paio meritano...


Autore Risposta: arri
Inserita il: 30 settembre 2009 16:05:11
Messaggio:

Citazione:
Messaggio inserito da antoniovinci

Citazione:
Messaggio inserito da arri

domande e risposte - suggerimenti vari


Un po' datati a dire il vero, ma un paio meritano...





ad esempio quella dell'inserimento field tramite lisp


Autore Risposta: arri
Inserita il: 08 ottobre 2009 13:33:40
Messaggio:

Citazione:
Messaggio inserito da antoniovinci

Citazione:
Messaggio inserito da arri

domande e risposte - suggerimenti vari


Un po' datati a dire il vero,





sono sempre attuali per chi non conosce ancora FILEDIA


Autore Risposta: arri
Inserita il: 09 ottobre 2009 10:19:04
Messaggio:

scalare globalmente i testi mantenedo la posizione

You can use the SCALETEXT command and its options Existing (existing reference point) and Scale (relative scaling factor to make texts bigger or smaller).

Please note that the text created with the alignment Fit or Align will be also scaled, so their second alignment point will change.


Autore Risposta: arri
Inserita il: 21 ottobre 2009 12:40:15
Messaggio:

Modified drawing name as an automatic field.

If you want to insert a text in your drawing (e.g. to the title block) which contains a manipulated name of the current drawing file - e.g. the filename left-trimmed or right-trimmed at a number of characters, you can use a combination of Diesel expressions in an automatic text field (e.g. with the FIELD command).

Some examples:

Drawing file name, no path, from the 3rd character (paste as a Diesel expression to a Diesel-type field):

$(substr,$(getvar,DWGNAME),3,99)
Drawing file name, no path, no extension (4 characters), right-trimmed at another 3 characters (paste as a Diesel expression to a Diesel-type field):

$(substr,$(getvar,DWGNAME),1,$(-,$(strlen,$(getvar,DWGNAME)),7))
Beginning of the drawing path (12 characters), ellipsis, first 8 characters of the drawing file name (paste as a Diesel expression to a Diesel-type field):

$(substr,$(getvar,DWGPREFIX),1,12)...$(substr,$(getvar,DWGNAME),1,8)


Autore Risposta: arri
Inserita il: 21 ottobre 2009 13:09:25
Messaggio:

Total length of lines in a drawing (by layer).

With the free LISP utility Xanadu AddLen you can summarize the total length of all selected lines, arcs, polylines and other curves in your current drawing.

The lengths are also grouped by layers. You can optionally export the results to a SDF text file.

Sample output:
Layer-Length:
0 118.1143
POWER 438.91
PHONE 311.08
LAN 3010.72

AddLen Run it with the AddLen command.


Autore Risposta: arri
Inserita il: 29 ottobre 2009 08:50:29
Messaggio:

Comparing Drawing Differences Using Autodesk Design Review 2009


Autore Risposta: arri
Inserita il: 30 ottobre 2009 11:16:10
Messaggio:

Section modulus of 2D profiles in AutoCAD.

The MASSPROP command does not display the value of the section modulus of the selected object.

To calculate the section modulus Wx/Wy (SMx/SMy) of simpler 2D profiles in AutoCAD you can use the LISP utility Xanadu Modulus.

Its MODULUS command prompts for selection of a closed polyline or a region and calculates the section modulus to the centroid of the geometry. The resulting values Wx and Wy can be inserted into the drawing as a text.

The values are calculated from the moments of inertia and they are relevant only for simpler geometric shapes.

You can download the free Modulus application

You can preset the multiplication factor for displayed results:
(setq modKoef 0.001)

You can preset the suffix for displayed results:
(setq modSuf " cm^3")


Autore Risposta: arri
Inserita il: 30 ottobre 2009 11:33:02
Messaggio:

How to insert the surface symbol (roughness)?
The symbol for surface roughness and machining parameters is included in the mechanical version of AutoCAD - AutoCADu Mechanical. See the AMSURFSYM command (ribbon Annotations).

To draw the surface symbol in a plain AutoCAD or AutoCAD LT you can use the dynamic block Roughness from the CAD Blocks library. It conforms to the ISO 1302 standard. Insert the block in the standard way, select the type of symbol (visibility state) and double-click the symbol to enter the requested descriptions (attributes).


Autore Risposta: arri
Inserita il: 05 novembre 2009 08:04:46
Messaggio:

How to replace some of your blocks with a new block?

If you need to replace only some instances (references) of the given block with a new block, you cannot use the standard functions for block replacements (BLOCKREPLACE, INSERT, etc.) - these functions modify the definition of the block and so they influence all its references (insertions).

To replace only selected occurrences of the given block in your DWG drawing you can use the free LISP utility Xanadu RIblock - see www.xanadu.cz/download.

The RIblock command prompts for the name of the replaced block (or for picking its sample), then you select the references of this block (to be replaced) and then you specify (by picking or by name) the new block. This new block will replace the selected references of the original block. Possible attributes with the same name (tag) will be automatically transferred from the replaced blocks.


Autore Risposta: arri
Inserita il: 10 novembre 2009 09:31:33
Messaggio:

suggerimento

Named Views and Hyperlinks


Autore Risposta: arri
Inserita il: 23 novembre 2009 12:40:43
Messaggio:

How to run an older version of AutoCAD or Inventor in Windows 7.

Windows 7 is supported in AutoCAD 2010 (and 2011 and higher) and Inventor 2010 (and 2011 and higher). If you want to install and run older versions of AutoCAD, LT, or Inventor (2009, 2008, 2007, 2006, R11...) in Win7, you can use the virtualized "XP Mode" available for Windows 7 Professional, Ultimate and Enterprise (both 32-bit and 64-bit).

To use the Windows XP Mode you will need a CPU hardware support. You can detect the HW virtualization support in your processor with the utility havdetectiontool.exe . The Windows XP Mode add-on (application) can be downloaded from the Microsoft web. Then you can install the tool through Windows Virtual PC > Windows XP Mode.


Autore Risposta: antoniovinci
Inserita il: 23 novembre 2009 12:58:55
Messaggio:

Citazione:
Messaggio inserito da arri
Windows 7 is supported in AutoCAD 2010

Semmai il contrario:

AutoCAD 2010 is supported in Windows 7.

Eh, ma capisco l'alticcio autore: qui si dice che dai rubinetti della Repubblica Ceca esca birra...


Autore Risposta: arri
Inserita il: 01 dicembre 2009 12:36:04
Messaggio:

How to reconstruct a world file from a raster image?

If you want to create a georeference "world" file from a precisely positioned raster image (picture, map) in your AutoCAD drawing, you can use the auxiliar command WORLDOUT from the "Xanadu GeoRefImg" LISP utility.

After you select a raster image (bitmap), this command automatically exports the relevant world file containing the georeference (TFW, PGW, GFW, JGW, EWW...) in the image file folder.


GeoRefImg


Autore Risposta: antoniovinci
Inserita il: 01 dicembre 2009 13:26:28
Messaggio:

...che e' poi cio' che fa l'icona W di questo plug-in di ABC.

Comunque, buono a sapersi, grazie dell'info!


Autore Risposta: arri
Inserita il: 15 gennaio 2010 14:48:14
Messaggio:

iDwgTab

tabulatore per la gestione di file multipli

qui per la versione sino alla 2010 compresa

download


Autore Risposta: TheGrey61
Inserita il: 15 gennaio 2010 16:11:38
Messaggio:

Andrea sarà felice!!! Spero! Bravo arri, ancora una volta prima di tutti!!!


Autore Risposta: aforza
Inserita il: 15 gennaio 2010 16:44:39
Messaggio:

ciao,

se l'Andrea sono io ti dirò che questa cosa è carina, ma io a suo tempo usavo quella di Tony Tanzillo
che poi con l'arrivo delle schede ho abbandonato.

ciao


Autore Risposta: arri
Inserita il: 19 gennaio 2010 08:19:21
Messaggio:

PreSave reactor - perform selected actions before any Save operation (zoom, layer, purge...)

Download Presave


Autore Risposta: arri
Inserita il: 21 gennaio 2010 08:40:58
Messaggio:

Sizer - set window size for AutoCAD drawing document

For renderings, for screen-captures of your drawings, or other similar actions you may need to fix the size of the document window (DWG drawing) in the main AutoCAD application window. To set the window size to a specified number of pixels (width + height) you can use the following simple LISP code (change the size parameters as needed):
;Sets drawing window size
;(C)2010-XANADU.cz
(vl-load-com)
(setq sizer_actdoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-put-width sizer_actdoc 1000);W=1000px
(vla-put-height sizer_actdoc 800);H=800px

Copy the code via copy/paste, or save it to SIZER.LSP and load it with APPLOAD, or assign it to a new AutoCAD menu icon. The function changes the window size of the current document (even a maximized window).

You can also use the interactive version of SIZER.LSP

download


Autore Risposta: arri
Inserita il: 28 gennaio 2010 13:33:43
Messaggio:

CopyText

Copy/Swap Text/MText/Multileader/Attribute Values

User has option to copy contents of selected text object or typed in
content, to any number of selected text objects (Text, Mtext, Multileader,
Attribute Definition). If only one target object is selected,
user is prompted with option to swap contents of source & target.
Will select objects in xrefs & blocks



Scarica allegato:

CopyText.zip
5,04 KB


Autore Risposta: arri
Inserita il: 05 febbraio 2010 14:24:41
Messaggio:

DDBrep v2.0 is a plug-in for AutoCAD that replaces old blocks with new and preserve the old ones

Replace old blocks with new and preserve old too!. Very handy and powerful utility to handle enormous replacements in seconds. ACAD2000+

DoorWin 3.0 Free Personal Edition:The ultimate door and windows insertion utility for AutoCAD users


Autore Risposta: arri
Inserita il: 12 febbraio 2010 08:50:41
Messaggio:

Why drawing1.dwg will not close

Make changes to a drawing without changing DBMOD


Autore Risposta: arri
Inserita il: 12 febbraio 2010 10:50:20
Messaggio:

Batch Plot Script Creator per AutoCAD 2004 - 2008


Autore Risposta: arri
Inserita il: 13 febbraio 2010 14:08:10
Messaggio:

CommunityCommands


Autore Risposta: arri
Inserita il: 18 febbraio 2010 09:35:49
Messaggio:

TabSort

utility per la gestione delle schede layout



Scarica allegato:

TabSort.zip
18,58 KB


Autore Risposta: arri
Inserita il: 19 febbraio 2010 12:58:17
Messaggio:

AttAdd and AttApp

- adds/subtracts a number or appends a suffix to the specified attribute in selected blocks


Autore Risposta: arri
Inserita il: 03 marzo 2010 11:05:35
Messaggio:

;3DMesh/PFace/Surface -> 3D Points
;2009 by XANADU - www.xanadu.cz www.cadforum.cz
;; ----------------------------------------------
(defun C:Mesh2Pt ( / Ent Obj ptList oDoc mSpace)

(defun GetCoordinates (obj / objname coord lst)
(and
(setq objname (vlax-get obj 'ObjectName))
(vl-position objname '("AcDbPolyFaceMesh" "AcDbSubDMesh" "AcDbPolygonMesh"
))
(setq coord (vlax-get obj 'Coordinates))
(repeat (/ (length coord) 3)
(setq lst (cons (list (car coord) (cadr coord) (caddr coord)) lst))
(setq coord (cdddr coord))
)
) ;and
(reverse lst)
) ;end

(vl-load-com)
(setq oDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq mSpace (vla-get-ModelSpace oDoc))
(setq Ent (entsel "\nSelect a 3D mesh, polymesh or surface: "))
(setq Obj (vlax-ename->vla-object (car Ent)))
(setq ptList (GetCoordinates Obj))
(mapcar '(lambda (x)(vla-AddPoint mSpace (vlax-3D-Point (trans x 1 0)))) ptList)
(princ (strcat "\nCreated "(itoa (length ptList)) " 3D points."))
(prin1)
)


Autore Risposta: arri
Inserita il: 08 marzo 2010 10:08:54
Messaggio:

Searching text in DWG drawings (without AutoCAD)


Autore Risposta: arri
Inserita il: 13 marzo 2010 11:19:58
Messaggio:

RGB2ACI

Converts all layer colors in the current drawing from RGB to the closest ACI (1-256) color


Autore Risposta: liber
Inserita il: 13 marzo 2010 15:07:12
Messaggio:

http://www.bga-ftp.com/bgapartners/ACAD_Shape_Files/
una raccola di FONT relativi ai shapefile
per chi come me non è riuscito a debellare nè con smarpurger, nè con delshapeshx.lsp per un problema di una "complessa linea forma" derivata da Microstation e cioè un dgnlstyle-xxxx_style inserito nella cartella FONT dopo aver rinominato dgnlstyle-lstyle.shx finalmente risolto il conituo affacciarsi e fastidioso della finestrella che segnalava la mancanza di questo strano shape


Autore Risposta: arri
Inserita il: 13 marzo 2010 15:19:47
Messaggio:

Citazione:
Messaggio inserito da liber

http://www.bga-ftp.com/bgapartners/ACAD_Shape_Files/
una raccola di FONT relativi ai shapefile
per chi come me non è riuscito a debellare nè con smarpurger, nè con delshapeshx.lsp per un problema di una "complessa linea forma" derivata da Microstation e cioè un dgnlstyle-xxxx_style inserito nella cartella FONT dopo aver rinominato dgnlstyle-lstyle.shx finalmente risolto il conituo affacciarsi e fastidioso della finestrella che segnalava la mancanza di questo strano shape



grazie della segnalazione,

comunque per eliminarle non devi usare delshapeshx.lsp,

ma questo:

http://www.cadlandia.com/forum/topic.asp?TOPIC_ID=10155


Autore Risposta: arri
Inserita il: 15 marzo 2010 08:47:32
Messaggio:

EDUSCAN

Searches a folder (and optional nested subfolders) for drawing files containing the Educational designation


Autore Risposta: MEM
Inserita il: 15 marzo 2010 09:17:16
Messaggio:

Questa discussione e' diventata una selva intricata.
Bisognerebbe fare una tabella riassuntiva o un indice.


Autore Risposta: arri
Inserita il: 29 aprile 2010 08:11:56
Messaggio:

Using FSMODE to control selection of touching objects.

If you need to quickly select touching objects, you can use one of the useful Express Tools - FS (FastSel).

Depending on the setting of its work mode (FSMODE, "chain mode"), when you select a single object, all objects directly touching the selected object will be also selected (FSMODE=OFF), or even also the objects touching the touched objects will be selected (FSMODE=ON, chain selection).


Autore Risposta: arri
Inserita il: 03 maggio 2010 08:05:06
Messaggio:

scan all DWG drawings for missing SHX files
If you want to find (without opening the individual files) which of your DWG drawings contain references to SHX files (shapes, fonts), you can use the Xanadu DBXscanSHX batch utility.

The free LISP utility DBXscanSHX scans all DWG files in a given folder (and its subfolders) and generates a report with a list of all DWG files containing references to SHX files, the number of SHX files and their names (paths). The DWG files are not opened individually.

Just appload this utility and start the "DBXscanSHX" command. Browse to the folder you want to process and click "Save". You can also specify a wildcard mask to scan only for a specific SHX file. Missing SHX files are highlighted.

download


Autore Risposta: arri
Inserita il: 04 giugno 2010 07:52:52
Messaggio:

DWF/PDF Batch Publish per AutoCAD 2007 o superiore


Autore Risposta: arri
Inserita il: 16 giugno 2010 09:24:20
Messaggio:

Facet Curve for AutoCAD (per 2007 o superiore)

This plugin can be used to facet 2D and 3D curves in AutoCAD: to approximate their curvature with a number of straight line segments. The faceted output is in the form of a number of lines or a single polyline, as selected by the user.


Autore Risposta: arri
Inserita il: 20 luglio 2010 09:55:39
Messaggio:

Adding AutoCAD Related Blog or Twitter Feeds in AutoCAD InfoCenter


Autore Risposta: arri
Inserita il: 03 settembre 2010 19:26:15
Messaggio:

Monitor AutoCAD/AutoCAD-based applications’ virtual memory usage


Autore Risposta: arri
Inserita il: 09 settembre 2010 08:56:34
Messaggio:

DEPENDS - displaying file dependencies in a DWG drawing


Autore Risposta: arri
Inserita il: 14 settembre 2010 07:37:56
Messaggio:

Shape Extraction for AutoCAD


Autore Risposta: arri
Inserita il: 30 settembre 2010 12:36:25
Messaggio:

SelDB - select dynamic blocks by dynamic properties


Autore Risposta: arri
Inserita il: 01 ottobre 2010 08:06:42
Messaggio:

Plotting a series of drawing frames composed in a DWG drawing.

PlotDWGar


Autore Risposta: antoniovinci
Inserita il: 01 ottobre 2010 08:51:17
Messaggio:

Messaggio inserito da arri
Plotting a series of drawing frames composed in a DWG drawing


Bella questa, soprattutto per farsi una raccolta "visiva" di blocchi DWG.

Lo stesso effetto "mosaico" si puo' ottenere (senza scomodare Autocad) con la stampa delle miniature DWG sia in Irfanview che in Xnview, ad esempio cosi'.


Autore Risposta: arri
Inserita il: 01 ottobre 2010 17:26:07
Messaggio:

Messaggio inserito da antoniovinci

Bella questa, soprattutto per farsi una raccolta "visiva" di blocchi DWG.


provato,
non funziona ... escono i messaggi di plot ma non stampa nulla


Autore Risposta: antoniovinci
Inserita il: 01 ottobre 2010 18:37:07
Messaggio:

Sulla base del file d'istruzioni plotDWGarr.txt, par di capire che faccia un'altra cosa rispetto al mio PDF: se fa quello che penso, e' una roba da brivido, sicuramente apprezzatissima dagli utilizzatori dello spazio carta.

Praticamente lui processa un singolo file DWG contenente una matrice NxM di sotto-disegni, da noi preparata.

Di ogni "casella" della matrice, la routine esegue quanto segue:

1] o ne crea automaticamente un layout
2] o la manda in stampa

Un esempio: se la nostra matrice contiene 3x4 sottodisegni, si otterranno 12 layouts distinti, oppure 12 stampe.

Prego qualcuno "acad-dotato" di confermare o smentire, grazie.


Autore Risposta: arri
Inserita il: 01 ottobre 2010 18:53:49
Messaggio:

certo che è così, è da questa mattina che stò provando ma non funziona, ne stampa ne crea i layout


Autore Risposta: antoniovinci
Inserita il: 01 ottobre 2010 22:24:06
Messaggio:

Se esistesse un cad gratuito che supportasse i .VLX potrei provarci a casa, invece mi tocca aspettare (insonne) fino a lunedi' mattina...


Autore Risposta: antoniovinci
Inserita il: 07 ottobre 2010 09:38:47
Messaggio:

Messaggio inserito da arri
è da questa mattina che stò provando ma non funziona


Tranquillo, funziona alla grande: guarda qua.

Prima bisogna associare al disegno una stampante, nel mio caso "Adobe PDF".

Dopodiche' lui crea tanti N files PDF quante sono le cornici incluse, nel mio caso 6.

Se invece gli si da' una stampante fisica, stampa 6 fogli distinti oppure crea 6 layout.

Per completezza, ho poi assemblato i 6 PDF in un unico multipagina PlotDWGarr.pdf mediante questa utility.




Autore Risposta: arri
Inserita il: 07 ottobre 2010 10:29:59
Messaggio:

Messaggio inserito da antoniovinci
Prima bisogna associare al disegno una stampante, nel mio caso "Adobe PDF".


puoi indicare in sequenza i 4 punti che hai usato,
quelli indicati su CADforum non funzionano


Autore Risposta: antoniovinci
Inserita il: 07 ottobre 2010 10:46:34
Messaggio:

Messaggio inserito da arri
puoi indicare in sequenza i 4 punti che hai usato,
quelli indicati su CADforum non funzionano


Solo ora mi sono accorto della schermata di Cadforum, ed in effetti e' la mia stessa, identica procedura (e non potrebbe essere altrimenti).

Sicuramente sbagli o nella sequenza di snap sulle cornici, o non imposti la stampante a priori: se puoi, zippa e allega le schermate che hai, cosi' ne veniamo fuori.

Questo PlotDWGarr e' uno strumento straordinario, peccato averlo scoperto cosi' tardi...


Autore Risposta: arri
Inserita il: 07 ottobre 2010 10:51:44
Messaggio:

Messaggio inserito da antoniovinci
peccato averlo scoperto cosi' tardi...


prima non si poteva scoprire, l'hanno pubblicato il 30.09.2010

P.S.

tutto risolto, hanno aggiornato il programma alla versione 1.2, io usavo la versione 1.1 che non funzionava

per AV allego la versione bacata

Scarica allegato:

PlotDWGarr_bacato.zip
10,65 KB

P.S.
questo lisp è veramente una bacchetta magica !


Autore Risposta: antoniovinci
Inserita il: 07 ottobre 2010 11:38:29
Messaggio:

Confermo, la 1.1 in effetti crea PDF vuoti, mentre la 1.2 e' ideale.


Autore Risposta: antoniovinci
Inserita il: 02 novembre 2010 09:49:19
Messaggio:

Messaggio inserito da GimmiGIS

Applicazione gratuita riservata agli utenti che hanno un contratto di manutenzione e aggiornamento (Autodesk Subscription).
Si chiama Autodesk Impression ed è... impressionante!
Permette di abbellire le tavole in modo pittorico prima di stamparle
http://map3d.blogspot.com/2008/05/software-autodesk-in-regalo.html



Appena provato, e' davvero spettacolare.

Al sottoscritto non serve, ma per architetti e geometri.. direi che sia un "must have"...


Autore Risposta: antoniovinci
Inserita il: 05 novembre 2010 13:08:14
Messaggio:

E' uscita ieri l'ultima versione di Cadtools (come sempre gratuita) della sw house svedese Glamsen.

Da notare la promettente funzione "Vehicle Turning Simulation", assoluta novita' che potra' far piacere ai progettisti di strade...


Autore Risposta: arri
Inserita il: 10 novembre 2010 11:37:20
Messaggio:

ConvText - converts TrueType text to a solid or region (ARX2000)


Autore Risposta: arri
Inserita il: 11 novembre 2010 11:38:48
Messaggio:

Alternativa a fumetto di revisione (revcloud)

Scarica allegato:

MultiCloud.zip
12,2 KB


Autore Risposta: arri
Inserita il: 16 novembre 2010 14:30:38
Messaggio:

DwfPlotter - Batch plot DWF files


Autore Risposta: arri
Inserita il: 18 novembre 2010 09:36:59
Messaggio:

AutoScript for AutoCAD


Autore Risposta: arri
Inserita il: 26 novembre 2010 10:50:48
Messaggio:

PatOut
estrarre definizione di hatch da un dwg


Autore Risposta: arri
Inserita il: 26 gennaio 2011 12:35:08
Messaggio:

da AUGI, raccolta di domande - risposte


Autore Risposta: arri
Inserita il: 31 gennaio 2011 12:45:38
Messaggio:

DrawOrder by Layer for AutoCAD
This plugin can be used to reorder AutoCAD objects by their layer. Select the layer you want to reposition in the list, then press the move up or move down button to change its relative order.


Autore Risposta: arri
Inserita il: 08 febbraio 2011 08:09:03
Messaggio:

Frequency analysis of drawing texts


Autore Risposta: arri
Inserita il: 11 marzo 2011 08:23:24
Messaggio:

300+ Texture gratuite


Autore Risposta: MEM
Inserita il: 11 marzo 2011 12:14:47
Messaggio:

Peccato le textures non sono piu' accessibili:
The file you are trying to access is no longer available publicly


Autore Risposta: arri
Inserita il: 05 aprile 2011 12:49:38
Messaggio:

SRXMISSING


Autore Risposta: arri
Inserita il: 15 aprile 2011 12:16:56
Messaggio:

download diretto Design Review 2012


Autore Risposta: arri
Inserita il: 22 aprile 2011 08:58:59
Messaggio:

MassWorks
è una semplice utility che, su un pc sul quale è stato installato Autocad, permette di eseguire uno o più comandi su molti file.Un esempio classico è quello di dover stampare una serie di disegni, oppure eseguire un "purge" su tutti i file.Insomma MassWorks risulta un buono strumento ogni volta che si ha a che fare con una moltitudine di disegni sui quali occorre fare le stesse operazioni


Autore Risposta: arri
Inserita il: 28 aprile 2011 09:23:56
Messaggio:

revcloud multiplo


Autore Risposta: arri
Inserita il: 15 giugno 2011 10:44:03
Messaggio:

TabReStyle
resets cell style in selected table objects


Autore Risposta: arri
Inserita il: 11 agosto 2011 09:02:16
Messaggio:

Autodesk Design Review and DWG Trueview 2012

download diretto


Autore Risposta: arri
Inserita il: 01 settembre 2011 12:41:05
Messaggio:

Rounding decimal numbers in drawing texts

RoundT


Autore Risposta: arri
Inserita il: 14 settembre 2011 07:39:52
Messaggio:

Using the DWG TrueView viewer as a drawing editor.

The free viewer of AutoCAD drawings - Autodesk DWG TrueView (see www.cadstudio.cz/download) - can be tricked to be used as an editor of DWG files. This trick is based on the hidden commands method described in the tip 6342.

In the command line of DWG TrueView 2010 or 2011 (this trick does not work in the older and newer versions), insert - using copy/paste - the commands GRIPS and -WBLOCK. With these two non-blocked commands you can edit your drawing and save it.

First use GRIPS to enable the grip editing. Now you can use grips to edit, move, rotate your drawing objects. The standard save commands are disabled but the command -WBLOCK still works. By pasting this command you invoke the block export function, where you can choose the DWG or DXF file format, and specify the export of the whole drawing.

It is an undocumented and unsupported function of the DWG viewer.


Autore Risposta: arri
Inserita il: 20 ottobre 2011 09:11:39
Messaggio:

AutoLabelAttributesV1-0.lsp

Program Description

This program will automatically label / number a specific attribute in a set of blocks, renumbering if blocks are added, copied or erased.

The program engine utilises multiple reactors which are triggered upon modification of specific blocks within the drawing, renumbering specific attributes if such blocks are added, copied or erased from the drawing.

Upon loading the program, blocks attributes will be automatically renumbered in the order they were added to the drawing database. This automatic renumbering behaviour will continue to operate as long as the program is loaded into the active drawing; hence for continuous operation it is recommended that the program is automatically loaded on startup - refer to my Loading Programs Automatically tutorial if unsure how to accomplish this.

The program has been engineered to run without user-interaction and hence has no command syntax. For instructions on how to set up the program to work with your attributed blocks, read the Instructions for Running section belo


Autore Risposta: arri
Inserita il: 09 novembre 2011 07:49:41
Messaggio:

ATT2TXT

converte definizione attributi in text


Autore Risposta: arri
Inserita il: 15 novembre 2011 13:21:12
Messaggio:

TX_Txt2AttDef

converte text in definizione attributi


Autore Risposta: arri
Inserita il: 29 novembre 2011 09:11:17
Messaggio:

cancellare oggetti proxy

delproxy.vlx


Autore Risposta: arri
Inserita il: 13 dicembre 2011 10:20:00
Messaggio:

Automatic vertex labels with autonumbering and coordinates


Autore Risposta: arri
Inserita il: 20 dicembre 2011 07:56:04
Messaggio:

Comparing the drawing-specific system variables of different DWG files


Autore Risposta: arri
Inserita il: 21 dicembre 2011 08:23:01
Messaggio:

Eleven Killer Tool palette Macros for working with AutoCAD Viewports


Autore Risposta: arri
Inserita il: 21 dicembre 2011 09:00:11
Messaggio:

Open a Sheet Set when launching AutoCAD


Autore Risposta: arri
Inserita il: 21 dicembre 2011 12:46:01
Messaggio:

Dynamic Horizontal e Vertical Lines


Autore Risposta: arri
Inserita il: 05 gennaio 2012 09:08:43
Messaggio:

Lisp routine to stretch Mtext so all is on one line

(defun c:OneLineMText ( / i s )
(if (setq s (ssget "_X" '((0 . "MTEXT"))))
(repeat (setq i (sslength s))
(vla-put-width (vlax-ename->vla-object (ssname s (setq i (1- i)))) 0.0)
)
)
(princ)
)
(vl-load-com) (princ)


Autore Risposta: arri
Inserita il: 13 gennaio 2012 11:09:45
Messaggio:

Recolor entities to the color of their layer.

As a inverse function to the command SETBYLAYER you can use the LISP utility LColor

This tool recolors the selected objects (drawing entities) so that all objects that have the ByLayer color, take over the static color of the layer they are placed in.

This function supports only the ACI color palette (256 colors).


Autore Risposta: arri
Inserita il: 25 gennaio 2012 08:12:41
Messaggio:

Copy/Paste functionality with added support for UCS.

If you use clipboard to copy AutoCAD drawing objects, you may found a problem when copying/pasting objects in an offset or even rotated ucesr coordinate system (UCS).

With the add-on utility CopyBase you can easily clipboard-copy objects even in cases when you use customized UCSs.

Download the CopyBase tool, load the LSP file into AutoCAD (e.g. with APPLOAD). The application defines two new commands - CCC and VVV - thet work similarly to COPYBASE and PASTEORIG, only they respect the UCS. You can assign these commands e.g. to Ctrl+C and Ctrl+V.


Autore Risposta: Terminator
Inserita il: 26 gennaio 2012 10:15:08
Messaggio:

Messaggio inserito da arri

Recolor entities to the color of their layer.

As a inverse function to the command SETBYLAYER you can use the LISP utility LColor

This tool recolors the selected objects (drawing entities) so that all objects that have the ByLayer color, take over the static color of the layer they are placed in.

This function supports only the ACI color palette (256 colors).


Spulciando questo lisp mi sono detto: proviamo a fare in modo che il programma supporti pure il truecolor. Questo è il risultato:

(defun C:CHCOL (/ gru index layers tlay ent accolor numero)
 (princ "\nSelect objects to recolor by layer:")
 (setq gru (ssget '((62 . 256)))
       index -1
       numero 0
       layers (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
 )
 (if gru
  (repeat (sslength gru)
   (setq ent  (vlax-ename->vla-object (ssname gru (setq index (1+ index))))
	 tlay (vla-item layers (vla-get-layer ent))
   )
   (cond
    ((= (vla-get-ColorMethod (vla-get-TrueColor tlay)) 194)
     (setq accolor (vla-get-TrueColor ent))
     (vla-setRGB
      accolor
      (vla-get-Red (vla-get-TrueColor tlay))
      (vla-get-Green (vla-get-TrueColor tlay))
      (vla-get-Blue (vla-get-TrueColor tlay))
     )
     (vla-put-Truecolor ent accolor)
    )
    ((= (vla-get-ColorMethod (vla-get-TrueColor tlay)) 195)
     (vla-put-Color ent (vla-get-Color tlay))
    )
   )
   (setq numero (1+ numero))
  )
 )
(princ (strcat "\n" (itoa numero) " objects recolored"))
(princ)
)
(princ "\nCADstudio/Terminator CHCOL: use the CHCOL command to start")
(princ)


Autore Risposta: arri
Inserita il: 16 febbraio 2012 14:21:49
Messaggio:

font free per codici a barre (barcode)


Autore Risposta: arri
Inserita il: 21 febbraio 2012 08:12:56
Messaggio:

generate 3D surface with a mathematic expression

CADstudio 3DPlot


Autore Risposta: arri
Inserita il: 09 marzo 2012 09:09:39
Messaggio:

ContextMenuExtension Attacher


Autore Risposta: arri
Inserita il: 12 marzo 2012 10:26:53
Messaggio:

Changing sheet to display in PDF Underlay


Autore Risposta: arri
Inserita il: 13 marzo 2012 09:44:04
Messaggio:

Placing multi-sheet PDFs into AutoCAD, semi-automatically

;|

R.K. McSwain, Copyright © 2012 - cadpanacea.com

|;

(defun C:PMP ( / fname cnt i)  
  (setq fname (getfiled "\nSelect Multisheet PDF File" (getvar "dwgprefix") "PDF" 0))
  (setq cnt (getint "\nNumber of sheets in this PDF to place ") i 1)
  (if fname
    (repeat cnt
      (vl-cmdf "-pdfattach" fname i (getpoint "\nPick LL point for next sheet ") 1.0 0.0)
      (setq i (1+ i))
    ) 
  )
  (princ)
)


Autore Risposta: arri
Inserita il: 30 aprile 2012 14:36:11
Messaggio:

SmartPurger 3.4 with support for scripting using AutoCAD 2013


Autore Risposta: arri
Inserita il: 09 maggio 2012 08:45:43
Messaggio:

Auto Coordinate


Autore Risposta: arri
Inserita il: 15 maggio 2012 07:49:33
Messaggio:

OsnapzBG freeware

When the AutoCAD variable OSNAPZ is changed many have found it useful to have a more visual change to indicate its state. In verticals like AutoCAD Architecture you have a small button that indicates the state of the “Z lock” but some might want to even have the background color change just like the Block Editor changes the background color.

With OsnapzBG loaded any change of OSNAPZ will also change the background and other specified colors depending on if OSNAPZ is set to 0 or 1.

The four colors that are saved and changed are:
*Model Space Crosshair Color
*Model Space Background Color
*Model Space Autotrack Vector Color
*Model Space Autosnap Marker Color


Autore Risposta: arri
Inserita il: 16 maggio 2012 09:53:32
Messaggio:

create red-cyan anaglyph from AutoCAD, Inventor or Revit


Autore Risposta: Jotar
Inserita il: 16 maggio 2012 15:03:04
Messaggio:



Geniale!
Relativamente semplice e... geniale!


Autore Risposta: arri
Inserita il: 04 luglio 2012 09:21:23
Messaggio:

utility per ACAD_PROXY_ENTITY

ExplodeProxy

comandi:

_EXPLODEALLPROXY

_REMOVEALLPROXY


Autore Risposta: arri
Inserita il: 12 luglio 2012 14:08:08
Messaggio:

How to detect DWG files containing VBA macros?

Some of your DWG drawings may contain unwanted embedded VBA macros. If you need to identify and clean such drawings, you can use the Xanadu DBXscanVBA and DBXremVBA applications.
The free LISP utility DBXscanVBA scans all DWG files in a given folder (and its subfolders) and generates a report with a list of all DWG files containing VBA macros. The files are not opened individually.

Another utility - DBXremVBA - can batch-remove VBA macros from all drawings in a given folder (without opening them).

Just appload these utilities and start the "DBXscanVBA" or "DBXremVBA" command. Browse to the folder you want to process and click "Save".


Autore Risposta: arri
Inserita il: 18 luglio 2012 10:22:21
Messaggio:

Vehicle Turning Simulations


Autore Risposta: arri
Inserita il: 16 agosto 2012 10:07:57
Messaggio:

polyinfo

Program Description

This program provides the user with detailed information about every segment of a selected LWPolyline in the form of either an AutoCAD Table (if available), Text file, or CSV file.

Upon calling the program with the command syntax polyinfo at the AutoCAD command-line, the user is prompted to select an LWPolyline to be queried from the active drawing. At this prompt the user also has the option to choose the form of output for the information harvested by the program; this output format will be remembered between drawing sessions to enable streamlined repeated program usage.

The program will output LWPolyline segment data to either an AutoCAD Table Object created in the active drawing (if such object is available in the version of AutoCAD in which the program is being executed), or a tab-delimited Text file or CSV file automatically created (streamlining the program to minimise prompts) in the working directory of the active drawing.

For every segment of the selected LWPolyline, the program will extract the following information:

Segment Number
Segment Start Vertex Coordinate
Segment End Vertex Coordinate
Segment Start Width
Segment End Width
Segment Length
Arc Centre (if arc segment)
Arc Radius (if arc segment)


Autore Risposta: arri
Inserita il: 29 agosto 2012 14:42:06
Messaggio:

CopyPageSetups - copy current page setups to all DWG files in the selected folder

Batch unification of page setups in DWG files.


Autore Risposta: arri
Inserita il: 31 agosto 2012 12:42:28
Messaggio:

Testo isometrico

;; Lee Mac
;; ONLY WORKS ON DTEXT
;; Found @ http://www.theswamp.org/index.php?topic=37429.0
(defun c:isotext ( / e i j k)
  (vl-load-com)
 ;(setq i (/ pi 6.) j -1.)
  (setq i 0 k (/ pi 6.) j -1.)
  ;; © Lee Mac 2011
  (if
    (and
      (setq e (car (entsel "\nSelect Text: ")))
      (eq (vla-get-Objectname (setq e (vlax-ename->vla-object e))) "AcDbText")
      (princ "\nPress [Tab] to Change Projection <Accept>")
    )      
    (while (= 9 (cadr (grread nil 14 0)))
     ;(vla-put-rotation     e i)
      (vla-put-rotation     e (* k (1- (* 2 (setq i (rem (+ i (max 0 (setq j (- j)))) 3))))))
     ;(vla-put-obliqueangle e (setq i (* i (setq j (- j)))))
      (vla-put-obliqueangle e (* j k))
    )
  )
  (princ)
)


Autore Risposta: arri
Inserita il: 31 agosto 2012 13:23:18
Messaggio:

Blocco isometrico


Autore Risposta: arri
Inserita il: 03 settembre 2012 09:41:51
Messaggio:

determinare la velocità del computer


Autore Risposta: arri
Inserita il: 03 settembre 2012 10:09:04
Messaggio:

Copy Text to Table Cells


Autore Risposta: arri
Inserita il: 03 settembre 2012 13:20:18
Messaggio:

oltre alle polilinee, permette di creare velocemente entità coprenti anche selezionando cerchi o ellissi

;;; OB2WO (gile) -Gilles Chanteau- 10/03/07
;;; Creates a "Wipeout" from an object (circle, ellipse, or polyline with arcs)
;;; Works whatever the current ucs and object OCS

(defun c:ob2wo (/ ent lst nor)
  (vl-load-com)
  (if (and (setq ent (car (entsel)))
	   (member (cdr (assoc 0 (entget ent)))
		   '("CIRCLE" "ELLIPSE" "LWPOLYLINE")
	   )
	   (setq lst (ent2ptlst ent))
	   (setq nor (cdr (assoc 210 (entget ent))))
      )
    (progn
      (vla-StartundoMark
	(vla-get-ActiveDocument (vlax-get-acad-object))
      )
      (makeWipeout lst nor)
      (initget "Yes No")
      (if
	(= (getkword "\nDelete source object? [Yes/No] <No>: ")
	   "Yes"
	)
	 (entdel ent)
      )
      (vla-EndundoMark
	(vla-get-ActiveDocument (vlax-get-acad-object))
      )
    )
  )
)


;;; ENT2PTLST
;;; Returns the vertices list of the polygon figuring the curve object
;;; Coordinates defined in OCS

(defun ent2ptlst (ent / obj dist n lst p_lst prec)
  (vl-load-com)
  (if (= (type ent) 'ENAME)
    (setq obj (vlax-ename->vla-object ent))
  )
  (cond
    ((member (cdr (assoc 0 (entget ent))) '("CIRCLE" "ELLIPSE"))
     (setq dist	(/ (vlax-curve-getDistAtParam
		     obj
		     (vlax-curve-getEndParam obj)
		   )
		   50
		)
	   n	0
     )
     (repeat 50
       (setq
	 lst
	  (cons
	    (trans
	      (vlax-curve-getPointAtDist obj (* dist (setq n (1+ n))))
	      0
	      (vlax-get obj 'Normal)
	    )
	    lst
	  )
       )
     )
    )
    (T
     (setq p_lst (vl-remove-if-not
		   '(lambda (x)
		      (or (= (car x) 10)
			  (= (car x) 42)
		      )
		    )
		   (entget ent)
		 )
     )
     (while p_lst
       (setq
	 lst
	  (cons
	    (append (cdr (assoc 10 p_lst))
		    (list (cdr (assoc 38 (entget ent))))
	    )
	    lst
	  )
       )
       (if (/= 0 (cdadr p_lst))
	 (progn
	   (setq prec (1+ (fix (* 25 (sqrt (abs (cdadr p_lst))))))
		 dist (/ (- (if	(cdaddr p_lst)
			      (vlax-curve-getDistAtPoint
				obj
				(trans (cdaddr p_lst) ent 0)
			      )
			      (vlax-curve-getDistAtParam
				obj
				(vlax-curve-getEndParam obj)
			      )
			    )
			    (vlax-curve-getDistAtPoint
			      obj
			      (trans (cdar p_lst) ent 0)
			    )
			 )
			 prec
		      )
		 n    0
	   )
	   (repeat (1- prec)
	     (setq
	       lst (cons
		     (trans
		       (vlax-curve-getPointAtDist
			 obj
			 (+ (vlax-curve-getDistAtPoint
			      obj
			      (trans (cdar p_lst) ent 0)
			    )
			    (* dist (setq n (1+ n)))
			 )
		       )
		       0
		       ent
		     )
		     lst
		   )
	     )
	   )
	 )
       )
       (setq p_lst (cddr p_lst))
     )
    )
  )
  lst
)


;;; MakeWipeout creates a "wipeout" from a points list and the normal vector of the object

(defun MakeWipeout (pt_lst nor / dxf10 max_dist cen dxf_14)

  (setq	dxf10 (list (apply 'min (mapcar 'car pt_lst))
		    (apply 'min (mapcar 'cadr pt_lst))
		    (caddar pt_lst)
	      )
  )
  (setq
    max_dist
     (float
       (apply 'max
	      (mapcar '- (apply 'mapcar (cons 'max pt_lst)) dxf10)
       )
     )
  )
  (setq cen (mapcar '+ dxf10 (list (/ max_dist 2) (/ max_dist 2) 0.0)))
  (setq
    dxf14 (mapcar
	    '(lambda (p)
	       (mapcar '/
		       (mapcar '- p cen)
		       (list max_dist (- max_dist) 1.0)
	       )
	     )
	    pt_lst
	  )
  )
  (setq dxf14 (reverse (cons (car dxf14) (reverse dxf14))))
  (entmake (append (list '(0 . "WIPEOUT")
			 '(100 . "AcDbEntity")
			 '(100 . "AcDbWipeout")
			 '(90 . 0)
			 (cons 10 (trans dxf10 nor 0))
			 (cons 11 (trans (list max_dist 0.0 0.0) nor 0))
			 (cons 12 (trans (list 0.0 max_dist 0.0) nor 0))
			 '(13 1.0 1.0 0.0)
			 '(70 . 7)
			 '(280 . 1)
			 '(71 . 2)
			 (cons 91 (length dxf14))
		   )
		   (mapcar '(lambda (p) (cons 14 p)) dxf14)
	   )
  )
)


Autore Risposta: GP
Inserita il: 28 ottobre 2012 13:01:17
Messaggio:

Una nuova versione di RB (Rinomina Blocchi), con la quale è possibile rinominare (o creare) anche i blocchi anonimi.


Non riesco ad allegare file, inserisco il codice.



;;; file: RB.lsp                                                    ;;;
;;; data: 22/10/2008                                                ;;;
;;; note: rinomina il blocco selezionato                            ;;;
;;;                                                                 ;;;
;;; aggiornamento: (Versione 2) - 01/04/2009                        ;;;
;;;              - default sulla casella OK                         ;;;
;;;              - controllo esistenza nome blocco                  ;;;
;;;                                                                 ;;;
;;; aggiornamento: (Versione 3) - 02/04/2009                        ;;;
;;;              - allargata casella editazione nome blocco         ;;;
;;;                                                                 ;;;
;;; aggiornamento: (Versione 4) - 28/10/2012                        ;;;
;;;              - rinomina blocchi dinamici e blocchi anonimi      ;;;
;;;              - creazione di blocchi anonimi                     ;;;
;;;              - inglobamento DCL nel lisp                        ;;;
;;;                                                                 ;;;
;;; autore: Gian Paolo Cattaneo                                     ;;;


(defun c:RB (/ :bb old new dcl_id)

    (prompt "\n ") (prompt "\n ") (prompt "\n ")
    (if
        (while (not :bb)
            (setvar 'errno 0)
            (setq :bb (car (entsel "\nSelezionare il Blocco da Rinominare")))
            (if (= 7 (getvar 'errno))
                (alert "Nessun oggetto selezionato")
            )
            (if (= 'ename (type :bb))
                (if (null (wcmatch (cdr (assoc 0 (entget :bb))) "INSERT"))
                    (progn
                        (alert "L'oggetto non è un Blocco")
                        (setq :bb nil)
                    )
                    (progn
                        (setq old (vla-get-effectivename (vlax-ename->vla-object :bb)))
                    )
                )
            )
        )
        (progn
            (RB_dcl)
            (while
                (and
                    (/= (strcase old) (strcase new))
                    (tblsearch "BLOCK" new)
                )
                (alert "Un blocco con questo nome esiste già")
                (RB_dcl)
            )
            (vla-put-Name
                (vla-item
                    (vla-get-blocks
                        (vla-get-activedocument
                            (vlax-get-acad-object)
                        )
                    )
                    old
                )
                new
            )
        )
    )
    (prompt "\n ") (prompt "\n ") (prompt "\n ")
    (princ)
)


(defun RB_dcl ( / DCLname)
    (setq DCLname (strcat (getvar 'localrootprefix) "RB_V4.dcl"))
    (if (not (findfile DCLname)) (crea_dcl_RB))   
    (if (= POSIZ_DCL_RB nil) (setq POSIZ_DCL_RB (list -1 -1)))   
    (setq dcl_id (load_dialog DCLname))       
    (if (not (new_dialog "RB4" dcl_id "" POSIZ_DCL_RB)) (exit))    
    (setq new old)
    (set_tile "new" new)
    (action_tile "new" "(setq new $value)")
    (start_dialog)
    (unload_dialog dcl_id)
)


(defun crea_dcl_RB (/ fn f)
    (setq fn  DCLname)
    (setq f (open fn "w"))
    (write-line "RB4:dialog {" f)
    (write-line "label = \"RB - Rinomina Blocco (Vers. 4)\";" f)
    (write-line "" f)
    (write-line "    initial_focus=\"new\";" f)
    (write-line "" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "" f)
    (write-line "    : text {" f)
    (write-line "    label = \"Nuovo Nome Blocco:\";" f)
    (write-line "    alignment = centered;" f)
    (write-line "    } " f)
    (write-line "" f)
    (write-line "    : text {" f)
    (write-line "    label = \"(digitare:  *U  per creare un Blocco Anonimo)\";" f)
    (write-line "    alignment = centered;" f)
    (write-line "    } " f)
    (write-line "" f)
    (write-line "    : spacer {}" f)
    (write-line "" f)    
    (write-line "    : edit_box {" f)
    (write-line "    key=\"new\";" f)
    (write-line "    allow_accept=true;" f)
    (write-line "    }" f)
    (write-line "" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "" f)
    (write-line "    ok_only;" f)
    (write-line "" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "" f)
    (write-line "    : text { " f)
    (write-line "    label = \"Copyright  ©  2012  -  Gian Paolo Cattaneo\";" f)
    (write-line "    alignment = centered;" f)
    (write-line "    }" f)
    (write-line "" f)
    (write-line "}" f)
    (close f)
    (load_dialog fn)
)

;******************************************************************************

(vl-load-com)

(prompt "\n ") (prompt "\n ") (prompt "\n ")
(princ "\nRinominare un Blocco (V.4) - by Gian Paolo Cattaneo")
(princ "\nDigitare RB per lanciare il lisp")
(princ)




Autore Risposta: arri
Inserita il: 28 ottobre 2012 13:12:05
Messaggio:

Messaggio inserito da GP

Una nuova versione di RB (Rinomina Blocchi), con la quale è possibile rinominare (o creare) anche i blocchi anonimi.


Non riesco ad allegare file, inserisco il codice.



;;; file: RB.lsp                                                    ;;;
;;; data: 22/10/2008                                                ;;;
;;; note: rinomina il blocco selezionato                            ;;;
;;;                                                                 ;;;
;;; aggiornamento: (Versione 2) - 01/04/2009                        ;;;
;;;              - default sulla casella OK                         ;;;
;;;              - controllo esistenza nome blocco                  ;;;
;;;                                                                 ;;;
;;; aggiornamento: (Versione 3) - 02/04/2009                        ;;;
;;;              - allargata casella editazione nome blocco         ;;;
;;;                                                                 ;;;
;;; aggiornamento: (Versione 4) - 28/10/2012                        ;;;
;;;              - rinomina blocchi dinamici e blocchi anonimi      ;;;
;;;              - creazione di blocchi anonimi                     ;;;
;;;              - inglobamento DCL nel lisp                        ;;;
;;;                                                                 ;;;
;;; autore: Gian Paolo Cattaneo                                     ;;;


(defun c:RB (/ :bb old new dcl_id)

    (prompt "\n ") (prompt "\n ") (prompt "\n ")
    (if
        (while (not :bb)
            (setvar 'errno 0)
            (setq :bb (car (entsel "\nSelezionare il Blocco da Rinominare")))
            (if (= 7 (getvar 'errno))
                (alert "Nessun oggetto selezionato")
            )
            (if (= 'ename (type :bb))
                (if (null (wcmatch (cdr (assoc 0 (entget :bb))) "INSERT"))
                    (progn
                        (alert "L'oggetto non è un Blocco")
                        (setq :bb nil)
                    )
                    (progn
                        (setq old (vla-get-effectivename (vlax-ename->vla-object :bb)))
                    )
                )
            )
        )
        (progn
            (RB_dcl)
            (while
                (and
                    (/= (strcase old) (strcase new))
                    (tblsearch "BLOCK" new)
                )
                (alert "Un blocco con questo nome esiste già")
                (RB_dcl)
            )
            (vla-put-Name
                (vla-item
                    (vla-get-blocks
                        (vla-get-activedocument
                            (vlax-get-acad-object)
                        )
                    )
                    old
                )
                new
            )
        )
    )
    (prompt "\n ") (prompt "\n ") (prompt "\n ")
    (princ)
)


(defun RB_dcl ( / DCLname)
    (setq DCLname (strcat (getvar 'localrootprefix) "RB_V4.dcl"))
    (if (not (findfile DCLname)) (crea_dcl_RB))   
    (if (= POSIZ_DCL_RB nil) (setq POSIZ_DCL_RB (list -1 -1)))   
    (setq dcl_id (load_dialog DCLname))       
    (if (not (new_dialog "RB4" dcl_id "" POSIZ_DCL_RB)) (exit))    
    (setq new old)
    (set_tile "new" new)
    (action_tile "new" "(setq new $value)")
    (start_dialog)
    (unload_dialog dcl_id)
)


(defun crea_dcl_RB (/ fn f)
    (setq fn  DCLname)
    (setq f (open fn "w"))
    (write-line "RB4:dialog {" f)
    (write-line "label = \"RB - Rinomina Blocco (Vers. 4)\";" f)
    (write-line "" f)
    (write-line "    initial_focus=\"new\";" f)
    (write-line "" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "" f)
    (write-line "    : text {" f)
    (write-line "    label = \"Nuovo Nome Blocco:\";" f)
    (write-line "    alignment = centered;" f)
    (write-line "    } " f)
    (write-line "" f)
    (write-line "    : text {" f)
    (write-line "    label = \"(digitare:  *U  per creare un Blocco Anonimo)\";" f)
    (write-line "    alignment = centered;" f)
    (write-line "    } " f)
    (write-line "" f)
    (write-line "    : spacer {}" f)
    (write-line "" f)    
    (write-line "    : edit_box {" f)
    (write-line "    key=\"new\";" f)
    (write-line "    allow_accept=true;" f)
    (write-line "    }" f)
    (write-line "" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "" f)
    (write-line "    ok_only;" f)
    (write-line "" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "    : spacer {}" f)
    (write-line "" f)
    (write-line "    : text { " f)
    (write-line "    label = \"Copyright  ©  2012  -  Gian Paolo Cattaneo\";" f)
    (write-line "    alignment = centered;" f)
    (write-line "    }" f)
    (write-line "" f)
    (write-line "}" f)
    (close f)
    (load_dialog fn)
)

;******************************************************************************

(vl-load-com)

(prompt "\n ") (prompt "\n ") (prompt "\n ")
(princ "\nRinominare un Blocco (V.4) - by Gian Paolo Cattaneo")
(princ "\nDigitare RB per lanciare il lisp")
(princ)





ottimo !!

grazie GP


Autore Risposta: arri
Inserita il: 12 novembre 2012 12:01:56
Messaggio:

lisp per ordinare i layout


Autore Risposta: arri
Inserita il: 21 gennaio 2013 11:10:35
Messaggio:

Random scatter of AutoCAD drawing objects.

Scatter - move selected objects randomly in 2D or 3D or curves

download


Autore Risposta: arri
Inserita il: 31 gennaio 2013 12:36:27
Messaggio:

FlipFace

flip selected 3DFaces (reverse normals) - LSP for AutoCAD


Autore Risposta: arri
Inserita il: 07 febbraio 2013 07:57:15
Messaggio:

Export To AutoCAD Script


Autore Risposta: arri
Inserita il: 27 febbraio 2013 11:16:30
Messaggio:

BlkAnnot

Changing block from Annotative to Non-annotative or vice versa.

With the BlkAnnot utility from the offering of CAD Studio's freeware tools you can easily change a block type (flag) from Annotation to standard plain non-annotation block (or vice-versa).
Download the BlkAnnot utility from www.cadstudio.cz/download, load it with APPLOAD and run the BlkAnnot command. The selected blocks will be converted to annotative or non-annotative (per option) without changing their definition and text attributes.

Make sure all layers used in your blocks are on and thawed.


Autore Risposta: arri
Inserita il: 18 marzo 2013 14:04:25
Messaggio:

tutorial idwgtab

aggiornamento

iDwgTab2.0.0.5_patch7.zip


Autore Risposta: arri
Inserita il: 02 aprile 2013 10:57:55
Messaggio:

Autodesk DWG TrueView 2014


Autore Risposta: arri
Inserita il: 04 aprile 2013 09:05:11
Messaggio:

Scale List Cleanup Utility for AutoCAD 2013/2014

Regapp ID Cleanup Utility for AutoCAD 2013/2014


Autore Risposta: arri
Inserita il: 08 aprile 2013 11:17:10
Messaggio:

Can you Purge, Audit, and Overkill with one click?


Autore Risposta: arri
Inserita il: 14 giugno 2013 12:13:15
Messaggio:

Click2XLS - click points to export from AutoCAD to Excel.

videotutorial


Autore Risposta: arri
Inserita il: 21 giugno 2013 09:46:26
Messaggio:

Automatic selection of the original format version on saving DWGs.

With the free utility CADstudio SaveOrig you can save a DWG drawing automatically in that format, in which it was loaded into AutoCAD. So if you e.g. open a 2007-version DWG drawing in AutoCAD 2014, edit it and then save it with the SAVEORIG command, the resulting file will be again in the DWG2007 format - automatically, without manual selection of the proper setting in SaveAs.
The application checks non-saveable versions (e.g. R12), or still unnamed new drawings. You can map this command to the keybord shortcut Ctrl+S.

Load the Saveorig.vlx file downloaded from www.cadstudio.cz/download using APPLOAD (or drag it to the "briefcase" to load it in any drawing) and run it by entering "SAVEORIG".


Autore Risposta: arri
Inserita il: 24 giugno 2013 07:59:20
Messaggio:

Create a Plugin for AutoCAD


Autore Risposta: arri
Inserita il: 24 giugno 2013 09:30:11
Messaggio:

Cadmanagertools

BatchInEditor 1.0 AutoCAD 2012 compatible
BatchInDatabase 1.0 AutoCAD 2012 compatible

BatchInEditor 2.0 AutoCAD 2013 compatible
BatchInDatabase 2.0 AutoCAD 2013 compatible


Autore Risposta: arri
Inserita il: 09 luglio 2013 12:02:48
Messaggio:

SeeBlock - DWG Symbol Manager


Autore Risposta: arri
Inserita il: 11 settembre 2013 15:10:34
Messaggio:

Kerb line

Kerb Line lisp helps you to create indicative kerb markings for road layout plan to add more pleasing look to your drawings, in proper layers.

How to use :
Save as the Main plan to a new file
Delete all contents except the road edge line
Pedit all lines and arcs to convert to polyline
Download Kerb line lisp click here
Load “KERB LINE” lisp
Type Command : PP

For pedit command
Type Command : KB
Specify Kerb Width
Select polyline
Specify point on side to offset

Specifications:
New layer : Kerb
Line type Generation : Enabled


Autore Risposta: arri
Inserita il: 02 ottobre 2013 10:12:24
Messaggio:

Updated AutoCAD Colorbook Editor Released


Autore Risposta: arri
Inserita il: 15 ottobre 2013 12:04:41
Messaggio:

Screenshot: an AutoCAD screen capture utility


Autore Risposta: aforza
Inserita il: 15 ottobre 2013 17:53:04
Messaggio:

ciao,

da provare magari si risparmia qualche click rispetto al cattura schermo di seven

Ciao


Autore Risposta: arri
Inserita il: 16 ottobre 2013 15:32:26
Messaggio:

Messaggio inserito da aforza

ciao,

da provare magari si risparmia qualche click rispetto al cattura schermo di seven


se ti capita di provarlo facci sapere
ciao


Autore Risposta: arri
Inserita il: 16 gennaio 2014 11:38:01
Messaggio:

free AutoCAD Hatch Pattern Creation tool


Autore Risposta: arri
Inserita il: 27 gennaio 2014 09:00:26
Messaggio:

XREF Load Status App Review


Autore Risposta: arri
Inserita il: 17 febbraio 2014 14:45:01
Messaggio:

lisp per disegnare clotoide

http://www.cadstudio.cz/en/download.asp?file=KLOT


Autore Risposta: arri
Inserita il: 27 febbraio 2014 14:17:36
Messaggio:

3DConstruct - converting a 3D mesh to a frame construct


Autore Risposta: arri
Inserita il: 04 marzo 2014 11:56:35
Messaggio:

Modelspace to Paperspace

Program Description

This program allows the user to copy a selection of objects from Modelspace to the current Paperspace layout through an active viewport.

This functionality is similar to the standard CHSPACE command, however, this program will copy the selection of objects, as opposed to moving the objects from Modelspace to Paperspace. I realise that this functionality could also be quite easily achieved by copying the selection of objects and proceeding to use the CHSPACE command with the copied selection, however, by avoiding the use of this standard command, this program provided an excellent exercise in matrix mathematics from which others may also benefit.

Upon issuing the command ms2ps at the AutoCAD command-line, the user is prompted to make a selection of objects to copy. Following a valid selection, the program will copy the objects to the active Paperspace layout, before performing the necessary matrix transformations to maintain the visual appearance of the objects as displayed through the active viewport.

The program is compatible with rectangular & polygonal viewports, under all UCS & view settings, and with objects constructed in any UCS construction plane.

Note that the command is only available when a Paperspace Layout is set current, and with a viewport active.


Autore Risposta: arri
Inserita il: 09 maggio 2014 10:45:02
Messaggio:

Export text from DWG drawings to Excel


Autore Risposta: arri
Inserita il: 10 luglio 2014 14:13:17
Messaggio:

SuperTools


Autore Risposta: arri
Inserita il: 31 luglio 2014 12:43:50
Messaggio:

http://www.cadlispandtips.com/2011/12/blk-auto-coordinates.html


Autore Risposta: arri
Inserita il: 13 novembre 2014 10:19:29
Messaggio:

Below are direct download links to many versions of DWG Trueview and/or Design Review from 2007 to 2014


TuttoCAD Forum : http://www.cadlandia.com/

© 2001-2010 CADLandia

Chiudi Finestra