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
 Copiare dimensioni oggetto OLE e IMAGE		  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  

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 05 marzo 2014 : 11:19:51  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
spesso capita di inserire più oggetti ole o immagini e di avere la necessità di ridimensionarle allo stesso modo.
Si può fare tramite la finestra proprietà,
ma sarebbe meglio con un lisp che chiedesse di selezionare l'OLE di riferimento e successivamente gli OLE da ridimensionare

Purtroppo non sono ancora riuscito a trovare nulla in rete

GP
Utente Master


Regione: Piemonte
Prov.: Vercelli


2776 Messaggi
Inserito il - 05 marzo 2014 : 15:03:57  Mostra Profilo Invia a GP un Messaggio Privato  Rispondi Quotando
Prova questo:

(defun c:OLEsc ( / OLErif OLEtot *y* *x* OLE)
    (command "_.undo" "_begin")
    (if (and
            (setq OLErif (vlax-ename->vla-object (car (entsel "Oggetto OLE di riferimento"))))
            (princ "\nOggetti OLE da scalare")
            (setq OLEtot  (ssget '((0 . "OLE*"))))
            (setq *y* (vlax-get OLErif 'ScaleHeight))
            (setq *x* (vlax-get OLErif 'ScaleWidth))            
        )
        (repeat (setq n (sslength OLEtot))
            (setq OLE (vlax-ename->vla-object (ssname OLEtot (setq n (1- n)))))
            (vlax-put OLE 'ScaleHeight *y*)
            (vlax-put OLE 'ScaleWidth *x*)
        )
    )
    (command "_.undo" "_end")
)


Nota: vengono aggiornate % scala larghezza e % scala altezza mantenendo il punto d'inserimento che per default è in alto a sinistra.
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 05 marzo 2014 : 15:11:14  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da GP

Prova questo:

(defun c:OLEsc ( / OLErif OLEtot *y* *x* OLE)
    (command "_.undo" "_begin")
    (if (and
            (setq OLErif (vlax-ename->vla-object (car (entsel "Oggetto OLE di riferimento"))))
            (princ "\nOggetti OLE da scalare")
            (setq OLEtot  (ssget '((0 . "OLE*"))))
            (setq *y* (vlax-get OLErif 'ScaleHeight))
            (setq *x* (vlax-get OLErif 'ScaleWidth))            
        )
        (repeat (setq n (sslength OLEtot))
            (setq OLE (vlax-ename->vla-object (ssname OLEtot (setq n (1- n)))))
            (vlax-put OLE 'ScaleHeight *y*)
            (vlax-put OLE 'ScaleWidth *x*)
        )
    )
    (command "_.undo" "_end")
)


Nota: vengono aggiornate % scala larghezza e % scala altezza mantenendo il punto d'inserimento che per default è in alto a sinistra.

è un capolavoro !!!!

Grazie mille GP

Torna all'inizio della Pagina

GP
Utente Master


Regione: Piemonte
Prov.: Vercelli


2776 Messaggi
Inserito il - 05 marzo 2014 : 19:07:53  Mostra Profilo Invia a GP un Messaggio Privato  Rispondi Quotando
Prego

Se gli oggetti OLE da scalare hanno il rapporto L/H bloccato vengono aggiornati in base alla larghezza.
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 0,32 secondi.