Bug 2007 : vla-put-ShadePlot ???

[Bred]

Salut,

Dans les suite des bugs sur 2007 Testé ça sur des fenêtre de présentation nouvellement créés:

(defun c:test ( / sel)
 (setq sel nil
sel (ssget "I"))
 (while (null (setq sel	(ssget '((0 . "VIEWPORT,*POLYLINE,SPLINE,ELLIPSE,CIRCLE,REGION"))))))
 (foreach n (vl-remove-if 'listp (mapcar 'cadr (ssnamex sel)))
   (if (equal (vla-get-ObjectName (vlax-ename->vla-object n)) "AcDbViewport")
     (progn
     ([b]vla-put-ShadePlot[/b] (vlax-ename->vla-object n) 7)     
     (vla-put-color (vlax-ename->vla-object n) 5)
     )
     )
    )
 )

ceci met la fnêtre en bleu (ça marche) et devrais mettre le tracé de l'ombrage en rendu... ben non, pas sur 2007...

sur 2008 oui....

 

par contre, si sous 2007, vous relancez encore un fois ce test sur la même fenêtre, là, ça fonctionne !!! :casstet: :casstet: :casstet: