Rafraichissement hachure

[bseb67]

Salut à tous!

 

Là je coince sur un petit truc qui me gène.

J'ai un bloc dynamique http://bseb67.free.fr/cadxp/hachure/VOLET-VF.dwg avec deux propriétés: hauteur et largeur.

 

Si je modifie une des propriétés par le panneau des propriétés de l'objet, le bloc se met bien à jour : càd les hachures s'ajustent bien.

 

Mais comme j'ai fait un lisp, car il y a des dimensions standard, je fait donc un vla-put-Value sur les propriétés.

Mais les hachures ne suivent pas.

 

Je suis obligé de faire un regenall, ce qui est très long

 

Est-ce que l'on de vous à une idée pour ca?

 

merci.

[Patrick_35]

Salut

 

J'ai testé suivant deux méthodes et ça a l'air de fonctionner.

 

(setq bl (vlax-ename->vla-object (car (entsel)))
     pr (vlax-invoke bl 'getdynamicblockproperties)
     la (nth 0 pr)
     ht (nth 2 pr)
)

 

Méthode 1

(vla-put-value la 100.0)
(vla-put-value ht 100.0)

 

Méthode 2

(vlax-put la 'value 200.0)
(vlax-put ht 'value 300.0)

 

@+

[bseb67]

Salut patrick :)

 

Ce matin en ouvrant ce post, je me dit chouette on va essayer.

Et bien non, ca ne marche pas :( .

 

Je viens de faire un essai est voilà ce que cela fait (c'est la même chose que pour mon lisp):

http://bseb67.free.fr/cadxp/hachure/resize_bloc_hachure.PNG

 

Un regen est aussi nécessaire

[Patrick_35]

Re

 

Ben, chez moi, ça fonctionne

 

Il doit y avoir quelque chose dans les variables ou dans l'environnement d'autocad.

 

ps : Je suis sur A2009

 

@+

[bseb67]

Re,

 

J'ai essayé sur ma 2010: et bien ca marche aussi.

 

Dans mon lisp je lance ma dcl pour choisir les dimensions,

puis je la ferme et lance une fonction pour la mise à jour des paramètres.

 

Et donc là, ca ne marche pas. Mais si je relance juste la fonction de mise à jour

des paramètres directement dans la console (avec les mêmes valeurs), et bien là ca

marche.

 

alors je me suis, bon, on fait un simple repeat 2 dans le lisp. Et bien non :mad:

marche pas non plus. je pensais que cela venait de la dcl, mais je ne crois pas;

car avec ceci:

 

(defun c:ttt()
(setq bl (vlax-ename->vla-object (car (entsel)))
     pr (vlax-invoke bl 'getdynamicblockproperties)
     la (nth 0 pr)
     ht (nth 2 pr)
)

(vlax-put la 'value 600.0)
(vlax-put ht 'value 600.0)
 )

si je lance 2 fois ttt => l'affichage est correct.

 

Mais avec ceci:

(defun tttt( bl)
(setq pr (vlax-invoke bl 'getdynamicblockproperties)
      la (nth 0 pr)
      ht (nth 2 pr)
)

(vlax-put la 'value 600.0)
(vlax-put ht 'value 600.0)
 )

(defun c:pop()
 (setq bl (vlax-ename->vla-object (car (entsel))))
 (tttt bl)
 (tttt bl)
)

en lancant pop => ca ne marche pas

 

 

Bon, je vais chercher s'il y a une variable pour ca.

 

[Patrick_35]

Ben, en lancant une fois ttt, c'est ok.

De même pour pop.

 

Un princ à la fin peut régler le problème ?

 

ps : et un test sur un autre poste, voir une autre version ?

 

@+

[bseb67]

J'ai laissé tombé pour mes lisps.

 

J'ai refait mes blocs dynamiques et y mettant des paramètres de consultations.

Ainsi l'utilisateur n'a accès qu'aux dimensions autorisées et les hachures suivent correctement

sur la 2007 et 2008.

 

De plus, je n'aurai pas droit au : "le lisp a planté"

 

 

Seul point négatif: la saisie des valeurs pour les tableaux de consultation.

 

merci encore patrick pour ton temps, si tu passes en alsace, préviens à temps ;)