Récupérer Valeur SCU dans présentation

[sergeluc]

Bonjour à tous

Je cherche à récupérer en autolisp ou visual lisp :

1) l'orientation d'un scu non nommé de l'espace objet d'une présentation pour le

reproduire sur la présentation d'un autre dwg (ou d'une nouvelle présentation)

2)Pouvoir cocher ou décocher dans paramètres SCU "Enregistrer le scu avec la fenetre"

 

merci

 

[bonuscad]

Jette un oeil à ce SUJET .

 

Il ne répond pas à toutes tes attentes, mais à une partie ;)

[sergeluc]

merci Bonuscad , cette routine va bien m'aider .

 

[sergeluc]

Si quelqu'un a une idée pour récupérer un environnement SCU courant " NON NOMME"

merci d'avance

 

[Edité le 30/4/2006 par sergeluc]

[(gile)]

Salut,

 

La variable système UCSORG stocke les coordonnées (dans le SCG) de l'origine du SCU courant.

 

Les variables système UCSXDIR et UCSYDIR stockent les directions X et Y du SCU courant pour la fenêtre active de l'espace courant.

 

Les paramètres de ces variables système sont spécifiques à une fenêtre.

 

Pour récupérer le SCU courant dans la fenêtre active :

 

(setq org  (getvar "ucsorg")
     xdir (getvar "ucsxdir")
     ydir (getvar "ucsydir")
) 

 

Pour le restaurer dans une autre fenêtre (il faut désactiver l'accochage aux objets) :

 

(setvar "osmode" (+ (getvar "osmode") 16384))
(command "_.ucs"
        "_new"
 "_3"
 (trans org 0 1)
 (trans (mapcar '+ org xdir) 0 1)
 (trans (mapcar '+ org ydir) 0 1)
)
(setvar "osmode" (- (getvar "osmode") 16384)) 

 

ou

 

(command "_.ucs"
        "_new"
 "_3"
 "_non"
 (trans org 0 1)
 "_non"
 (trans (mapcar '+ org xdir) 0 1)
 "_non"
 (trans (mapcar '+ org ydir) 0 1)
) 

 

Il est aussi possible de récupérer la direction d'extrusion (ucszdir) :

 

(setq org  (getvar "ucsorg")
     ucszdir (trans '(0 0 1) 1 0 T)
)

 

et de restaurer le SCU avec l'option _ZAxis :

 

(command "_.ucs"
 "_new"
 "_zaxis"
 "_non"
 (trans org 0 1)
 "_non"
 (trans (mapcar '+ org ucszdir) 0 1)
)

 

En espérant que çà réponde à ta question.

 

[Edité le 1/5/2006 par (gile)]

[sergeluc]

Je te remercie Gile , je devrais m'en sortir avec toutes ces infos .

 

 

[Edité le 1/5/2006 par sergeluc]