étirer un cylindre

[etienne.leb-appac]

bonjour,

je souhaiterai savoir s'il est possible d'étirer un cylindre en tant que bloc 3D.

merci d'avance

[excalibur]

Salut

 

Il me semble que les blocs dynamiques ne fonctionnent pas pour les blocs en 3D.

 

Par contre un cylindre en 3D, créé par la barre d'outil "Modélisation" est étirable. Il suffit de se servir de la flèche lorsque l'on a sélectionné l'objet.

[etienne.leb-appac]

Merci,

vivement Autocad 2010 qu'ils nous fasse ça !!!

[rebcao]

Bonsoir,

 

Tu peux créer un Cylindre de 1x1 !

 

Tu dessines un Cylindre de diamètre = 1 et hauteur = 1.

 

Tu crées le bloc cylindre 3D et à l'insertion X=Y=LE Diamètre et Echelle en Z = HAUTEUR DU CYLINDRE.

 

Christian

[etienne.leb-appac]

merci

je vais tester ca

;)

[lesposito]

Tu peut aussi étirer ton cylindre avec la combinaison de touches CTRL+ALT ensuite tu cliques sur la face a étirer.

Bon parfois la saisie peut être un peu coton! Mais ça marche

[etienne.leb-appac]

en faite il faudrait que je puisse récupérer la longueur dans un attribut !!!

[bonuscad]

Si tu as choisi la solution du bloc donné par Christian, il est facile d'avoir la longueur/hauteur puisque c'est l'échelle en Z.

 

Ceci te retournera la valeur d'insertion en Z du bloc de ton cylindre sélectionné:

(cdr (assoc 43 (entget (car (entsel)))))

 

En poussant un peu, ont peu faire un filtre et cumuler ces valeurs pour l'ensemble du dessin de façon à avoir en retour le total des longueurs.

[bonuscad]

Si l'option des blocs t'attire, pas besoin d'attribut.

Voici le type de métré que tu pourrais faire (en fonction du diamètre et du calque)

 

(defun c:metre_cyl ( / ent dxf_ent diam js n lg_blk lst_lg)
 (while (null (setq ent (entsel "\nChoix du bloc Modèle: "))))
 (cond
   (ent
     (setq dxf_ent (entget (car ent)))
     (cond
       ((eq (cdr (assoc 0 dxf_ent)) "INSERT")
         (setq diam (cdr (assoc 41 dxf_ent)) q_calqu (cdr (assoc 8 dxf_ent)))
         (setq js (ssget "_X" (foreach n '(-1 330 5 10 43 50 210 70 71 44 45) (setq dxf_ent (vl-remove (assoc n dxf_ent) dxf_ent)))))
         (cond
           (js
             (setq n -1)
             (repeat (sslength js)
               (setq lg_blk (cdr (assoc 43 (entget (ssname js (setq n (1+ n)))))))
               (setq lst_lg (cons lg_blk lst_lg))
             )
             (textscr)
             (princ (strcat "\n" (itoa (1+ n)) " objet(s) trouvé(s) de diamètre " (rtos diam) " sur le calque " q_calqu))
             (princ "\nDe longueur individuel :")
             (foreach n (mapcar 'rtos lst_lg) (print n))
             (princ (strcat "\nSoit une longueur totale de : " (rtos (apply '+ lst_lg))))
           )
           (T (princ "\nAucun objet correspondant trouvé!"))
         )
       )
       (T (princ "\nN'est pas un bloc!"))
     )
   )
   (T (princ "\nSélection vide!"))
 )
 (prin1)
)

[(gile)]

Salut,

 

Peut-être les routines STRETCHINS et EDITLEN répondent à la demande ?

[etienne.leb-appac]

merci a vous,

 

mais pour moi le LISP et le VBA sont des choses qui me sont totalement étrangères !

j'ai bien regardé les commandes mais je n'y comprend rien !

je ne sait même pas rentrer un programme tout fait !

 

Y-a t-il des tutoriels ?

 

je vais tenter un peu de freestyle avec le code donné par Bonuscad.

 

merki again et a+

 

[(gile)]

Salut,

 

Regarde ce sujet.

[etienne.leb-appac]

merki Gile