TuttoCAD Forum

TuttoCAD Forum
[ Home | Registrati | Discussioni Attive | Discussioni Recenti | Segnalibro | Msg privati | Sondaggi Attivi | Utenti | Album Fotografico | Download | | Cerca | FAQ ]
Nome Utente:
Password:
Salva Password
Password Dimenticata?

 Tutti i Forum
 1 - TuttoCAD Software
 AutoCAD
 Lisp per calcolo aree e scrittura del risultato
 Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
I seguenti utenti stanno leggendo questo Forum Qui c'è:
Pagina Successiva
Autore Discussione Precedente Discussione Discussione Successiva
Pagina: di 2

Jarjarfix1
Utente Master


Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento


275 Messaggi

Inserito il - 18 aprile 2009 : 08:36:41  Mostra Profilo Invia a Jarjarfix1 un Messaggio Privato  Rispondi Quotando
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

Inserito il - 18 aprile 2009 : 12:42:49  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
http://www.cadlandia.com/forum/topic.asp?TOPIC_ID=9645
Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 18 aprile 2009 : 12:51:56  Mostra Profilo  Rispondi Quotando
...e come dimenticare il leggendario Arearon..?

Torna all'inizio della Pagina

GP
Utente Master


Regione: Piemonte
Prov.: Vercelli


2776 Messaggi

Inserito il - 18 aprile 2009 : 19:27:07  Mostra Profilo Invia a GP un Messaggio Privato  Rispondi Quotando
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.
Torna all'inizio della Pagina

Jarjarfix1
Utente Master


Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento


275 Messaggi

Inserito il - 20 aprile 2009 : 08:27:52  Mostra Profilo Invia a Jarjarfix1 un Messaggio Privato  Rispondi Quotando
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
Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 20 aprile 2009 : 09:02:18  Mostra Profilo  Rispondi Quotando
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?



Torna all'inizio della Pagina

Jotar
Utente Master



Regione: Lazio
Prov.: Roma
Città: Roma


799 Messaggi

Inserito il - 20 aprile 2009 : 09:04:19  Mostra Profilo Invia a Jotar un Messaggio Privato  Rispondi Quotando
Prova qui:

http://www.cadtutor.net/forum/showthread.php?t=32396

Jotar
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 20 aprile 2009 : 09:21:16  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Citazione:
Messaggio inserito da Jotar

Prova qui:

http://www.cadtutor.net/forum/showthread.php?t=32396



va bene per la versione inglese, mentre per quella italiana no, mancano alcuni underscore nei comandi e opzioni
Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 20 aprile 2009 : 09:32:38  Mostra Profilo  Rispondi Quotando
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.


Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 20 aprile 2009 : 09:35:18  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
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
Torna all'inizio della Pagina

riga
Utente Master

Prov.: Estero
Città: Lugano


1169 Messaggi

Inserito il - 20 aprile 2009 : 23:41:49  Mostra Profilo Invia a riga un Messaggio Privato  Rispondi Quotando
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
Torna all'inizio della Pagina

Jarjarfix1
Utente Master


Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento


275 Messaggi

Inserito il - 21 aprile 2009 : 08:16:55  Mostra Profilo Invia a Jarjarfix1 un Messaggio Privato  Rispondi Quotando
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
Torna all'inizio della Pagina

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)


5926 Messaggi

Inserito il - 21 aprile 2009 : 09:06:25  Mostra Profilo  Rispondi Quotando
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.

Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 21 aprile 2009 : 10:04:55  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
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
Torna all'inizio della Pagina

Jarjarfix1
Utente Master


Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento


275 Messaggi

Inserito il - 23 aprile 2009 : 18:39:54  Mostra Profilo Invia a Jarjarfix1 un Messaggio Privato  Rispondi Quotando
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.
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 23 aprile 2009 : 19:27:23  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
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)
Torna all'inizio della Pagina

Jarjarfix1
Utente Master


Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento


275 Messaggi

Inserito il - 08 novembre 2012 : 14:36:41  Mostra Profilo Invia a Jarjarfix1 un Messaggio Privato  Rispondi Quotando
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.
Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 08 novembre 2012 : 15:29:11  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
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
Torna all'inizio della Pagina

Jarjarfix1
Utente Master


Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento


275 Messaggi

Inserito il - 08 novembre 2012 : 15:54:09  Mostra Profilo Invia a Jarjarfix1 un Messaggio Privato  Rispondi Quotando
Grazie.
Questo va già bene ma purtroppo non mi permette di selezionare più contorni contemporaneamente e calcolare le rispettive aree.
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 08 novembre 2012 : 17:23:50  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
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)
Torna all'inizio della Pagina

Jarjarfix1
Utente Master


Regione: Trentino - Alto Adige
Prov.: Trento
Città: Trento


275 Messaggi

Inserito il - 08 novembre 2012 : 17:41:10  Mostra Profilo Invia a Jarjarfix1 un Messaggio Privato  Rispondi Quotando
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!
Torna all'inizio della Pagina
Pagina: di 2 Discussione Precedente Discussione Discussione Successiva  
Pagina Successiva
 Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
Vai a:
TuttoCAD Forum © 2001-2010 CADLandia Torna all'inizio della Pagina
Pagina generata in 0,43 secondi.