Newsgroup: it.comp.software.cad
Titolo: Comando Align (Allinea) [LISP]

Qualcuno conosce un applicativo lisp che possa fare lo stesso lavoro di
"Align"?
Purtroppo Intellicad non implementa quel comando e se ci si è abituati
fare senza è dura!
Un grazie anticipato
Aimar
-- 
******************************************************
Per rispondere mettere "b.aimar" al posto di "NO-SPAM"
******************************************************
Mailing-list per Cad e Grafica sotto Linux:
linux_g...@grafica.it
 (subscribe nel soggetto)

 ha scritto nel messaggio
news:39F2C471...@bigfoot.com...






 Si ma "intelliCAD supporta il LISP?
Dipende dalla versione:
la LT lo supporta solo al command;
la PR carica pure i files.lsp.
Io l'hio capita cosi', poi non so,
non mi ci sono dedicato molto.
--
Ciao Giovanni

 Un grazie anticipato
Se  pazienti qualche altro giorno, poi te lo faccio.
--
Ciao Giovanni


Troppo buono!
Speravo ci fosse qualcosa di già fatto.
Comunque molte grazie, pazienterò quanto basta!
Licenza GNU GPL spero !?
Ciao
B.A



Dovrebbe essere esattamente così ma non ho ancora fatto prove a fondo.
Vorrei comunque dedicarmici di più!
Qualcuno stà infatti parlando di fare un porting sotto Linux.....
Qualcuno ha già provato a compilarselo sotto Windows?
Ciao
B.A.


 Licenza GNU GPL spero !?
GNU Mi scaricai una paginetta sull'argomento, c'era un bel faccione di uno
gnu.
GPL ? questa sigla cosi' su due piedi non me la ricordo.
CMQ Se intendi che non te lo passo compilato ma con il sorgente,
che puoi farci tutto compreso ricompilartelo e modificarlo come ti pare,
magari lasciando traccia del fatto che ti ho aiutato, insomma tutto tranne
venderlo.
E' cosi', tanto credo siano poche e semplici righe di codice, te le farei
pure ora invece
di scrivere chiacchiericcio, ma tra 3 giorni ho un importante commissone da
sbrigare in facolta'
e già ora devo ormai salutarti.
Ci sentiamo prossimamente.
--
Ciao Giovanni A.

 sbrigare in facolta'
Saranno pure poche righe di codice ma quando mi cimentai con un
accrocchio per la AC 12, capace di esplodere i blocchi con scale x e y
diverse,  ci passai mezzo l'inverno! 
Il risultato fu un mastodonte grande quasi come autocad, ma
funzionava....
Poco dopo uscě AC14 .....
Quindi cosa sono pochi giorni di attesa al confronto di un mezzo
inverno?
Grazie ancora
b.a.


 Grazie ancora.
Prego, alla prossima.
---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---
;;se preferisci l'ordine di selezione dei punti classico...
(defun c:rts (/ ) ;Ruota Trasla Scala
(princ "\nSelezionare gli oggetti da *rototraslascalare*:")
(setq ssobj (ssget))
(setq P0_o (getpoint "\nCentro iniziale"))
(setq P0_t (getpoint "\nCentro finale"))
(setq PX_o (getpoint P0_o "\nAsse iniziale"))
(setq PX_t (getpoint P0_t "\nAsse finale"))
(setq angx_o  (/ (* (angle P0_o PX_o) 180) pi))
(setq angx_t  (/ (* (angle P0_t PX_t) 180) pi))
(setq distx_o (distance P0_o PX_o))
(setq distx_t (distance P0_t PX_t))
(command "_move"   ssobj "" P0_o P0_t)
(command "_scale"  ssobj "" P0_t "r" distx_o distx_t)
(command "_rotate" ssobj "" P0_t "r" angx_o angx_t))
---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---
---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---
;;se preferisci l'ordine secondo me piu' comodo...
(defun c:rts (/ ) ;Ruota Trasla Scala
(princ "\nSelezionare gli oggetti da *rototraslascalare*:")
(setq ssobj (ssget))
(setq P0_o (getpoint "\nCentro iniziale"))
(setq PX_o (getpoint P0_o "\nAsse iniziale"))
(setq P0_t (getpoint "\nCentro finale"))
(setq PX_t (getpoint P0_t "\nAsse finale"))
(setq angx_o  (/ (* (angle P0_o PX_o) 180) pi))
(setq angx_t  (/ (* (angle P0_t PX_t) 180) pi))
(setq distx_o (distance P0_o PX_o))
(setq distx_t (distance P0_t PX_t))
(command "_move"   ssobj "" P0_o P0_t)
(command "_scale"  ssobj "" P0_t "r" distx_o distx_t)
(command "_rotate" ssobj "" P0_t "r" angx_o angx_t))
---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---cut---
--
Ciao Giovanni