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
 rotazione di un punto
 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  

scracciolo
Utente


Regione: Puglia
Prov.: Brindisi


11 Messaggi

Inserito il - 02 settembre 2014 : 20:53:41  Mostra Profilo Invia a scracciolo un Messaggio Privato  Rispondi Quotando
Salve. Quando ruoto un punto vorrei che cambiasse la sua posizione (coordinate) ma che il simbolo rimanesse "dritto" e non ruotato. Immagini a supporto per capire meglio. Grazie in anticipo per le risposte

Immagine inserita:

83,17 KB

Immagine inserita:

25,71 KB

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 03 settembre 2014 : 07:49:54  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
dalla videata usi AutoCAD LT e con quello non puoi fare nulla,

mentre con la versione FULL,

via LISP,

puoi risolvere
Torna all'inizio della Pagina

scracciolo
Utente


Regione: Puglia
Prov.: Brindisi


11 Messaggi

Inserito il - 03 settembre 2014 : 08:45:25  Mostra Profilo Invia a scracciolo un Messaggio Privato  Rispondi Quotando
Ciao. Grazie per la risposta. Mi succede anche con la versione 2010 FULL. In ogni caso dove potrei trovare il LISP che risolve il problema ?
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 03 settembre 2014 : 08:52:04  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da scracciolo

Ciao. Grazie per la risposta. Mi succede anche con la versione 2010 FULL. In ogni caso dove potrei trovare il LISP che risolve il problema ?



(DEFUN C:RPUNTO ()
(PRINC "\nModifica rotazione punto")
(SETQ SS (SSGET))
(SETQ NUM (SSLENGTH SS))
(SETQ CONT 0)
(SETQ R (GETREAL "\nNuovo angolo rotazione: "))
(SETQ GIR (* PI (/ R 180)))
(REPEAT NUM
(SETQ EN (SSNAME SS CONT))
(SETQ LIS (ENTGET EN))
(SETQ TX (CDR (ASSOC 0 LIS)))
(IF (= TX "POINT")
(SETQ LIS (SUBST (CONS 50 GIR) (ASSOC 50 LIS) LIS))
)
(ENTMOD LIS)
(SETQ CONT (+ CONT 1))
)
)

Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 03 settembre 2014 : 09:44:19  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da scracciolo
il LISP che risolve il problema ?


per caricare i lisp vedi qui
Torna all'inizio della Pagina

scracciolo
Utente


Regione: Puglia
Prov.: Brindisi


11 Messaggi

Inserito il - 03 settembre 2014 : 09:48:30  Mostra Profilo Invia a scracciolo un Messaggio Privato  Rispondi Quotando
grazie mille. Ho risolto il problema, sei stato gentilissimo :)
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi

Inserito il - 03 settembre 2014 : 10:04:09  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da scracciolo

grazie mille. Ho risolto il problema, sei stato gentilissimo :)

prego

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,49 secondi.