Modification LISP "Faisceau"

[nicolas2]

Bonjour à tous.

J'avais cette routine pour dessiner des faisceaux d'échangeurs de chaleur.

La routine fonctionne très bien, mais serait-il possible de créer une deuxième version en apportant les modifications suivantes ? :

- Demander le "Ø des tubes" plutôt que le "petit rayon"

- Limiter l'extension des tubes à leur nombre ("nombre de tubes") plutôt qu'a un "Grand rayon".

 

http://img821.imageshack.us/img821/153/faisceauversion2.jpg

 

 

(defun c:Faisceau ( / pt_c s_rad g_rad pas key js tmp_rad obj e_length t_length pt)
 (vl-load-com)
 (initget 1)
 (setq pt_c (getpoint "\nPoint centre: "))
 (initget 7)
 (setq s_rad (getdist pt_c "\nPetit rayon: ") g_rad s_rad)
 (while (<= g_rad s_rad)
   (initget 7)
   (setq g_rad (getdist pt_c "\nGrand rayon: "))
 )
 (initget 1 "Triangulaire Carré _Triangular Square")
 (setq key (getkword "\nPas [Triangulaire/Carré]: "))
 (initget 7)
 (setq pas (getdist (if (eq key "Triangular") "\nPas triangulaire: " "\nPas carré: ")) js (ssadd))
 (setvar "cmdecho" 0)
 (command "_.undo" "_group")
 (command "_.circle" "_none" pt_c  s_rad)
 (setq js (ssadd (entlast) js))
 (command "_.circle" "_none" pt_c g_rad)
 (setq tmp_rad (if (eq key "Triangular") (* (sqrt 3) 0.5 pas) pas))
 (while (<= (+ tmp_rad s_rad) g_rad)
   (command "_.polygon" (if (eq key "Triangular") "3" "4") "_none" pt_c "_circumscribed" tmp_rad)
   (setq
     obj (vlax-ename->vla-object (setq e_last (entlast)))
     e_length 0.0
     t_length (vlax-get-property obj 'Length)
   )
   (while (< e_length t_length)
     (setq pt (vlax-curve-getPointAtDist obj e_length))
     (if (<= (+ (distance pt (trans pt_c 1 0)) s_rad) g_rad)
       (progn
         (command "_.circle" "_none" (trans pt 0 1) s_rad)
         (setq js (ssadd (entlast) js))
       )
     )
     (setq e_length (+ e_length pas))
   )
   (entdel e_last)
   (setq tmp_rad (if (eq key "Triangular") (+ tmp_rad (* (sqrt 3) 0.5 pas)) (+ tmp_rad pas)))
 )
 (command "_.undo" "_end")
 (setvar "cmdecho" 1)
 (command "_.rotate" js "" pt_c)
 (prin1)
)

 

Merci à vous pour votre aide.