Autore |
Discussione |
Jarjarfix1
Utente Master
Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento
275 Messaggi |
Inserito il - 18 aprile 2009 : 08:36:41
|
Buongiorno. Avrei bisogno di un programmino lisp per il calcolo il automatico delle aree di polilinee chiuse o contorni. Ho cercato sul web se trovavo qualcosa ma non ho trovato nulla che faccia al caso mio. Mi servirebbe (sempre se possibile) trovare qualcosa che mi permetta di selezionare un contorno e che in automatico al suo interno mi scriva la superficie in mq con lo stile di testo corrente. Se poi la selezione delle polilinee potesse essere multipla sarebbe perfetto. Tra i lisp che ho visionato ho trovato il lisp che allego ma purtroppo è per autocad in versione inglese ma potrebbe essere una buona base di partenza....se funzionasse :-). Non mi serve però il nome del locale. Utilizzo autocad 2008
Scarica allegato:
Pla.zip 1,29 KB
Buon weekend a tutti
|
|
arri
Utente Master
Regione: Lombardia
14951 Messaggi |
|
n/a
deleted
Prov.: Estero
Città: Sieradz (PL)
5926 Messaggi |
Inserito il - 18 aprile 2009 : 12:51:56
|
...e come dimenticare il leggendario Arearon..?
|
|
|
GP
Utente Master
Regione: Piemonte
Prov.: Vercelli
2776 Messaggi |
Inserito il - 18 aprile 2009 : 19:27:07
|
JJ, su CADLandia trovi tutto, come ti hanno suggerito "quei due".
Con AV cliccando all'interno di aree chiuse ti restituisce il testo della superficie da inserire dove vuoi.
Con AREARON puoi trattare anche millemila polilinee in un sol colpo.
Vedi quale si adatta meglio al tuo scopo. |
|
|
Jarjarfix1
Utente Master
Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento
275 Messaggi |
Inserito il - 20 aprile 2009 : 08:27:52
|
Buongiorno. Grazie dell'aaiuto. Ma cliccando sul link per scaricare areaom mi si apre una pagina con tutti quadratini e simboli strani! Cosa devo fare? Devo creare un file lisp con quei simboli? Ciao e buona settimana a tutti |
|
|
n/a
deleted
Prov.: Estero
Città: Sieradz (PL)
5926 Messaggi |
Inserito il - 20 aprile 2009 : 09:02:18
|
Decomprimi questo nel direttorio SUPPORT di Autocad, e lancialo come tutti gli altri Lisp.
P.S. JJ, ricordati che tu sei un Master: non far deridere l'intera categoria, ok?
|
|
|
Jotar
Utente Master
Regione: Lazio
Prov.: Roma
Città: Roma
799 Messaggi |
|
arri
Utente Master
Regione: Lombardia
14951 Messaggi |
|
n/a
deleted
Prov.: Estero
Città: Sieradz (PL)
5926 Messaggi |
Inserito il - 20 aprile 2009 : 09:32:38
|
Citazione: Messaggio inserito da arri va bene per la versione inglese, mentre per quella italiana no
Per inciso, il mio link di stamattina alle 9:02 e' un "Arearon" gia' italianizzato.
|
|
|
arri
Utente Master
Regione: Lombardia
14951 Messaggi |
Inserito il - 20 aprile 2009 : 09:35:18
|
Citazione: Messaggio inserito da antoniovinci
Citazione: Messaggio inserito da arri va bene per la versione inglese, mentre per quella italiana no
Per inciso, il mio link di stamattina alle 9:02 e' un "Arearon" gia' italianizzato.
credo che Jotar abbia voluto indicare la miniera di utilità disponibili in Cadtutor |
|
|
riga
Utente Master
Prov.: Estero
Città: Lugano
1169 Messaggi |
Inserito il - 20 aprile 2009 : 23:41:49
|
Citazione: Messaggio inserito da antoniovinci
Decomprimi questo P.S. JJ, ricordati che tu sei un Master: non far deridere l'intera categoria, ok?
Apro e chiudo subito la polemica quì: ma i "gradi assegnati in base al numero di Post valgono poco se non ad indicare un'assidua partecipazione. A momenti diventava pure master il trio che non riusciva ad uploadare un file dopo 10 post e link di spiegazione!!!
Altri forum hanno interessanti opzioni x "valutare" i contributi dei partecipanti; voti... (ma quelli si possono dare anche solo x simpatia) o ringraziamenti x la risposta corretta (o illuminante). Nel caso di Cadlandia non conta molto, visto che mi pare tutti abbiano gli stessi diritti... ma comunque diffido dei giudizi dati in base al numero di post inseriti |
“Azione inutile come bere una birra senz'alcool”. Armando Ceroni |
|
|
Jarjarfix1
Utente Master
Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento
275 Messaggi |
Inserito il - 21 aprile 2009 : 08:16:55
|
Buongiono. Scusate se rispondo solo ora ma ieri internet non mi permetteva di accedere a questo sito (e non è la prima volta che succede) Quoto la "polemica" di Riga in quanto il grado di "MAster" l'ho raggiunto solo perchè frequento questo sito quando non so come risolvere un problema. Se fossi un esperto probabilmente non avrei nemmeno scoperto che esisteva e comunque il primo link a arearon mi apriva una pagina che sembrava criptata. Chiusa polemica. Comunque ho seguito le istruzioni ma e ho scaricato e installato e caricato i file. Quando lancio il lisp mi crea un file txt (con l'area esatta) ma all'interno della mia polilinea chiesa mo lascia i valori a zero. Il prgramma (se mi funzionasse) sarebbe perfetto. Grazie e buona giornata a tutti |
|
|
n/a
deleted
Prov.: Estero
Città: Sieradz (PL)
5926 Messaggi |
Inserito il - 21 aprile 2009 : 09:06:25
|
Citazione: Messaggio inserito da Jarjarfix1 all'interno della mia polilinea chiesa mo lascia i valori a zero
Prova ad alzare il valore lampeggiante:
Per capire come funziona il potente Arearon, ti consiglio di esercitarti su un disegno nuovo di prova, contenente un paio di rettangoli.
|
|
|
arri
Utente Master
Regione: Lombardia
14951 Messaggi |
Inserito il - 21 aprile 2009 : 10:04:55
|
Citazione: Messaggio inserito da antoniovinci
Citazione: Messaggio inserito da arri va bene per la versione inglese, mentre per quella italiana no
Per inciso, il mio link di stamattina alle 9:02 e' un "Arearon" gia' italianizzato.
più potente quello indicato da Jotar
VERSION 1.1 (09FEB09): ADDED AREA FOR REGIONS, SPLINE, CIRCLE & ELLIPSE |
|
|
Jarjarfix1
Utente Master
Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento
275 Messaggi |
Inserito il - 23 aprile 2009 : 18:39:54
|
Scusatemi ma non riuscivo più ad accedere a questo sito (non so il perchè) Comunque ho provato a modificare la scala del testo ma non cambiava nulla. Ho scoperto che per far funzionarequesto lisp devo impostare a zero l'altezza dello stile di testo che voglio utilizzare. Poi funzione tutto alla perfezione. Grazie a tutti. |
|
|
arri
Utente Master
Regione: Lombardia
14951 Messaggi |
Inserito il - 23 aprile 2009 : 19:27:23
|
Citazione: Messaggio inserito da Jarjarfix1 Ho scoperto che per far funzionarequesto lisp devo impostare a zero l'altezza dello stile di testo che voglio utilizzare. Poi funzione tutto alla perfezione. Grazie a tutti.
lo stile di testo deve sempre essere impostato a 0
per avere la richiesta dell'altezza durante il comando _TEXT
(nel lisp si sballava la sequenza di risposte) |
|
|
Jarjarfix1
Utente Master
Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento
275 Messaggi |
Inserito il - 08 novembre 2012 : 14:36:41
|
Buongiorno a tutti. Dopo parecchio tempo mi ritornerebbe utile il Lisp per calcolare le aree di contorni chiusi ed inserire il risultato all'interno del controno stesso, ma non trovo più il Lisp che mi avevevate gentilmente dato. Riuscireste ad "uploadarlo"? Grazie. |
|
|
Terminator
Utente Master
725 Messaggi |
Inserito il - 08 novembre 2012 : 15:29:11
|
| Messaggio inserito da Jarjarfix1
Buongiorno a tutti. Dopo parecchio tempo mi ritornerebbe utile il Lisp per calcolare le aree di contorni chiusi ed inserire il risultato all'interno del contorno stesso, ma non trovo più il Lisp che mi avevate gentilmente dato. Riuscireste ad "uploadarlo"? Grazie.
|
Alternativa di un lisp scritto tempo fa:
Scarica allegato:
areat.zip 2,09 KB |
|
|
Jarjarfix1
Utente Master
Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento
275 Messaggi |
Inserito il - 08 novembre 2012 : 15:54:09
|
Grazie. Questo va già bene ma purtroppo non mi permette di selezionare più contorni contemporaneamente e calcolare le rispettive aree. |
|
|
arri
Utente Master
Regione: Lombardia
14951 Messaggi |
Inserito il - 08 novembre 2012 : 17:23:50
|
Messaggio inserito da Jarjarfix1
Grazie. Questo va già bene ma purtroppo non mi permette di selezionare più contorni contemporaneamente e calcolare le rispettive aree.
lo fa quello segnalato da Jotar
http://www.cadtutor.net/forum/showthread.php?32396-Area-calculation-for-region...&p=211618&viewfull=1#post211618
;;; CADALYST 07/08 www.cadalyst.com/code
;;; Tip 2292: AreaRon.lsp Area of Closed Polylines (c) 2008 Ronald Maneja (Wizman)
;;; PRODUCES TEXT CONTAINING AREA OF SELECTED CLOSED POLYLINES
;;; AND PUTS THEM IN AREARON LAYER
;;; CREATED BY RON MANEJA 31JAN08
;;; USER INPUTS: SCALE, POLYLINE SELECTION
;;;
;;; VERSION 1.1 (09FEB09): ADDED AREA FOR REGIONS, SPLINE, CIRCLE & ELLIPSE
;;;
(defun C:AREARON (/
allx
ally
areaobj
counter
ctr
el
entity-name
entnamevla
mysset
prec_temp
pt
reg_centroid
temp
tst
vertex
x
y
oldlayer
oldsnap
temperr
traperror
blpt
cir_center
el_center
maxpt
minpt
spl_center
trpt
)
(defun set_var ()
(setvar 'cmdecho 0)
(setq oldlayer (getvar "clayer"))
(setq oldsnap (getvar "osmode"))
(setq temperr *error*)
(setq *error* traperror)
(setvar "osmode" 0)
)
(defun traperror (errmsg)
(command nil nil nil)
(if (not (member errmsg '("console break" "Function Cancelled"))
)
(princ (strcat "\nError: " errmsg))
)
(command "_.undo" "end")
(setvar "clayer" oldlayer)
(setvar "osmode" oldsnap)
(setvar "cmdecho" 1)
(princ "\nError Resetting Enviroment ")
(setq *error* temperr)
)
(defun reset_var ()
(setq *error* temperr)
(setvar "clayer" oldlayer)
(setvar "osmode" oldsnap)
(command "_.undo" "end")
(setvar "cmdecho" 1)
)
(vl-load-com)
(set_var)
(command "_.undo" "be")
(if (tblsearch "Layer" "AREARON")
(command "._layer" "_thaw" "AREARON" "_on" "AREARON" "_unlock" "AREARON" "_set" "AREARON" "") ;_ closes command
(command "._layer" "_make" "AREARON" "_color" 1 "AREARON" "") ;_ closes command
)
(if (null sch)
(setq sch 1.0)
)
(initget 6)
(setq temp (getreal (strcat "\nENTER SCALE <"
(rtos sch 2 2)
">: "
)
)
)
(if temp
(setq sch temp)
(setq temp sch)
)
(if (null precision)
(setq precision 1)
)
(initget 6)
(setq prec_temp
(getint
(strcat "\nHOW MANY DECIMAL PLACES?: <"
(rtos precision 2 2)
">: "
)
)
)
(if prec_temp
(setq precision prec_temp)
(setq prec_temp precision)
)
(prompt "\nSELECT CLOSED POLYLINES/SPLINES, REGION, CIRCLE & ELLIPSE:> ")
(setq
mysset (ssget '((-4 . "<or")
(-4 . "<and")
(0 . "LWPOLYLINE")
(70 . 1)
(-4 . "and>")
(-4 . "<and")
(0 . "SPLINE")
(70 . 11)
(-4 . "and>")
(0 . "REGION")
(0 . "CIRCLE")
(0 . "ELLIPSE")
(-4 . "or>")
)
)
counter 0
)
(if mysset
(progn
(while (< counter (sslength mysset))
(setq entity-name (ssname mysset counter)
EL (entget entity-name)
entnamevla (vlax-ename->vla-object entity-name)
areaobj (vla-get-area entnamevla)
)
(cond
((eq (cdr (assoc 0 el)) "LWPOLYLINE")
(progn
(setq allx 0
ally 0
ctr 0
tst 1
)
(while (assoc 10 el)
(setq vertex (cdr (assoc 10 el))
ctr (+ ctr 1)
x (car vertex)
y (cadr vertex)
allx (+ allx x)
ally (+ ally y)
EL (cdr (member (assoc 10 el) el))
)
)
(setq x (/ allx ctr)
y (/ ally ctr)
pt (list x y)
)
(command "text"
"j"
"mc"
pt
(* sch 2.5)
"0"
(rtos areaobj 2 precision)
)
)
)
((eq (cdr (assoc 0 el)) "REGION")
(setq reg_centroid
(vlax-safearray->list
(vlax-variant-value
(vla-get-centroid entnamevla)
)
)
)
(command "text"
"j"
"mc"
reg_centroid
(* sch 2.5)
"0"
(rtos areaobj 2 precision)
)
)
((eq (cdr (assoc 0 el)) "CIRCLE")
(setq cir_center
(vlax-safearray->list
(vlax-variant-value
(vla-get-center entnamevla)
)
)
)
(command "text"
"j"
"mc"
cir_center
(* sch 2.5)
"0"
(rtos areaobj 2 precision)
)
)
((eq (cdr (assoc 0 el)) "ELLIPSE")
(setq el_center
(vlax-safearray->list
(vlax-variant-value
(vla-get-center entnamevla)
)
)
)
(command "text"
"j"
"mc"
el_center
(* sch 2.5)
"0"
(rtos areaobj 2 precision)
)
)
((eq (cdr (assoc 0 el)) "SPLINE")
(vla-GetBoundingBox entnamevla 'minPt 'maxPt)
(setq blPt (vlax-safearray->list minPt)
trPt (vlax-safearray->list maxPt)
)
(setq spl_center
(mapcar '* '(0.5 0.5 0.5) (mapcar '+ blPt trPt))
)
(command "text"
"j"
"mc"
spl_center
(* sch 2.5)
"0"
(rtos areaobj 2 precision)
)
)
)
(setq counter (+ counter 1))
)
)
(alert "\nNO CLOSED POLYLINES/LWPOLYLINES/SPLINES IN YOUR SELECTION"
)
)
(reset_var)
(princ)
)
(prompt "'\n>>>...AreaRon.Lsp is now Loaded, Type 'Arearon' to start command...<<<")
(princ) |
|
|
Jarjarfix1
Utente Master
Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento
275 Messaggi |
Inserito il - 08 novembre 2012 : 17:41:10
|
Mi sa che sono negato su queste cose... Allora: Ho provato a cerare il file chiamato arearon.lisp inserendo le stringhe che hai riportato sopra. ho caricato il lisp in autocad, ma quando lancio il comando arearon mi esce la scritta sottostante.
Funzione annullataDigitare il numero di operazioni da annullare o [Auto/Controllo/INIzio/Fine/Segno/INDietro] <1>:
Ps. Ho autocad 2012 non so se centra qualcosa! |
|
|
Discussione |
|