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
 problema calcolo area polilinee
 Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
I seguenti utenti stanno leggendo questo Forum Qui c'è:
Autore Discussione Precedente Discussione Discussione Successiva  

gaetano memmolo
Nuovo Arrivato

Prov.: Avellino


2 Messaggi

Inserito il - 10 maggio 2018 : 19:29:47  Mostra Profilo Invia a gaetano memmolo un Messaggio Privato  Rispondi Quotando
salve, ho bisogno di calcolare l'area di un gran numero di polilinee chiuse(oltre mille). se provo a selezionare una singola polilinea riesco a ottenere il valore dell'area con tasto destro e proprietà. se provo a selezionare due o più polilinee non mi da il valore dell'area ma mi da *VARIE*. Ho provato con la funzione "lista", ho provato a usare il tratteggio e poi a calcolarne l'area, ho provato con la funzione "area" ma nessun risultato.
come posso risolvere questo problema?
autocad2018

Modificato da - gaetano memmolo in Data 10 maggio 2018 19:38:06

liber
Utente Master



1278 Messaggi

Inserito il - 10 maggio 2018 : 19:41:26  Mostra Profilo Invia a liber un Messaggio Privato  Rispondi Quotando
credo che alla fine di questo Topic l'utente TERMINATOR abbia la soluzione giusta che faccia al tuo caso

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

(defun C:Atot1 ()
(setq sel (ssget '((0 . "LWPOLYLINE") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>")))
lst-ent (vl-remove-if '(lambda (elemento) (equal (type elemento) 'LIST))(mapcar 'cadr (ssnamex sel)))
Lst-obj (mapcar 'vlax-ename->vla-object lst-ent)
areaTot (apply '+ (mapcar 'vla-get-area Lst-obj))
)
)

(defun C:Atot2 ()
(setq sel (ssget "x" '((0 . "LWPOLYLINE") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>")))
lst-ent (vl-remove-if '(lambda (elemento) (equal (type elemento) 'LIST))(mapcar 'cadr (ssnamex sel)))
Lst-obj (mapcar 'vlax-ename->vla-object lst-ent)
areaTot (apply '+ (mapcar 'vla-get-area Lst-obj))
)
)
Torna all'inizio della Pagina

gaetano memmolo
Nuovo Arrivato

Prov.: Avellino


2 Messaggi

Inserito il - 10 maggio 2018 : 19:54:58  Mostra Profilo Invia a gaetano memmolo un Messaggio Privato  Rispondi Quotando
grazie mille!! posso proseguire il mio lavoro adesso.
Torna all'inizio della Pagina
  Discussione Precedente Discussione Discussione 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 1,75 secondi.