AutoLisp

 

Supposons que vous vouliez intégrer les divers exemples dans un menu.

ajout dans menu AutoCad

Voici un extrait de ce qui devrait figurer dans le fichier menu d'AutoCad sous le label DESSIN ( ou DRAW).

  1. ***POP7
  2. **DESSIN
  4. ID_MonTrucAmoi [->&MonTrucAmoi]
  5. ID_McdmParois [&Parois]$I=PAROI $I=* $S=PAROIm
  6. ID_McdmArbre [->&Arbre]
  7. ID_McdmTrace [&Dessin]^P(cond ((null C:ARBRE) +
  8.      (prompt "En cours de Chargement")(princ) +
  9.      (load "ARBRE")) (T (princ)));ARBRE;
  10. ID_McdmMasse [&Masse](masse);
  11. ID_McdmCdG [&Centre d'inertie](Cdg);
  12. ID_McdmInertie [<-&I axe ](inertie);
  13. ID_McdmPivot [->&Pivot]
  14. ID_McdmPiv1RB [Pivot&1RB]^P(cond ((null C:PIVOT1RB) +
  15.      (prompt "En cours de Chargement")(princ) +
  16.      (load "1RB")) (T (princ)));PIVOT1RB;
  17. ID_McdmPivOBL [Pivot&OBL]^P(cond ((null C:PIVOTOBL) +
  18.      (prompt "En cours de Chargement")(princ) +
  19.      (load "OBL")) (T (princ)));PIVOTOBL;
  20. ID_McdmPivCNQ [Pivot&CNQ]^P(cond ((null C:PIVOTCNQ) +
  21.      (prompt "En cours de Chargement")(princ) +
  22.      (load "CNQ")) (T (princ)));PIVOTCNQ;
  23. ID_McdmPivROT [Pivot&ROT]^P(cond ((null C:PIVOTROT) +
  24.      (prompt "En cours de Chargement")(princ) +
  25.      (load "ROT")) (T (princ)));PIVOTROT;
  26. ID_McdmPivR2T [PivotR&2T]^P(cond ((null C:PIVOTR2T) +
  27.      (prompt "En cours de Chargement")(princ) +
  28.      (load "R2T")) (T (princ)));PIVOTR2T;
  29. ID_McdmPivMIX [<-PivotMIX]^P(cond ((null C:PIVOTMIX) +
  30.      (prompt "En cours de Chargement")(princ) +
  31.      (load "MIX")) (T (princ)));PIVOTMIX;
  32. ID_McdmRlt [&Roulements]$I=SKF1 $I=* $S=RLT
  33. ID_McdmBut [&Butées]$I=SKF2 $I=* $S=BUT
  34. ID_McdmOrgan [&Organes]$I=ORG $I=* $S=ORGANE
  35. ID_McdmCalcul [&Calculs]^P(if (startapp (findfile "MonTrucAmoi.exe"))(princ)(alert "MonTrucAmoi.exe introuvable.")) ^P

Remarque 1 : Laisser l'instruction précédente sur une ligne
Remarque 2 : fonctionne à condition que la variable d'environnement ACAD soit définie correctement. A mon avis, cette fonction est inutile compte-tenu de l'environnement Windows si l'on dispose toutefois d'assez de mémoire vive.

Et quelque part plus loin, on trouverait les menus Image :

  1. ***image
  2. **SKF1
  3. [Roulements SKF]
  5. [rlt(1RB,1 rg de billes)]^P(cond ((null C:1RB) +
  6.      (prompt "En cours de Chargement")(princ) +
  7.      (load "1RB")) (T (princ)));1RB;
  8. [rlt(2RB,2 rg de billes)]^P(cond ((null C:2RB) +
  9.      (prompt "En cours de Chargement")(princ) +
  10.      (load "2RB")) (T (princ)));2RB;
  11. [rlt(OBL,contact oblique)]^P(cond ((null C:OBL) +
  12.      (prompt "En cours de Chargement")(princ) +
  13.      (load "OBL")) (T (princ)));OBL;
  14. [rlt(ROT2B,rotule à billes)]^P(cond ((null C:ROT) +
  15.      (prompt "En cours de Chargement")(princ) +
  16.      (load "ROT")) (T (princ)));ROT;
  17. [rlt(ROT2T,rotule à rouleaux)]^P(cond ((null C:ROT2T) +
  18.      (prompt "En cours de Chargement")(princ) +
  19.      (load "ROT2T")) (T (princ)));ROT2T;
  20. [rlt(CYL,rouleaux cylindriques)]^P(cond ((null C:CYL) +
  21.      (prompt "En cours de Chargement")(princ) +
  22.      (load "CYL")) (T (princ)));CYL;
  23. [rlt(CONI,rouleaux coniques)]^P(cond ((null C:CNQ) +
  24.      (prompt "En cours de Chargement")(princ) +
  25.      (load "CNQ")) (T (princ)));CNQ;
  26. [rlt(ECRSKF,écrou+rondelle-frein)]^P(cond ((null C:ECR) +
  27.      (prompt "En cours de Chargement")(princ) +
  28.      (load "ECR")) (T (princ)));ECR;
  29. [rlt(ETASKF,rondelle d'étanchéïté)]^P(cond ((null C:ETA) +
  30.      (prompt "En cours de Chargement")(princ) +
  31.      (load "ETA")) (T (princ)));ETA;
  32. [ Butées SKF]$I=SKF2 $I=*
  34. **SKF2
  35. [Butées SKF]
  36. [rlt(BSE,simple effet)]^P(cond ((null C:BSE) +
  37.      (prompt "En cours de Chargement")(princ) +
  38.      (load "BUTSE")) (T (princ)));BSE;
  39. [rlt(BSESP,simple effet sphérique)]^P(cond ((null C:BSESP) +
  40.      (prompt "En cours de Chargement")(princ) +
  41.      (load "BUTSESP")) (T (princ)));BSESP;
  42. [rlt(BDE,double effet)]^P(cond ((null C:BDE) +
  43.      (prompt "En cours de Chargement")(princ) +
  44.      (load "BUTDE")) (T (princ)));BDE;
  45. [rlt(BDESP,dble effet sphérique)]^P(cond ((null C:BDESP) +
  46.      (prompt "En cours de Chargement")(princ) +
  47.      (load "BUTDESP")) (T (princ)));BDESP;
  48. [Roulements SKF]$I=SKF1 $I=*
  50. **PAROI
  51. [Raccords de Parois moulées]
  52. [icoparoi(L1,en L)]^P(cond ((null C:RACCL) +
  53.      (prompt "En cours de Chargement")(princ) +
  54.      (load "L")) (T (princ)));RACCL;
  55. [icoparoi(L2,en L vif)]^P(cond ((null C:RACCLvif) +
  56.      (prompt "En cours de Chargement")(princ) +
  57.      (load "Lvif")) (T (princ)));RACCLvif;
  58. [icoparoi(V1,en V)]^P(cond ((null C:RACCV) +
  59.      (prompt "En cours de Chargement")(princ) +
  60.      (load "V")) (T (princ)));RACCV;
  61. [icoparoi(T1,en T 1er type)]^P(cond ((null C:RACCT1) +
  62.      (prompt "En cours de Chargement")(princ) +
  63.      (load "T1")) (T (princ)));RACCT1;
  64. [icoparoi(T2,en T 2ème type)]^P(cond ((null C:RACCT2) +
  65.      (prompt "En cours de Chargement")(princ) +
  66.      (load "T2")) (T (princ)));RACCT2;
  67. [icoparoi(T3,en T 3ème type)]^P(cond ((null C:RACCT3) +
  68.      (prompt "En cours de Chargement")(princ) +
  69.      (load "T3")) (T (princ)));RACCT3;
  70. [icoparoi(Y1,en Y symétrique)]^P(cond ((null C:RACCY1) +
  71.      (prompt "En cours de Chargement")(princ) +
  72.      (load "Y1")) (T (princ)));RACCY1;
  73. [icoparoi(Y2,en Y assymétr.)]^P(cond ((null C:RACCY2) +
  74.      (prompt "En cours de Chargement")(princ) +
  75.      (load "Y2")) (T (princ)));RACCY2;
  77. **ORG
  78. [Organes d'assemblage]
  79. [icorlt(vis1,vis Chc)]^P(cond ((null C:CHC) +
  80.      (prompt "En cours de Chargement")(princ) +
  81.      (load "CHC")) (T (princ)));CHC;
  82. [icorlt(H1,écrouH face)]^P(cond ((null C:H) +
  83.       (prompt "En cours de Chargement")(princ) +
  84.       (load "ECRH")) (T (princ)));(C:H 0 );
  85. [icorlt(H2,écrouH coté)]^P(cond ((null C:H) +
  86.       (prompt "En cours de Chargement")(princ) +
  87.       (load "ECRH")) (T (princ)));(C:H 1 );
  88. [icorlt(H3,écrouH dessus)]^P(cond ((null C:H) +
  89.       (prompt "En cours de Chargement")(princ) +
  90.       (load "ECRH")) (T (princ)));(C:H 2 );
  91. [icorlt(rdp1,rondelle plate)]^P(cond ((null C:ROND) +
  92.       (prompt "En cours de Chargement")(princ) +
  93.       (load "RONDELLE")) (T (princ)));ROND;
  94. [icorlt(W1,rondelle grower)]^P(cond ((null C:W) +
  95.       (prompt "En cours de Chargement")(princ) +
  96.       (load "W")) (T (princ)));W;

 

Page chargée en 0.001 sec.

Dernière Modification : Sam 14 Octobre 2023 9:48
Copyright © 1999-2024 Jean-Paul Molina Tous droits réservés.

 

to Google