Viewport

[azop]

Bonjour,

 

je souhaiterai modifier le point de vue d'une fenetre d'une présentation si j'ai bien compris c'est le N°12 à modifier, en utilisant le code suivant, la liste se modifie mais aucune modification n'est appliquer à la fenetre ?

sauriez vous d'où provient mon erreur ?

 

 

_$ (setq fenet (car (entsel)))

(setq ent (entget fenet))

(setq anclist (assoc 12 ent))

(setq conlist (cons (car anclist) '(0.0 0.0 0.0)))

(setq nouvlist (subst conlist anclist ent))

(entmod nouvlist)

<Nom d'entité: 7ffffb09aa0>

((-1 . <Nom d'entité: 7ffffb09aa0>) (0 . "VIEWPORT") (5 . "222") (102 . "{ACAD_XDICTIONARY") (360 . <Nom d'entité: 7ffffb09ab0>) (102 . "}") (330 . <Nom d'entité: 7ffffb06da0>) (100 . "AcDbEntity") (67 . 1) (410 . "Présentation1") (8 . "0") (100 . "AcDbViewport") (10 443.444 97.5 0.0) (40 . 205.6) (41 . 156.0) (68 . 3) (69 . 3) (12 3750.08 1505.04 0.0) (13 0.0 0.0 0.0) (14 10.0 10.0 0.0) (15 10.0 10.0 0.0) (16 0.0 0.0 1.0) (17 0.0 0.0 0.0) (42 . 50.0) (43 . 0.0) (44 . 0.0) (45 . 512.321) (50 . 0.0) (51 . 0.0) (72 . 1000) (90 . 557152) (281 . 0) (71 . 1) (74 . 0) (110 0.0 0.0 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (79 . 0) (146 . 0.0) (170 . 0) (61 . 5) (348 . <Nom d'entité: 7ffffb06f50>) (292 . 1) (282 . 1) (141 . 0.0) (142 . 0.0) (63 . 250) (421 . 3355443))

(12 3750.08 1505.04 0.0)

(12 0.0 0.0 0.0)

((-1 . <Nom d'entité: 7ffffb09aa0>) (0 . "VIEWPORT") (5 . "222") (102 . "{ACAD_XDICTIONARY") (360 . <Nom d'entité: 7ffffb09ab0>) (102 . "}") (330 . <Nom d'entité: 7ffffb06da0>) (100 . "AcDbEntity") (67 . 1) (410 . "Présentation1") (8 . "0") (100 . "AcDbViewport") (10 443.444 97.5 0.0) (40 . 205.6) (41 . 156.0) (68 . 3) (69 . 3) (12 0.0 0.0 0.0) (13 0.0 0.0 0.0) (14 10.0 10.0 0.0) (15 10.0 10.0 0.0) (16 0.0 0.0 1.0) (17 0.0 0.0 0.0) (42 . 50.0) (43 . 0.0) (44 . 0.0) (45 . 512.321) (50 . 0.0) (51 . 0.0) (72 . 1000) (90 . 557152) (281 . 0) (71 . 1) (74 . 0) (110 0.0 0.0 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (79 . 0) (146 . 0.0) (170 . 0) (61 . 5) (348 . <Nom d'entité: 7ffffb06f50>) (292 . 1) (282 . 1) (141 . 0.0) (142 . 0.0) (63 . 250) (421 . 3355443))

nil

_$

[(gile)]

Salut,

 

Extrait de l'aide pour la fonction LISP entmod :

You cannot use the entmod function to modify a viewport entity.

 

Regarde la propriété Target de l'objet PViewport (COM/ActiveX).

[azop]

Regarde la propriété Target de l'objet PViewport (COM/ActiveX).

 

 

merci pour la rapidité de ta réponse,

mais en utilisant vlax-dump-object, on peut voir que le "code dxf 12" n'est pas égal à "Target"

 

il n'y a d'ailleur aucune propriété qui donne une valeur égal au code dxf 12

sauriez vous ou trouvez cette valeur pour la modifier ?

[(gile)]

Au temps pour moi, le groupe DXF 12 correspond, comme le groupe 10 à la propriété Center (le premier étant défini dans le Système de Coordonnées Général de la présentation le second dans le Système de Coordonnées de la Vue).

C'est le groupe 17 qui correspond à la propriété Target.

 

Modifier la propriété Center aura pour effet de déplacer la fenêtre, or, si j'ai bien compris la demande, ce que tu souhaite c'est déplacer la vue dans la fenêtre, c'est donc bien sur la propriété Target qu'il faut agir.

 

Par exemple, pour déplacer la vue de 100 unités sur X, il faut ajouter le vecteur (100. 0. 0.) au point retourné par Target :

(setq vp (vlax-ename->vla-object fenet))
(vlax-put vp 'Target (mapcar '+ (vlax-get vp 'Target) '(100. 0. 0.)))

[azop]

merci beaucoup, encore un petit soucis dans le même genre :

 

je veux change mon scu (tourner de 90° dans le sens trigo)

j'utilise donc 'TwistAngle jusque là tout va bien,

mais si le je mets dans une boucle (while...) pour modifier plusieurs fenetre, une fois que le repère se tourne de 90°, pour la 1ere fenetre il ne se met plus à 0° pour les autres, est-ce le bon 'paramètre' a modifier ?