• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Leggi altro.

[Recuperato] Calcolo aree complesse

lattu

Moderatore
Staff Forum
Professione: Libero professionista
Software: Autocad - 3ds Max - Inventor - Blender - Fusion 360
Regione: Lombardia - BG
#3
giusto! a questo non avevo pensato.
 

Sandra_ME30

Super Moderatrice
Professione: SuperModeratrice
Software: ND
Regione: Reggio Emilia
#5
ARKlisp
18-07-2002, 11.31.19

Sottopongo all'attenzione dei progettisti e disegnatori AutoCAD una semplice
macro per ottenere il cacolo dell'area di figure chiuse.

Copiate in un file e salvate con estensione.lsp, poi caricate il file in oggetto all'interno
di AutoCAD con il comando _Appload, infine lanciate la macro dal prompt, digitate
AR

Modificatela a vostra discrezione, mantenendo tuttavia la dicitura originaria di copyright
dell'autore.
Buon lavoro!
Fabrizio

Testo della macro autolisp:

;;;AREA.lsp Release 1.0 <(C) F. Battistini - 2001>
;;; http://webspace.omniway.sm/fbattistini/
;;;
;;;********************************************************
;;;You are allowed to freely distribute and modify it.
;;;********************************************************
;;;
;;; Calcola l'area di un loop
;;;
;;;Error handler routine for AR
;;;
(defun BNerror (bn)

(PRINC "\n AR <enter>: Optimized AREA command-R 1.0 (C) F. Battistini ")
(command)
(setq lastr (ssget "_L" '((0 . "REGION"))))
(command "_area" "_ob" lastr )
(setq lastr nil)
(setvar "cmdecho" 0)
(setq lastr2 (ssget "_L" '((0 . "REGION"))))
(if (= lastr2 nil)(princ)
(command "_erase" lastr2""))
(setvar "cmdecho" 1)
(setq *error* olderr)
(princ)
)
;;;
;;;
;;;*** Main routine (C) F. Battistini_2001 *************************************
;;;
(Defun c:AR (/ ent entb ss pt ptlst ptlst2 ll lll loop ll2 y y2 ss ssoff entoff lass viewarea Zdin)
(setq olderr *error*
*error* BNerror)
(setvar "cmdecho" 0)
(Setvar "pickadd" 1)
(command "_undo" "_be")
(alert "AREA CAlculator: (C) by F. Battistini_2001
http://webspace.omniway.sm/fbattistini
AR <enter> ")
(princ" AR <enter>: Optimized AREA command for Loops. (C) F. Battistini")
(setq pt (getpoint "\nSeleziona punto interno all'isola: "))
(IF (null Pt)
(nil)(princ))
(setq XX (getvar "ACADVER"))
(IF (>= XX "15.0")
(command "_-boundary" Pt "" )
(command "_-boundary" Pt""))

(command "")(princ "\n\n---------Prego attendere...-------------------\n\n")

(setq SS (entlast))(command "_REGION" SS"" )

(setvar "cmdecho" 1)
(command "_area" "_ob" "_last" )
(setvar "cmdecho" 0)
(command "_erase" (entlast)"")
(setvar "cmdecho" 0)(textpage)
(command "_undo" "_e")(setvar "cmdecho" 1)(setq *error* olderr) (princ))
;;;
(princ "\n AR <enter>.comando -AREA- ottimizzato. (C) F. Battistini")


MaX
18-07-2002, 14.57.27

la cosa mi interessa: mi spieghi la differenza fra questo ed il comando "AREA"?
MaX



ARKlisp
18-07-2002, 20.53.35

Ciao Max,
la differenza è sostanziale!
Esempio: se tu hai una figura chiusa composta da un loop di lìnee,
con il comando area dovrai selezionare uno ad uno tutti i suoi vertici (estremi) per
ottenere il computo. Poi se dovessi avere una figura con qualche lato curvo non riusciresti a calcolare l'area con il comando standard "AREA".
Grazie al mio comando AR puoi computare l'area cliccando semplicemete un punto al suo interno. Potrai calcolare l'area di qualunque figura 2d.
Quindi si guadagna in velocità, semplicità e per capacità di calcolo.
Spero di essere stato esauriente!
Comunque non ti resta che testare la macro e distribuirla a chi desideri.
Ciao!

Fabrizio
http://webspace.omniway.sm/fbattistini/


MaX
19-07-2002, 00.49.56

hai ragione!

Fatalità per il mio modo di disegnare mi era SEMPRE capitato di utilizzare il comando AREA/Object per misurare gli sviluppi dei nastri trasportatori, che ovviamente trasformavo in polilinea prima di misurare.

Domani, tempo permettendo, proverò ad utilizzare la tua macro. Non conoscendo assolutamente il LISP però non so se la cosa mi sarà facile. Intanto grazie, poi semmai ti contatto...
MaX


ARKlisp
19-07-2002, 10.19.47

Gent.mo MaX,
il fatto che tu non conosca autolisp non ti impedisce di godere dei benefici che esso apporta ad AutoCAD.
In breve, per caricare un lisp (o la lisp, se preferisci gli attributi femminili...)
devi digitare dal prompt il comando _APPLOAD e selezionare la macro, poi premere il pulsante "load" (carica). La macro verrà caricata in memoria, a questo punto dovrai lanciare il comando specifico.
Comunque se incontri difficoltà sarò felice di aiutarti!
Ciao e a presto.

P.S. Io non impartisco lezioni di autolisp, ma se sei interessato ad avvicinarti a questo linguaggio (davvero semplice a livello base) puoi visitare il link "Autolisp..." sul mio sito.
Inoltre in giro per il web troverai migliaia di risorse ed info su autolisp.

Fabrizio
http://webspace.omniway.sm/fbattistini/


MarcoG
21-07-2002, 20.15.30

Ciao, volevo solo indicarvi (nel caso non ci aveste fatto caso) che esiste una sotto funzione del comando area che permette di calcolare "almeno" l'area di una figura chiusa.

Se usate il comando area vedrete che compare in basso il sottocomando "Object". Con quel comando, selezionando la poly o la figura chiusa in genere, potrete calcolarne l'area velocemente senza lisp.

Se volete potete inserire il comando in un vostro pulsante utilizzando la personalizzazione dei pulsanti.

^C^Carea o
il comando chiederà solamente il click su un oggetto (chiuso) e visualizzerà l'area corrispondente
ciao, grazie


MaX
22-07-2002, 11.02.46

...sì, infatti, è quello che dicevo io sopra. Fatalità avevo sempre calcolato le aree (ed i perimetri, perchè a me interessano i perimetri) in questo modo. Tuttavia non si può negare l'utilità e la praticità della lisp proposta da ARKlisp.

MaX
 

Sandra_ME30

Super Moderatrice
Professione: SuperModeratrice
Software: ND
Regione: Reggio Emilia
#6
MarcoG
22-07-2002, 11.27.32

HAi perfettamente ragione. Da quando lavoro in AutoCAD ho sempre utilizzato piccole routine in autolisp (mie o da altre fonti) per la soluzione dei piccoli problemi quatidiani e devo dire che il Lisp è un linguaggio molto versatile e abbastanza semplice da programmare (avendo tempo .. ovviamente) .

Ho dato un occhiata al tuo sito e sono sicuro di trovare cose interessanti.

Sarai daccordo con me però, che a volte alcune persone non conoscendo a fondo AutoCAD (che ha all'interno un sacco di segreti) a volte si rivolgono inutilmente verso macro esterne...

PEr esempio poca gente ha mai esplorato il menù BONUS in autocad14 che in Autocad2000 si chiama "Express" all'interno del quale si possono trovare diverse interessanti utillity in ARX e LSP; comandi per la modifica del testo , delle entità e per la piccola gestione dei LAYER e delle entità all'interno dei BLOCCHI.

ciao e grazie.
MarcoG



MaX
22-07-2002, 11.51.50

...posso dire una cosa?
sono stati proprio degli stronzi a togliere gli express nella 2002!!
MaX



MarcoG
22-07-2002, 12.29.53

Li hanno tolti!!!!?????

kakkio ancora non avevo visionato la 2002... beh.. sai cosa ti dico?? quando farò l'upgrade me li porto dal 2000.

che tu sappia funzionano ? (anche in parte)

ti spiego... per ora non voglio installare 2002 perchè penso sia un upgrade inutile visto le poche innovazioni (se non stupide) che hanno inserito.

Penso come al solito sia migliore saltare un passaggio di autocad cercando di upgradarlo tra una versione.

Stessa cosa vale per 3ds, penso che a ottobre prenderò il VIZ5 perchè il 4 (radiosity a parte) mi sembra solo una versione di passaggio... oltretutto "solo" in inglese.

ciao a presto . MarcoG



MaX
22-07-2002, 14.00.49

... "se vogliono gli express menù, se li comprano".
Così Autodesk ha giustificato il fatto di non pagare più gli express a chi li faceva per inserirli standard nel pacchetto...

Altra buona notizia: quelli del 2000 non funzionano

In effetti se non fosse per le quote associative non ci sarebbero valide ragioni per passare alla 2002, se non che la 2000 in WinXP non è supportata...

...una valle che si brucia!!
MaX


MarcoG
22-07-2002, 15.11.50

Beh... sai.. non è che mi meravigli molto... conosco AutoCAD dal lontano 88 quando uscì praticamente la sua prima o seconda versione.. (su 5 o 6 floppy da 5e1/4)

beh.. da allora direi che l'ultimo a goderne sono stati gli utenti... le innovazioni migliori degli ultimi anni sembra siano state messe come "optional" .. come nelle automobili...

Non credo sia una buona politica e te lo dice uno che di AutoCAD ne parla molto BEne proprio perchè è una piattaforma molto ben adattabile alle esigenze di tutti.

Sembra che facciano una politica contraria a quella di molti altri...

Per esempio nel campo del REndering MAYA è stato lanciato ad un prezzo molto competitivo (si parla addirittura di circa 2000$) questo lo mette a disposizione di un pubblico molto ampio...

AutoCAD non solo "non" si rinnova più di tanto ... rispetto ad altri ma addirittura mantiene il prezzo già altino per il pubblico medio.

Io ho sempre difeso (ed acquistato) finchè ho potuto AutoCAD ma come utente non mi sento per niente soddisfatto del trattamento.. anche se continuerò ad usarlo visto che oramai ce l'ho nelle ossa tra un po...

Scusate della chiaccherata.... torno al mio lavoro.. (ma resto collegato) a presto
MarcoG



ARKlisp
26-07-2002, 11.22.00

Mi è piaciuto molto il pig-pong nato dall'apertura del mio intervento sul calcolo delle aree di figure chiuse. E devo rimarcare che tutti hanno ragione dal proprio punto di vista.
La ragione stà in mezzo, o per dirla come i latini: "in medio stat virtus".
Intevengo di nuovo per mettervi a conoscenza che anche il sottoscritto concorda con quanto scaturito dal dibattito e tornando al calcolo delle aree conoscevo già l'opzione
"Object", che ahimè non calcola qualunque figura chiusa. Vi informo che il mio software ARKlisp stà lentamente trasformandosi ed ha introdotto alcune novità.
In particolare ora permette di caricare macro e plug-in persoanli , anche esterni alla sua installazione. Sicuramente molto più flessibile che in passato.
A voi rimetto comunque l'ardua sentenza.

Sul discorso della politica Autodesk potremmo parlarne per giorni e anch'io stento a comprenderne in toto gli obiettivi finali.
Tuttavia meglio non sputare nel piatto in cui si mangia...quindi torniamo al lavoro!

Ciao a tutti
Fabrizio
http://webspace.omniway.sm/fbattistini/



piero
31-07-2002, 22.54.15

ciao a tutti, volevo dirvi che emilisp ha inserito, oltre ai suoi numerosi comandi, anche molti comandi del vecchio bonus della R14.
emilisp si trova al sit www.emicad.it
ciao Piero



fasans
31-07-2002, 23.01.23

Le "Express Toolbars" di AutoCAD 2000 funzionano parzialmente sul 2002!
caricate i file .arx! da me funziona!
ciao!