AnasRyo

Bonjour, Petit REX de la part de Geomédia : Actuellement, avec l'ancien module, les nœuds des réseaux divers (AEP, ELEC, TEL, …) sont représentés par des blocs 2D. Ces objets 2D ne sont pas exportés au format IFC. Par contre, les tronçons sont bien exportés en IFC. Un nouveau module est apparu en version 17, avec une orientation "3D" et "BIM", destiné à replacer l'ancien module. Pour l'instant, ce nouveau module traite seulement EP et EU, et pas encore les réseaux divers. Je n'ai pas de solution automatiquement à votre problème. Il est nécessaire de modéliser en 3D chaque coude sous AutoCAD. Votre demande a été transmise au service "développement". Apparemment cela n'est pas encore faisable... En tous cas je vous remercie pour le temps que vous avez accordé à mon égard :)

Bonjour, Je travaille sur un projet dans lequel je dois exporter des réseaux VRD au format IFC. En important les réseaux sur Naviswork, les nœuds des réseaux AEP, ELEC, Télécom ne sont pas importés, mais uniquement les nœuds représentant les regards EP/EU, De plus en ouvrant le fichier IFC avec Bloc-notes, je n'ai pas retrouvé la classe IfcFlowFitting (responsable de la création des nœuds), du coup j'en ai déduit que le problème vient de Covadis (et pas de Navisworks) Merci d'avance :)

This post made my day :D

Merci encore une fois Grand Lisposhtroumpf. Feedback : Apparament la Solution 2 : "A = " (angtos (- pi (* 2 alpha)) (getvar "AUNITS") 4) est la meilleure, vu qu'elle marche quelque soit l'unité angulaire du fichier AutoCAD alors que la première solution marche uniquement sur des fichiers ayant le gradian comme étant unité angulaire. Mes sincères salutations :)

Non ce n'est pas la même chose je viens de fournir une explication sur l'autre forum de Autodesk, + bonuscad si je ne te dérange pas pourrai-je avoir une version "en grade" du LISP des ARTDB ? Merci :)

Super, marche à merveille, Un Grand merci à vous deux :)

Bonjour, J'ai un LISP qui permet de générer les ARTDB mais malheuresement il ne marche pas, lorsque je sélectionne un objet l'erreur suivant m'apparait : "; erreur: type d'argument incorrect: lentityp nil" J'ai essayé sur AutoCAD 2008 et AutoCAD 2004 mais même problème. ;-------------------------------------------------------------------- ; Le programme ARTBD.LSP permet de calculer ; les A.R.T.B.D d'un arc de cercle aprŠs avoir choisi ; … l'ecran les droites qui le forment. Tout echelle ;-------------------------------------------------------------------- (defun c:art () (graphscr) (setq pi 3.141592654) (setq fin 1) (if (= echell nil) (setq echell 1000)) (setq text_ech (strcat "\nL'echelle de sortie <" (rtos echell 2 2) "> : ")) (setq val_ech (getreal text_ech)) (if (/= val_ech nil) (setq echell val_ech)) (setq haut(/ (* 1.7 echell) 1000)) (setq rac (/ 1000 (* echell))) (setq rac1 (/ 3.85 (* rac))) (setq rac2 (/ 3 (* rac))) (setq or1 (getangle "\nAngle d'orientation")) ;;;; (if (= anglea nil) (setq anglea 1)) ;;;; (setq or2 (strcat "\nAngle d'orientation <" (rtos anglea 2 2 ) "> : ")) ;;;; (setq or1 (getangle or2)) ;;;; (if (/= or1 nil) (setq anglea or1)) (while fin (setq or or1) (setq or (* (/ or pi) 180)) (print or) (if (< or 90) (setq gis (- 90 or))) (if (and (< or 180) (> or 90)) (setq gis (- 450 or))) (if (and (< or 270) (> or 180)) (setq gis (- 450 or))) (if (and (< or 360) (> or 270)) (setq gis (- 450 or))) (print gis) (setq gis (* (/ gis 180) pi)) ;--------------------------------- selection des droites formant ; l'arc de cercle ; (setq ent1 (entsel)) (setq ab (entget (car ent1))) (setq pta (cdr (assoc 10 ab))) (setq ptb (cdr (assoc 11 ab))) (setq xa (car pta)) (setq ya (cadr pta)) (setq xb (car ptb)) (setq yb (cadr ptb)) (setq ent2 (entsel)) (setq cd (entget (car ent2))) (setq ptc (cdr (assoc 10 cd))) (setq ptd (cdr (assoc 11 cd))) (setq xc (car ptc)) (setq yc (cadr ptc)) (setq xd (car ptd)) (setq yd (cadr ptd)) ;--------------------------------- calcul du sommet -------------- (setq a1 (/ (- ya yb) (- xa xb))) (setq a2 (/ (- yd yc) (- xd xc))) (setq b1 (- ya (* a1 xa))) (setq b2 (- yd (* xd a2))) (setq xs (/ (- b2 b1) (- a1 a2))) (setq ys (+ b1 (* a1 xs))) ;-------------------------------- calcul des gisements -------------- (setq pi2 (* pi 2)) (setq dxsa (- xs xa)) (setq dysa (- ys ya)) (setq dxsb (- xs xb)) (setq dysb (- ys yb)) (setq dxsc (- xs xc)) (setq dysc (- ys yc)) (setq dxsd (- xs xd)) (setq dysd (- ys yd)) (setq dsa (sqrt (+ (expt dxsa 2) (expt dysa 2) ))) (setq dsb (sqrt (+ (expt dxsb 2) (expt dysb 2) ))) (if (> dsa dsb) (progn (setq dx (- xa xs)) (setq dy (- ya ys)) )) (if (< dsa dsb) (progn (setq dx (- xb xs)) (setq dy (- yb ys)) )) (setq gd (atan (/ dx dy))) (if (and (< dx 0) (> dy 0)) (setq gd (+ pi2 gd))) (if (< dy 0) (setq gd (+ gd pi))) ;----------------------------------------------- (setq dsc (sqrt (+ (expt dxsc 2) (expt dysc 2) ))) (setq dsd (sqrt (+ (expt dxsd 2) (expt dysd 2) ))) (if (> dsc dsd) (progn (setq dx (- xc xs)) (setq dy (- yc ys)) )) (if (< dsc dsd) (progn (setq dx (- xd xs)) (setq dy (- yd ys)) )) ;(if (/= xs xc) (setq dx (- xc xs))) ;(if (= xs xc) (setq dx (- xd xs))) ;(if (/= ys yc) (setq dy (- yc ys))) ;(if (= ys yc) (setq dy (- yd ys))) (setq ga (atan (/ dx dy))) (if (and (< dx 0) (> dy 0)) (setq ga (+ pi2 ga))) (if (< dy 0) (setq ga (+ ga pi))) ;------------------------------ calcul de l'angle A -------------------- (setq angletopo (- ga gd)) (if (< angletopo 0) (setq angletopo (+ angletopo pi2))) ;(if (< angletopo 0) (setq angletopo (+ angletopo pi2))) (print (/ (* angletopo 200) pi)) (setq angleint (abs (- pi angletopo))) (print (/ (* angleint 200) pi)) ;------------------------------ saisie du rayon ------------------------- (setq rayon (getreal "\nEntrez le rayon : ")) ;------------------------------ calcul de T B D ------------------------- (setq T (* rayon (/ (sin (/ angleint 2)) (cos (/ angleint 2))))) ;(setq T (abs (T))) (setq B (- (sqrt (+ (expt T 2) (expt rayon 2))) rayon)) ;(setq B (abs (B))) (setq D (* rayon angleint)) ;(setq D (abs (D))) ;------------------------- affichage … l'ecran du rectange des ARTBD---- (setq an ( / (* angletopo 200) pi)) (setq pos1 (getpoint "Point d'insertion : ")) (setq gis1 gis) (print gis1) (setq gis2 (+ gis1 (/ pi 2))) (print gis2) (setq gis3 (+ gis2 (/ pi 2))) (print gis3) (setq pos2 (list (+ (car pos1) (* 12 (* haut (sin gis1)))) (+ (cadr pos1) (* 12 (* haut (cos gis1)))) )) (setq pos3 (list (+ (car pos2) (* 10 (* haut (sin gis2)))) (+ (cadr pos2) (* 10 (* haut (cos gis2)))) )) (setq pos4 (list (+ (car pos3) (* 12 (* haut (sin gis3)))) (+ (cadr pos3) (* 12 (* haut (cos gis3)))) )) (command "_line" pos1 pos2 pos3 pos4 pos1 "") ;----------- formation des textes correspondant a ARTBD-------- (setq tex (strcat "A = " (rtos an 2 2))) (setq gis12 (/ (+ gis1 gis2) 2)) (setq posa (list (+ (car pos1) (* rac1 (sin gis12))) (+ (cadr pos1) (* rac1 (cos gis12))) )) (command "_Text" posa haut or tex) (setq tex (strcat "R = " (rtos rayon 2 0))) (setq posr (list (+ (car posa) (* rac2 (sin gis2))) (+ (cadr posa) (* rac2 (cos gis2))) )) (command "_Text" posr haut or tex) (setq tex (strcat "T = " (rtos T 2 2))) (setq post (list (+ (car posr) (* rac2 (sin gis2))) (+ (cadr posr) (* rac2 (cos gis2))) )) (command "_Text" post haut or tex) (setq tex (strcat "B = " (rtos B 2 2))) (setq posb (list (+ (car post) (* rac2 (sin gis2))) (+ (cadr post) (* rac2 (cos gis2))) )) (command "_Text" posb haut or tex) (setq tex (strcat "D = " (rtos D 2 2))) (setq posd (list (+ (car posb) (* rac2 (sin gis2))) (+ (cadr posb) (* rac2 (cos gis2))) )) (command "_Text" posd haut or tex) (setq xsy1 (+ (* rac2 10) xs)) (setq xsy2 (+ (* rac2 15) ys)) (setq xy (list xsy1 xsy2)) (setq tex (strcat "Y = " (rtos ys 2 2))) (setq posx (list (+ (car xy) (* rac2 )) (+ (cadr xy) (* rac2 )) )) (command "_Text" posx haut "0" tex) (setq tex (strcat "X = " (rtos xs 2 2))) (setq posy (list (+ (car posx) ) (+ (cadr posx) (* rac2) ) )) (command "_Text" posy haut "0" tex) (setq px (+ (* rac2 0.5) xsy1)) (setq py (+ (* rac2 0.5) xsy2)) (setq pos6 (list px py)) (setq pos7 (list (+ (car pos6) (* 14 haut)) (+ (cadr pos6)) )) (setq pos8 (list (+ (car pos7)) (+ (cadr pos7) (* 4.5 haut)) )) (setq pos9 (list (+ (car pos8) (- (* 14 haut))) (+ (cadr pos8)) )) (command "_line" pos6 pos7 pos8 pos9 pos6 "") (setq xpt1 (+ xs (* T (sin gd)))) (setq ypt1 (+ ys (* T (cos gd)))) (setq tp1 (list xpt1 ypt1)) (setq xpt2 (+ xs (* T (sin ga)))) (setq ypt2 (+ ys (* T (cos ga)))) (setq tp2 (list xpt2 ypt2)) (setq r (/ 2 (* rac))) ;; (command "_line" tp1 tp2 "") (command "_circle" tp1 r "") (command "_circle" tp2 r "") (command "_arc" tp1 "_e" tp2 "_r" rayon"") (command "_redraw") ;while ) ;--------fin du programme-------------------------------------------- ) http://pastebin.com/YWva5YML Merci ! :)

Bonjour, Je cherche un LISP pour générer les ARTBD qui marche sur AutoCAD 2008 J'ai déja essayé le LISP de bonuscad : http://pastebin.com/29a9pDnk Malheuresement ça n'a pas marché, AutoCAD m'affiche le message : "Sélectionner des Arcs/PolyArcs ." mais le curseur de la souris ne change pas en mode "sélection d'objet" du coup je n'arrive pas à sélectionner mon axe. Merci d'avance.

Sincères remerciements Grand-Schtroumpf Merci à vous :)

Rebonjour, Je voulais vous demander comment utilise-t-on le LISP "piscom" ? j'ai pas trop compris les étapes à suivre... et est ce que c'est possible d'exporter un Polyligne créée par la commande "Editer Polyligne" directement en Axe en plan PISTE ? ou le LISP est utilisable uniquement pour les Axes routiers composé d'éléments individuels (non polyligne), Cordialement

Bonjour, Très sincères salutations Grand-Schtroumpf du LISP :D, c'est vrai que ces LISPs sont un peu vieux mais c'est toujours utile pour les utilisateurs des anciens logiciels, ces LISP sont comme une sorte de perle pour nous (pour moi en tous cas), En tous cas merci infiniment pour votre temps et vos services pour la communauté, Bonne journée ! :)

Bonsoir Je recherche des LISP permettant de : -Dessiner une clothoide sur AutoCAD. -Dessiner une parabole sur AutoCAD. -Transférer l'axe en plan dessiné sur AutoCAD à Piste 5. -Transférer le profil en long dessiné sur AutoCAD à Piste 5. Remarque : Si quelqu'un possède la bibliothèque LISP de bonuscad et le logiciel OUTICAD prière de les partager pour que tous le monde en profite Merci, Bonne soirée ! :)