miroir

[kdien]

juste 1 question par rapport aux problèmes de cotation et la commande miroir:

j'ai fait 1 bloc avec des cotations.

quand je fais le miroir du bloc, toutes les cotes sont à l'envers (mais si on édite le bloc , ya pas problème, toutes les cotes sont dans le bon sens)

j'ai essayé de mettre mirrtext à 1, mais ça marche pas.

qqn sait il comment y remédier ?

merci d'avance

 

[Bred]

Salut,

Je ne vois pas comment faire autrement que de l'explose et de le re-créer ensuite...

 

Tu trouveras ci-dessous un petit lisp qui automatise la procédure.

(defun c:ebm (/ B BEXP I N P S SS X)
(setq ss (ssget '((0 . "INSERT"))))
(repeat (setq i (sslength ss))
 (setq b (vlax-ename->vla-object (ssname ss (setq i (1- i))))
p (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint b)))
bexp (vla-explode b)
bexp (vlax-safearray->list (vlax-variant-value bexp))
s (ssadd)
n (itoa (fix (* (getvar "TDUSRTIMER") 10000000))))
 (vla-delete b)
 (mapcar '(lambda (x) (ssadd (vlax-vla-object->ename x) s)) bexp)  
 (command "_-block" n "_none" p s "")
 (command "_-INSERT" n "_none" p "1" "1" 0)
 )
 (princ)
 )

(NB : je sais, je melange de l'autolisp et de vl, mais créer un bloc et l'inserer en v-lisp est tellement tordu que je trouve beaucoup plus simple de le faire comme ça...)

 

[Edité le 12/11/2007 par Bred]

[Simon88]

Je n'y connais rien en lisp, mais je peux juste te dire que les textes de cotes sont à l'envers parce que, en faisant la commande miroir, l'échelle en x ou en y de ton bloc passe d'une valeur positive à une valeur négative. Donc à part en explosant comme le propose Bred...ou peut-être qu'il existe une variable du genre de mirrtext mais fonctionnant pour les textes imbriqués dans un bloc.

 

En espérant avoir pu t'aider.