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
 AutoLISP
 Discretizzare poly (mista) in poly con seg uguali
 Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
I seguenti utenti stanno leggendo questo Forum Qui c'è:
Pagina Precedente
Autore Discussione Precedente Discussione Discussione Successiva
Pagina: di 2

aforza
Utente Master


Regione: Italia
Prov.: Padova
Città: Cavarzere(VE)-Monselice(PD)


1798 Messaggi

Inserito il - 08 novembre 2010 : 08:48:55  Mostra Profilo  Rispondi Quotando
ciao,

ora provo la nuova versione poi ti dico, rinnovo i complimenti

mi dispiace molto averti fatto perdere la notte

grazie 1000

ciao

Andrea Forza

CadWorx 2014 & Plant3D AutoCAD 2014 su Seven 64bit - Dell Vostro i7 ram 8gb - doppio monitor Hanns-g 22"
Torna all'inizio della Pagina

aforza
Utente Master


Regione: Italia
Prov.: Padova
Città: Cavarzere(VE)-Monselice(PD)


1798 Messaggi

Inserito il - 08 novembre 2010 : 09:11:38  Mostra Profilo  Rispondi Quotando
ciao,

ottimo lavoro
complimenti dai miei colleghi
per me può bastare spero che anche altri possano sfruttare questa cosa

ciao

Andrea Forza

CadWorx 2014 & Plant3D AutoCAD 2014 su Seven 64bit - Dell Vostro i7 ram 8gb - doppio monitor Hanns-g 22"
Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 08 novembre 2010 : 09:34:38  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
Messaggio inserito da aforza

mi dispiace molto averti fatto perdere la notte



Non ti preoccupare, non ho lavorato di notte!
Torna all'inizio della Pagina

aforza
Utente Master


Regione: Italia
Prov.: Padova
Città: Cavarzere(VE)-Monselice(PD)


1798 Messaggi

Inserito il - 08 novembre 2010 : 14:55:12  Mostra Profilo  Rispondi Quotando
ciao,

comunque GRAZIE 1000

ciao

Andrea Forza

CadWorx 2014 & Plant3D AutoCAD 2014 su Seven 64bit - Dell Vostro i7 ram 8gb - doppio monitor Hanns-g 22"
Torna all'inizio della Pagina

Giuseppe Mauro
Amministratore



Regione: Campania
Prov.: Napoli


2705 Messaggi

Inserito il - 08 novembre 2010 : 18:07:10  Mostra Profilo Invia a Giuseppe Mauro un Messaggio Privato  Rispondi Quotando
Avendo sottomano 2 ottimi lispisti (parlo di josh e terminator), faccio un semi OT e chiedo 1 consiglio.

Ho un lisp che ha bisogno di calcolare la lunghezza di una poly.
Pre 2010, ottenevo questo dato in un sol colpo, dando "area->object" della poly ed andando a ricavare il valore della variabile "PERIMETER" che autocad conservava insieme all'area.
Dalla 2010 in poi (non chiedetemi il perche'), se si da il comando "area-object" su una pline le cui estremita' si intersecano (per esempio una pline a forma di zeta), il comando area crasha, per cui il lisp mi si blocca per mancanza del dato perimeter.
Cosa strana, sulla stessa polilinea, se si da un LIST, viene calcolata sia l'area che il perimetro (segno che autoca la calcola correttamente) pero' via list i valori non sono recuperabili attraverso GETVAR.

Mi date una drittina, magari anche con qualche funzione VLAX?
Torna all'inizio della Pagina

joseph
Utente Master



Regione: Lombardia
Prov.: Cremona
Città: Casalmaggiore


1884 Messaggi

Inserito il - 08 novembre 2010 : 21:52:56  Mostra Profilo Invia a joseph un Messaggio Privato  Rispondi Quotando
Se cerchi solo la lunghezza, la soluzione si trova già nel file LSP di Terminator; comunque ti allego la modalità secondo VisualLisp:

(vl-load-com)
(setq ent (car (entsel "\nScegli la polilinea: ")))
(setq OBJCURVE (vlax-ename->vla-object ent)
LEN (vlax-curve-getDistAtParam OBJCURVE
(vlax-curve-getEndParam OBJCURVE)
))
Torna all'inizio della Pagina

Terminator
Utente Master



725 Messaggi

Inserito il - 08 novembre 2010 : 22:27:11  Mostra Profilo Invia a Terminator un Messaggio Privato  Rispondi Quotando
Un'altra possibilità è data da:

(vl-load-com)
(setq lung(vla-get-length (vlax-ename->vla-object (car (entsel "\nSelezionare la polilinea: ")))))
;;; per la lunghezza
(setq area(vla-get-area (vlax-ename->vla-object (car (entsel "\nSelezionare la polilinea: ")))))
;;; per l'area
Torna all'inizio della Pagina

Giuseppe Mauro
Amministratore



Regione: Campania
Prov.: Napoli


2705 Messaggi

Inserito il - 09 novembre 2010 : 07:21:37  Mostra Profilo Invia a Giuseppe Mauro un Messaggio Privato  Rispondi Quotando
Grazie raga', dopo le provo
Torna all'inizio della Pagina
Pagina: di 2 Discussione Precedente Discussione Discussione Successiva  
Pagina Precedente
 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,76 secondi.