bonuscad

Essaye ceci en ligne de commande: (arxload "geomcal") Si cela retourne "geomcal", tes macros devraient refonctionner. Si ce n'est pas le cas recherche le fichier GEOMCAL.ARX (effacé, déplacé...?) NB:Les applications ARX restent normalement chargées d'une session à l'autre.

Il ya longtemps, il me semble avoir lu une astuce pour substituer l'image du logo du démarrage par une autre (version 14 ou 2000) Je me rappelles juste de l'avoir lu, mais la procédure est oublié depuis longtemps A priori cela serait possible, il faudrait faire des recherches :casstet:

Avec beaucoup de retard ( j'ignorais posséder ce fichier dans mes archives) Ca pourras peut être servir à d'autres. Je fais un copier-coller du contenu du fichier "jsi_form.shp". Il faudra juste le recompiler pour obtenir le SHX ;;; ;;; jsi_form.shp ;;; *130,9,TRACK1 2,8,(0,1),1,8,(0,-2),0 *132,17,BOX 1,8,(0,1),8,(2,0),8,(0,-2),8,(-2,0),8,(0,1),0 *133,10,CIRC1 1,12,(2,0,-127),12,(-2,0,-127),0 *135,21,CROIX 1,8,(1,1),2,8,(-2,0),1,8,(2,-2),2,8,(-2,0),1,8,(1,1),0 *136,14,TRI 1,8,(0,1),8,(2,-1),8,(-2,-1),8,(0,1),0 *137,8,HAIE1 1,8,(1,-2),8,(1,2),0 *138,8,HAIE2 1,8,(1,2),8,(1,-2),0 *140,28,HAIV 2,8,(-2,4),1,12,(7,-3,84),2,8,(-3,3),1,12,(5,-2,90),2,8,(-1,1),1,12,(3,-1,70),0 *141,10,MAS 2,8,(-3,6),1,12,(12,0,127),0 *142,10,MASI 2,8,(-3,-6),1,12,(12,0,-127),0 Tant que j'y suis je mets les autres sources que j'ai concernant "jsi" ;;; ;;; jsi_marais.pat ;;; *JSI_MARAIS, Marais 0,0,0,.25,.25,.125,-.375 0,.025,-.020,.25,.25,.075,-.425 0,.050,-.040,.25,.25,.025,-.475 90,.0625,0,.25,.25,.125,-.375 45,.0625,0,.3535533906,.3535533906,.1,-.2535533906 135,.0625,0,.3535533906,.3535533906,.075,-.2785533906 315,.1332106781,.0707106781,.3535533906,.3535533906,.015,-.3385533906 225,.009466991,.0530330086,.3535533906,.3535533906,.015,-.3385533906 ;;; ;;; jsi_massif.pat ;;; *JSI_MASSIF, Massif 45,0,0,.5,.5,.25,-.75 135,.5,.5,.5,.5,-.75,.25 ;; ;; jsi_type.lin ;; *jsi_000,jsi_000 A,0.0001,-.8 *jsi_001,jsi_001 - A,.1,-.7 *jsi_003,jsi_003 -- A,.2,-.6 *jsi_005,jsi_005 - - A,.1,-.1,.1,-.5 *jsi_007,jsi_007 --- A,.3,-.5 *jsi_009,jsi_009 - - A,.1,-.2,.1,-.4 *jsi_011,jsi_011 -- - A,.2,-.1,.1,-.4 *jsi_015,jsi_015 ---- A,.4,-.4 *jsi_017,jsi_017 - - A,.1,-.3,.1,-.3 *jsi_019,jsi_0.19 -- - A,.2,-.2,.1,-.3 *jsi_021,jsi_021 - - - A,.1,-.1,.1,-.1,.1,-.3 *jsi_023,jsi_023 --- - A,.3,-.1,.1,-.3 *jsi_027,jsi_027 -- -- A,.2,-.1,.2,-.3 *jsi_031,jsi_031 ----- A,.5,-.3 *jsi_035,jsi_035 -- - A,.2,-.3,.1,-.2 *jsi_037,jsi_037 - - - A,.1,-.1,.1,-.2,.1,-.2 *jsi_039,jsi_039 --- - A,.3,-.2,.1,-.2 *jsi_043,jsi_043 -- - - A,.2,-.1,.1,-.1,.1,-.2 *jsi_047,jsi_047 ---- - A,.4,-.1,.1,-.2 *jsi_051,jsi_051 -- -- A,.2,-.2,.2,-.2 *jsi_055,jsi_055 --- -- A,.3,-.1,.2,-.2 *jsi_063,jsi_063 ------ A,.6,-.2 *jsi_067,jsi_067 -- - A,.2,-.4,.1,-.1 *jsi_071,jsi_071 --- - A,.3,-.3,.1,-.1 *jsi_075,jsi_075 -- - - A,.2,-.1,.1,-.2,.1,-.1 *jsi_079,jsi_079 ---- - A,.4,-.2,.1,-.1 *jsi_083,jsi_083 -- - - A,.2,-.2,.1,-.1,.1,-.1 *jsi_085,jsi_085 - - - - A,.1,-.1,.1,-.1,.1,-.1,.1,-.1 *jsi_087,jsi_087 --- - - A,.3,-.1,.1,-.1,.1,-.1 *jsi_091,jsi_091 -- -- - A,.2,-.1,.2,-.1,.1,-.1 *jsi_095,jsi_095 ----- - A,.5,-.1,.1,-.1 *jsi_103,jsi_103 --- -- A,.3,-.2,.2,-.1 *jsi_111,jsi_111 ---- -- A,.4,-.1,.2,-.1 *jsi_119,jsi_119 --- --- A,.3,-.1,.3,-.1 *jsi_127,jsi_127 ------- A,.7,-.1 *jsi_255,jsi_255 -------- A,.4,.4 *jsi_AEP,jsi_AEP - --||-- - A,.16,.02,-.1,.2,[TRACK1,jsi_form.shx,s=.05],-.2,[TRACK1,jsi_form.shx,s=.05],.2,-.1,.02 *jsi_chauf,jsi_chauf --- |-| ----- - -- A,1,.1,-.17,[TRACK1,jsi_form.shx,s=.1],.16,[TRACK1,jsi_form.shx,s=.1],-.17,1.2,-.15,.15,-.15,.1 *jsi_cloc,jsi_cloc ----- A,.0001,-.05,.95,-.05 *jsi_clof,jsi_clof - A,.0001,-.45,.1,-.45 *jsi_clok,jsi_clok -- [] -- A,.7,.1,-.05,[bOX,jsi_form.shx,x=-.05,s=.05],-.05,.1 *jsi_clol,jsi_clol -- o -- A,.8,.1,[CIRC1,jsi_form.shx,x=-.0125,s=.025],.1 *jsi_cloo,jsi_cloo -- O -- A,.7,.1,-.05,[CIRC1,jsi_form.shx,x=-.05,s=.05],-.05,.1 *jsi_clop,jsi_clop -- = -- A,.275,.45,.275 *jsi_cloq,jsi_cloq -- " -- A,.7,.1,-.05,[bOX,jsi_form.shx,x=-.05,y=.05,s=.05],-.05,.1 *jsi_clox,jsi_clox --x-- A,.8,.1,[CROIX,jsi_form.shx,s=.05],.1 *jsi_EclPu,jsi_EclPu -- --> -- A,.4,.05,-.2,.3,-.1,[TRI,jsi_form.shx,x=-.1,s=.1],-.3,.05 *jsi_EdfBT,jsi_EdfBT ---> --- A,.7,.1,-.1,[TRI,jsi_form.shx,x=-.1,s=.1],-.3,.1 *jsi_EdfHT,jsi_EdfHT ->>> - A,.3,.05,-.1,[TRI,jsi_form.shx,x=-.1,s=.1],-.2,[TRI,jsi_form.shx,x=-.1,s=.1],-.2,[TRI,jsi_form.shx,x=-.1,s=.1],-.3,.05 *jsi_EdfMT,jsi_EdfMT -->> - A,.48,.06,-.1,[TRI,jsi_form.shx,x=-.1,s=.1],-.2,[TRI,jsi_form.shx,x=-.1,s=.1],-.3,.06 *jsi_Gaz,jsi_Gaz ---/ - - - -- A,.8,.1,[TRACK1,jsi_form.shx,r=135,s=.1414],-.1,.15,-.1,.15,-.1,.15,-.1,.1 *jsi_haie1,jsi_haie1 --v-- A,.48,.06,-.1,[HAIE1,jsi_form.shx,x=-.1,s=.05],.06 *jsi_haie2,jsi_haie2 --^-- A,.48,.06,-.1,[HAIE2,jsi_form.shx,x=-.1,s=.05],.06 *jsi_Lhaip,jsi_Lhaip -^- A,.8,.1,-.1,[HAIE2,jsi_form.shx,x=-.1,s=.05],.1 *jsi_Lhaiv,jsi_Lhaiv www A,0.0001,-.5,[HAIV,jsi_form.shx,x=-.5,s=.1],-.5 *jsi_Lim31,jsi_Lim31 - - o - - A,.08,.01,-.1,.1,-.125,[CIRC1,jsi_form.shx,s=.075],-.275,.1,-.1,.01 *jsi_LimCha,jsi_LimCha --°°° -- A,.2,.025,-.02,[CIRC1,jsi_form.shx,y=.03,s=.03],-.1,[CIRC1,jsi_form.shx,y=.03,s=.03],-.1,[CIRC1,jsi_form.shx,y=.03,s=.03],-.18,.025 *jsi_LimCloM,jsi_LimCloM ---o--- A,.8,.1,[CIRC1,jsi_form.shx,x=-.025,s=.05],.1 *jsi_LimCloP,jsi_LimCloP ---°--- A,.8,.1,[CIRC1,jsi_form.shx,x=-.025,y=.05,s=.05],.1 *jsi_LimCom,jsi_LimCom --- + --- A,.6,.1,-.2,.15,[TRACK1,jsi_form.shx,s=.15],.15,-.2,.1 *jsi_LimDep,jsi_LimDep -- + + -- A,.6,.1,-.2,.15,[TRACK1,jsi_form.shx,s=.15],.15,-.2,.15,[TRACK1,jsi_form.shx,s=.15],.15,-.2,.1 *jsi_LimDiv,jsi_LimDiv -- -- A,.3,.05,-.2,.05 *jsi_LimEta,jsi_LimEta + + + A,.2,[TRACK1,jsi_form.shx,s=.2],.2,-.2 *jsi_LimFeu,jsi_LimFeu --- ° --- A,.48,.06,-.15,[CIRC1,jsi_form.shx,y=.05,s=.05],-.25,.06 *jsi_LimHaiM,jsi_LimHaiM --X-- A,.8,.1,[CROIX,jsi_form.shx,s=.1],.1 *jsi_LimHaiP,jsi_LimHaiP __X__ A,.8,.1,[CROIX,jsi_form.shx,y=.1,s=.1],.1 *jsi_LimLdi,jsi_LimLdi --°° -- A,.3,.05,-.05,[CIRC1,jsi_form.shx,y=.05,s=.05],-.2,[CIRC1,jsi_form.shx,y=.05,s=.05],-.35,.05 *jsi_LimPar,jsiLimPar ----- A,.5,.5 *jsi_LimSec,jsi_LimSec - o -- - A,.6,.1,-.2,[CIRC1,jsi_form.shx,y=.05,s=.05],-.3,.8,-.2,.1 *jsi_LimSur,jsi_LimSur - - A,.08,.01,-.1,.01 *jsi_lmas,jsi_lmas uuuu A,0.0001,-.1,[MAS,jsi_form.shx,s=.025],-.1 *jsi_lmasi,jsi_lmasi mm A,0.0001,-.1,[MASI,jsi_form.shx,s=.025],-.1 *jsi_Ltel,jsi_Ltel -><-- - A,.3,.05,-.1,[TRI,jsi_form.shx,x=-.1,s=.05],-.1,[TRI,jsi_form.shx,r=180,s=.05],.4,-.2,.05 *jsi_mcl0,jsi_mcl0 ----- A,.5,.5 *jsi_mcl1,jsi_mcl1 - A,3,-27 *jsi_mcl2,jsi_mcl2 -- A,.3,-3.5 *jsi_mcl3,jsi_mcl3 --- A,3,-1.5 *jsi_mct0,jsi_mct0 ---- A,.5,.5 *jsi_mct1,jsi_mct1 -- A,.5,-.5 *jsi_msou,jsi_msou //// A,.8,.1,[TRACK1,jsi_form.shx,r=315,x=.05,y=.275,s=.4],.1 *jsi_mur,jsi_mur //// A,0.0001,-.5,[TRACK1,jsi_form.shx,r=315,x=.05,s=.7],-.5 *jsi_mua,jsi_mua | A,0.0001,[TRACK1,jsi_form.shx,x=-.125,s=.5],-.75 *jsi_mub,jsi_mub | A,0.0001,[TRACK1,jsi_form.shx,x=.875,s=.5],-.75 *jsi_tco,jsi_tco ----- A,.5,.5 *jsi_tco2,jsi_tco2 ----- A,.5,.5 *jsi_tic,jsi_tic - - A,.08,.01,-.1,.01 *jsi_tic2,jsi_tic2 - - A,.08,.01,-.1,.01 *jsi_til,jsi_til ---- ---- A,.6,.1,-.4,.1 *jsi_til2,jsi_til2 ---- ---- A,.6,.1,-.4,.1 *jsi_tim,jsi_tim -- -- A,.3,.05,-.2,.05 *jsi_tim2,jsi_tim2 -- -- A,.3,.05,-.2,.05 *jsi_tmi,jsi_tmi --- - --- A,.48,.06,-.195,.01,-.195,.06 *jsi_tmi2,jsi_tmi2 --- - --- A,.48,.06,-.195,.01,-.195,.06 *jsi_tpo,jsi_tpo - A,.05,-.95 *jsi_tpo2,jsi_tpo2 - A,.05,-.95 *jsi_TV,jsi_TV -+--- -- A,.4,.05,[TRACK1,jsi_form.shx,s=.05],.5,-.2,.05 [Edité le 8/3/2006 par bonuscad] Problème avec interprétation de caractère du fichier LIN, (possibilité d'envoi, faites le savoir) [Edité le 8/3/2006 par bonuscad]

(gile) Merci pour tes tests ;) Je suis d'accord pour le doublon (vlax-curve-getClosestPointTo Pour le (osnap "_near") je l'ai rajouté après coup pour avoir un résultat correct pour la sélection d'une polyligne constituée dans un scu non parrallèle au scg, sans ça, le résultat était incorrect. Tramber Effectivement ça peu planter avec une séléction avec une accroche forcé à l'extémité (faut être vicieux) ;) sur le dernier segment seulement. Je te rassure j'ai découvert param grâce à ElpanovEvgeniy (un Moscovite) avec son lisp lw_width.lsp dont je me suis fortement inspiré. Merci à lui

Je me réponds à moi même :P J'ai refondu mon code, et il semble fonctionner correctement (même sous une 2000) En plus, il est plus condensé qu'avant, bref, tout bénef... Rappel: Ce code peut servir à recupérer les points des sommets les plus proches du point de sélection d'une polyligne, donc à identifier les extrémités du segment sélectionné. Les applications sont multiples, on peut, par exemple, récupérer ainsi l'angle du segment pour aligner un texte, reconstruire une ligne par dessus le segment pour ensuite le décaler etc... ceci en intégrant cette routine à vos besoins. Vous pouvez la transformer en sous fonction pour vos besoin (defun near_vertex ....) (defun draw_pt (pt / pt1 pt2 pt3 pt4) (setq rap (/ (getvar "viewsize") 50) pt1 (list (+ (car pt) rap) (+ (cadr pt) rap)) pt2 (list (+ (car pt) rap) (- (cadr pt) rap)) pt3 (list (- (car pt) rap) (- (cadr pt) rap)) pt4 (list (- (car pt) rap) (+ (cadr pt) rap)) ) (grdraw pt pt1 -1) (grdraw pt pt2 -1) (grdraw pt pt3 -1) (grdraw pt pt4 -1) ) (defun c:near_vertex ( / obj dxf_obj obj_vlax pt_sel par pt_first pt_snd) (while (not (setq obj (entsel "\nSélectionnez le segment de polyligne à utiliser: ")))) (cond ((or (eq (cdr (assoc 0 (setq dxf_obj (entget (car obj))))) "LWPOLYLINE") (and (eq (cdr (assoc 0 dxf_obj)) "POLYLINE") (zerop (boole 1 116 (cdr (assoc 70 dxf_obj)))) ) ) (vl-load-com) (setq obj_vlax (vlax-ename->vla-object (car obj)) pt_sel (vlax-curve-getClosestPointTo obj_vlax (trans (osnap (cadr obj) "_near") 1 0)) par (vlax-curve-getParamAtPoint obj_vlax (vlax-curve-getClosestPointTo obj_vlax pt_sel)) pt_first (trans (vlax-curve-getPointAtParam obj_vlax (fix par)) 0 1) pt_snd (trans (vlax-curve-getPointAtParam obj_vlax (1+ (fix par))) 0 1) ) (redraw) (draw_pt pt_first) (draw_pt pt_snd) (princ (list pt_first pt_snd)) ) (T (princ "\nN'est pas une polyligne valable pour cette fonction!") ) ) (princ) ) [Edité le 7/3/2006 par bonuscad]

Une solution possible (avec attachement d'images), si c'est occasionnel .... La signalisation routière

Merci du tuyau, j'ai mis du temps a trouver car je passais par la fonction rechercher (la loupe) pas celui du bandeau des sélections des forums. Ca roule....

Après une période d'abscence prolongée, il est difficile de voir les sujets qui ont été lancé en dehors de la semaine en cours. Serait-il possible d'avoir une option d'affichages supplémentaire des derniers sujet lancé depuis une date précise? En ce moment je parcours tous les thèmes pour voir si des sujets ont été lancés, un peu fastidieux ;) Si la solution est dans une manip qui m'aurais échappé, merci d'avance.

Essayes peut être avec la syntaxe supplémentaire avec le tiret "-" pour l'appel en ligne de commande. ex: _.-GROUP L'appel ce fait par une macro ou du dévelloppement pur?

Tu mets ce que tu veux, la valeur par défaut est 1000,100 en cas d'entrée utilisateur nulle. Je me suis servi de (getpoint) pour l'indroctution de l'échelle. Il faut éviter de cliquer un point à l'écran mais de fournir la valeur au clavier comme ci c'était un point (x,y) Donc 100,50 (virgule et pas point-virgule) 250,100 sont des entrées valides ! NB: tu peux fixer une autre valeur par défaut, ou même la rendre fixe si c'est toujours la même (cela fera une saisie en moins)

A sauvegarder dans un 1er fichier nommé "Tatouage.lsp" qui sera placé dans un dossier de recherche d'autocad (ou le créer !) Avant de sauvegarder, ENLEVER les espace apres le symbole > (faire une recherche dans le fichier avec " < puis avec > ") Ceci est du a un problème d'interprétation sur le forum qui "squizze" des caractère après le >. Le fichier Lisp est long car il contient la création graphique du bloc (defun recerr (ch) (cond ((eq ch "Function cancelled") nil) ((eq ch "quit / exit abort") nil) ((eq ch "console break") nil) (T (princ ch)) ) (command "_.undo" "_end") (command "_.u") (if (<= sv_und 3) (command "_.undo" "_control" "_one")) (setq *error* olderr) (princ) ) (defun do_x_pt() (check_real (setq x_pt (get_tile "x_pt")) "x_pt") ) (defun do_y_pt() (check_real (setq y_pt (get_tile "y_pt")) "y_pt") ) (defun do_z_pt() (check_real (setq z_pt (get_tile "z_pt")) "z_pt") ) (defun check_real (real_number coord) (if (distof real_number 2) (progn (set_tile "error" "") real_number ) (progn (set_tile "error" (strcat "Coordonnée " (strcase (substr coord 1 1)) " Incorrecte." ) ) nil ) ) ) (defun tstval (val / val) (if (= (type (read val)) 'INT) (progn (setq blk_sca (atoi val)) (set_tile "error" "") ) (progn (set_tile "error" "Valeur entière incorrecte !") (set_tile "c_ech" (itoa blk_sca)) ) ) ) (defun tstang (val / val) (if (angtof val) (progn (setq blk_rot (angtof val)) (set_tile "error" "") ) (progn (set_tile "error" "Valeur numérique incorrecte !") (set_tile "b_o" (angtos blk_rot)) ) ) ) (defun l_chg (index / ) (setq blk_sca (read (nth (atoi index) '("25" "50" "100" "200" "500" "1000" "2000" "2500" "5000" "10000") ) ) ) (set_tile "c_ech" (itoa blk_sca)) ) (defun transpts (apt matrix / ) (list (+ (* (car (nth 0 matrix)) (car apt)) (* (car (nth 1 matrix)) (cadr apt)) (* (car (nth 2 matrix)) (caddr apt)) (cadddr (nth 0 matrix)) ) (+ (* (cadr (nth 0 matrix)) (car apt)) (* (cadr (nth 1 matrix)) (cadr apt)) (* (cadr (nth 2 matrix)) (caddr apt)) (cadddr (nth 1 matrix)) ) (+ (* (caddr (nth 0 matrix)) (car apt)) (* (caddr (nth 1 matrix)) (cadr apt)) (* (caddr (nth 2 matrix)) (caddr apt)) (cadddr (nth 2 matrix)) ) ) ) (defun v_matr (dpt alphax alphay alphaz echx echy echz / ) (list (list (* echx (cos alphaz) (cos alphay)) (- (sin alphaz)) (sin alphay) (car dpt) ) (list (sin alphaz) (* echy (cos alphaz) (cos alphax)) (- (sin alphax)) (cadr dpt) ) (list (- (sin alphay)) (sin alphax) (* echz (cos alphax) (cos alphay)) (caddr dpt) ) (list 0.0 0.0 0.0 1.0) ) ) (defun def_date (td / j y d m) (setq j (- (fix td) 1721119.0)) (setq y (fix (/ (1- (* 4 j)) 146097.0))) (setq j (- (* j 4.0) 1.0 (* 146097.0 y))) (setq d (fix (/ j 4.0))) (setq j (fix (/ (+ (* 4.0 d) 3.0) 1461.0))) (setq d (- (+ (* 4.0 d) 3.0) (* 1461.0 j))) (setq d (fix (/ (+ d 4.0) 4.0))) (setq m (fix (/ (- (* 5.0 d) 3) 153.0))) (setq d (- (* 5.0 d) 3.0 (* 153.0 m))) (setq d (fix (/ (+ d 5.0) 5.0))) (setq y (+ (* 100.0 y) j)) (if (< m 10.0) (setq m (+ m 3)) (progn (setq m (- m 9)) (setq y (1+ y)) ) ) (strcat (itoa (fix d)) "/" (itoa (fix m)) "/" (itoa (fix y)) ) ) (defun make_blk_record ( / ) (if (not (tblsearch "LAYER" "Enregistrement Dessin")) (entmake '((0 . "LAYER") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "Enregistrement Dessin") (70 . 0) (62 . 7) (370 . -3) (6 . "Continuous") ) ) ) (if (not (tblsearch "STYLE" "$RECORD")) (entmake '((0 . "STYLE") (5 . "40") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "$RECORD") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 1.54508) (3 . "simplex.shx") (4 . "") ) ) ) (if (not (tblsearch "BLOCK" "RECORD_BONUSCAD")) (progn (entmake '((0 . "BLOCK") (8 . "0") (2 . "RECORD_BONUSCAD") (70 . 2) (4 . "") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (10 0.0 0.0 0.0)) ) (entmake '( (0 . "LWPOLYLINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbPolyline") (90 . 8) (70 . 1) (43 . 0.618034) (38 . 0.0) (39 . 0.0) (10 0.999998 0.0) (40 . 0.618034) (41 . 0.618034) (42 . 0.0) (10 60.8034 0.0) (40 . 0.618034) (41 . 0.618034) (42 . 0.414214) (10 61.8034 0.999998) (40 . 0.618034) (41 . 0.618034) (42 . 0.0) (10 61.8034 37.1966) (40 . 0.618034) (41 . 0.618034) (42 . 0.414214) (10 60.8034 38.1966) (40 . 0.618034) (41 . 0.618034) (42 . 0.0) (10 0.999998 38.1966) (40 . 0.618034) (41 . 0.618034) (42 . 0.414214) (10 0.0 37.1966) (40 . 0.618034) (41 . 0.618034) (42 . 0.0) (10 0.0 0.999998) (40 . 0.618034) (41 . 0.618034) (42 . 0.414214) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine") (10 0.0 32.7399 0.0) (11 61.8034 32.7399 0.0) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine") (10 0.0 27.2833 0.0) (11 61.8034 27.2833 0.0) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine") (10 0.0 21.8266 0.0) (11 61.8034 21.8266 0.0) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine") (10 0.0 16.37 0.0) (11 61.8034 16.37 0.0) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine") (10 0.0 10.9133 0.0) (11 61.8034 10.9133 0.0) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine") (10 0.0 5.45666 0.0) (11 61.8034 5.45666 0.0) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine") (10 20.6011 38.1966 0.0) (11 20.6011 32.7399 0.0) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine") (10 41.2023 38.1966 0.0) (11 41.2023 32.7399 0.0) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbLine") (10 30.9017 16.37 0.0) (11 30.9017 10.9133 0.0) (210 0.0 0.0 1.0) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 1.91591 34.6957 0.0) (40 . 1.54508) (1 . "Créé le:") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 1.91591 35.4683 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 22.517 34.6957 0.0) (40 . 1.54508) (1 . "Modifié le:") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 22.517 35.4683 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 43.1181 34.6957 0.0) (40 . 1.54508) (1 . "Tracé le:") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 43.1181 35.4683 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 1.91591 29.2391 0.0) (40 . 1.54508) (1 . "Fichier :") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 1.91591 30.0116 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 1.91591 23.7824 0.0) (40 . 1.54508) (1 . "Dossier :") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 1.91591 24.5549 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 1.91591 18.3257 0.0) (40 . 1.54508) (1 . "Onglet :") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 1.91591 19.0982 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 1.91591 12.8691 0.0) (40 . 1.54508) (1 . "Auteur :") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 1.91591 13.6416 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 32.8176 12.8691 0.0) (40 . 1.54508) (1 . "Classement :") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 32.8176 13.6416 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 1.91591 7.10344 0.0) (40 . 2.16312) (1 . "Echelle :") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 1.91591 8.18499 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 1.91591 3.57334 0.0) (40 . 1.0383) (1 . "AutoCAD Release :") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 1.91591 4.09249 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 1.91591 0.845013 0.0) (40 . 1.0383) (1 . "AutoCAD Version :") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 1.91591 1.36416 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (39 . 1.0) (100 . "AcDbText") (10 40.507 3.55171 0.0) (40 . 1.08156) (1 . "1") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 1) (11 46.3525 4.09249 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Mode d'unités en mm utilisées en EO ?:") (2 . "DWG_ID_UNITS") (70 . 1) (73 . 0) (74 . 2) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 39.6057 0.823382 0.0) (40 . 1.08156) (1 . "2") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 1) (11 46.3525 1.36416 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Espace objet/papier utilisé ?:") (2 . "DWG_ID_CVPORT") (70 . 1) (73 . 0) (74 . 2) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 9.14678 34.6957 0.0) (40 . 1.54508) (1 . "00/00/0000") (50 . 0.0) (41 . 0.5) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 9.14678 35.4683 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Date de création ?:") (2 . "DWG_CREATE_DATE") (70 . 0) (73 . 0) (74 . 2) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 31.8442 34.6957 0.0) (40 . 1.54508) (1 . "00/00/0000") (50 . 0.0) (41 . 0.5) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 31.8442 35.4683 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Date de modification ?:") (2 . "DWG_MODIF_DATE") (70 . 0) (73 . 0) (74 . 2) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 51.2304 34.6957 0.0) (40 . 1.54508) (1 . "00/00/0000") (50 . 0.0) (41 . 0.5) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 51.2304 35.4683 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Date de traçage ?:") (2 . "DWG_PLOT_DATE") (70 . 0) (73 . 0) (74 . 2) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 10.1464 29.1689 0.0) (40 . 1.54508) (1 . "SANSNOM") (50 . 0.0) (41 . 3.95354) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (11 59.8875 29.1689 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Nom du fichier dessin ?:") (2 . "DWG_NAME") (70 . 0) (73 . 0) (74 . 0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 10.1464 23.7122 0.0) (40 . 1.54508) (1 . "SANSDOSSIER") (50 . 0.0) (41 . 3.36346) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (11 59.8875 23.7122 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Aborescence du dossier utilisé ?:") (2 . "DWG_FOLDER") (70 . 0) (73 . 0) (74 . 0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 10.1464 18.2555 0.0) (40 . 1.54508) (1 . "Objet") (50 . 0.0) (41 . 4.0973) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (11 59.8875 18.2555 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Onglet utilisé ?:") (2 . "DWG_CTAB") (70 . 0) (73 . 0) (74 . 0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 10.202 12.8631 0.0) (40 . 1.54508) (1 . "BonusCAD") (50 . 0.0) (41 . 1.702) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (11 28.9858 12.8631 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Nom du dessinateur ?:") (2 . "DWG_MAN") (70 . 0) (73 . 0) (74 . 0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 44.3797 12.8523 0.0) (40 . 1.54508) (1 . "XXX") (50 . 0.0) (41 . 1.14551) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (11 59.8875 12.8523 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Identification de classement ?:") (2 . "DWG_CLASS") (70 . 0) (73 . 2) (74 . 0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 18.2427 6.97247 0.0) (40 . 2.16312) (1 . "1/1") (50 . 0.0) (41 . 2.20927) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (11 59.8875 6.97247 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Echelle du dessin ?:") (2 . "DWG_SCALE") (70 . 0) (73 . 0) (74 . 0) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 20.6423 3.57334 0.0) (40 . 1.0383) (1 . "Inconnu") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 20.6423 4.09249 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Version utilisée ?:") (2 . "DWG_RELEASE") (70 . 0) (73 . 0) (74 . 2) ) ) (entmake '( (0 . "ATTDEF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (10 20.6423 0.845013 0.0) (40 . 1.0383) (1 . "Inconnu") (50 . 0.0) (41 . 0.65) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (11 20.6423 1.36416 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "Environnement Hardware?") (2 . "DWG_PLATFORM") (70 . 0) (73 . 0) (74 . 2) ) ) (entmake '((0 . "ENDBLK") (8 . "0") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2))) ) ) ) (defun make_ins_record (point_insertion angle_rotation factor_scale unit_scale id_vport ename_fmult / transformp transforma transforms e_blk xname newdict) (if (/= id_vport 2) (setq factor_scale (* factor_scale unit_scale))) (setq transformp (v_matr point_insertion 0.0 0.0 0 1.0 1.0 1.0) transforma (v_matr '(0.0 0.0 0.0) 0.0 0.0 (- angle_rotation) 1.0 1.0 1.0) transforms (v_matr '(0.0 0.0 0.0) 0.0 0.0 0.0 (/ factor_scale unit_scale) (/ factor_scale unit_scale) (/ factor_scale unit_scale)) ) (entmake (append '( (0 . "INSERT") (100 . "AcDbEntity") (8 . "Enregistrement Dessin") (6 . "ByLayer") (62 . 256) (370 . -1) (100 . "AcDbBlockReference") (66 . 1) (2 . "RECORD_BONUSCAD") (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0) ) (list (cons 10 point_insertion)) (list (cons 50 angle_rotation)) (list (cons 41 (/ factor_scale unit_scale))) (list (cons 42 (/ factor_scale unit_scale))) (list (cons 43 (/ factor_scale unit_scale))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (41 . 1.0) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 1) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_ID_UNITS") (70 . 1) (73 . 0) (74 . 2) ) (list (cons 1 (rtos unit_scale 2 2))) (list (cons 10 (transpts (transpts (transpts '(40.507 3.55171 0.0) transforms) transforma) transformp))) (list (cons 39 factor_scale)) (list (cons 40 (* 1.3125 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(46.3525 4.09249 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (41 . 1.0) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 1) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_ID_CVPORT") (70 . 1) (73 . 0) (74 . 2) ) (list (cons 1 (itoa id_vport))) (list (cons 10 (transpts (transpts (transpts '(39.6057 0.823382 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.3125 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(46.3525 1.36416 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "00/00/00") (41 . 0.5) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_CREATE_DATE") (70 . 0) (73 . 0) (74 . 2) ) (list (cons 10 (transpts (transpts (transpts '(9.14678 34.6957 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.875 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(9.14678 35.4683 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "00/00/0000") (41 . 0.5) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_MODIF_DATE") (70 . 0) (73 . 0) (74 . 2) ) (list (cons 10 (transpts (transpts (transpts '(31.8442 34.6957 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.875 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(31.8442 35.4683 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "00/00/0000") (41 . 0.5) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_PLOT_DATE") (70 . 0) (73 . 0) (74 . 2) ) (list (cons 10 (transpts (transpts (transpts '(51.2304 34.6957 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.875 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(51.2304 35.4683 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "SANSNOM") (41 . 3.95354) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_NAME") (70 . 0) (73 . 0) (74 . 0) ) (list (cons 10 (transpts (transpts (transpts '(10.1464 29.1689 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.875 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(59.8875 29.1689 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "SANSDOSSIER") (41 . 3.36346) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_FOLDER") (70 . 0) (73 . 0) (74 . 0) ) (list (cons 10 (transpts (transpts (transpts '(10.1464 23.7122 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.875 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(59.8875 23.7122 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "Objet") (41 . 4.0973) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (2 . "DWG_CTAB") (70 . 0) (73 . 0) (74 . 0) ) (list (cons 10 (transpts (transpts (transpts '(10.1464 18.2555 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.875 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(59.8875 18.2555 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "BonusCAD") (41 . 1.6796) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_MAN") (70 . 0) (73 . 0) (74 . 0) ) (list (cons 10 (transpts (transpts (transpts '(10.202 12.8631 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.875 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(28.9858 12.8631 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "XXX") (41 . 3.90322) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_CLASS") (70 . 0) (73 . 2) (74 . 0) ) (list (cons 10 (transpts (transpts (transpts '(44.3797 12.8523 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.875 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(59.8875 12.8523 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "1/1") (41 . 9.40224) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 5) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_SCALE") (70 . 0) (73 . 0) (74 . 0) ) (list (cons 10 (transpts (transpts (transpts '(18.2427 6.97247 0.0) transforms) transforma) transformp))) (list (cons 40 (* 2.625 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(59.8875 6.97247 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "Inconnu") (41 . 1.0) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_RELEASE") (70 . 0) (73 . 0) (74 . 2) ) (list (cons 10 (transpts (transpts (transpts '(20.6423 3.57334 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.26 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(20.6423 4.09249 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake (append '( (0 . "ATTRIB") (100 . "AcDbEntity") (8 . "0") (62 . 0) (6 . "ByBlock") (370 . -2) (100 . "AcDbText") (1 . "Inconnu") (41 . 0.65) (51 . 0.0) (7 . "$RECORD") (71 . 0) (72 . 0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DWG_PLATFORM") (70 . 0) (73 . 0) (74 . 2) ) (list (cons 10 (transpts (transpts (transpts '(20.6423 0.845013 0.0) transforms) transforma) transformp))) (list (cons 40 (* 1.26 (/ factor_scale unit_scale)))) (list (cons 50 angle_rotation)) (list (cons 11 (transpts (transpts (transpts '(20.6423 1.36416 0.0) transforms) transforma) transformp))) (if (/= id_vport 2) (list '(67 . 1) (cons 410 (getvar "CTAB"))) '((67 . 0) (410 . "Model")) ) ) ) (entmake '((0 . "SEQEND") (8 . "Enregistrement Dessin") (6 . "ByLayer") (62 . 256) (370 . -1))) (if (and ename_fmult (/= id_vport 2)) (progn (setq e_blk (entlast)) (if (null (dictsearch (namedobjdict) "BONUSCAD_RECORD")) (setq xname (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary"))) newdict (dictadd (namedobjdict) "BONUSCAD_RECORD" xname) ) (setq newdict (cdar (dictsearch (namedobjdict) "BONUSCAD_RECORD"))) ) (setq xname (entmakex (append '( (0 . "GROUP") (100 . "AcDbGroup") (300 . "Cartouche & FMULT") (70 . 0) (71 . 1) ) (list (cons 340 e_blk) (cons 340 ename_fmult) ) ) ) ) (if (not (assoc 3 (dictsearch (namedobjdict) "BONUSCAD_RECORD"))) (dictadd newdict "RECORD_1" xname) (dictadd newdict (strcat "RECORD_" (itoa (1+ (atoi (substr (cdr (assoc 3 (dictsearch (namedobjdict) "BONUSCAD_RECORD"))) 8))))) xname) ) ) ) ) (defun block_update (block_record flag / s_e fm_assoc dxf_e tag_value i_scale i_unit i_cvport blk_sca dict_record group_dxf) (if (/= (getvar "ATTMODE") 1) (setvar "ATTMODE" 1)) (setq s_e block_record) (if (not (zerop (cdr (assoc 67 (entget s_e))))) (setq fm_assoc (entget (cdr (assoc 330 (entget s_e))))) ) (while (/= (cdr (assoc 0 (entget (setq s_e (entnext s_e))))) "SEQEND") (setq dxf_e (entget s_e)) (if (eq (cdr (assoc 0 dxf_e)) "ATTRIB") (progn (setq tag_value (cdr (assoc 2 dxf_e))) (cond ((eq tag_value "DWG_ID_UNITS") (setq i_scale (cdr (assoc 39 dxf_e))) (setq i_unit (atof (cdr (assoc 1 dxf_e)))) ) ((eq tag_value "DWG_ID_CVPORT") (setq i_cvport (atoi (cdr (assoc 1 dxf_e)))) ) ((eq tag_value "DWG_CREATE_DATE") (entmod (subst (cons 1 (def_date (getvar "TDCREATE"))) (assoc 1 dxf_e) dxf_e)) ) ((eq tag_value "DWG_MODIF_DATE") (entmod (subst (cons 1 (def_date (getvar "TDUPDATE"))) (assoc 1 dxf_e) dxf_e)) ) ((eq tag_value "DWG_PLOT_DATE") (entmod (subst (cons 1 (def_date (getvar "DATE"))) (assoc 1 dxf_e) dxf_e)) ) ((eq tag_value "DWG_NAME") (entmod (subst (cons 1 (getvar "DWGNAME")) (assoc 1 dxf_e) dxf_e)) ) ((eq tag_value "DWG_FOLDER") (entmod (subst (cons 1 (getvar "DWGPREFIX")) (assoc 1 dxf_e) dxf_e)) ) ((eq tag_value "DWG_CTAB") (entmod (subst (cons 1 (if (= i_cvport 2) "Objet" (cdr (assoc 410 dxf_e)))) (assoc 1 dxf_e) dxf_e)) ) ((and flag (eq tag_value "DWG_MAN")) (entmod (subst (cons 1 name_oper) (assoc 1 dxf_e) dxf_e)) ) ((and flag (eq tag_value "DWG_CLASS")) (entmod (subst (cons 1 class_dwg) (assoc 1 dxf_e) dxf_e)) ) ((eq tag_value "DWG_SCALE") (if (eq i_cvport 2) (setq blk_sca (fix i_scale)) (cond ((setq dict_record (dictsearch (namedobjdict) "BONUSCAD_RECORD")) (setq group_dxf (entget (cdr (last fm_assoc)))) (setq blk_sca (atoi (rtos (/ i_unit (/ (cdr (assoc 41 group_dxf)) (cdr (assoc 45 group_dxf)))) 2 0))) ) (T (setq blk_sca -1000)) ) ) (entmod (subst (cons 1 (strcat "1/" (itoa blk_sca))) (assoc 1 dxf_e) dxf_e)) ) ((eq tag_value "DWG_RELEASE") (entmod (subst (cons 1 (getvar "ACADVER")) (assoc 1 dxf_e) dxf_e)) ) ((eq tag_value "DWG_PLATFORM") (entmod (subst (cons 1 (getvar "PLATFORM")) (assoc 1 dxf_e) dxf_e)) ) ) ) ) ) (entupd block_record) ) (defun record ( / js_blk n ent_name_blk blk_sca) (setq js_blk (ssget "X" '( (-4 . "< AND") (0 . "INSERT") (2 . "RECORD_BONUSCAD") (8 . "Enregistrement Dessin") (66 . 1) (-4 . "AND> ") ) ) ) (cond (js_blk (princ "\nMise à jour du CARTOUCHE D'ENREGISTREMENT.") (if (eq (getvar "attmode") 2) (setvar "attmode" 1)) (if (zerop (getvar "pickstyle")) (setvar "pickstyle" 1)) (setq n 0) (while (setq ent_name_blk (ssname js_blk n)) (setq blk_sca (cdr (assoc 41 (entget ent_name_blk)))) (block_update ent_name_blk nil) (setq n (1+ n)) ) ) (T (princ "\nAucun CARTOUCHE D'ENREGISTREMENT, pas de mise à jour!.\nCommande TATOUAGE pour créer un cartouche.")) ) (princ) ) (defun reactors_record:update (a b / ) (if (= "PLOT" (car b)) (record) ) ) (defun c:tatouage ( / olderr sv_und blk_sca blk_rot blk_ins show_unit class_dwg name_oper dcl_id what_next blk_ins x_pt y_pt z_pt lock_zoom key e_fml js_fml) (setvar "cmdecho" 0) (setq olderr *error* *error* recerr) (if (zerop (getvar "pickstyle")) (setvar "pickstyle" 1)) (if (<= (setq sv_und (getvar "undoctl")) 3) (command "_.undo" "_control" "_all") ) (command "_.undo" "_group") (if (eq (getvar "attmode") 2) (setvar "attmode" 1)) (if (not (tblsearch "BLOCK" "RECORD_BONUSCAD")) (make_blk_record) ) (setq blk_sca (if (/= (getvar "CVPORT") 2) 1 100) blk_rot 0.0 blk_ins nil e_fml nil lock_zoom "1" show_unit 1000.0 class_dwg "XXX" name_oper (getvar "LOGINNAME") ) (setq dcl_id (load_dialog "tatouage.dcl")) (setq what_next 4) (while (< 1 what_next) (if (not (new_dialog "tatouage" dcl_id)) (exit)) (start_list "lst_ech") (mapcar '(lambda (x) (add_list x) ) '("25" "50" "100" "200" "500" "1000" "2000" "2500" "5000" "10000") ) (end_list) (set_tile "c_ech" (itoa blk_sca)) (if x_pt (set_tile "x_pt" x_pt)) (if y_pt (set_tile "y_pt" y_pt)) (if z_pt (set_tile "z_pt" z_pt)) (cond ((not (listp blk_ins)) (set_tile "error" "Saisissez d'abord le point d'insertion!") ) ((and (/= (getvar "CVPORT") 2) (not (listp e_fml))) (set_tile "error" "Saisissez une fenêtre de présentation!") ) (T (set_tile "error" "")) ) (set_tile "rotation" (angtos blk_rot)) (set_tile "c_cla" class_dwg) (set_tile "c_des" name_oper) (set_tile "lock_fm" lock_zoom) (cond ((= show_unit 1.0) (set_tile "b_mm" "1") (mode_tile "b_mm" 2)) ((= show_unit 10.0) (set_tile "b_cm" "1") (mode_tile "b_cm" 2)) ((= show_unit 1000.0) (set_tile "b_m" "1") (mode_tile "b_m" 2)) ((= show_unit 1000000.0) (set_tile "b_km" "1") (mode_tile "b_km" 2)) ) (if (/= (getvar "CVPORT") 2) (foreach n '("lst_ech" "c_ech") (mode_tile n 1)) (foreach n '("lock_fm" "pick_fmult") (mode_tile n 1))) (action_tile "lst_ech" "(l_chg $value)") (action_tile "c_ech" "(tstval $value)") (action_tile "pick_pt" "(done_dialog 2)") (action_tile "x_pt" "(do_x_pt)") (action_tile "y_pt" "(do_y_pt)") (action_tile "z_pt" "(do_z_pt)") (action_tile "pick_ang" "(done_dialog 3)") (action_tile "pick_fmult" "(done_dialog 4)") (action_tile "lock_fm" "(setq lock_zoom $value)") (action_tile "rotation" "(tstang $value)") (action_tile "b_mm" "(setq show_unit 1.0)") (action_tile "b_cm" "(setq show_unit 10.0)") (action_tile "b_m" "(setq show_unit 1000.0)") (action_tile "b_km" "(setq show_unit 1000000.0)") (action_tile "c_cla" "(setq class_dwg $value)") (action_tile "c_des" "(setq name_oper $value)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq what_next (start_dialog)) (cond ((= what_next 2) (initget 9) (setq blk_ins (getpoint "\nPoint d'insertion du cartouche: ")) (setq x_pt (rtos (car blk_ins) 2 4)) (setq y_pt (rtos (cadr blk_ins) 2 4)) (setq z_pt (rtos (caddr blk_ins) 2 4)) ) ((= what_next 3) (initget 32) (setq blk_rot (getorient "\nAngle de rotation du cartouche ?<0>: ")) (if (not blk_rot) (setq blk_rot 0)) ) ((= what_next 4) (while (or (not e_fml) (not (listp e_fml))) (princ "\nChoisissez une fenêtre de présentation") (while (/= (car (setq key (grread T 4 2))) 3)) (setq js_fml (ssget (cadr key) '( (-4 . "< AND") (0 . "VIEWPORT") (67 . 1) (-4 . "AND> ") ) ) ) (if js_fml (cond ((= (sslength js_fml) 1) (setq e_fml (entget (ssname js_fml 0))) (if (member '(102 . "{ACAD_REACTORS") e_fml) (progn (setq e_fml T) (princ "\nUn cartouche est déjà associé à cette fenêtre!\nChoisissez une autre fenêtre.")) (progn (if (eq lock_zoom "1") (command "_.mview" "_lock" "_on" (cdar e_fml) "") ) (setq e_fml (cons (cdar e_fml) (cadr key))) ) ) ) (T (princ "\nPlusieurs fenêtres sélectionnées, une seule requise, recommencez.") (setq e_fml T) ) ) (progn (setq e_fml T) (princ "\nAucune fenêtre sélectionnée.")) ) ) ) ((= what_next 1) (if (or (not blk_ins) (not (listp blk_ins))) (if (and x_pt y_pt z_pt) (setq blk_ins (list (atof x_pt) (atof y_pt) (atof z_pt))) (setq blk_ins T) ) ) (if (and (/= (getvar "CVPORT") 2) (or (not e_fml) (not (listp e_fml)))) (setq e_fml T)) (cond ((and (listp blk_ins) (if (/= (getvar "CVPORT") 2) (listp e_fml) T)) (make_ins_record (trans blk_ins 1 0) (+ blk_rot (atan (/ (cadr (getvar "ucsxdir")) (car (getvar "ucsxdir"))))) blk_sca show_unit (getvar "CVPORT") (car e_fml)) (block_update (entlast) T) ) (T (if (not (listp blk_ins)) (setq blk_ins T)) (if (and (/= (getvar "CVPORT") 2) (not (listp e_fml))) (setq e_fml T)) (setq what_next 5) ) ) ) ((= what_next 0) (alert "\nRelancez la commande TATOUAGE pour créer un cartouche") ) ) ) (unload_dialog dcl_id) (vl-load-com) (if *reactors_record (vlr-remove *reactors_record) ) (setq *reactors_record (vlr-editor-reactor nil '( (:vlr-commandwillstart . reactors_record:update) ) ) ) (vlr-remove *reactors_record) (vlr-command-reactor nil '((:vlr-commandwillstart . reactors_record:update))) (command "_.undo" "_end") (if (<= sv_und 3) (command "_.undo" "_control" "_one")) (setq *error* olderr) (setvar "cmdecho" 1) (princ) ) A sauvegarder dans un fichier nommé "Tatouage.dcl" au même endroit que le précédent. tatouage : dialog { label = "Création du CARTOUCHE D'ENREGISTREMENT"; :boxed_row { label = ""; :boxed_column { label = "Choix de l'échelle"; :list_box { multiple_select=false; key="lst_ech"; width=10; } :edit_box { label = "Echelle:"; mnemonic = "E"; key = "c_ech"; width = 10; edit_width = 10; } : button { label = "associer Fenêtre <"; mnemonic = "F"; key = "pick_fmult"; } : toggle { label = "Verrouiller la vue"; mnemonic = "V"; key = "lock_fm"; } } :column { :boxed_column { label = "Point de Base"; : button { label = "Saisir <"; mnemonic = "S"; key = "pick_pt"; } : edit_box { label = "X:"; mnemonic = "X"; key = "x_pt"; edit_width = 10; } : edit_box { label = "Y:"; mnemonic = "Y"; key = "y_pt"; edit_width = 10; } : edit_box { label = "Z:"; mnemonic = "Z"; key = "z_pt"; edit_width = 10; } } :boxed_column { label = "Rotation"; : button { label = "Saisir <"; mnemonic = "S"; key = "pick_ang"; } : edit_box { label = "Angle:"; key = "rotation"; mnemonic = "A"; edit_width = 6; } } } } :boxed_row { label = "Choix Unité utilisée dans l'espace Objet"; :radio_button { label = "mm"; key = "b_mm"; } :radio_button { label = "cm"; key = "b_cm"; } :radio_button { label = "m "; key = "b_m"; } :radio_button { label = "km"; key = "b_km"; } } :boxed_column { label = "Renseignement dossier"; :edit_box { label = "Classement:"; mnemonic = "C"; key = "c_cla"; width = 15; edit_width = 15; } :edit_box { label = "Dessinateur:"; mnemonic = "D"; key = "c_des"; width = 15; edit_width = 15; } } ok_cancel_err; } Il ne te reste plus qu'a rajouter ce qui suit dans un fichier à chargement autmatique, exemple: acad200"n"doc.lsp (Il y en a d'autres...) (load "tatouage.lsp") (if s::startup (setq s::startup (append s::startup '((record)))) (defun-q s::startup () (record)) )

Essayes de rajouter ceci après la ligne : (setq d_pc (getreal "\nEntrer la valeur de la pente (rampe) en % ?: ")) (initget 8) (setq echll (getpoint "\nEchelle du profil en long X,Y <1000,100>: ")) (if (eq echll ()) (setq echll '(1000 100))) (setq d_pc (* d_pc (/ (car echll) (cadr echll))))

Bonjour Est ce que quelqu'un connait ou à essayé Universal CAD Converter Et votre opinion, ceci pour m'éviter de m'inscrire sur le site juste pour l'essayer.

C'est dans la partie Admin. ;) ICI C'est pour ça que je suis obligé d'embêter Patrick pour faire les mise à jours :red: Beaucoup de corrections mineures ont été apporté, et des ajouts ont été fait depuis cette mise en ligne, j'suis pas sérieux.... :mad: [Edité le 16/2/2006 par bonuscad]

Si tu tes définitions sont bonnes dans un gabarit, c'est que tu possèdes les SHX et les LIN correspondants, quelque part dans les méandres des dossiers de XP et d'Autocad 2006 :exclam: Enfin, il me semble..., je ne peux rien affirmer pour une 2006, je ne la connais pas.

Bonjour, Dans l'archive il y a les 2 fichiers. Tu renomme simplement "trinod pour XP.lsp" en "trinod.lsp". Il faudrait que je me fasse une page "woueb" pour tenir tout ça à jour, ça serait plus façile pour tout le monde :P Mais comme c'est pas trop mon domaine, il va falloir patienter :casstet:

Regardes ce POST Il contient une routine "model_typline" Si "etransmit" n'a pas été utilisé, cette routine peut te permettre de récupérer la définition d'un type de ligne. Pour que cela fonctionne, il te faudra désigné une entité ayant ce type de ligne (et non pas "ducalque"). Pour le besoin par les propriété de l'objet tu lui assigne ce type de ligne au cas ou le type de ligne ne soit appliqué qu'au calque. Il te suffira de faire un copier-coller du résultat de la définition dans un fichier .LIN Si des formes sont employé dans le type de ligne, le fichier SHX ne seras pas restitué. Là c'est encore un autre problème ;)

J'ai utilisé la HP 2500C Professional. Niveau qualité de rendu, rien à redire. Par contre la partie mécanique concernant la prise papier, c'est pas du tout ça. Et cela constaté sur 3 imprimantes exactement du même type. Maintenant "Laser Couleur Epson", mais là c'est plus le même prix (surtout en A3) :casstet:

Je ne l'ai jamais utilisé, mais je crois que la commande Autocad "_dbConnect" permet cela. Surtout si tu dispose d'Access. Mais d'autres utilisateurs avertis t'en diront certainement plus.

Tu peux essayer ceci ((lambda ( / def_lay name_lay new_name) (setq def_lay (tblnext "LAYER" t)) (while def_lay (setq name_lay (cdr (assoc 2 def_lay))) (if (setq start_str (vl-string-search "TB_" name_lay)) (progn (setq new_name (substr name_lay (+ start_str 4))) (command "_.-rename" "_layer" name_lay new_name) ) ) (setq def_lay (tblnext "LAYER")) ) (prin1) )) En modifiant (vl-string-search "TB_" name_lay) en (vl-string-search "$0$" name_lay) Il peut servir à renommer les calques après l'ajout d'Xref dans le dessin. ;) [Edité le 15/2/2006 par bonuscad]

Ce que tu pourrais faire, c'est de récuperer le CD d'une version 2000 Fr, la version de démo des expresstools est en FRANCAIS. Elle ressemble beaucoup à la version complète US avec quelque fonctions en moins (overkill, flatten ...) A partir de là, il ne reste plus grand chose à traduire. Si tu n'as aucun moyen de récupérer ceux-ci, je peux te faire parvenir les fichier menu. Certain lisp (non compilés) sont aussi en francais, mais peut être par forcémment compatible avec les version US ultérieures (mais je peux aussi te les fournir) SVP: Une adresse courriel si tu es interressé. NB: Cette version Fr fonctionne aussi très bien sous une 2002 après quelque manips pas très compliqués.

Oui Patrick_35, mais dans l'optique que je me suis fixé; parcourir la base dans l'ordre de création, je suis pas sûr qu' un jeu de sélection soit parcouru de la même manière. (La logique voudrait que oui) Je pense aussi que manipuler une liste peut être vite pénalisant aux niveaux des temps de réponse, surtout si tu fait ça dans un dessin énorme. En fait mon code ne bug pas, mais il est difficile de savoir s'il fonctionne correctement. Je vais prendre le temps de faire des test suivis et pas au hasard comme je l'ai fais jusqu'à maintenant. Tramber, je vais regarder si tes lignes peuvent m'apporter quelque choses. Je suis encore à découvrir les fonctions vl et vlax au coup par coup. Donc toujours instructif ;) Je vous remercie de vos réponses :D Même mais recherche sur le Net, Les Handles ont l'air d'être peu utilisé. On se demande même pourquoi ils ont été crés :casstet:

Salut Patrick_35, J'avais bien pensé au départ de monter le code avec (entnext), mais comme j'ai voulu parcourir la base de donnée dans les 2 sens, il m'était plus facile d'incrementer ou décrementer les Handles. Ma question reformulé: Est-ce qu'il est possible qu'un identificateur de maintien est une valeur PLUS elevée que la dernière entité ajouté au dessin? Lors de mon essai infructueux j'ai trouvé le handle d'un xref plus grand que la dernière entité rajouté à la base de donnée graphique. Est ce spécifique aux xrefs, où ais-je révé? :casstet:

C'est le lien sur CompareDWG en clair: http://www.furix.com/index.htm?PC Je pense avoir dit une "co....ie", la fusion ne doit pas être visible à l'apercu. Désolé.

Voici un lien que je viens de trouver (en faisant d'autres recherches) Peut être la réponse? CompareDWG