nounours44 Posté(e) le 14 septembre 2012 Posté(e) le 14 septembre 2012 salut a tous les lispeur j'ai un probleme avec ce lisp.j'ai j'execute le programme il ouvre l'aide autocad alors que je n'en veut pas et je n'arrive pas a comprendre pourquoi.le probleme arrive quand l'editeur visual lisp est fermer car quand il est ouvert tout vas bien.pour info ce programme fait parti de tout un enssemble ou je charge deja le (vl-load-com). merci d'avance de votre aide. cordialement (defun Slip-on ( ) (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq Y (car (cddddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 J) (setq pt2 (- C j)) (setq pt3 (- y c)) (setq d1 (/ x 2)) (setq d2 (/ o 2)) (setq d3 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 ;;;; definition des point (command "_circle" c1 d3) (setq ent1 (entlast)) (command "_extrude" ent1 "" j) (setq ent5 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_extrude" ent2 "" (- c j)) (setq ent6 (entlast)) (command "_circle" c3 d1) (setq ent3 (entlast)) (command "_extrude" ent3 "" (- y c)) (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "" ) (princ) )
usegomme Posté(e) le 14 septembre 2012 Posté(e) le 14 septembre 2012 Bonjour Essai pour voir avec (setvar "delobj" 2) à la place de (command "_delobj" 2) qui renvoie un "entrée" en ligne de commande.
nounours44 Posté(e) le 14 septembre 2012 Auteur Posté(e) le 14 septembre 2012 merci usegomme mais le resultat est toujours le même.petite info supplementair qui pourrais peut etre aider.la fenetre d'aide s'ouvre la premiere fois que je lance le code.les fois suivante il s'arrete apres la premiere extrusion. cordialement Bonjour Essai pour voir avec (setvar "delobj" 2) à la place de (command "_delobj" 2) qui renvoie un "entrée" en ligne de commande.
Patrick_35 Posté(e) le 14 septembre 2012 Posté(e) le 14 septembre 2012 Salut A la lecture du lisp, tu n'as pas de variable l_val de définie @+ Les Lisps de PatrickLe but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.Joseph Joubert, 1754-1824
nounours44 Posté(e) le 14 septembre 2012 Auteur Posté(e) le 14 septembre 2012 en fait je recupere la variable a partir d'un autre partie du programme si dessous.ce n'ai q'une partie du menu complet mais les bride 3d sont complete. ;********************************************************************************************; bride 3D pétro;******************************************************************************************** (defun c:stoodcl_pltbride3dpetro_OnInitialize (/) (dcl_ComboBox_Clear stoodcl_pltbride3dpetro_COMBOPN) (dcl_ComboBox_Clear stoodcl_pltbride3dpetro_COMBOTYPE) (dcl_ComboBox_Clear stoodcl_pltbride3dpetro_COMBODN) (dcl_combobox_AddList stoodcl_pltbride3dpetro_COMBOPN (list "PN20" "PN50" "PN68" "PN100" "PN150" "PN250" "PN420")) (dcl_combobox_AddList stoodcl_pltbride3dpetro_COMBOTYPE (list "Taraude" "SW" "Pleine" "WN" "Slip-on" "Tournante")) )(defun c:stoodcl_pltbride3dpetro_COMBOPN_OnSelChanged (ItemIndexOrCount Value /) (dcl_MessageBox "To Do: code must be added to event handler\r\nc:stoodcl_pltbride3dpetro_COMBOPN_OnSelChanged" "To do")) (defun c:stoodcl_pltbride3dpetro_COMBOPN_OnSelChanged (ItemIndexOrCount Value /) (dcl_ComboBox_Clear stoodcl_pltbride3dpetro_COMBODN) (setq PN (dcl_Control_GetText stoodcl_pltbride3dpetro_COMBOPN)) (cond ((= PN "PN20") (setq PN20 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 89.0 11.2 34.9 30.0 16.0 21.3 48.0 16.0 )) ( "DN20" . ( 99.0 12.7 42.9 38.0 16.0 26.7 52.0 16.0 )) ( "DN25" . ( 108.0 14.3 50.8 49.0 17.0 33.4 56.0 17.0 )) ( "DN32" . ( 117.0 15.7 63.5 59.0 21.0 42.2 57.0 21.0 )) ( "DN40" . ( 127.0 17.5 73.0 65.0 22.0 48.3 62.0 22.0 )) ( "DN50" . ( 152.0 19.1 92.1 78.0 25.0 60.3 63.0 25.0 )) ( "DN65" . ( 178.0 22.3 104.8 90.0 29.0 73.0 70.0 29.0 )) ( "DN80" . ( 190.0 23.9 127.0 108.0 30.0 88.9 70.0 30.0 )) ( "DN95" . ( 216.0 23.9 139.7 122.0 32.0 101.6 71.0 32.0 )) ( "DN100" . ( 229.0 23.9 157.2 135.0 33.0 114.3 76.0 33.0 )) ( "DN125" . ( 254.0 23.9 185.7 164.0 37.0 141.3 89.0 37.0 )) ( "DN150" . ( 279.0 25.4 215.9 192.0 40.0 168.3 89.0 40.0 )) ( "DN200" . ( 343.0 28.5 269.9 246.0 44.0 219.1 102.0 44.0 )) ( "DN250" . ( 406.0 30.2 323.8 305.0 49.0 273.0 102.0 49.0 )) ( "DN300" . ( 483.0 31.8 381.0 365.0 56.0 323.9 114.0 56.0 )) ( "DN350" . ( 533.0 35.0 412.8 400.0 57.0 355.6 127.0 79.0 )) ( "DN400" . ( 597.0 36.6 469.9 457.0 63.0 406.4 127.0 87.0 )) ( "DN450" . ( 635.0 39.7 533.4 505.0 68.0 457.0 140.0 97.0 )) ( "DN500" . ( 698.0 42.9 584.2 559.0 73.0 508.0 144.0 103.0 )) ( "DN600" . ( 813.0 47.7 692.2 664.0 83.0 610.0 152.0 111.0 )) ) ) ) ((= PN "PN50") (setq PN50 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 95.0 14.2 34.9 38.0 22.0 21.3 52.0 22.0 )) ( "DN20" . ( 117.0 15.7 42.9 48.0 25.0 26.7 57.0 25.0 )) ( "DN25" . ( 124.0 17.5 50.8 54.0 27.0 33.5 62.0 27.0 )) ( "DN32" . ( 133.0 19.0 63.5 63.0 27.0 42.2 65.0 27.0 )) ( "DN40" . ( 156.0 20.6 73.0 70.0 30.0 48.3 68.0 30.0 )) ( "DN50". ( 165.0 22.4 92.1 84.0 33.0 60.3 70.0 33.0 )) ( "DN65" . ( 190.0 25.4 104.8 100.0 38.0 73.0 76.0 38.0 )) ( "DN80" . ( 210.0 28.4 127.0 117.0 43.0 88.9 79.0 43.0 )) ( "DN95" . ( 229.0 30.2 139.7 133.0 44.0 101.6 81.0 44.0 )) ( "DN100" . ( 254.0 31.8 157.2 146.0 48.0 114.3 86.0 48.0 )) ( "DN125" . ( 279.0 35.0 185.7 178.0 51.0 141.3 98.0 51.0 )) ( "DN150" . ( 318.0 36.6 215.9 206.0 52.0 168.3 98.0 52.0 )) ( "DN200" . ( 381.0 41.1 269.9 260.0 62.0 219.1 111.0 62.0 )) ( "DN250" . ( 444.0 47.8 323.8 320.0 66.0 273.0 117.0 95.0 )) ( "DN300" . ( 521.0 50.8 381.0 375.0 73.0 323.9 130.0 102.0 )) ( "DN350" . ( 584.0 53.8 412.8 425.0 76.0 355.6 143.0 111.0 )) ( "DN400" . ( 648.0 57.2 469.9 483.0 83.0 406.4 146.0 121.0 )) ( "DN450" . ( 711.0 60.5 533.4 533.0 89.0 457.0 159.0 130.0 )) ( "DN500" . ( 775.0 63.5 584.2 587.0 95.0 508.0 162.0 140.0 )) ( "DN600" . ( 914.0 69.9 692.2 701.0 106.0 610.0 168.0 152.0 )) ) ) ) ((= PN "PN68") (setq PN68 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN100" . ( 254.0 35.0 157.2 146.0 51.0 114.3 89.0 51.0 )) ( "DN125" . ( 279.0 38.1 185.7 178.0 54.0 141.3 102.0 54.0 )) ( "DN150" . ( 318.0 41.1 215.9 206.0 57.0 168.3 103.0 57.0 )) ( "DN200" . ( 381.0 47.8 269.9 260.0 68.0 219.1 117.0 68.0 )) ( "DN250" . ( 444.0 53.8 323.8 320.0 73.0 273.0 124.0 102.0 )) ( "DN300" . ( 521.0 57.2 381.0 375.0 79.0 323.9 137.0 108.0 )) ( "DN350" . ( 584.0 60.5 412.8 425.0 84.0 355.6 149.0 117.0 )) ( "DN400" . ( 648.0 63.5 469.9 483.0 94.0 406.4 152.0 127.0 )) ( "DN450" . ( 711.0 66.5 533.4 533.0 98.0 457.0 165.0 137.0 )) ( "DN500" . ( 775.0 69.9 584.2 587.0 102.0 508.0 168.0 146.0 )) ( "DN600" . ( 914.0 76.2 692.2 701.0 114.0 610.0 175.0 159.0 )) ) ) ) ((= PN "PN100") (setq PN100 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 95.0 14.2 34.9 38.0 22.0 21.3 52.0 22.0 )) ( "DN20" . ( 117.0 15.7 42.9 48.0 25.0 26.7 57.0 25.0 )) ( "DN25" . ( 124.0 17.5 50.8 54.0 27.0 33.4 62.0 27.0 )) ( "DN32" . ( 133.0 20.6 63.5 64.0 29.0 42.2 67.0 29.0 )) ( "DN40" . ( 156.0 22.4 73.0 70.0 32.0 48.3 70.0 32.0 )) ( "DN50" . ( 165.0 25.4 92.1 84.0 37.0 60.3 73.0 37.0 )) ( "DN65" . ( 190.0 28.4 104.8 100.0 41.0 73.0 79.0 41.0 )) ( "DN80" . ( 210.0 31.8 127.0 118.0 46.0 88.9 83.0 46.0 )) ( "DN95" . ( 229.0 35.0 139.7 133.0 49.0 101.6 86.0 49.0 )) ( "DN100" . ( 273.0 38.1 157.2 152.0 54.0 114.3 102.0 54.0 )) ( "DN125" . ( 330.0 44.5 185.7 189.0 60.0 141.3 114.0 60.0 )) ( "DN150" . ( 356.0 47.8 215.9 222.0 67.0 168.3 117.0 67.0 )) ( "DN200" . ( 419.0 55.6 269.9 273.0 76.0 219.1 133.0 76.0 )) ( "DN250" . ( 508.0 63.5 323.8 343.0 86.0 273.0 152.0 111.0 )) ( "DN300" . ( 559.0 66.5 381.0 400.0 92.0 323.9 156.0 117.0 )) ( "DN350" . ( 603.0 69.9 412.8 432.0 94.0 355.6 165.0 127.0 )) ( "DN400" . ( 686.0 76.2 469.9 495.0 106.0 406.4 178.0 140.0 )) ( "DN450" . ( 743.0 82.6 533.4 546.0 117.0 457.0 184.0 152.0 )) ( "DN500" . ( 813.0 88.9 584.2 610.0 127.0 508.0 190.0 165.0 )) ( "DN600" . ( 940.0 101.6 692.2 718.0 140.0 610.0 203.0 184.0 )) ) ) ) ((= PN "PN150") (setq PN150 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN80" . ( 241.0 38.1 127.0 127.0 54.0 88.9 102.0 54.0 )) ( "DN100" . ( 292.0 44.5 157.2 159.0 70.0 114.3 114.0 70.0)) ( "DN125" . ( 349.0 50.8 185.7 190.0 79.0 141.3 127.0 79.0)) ( "DN150" . ( 381.0 55.6 215.9 235.0 86.0 168.3 140.0 86.0 )) ( "DN200" . ( 470.0 63.5 269.9 298.0 102.0 219.1 162.0 114.0 )) ( "DN250" . ( 546.0 69.9 323.8 368.0 108.0 273.0 184.0 127.0 )) ( "DN300" . ( 610.0 79.2 381.0 419.0 117.0 323.9 200.0 143.0 )) ( "DN350" . ( 641.0 85.9 412.8 451.0 130.0 355.6 213.0 155.0 )) ( "DN400" . ( 705.0 88.9 469.9 508.0 133.0 406.4 216.0 165.0 )) ( "DN450" . ( 787.0 101.6 533.4 565.0 152.0 457.0 229.0 190.0 )) ( "DN500" . ( 857.0 108.0 584.2 622.0 159.0 508.0 248.0 210.0 )) ( "DN600" . ( 1041.0 139.7 692.2 749.0 203.0 610.0 292.0 267.0 )) ( "DN750" . ( 1231.9 149.4 857.2 889.0 311.1 762.0 311.1 nil)) ) ) ) ((= PN "PN250") (setq PN250 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 121.0 22.4 34.9 38.0 32.0 21.3 60.0 32.0 )) ( "DN20" . ( 130.0 25.4 42.9 44.0 35.0 26.7 70.0 35.0 )) ( "DN25" . ( 149.0 28.4 50.8 52.0 41.0 33.4 73.0 41.0 )) ( "DN32" . ( 159.0 28.4 63.5 63.0 41.0 42.2 73.0 41.0 )) ( "DN40" . ( 178.0 31.8 73.0 70.0 44.0 48.3 83.0 44.0 )) ( "DN50" . ( 216.0 38.1 92.1 105.0 57.0 60.3 102.0 57.0 )) ( "DN65" . ( 244.0 41.1 104.8 124.0 63.0 73.0 105.0 63.0 )) ( "DN80" . ( 267.0 47.8 127.0 133.0 nil 88.9 118.0 73.0 )) ( "DN100" . ( 311.0 53.8 157.2 162.0 nil 114.3 124.0 90.0 )) ( "DN125" . ( 375.0 73.2 185.7 197.0 nil 141.3 155.0 105.0 )) ( "DN150" . ( 394.0 82.6 215.9 229.0 nil 168.3 171.0 119.0 )) ( "DN200" . ( 483.0 91.9 269.7 292.0 nil 219.1 213.0 143.0 )) ( "DN250" . ( 584.0 108.0 323.8 368.0 nil 273.0 254.0 178.0 )) ( "DN300" . ( 673.0 124.0 381.0 451.0 nil 323.9 283.0 219.0 )) ( "DN350" . ( 749.0 133.4 412.8 495.0 nil 355.6 298.0 241.0 )) ( "DN400" . ( 826.0 146.0 469.9 552.0 nil 406.4 311.0 260.0 )) ( "DN450" . ( 914.0 162.0 533.4 597.0 nil 457.0 327.0 276.0 )) ( "DN500" . ( 984.0 177.8 584.2 641.0 nil 508.0 356.0 292.0 )) ( "DN600" . ( 1168.0 203.2 692.2 762.0 nil 610.0 406.0 330.0 )) ) ) ) ((= PN "PN420") (setq PN420 '( ;; 0 ;;;; O C R X Y A Y1 Y2 ( "DN15" . ( 133.0 30.2 34.9 43.0 nil 21.3 73.0 40.0 )) ( "DN20" . ( 140.0 31.8 42.9 51.0 nil 26.7 79.0 43.0 )) ( "DN25" . ( 159.0 35.0 50.8 57.0 nil 33.4 89.0 48.0 )) ( "DN32" . ( 184.0 38.1 63.5 73.0 nil 42.2 95.0 52.0 )) ( "DN40" . ( 203.0 44.5 73.0 79.0 nil 48.3 111.0 60.0 )) ( "DN50" . ( 235.0 50.8 92.1 95.0 nil 60.3 127.0 70.0 )) ( "DN65" . ( 267.0 57.2 104.8 114.0 nil 73.0 143.0 79.0 )) ( "DN80" . ( 305.0 66.5 127.0 133.0 nil 88.9 168.0 92.0 )) ( "DN100" . ( 356.0 76.2 157.2 165.0 nil 114.3 190.0 108.0 )) ( "DN125" . ( 419.0 91.9 185.7 203.0 nil 141.3 229.0 130.0 )) ( "DN150" . ( 483.0 108.0 215.9 235.0 nil 168.3 273.0 152.0 )) ( "DN200" . ( 552.0 127.0 269.9 305.0 nil 219.1 317.0 178.0 )) ( "DN250" . ( 673.0 165.1 323.8 375.0 nil 273.0 419.0 229.0 )) ( "DN300" . ( 762.0 184.2 381.0 441.0 nil 323.9 464.0 254.0 )) ) ) ) ) (setq l_data (eval (read PN))) (setq temp (mapcar 'car l_data)) (dcl_combobox_AddList stoodcl_pltbride3dpetro_comboDN temp)) (defun c:stoodcl_pltbride3dpetro_OK_OnClicked (/) (setq BPN (dcl_Control_GetText stoodcl_pltbride3dpetro_COMBOPN)) (setq BDN (dcl_Control_GetText stoodcl_pltbride3dpetro_COMBODN)) (setq BTYPE (dcl_Control_GetText stoodcl_pltbride3dpetro_COMBOTYPE)) (setq test BDN ) (setq l_val (cdr (assoc BDN l_data))) (if ; ===== (= BTYPE "Taraude") ; ===== (Taraude) ; ===== ) ; end if ===== (if ; ===== (= BTYPE "Pleine") ; ===== (Pleine) ; ===== ) ; end if ===== (if ; ===== (= BTYPE "WN") ; ===== (Wn) ; ===== ) ; end if ===== (if ; ===== (= BTYPE "Slip-on") ; ===== (Slip-on l-val) ; ===== ) ; end if (if ; ===== (= BTYPE "SW") ; ===== (SW) ; ===== ) ; end if (if ; ===== (= BTYPE "Tournante") ; ===== (Tournante) ; ===== ) ; end if ) (defun Taraude () (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq Y (car (cddddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 J) (setq pt2 (- C j)) (setq pt3 (- y c)) (setq d1 (/ x 2)) (setq d2 (/ o 2)) (setq d3 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 ;;;; definition des point (command "_circle" c1 d3) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_circle" c3 d1) (setq ent3 (entlast)) (command "_extrude" ent1 "" j "") (setq ent5 (entlast)) (command "_extrude" ent2 "" (- c j) "") (setq ent6 (entlast)) (command "_extrude" ent3 "" (- y c) "") (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "") (command "_ucs" "" "G" "")) (defun SW ( ) (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq Y (car (cddddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 J) (setq pt2 (- C j)) (setq pt3 (- y c)) (setq d1 (/ x 2)) (setq d2 (/ o 2)) (setq d3 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 ;;;; definition des point (command "_circle" c1 d3) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_circle" c3 d1) (setq ent3 (entlast)) (command "_extrude" ent1 "" j "") (setq ent5 (entlast)) (command "_extrude" ent2 "" (- c j) "") (setq ent6 (entlast)) (command "_extrude" ent3 "" (- y c) "") (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "") (command "_ucs" "" "G" "") ) (defun Slip-on ( l-val ) (setvar "delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq Y (car (cddddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la Bride <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 J) (setq pt2 (- C j)) (setq pt3 (- y c)) (setq d1 (/ x 2)) (setq d2 (/ o 2)) (setq d3 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 ;;;; definition des point (command "_circle" c1 d3) (setq ent1 (entlast)) (command "_extrude" ent1 "" j) (setq ent5 (entlast)) (command "_circle" c2 d2 ) (setq ent2 (entlast)) (command "_extrude" ent2 "" (- c j)) (setq ent6 (entlast)) (command "_circle" c3 d1 ) (setq ent3 (entlast)) (command "_extrude" ent3 "" (- y c)) (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "" ) (princ) ) (defun WN ( ) (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq X (car (cdddr l_val))) (setq A (car (cddddr (cdr l_val)))) (setq Y1 ( car (cddddr (cddr l_val)))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 (- y1 C)) (setq pt2 (- y1 j)) (setq pt3 y1) (setq d12 (- c j)) (setq d1 (/ a 2)) (setq d2 (/ x 2)) (setq d3 (/ o 2)) (setq d4 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 pt1) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 ;Definit les coordonnees du centre du petit d3 (setq x2 0.0) (setq y2 0.0) (setq z2 pt2) (setq c3 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d3 (command "_circle" c1 d1) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_circle" c2 d3) (setq ent3 (entlast)) (command "_circle" c3 d4) (setq ent4 (entlast)) (command "_loft" ent1 ent2 "" "") (setq ent5 (entlast)) (command "_extrude" ent3 "" d12 "") (setq ent6 (entlast)) (command "_extrude" ent4 "" j "") (setq ent7 (entlast)) (command "_union" ent5 ent6 ent7 "") ) (defun Tournante ( ) (command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq X (car (cdddr l_val))) (setq Y2 ( car (cddddr (cdddr l_val)))) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 C) (setq pt2 y2) (setq d2 (/ o 2)) (setq d1 (/ x 2));Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 C) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 (command "_circle" c1 d1) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_extrude" ent1 "" pt1 "") (setq ent3 (entlast)) (command "_extrude" ent2 "" pt2 "") (setq ent4 (entlast)) (command "_union" ent3 ent4 "") ) (defun Pleine ( )(command "_delobj" 2) ;;;;; attribution des données (setq O (car l_val)) (setq C (car (cdr l_val))) (setq R (car (cddr l_val))) (setq J 1.6) (setq pi2 (/ pi 2)) (dcl_Form_close stoodcl_pltbride3dpetro ) (setq pt_ins (getpoint "\nPoint d'insertion?: ") js_add (ssadd) js_remove (ssadd)) ;; orientation bride (if pt_ins (setq pf ( getpoint pt_ins "\n direction de la reduction <>: "))) (cond ((and pt_ins pf) (command "_ucs" "_Zaxis" "_none" pt_ins "_none" pf) (setq pt_ins '(0. 0. 0.)) ) (pt_ins (command "_ucs" "_none" pt_ins "") (setq pt_ins '(0. 0. 0.))) (t (setq pt_ins '(0. 0. 0.))) ) ;;;; definition des point (setq pt1 C) (setq d12 (- c j)) (setq d2 (/ o 2)) (setq d1 (/ r 2)) ;Definit les coordonnees du centre du grand d1 (setq x1 0.0) (setq y1 0.0) (setq z1 0.0) (setq c1 (list x1 y1 z1)) ;pt1 contient les coordonnées du centre d1 ;Definit les coordonnees du centre du petit d2 (setq x2 0.0) (setq y2 0.0) (setq z2 j) (setq c2 (list x2 y2 z2)) ;pt2 contient les coordonnées du centre d2 (command "_circle" c1 d1) (setq ent1 (entlast)) (command "_circle" c2 d2) (setq ent2 (entlast)) (command "_extrude" ent1 "" j "") (setq ent3 (entlast)) (command "_extrude" ent2 "" d12 "") (setq ent4 (entlast)) (command "_union" ent3 ent4 "") ) Salut A la lecture du lisp, tu n'as pas de variable l_val de définie @+
Patrick_35 Posté(e) le 14 septembre 2012 Posté(e) le 14 septembre 2012 Tu as apparemment des boites de dialogues qui définissent des variables.Comme ce que tu donnes est incomplet et je doute que l'auteur du lisp soit d'accord pour une diffusion de ses sources, il est très difficile, voir impossible de trouver le pourquoi du comment.Le plus simple est de t'adresser à l'auteur et de voir avec lui. @+ Les Lisps de PatrickLe but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.Joseph Joubert, 1754-1824
nounours44 Posté(e) le 14 septembre 2012 Auteur Posté(e) le 14 septembre 2012 salut patrick_35 ça tombe bien c'est moi l'auteur des sources avec un peut de code pris un peut partout donc je peut te l'ai passer mais pas sur le site car j'ai fait ça pour ma boite. cordialement Tu as apparemment des boites de dialogues qui définissent des variables.Comme ce que tu donnes est incomplet et je doute que l'auteur du lisp soit d'accord pour une diffusion de ses sources, il est très difficile, voir impossible de trouver le pourquoi du comment.Le plus simple est de t'adresser à l'auteur et de voir avec lui. @+
Patrick_35 Posté(e) le 14 septembre 2012 Posté(e) le 14 septembre 2012 Alors, à cette adresse(vl-list->string '(112 97 116 114 105 99 107 51 53 64 97 108 105 99 101 97 100 115 108 46 102 114)) @+ Les Lisps de PatrickLe but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.Joseph Joubert, 1754-1824
usegomme Posté(e) le 15 septembre 2012 Posté(e) le 15 septembre 2012 A ma connaissance, ce genre d'erreur vient d'une mauvaise syntaxe de commande et j'en ai trouvé une, deux fois: (command "_ucs" "" "G" "") il faut écrire (command "_ucs" "") ou (command "_ucs" "G" "") J'espère pour toi qu'il n'y a pas autre chose de plus compliqué. Salut
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant