Aller au contenu
Problème de lien d'inscription (résolu ?) ×

Générateur de profil métallique 2d et 3d

usegomme

Par usegomme
dans Routines LISP

 Partager

Messages recommandés

  • Réponses 62
  • Créé
  • Dernière réponse

Meilleurs contributeurs dans ce sujet

Jours populaires

Meilleurs contributeurs dans ce sujet

Jours populaires

lili2006 Rising Star

lili2006

Posté(e)
Posté(e)

Bonsoir à toutes et tous

 

Super, Refonctionne à nouveaux !

 

Je ne retrouve pas le post de départ car je souhaiterai avoir les profils en "cm" dans l'EO, c'est à dire dix fois plus petit qu'actuellement (les BE structures béton pour les fondations travaillent en cm,...) et (gile) m'avait donné une ligne ou deux à rajouter (ou modifier, je ne sais plus) pour arriver à ce résultat,...

 

Il me semble également qu'il fallait cocher "Créer un bloc",..

 

Mais bon, j'espère finir par y arriver seul,...

 

Encore un grand merci à toi usegomme, :P :D

Civil 3D 2025 - COVADIS_18.3b

https://www.linkedin...3%ABt-95313341/

Tramber Apprentice

Tramber

Posté(e)
Posté(e)

Tu peux toujours, il a peut-être coché pour recevoir un courriel....

En tous cas, j'ai découvert ce sujet et c'est intéressant et amusant.

Sympe le lien pour le logiciel de calcul. Bravo au concombre ! (ceci dit on ne peut pas faire démarrer le module de flexion sans un certain fichier .ins. Il faudrait ce module a notre routine !).

 

[Edité le 19/6/2009 par Tramber]

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
lili2006 Rising Star

lili2006

Posté(e)
Posté(e)

Bonjour à toutes et tous,

 

Merci usegomme,

 

Décidément, j'suis une vrai bille en recherche !!! :red:

 

J'étais convaincu que ce n'était pas moi qui avait lancé le sujet (et d'une) et de deux que ce sujet avait dérivé d'un autre de tes sujets,....

 

Allez savoir pourquoi,

 

 

Bref, quand on tape profil en zone de recherche, pas de pb pour retrouver ce post car le titre correspond bien au thème du post (comme ce n'est malheureusement pas toujours le cas,... :mad: )

 

Quoi qu'il ensoit, je vais allez y faire un tour et reviens vers vous,...

 

Il faudrait ce module a notre routine

 

Il est clair que l'on aurait alors un p'tit utilitaire Tip-Top,.... :D

Civil 3D 2025 - COVADIS_18.3b

https://www.linkedin...3%ABt-95313341/

  • 7 mois après...
FRAXA Newbie

FRAXA

Posté(e)
Posté(e)

Bonjour,

 

J'ai découverts ce superbe lisp cependant je voudrais savoir s'il est possible de transformer la ligne qui sert de chemin pour l'extrusion en bloc avec comme attributs:

- nom à rentrer manuellement,

- nom du profil utilisé avec le lisp FTD

- éventuellement la longeur de la ligne qui sert à l'extrusion.

 

Le lisp Pline_Block de Gile pourrait servir de base

 

merci d'avance

HPZ400 Workstation

Intel Xeon W3550 3.07 GHz

6 Go ram

QUADRO FX 1800

  • 2 semaines après...
aldo127 Newbie

aldo127

Posté(e)
Posté(e)

Bonjour,

 

Marche nikkel, mais peux-tu ajouter dans le lisp profil que je connaissais déjà, un choix pour l'unité d'insertion du profil soit mm, cm ou m et évidement un scale en fonction, ce serait top.

 

Merci

usegomme Newbie

usegomme

Posté(e)
  • Auteur
Posté(e)

Bonjour

un choix pour l'unité d'insertion du profil soit mm, cm ou m

C'est noté , je verrai ce que je peux faire à l'occasion.

 

- nom à rentrer manuellement,

- nom du profil utilisé avec le lisp FTD

- éventuellement la longeur de la ligne qui sert à l'extrusion

Voilà un premier jus en attendant que je termine , je l' ai appellé FTDR pour fer 3d renseigné, Il faut aussi re-télécharger Profil.lsp et éventuellement FTD auquel j'ai apporté une correction .

Ici le téléchargement

Le style standard est utilisé pour les attributs ,et il doit être de hauteur zéro.

Pour ce qui ne veulent pas de l'axe , il y a juste des ; à mettre ou à déplacer dans le lisp suivant commentaires.[Edité le 8/2/2010 par usegomme]

 

[Edité le 2/3/2010 par usegomme]

usegomme Newbie

usegomme

Posté(e)
  • Auteur
Posté(e)

Bonjour , j'ai rectifié le lien au-dessus et voici FTDR.lsp amélioré .

 

;; FTD R--> Fer 3 D Renseigné   
;; version 4.1  de ftd    08-02-2010   usegomme sur Cadxp.com
;; tracer un profilé 3D en passant par des points et en selectionnant sa section
;; grace à l'interface écran de L.Bouquillon 
;; et de PROFIL.LSP de L.Bouquillon ,adapté par Maxence Delannoy,
;; et modifié par moi-même , sans lequel cette petite routine ne peut pas fonctionner.

(defun c:FTDR (/ pt_i_fer ftd:clore ftd:ps ftd:sommets ftd:profmet ftd:point
       ftd:fer ftd:pp ftd:axefer  i pt_i_fer_SCG ftd:ps_SCG att1 att2 att3 pc_SCG) 

 (if (null c:PROFIL)(load "PROFIL")) 
 
 (setq pt_i_fer (getpoint "\n Point de départ du fer: "))
 (if pt_i_fer (setq ftd:clore nil  ftd:ps (getpoint pt_i_fer "\n point suivant  : ")))
 (cond
   ((and pt_i_fer ftd:ps)  
     (command "_undo" "_be")
     ; sauve scu courant
     (command "_ucs" "_s" "tempftd") 
     (if (not (zerop (getvar "cmdactive")))(command "_y"))
     
     (command "_line" "_none" pt_i_fer "_none" ftd:ps "")
     (setq ftd:axefer (entlast))
     
     (setq pt_i_fer_SCG (trans pt_i_fer 1 0)) 
     (setq ftd:ps_SCG (trans ftd:ps 1 0))
     (command "_ucs" "_zaxis" "_none" pt_i_fer "_none" ftd:ps)
     (setq pt_i_fer (trans pt_i_fer_SCG 0 1))
     (setq ftd:ps (trans ftd:ps_SCG 0 1))

     ; sauve scu zaxis
     (command "_ucs" "_s" "tempftdzaxis") 
     (if (not (zerop (getvar "cmdactive")))(command "_y"))
     
     (c:profil)  ;; choix profil

     (setq ftd:profmet (entlast))
     (setq pc_SCG (trans pc 1 0))
     
     (setq pt_i_fer_SCG (trans pt_i_fer 1 0)) 
     (setq ftd:ps_SCG (trans ftd:ps 1 0))     
     (command "_ucs" "_x" "-90")
     (setq pt_i_fer (trans pt_i_fer_SCG 0 1))
     (setq ftd:ps (trans ftd:ps_SCG 0 1))     
     
     (setq pt_i_fer_SCG (trans pt_i_fer 1 0)) 
     (setq ftd:ps_SCG (trans ftd:ps 1 0))     
     (command "_ucs" "_Z" "-90")
     (setq pt_i_fer (trans pt_i_fer_SCG 0 1))
     (setq ftd:ps (trans ftd:ps_SCG 0 1))      
     
     (setq ftd:sommets (list ftd:ps))

     ;; extrusion suivant chemin (path)
     (command "_extrude" ftd:profmet "" "_p" ftd:axefer)
     (setq ftd:fer (entlast))
     (while ftd:ps
       (setq ftd:pp ftd:ps)
       (if (< i 2)
         (setq ftd:ps (getpoint ftd:pp "\n point suivant :"))
         (progn
           (initget "Clore")
           (setq ftd:ps (getpoint ftd:pp "\n point suivant [Clore] :"))
           (if (= ftd:ps "Clore")
             (setq ftd:clore t)
           )
         )
       )
       (if ftd:ps
         (progn
           (if ftd:clore
             (setq ftd:ps nil)
             (setq ftd:sommets (append ftd:sommets (list ftd:ps)))
           )
           (entdel ftd:fer); efface fer 3d
           ;efface AXE précédent
           (if (or (= 0 (getvar "delobj"))(= 1 (getvar "delobj")))
             (entdel ftd:axefer)
           )
           (command "_3dpoly" "_none" pt_i_fer)
           (setq i 0)
           (repeat (length ftd:sommets)
             (setq ftd:point (nth i ftd:sommets))
             (command "_none" ftd:point)
             (setq i (1+ i))
           )
           (if (not ftd:clore)
             (command "")
             (command "_c")
           )
           (setq ftd:axefer (entlast))
           (if (or (= 1 (getvar "delobj"))(= 2 (getvar "delobj")))
             (entdel ftd:profmet) ; restaure profil 2d
           )
           (command "_extrude" ftd:profmet "" "_p" ftd:axefer)
           (setq ftd:fer (entlast))
           
         )
       )
     )

 ;; AXE présent ou pas suivant variable delobj en désactivant les 2 options ci-dessous
 ;;   ou bien 
 ;  AXE TOUJOURS EFFACé  (oter les ;)
  ;   (if (= 1 (getvar "delobj"))
   ;    (entdel ftd:axefer) ;efface AXE
   ;  )
   ;; ou AXE TOUJOURS PRESENT (oter les ;)
        (if (= 2 (getvar "delobj"))
         (entdel ftd:axefer) ;restaure AXE
       )
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Longueur totale du ou des segments
     (setq i 0 longF nil)
           (repeat (length ftd:sommets)
             (setq ftd:point (nth i ftd:sommets))
      (if (= i 0) (setq p1 pt_i_fer))
      (if longF
       (setq longF (+ longF (distance p1 ftd:point)) p1 ftd:point)	
              (setq longF (distance p1 ftd:point) p1 ftd:point)
      )	
             (setq i (1+ i))
           )
           (if ftd:clore
              (setq longF (+ longF (distance ftd:point pt_i_fer)))
           )
      (setq longF (rtos longF 2 1))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  

;; création attributs

 (setq st (getvar "textstyle"))
 (setvar "textstyle" "standard")
 (setq tsize (getvar "textsize"))   
 (setq af (getvar "aflags"))           
 (setq modelfer (strcat fer type_fer))
 (setq ht (* 0.08 h_fer)) ; hauteur texte
 (setq it (* 1.4 ht))          ; intervale ligne texte


 (if (or (= fer "IPE") (= fer "IPN") (= fer "HEA") (= fer "HEB") (= fer "COR") (= fer "CORL") (= fer "HEM") (= fer "IPEA"))
     (command "_ucs" "_x" "90")
 )
     
 (setq pc (trans pc_SCG 0 1))  
 (setvar "aflags" 0)
 ; (setvar "aflags" 1)  ;;;  invisible
 (command "_-attdef" "" "NOM" "quel nom ?" "?"   "_non" (polar pc (* 0.5 pi) (+ (* 2 it) (* 0.25 ht)))  ht "0")
 (setq att1 (entlast))
 (setvar "aflags" 8)  ;;; prédéfini
  ; (setvar "aflags" 9)  ;;; prédéfini et invisible
 (command "_-attdef" "" "PROFIL" "PROFIL" modelfer  "_non" (polar pc (* 0.5 pi) (+ it (* 0.25 ht)))  ht "0")
 (setq att2 (entlast))
 (setvar "aflags" 8)   ;;; prédéfini
 (command "_-attdef" "" "LONG"  "Longueur" longF  "_non" (polar pc (* 0.5 pi) (* 0.25 ht))  ht "0")
 (setq att3 (entlast))
    
 ; alignement angulaires des attributs
 (command "_ucs" "_r" "tempftdzaxis")
 (command "_rotate" att1 att2 att3 "" "_non" '(0. 0. 0.) "")
 (command "_ucs" "_p")

; nom du nouveau bloc

 (setq nom (strcat modelfer "-" (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) "_"))
 (setq nomb (strcat  nom "1"))   
 (setq i 1 )  
 (while (tblsearch "block"  nomb)
  (setq i (1+ i))
  (setq nomb (strcat  nom (itoa i)))
 )
     
; créer et insérer  bloc
 
 (command "_-block" nomb "_non" '(0. 0. 0.) att1 att2 att3 ftd:axefer "")
 (setq atdia (getvar "attdia"))
 (setvar "attdia" 1)
 (command "_-insert" nomb "_non" '(0. 0. 0.) "" "" "0" )
 (setvar "attdia" atdia)

 (setvar "aflags" af)
 (setvar "textsize" tsize )  
 (setvar "textstyle" st)
 
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
   (command "_ucs" "_r" "tempftd")
   (command "_undo" "_e")
   )
 )
 (princ)
)

lili2006 Rising Star

lili2006

Posté(e)
Posté(e)

Bonsoir à toutes et tous,

 

De plus en plus fort usegomme !

 

J'ai pas eu le tps de tester et puis j'ai un peu peur de perdre ce qui fonctionne déjà bien pour moi !

 

Au final, pourrais-tu préciser ce que fait cette version et à quoi renvoi le lien donné dans ton message précédent ? (Il y a eu également des modifs sur "profil_met" ?)

 

Voilà un premier jus en attendant que je termine , je l' ai appellé FTDR pour fer 3d renseigné, Il faut aussi re-télécharger Profil.lsp et éventuellement FTD auquel j'ai apporté une correction .

 

??

 

Merci pour ces éclaircissement,...

 

Et déjà, bravo pour ce travail,... :D

Civil 3D 2025 - COVADIS_18.3b

https://www.linkedin...3%ABt-95313341/

usegomme Newbie

usegomme

Posté(e)
  • Auteur
Posté(e)

Bonsoir,

Lilian, j'ai juste essayé de répondre à la demande de Fraxa , ci-dessous :

J'ai découverts ce superbe lisp cependant je voudrais savoir s'il est possible de transformer la ligne qui sert de chemin pour l'extrusion en bloc avec comme attributs:

- nom à rentrer manuellement,

- nom du profil utilisé avec le lisp FTD

- éventuellement la longeur de la ligne qui sert à l'extrusion

Ce n'est pas de plus en plus fort , juste un peu coton pour moi qui ne suis pas très fort justement.

En ce qui concerne profil.lsp , j'ai dû rajouter une variable intermédiaire pour récupérer la hauteur du fer pour FTDR.lsp , sinon il y a une correction concernant l'affichage des caractéristiques de la cornière inégale sélectionnée , qui est maintenant complet.

Je sais que cela est embêtant pour les modifs que tu as fait de ton coté , mais ...!

Pour FTD.lsp , tu peux utiliser la nouvelle version , j'ai simplement modifié le chargement de profil.lsp , le précédent était systématique et donc erroné (mea culpa) , maintenant le choix précédent reste en mémoire comme lorsqu'on utilise profil.lsp seul.

 

  • 3 semaines après...
usegomme Newbie

usegomme

Posté(e)
  • Auteur
Posté(e)

Bonjour , le choix de l'unité de mesure fonctionne aussi pour la création de bloc ,mais il y a toujours l'incrémentation du nom si le bloc est déjà présent dans le dessin.

usegomme Newbie

usegomme

Posté(e)
  • Auteur
Posté(e)

Salut ,

Je vais donc garder la technique que j'utilise

Au moins ça marche comme tu veux !

Mais je précise tout de même que l' unité de mesure n'est demandée que la première fois et est stockée dans "USERS5" , c'est du code à Bonuscad , gage de qualité .

J'espère au moins que cela satisfait Aldo127 , parce que personnellement, je dessine toujours en MM.

usegomme Newbie

usegomme

Posté(e)
  • Auteur
Posté(e)

Salut , je ne sais pas pourquoi le lien ne fonctionne plus en voici un autre indirect

Je ne voudrais pas dire de bétise mais j'ai bien l'impression que c'est pour une question d'affichage de publicité que ne permet pas le téléchargement direct.

 

[Edité le 2/3/2010 par usegomme]

thry0 Newbie

thry0

Posté(e)
Posté(e)

Merci mais je verrais ça de chez moi ce soir.

Blocage ici au boulot ... :mad:

lili2006 a pour habitude d'utiliser le site cijoint

et c'était parfait pour moi ... :cool:

 

 

aldo127 Newbie

aldo127

Posté(e)
Posté(e)

Je viens seulement de voir ta réponse et j'ai immédiatement testé ton lisp qui fonctionne nickel.

Testé avec AutoCAD 2010 Fr.

 

Merci beaucoup pour cette modification

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
 Partager
Aller sur la liste des sujets


×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité