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

usegomme · le 4 mai 2007

Je voulais placer et générer facilement un profil en 3d , j'ai utilisé comme base le générateur de profil de Maxence Delannoy (PROFIL.LSP) dont j'ai complété la bibliothèque, et que j'ai un petit peu modifié pour qu'il fonctionne avec ma petite routine (FTD.LSP) qui demande les points de début et fin du profil puis lance PROFIL.LSP pour la sélection du fer et son point de base ainsi que sa rotation, ensuite FTD, extrude le profil suivant les 2 points indiqués au début.

Pour la 2d, PROFIL est à utiliser seul.

Je les ai testé avec la 2002 et la 2007.

Avec la 2007 on peut ensuite étirer le fer par les poignées.

J'ai placé l'ensemble dans les Télécharg. Membres http:// http://www.cadxp.com/UpDownload+index-req-getit-lid-146.html

Cet emplacement ne fonctionne plus voici un autre lien ici

[Edité le 17/12/2008 par usegomme]

usegomme · le 22 décembre 2008

J' avais oublié de désactiver les accroches objets , cela pouvait provoquer un décalage en 3D.

La version en ligne est rectifiée.

;; FTD --> Fer Trois D de Usegomme 20-02-2007 22-12-2008
;; tracer un profilé 3D en donnant 2 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:FTD ( / pt_i_fer pf)  
 (if (null profil) (load "PROFIL") (exit))
 (setq pt_i_fer (getpoint "\n Point de départ du fer: "))
 (if pt_i_fer (setq pf ( getpoint  pt_i_fer "\n Point final : ")))
 (cond
   ((and pt_i_fer pf) 
     (command "_undo" "_be")
     (command "_line" "_none" pt_i_fer "_none" pf "") 
     (setq axefer (entlast))
     (command "_ucs" "_zaxis" "_none" pt_i_fer "_none" pf)
     (setq pt_i_fer (trans (cdr (assoc 10 (entget axefer))) 0 1))
     (c:profil)
     (command "_extrude" "_L" "" "_p" axefer)  ;; extrusion suivant chemin (path)
     (entdel axefer)
     (command "_ucs" "_p")
     (command "_undo" "_e")
   ) 
 )
)

lili2006 · le 22 décembre 2008

Bonsoir à toutes et tous,

J'ai fais "mumuse" avec et je n'avais pas remarqué ce pb avec ta première version,...!!

Merci encore usegomme, :P

usegomme · le 9 février 2009

Salut,

j'ai modifié FTD pour pouvoir tracer un fer avec plusieurs tronçons soudés et éventuellement clos pour faire par exemple un cadre métallique soudé.

;; FTD --> Fer Trois D de usegomme 20-02-2007
;; version 2.1.2     11-02-2009
;; 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:FTD (/ pt_i_fer ftd:clore ftd:ps ftd:sommets ftd:profmet ftd:point
       ftd:fer ftd:pp ftd:axefer  i) 
 (if (null profil) (load "PROFIL") (exit))

 (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")
     (command "_line" "_none" pt_i_fer "_none" ftd:ps "")
     (setq ftd:axefer (entlast))
     (command "_ucs" "_zaxis" "_none" pt_i_fer "_none" ftd:ps)
     (setq pt_i_fer (trans (cdr (assoc 10 (entget ftd:axefer))) 0 1))
     (setq ftd:ps (trans (cdr (assoc 11 (entget ftd:axefer))) 0 1))
     (setq ftd:sommets (list ftd:ps))
     (c:profil)
     (setq ftd:profmet (entlast))
     ;; 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))
           
         )
       )
     )
     (if (= 1 (getvar "delobj"))
       (entdel ftd:axefer) ;efface AXE
     )
     (command "_ucs" "_p")
     (command "_undo" "_e")
   )
 )
 (princ)
)

[Edité le 10/2/2009 par usegomme]

j'ai retouché qlq variables[Edité le 11/2/2009 par usegomme]

Encore une retouche

[Edité le 11/2/2009 par usegomme]

lili2006 · le 9 février 2009

Bonsoir à toutes et tous,

De plus en plus fort !

Merci usegomme :P

J'ai cependant ce message au chargement =>

Commande: _appload FTD .lsp correctement chargé(s)
FTD .lsp correctement chargé(s)

Commande:
Commande:
Commande:
Commande: ftd
; erreur: La commande CHARGER n'a pas abouti: "PROFIL"

Commande:

Peut-être un conflit avec les profils en 2D ??

Est-ce que quelqu'un d'autre peut tester ?

Merci d'avance,

usegomme · le 10 février 2009

Bonjour, est-ce que profil.lsp se charge si tu fais un glisser-deposer de celui ci depuis l'explorateur windows dans un dessin ouvert ?

thry0 · le 10 février 2009

Bjr à tous,

Idem pour moi. Même message d'erreur

La Cde CHARGER cherche un fichier Polices de forme .shx

usegomme · le 10 février 2009

Effectivement , il y a un conflit entre ma nouvelle version et profil.lsp que je n'avais pas remarqué lors des essais probablement parce que j'utilise autoload pour charger les lisps,

je cherche le problème ...

En passant les noms de fonction dans profil sont trop simple du genre (ipe) là aussi il y a risque de soucis avec d'autres lisp.

usegomme · le 10 février 2009

J'ai remplacé le code au dessus , ça devrait fonctionner chez vous aussi . Mais je vais essayer de l'améliorer encore un peu.

speedy · le 10 février 2009

Bonjour à toutes et à tous

J'ai testé çà fonctionne....il faut juste chrgé profil.lsp avant et que les fichiers .dat et dcl soient dans un répertoire source d'Autocad).

@+

Michel a

lili2006 · le 10 février 2009

Bonsoir à toutes et tous,

Toujours pareil chez moi !

Commande: ftd
; erreur: La commande CHARGER n'a pas abouti: "PROFIL"
Commande:

usegomme · le 11 février 2009

Bonjour,

Lili2006 le problème doit venir de chez toi, j'ai réimporté le code depuis cadxp , désactivé mon chargement automatique, utilisé appload dans tous les sens sans problème d'autant que j'ai renommé les variables et qu'il n'y a pas de fonction dans ftd.lsp.

Il te faut vérifier si profil.lsp fonctionne seul et voir avec la 1er version de ftd.

Après je ne vois plus qu'un problème de chemin d' accès ou de mémoire dispo pour lisp.

lili2006 · le 11 février 2009

Bonjour à toutes et tous,

Peut-être un conflit avec Covadis ?, je ne sais,

Lorsque je tape en ligne de commande "profil", j'ai bien la BD avec les différents profils à choisir,...

Mais ne te tracasses pas usegomme,

Je pense aussi que cela vient de chez moi,...

Je testerai au lycée Vendredi.

Merci encore, :D

usegomme · le 12 février 2009

Salut , voici un autre version avec 3 changement de scu , pour permettre de dessiner un cadre à plat en étant en vue de dessus , ce n'est pas parfait car selon l'orientation du scu de départ, le basculement du fer n'est pas toujours ce que l'on voulait.

Merci à (gile) en passant, ses explications sur la fonction (trans.. ) m' ont permit ces changements de scu.

En espérant n'être pas le seul à pouvoir le faire fonctionner.

;; FTD --> Fer Trois D de usegomme 20-02-2007
;; version 3     12-02-2009
;; 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:FTD (/ 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) 
 (if (null profil) (load "PROFIL") (exit))

 (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))
     
     (c:profil)
     (setq ftd:profmet (entlast))
     
     (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))
           
         )
       )
     )
     (if (= 1 (getvar "delobj"))
       (entdel ftd:axefer) ;efface AXE
     )
     (command "_ucs" "_r" "tempftd")
     (command "_undo" "_e")
   )
 )
 (princ)
)

thry0 · le 12 février 2009

Bjr,

Sur une 2006 et une 2007 erreurs de chargement

Une 1ère pour le lisp PROFIL

--> Commande: PROFIL

; erreur: type d'argument incorrect: stringp nil

La boite de dialogue apparait furtivement puis disparait

avec ce message d'erreur ...

Et FTD donne le message suivant

--> Commande: ftd

; erreur: La commande CHARGER n'a pas abouti: "PROFIL"

Bien que les 2 lisp aient été bien chargés

--> Commande: _appload Profil.lsp correctement chargé(s)

Commande: Profil.lsp chargé. Tapez PROFIL

Commande:

Commande: _appload FTD.LSP correctement chargé(s)

Je ne sais pas si lili2006 à résolu ce problème qu'il avait rencontré lui aussi

speedy · le 12 février 2009

Bonjour à toutes et tous

il fonctionne ce dernier code que j'ai testé....comme j'ai dit au dessus..

il faut mette tous les fichiers .dat dans repertoire support d'autodesk si vous ne savez pas faire autrement, charger profil.lsp et puis charger ftd 3.0 de usegomme pour finir

ensuite vous taper ftd et vous commencez par vous positionner..et voilà

çà fonctionne avec autocad 2007.....

Michel a

lili2006 · le 12 février 2009

Bonjour à toutes et tous,

Je viens de tester sur un autre PC, pas de pb, tout fonctionne à merveille (C'est d'ailleurs super, merci encore usegomme:P ), alors que sur mon poste, j'ai toujours ce message =>

Commande: ftd
; erreur: La commande CHARGER n'a pas abouti: "PROFIL"
Commande:

Un conflit, surement, mais lequel ???

Peut -être avec le programme "CAPTOPO" que j'ai testé dernièrement et qui fais également appel à un lisp de même nom,...

Dés que j'ai 5 mn, je regarde plus en détail,..

thry0 · le 12 février 2009

Re,

J'ai effacé tous mes chemins de fichiers support

et les ai à nouveau renseigné ... et ça marche !?!

Pas tout compris sur ce coup là, mais bon... désolé !

lili2006 · le 12 février 2009

Rere,

Pas tout compris sur ce coup là, mais bon..

Des fois, le principal, c'est qu'ça marche,... ;)

Tant mieux !

lili2006 · le 12 juin 2009

Bonsoir à toutes et tous,

Après nettoyage de printemps et réorganisation de ma machine (cf ce post, je n'arrive plus à afficher la BD des profils, ou plutôt, elle s'affiche en un éclair et disparait,..

Cela m'était déjà arrivé avec Totalaera de (gile). Il me semble qu'il manquait un p'tit machin d'initialisation,...

si quelqu'un à une idée,...

En ligne de commande => Un rapport avec les fichiers ".dat" ? (Ils sont pourtant bien sur un chemin de recherche autoCAD !)

Commande:
Commande: PROFIL ; erreur: no function definition: MENU_IMAGE
Commande:

Merci d'avance,

usegomme · le 12 juin 2009

Salut Lilian , est-ce que tu as toujours "gene_pro.dcl" et "gene_pro.slb" . Si oui , ?..

A+

lili2006 · le 13 juin 2009

Bonjour à toutes et tous,

Merci de ta réponse usegomme,

J'ai bien ces fichiers dans les chemins de recherche,..

D'ailleurs, dans le 1/4 de seconde de l'affichage, je vois bien ma BD pour l'image du profilé, je suis moins sûr ,...

Cela m'étais déjà arrivé, mais je ne sais plus comment réglé le pb,...

Trop fort, j'ai même réussi à faire une capture,... :D

http://free0.hiboox.com/images/2409/abbf5f78ec8b50886b0397a82142ea92.jpg

Merci encore, ;)

usegomme · le 15 juin 2009

Je ne t'oublie pas , je vais renommer cette fonction et sans doute quelques autres aux noms trop commun.

a+

Tramber · le 15 juin 2009

Joli boulot.

Tiens-nous au courant quand il y a des MAJ car je télécharge ;)

lili2006 · le 15 juin 2009

Bonjour à toutes et tous,

Merci d'avance usegomme, :D

Tiens-nous au courant quand il y a des MAJ car je télécharge

Moi aussi !!! :D :P

Je me rapelle avoir déjà galéré de la sorte mais je ne sais plus comment j'avais "réglé" le pb,...!!

C'est vrai que ce p'tit lisp (progiciel presque) est terrible !

C'est de plus en plus fréquent d'associer des structures béton (massifs-longrines) aux structures aciers,...

surtout en bâtiment industriel bien sûr,...

Connexion

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

Messages recommandés

usegomme

Meilleurs contributeurs dans ce sujet

Jours populaires

Meilleurs contributeurs dans ce sujet

Jours populaires

usegomme

lili2006

usegomme

lili2006

usegomme

thry0

usegomme

usegomme

speedy

lili2006

usegomme

lili2006

usegomme

thry0

speedy

lili2006

thry0

lili2006

lili2006

usegomme

lili2006

usegomme

Tramber

lili2006

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante