bonuscad

L'exemple que je t'ai donné, si tu le colle directement en ligne de commande, doit activer les grips sur les cotes concernées. Pour l'utilisation dans un lisp, il serait mieux d'abandonner (sssetfirst) et plutôt assimiler le jeux de sélection (ssget) à une variable genre (setq js (ssget ........))

Salut, Je ne sais pas si la proposition que je vais te faire va te satisfaire. En m'appuyant sur l'aide du code DXF 70 des DIMENSION Donc si tu ne veux sélectionner que des cotes Pivoté, horizontale ou verticale, ce type de filtre devrait fonctionner: (sssetfirst nil (ssget "_X" '((0 . "DIMENSION") (-4 . "&=") (70 . 0)))) Edit: Après quelque essais, je me suis rendu compte qu'il vaut mieux être exclusif pour que le filtre fonctionne bien. Celui qui suit sera plus distinctif que le précédent (sssetfirst nil (ssget "_X" '( (0 . "DIMENSION") (-4 . " (-4 . "") (-4 . "") (-4 . "") (-4 . "") (-4 . "") (-4 . "") (-4 . "AND>") ) ) ) [Edité le 28/3/2011 par bonuscad]

Salut, Un sujet similaire où (gile) et moi avions fais des propositions. Tu verras que cela n'est pas simple, tu peux contacter l'auteur du sujet voir si depuis il a avancé, mais cela m'étonnerait fort... :casstet: Tu peux reformuler ta demande X fois, mais je ne pense pas que cela fera avancer ton souhait. Un p'tit bout de code pour utiliser ACISdecode (defun c:AFFDON ( / LstEnt Elt) (setq LstEnt (entget (car (entsel "\nSélectionnez un corps 3D:")))) (textpage) (foreach Elt LstEnt (if (= (car Elt) 1) (progn (terpri) (princ (ACISdecode (cdr Elt))))) ) (princ) ) Bonne chance ;) [Edité le 27/3/2011 par bonuscad]

Mes suggestions, réflexions qui me viennent: Forum par version de compatibilité des dessins (regroupant donc plusieurs versions, en moyenne 4 versions, LT comprises, reprend le classement de Lecrabe) Possibilité pour les modos de mettre en entête fixe des forums quelques (4/5) tuto ou sujets récurant lié au forum choisi. Pour les images, l'usage externe d'autre site à l'inconvénient de rompre les liens (car peu les conservent sans limite de durée). En même temps si on a un tel service, cela risque de vite mettre en péril l'espace alloué au forum. Donc l'idée est louable mais techniquement j'ai peur que cela pose vite des problèmes de stockage, pour peu qu'un usage inconsidéré ou détourné en soit fait. (Par exemple hébergement d'image pour d'autres sites). On risque de se planter un coup de poignard en ayant ce genre de fonctionnalités. Autrement peut être que le nouveau système choisi va résoudre de lui même les handicaps d'interprétations des BBcodes, de recherche (Opérateurs ET/OU) sur le site. (Quel est il d'ailleurs?)

Bon, Avec MAP2009 sur Windows XP SP2 Choux blanc avec les différentes étapes du tuto du post d'original Pour fsharp_redist.exe je n'ai pas les droits d'admin pour l'installer et en plus j'ai vue que le SP3 était requis, donc... Avec cette config, ma contribution s'arrête ici. Peut être chez moi, si j'ai un petit moment.

Le coup de gueule de la CRIIRAD Un communiqué publié le 23/03/11 J'ai mis ce lien, mais le communiqué est également sur leur site (qui est difficile d'accès, actualité oblige...), donc ce n'est pas un fake. Cela confirme que l'on veut délibérément cacher des résultats qui sont connus. Même à Tokyo, aujourd'hui l'eau est redevenu potable pour les nourrissons, la radioactivité a disparu (30 ans en 24 h, sont forts ces Japonais...) :P

T'aurais du le choisir en plomb, histoire de protéger tes bijoux de famille... :red: Pour en revenir au plutonium, celui ci n'existe pas à l'état naturel à l'inverse des autres composants utilisés jusqu'ici dans la plupart des centrales mondiales. Ce produit (fabriqué par l'homme) se révèle l'un des plus toxique et radioactif et d'une durée de vie... (en milliard d'années, ça fait beaucoup de multiple de 30 ans!...) Fukushima n'était pas vraiment une centrale appropriée pour l'utilisation du MOX (il n'aurait même pas du alimenter ce genre de centrale). Celui ci est plus difficile à contrôler car la réaction commence vers les 600° (ce qui est très bas). On comprend d'ailleurs que le refroidissement à ici sa plus grande importance. Mais l'uranium se fait rare et cher, le MOX est intéressant financièrement et on se débarrasse d'une partie de nos déchets encombrants en les revendant.

Ben ca alors, je croyais que le puits de Deepwater était colmaté :exclam: http://www.dailymail.co.uk/news/article-1368156/Five-mile-wide-suspected-oil-slick-spotted-just-north-Deepwater-Horizon-explosion-site.html Ils tentent de dire que ce sont simplement des remontées de sédiments. Heureusement pour eux le Japon et la Libye orientent les préoccupations des médias ailleurs...

Bonjour, Nous avions eu le nuage de Tchernobyl qui s'était arrêté à la frontière. Pour celui de Fukushima la communication sur son déplacement est plus clair, on l'annonce aujourd'hui ou demain sur la France. En fait l'hémisphère Nord de la planète sera touché dans son ensemble avec une dissolution qui fait dire allégrement aux experts que celui n'aura que peu d'incidence sur la santé humaine. Personnellement je me demande si encore un énorme mensonge n'est pas dissimulé. A la différence de Tchernobyl, ici on a droit à un combustible (appelé MOX, vendu et utilisé par la France) qui est hautement plus toxique (plutonium) Pour le peu que je me suis documenté, j'ai retenu que ce dernier (bien que fortement ionisant) a du mal a franchir la barrière qui nous protège (à savoir la peau) au contraire du césium. Par contre l’inhalation d' une quantité vraiment très très faible.... (50 millièmes de milligramme) suffit à être mortelle (contamination par les poumons pour se fixer par la suite vers le foie et les os avec une durée de vie respective de 40 et 100 ans.) Donc je me demande si le nuage, bien qu'incapable de faire exploser les stations de mesures vu sa dissolution, ne sera pas plus hautement toxique que celui de Tchernobyl. Renifler une particule de 50 millièmes de milligramme, c'est si vite fait. Bon je ne veux pas être alarmiste, mais les mensonges, dissimulations sont tellement monnaie courante, que je me pose la question (même si celle ci ne change rien au problème) Pour moi, je ne me fais pas de soucis, on expliquera le cancer du poumon parce que je suis fumeur... :P

C'est bizarre, aujourd'hui il n'y a pas de sujet en double, triple, quadruple... Les infos rapides ont l'air d'être restés en rideau alors que le reste non. Peut être que si ce pavé était "quizzé" par le webmaster, le site fonctionnerait mieux... (Ce pavé n'est pas indispensable, si c'est lui qui pouvait poser problème) Bon c'est peut être pas de sa faute non plus, j'y connais rien en terme de gestion de connexion.

Arff..! Désolé, je fais même des doublons pour les réponses à cause du site qui répond pas bien. :( [Edité le 21/3/2011 par bonuscad]

Une recherche sur le site s'impose... Je suis sur qu'il y a ce qu'il faut. Et même si elle fait des blocs, rien ne t'empêche d'utiliser BURST ensuite pour obtenir des textes. Bonne recherche.

Salut, On y pense jamais assez, mais en créant un nouveau profil ? Cela arrive souvent à résoudre pas mal de problèmes...

Bonjour, Voici une traduction en commandes internationalisées, fonctionnera quelque soit la langue. PS: Edites ton message, tu as une balise certainement mal fermée. ;;; ======================================================================== ;;; Some of the following code are writen by QJCHEN ;;; Civil engineering Department, South China University of Technology ;;; Purpose: To Find each closed boundary in the selection ;;; Version: 0.1 ;;; Limitation: Can't generate the boundary by spline ;;; 2006.06.01 ;;; Thanks to the code from Korea friend from http://xoutside.com/ ;;; whose code find the intersections of two points and many object ;;; And thanks to the initial code from Mr.Tony Hotchkiss at Cadalyst ;;; Original post :www.Theswamp.org ;;; ======================================================================== (defun c:bb (/ clayer a b dis ay by th th0 lp rp inter1 inter1mid inter2 inter2mid i len plboundary ) (command "_.undo" "_begin") (startTimer) (setting) (setq clayer (getvar "clayer")) (command "_.layer" "_new" "bound" "_set" "bound" "_color" 3 "" "") (setq a (getpoint "\nCoin haut gauche: ")) (setq b (getcorner a "\nCoin bas droit: ")) (setq dis (getdist "\nDistance minimum: ")) (setq ay (nth 1 a) by (nth 1 b) ) (setq th by) (setq th0 dis) (while (< th ay) (setq lp (list (nth 0 a) th 0)) (setq rp (list (nth 0 b) th 0)) (grdraw lp rp 249) (setq inter1 (vl-Get-Int-Pt lp rp "bound" 0)) (setq inter1mid (midlist inter1)) (setq inter2 (vl-Get-Int-Pt lp rp "bound" 1) inter2mid (midlista inter2) ) (command "_.layer" "_set" "bound" "") (setq i 0 len (length inter1) ) (repeat (1- len) (setq midpoint (nth i inter1mid)) (if (not (member1 midpoint inter2mid)) (progn (setq plboundary (STD-BPOLY midpoint nil)) (if plboundary (setq inter2 (vl-Get-Int-Pt lp rp "bound" 1) inter2mid (midlista inter2) ) ) ) ) (setq i (1+ i)) ) (command "_.layer" "_set" clayer "") (setq th (+ th th0)) ) (resetting) (endTimer (vl-symbol-name 'c:bb)) (command "_.undo" "_end") ) ; (defun member1 (a b / res) (if b (foreach x b (if (< (distance x a) 0.01) (progn (setq res T) ) ; (setq res nil) ) ) ; (setq res nil) ) res ) (defun midlist (lst / len lst1 midpoint i) (setq i 0 len (length lst) ) (repeat (1- len) (setq midpoint (midp (nth i lst) (nth (1+ i) lst))) (setq lst1 (append lst1 (list midpoint) ) ) (setq i (1+ i)) ) lst1 ) (defun midlista (lst / len lst1 midpoint i) (setq i 0 len (length lst) ) (repeat (/ len 2) (setq midpoint (midp (nth i lst) (nth (1+ i) lst))) (setq lst1 (append lst1 (list midpoint) ) ) (setq i (+ i 2)) ) lst1 ) ;;; ----------------------------------------------------------------- ;;; | The following code taken xarch.tu-graz.ac.at/autocad/stdlib/ | ;;; | Thanks to the great code "STDLIB" that wrote by MR.Reini Urban| ;;; ----------------------------------------------------------------- (defun STD-BPOLY (pt ss / ele) (cond ((member (type C:BPOLY) '(SUBR EXRXSUBR EXSUBR)) (if ss (C:BPOLY pt ss) ; old arx or ads function (C:BPOLY pt) ) ) (pt ; >=r14: native command (setvar "CMDDIA" 0) (setq ele (entlast)) ; (std-break-command) (command "_.BPOLY" "_Advanced" "_Island" "_No" "") ; advanced options ; without island detection (if ss (command "_Bound" "_New" ss "") ) ; define boundary set if ss (command "" pt "") (setvar "CMDDIA" 1) (if (/= (entlast) ele) (entlast) ) ) ; return created BPOLY (T (alert "command _BPOLY not available") ) ) ) ;;; ------------------------------------------------------------------- ;;; | The following code are taken from xoutside.com | ;;; | http://xoutside.com/CAD/lisp/lisp_chair.htm | ;;; | Thanks to the Korea friend | ;;; | Purpose: Get the intersection of Two object | ;;; ------------------------------------------------------------------- (defun vl-Get-Int-Pt (FirstPoint SecondPoint lay layindex / acadDocument mSpace SSetName SSets SSet reapp ex obj Baseline ) (vl-load-com) (setq acadDocument (vla-get-ActiveDocument (vlax-get-acad-object))) (setq mSpace (vla-get-ModelSpace acadDocument)) (setq SSetName "MySSet") (setq SSets (vla-get-SelectionSets acadDocument)) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-add (list SSets SSetName ) ) ) (vla-clear (vla-Item SSets SSetName)) ) (setq SSet (vla-Item SSets SSetName)) (setq Baseline (vla-Addline mspace (vlax-3d-point FirstPoint) (vlax-3d-point SecondPoint) ) ) (vla-SelectByPolygon SSet acSelectionSetFence (kht:list->safearray (append FirstPoint SecondPoint ) 'vlax-vbdouble ) ) (vlax-for obj sset (if (setq ex (kht-intersect (vlax-vla-object->ename BaseLine) (vlax-vla-object->ename obj) lay layindex ) ) (setq reapp (append reapp ex ) ) ) ) (vla-delete BaseLine) (setq reapp (vl-sort reapp '(lambda (e1 e2) (< (car e1) (car e2)) ) ) ) reapp ) ;;; Original post:http://xoutside.com/CAD/lisp/lisp_chair.htm ;;; Modify little by QJCHEN to filter TEXT SPLINE and layer (defun kht-intersect (en1 en2 lay layindex / a b x ex ex-app c d e la2) (vl-load-com) (setq c (cdr (assoc 0 (entget en1))) d (cdr (assoc 0 (entget en2))) la2 (cdr (assoc 8 (entget en2))) ) (if (or (= c "TEXT") (= d "TEXT") (= c "SPLINE") (= d "SPLINE") ) (setq e -1) ) (if (= layindex 0) (if (= la2 lay) (setq e -1) ) ) (if (= layindex 1) (if (/= la2 lay) (setq e -1) ) ) (setq En1 (vlax-ename->vla-object En1)) (setq En2 (vlax-ename->vla-object En2)) (setq a (vla-intersectwith en1 en2 acExtendNone)) (setq a (vlax-variant-value a)) (setq b (vlax-safearray-get-u-bound a 1)) (if (= e -1) (setq b e) ) (if (/= b -1) (progn (exapp a) ) nil ) ) (defun exapp (a) (setq a (vlax-safearray->list a)) (repeat (/ (length a) 3) (setq ex-app (append ex-app (list (list (car a) (cadr a) (caddr a))) ) ) (setq a (cdr (cdr (cdr a)))) ) ex-app ) (defun kht:list->safearray (lst datatype) (vlax-safearray-fill (vlax-make-safearray (eval datatype) (cons 0 (1- (length lst) ) ) ) lst ) ) ;;; ---------------------------------------------------------- ;;; | midpoint function | ;;; ---------------------------------------------------------- (defun midp (p1 p2) (mapcar '(lambda (x) (/ x 2.) ) (mapcar '+ p1 p2 ) ) ) ;;; ----------------------------------------------------------------- ;;; | The following code taken from Mr.Tony Hotchkiss at Cadalyst | ;;; | To set and reset the system variable | ;;; ----------------------------------------------------------------- (defun err (s) (if (= s "Function cancelled") (princ "\nALIGNIT - cancelled: ") (progn (princ "\nALIGNIT - Error: ") (princ s) (terpri) ) ; _ end of progn ) ; _ end of if (resetting) (princ "SYSTEM VARIABLES have been reset\n") (princ) ) ;;; err ;;; setting and resetting the system variables (defun setv (systvar newval / x) (setq x (read (strcat systvar "1"))) (set x (getvar systvar)) (setvar systvar newval) ) ;;; setv (defun setting () (setq oerr *error*) (setq *error* err) (setv "BLIPMODE" 0) (setv "CMDECHO" 0) (setv "OSMODE" 0) ) ;;; setting (defun rsetv (systvar) (setq x (read (strcat systvar "1"))) (setvar systvar (eval x)) ) ;;; rsetv (defun resetting () (rsetv "BLIPMODE") (rsetv "CMDECHO") (rsetv "OSMODE") (setq *error* oerr) ) ;;; ----------------------------------------------------------------- ;;; | The following code taken from www.theswamp.org | ;;; | To calculate the time that the program run | ;;; ----------------------------------------------------------------- (defun startTimer () (setq time (getvar "DATE")) ) (defun endTimer (func) (setq time (- (getvar "DATE") time) seconds (* 86400.0 (- time (fix time))) ) (gc) (outPut seconds func) ) (defun outPut (secs def) (princ "\nPurge...") (command "_.PURGE" "_Layers" "*" "_No") (gc) (princ (strcat "\nTemps d'exécution " def ": " (rtos secs 2 6))) (princ) ) (princ "\nUtilisez la commande BB pour l'exécution.")

Tant que tu reste avec command dans du code effectivement (trans) ne te sera guère utile. Il peut le devenir si tu décide à créer tes entités avec (entmake), la plupart des entités simples se créent alors dans le SCG (quelque soit le SCU courant) à la différence de (command) qui assume les transferts de coordonnées en interne pour la création des entités. (command) est plus simple pour débuter, mais demande une surveillance des variables qui peuvent influencer son comportement. (entmake) est plus rapide et ne nécessite pas ce contrôle de variable mais exige que tu lui fournisse les coordonnées dans le système requis (la plupart du temps dans le SCG, dès fois dans le SCO pour des entités complexes), ceci quel que soit le SCU où tu te trouves lors de l'exécution de ton code. Le vecteur d'extrusion (code DXF 210) est à ne pas oublier non plus. Il y aussi les fonctions (vlax-invoke...) qui s'alignent sur le mode opératoire de (entmake)

Ah, bah alors tout s'explique :P D'ailleurs ce soir je me suis retrouver dans un bar Irlandais fêtant la St Patrick. (rarement dans mes habitudes) Je peux donc dire que j'ai trinqué pour ta fête... :calim: Bonne fête ! :present:

C'est toi qui vois... Tes applications ne sont pas purger dans le lisp, mais si tu bascule sous Esri... cela n'a peut être pas d'importance pour toi. Je t'ai aidé car tu as fais l'effort de construire un code et ne pas pas être dans la demande du tout cuit. Ces avec les erreurs de conception qu'on apprend. Persévère, tu as fais un bon début. @+

J'ai fais cela à l'arrache... regrouper dans une nouvelle application CONDUITE_VTKP Je n'ai pas supprimé les anciennes (defun c:mdf_busedata ( / js el n ent xd_list e_data) (while (not (setq js (ssget "_X" (list '(0 . "POLYLINE") '(-4 . " '(-3 ("ENTITE")) '(-3 ("OBJECTID")) '(-3 ("TYPE_CONDUITE")) '(-3 ("DIAMETRE")) '(-3 ("LONGUEUR")) '(-3 ("PENTE")) '(-3 ("NUM_REG_HAUT")) '(-3 ("NUM_REG_BAS")) '(-3 ("NOM_RUE")) '(-3 ("ABANDONNEE")) '(-3 ("REF_REC")) '(-3 ("PRECISION_REC")) '(-4 . "OR>"))))) ) (if (null (tblsearch "appid" "CONDUITE_VTKP")) (regapp "CONDUITE_VTKP") ) (setq el nil) (repeat (setq n (sslength js)) (setq n (1- n)) (foreach m '(("ENTITE") ("OBJECTID") ("TYPE_CONDUITE") ("DIAMETRE") ("LONGUEUR") ("PENTE") ("NUM_REG_HAUT") ("NUM_REG_BAS") ("NOM_RUE") ("ABANDONNEE") ("REF_REC") ("PRECISION_REC")) (setq ent (entget (ssname js n) m) xd_list (cdr (assoc -3 ent)) e_data (cadar xd_list) el (cons e_data el) ent (vl-remove (assoc -3 ent) ent) ) ) (entmod (append ent (list (list -3 (list "CONDUITE_VTKP" (cons 1005 (cdr (assoc 5 ent))) (cons 1002 "{") (caddr (cddddr (cddddr el))) (cadr (cddddr (cddddr el))) (car (cddddr (cddddr el))) (cadddr (cddddr el)) (caddr (cddddr el)) (cadr (cddddr el)) (car (cddddr el)) (cadddr el) (caddr el) (cadr el) (car el) (cons 1002 "}") ) ) ) ) ) (setq el nil) ) (prin1) )

Pour cela est indéniable, même moi j'ai du mal à retrouver mes propres messages. Il y a aussi les fautes d'orthographe dans les titres de sujet (ou un titre pas explicite du tout) qui fait qu'on zappe beaucoup de recherche. Je te l'accorde, et reconnais (surtout à l'époque, pour le coté technique) que cela n'était pas une mince affaire. Pour cela aussi, avec un bémol sur la quantité qui n'apporte pas forcément la qualité. Alors bon courage pour tes nouveaux sites, (perso, je trouve que cela fait beaucoup pour un seul homme: temps fois X ...), mais tu as l'esprit des forums, donc pas mal de chances de ton coté. ;)

Bonsoir Patrick Je savais bien que j'allais titillé l'ex webmaster ;) Oui, bien que comme toi je doute que la proposition ait eu un débouché intéressant pour toi, mais je connais pas les membres, peut être cela était réalisable. On voit encore les étoiles, c'est loin d'être une constellation, sans commentaires... :casstet: Je n'en dirais pas plus... L'idée est louable en effet, les moyens utilisés un peu moins, mais cela reste de bonne guerre. La, par contre, moins d'accord, je n'ai pas la mémoire courte et je me souvient bien des temps de connexions interminables. Je veux bien considérer le cout financier pour toi à l'époque pour remédier à ce problème mais la réactivité du site n'a plus rien à voir avec ce qu'elle a été. Pour être franc, le / les contenus ne m'intéressent pas du tout ! (je ne les ais pas tous fais !) Bien sur; pour ma part il me semble avoir plus donné que reçu. Mais bon j'avais choisi cet état de fait. Reconnais quand même qu'un site de forum sans participants actifs est un site mort. Ce n'est pas qu'une affaire de webmaster, car l'air de rien mais cela représente aussi du temps pour ceux qui partage leur savoir à 0€ et souvent même sans un merci. Il est toujours facile de tirer à boulet rouge, mais sache que je respecte le travail que tu fais (et a fais) Merci de m'avoir laissé exprimer mon sentiment sans avoir de coup de bâton en retour :P [Edité le 16/3/2011 par bonuscad]

Tout à fait, c'était son choix! et je ne peux critiquer cette transaction. Cela fait longtemps que je suis sur CadXp, au tout début j'étais sur les new-groups de feu "man and machine" et ceux d'autodesk. A cette époque Patrick avait eu la même démarche sur ces forum, j'avais trouvé son site sympa et j'avais rejoins son site. Au moment de la vente, il faut se rappeler que le site était aussi une cata, les pages mettaient une éternité a s'afficher. CadMag lors de l'acquisition à bien résolu ce problème. Donc quand Patrick se permet d'intervenir sur le fonctionnement du site et de son racollage qu'il peut faire sur celui ci, cela me déplait un peu. Il est certain cependant qu'on est libre de suivre ou pas, et je ne critiquerai pas ceux qui pourrait le faire. Pour les problème du site et bien je m'en accommode, c'est le manque de communication du Webmaster, à mon goût, qui est le plus décevant. En tout cas je souhaite bon courage au modos qui ont bien voulut s'investir, et la je suis sincère, car c'est bien eux qui font vivre ce site.

Je rejoins la revendication. MAIS, car il y a toujours un mais. Là je ne suis pas d'accord. Pour imager, c'est comme une entreprise qui va mal et qui dit à ses employés "Si vous voulez conserver vos emplois, la seule solution et de vendre l'entreprise à un grand groupe". Vous connaissez la suite, je ne vais pas plus loin. D'autres, beaucoup plus rares, proposent à ses employés de racheter celle-ci sans vouloir faire un profit. Je tiens à rappeler que Patrick avait bien formulé que les offres de rachat devait être sérieuses, pour moi cela voulait bien dire recherche de profits car je pense que les usagers de CadXp étaient incapable de faire une offre pouvant concurrencer celle de CAD-MAGAZINE. D'ailleurs (cela n'engage que moi) Patrick ayant flairé le bon coup lance en multitude des forums (il n'hésite pas en plus à aiguiller ici même les utilisateurs sur ses sites à lui) en espérant un succès de manière à refaire une bonne opération. Personnellement, je trouve que c'est lui qui manque de respect par rapport à ses anciens usagers. D'ailleurs je n'ai aucune intention de fréquenter ses sites. N'oublions pas que si CadXp vit encore avec succès, c'est bien parce des utilisateurs se sont investi sans arrière pensée et sans rémunération. Seul Patrick à gagné dans l'histoire... Il a choisi de vendre, nous il nous reste le site qui est géré dans une toute autre philosophie. Pour eux, le forum est complétement accessoire (cela rapporte peu ou même rien), c'est juste une porte d'entrée supplémentaire à la promotion de leurs produits. C'est ma réflexion, sera t-elle partagée ?...

Ormis XLOADCTL Il peut être intéressant aussi de régler XLOADPATH et PROJECTNAME (regarde l'aide associée)

Salut VtKp J'ai essayé rapidement ton lisp (il fonctionne). Par contre je n'ai pas compris pourquoi tu as fais de multiples applications avec une seule clé et sa valeur adjointe. Il me semble qu'il aurait été plus judicieux de faire une seule application avec des clés multiples, ainsi lors de la conversion en OD pour Map cela fonctionnerait très simplement, tu récupérerais tout tes index de clés et leurs valeurs. Si tu pense bien ton projet avec les Xdata, la conversion en OD ne te posera pas de problèmes. Je l'ai fais moi-même pour des applications et je te certifie que j'ai bien rapatrié toutes mes infos sous Map. (jusqu'à 168 clés par exemple pour une application pour des données INSEE)

Pour rajouter une version dont le lien ne figure pas sur ma page principale. talus3D.lsp En ligne de commande, sans boite de dialogue, mais dessine des barbules en 3D si bien sur les lignes de rupture sont en 3D, cela n'empêche pas de dessiner des barbule en 2D... :P