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
  3. ID_MonTrucAmoi [->&MonTrucAmoi]
  4. ID_McdmParois [&Parois]$I=PAROI $I=* $S=PAROIm
  5. ID_McdmArbre [->&Arbre]
  6. ID_McdmTrace [&Dessin]^P(cond ((null C:ARBRE) +
  7.      (prompt "En cours de Chargement")(princ) +
  8.      (load "ARBRE")) (T (princ)));ARBRE;
  9. ID_McdmMasse [&Masse](masse);
  10. ID_McdmCdG [&Centre d'inertie](Cdg);
  11. ID_McdmInertie [<-&I axe ](inertie);
  12. ID_McdmPivot [->&Pivot]
  13. ID_McdmPiv1RB [Pivot&1RB]^P(cond ((null C:PIVOT1RB) +
  14.      (prompt "En cours de Chargement")(princ) +
  15.      (load "1RB")) (T (princ)));PIVOT1RB;
  16. ID_McdmPivOBL [Pivot&OBL]^P(cond ((null C:PIVOTOBL) +
  17.      (prompt "En cours de Chargement")(princ) +
  18.      (load "OBL")) (T (princ)));PIVOTOBL;
  19. ID_McdmPivCNQ [Pivot&CNQ]^P(cond ((null C:PIVOTCNQ) +
  20.      (prompt "En cours de Chargement")(princ) +
  21.      (load "CNQ")) (T (princ)));PIVOTCNQ;
  22. ID_McdmPivROT [Pivot&ROT]^P(cond ((null C:PIVOTROT) +
  23.      (prompt "En cours de Chargement")(princ) +
  24.      (load "ROT")) (T (princ)));PIVOTROT;
  25. ID_McdmPivR2T [PivotR&2T]^P(cond ((null C:PIVOTR2T) +
  26.      (prompt "En cours de Chargement")(princ) +
  27.      (load "R2T")) (T (princ)));PIVOTR2T;
  28. ID_McdmPivMIX [<-PivotMIX]^P(cond ((null C:PIVOTMIX) +
  29.      (prompt "En cours de Chargement")(princ) +
  30.      (load "MIX")) (T (princ)));PIVOTMIX;
  31. ID_McdmRlt [&Roulements]$I=SKF1 $I=* $S=RLT
  32. ID_McdmBut [&Butées]$I=SKF2 $I=* $S=BUT
  33. ID_McdmOrgan [&Organes]$I=ORG $I=* $S=ORGANE
  34. 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]
  4. [rlt(1RB,1 rg de billes)]^P(cond ((null C:1RB) +
  5.      (prompt "En cours de Chargement")(princ) +
  6.      (load "1RB")) (T (princ)));1RB;
  7. [rlt(2RB,2 rg de billes)]^P(cond ((null C:2RB) +
  8.      (prompt "En cours de Chargement")(princ) +
  9.      (load "2RB")) (T (princ)));2RB;
  10. [rlt(OBL,contact oblique)]^P(cond ((null C:OBL) +
  11.      (prompt "En cours de Chargement")(princ) +
  12.      (load "OBL")) (T (princ)));OBL;
  13. [rlt(ROT2B,rotule à billes)]^P(cond ((null C:ROT) +
  14.      (prompt "En cours de Chargement")(princ) +
  15.      (load "ROT")) (T (princ)));ROT;
  16. [rlt(ROT2T,rotule à rouleaux)]^P(cond ((null C:ROT2T) +
  17.      (prompt "En cours de Chargement")(princ) +
  18.      (load "ROT2T")) (T (princ)));ROT2T;
  19. [rlt(CYL,rouleaux cylindriques)]^P(cond ((null C:CYL) +
  20.      (prompt "En cours de Chargement")(princ) +
  21.      (load "CYL")) (T (princ)));CYL;
  22. [rlt(CONI,rouleaux coniques)]^P(cond ((null C:CNQ) +
  23.      (prompt "En cours de Chargement")(princ) +
  24.      (load "CNQ")) (T (princ)));CNQ;
  25. [rlt(ECRSKF,écrou+rondelle-frein)]^P(cond ((null C:ECR) +
  26.      (prompt "En cours de Chargement")(princ) +
  27.      (load "ECR")) (T (princ)));ECR;
  28. [rlt(ETASKF,rondelle d'étanchéïté)]^P(cond ((null C:ETA) +
  29.      (prompt "En cours de Chargement")(princ) +
  30.      (load "ETA")) (T (princ)));ETA;
  31. [ Butées SKF]$I=SKF2 $I=*
  32. **SKF2
  33. [Butées SKF]
  34. [rlt(BSE,simple effet)]^P(cond ((null C:BSE) +
  35.      (prompt "En cours de Chargement")(princ) +
  36.      (load "BUTSE")) (T (princ)));BSE;
  37. [rlt(BSESP,simple effet sphérique)]^P(cond ((null C:BSESP) +
  38.      (prompt "En cours de Chargement")(princ) +
  39.      (load "BUTSESP")) (T (princ)));BSESP;
  40. [rlt(BDE,double effet)]^P(cond ((null C:BDE) +
  41.      (prompt "En cours de Chargement")(princ) +
  42.      (load "BUTDE")) (T (princ)));BDE;
  43. [rlt(BDESP,dble effet sphérique)]^P(cond ((null C:BDESP) +
  44.      (prompt "En cours de Chargement")(princ) +
  45.      (load "BUTDESP")) (T (princ)));BDESP;
  46. [Roulements SKF]$I=SKF1 $I=*
  47. **PAROI
  48. [Raccords de Parois moulées]
  49. [icoparoi(L1,en L)]^P(cond ((null C:RACCL) +
  50.      (prompt "En cours de Chargement")(princ) +
  51.      (load "L")) (T (princ)));RACCL;
  52. [icoparoi(L2,en L vif)]^P(cond ((null C:RACCLvif) +
  53.      (prompt "En cours de Chargement")(princ) +
  54.      (load "Lvif")) (T (princ)));RACCLvif;
  55. [icoparoi(V1,en V)]^P(cond ((null C:RACCV) +
  56.      (prompt "En cours de Chargement")(princ) +
  57.      (load "V")) (T (princ)));RACCV;
  58. [icoparoi(T1,en T 1er type)]^P(cond ((null C:RACCT1) +
  59.      (prompt "En cours de Chargement")(princ) +
  60.      (load "T1")) (T (princ)));RACCT1;
  61. [icoparoi(T2,en T 2ème type)]^P(cond ((null C:RACCT2) +
  62.      (prompt "En cours de Chargement")(princ) +
  63.      (load "T2")) (T (princ)));RACCT2;
  64. [icoparoi(T3,en T 3ème type)]^P(cond ((null C:RACCT3) +
  65.      (prompt "En cours de Chargement")(princ) +
  66.      (load "T3")) (T (princ)));RACCT3;
  67. [icoparoi(Y1,en Y symétrique)]^P(cond ((null C:RACCY1) +
  68.      (prompt "En cours de Chargement")(princ) +
  69.      (load "Y1")) (T (princ)));RACCY1;
  70. [icoparoi(Y2,en Y assymétr.)]^P(cond ((null C:RACCY2) +
  71.      (prompt "En cours de Chargement")(princ) +
  72.      (load "Y2")) (T (princ)));RACCY2;
  73. **ORG
  74. [Organes d'assemblage]
  75. [icorlt(vis1,vis Chc)]^P(cond ((null C:CHC) +
  76.      (prompt "En cours de Chargement")(princ) +
  77.      (load "CHC")) (T (princ)));CHC;
  78. [icorlt(H1,écrouH face)]^P(cond ((null C:H) +
  79.       (prompt "En cours de Chargement")(princ) +
  80.       (load "ECRH")) (T (princ)));(C:H 0 );
  81. [icorlt(H2,écrouH coté)]^P(cond ((null C:H) +
  82.       (prompt "En cours de Chargement")(princ) +
  83.       (load "ECRH")) (T (princ)));(C:H 1 );
  84. [icorlt(H3,écrouH dessus)]^P(cond ((null C:H) +
  85.       (prompt "En cours de Chargement")(princ) +
  86.       (load "ECRH")) (T (princ)));(C:H 2 );
  87. [icorlt(rdp1,rondelle plate)]^P(cond ((null C:ROND) +
  88.       (prompt "En cours de Chargement")(princ) +
  89.       (load "RONDELLE")) (T (princ)));ROND;
  90. [icorlt(W1,rondelle grower)]^P(cond ((null C:W) +
  91.       (prompt "En cours de Chargement")(princ) +
  92.       (load "W")) (T (princ)));W;

 


Si vous aimez le site

 

Select a language if you need :


Page chargée en 0.003 sec.

Dernière Modification : Mer 25 Janvier 2017 8:56
Copyright © 1999-2017 Jean-Paul Molina Tous droits réservés.

to Google