home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / dos / fr / side_cad / cad10_11 / acad11.exe / ACAD.MNU
Lisp/Scheme  |  1995-05-01  |  203KB  |  6,837 lines
  1. ***Commentaire
  2.  
  3. ***BUTTONS
  4. ;
  5. $p1=*
  6. ^C^C
  7. ^B
  8. ^O
  9. ^G
  10. ^D
  11. ^E
  12. ^T
  13. ***AUX1
  14. ;
  15. $p1=*
  16. ^C^C
  17. ^B
  18. ^O
  19. ^G
  20. ^D
  21. ^E
  22. ^T
  23.  
  24. ***POP1
  25. [Outils]
  26. CENtre
  27. [EXTrémité    ]EXT
  28. [INTersection]INT
  29. MILieu
  30. [PERpendic.  ]PER
  31. TANgent
  32. QUAdrant
  33. PROche
  34. INSert
  35. NODal
  36. [RAPide,<mode>]RAP,^Z$p1=*
  37. AUCUN
  38. [Accrobj<mode>]^C^C$p1= $p1=* ACCROBJ \
  39. [FILTRES     >]$p1=filtres $p1=*
  40. [~--]
  41. [Assist]
  42. [Aide!        ]'?
  43.  
  44.  
  45. **filtres
  46. [Filtres]
  47. .X
  48. .Y
  49. .Z
  50. .XY
  51. .XZ
  52. .YZ
  53. [~--]
  54. [ASSIST >]$p1= $p1=*
  55.  
  56. ***POP2
  57. **p2draw
  58. [Dessin]
  59. [Ligne      ]^C^C$S=X $s=line ligne
  60. [Cercle    >]^C^C^P$p2=p2cir $p2=* (if (not c:ct)(defun c:ct ()+
  61. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  62. (setq *error* m:err m:err nil)(princ))(command "CERCLE" pause pause)+
  63. (setq *error* m:err m:err nil)(princ)))(princ);ct;\\^P$p2=p2draw
  64. [Arc       >]^C^C^P$p2=p2arc $p2=* (if (not c:at)(defun c:at ()+
  65. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  66. (setq *error* m:err m:err nil)(princ))(command "ARC" pause pause pause)+
  67. (setq *error* m:err m:err nil)(princ)))(princ);at;\\\^P$p2=p2draw
  68. [Polylign   ]^C^C^P$S=X $S=pline polylign
  69. [Polygone   ]^C^C^P$S=X $S=polygon (if (not c:mpg)+
  70. (defun c:mpg (/ m:err m:ps2 m:pe2 m:pg2 m:pgce)+
  71. (defun *error* (msg)(setvar "CMDECHO" m:pgce)(setq *error* m:err)(princ));+
  72. (setq m:err *error* m:pgce (getvar "CMDECHO"));+
  73. (if (not m:ps)(while (not m:ps2)(terpri)(graphscr)(initget 7)(setq m:ps2+
  74. (getint "Nombre de côtés: "))(if (or (< m:ps2 3)(> m:ps2 1024))(progn(terpri)+
  75. (princ "Valeur entre 3 et 1024.")(setq m:ps2 nil))));+
  76. (setq m:ps2 m:ps))(if (not m:pe)(progn(terpri)(initget 1 "Cote")+
  77. (setq m:pe2 (getpoint "Côté/<Centre du polygone>: "))) (if (= m:pe "Centre")+
  78. (progn(terpri)(initget 1)(setq m:pe2 (getpoint "Centre du polygone: ")));+
  79. (setq m:pe2 "Côté")))(if (and(/= m:pe2 "Côté")(not m:pg))(progn(terpri)+
  80. (initget 1 "Inscrit Circonscrit")(setq m:pg2+
  81. (getkword "Inscrit dans un cercle/Circonscrit à un cercle (I/C): ")));+
  82. (setq m:pg2 m:pg))(setvar "CMDECHO" 1)(if (= m:pe2 "Côté")(progn+
  83. (command "POLYGONE" m:ps2)(terpri)(command "Côté" pause pause))+
  84. (command "POLYGONE" m:ps2 m:pe2 m:pg2 pause))(setvar "CMDECHO" m:pgce);+
  85. (setq *error* m:err)(princ)))(princ);mpg;^P
  86. [Point      ]*^C^C$S=X $S=point point
  87. [3DFace     ]^C^C$S=X $S=3dface 3dface
  88. [Polylign 3D]^C^C$S=X $S=3dpoly 3dpoly
  89. [Anneau     ]^C^Canneau
  90. [Ellipse    ]^C^C$S=X $S=ellipse ellipse
  91. [~--]
  92. [Inserer    ]^C^C^P(if (not c:pinsert)+
  93. (defun c:pinsert (/ m:err m:ce m:ad1 m:in2 m:i0 m:i1 m:i2)(defun *error* (msg)+
  94. (setvar"CMDECHO"m:ce)(setvar"ATTDIA"m:ad1)(setq *error* m:err)(princ));+
  95. (setq m:ce(getvar"CMDECHO")m:ad1(getvar"ATTDIA"))(defun m:in2(m:in2a m:in2b)+
  96. (princ(strcat(chr 13)(chr 10)m:in2a(if(/= m:in2b pause)(if(/=(type m:in2b)'STR)+
  97. (rtos m:in2b)(eval m:in2b))(eval " ")))))(if(= m:ibn nil)(setq m:ibn pause));+
  98. (if(= m:ixs nil)(setq m:ixs pause))(if(= m:iys nil)(setq m:iys pause))+
  99. (if(= m:ira nil)(setq m:ira pause))(if(= m:izs nil)(setq m:izs m:ixs))+
  100. (setvar"CMDECHO"0)(setvar"ATTDIA"1)(command"INSERER")(m:in2 "Nom du Bloc: " m:ibn);+
  101. (command m:ibn)(m:in2 "Point d'insertion: " pause)(command pause "XYZ")+
  102. (if(= m:ixs pause)(progn(initget 2 "C")(setq m:i1(getreal(strcat(chr 13)+
  103. (chr 10)"Facteur d'échelle en X <1> / Coin: ")))(if(= m:i1 "C");+
  104. (progn(initget 9)(setq m:i0(getvar "LASTPOINT")m:i2(getpoint m:i0+
  105. "Autre coin: "))(command (-(car m:i2)(car m:i0))(-(cadr m:i2)(cadr m:i0)))+
  106. (m:in2 "Facteur d'échelle en Z (défaut = X): " m:izs)(command m:izs);+
  107. (m:in2 "Angle de rotation <0>: " m:ira)(command m:ira))(progn(if(/=(type m:i1)+
  108. 'REAL)(setq m:i1 1.0))(command m:i1)(m:in2 "Facteur d'echelle en Y (défaut = X): " m:iys)+
  109. (command m:iys)(m:in2 "Facteur d'échelle en Z (défaut = X): " m:izs)(command m:izs);+
  110. (m:in2 "Angle de rotation <0>: " m:ira)(command m:ira))))(progn+
  111. (m:in2 "Facteur d'échelle en X <1> / Coin: " m:ixs)(command m:ixs)+
  112. (m:in2 "Facteur d'échelle en Y (défaut = X): " m:iys)(command m:iys);+
  113. (m:in2 "Facteur d'échelle en Z (défaut = X): " m:izs)(command m:izs)+
  114. (m:in2 "Angle de rotation <0>: " m:ira)(command m:ira)))(setvar "CMDECHO" m:ce)+
  115. (setvar "ATTDIA" m:ad1)(setq *error* m:err)(princ)))(princ);pinsert;^P
  116. [SURFACES.3D]$I=surf1 $I=*
  117. [SOLIDES....]$I=3dobjects $I=*
  118. [Texte Dyna.]^C^C^P(if (not c:dt)(defun c:dt (/ m:err m:ta0 m:tsh m:t1)+
  119. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(if m:ta0+
  120. (setq m:ta pause))(princ))(if (/= (type m:ta) 'STR)(setq m:ta pause));+
  121. (if (/= (type m:th) 'REAL)(setq m:th pause))(if (/= (type m:tr) 'REAL)+
  122. (setq m:tr pause))(setq m:tsh (cdr (assoc 40 (tblsearch "STYLE";+
  123. (getvar"TEXTSTYLE")))))(if(= m:ta pause)(progn(initget 1 "Align Fixé C Milieu +
  124. Droite HGauche HCentre HDroite MGauche MCentre MDroite BGauche BCentre BDroite")(setq +
  125. m:ta0 (getkword "Align/Fixé/Centre/Milieu/Droite/HG/HC/HD/MG/MC/MD/BG/BC/BD: "));+
  126. (setq m:ta m:ta0)))(if (= m:ta "Align")(progn (if m:ta0 (setq m:ta pause));+
  127. (command "TXTDYN" "Align" pause pause))(if (= m:ta "Fit")(progn+
  128. (if m:ta0 (setq m:ta pause))(command "TXTDYN" "Fixé" pause pause pause))+
  129. (if(= m:tsh 0.0)(progn(if m:ta0(setq m:ta pause m:t1 m:ta0)(setq m:t1 m:ta));+
  130. (command "TXTDYN" m:t1 pause m:th m:tr))(progn(if m:ta0 (setq m:ta pause +
  131. m:t1 m:ta0)(setq m:t1 m:ta))(command "TXTDYN" m:t1 pause m:tr)))))+
  132. (setq *error* m:err)(prin1)))(princ);dt;^P
  133. [Hachures   ]^C^C^P$S=X $S=hatch (if (not c:hatchm)(defun c:hatchm (/ m:err m:hp1)+
  134. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  135. (if(/=(type m:hp)'STR)(setq m:hp pause))(if(/=(type m:hs)'STR)(setq m:hs ""));+
  136. (if(/=(type m:hsc)'REAL)(setq m:hsc pause))(if(/=(type m:hr)'REAL)(setq m:hr +
  137. pause))(setq m:hp1 (strcat m:hp m:hs))(if (= m:hp "U")(command "HACHURES" m:hp1)+
  138. (if (= m:hp pause)(command "HACHURES" pause m:hsc m:hr pause);+
  139. (command "HACHURES" m:hp1 m:hsc m:hr pause)))(setq *error* m:err)(princ)))+
  140. (princ);hatchm;^P
  141. [Cotations..]^C^C$S=X $S=dim COT $I=drdim $I=*
  142. [Xref       ]$S=X $S=XREF ^C^CXREF
  143.  
  144. **p2arc
  145. [Arc]
  146. [Par 3 points      ]$p2=p2draw ^C^C^P(defun c:at () +
  147. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  148. (setq *error* m:err m:err nil)(princ))(command "ARC" pause pause pause)+
  149. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  150. [~--]$p2=p2draw
  151. [Depart,Cent,Fin   ]$p2=p2draw ^C^C^P(defun c:at () +
  152. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  153. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "C" pause pause)+
  154. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  155. [Depart,Cent,Angle ]$p2=p2draw ^P^C^C(defun c:at () +
  156. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  157. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "C" pause "A" pause)+
  158. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  159. [Depart,Cent,Long. ]$p2=p2draw ^P^C^C(defun c:at () +
  160. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  161. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "C" pause "L" pause)+
  162. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  163. [Depart,Fin,Angle  ]$p2=p2draw ^P^C^C(defun c:at () +
  164. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  165. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "F" pause "A" pause)+
  166. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  167. [Depart,Fin,Rayon  ]$p2=p2draw ^P^C^C(defun c:at () +
  168. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  169. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "F" pause "R" pause)+
  170. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  171. [Depart,Fin,Dir    ]$p2=p2draw ^P^C^C(defun c:at () +
  172. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  173. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "F" pause "D" pause)+
  174. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  175. [Cent,Depart,Fin   ]$p2=p2draw ^P^C^C(defun c:at () +
  176. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  177. (setq *error* m:err m:err nil)(princ))(command "ARC" "C" pause pause pause)+
  178. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  179. [Cent,Depart,Angle ]$p2=p2draw ^P^C^C(defun c:at () +
  180. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  181. (setq *error* m:err m:err nil)(princ))(command "ARC" "C" pause pause "A" pause)+
  182. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  183. [Cent,Depart,Long. ]$p2=p2draw ^P^C^C(defun c:at () +
  184. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  185. (setq *error* m:err m:err nil)(princ))(command "ARC" "C" pause pause "L" pause)+
  186. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  187. [~--]$p2=p2draw
  188. [DESSIN           >]$p2=p2draw $p2=*
  189.  
  190. **p2cir
  191. [Cercle]
  192. [Cen,Dia ]$p2=p2draw ^C^C^P(defun c:ct ()+
  193. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  194. (setq *error* m:err m:err nil)(princ))(command "CERCLE" pause "D" pause)+
  195. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  196. [Cen,Ray ]$p2=p2draw ^C^C^P(defun c:ct ()+
  197. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  198. (setq *error* m:err m:err nil)(princ))(command "CERCLE" pause pause)+
  199. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  200. [~--]$p2=p2draw
  201. [2 Points]$p2=p2draw ^C^C^P(defun c:ct ()+
  202. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  203. (setq *error* m:err m:err nil)(princ))(command "CERCLE" "2P" pause pause)+
  204. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  205. [3 Points]$p2=p2draw ^C^C^P(defun c:ct ()+
  206. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  207. (setq *error* m:err m:err nil)(princ))(command "CERCLE" "3P" pause pause pause)+
  208. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  209. [TTR     ]$p2=p2draw ^P^C^C(defun c:ct ()+
  210. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  211. (setq *error* m:err m:err nil)(princ))(command "CERCLE" "TTR" pause pause pause)+
  212. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  213. [~--]$p2=p2draw
  214. [DESSIN >]$p2=p2draw $p2=*
  215.  
  216. ***POP3
  217. [Edition]
  218. [Effacer  ]*^C^C$S=X $S=erase effacer un auto
  219. [Copier   ]^C^C$S=X $S=copy copier auto
  220. [Deplacer ]^C^C$S=X $S=move deplacer auto
  221. [Rotation ]^C^C$S=X $S=rotate rotation auto
  222. [Miroir   ]^C^C$S=X $S=mirror miroir auto
  223. [Echelle  ]^C^C$S=X $S=scale echelle auto
  224. [Decaler  ]^P^C^C$S=X $S=offset (if (not c:offstm)(defun c:offstm (/ m:err)+
  225. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  226. (if (and (/= (type m:od) 'REAL)(/= m:od pause))(setq m:od "P"))+
  227. (command "DECALER" m:od)(princ)))(princ);offstm;^P
  228. [Etirer   ]^C^C$S=X $S=stretch etirer capture
  229. [Ajuster  ]^C^C$S=X $S=trim ajuster auto
  230. [Prolonger]^C^C$S=X $S=extend prolonge auto
  231. [Coupure  ]^C^C$S=X $S=break coupure
  232. [Chnfrein ]^C^C$S=X $S=chamfer chnfrein
  233. [Raccord  ]^C^C$S=X $S=fillet raccord
  234. [**********]
  235. [Reseau 2D]^C^C$S=X $S=array reseau
  236. [Reseau 3D]^C^C^P(if (not c:3darray) (if (not (findfile "3darray.lsp")) +
  237. (defun c:3darray ()(setq m:err *error*)(defun *error* (msg)+
  238. (setq *error* m:err m:err nil)(princ))(princ "Ne trouve pas le fichier 3darray.lsp ");+
  239. (terpri) +(princ "Il est sur la disquette SUPPORT ")(setq C:3DARRAY nil) +
  240. (setq *error* m:err m:err nil)(princ))(load "3darray")))(princ);3darray;^P
  241. [Diviser  ]^P^C^C$S=X $S=divide (if (not c:dividem)(defun c:dividem (/ m:err)+
  242. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  243. (if(/= m:dmby "OUI")(setq m:dmby "NON"))(if(/= m:dmba "OUI")(setq m:dmba "NON"));+
  244. (if (/= (type m:dmbn) 'STR)(setq m:dmbn pause))(if (/= (type m:du) 'INT)+
  245. (setq m:du pause))(if (/= m:dmby "OUI")(command "DIVISER" pause m:du)+
  246. (command "DIVISER" pause "B" m:dmbn m:dmba m:du))(princ)))(princ);dividem;^P
  247. [Mesurer  ]^P^C^C$S=X $S=measure (if(not c:measurem)(defun c:measurem(/ m:err)+
  248. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  249. (if(/= m:dmby "OUI")(setq m:dmby "NON"))(if(/= m:dmba "OUI")(setq m:dmba "NON"));+
  250. (if (/= (type m:dmbn) 'STR)(setq m:dmbn pause))(if (/= (type m:md) 'REAL)+
  251. (setq m:md pause))(if (/= m:dmby "OUI")(command "MESURER" pause m:md)+
  252. (command "MESURER" pause "B" m:dmbn m:dmba m:md))(princ)))(princ);measurem;^P
  253. [Edit Poly]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  254. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  255. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  256. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  257. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  258. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  259. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  260. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  261. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  262. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  263. (princ));PEDITM;^P
  264. [ Reprise!]^C^Creprise
  265.  
  266.  
  267. ***POP4
  268. **p4disp
  269. [Ecran]
  270. [Redess           ]'redess
  271. [~--]
  272. [Fmult           >]^C^C^P(if(= (getvar "TILEMODE") 1)+
  273. (command "TILEMODE" "0"))(princ)^P fmult $S=X $S=mv $p4=p4mview $p4=*
  274. [~--]
  275. [Zoom Fenêtre     ]'zoom f
  276. [Zoom Avant       ]'zoom a
  277. [Zoom Tout        ]^C^Czoom t
  278. [Zoom Dynamique   ]'zoom d
  279. [Zoom FMax        ]'zoom fm
  280. [Zoom E        ]'zoom e
  281. [~--]
  282. [Pan              ]'pan
  283. [Vuedyn           ]^C^C$S=X $S=DVIEW VUEDYN
  284. [Options Vuedyn   ]^C^C^P(if (not c:dv1) (defun c:dv1 (/ m:err)+
  285. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ));+
  286. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  287. (princ "*** Commande impossible en espace Papier ***")(princ));+
  288. (progn (menucmd "I=DVIEWI")(menucmd "I=*")));+
  289. (setq *error* m:err)(princ)))(princ);dv1;^P
  290. [Point de Vue 3D..]^C^C^P(if (not c:vp1) (defun c:vp1 (/ m:err)+
  291. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ));+
  292. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  293. (princ "*** Commande impossible en espace Papier ***")(princ));+
  294. (progn (menucmd "S=VPOINT3D")(menucmd "I=3dviews")(menucmd "I=*")));+
  295. (setq *error* m:err)(princ)))(princ);vp1;^P
  296. [*************]
  297. [Vue du SCU actif]^C^C^P+
  298. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  299. (princ "*** Commande impossible en espace Papier ***")(princ));+
  300. (command "REPERE" ""))(princ) ^P
  301. [Vue du SCU General]^C^C^P+
  302. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  303. (princ "*** Commande impossible en espace Papier ***")(princ));+
  304. (command "REPERE" "general"))(princ) ^P
  305. [***********]
  306. [Shade            ]^C^C$S=X $S=shade shade
  307. [Cache            ]^C^C$S=X $S=hide cache
  308.  
  309.  
  310. **p4mview
  311. [Fmult]
  312. [Espace Objet    ]^C^C$S=X $S=mv ESPACEO
  313. [Espace Papier   ]^C^C$S=X $S=mv ESPACEP
  314. [Fenêtre Suiv. ^V]^V
  315. [~--]
  316. [Fmult ACtif     ]^C^C$S=X $S=mv FMULT ACtif
  317. [Fmult INactif   ]^C^C$S=X $S=mv FMULT INactif
  318. [Fmult Cachtrac  ]^C^C$S=X $S=mv FMULT Cachtrac;
  319. [Fmult Zonegraph ]^C^C$S=X $S=mv FMULT Zonegraph
  320. [Fmult 2         ]^C^C$S=X $S=mv2 FMULT 2
  321. [Fmult 3         ]^C^C$S=X $S=mv2 FMULT 3
  322. [Fmult 4         ]^C^C$S=X $S=mv2 FMULT 4
  323. [~--]
  324. [Fcouche         ]^C^C$S=X $S=vpla FCOUCHE
  325. [~--]
  326. [ECRAN          >]$p4=p4disp $p4=*
  327.  
  328. ***POP5
  329. [Modes]
  330. [Resol  AC/IN   ^B]^B
  331. [Grille AC/IN   ^G]^G
  332. [Ortho  AC/IN   ^O]^O
  333. [~--]
  334. [Contrôle Plans...]'DDPMODES
  335. [Aides au Dessin..]'DDAMODES
  336. [Modif Var. Syst. ]'MODIFVAR
  337. [Modif Var. Cota. ]^C^C^P(terpri)(prompt (strcat "Style de cotation courant: "+
  338. (setq m:dsty (getvar "DIMSTYLE"))))(princ)^P COT $I=dimset $I=*
  339. [~--]
  340. [Dialogue SCU.....]^C^Cddscu
  341. [Options SCU......]$I=ucs $I=*
  342. [SCU Précédent    ]^C^CSCU P
  343. [Iconescu AC/IN/Or]^P(if (not m:ucsi)(defun m:ucsi (/ m:err)+
  344. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  345. (cond ((= (getvar "UCSICON") 1) (setvar "UCSICON" 0));+
  346. ((=(getvar "UCSICON")0)(setvar "UCSICON" 3))(T (setvar "UCSICON" 1)))+
  347. (princ)))(princ);(m:ucsi);^P
  348. [~--]
  349. [Style pour Shade]'shadedge \'shadedif
  350.  
  351. ***POP6
  352. **p6opt
  353. [Options]
  354. [Création Entités..]'ddemodes
  355. [~--]
  356. [Epais. Polylign 2D]^C^C^P(if (not c:spw)(defun c:spw (/ m:err m:pw m:spw)+
  357. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)+
  358. (setvar "CMDECHO" m:spw)(princ))(setq m:spw (getvar "CMDECHO"))(initget 5)+
  359. (setvar "CMDECHO" 0)(setq m:pw (getdist "Epaisseur de la polyligne: "));+
  360. (command "POLYLIGN" "0,0" "E" m:pw m:pw "0,0" "")(entdel (entlast))+
  361. (setvar "CMDECHO" m:spw)(setq *error* m:err)(princ)))(princ);spw;^P
  362. [Création Polygone ]^C^C^P(if (not c:pgm)+
  363. (defun c:pgm (/ m:err m:ps0 m:ps1 m:pe0 m:pe1 m:pg0 m:pg1)(setq m:err *error*)+
  364. (defun *error* (msg)(setq *error* m:err)(princ))(if (= (type m:ps) 'INT);+
  365. (setq m:ps0 (itoa m:ps))(setq m:ps0 "."))(while (not m:ps1)(initget 6 ".")+
  366. (setq m:ps1 (getint+
  367. (strcat "Nombre de côtés du polygone ou '.' pour répondre à chaque fois <" m:ps0 ">: ")));+
  368. (if (= m:ps1 nil)(setq m:ps1 m:ps))(if (or (= m:ps1 nil) (= m:ps1 "."))+
  369. (setq m:ps nil m:ps1 T)(if (or (< m:ps1 3) (> m:ps1 1024))(progn (terpri)+
  370. (princ"Valeur entre 3 et 1024.")(terpri)(setq m:ps1 nil));+
  371. (setq m:ps m:ps1))))(if m:pe (setq m:pe0 m:pe)(setq m:pe0 "."))+
  372. (initget "COté CEntre .")(setq m:pe1 (getkword (strcat +
  373. "Choisissez le mode de création (COté/CEntre) ou '.' pour répondre à chaque fois <";+
  374. m:pe0 ">: ")))(if (/= m:pe1 nil)(setq m:pe m:pe1))(if (= m:pe ".")+
  375. (setq m:pe nil))(if(= m:pe "Centre")(progn (if m:pg (setq m:pg0 (substr m:pg 1 1));+
  376. (setq m:pg0 "."))(initget "Circonscrit Inscrit .")(setq m:pg1 (getkword+
  377. (strcat"Inscrit dans/Circonscrit au cercle (I/C) or '.' pour répondre à chaque fois <"+
  378. m:pg0 ">: ")))(if (/= m:pg1 nil)(setq m:pg m:pg1))(if (= m:pg ".");+
  379. (setq m:pg nil))))(setq *error* m:err)(princ)))(princ);pgm;^P
  380. [Anneaux           ]^P^C^C(defun *error* (msg)(setq *error* m:err)(princ))+
  381. (princ)(setq oce (getvar "cmdecho"))(setvar "cmdecho" 1)(princ);+
  382. (command "ANNEAU" pause)(progn(setvar "cmdecho" 0)(command pause "") +
  383. (setvar "cmdecho" oce)(setq *error* m:err)(princ))(princ) ^P
  384. [~--]
  385. [OPTIONS INSERER  >]$p6=p6insert $p6=* \$p6=p6opt
  386. [OPTIONS TEXTDYN  >]$p6=p6dtext $p6=* \$p6=p6opt
  387. [OPTIONS HACHURES >]$p6=p6hatch $p6=* \$p6=p6opt
  388. [~--]
  389. [Taille des Points ]^C^C^P(if (not c:pds)(defun c:pds (/ m:err m:d m:e)+
  390. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))(initget 6);+
  391. (setq m:d (rtos (getdist (strcat (chr 13) (chr 10) "Entrez la taille des points <"+
  392. (rtos (getvar "PDSIZE")) ">: "))))(if (< (getvar "PDSIZE") 0)(setq m:a "P")+
  393. (setq m:a "A"))(initget "Absolue Pourcentage")(setq m:e (getkword (strcat;+
  394. (chr 13)(chr 10)"Utiliser une valeur Absolue ou un Pourcentage de l'ecran (A/P) <"+
  395. m:a ">:")))(if (= m:e nil)(setq m:e m:a))(if (= (substr m:e 1 1) "P")+
  396. (setq m:e "-")(setq m:e "+"))(if(= m:d nil)(setq m:d (rtos(getvar "PDSIZE"))));+
  397. (setvar "PDSIZE" (atof (strcat m:e m:d)))(prompt "Le nouveau PDSIZE est: ")+
  398. (prin1 (getvar "PDSIZE"))(setq *error* m:er)(princ)))(princ);pds;^P
  399. [Type de Points....]^C^C^P(if (not c:pdm)(defun c:pdm+
  400. (/ m:err m:co m:ce m:ps m:pdm)(setq m:err *erreu* m:ce (getvar "CMDECHO"))+
  401. (defun *error* (msg)(setvar"CMDECHO" m:ce)(redraw)(if m:ps(command "ESPACEO"));+
  402. (setq *error* m:err)(princ))(defun m:pdm (/ m:px m:py m:c m:va m:vi m:xa m:ya +
  403. m:p m:yr m:xr m:lx m:ly m:ct m:sx m:sy m:stx m:sty m:xp m:yp m:xl m:yl)+
  404. (setq m:co (trans m:co 1 0) m:px (car m:co) m:py (cadr m:co) m:ct 1.3807281;+
  405. m:c (trans (getvar "VIEWCTR") 1 0) m:va (trans (getvar "VSMAX") 1 0) m:vi+
  406. (trans (getvar "VSMIN") 1 0) m:xa (- (car m:va) (car m:vi))+
  407. m:ya (- (cadr m:va) (cadr m:vi)) m:p (/ m:xa m:ya) m:yr (getvar "VIEWSIZE");+
  408. m:xr (* m:p m:yr) m:lx (- (car m:c)(/ m:xr 2)) m:ly (- (cadr m:c)(/ m:yr 2)))+
  409. (if (> m:xa (* m:ct m:yr))(setq m:sx (* m:yr m:ct) m:sy m:yr)(setq m:sy+
  410. (/ m:xr m:ct) m:sx m:xr))  (setq m:stx (/(*(- m:px m:lx) m:ct) m:sx) m:sty;+
  411. (/ (- m:py m:ly) m:sy) m:xp '((0.165 x) (0.353 0) (0.5545 1) (0.7522 2)+
  412. (0.95104 3) (1.14981 4) (1.38 x)) m:f T)(foreach x m:xp (if (and (< m:stx;+
  413. (car x)) m:f)(setq m:f nil m:xl (cadr x))))(setq m:yp '((0.937 x) (0.694 0)+
  414. (0.523 32) (0.211 64) (0 96)) m:f T)(foreach y m:yp (if (and (> m:sty+
  415. (car y)) m:f)(setq m:f nil m:yl (cadr y))))(if (and m:xl m:yl (/= m:xl 'x);+
  416. (/= m:yl 'x))(setvar "PDMODE" (+ m:xl m:yl))(progn (terpri)+
  417. (prompt "Mauvaise sélection. Type de point inchangé: ")))(princ+
  418. (getvar "PDMODE")))(setvar "CMDECHO" 0)(if (and (= (getvar "TILEMODE") 0);+
  419. (/= (getvar "CVPORT")1))(progn(setq m:ps 1)(command "ESPACEP")))+
  420. (command "AFFCLICH" "acad(points)")(prompt "Choisissez un type de point <")+
  421. (prin1 (getvar "PDMODE"))(prompt ">: ");+
  422. (initget 8 "0 1 2 3 4 32 33 34 35 36 64 65 66 67 78 96 97 98 99 100")+
  423. (setq m:co(getpoint))(if(=(type m:co)'STR)(setvar"PDMODE"(atoi m:co))(m:pdm))+
  424. (redraw)(if m:ps(command "ESPACEO"))(setq *error* m:er)(setvar"CMDECHO" m:ce);+
  425. (princ)))(princ);pdm;^P
  426. [Echelle Type Ligne]^C^Cechltp
  427. [~--]
  428. [Valeur Chanfrein ]'chamfera \'chamferb
  429. [Valeur du Raccord]'filletrad
  430. [Valeur de Decaler]^C^C^P(if (not c:omset)(defun c:omset (/ m:err m:od2)+
  431. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  432. (if (/= (type m:od) 'REAL)(if (= m:od pause)(setq m:od2 ".");+
  433. (setq m:od "P" m:od2 "P"))(setq m:od2 m:od))(initget 6 "Par .");+
  434. (setq m:od2 (getreal (strcat (chr 13)(chr 10)+
  435. "Entrez la distance de décalage ou Par ou '.' pour répondre à chaque fois <"+
  436. (if(=(type m:od2) 'REAL)(rtos m:od2)(eval m:od2)) ">: ")))(if(/= m:od2 nil);+
  437. (setq m:od m:od2))(if (= m:od2 ".")(setq m:od pause))(princ)))(princ);omset;^P
  438. [Valeur de Diviser]^C^C^P(if (not c:du)(defun c:du (/ m:err m:du0 m:du1 m:du2)+
  439. (setq m:err *error* m:du0 T)(defun *error* (msg)(setq *error* m:err)(princ))+
  440. (if (not m:du)(setq m:du pause))(if (/= (type m:du) 'INT)(setq m:du1 ".");+
  441. (setq m:du1 m:du))(initget 6 ".")(while m:du0(setq m:du2(getint(strcat(chr 13)+
  442. (chr 10)"Entrez une valeur de division ou '.' pour répondre à chaque fois <"+
  443. (if(= m:du1 ".")(eval m:du1)(itoa m:du1))">: ")))(if(or(and(> m:du2 1);+
  444. (< m:du2 32768))(= m:du2 ".")(= m:du2 nil))(setq m:du0 nil)(princ(strcat+
  445. (chr 13)(chr 10)"Valeur entre 2 et 32767. "))))(if (= m:du2 nil)+
  446. (setq m:du1 m:du)(setq m:du1 m:du2))(if(or(= m:du1 ".")(= m:du1 pause));+
  447. (setq m:du pause)(setq m:du m:du1))(setq *error* m:err)(princ)))(princ);du;^P
  448. [Mesure de distance]^C^C^P(if (not c:md)(defun c:md (/ m:err m:md1)+
  449. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  450. (if (not m:md)(setq m:md pause))(if (/= (type m:md) 'REAL)(setq m:md1 ".");+
  451. (setq m:md1 m:md))(initget 6 ".")(setq m:md1 (getreal(strcat+
  452. "Entrez une distance ou '.' pour répondre à chaque fois <"+
  453. (if (= m:md1 ".")(eval m:md1)(rtos m:md1))">: ")))(if (= m:md1 nil);+
  454. (setq m:md1 m:md))(if (or (= m:md1 ".")(= m:md1 pause))(setq m:md pause)+
  455. (setq m:md m:md1))(setq *error* m:err)(princ)))(princ);md;^P
  456. [Div/Mes avec Bloc]^C^C^P(if (not c:dmbn)(defun c:dmbn (/ m:err m:dmby2 m:dmbn2 +
  457. m:dmba2)(setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  458. (if (/= m:dmby "OUI")(setq m:dmby "NON"))(initget "Non Oui")(setq m:dmby2;+
  459. (getkword(strcat "Utilisez-vous un Bloc pour DIVISER ou MESURER? (O/N) <" m:dmby ">: ")))+
  460. (if (/= m:dmby2 nil)(setq m:dmby m:dmby2))(if (= m:dmby "OUI")(progn+
  461. (if (/= (type m:dmbn) 'STR)(setq m:dmbn pause))(if (= m:dmbn pause);+
  462. (setq m:dmbn2 ".")(setq m:dmbn2 m:dmbn))(setq m:dmbn2(getstring(strcat+
  463. "Entrez le nom du Bloc ou '.' pour répondre à chaque fois <" m:dmbn2 ">: ")))+
  464. (if(= m:dmbn2 "")(setq m:dmbn2 m:dmbn))(if (= m:dmbn2 ".")(setq m:dmbn pause);+
  465. (setq m:dmbn m:dmbn2))(if(/= m:dmba "Oui")(setq m:dmba "Non"))(initget "Non Oui")+
  466. (setq m:dmba2(getkword(strcat"Aligne le Bloc pendant DIVISER/MESURER (O/N) <"m:dmba+
  467. ">: ")))(if(/= m:dmba2 nil)(setq m:dmba m:dmba2))))(princ)))(princ);dmbn;^P
  468. [Style de Cotation ]^C^Ccot;restaure;?;;
  469.  
  470. **p6insert
  471. [Inserer]
  472. [Nom du Bloc   ]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  473. (setq *error* m:err)(princ))(if (and (= (type m:ibn) 'STR) (/= m:ibn pause))+
  474. (setq m:si0 m:ibn)(setq m:si0 "."))(setq m:si0 (getstring (strcat ;+
  475. "Entrez le Nom du Bloc ou '.' pour répondre à chaque fois <" m:si0 ">: ")))+
  476. (if(= m:si0 "")(setq m:si0 m:ibn))(if(=(type m:si0)'STR)(setq m:ibn m:si0)+
  477. (setq m:ibn pause))(if(= m:ibn ".")(setq m:ibn pause))(setq *error* m:err);+
  478. (princ));setins;^P
  479. [~--]$p6=p6opt
  480. [Fac. Echelle X]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  481. (setq *error* m:err)(princ))(if(=(type m:ixs) 'REAL)(setq m:si0 (rtos m:ixs))+
  482. (setq m:si0 "."))(initget ".")(terpri)(setq m:si0 (getreal (strcat;+
  483. "Entrez le Facteur d'Echelle en X ou '.' pour répondre à chaque fois <" m:si0 ">: ")))+
  484. (if (= m:si0 nil) (setq m:si0 m:ixs))(if (= (type m:si0) 'REAL)+
  485. (setq m:ixs m:si0)(setq m:ixs pause))(setq *error* m:err)(princ));setins;^P
  486. [Fac. Echelle Y]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  487. (setq *error* m:err)(princ))(if(=(type m:iys) 'REAL)(setq m:si0 (rtos m:iys))+
  488. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  489. "Entrez le Facteur d'Echelle en Y (ou 'X') ou '.' pour répondre à chaque fois <" m:si0 ">: ")))+
  490. (if (= m:si0 nil) (setq m:si0 m:iys))(if (= m:si0 "X")+
  491. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:iys m:si0);+
  492. (setq m:iys pause))(setq *error* m:err)(princ));setins;^P
  493. [Fac. Echelle Z]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  494. (setq *error* m:err)(princ))(if(=(type m:izs) 'REAL)(setq m:si0 (rtos m:izs))+
  495. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  496. "Entrez le Facteur d'Echelle en Z (ou 'X') ou '.' pour répondre à chaque fois <" m:si0 ">: ")))+
  497. (if (= m:si0 nil) (setq m:si0 m:izs))(if (= m:si0 "X")+
  498. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:izs m:si0);+
  499. (setq m:izs pause))(setq *error* m:err)(princ));setins;^P
  500. [~--]$p6=p6opt
  501. [Angle Rotation]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  502. (setq *error* m:err)(princ))(if(=(type m:ira) 'REAL)(setq m:si0 (rtos m:ira))+
  503. (setq m:si0 "."))(initget ".")(terpri)(setq m:si0 (getreal (strcat;+
  504. "Entrez l'Angle de Rotation ou '.' pour répondre à chaque fois <" m:si0 ">: ")))+
  505. (if (= m:si0 nil) (setq m:si0 m:ira))(if (= (type m:si0) 'REAL)+
  506. (setq m:ira m:si0)(setq m:ira pause))(setq *error* m:err)(princ));setins;^P
  507. [~--]$p6=p6opt
  508. [Toutes Options]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  509. (setq *error* m:err)(princ))(if (and (= (type m:ibn) 'STR) (/= m:ibn pause))+
  510. (setq m:si0 m:ibn)(setq m:si0 "."))(setq m:si0 (getstring (strcat ;+
  511. "Entrez le Nom du Bloc ou '.' pour répondre à chaque fois <" m:si0 ">: ")))+
  512. (if(= m:si0 "")(setq m:si0 m:ibn))(if(=(type m:si0)'STR)(setq m:ibn m:si0)+
  513. (setq m:ibn pause))(if(= m:ibn ".")(setq m:ibn pause))(if(=(type m:ixs)'REAL);+
  514. (setq m:si0 (rtos m:ixs))(setq m:si0 "."))+
  515. (initget ".")(terpri)(setq m:si0 (getreal (strcat+
  516. "Entrez le Facteur d'Echelle en X '.' pour répondre à chaque fois <" m:si0 ">: ")));+
  517. (if (= m:si0 nil) (setq m:si0 m:ixs))(if (= (type m:si0) 'REAL)(setq m:ixs +
  518. m:si0)(setq m:ixs pause))(if(=(type m:iys) 'REAL)(setq m:si0 (rtos m:iys))+
  519. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  520. "Entrez le Facteur d'Echelle en Y (ou 'X') ou '.' pour répondre à chaque fois <" m:si0 ">: ")))+
  521. (if (= m:si0 nil) (setq m:si0 m:iys))(if (= m:si0 "X")+
  522. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:iys m:si0);+
  523. (setq m:iys pause))(if(=(type m:izs) 'REAL)(setq m:si0 (rtos m:izs))+
  524. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  525. "Entrez le Facteur d'Echelle en Z (ou 'X') ou '.' pour répondre à chaque fois <" m:si0 ">: ")))+
  526. (if (= m:si0 nil) (setq m:si0 m:izs))(if (= m:si0 "X")+
  527. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:izs m:si0);+
  528. (setq m:izs pause))(if(=(type m:ira) 'REAL)(setq m:si0 (rtos m:ira))+
  529. (setq m:si0 "."))(initget ".")(terpri)(setq m:si0 (getreal (strcat;+
  530. "Entrez l'Angle de Rotation ou '.' pour répondre à chaque fois <" m:si0 ">: ")))+
  531. (if (= m:si0 nil) (setq m:si0 m:ira))(if (= (type m:si0) 'REAL)+
  532. (setq m:ira m:si0)(setq m:ira pause))(setq *error* m:err)(princ));setins;^P
  533. [Options Défaut]^P(setq m:ibn pause m:ixs pause m:iys pause m:izs pause m:ira pause)+
  534. (terpri)(prompt "INSERER sera proposé pour TOUTES les options.")(princ);^P
  535. [~--]$p6=p6opt
  536. [Liste Blocs   ]^C^CINSERER ? \$p6=p6opt
  537. [~--]$p6=p6opt
  538. [OPTIONS      >]$p6=p6opt $p6=*
  539.  
  540.  
  541. **p6dtext
  542. [TxtDyn]
  543. [Polices .........]$P6=p6opt $I=fonts1 $I=*
  544. [Alignement Texte.]$P6=p6opt $I=txtalign $I=*
  545. [Hauteur Texte    ]^C^C^P(if (not c:th)(defun c:th (/ m:err m:th0)+
  546. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  547. (if(/= (type m:th) 'REAL)(setq m:th pause))(if(= m:th pause)(setq m:th0 ".");+
  548. (setq m:th0 (rtos m:th)))(initget 6 ".")(setq m:th0(getreal(strcat+
  549. "Entrez la Hauteur du Texte ou '.' pour répondre à chaque fois <" m:th0 ">: ")))+
  550. (if(=(type m:th0) 'REAL)(setq m:th m:th0)(if(= m:th0 ".")(setq m:th pause)));+
  551. (setq *error* m:err)(prin1)))(princ);th;^P
  552. [Rotation du Texte]^C^C^P(if (not c:tr)(defun c:tr (/ m:err m:tr0)+
  553. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  554. (if(/=(type m:tr) 'REAL)(setq m:tr pause))(if (= m:tr pause)(setq m:tr0 ".");+
  555. (setq m:tr0 (rtos m:tr)))(initget ".")(setq m:tr0(getreal(strcat+
  556. "Entrez la Rotation du Texte ou '.' pour répondre à chaque fois <" m:tr0 ">: ")))+
  557. (if(=(type m:tr0) 'REAL)(setq m:tr m:tr0)(if(= m:tr0 ".")(setq m:tr pause)));+
  558. (setq *error* m:err)(prin1)))(princ);tr;^P
  559. [~--]$p6=p6opt
  560. [OPTIONS         >]$p6=p6opt $p6=*
  561.  
  562. **p6hatch
  563. [Hachures]
  564. [Types Hachures..]$I=hatch1 $I=*
  565. [Style Hachures..]$I=hatchs $I=*
  566. [Echel. Hachures ]^C^C^P(if(not c:hsc)(defun c:hsc (/ m:err m:h0)(setq m:err *error*)+
  567. (defun *error* (msg)(setq *error* m:err)(princ))(if(/= (type m:hsc) 'REAL)+
  568. (setq m:hsc pause))(if(= m:hsc pause)(setq m:h0 ".");+
  569. (setq m:h0 (rtos m:hsc)))(initget 6 ".")(setq m:h0 (getreal(strcat+
  570. "Entrez l'Echelle des Hachures ou '.' pour répondre à chaque fois <" m:h0 ">: ")))+
  571. (if(=(type m:h0) 'REAL)(setq m:hsc m:h0)(if(= m:h0 ".")(setq m:hsc pause)));+
  572. (setq *error* m:err)(prin1)))(princ);hsc;^P
  573. [Angle Hachures  ]^C^C^P(if(not c:hr)(defun c:hr (/ m:err m:h0)(setq m:err *error*)+
  574. (defun *error* (msg)(setq *error* m:err)(princ))(if(/= (type m:hr) 'REAL)+
  575. (setq m:hr pause))(if(= m:hr pause)(setq m:h0 ".");+
  576. (setq m:h0 (rtos m:hr)))(initget ".")(setq m:h0 (getreal(strcat+
  577. "Entrez l'Angle des Hachures '.' pour répondre à chaque fois <" m:h0 ">: ")))+
  578. (if(=(type m:h0) 'REAL)(setq m:hr m:h0)(if(= m:h0 ".")(setq m:hr pause)));+
  579. (setq *error* m:err)(prin1)))(princ);hr;^P
  580. [~--]$p6=p6opt
  581. [OPTIONS        >]$p6=p6opt $p6=*
  582.  
  583.  
  584. ***POP7
  585. [Utilitaire]
  586. [U             ]U
  587. [Retablir      ]^C^CRetablir
  588. [~--]
  589. [AnnUler Marque]^C^CANNULER M
  590. [AnnUler Retour]^C^CANNULER R
  591. [~--]
  592. [Aire          ]^C^C$S=X $S=area aire
  593. [Distance      ]^C^C$S=X $S=dist distance
  594. [Coordonnées Pt]^P(if(not m:xid)(defun m:xid(/ m:err m:id1)+
  595. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  596. (initget (+ 8))(setq m:id1 (getpoint "Selectionnez un point: "))(if m:id1 (princ;+
  597. (strcat (chr 13)(chr 10)"X:  " (rtos(car m:id1)) "  Y: " (rtos(cadr m:id1))+
  598. "  Z: " (rtos(caddr m:id1))))(princ "Pas de Point selectionné. "))(princ)))+
  599. (princ);(m:xid);^P
  600. [~--]
  601. [Liste         ]^C^C$S=X $S=list liste
  602. [Etat          ]^C^Cetat
  603. [Limites       ]^C^C$S=X $S=limits limites
  604. [Charge Typlign]^C^C$S=X $S=ltype typelign ch
  605. [~--]
  606.  
  607. ***POP8
  608. [Fichiers]
  609. [Sauvegarde ]^C^Csauvegrd
  610. [Fin        ]^C^Cfin
  611. [Quitter    ]^C^C$S=X $S=quit quitter
  612. [~--]
  613. [Fichiers   ]^C^Cfichiers
  614. [Tracer     ]^C^Ctraceur
  615. [Imprimer   ]^C^Cimpgraph
  616. [~--]
  617. [ECHANGE   >]$p8=p8xchg $p8=*
  618. [~--]
  619. [SiDE_CAD  >]$p8=p8bib $p8=*
  620.  
  621. **p8bib
  622. [Side_cad ]
  623. [INITIALISATION]^C^C^P(if (not c:SIDE_CAD)(progn (vmon) (load"side_cad")))(c:side_cad)
  624. [~--]
  625. [Roulements]^c^c$i=rlt $i=*
  626. [~--]
  627. [Visseries]^c^c$i=visserie $i=*
  628. [Vis de pression]^c^c$i=pression $i=*
  629. [~--]
  630. [Elements]^c^c$i=elements $i=*
  631. [Goupilles]^c^c$i=goupilles $i=*
  632. [~--]
  633. [DME]^c^c$i=dme $i=*
  634. [Accessoires DME]^c^c$i=accdme $i=*
  635. [~--]
  636. [Electricite]^c^c^p$i=elect $i=*
  637. [~--]
  638. [A propos de SiDE_CAD]^C^C^P(if (not c:SIDE_CAD)(progn (vmon) (load"side_cad")))(c:propos_side_cad)
  639. [~--]
  640. [FICHIER   >]$p8= $p8=*
  641. [ECHANGE   >]$p8=p8xchg $p8=*
  642.  
  643. **p8xchg
  644. [Echange ]
  645. [Charge DXF ]^C^Cchargdxf
  646. [Charge DXB ]^C^Cchargdxb
  647. [Charge IGES]^C^Cchariges
  648. [~--]
  649. [Import Text]^C^C^P(if (not c:asctext) (if (not (findfile "asctext.lsp"))+
  650. (defun C:ASCTEXT () (princ "Ne trouve pas le fichier asctext.lsp")(terpri)+
  651. (princ "Il est sur la disquette SAMPLE. ")(setq C:ASCTEXT nil)(princ));+
  652. (load "asctext")));asctext;^P
  653. [~--]
  654. [Sauve DXF  ]^C^Csauvedxf
  655. [Sauve IGES ]^C^Csauviges
  656. [Pellicule  ]^C^Cpellicul
  657. [~--]
  658. [FICHIER   >]$p8= $p8=*
  659. [SiDE_CAD  >]$p8=p8bib $p8=*
  660.  
  661. ***Commentaire
  662.  
  663.         Le menu AME peut etre appelé directement par l'application AME
  664.         ci celle-çi est chargée automatiquement. De plus, pour une
  665.         utilisation correcte de l'AME il est recommandé de ne pas changer
  666.         les noms des sous-menu ou de les detruire.  Si il est necessaire
  667.         de les detruire, AME continuera à fonctionner, mais sans le
  668.         bénéfice des menus AUI.
  669.  
  670. ***POP9
  671. [Solides]
  672. [~--           ]
  673. [Charger AME   ]^C^C^P(progn(setq m:err *error*)(princ))+
  674. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  675. (cond ((null c:solbox)(princ "Chargement de l'AME...")+
  676. (cond ((setq f (findfile "ame")) (xload f))+
  677. ((setq f (findfile "ame.exp")) (xload f));+
  678. (T (terpri)(princ "ERRREUR:  Fichier non trouvé. ")))+
  679. (if f (progn(terpri)(princ "L'exécutable AutoCAD AME est chargé. ")+
  680. (menucmd "p9=p9prim")(menucmd "p9=*")(princ))+
  681. (progn(terpri)(princ "Impossible de charger l'exécutable AME. ")(princ))));+
  682. (T (menucmd "p9=p9prim")(menucmd "p9=*")(princ)));^P
  683. [Charger AMElite]^C^C^P(progn(setq m:err *error*)(princ))+
  684. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  685. (cond ((null c:solbox)(princ "Charge l'AMElite...")+
  686. (cond ((setq f (findfile "amelite")) (xload f))+
  687. ((setq f (findfile "amelite.exp")) (xload f));+
  688. (T (terpri)(princ "ERREUR:  Fichier non trouvé. ")))+
  689. (if f (progn(terpri)(princ "L'exécutable AutoCAD AMElite est chargé. ")+
  690. (menucmd "p9=p9prim")(menucmd "p9=*")(princ))+
  691. (progn(terpri)(princ "Impossible de charger l'exécutable AMElite. ")(princ))));+
  692. (T (menucmd "p9=p9prim")(menucmd "p9=*")(princ)));^P
  693. [~--           ]
  694.  
  695.  
  696. **P9Prim
  697. [PRIMITIVES]
  698. [Boîte         ]^C^C$S=X $S=SBOX;Solboîte;
  699. [Cône          ]^C^C$S=X $S=SCONE;Solcône;
  700. [Cylindre      ]^C^C$S=X $S=SCYL;Solcyl;
  701. [Sphère        ]^C^C$S=X $S=SSPH;Solsphère;
  702. [Tore          ]^C^C$S=X $S=STOR;Soltore;
  703. [Biseau        ]^C^C$S=X $S=SWEDGE;Solbiseau;
  704. [**************]
  705. [Extrusion     ]^C^C$S=X $S=SEXT;Solextr;
  706. [Révolution    ]^C^C$S=X $S=SREV;Solrév;
  707. [Solidifier    ]^C^C$S=X $S=SSOLID;Solidif;
  708. [**************]
  709. [MODIFIER    >]^C^C$P9=p9Modify;$P9=*;
  710. [INFO        >]^C^C$P9=p9Inquiry;$P9=*;
  711. [AFFICHER    >]^C^C$P9=P9Display;$P9=*;
  712. [FONC UTILIT >]^C^C$P9=P9Utility;$P9=*;
  713. [~]^C^C$P9=P9Prim;$P9=*;
  714.  
  715. **P9Modify
  716. [MODIFIER      ]
  717. [Intersection  ]^C^C$S=X $S=SINT;Solinter;
  718. [Soustraction  ]^C^C$S=X $S=SSUB;Solsoustr;
  719. [Union         ]^C^C$S=X $S=SUNION;Solunion;
  720. [************* ]
  721. [Chanfrein     ]^C^C$S=X $S=SCHAM;solchanf;
  722. [Raccord       ]^C^C$S=X $S=SFILL;solracc;
  723. [Déplacer Sol  ]^C^C$S=X $S=SMOVE;Soldépl;
  724. [Changer Prim  ]^C^C$S=X $S=SCHP;Solchp;
  725. [Séparer Sol   ]^C^C$S=X $S=SSEP;Solsép;
  726. [************* ][~--  ]
  727. [PRIMITIVES   >]^C^C$P9=P9Prim;$P9=*;
  728. [INFORMATIONS >]^C^C$P9=p9Inquiry;$P9=*;
  729. [AFFICHER     >]^C^C$P9=P9Display;$P9=*;
  730. [UTILITAIRES  >]^C^C$P9=P9Utility;$P9=*;
  731. [~]^C^C$P9=p9Modify;$P9=*;
  732.  
  733. **P9Inquiry
  734. [INFORMATIONS   ]
  735. [Liste Solides  ]^C^C$S=X $S=SLIST;Solliste;
  736. [Prop Mécaniques]^C^C$S=X $S=SMASSP;Solprméc;
  737. [Surface Solide ]^C^C$S=X $S=SAREA;Solsurf;
  738. [~--  ]
  739. [Unités GB     ]^C^Csolvar sollength ft;;;solmass lb;;+
  740. solareau sq ft;;solvolume cu ft;
  741. [Unités CGS    ]^C^Csolvar sollength cm;;;solmass gm;;+
  742. solareau sq cm;;solvolume cu cm;
  743. [Unités SI     ]^C^Csolvar sollength m;;;solmass kg;;+
  744. solareau sq m;;solvolume cu m;
  745. [~--  ]
  746. [~]^C^C$P9=p9Inquiry;$P9=*;
  747. [~]^C^C$P9=p9Inquiry;$P9=*;
  748. [~]^C^C$P9=p9Inquiry;$P9=*;
  749. [PRIMITIVES  >]^C^C$P9=P9Prim;$P9=*;
  750. [MODIFIER    >]^C^C$P9=p9Modify;$P9=*;
  751. [AFFICHER    >]^C^C$P9=P9Display;$P9=*;
  752. [FONC UTILIT >]^C^C$P9=P9Utility;$P9=*;
  753. [~]^C^C$P9=p9Inquiry;$P9=*;
  754.  
  755. **P9Display
  756. [AffSolide ]
  757. [Représ Maillée]^C^C$S=X $S=SMESH;Solmaille;
  758. [Représ Filaire]^C^C$S=X $S=SWIRE;Solfil;
  759. [~--  ]
  760. [Arête/Face    ]^C^C$S=X $S=SFEAT;Solarfa;
  761. [Coupe         ]^C^C$S=X $S=SSECT;Solcoupe;
  762. [Profil        ]^C^C$S=X $S=SPROF;Solprofil;
  763. [~--  ]
  764. [Axe de Décomp ]^C^CSolvar soldécomp
  765. [Niveau Subdiv ]^C^CSolvar solsubdiv
  766. [Densité Fil   ]^C^CSolvar solwdens
  767. [~--  ]
  768. [PRIMITIVES  >]^C^C$P9=P9Prim;$P9=*;
  769. [MODIFIER    >]^C^C$P9=p9Modify;$P9=*;
  770. [INFO        >]^C^C$P9=p9Inquiry;$P9=*;
  771. [FONC UTILIT >]^C^C$P9=P9Utility;$P9=*;
  772. [~]^C^C$P9=P9Display;$P9=*;
  773.  
  774. **P9Utility
  775. [UTILTTAIRES   ]
  776. [Matériau      ]^C^C$S=X $S=SCHMAT;SOLMAT;
  777. [Variables Sol ]^C^C$S=X $S=SSOLV;SOLVAR;
  778. [SCU Sol       ]^C^C$S=X $S=SUCS;SOLSCU;
  779. [~--  ]
  780. [Imp Sol   .asm]^C^CSOLIMP;
  781. [Exp Sol   .asm]^C^CSOLEXP;
  782. [Purger Sol    ]^C^C$S=X $S=SPURGE;SOLPURG;
  783. [~--  ]
  784. [Décharger     ]^C^C^P(if (xunload "ame" nil)+
  785. (princ (strcat "AME déchargé." (chr 10))))+
  786. (if (xunload "amelite" nil)(princ "AMElite unloaded."))+
  787. (menucmd "p9=POP9")(princ);^P
  788. [AME et AMElite]^C^C^P(if (xunload "ame" nil)+
  789. (princ (strcat "AME déchargé." (chr 10))))+
  790. (if (xunload "amelite" nil)(princ "AMElite déchargé."))+
  791. (menucmd "p9=POP9")(princ);^P
  792. [************ ]
  793. [PRIMITIVES  >]^C^C$P9=P9Prim;$P9=*;
  794. [MODIFIER    >]^C^C$P9=p9Modify;$P9=*;
  795. [INFO        >]^C^C$P9=p9Inquiry;$P9=*;
  796. [AFFICHER    >]^C^C$P9=P9Display;$P9=*;
  797. [~]^C^C$P9=P9Utility;$P9=*;
  798.  
  799.  
  800.  
  801. ***icon
  802. **rlt
  803. [ROULEMENTS]
  804. [meca(rb1)]^c^c^p(if (not c:rb1)(progn (vmon) (load(strcat bibpath"mrb1"))))(c:rb1)
  805. [meca(rb1rs)]^c^c^p(if (not c:rb1)(progn (vmon) (load(strcat bibpath"mrb1"))))(c:rb1rs)
  806. [meca(rb2rs)]^c^c^p(if (not c:rb1)(progn (vmon) (load(strcat bibpath"mrb1"))))(c:rb2rs)
  807. [meca(z)]^c^c^p(if (not c:rb1)(progn (vmon) (load(strcat bibpath"mrb1"))))(c:rb1z)
  808. [meca(2z)]^c^c^p(if (not c:rb1)(progn (vmon) (load(strcat bibpath"mrb1"))))(c:rb2z)
  809. [meca(rb1r)]^c^c^p(if (not c:rb1r)(progn (vmon) (load(strcat bibpath"mrb1r"))))(c:rb1r)
  810. [meca(rb1rz)]^c^c^p(if (not c:rb1r)(progn (vmon) (load(strcat bibpath"mrb1r"))))(c:rb1rz)
  811. [meca(rn)]^c^c^p(if (not c:n)(progn (vmon) (load(strcat bibpath"mn"))))(c:rn)
  812. [meca(rnu)]^c^c^p(if  (not c:n)(progn (vmon) (load(strcat bibpath"mn"))))(c:rnu)
  813. [meca(rnj)]^c^c^p(if (not c:n)(progn (vmon) (load(strcat bibpath"mn"))))(c:rnj)
  814. [meca(rnup)]^c^c^p(if  (not c:n)(progn (vmon) (load(strcat bibpath"mn"))))(c:rnup)
  815. [meca(ra)]^c^c^p(if (not c:ra)(progn (vmon) (load(strcat bibpath"mra"))))(c:ra)
  816. [meca(da)]^c^c^p(if (not c:da)(progn (vmon) (load(strcat bibpath"mda"))))(c:da)
  817. [ Suivant]$i=rlt2 $i=*
  818. [ Sortir]^c^c
  819.  
  820. **rlt2
  821. [ROULEMENTS]
  822. [ Precedent]$i=rlt $i=*
  823. [meca(rc02)]^c^c^p(if (not c:rcon)(progn (vmon) (load(strcat bibpath"mrcon"))))(c:seri2)
  824. [meca(rc03)]^c^c^p(if (not c:rcon)(progn (vmon) (load(strcat bibpath"mrcon"))))(c:seri3)
  825. [meca(rc22)]^c^c^p(if (not c:rcon)(progn (vmon) (load(strcat bibpath"mrcon"))))(c:seri22)
  826. [meca(rc33)]^c^c^p(if (not c:rcon)(progn (vmon) (load(strcat bibpath"mrcon"))))(c:seri33)
  827. [meca(rb2o)]^c^c^p(if (not c:rb2o)(progn (vmon) (load(strcat bibpath"mrb2o"))))(c:rb2o)
  828. [meca(rbo)]^c^c^p(if (not c:rbo)(progn (vmon) (load(strcat bibpath"mrbo"))))(c:rbo)
  829. [meca(rrx)]^c^c^p(if (not c:rrx)(progn (vmon) (load(strcat bibpath"mrrx"))))(c:rrx)
  830. [meca(rr)]^c^c^p(if (not c:rr)(progn (vmon) (load(strcat bibpath"mrr"))))(c:rr)
  831. [meca(rc)]^c^c^p(if (not c:rc)(progn (vmon) (load(strcat bibpath"mrc"))))(c:rc)
  832. [meca(bb)]^c^c^p(if (not c:bb)(progn (vmon) (load(strcat bibpath"mbb"))))(c:bb)
  833. [meca(bbd)]^c^c^p(if (not c:bbd)(progn (vmon) (load(strcat bibpath"mbbd"))))(c:bbd)
  834. [ Sortir]^c^c
  835.  
  836. **visserie
  837. [VISSERIES]
  838. [meca(h)]^c^c^p(if (not c:h)(progn (vmon) (load(strcat bibpath"mvis1"))))(c:h)
  839. [meca(chc)]^c^c^p(if (not c:h)(progn (vmon) (load(strcat bibpath"mvis1"))))(c:chc)
  840. [meca(cyl)]^c^c^p(if (not c:h)(progn (vmon) (load(strcat bibpath"mvis1"))))(c:cyl)
  841. [meca(cyll)]^c^c^p(if (not c:h)(progn (vmon) (load(strcat bibpath"mvis1"))))(c:cyll)
  842. [meca(f90)]^c^c^p(if (not c:gou)(progn (vmon) (load(strcat bibpath"mvis2"))))(c:f90)
  843. [meca(fb90)]^c^c^p(if (not c:gou)(progn (vmon) (load(strcat bibpath"mvis2"))))(c:fb90)
  844. [meca(fhc)]^c^c^p(if (not c:gou)(progn (vmon) (load(strcat bibpath"mvis2"))))(c:fhc90)
  845. [meca(gou)]^c^c^p(if (not c:gou)(progn (vmon) (load(strcat bibpath"mvis2"))))(c:gou)
  846. [meca(hax)]^c^c^p(if (not c:h)(progn (vmon) (load(strcat bibpath"mvis1"))))(c:hax)
  847. [meca(chcax)]^c^c^p(if (not c:h)(progn (vmon) (load(strcat bibpath"mvis1"))))(c:chcax)
  848. [meca(fax)]^c^c^p(if (not c:h)(progn (vmon) (load(strcat bibpath"mvis1"))))(c:fax)
  849. [meca(ecrax)]^c^c^p(if (not c:echh)(progn (vmon) (load(strcat bibpath"mec0"))))(c:ecrax)
  850. [meca(eckdax)]^c^c^p(if (not c:eckdax)(progn (vmon) (load(strcat bibpath"mec1"))))(c:eckdax)
  851. [meca(ttax)]^c^c^p(if (not c:ttf)(progn (vmon) (load(strcat bibpath"mttf"))))(c:ttf)
  852. [ Suivant]$i=visserie2 $i=*
  853. [ Sortir]^c^c
  854.  
  855. **visserie2
  856. [ECROUS]
  857. [ Precedent]$i=visserie $i=*
  858. [meca(hh)]^c^c^p(if (not c:echh)(progn (vmon) (load(strcat bibpath"mec0"))))(c:echh)
  859. [meca(hm)]^c^c^p(if (not c:echh)(progn (vmon) (load(strcat bibpath"mec0"))))(c:echm)
  860. [meca(hb)]^c^c^p(if (not c:echh)(progn (vmon) (load(strcat bibpath"mec0"))))(c:echb)
  861. [meca(bomb)]^c^c^p(if (not c:eckd)(progn (vmon) (load(strcat bibpath"mec1"))))(c:bor)
  862. [meca(echk)]^c^c^p(if (not c:eckd)(progn (vmon) (load(strcat bibpath"mec1"))))(c:eckd)
  863. [meca(nyl)]^c^c^p(if (not c:echh)(progn (vmon) (load(strcat bibpath"mec0"))))(c:nyl)
  864. [meca(emb)]^c^c^p(if (not c:emb)(progn (vmon) (load(strcat bibpath"mec2"))))(c:emb)
  865. [meca(ttr)]^c^c^p(if (not c:ttr)(progn (vmon) (load(strcat bibpath"mttar"))))(c:ttr)
  866. [meca(rdent)]^c^c^p(if (not c:ron)(progn (vmon) (load(strcat bibpath"mrond"))))(c:rdent)
  867. [meca(ron)]^c^c^p(if (not c:ron)(progn (vmon) (load(strcat bibpath"mrond"))))(c:ron)
  868. [meca(gro)]^c^c^p(if (not c:gro)(progn (vmon) (load(strcat bibpath"mgrow"))))(c:gro)
  869. [ sortir]^c^c
  870.  
  871. **pression
  872. [VIS DE PRESSION]
  873. [meca(htl)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:htl)
  874. [meca(hcon)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:hcon)
  875. [meca(hpl)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:hpl)
  876. [meca(ctc)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:ctc)
  877. [meca(ccon)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:ccon)
  878. [meca(cpl)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:cpl)
  879. [meca(fpl)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:fpl)
  880. [meca(ftc)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:ftc)
  881. [meca(hcpl)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:hcpl)
  882. [meca(hctc)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:hctc)
  883. [meca(hctl)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:hctl)
  884. [meca(hccon)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:hccon)
  885. [meca(qpcon)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:qpcon)
  886. [meca(qmtc)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:qmtc)
  887. [meca(qptl)]^c^c^p(if (not c:htl)(progn (vmon) (load(strcat bibpath"mpres"))))(c:qptl)
  888. [ Sortir]^c^c
  889.  
  890. **goupilles
  891. [GOUPILLES]
  892. [meca(goucon)]^c^c^p(if (not c:go1)(progn (vmon) (load(strcat bibpath"mindus"))))(c:goucon)
  893. [meca(go1)]^c^c^p(if (not c:go1)(progn (vmon) (load(strcat bibpath"mindus"))))(c:go1)
  894. [meca(go2)]^c^c^p(if (not c:go2)(progn (vmon) (load(strcat bibpath"mindus"))))(c:go2)
  895. [meca(go6)]^c^c^p(if (not c:go6)(progn (vmon) (load(strcat bibpath"mindus"))))(c:go6)
  896. [meca(go7)]^c^c^p(if (not c:go7)(progn (vmon) (load(strcat bibpath"mindus"))))(c:go7)
  897. [meca(ggp2)]^c^c^p(if (not c:ggp2)(progn (vmon) (load(strcat bibpath"mgg"))))(c:ggp2)
  898. [meca(ggr5)]^c^c^p(if (not c:ggr5)(progn (vmon) (load(strcat bibpath"mgg"))))(c:ggr5)
  899. [ Sortir]^c^c
  900.  
  901. **dme
  902. [DME]
  903. [dme(dn01)]^c^c^p(if (not c:n01)(progn (vmon) (load(strcat bibpath"dn01"))))(c:dn01)
  904. [dme(dn10a)]^c^c^p(if (not c:n10a)(progn (vmon) (load(strcat bibpath"dn10a"))))(c:dn10a)
  905. [dme(dn10b)]^c^c^p(if (not c:n10b)(progn (vmon) (load(strcat bibpath"dn10b"))))(c:dn10b)
  906. [dme(dn20)]^c^c^p(if (not c:n20)(progn (vmon) (load(strcat bibpath"dn20"))))(c:dn20)
  907. [dme(dn30)]^c^c^p(if (not c:n30)(progn (vmon) (load(strcat bibpath"dn30"))))(c:dn30)
  908. [dme(dn50)]^c^c^p(if (not c:n50)(progn (vmon) (load(strcat bibpath"dn50"))))(c:dn50)
  909. [dme(dn40)]^c^c^p(if (not c:n40)(progn (vmon) (load(strcat bibpath"dn40"))))(c:dn40)
  910. [dme(dn02)]^c^c^p(if (not c:n02)(progn (vmon) (load(strcat bibpath"dn02"))))(c:dn02)
  911. [dme(dcote)]^c^c^p(if (not c:dcote)(progn (vmon) (load(strcat bibpath"dcote"))))(c:dcote)
  912. [dme(ddessus)]^c^c^p(if (not c:ddessus)(progn (vmon) (load(strcat bibpath"ddessus"))))(c:ddessus)
  913. [dme(dsftype)]^c^c^p(if (not c:mou)(progn (vmon) (load(strcat bibpath"dsftype"))))(c:dsftype)
  914. [ Sortir]^c^c
  915.  
  916. **accdme
  917. [ACCESSOIRES DME]
  918. [dme(dfsc)]^c^c^p(if (not c:dfsc)(progn (vmon) (load(strcat bibpath"dcolonne"))))(c:dfsc)
  919. [dme(dfsn)]^c^c^p(if (not c:dfsc)(progn (vmon) (load(strcat bibpath"dcolonne"))))(c:dfsn)
  920. [dme(dfbc)]^c^c^p(if (not c:dfbc)(progn (vmon) (load(strcat bibpath"dbague"))))(c:dfbc)
  921. [dme(dfbn)]^c^c^p(if (not c:dfbc)(progn (vmon) (load(strcat bibpath"dbague"))))(c:dfbn)
  922. [dme(dbuse)]^c^c^p(if (not c:buse)(progn (vmon) (load(strcat bibpath"dbuse"))))(c:dbuse)
  923. [dme(dags)]^c^c^p(if (not c:dags)(progn (vmon) (load(strcat bibpath"dags"))))(c:dags)
  924. [dme(dej)]^c^c^p(if (not c:dej)(progn (vmon) (load(strcat bibpath"dej"))))(c:dej)
  925. [dme(dejt)]^c^c^p(if (not c:dejt)(progn (vmon) (load(strcat bibpath"dejt"))))(c:dejt)
  926. [dme(dft)]^c^c^p(if (not c:dft)(progn (vmon) (load(strcat bibpath"dft"))))(c:dft)
  927. [dme(dmt)]^c^c^p(if (not c:dmt)(progn (vmon) (load(strcat bibpath"dmt"))))(c:dmt)
  928. [dme(dr)]^c^c^p(if (not c:dr)(progn (vmon) (load(strcat bibpath"dr"))))(c:dr)
  929. [dme(drb)]^c^c^p(if (not c:drb)(progn (vmon) (load(strcat bibpath"drb"))))(c:drb)
  930. [dme(dtd)]^c^c^p(if (not c:dtd)(progn (vmon) (load(strcat bibpath"dtd"))))(c:dtd)
  931. [ Sortir]^c^c
  932.  
  933.  
  934. **elements
  935. [ELEMENTS DIVERS]
  936. [meca(res)]^c^c^p(if (not c:res)(progn (vmon) (load(strcat bibpath"mres"))))(c:res)
  937. [meca(rsx)]^c^c^p(if (not c:rsx)(progn (vmon) (load(strcat bibpath"mrsx"))))(c:rsx)
  938. [meca(cie)]^c^c^p(if (not c:cie)(progn (vmon) (load(strcat bibpath"mcire"))))(c:cie)
  939. [meca(cieax)]^c^c^p(if (not c:cie)(progn (vmon) (load(strcat bibpath"mcire"))))(c:cieax)
  940. [meca(cii)]^c^c^p(if (not c:cii)(progn (vmon) (load(strcat bibpath"mciri"))))(c:cii)
  941. [meca(ciiax)]^c^c^p(if (not c:cii)(progn (vmon) (load(strcat bibpath"mciri"))))(c:ciiax)
  942. [meca(ie)]^c^c^p(if (not c:ie)(progn (vmon) (load(strcat bibpath"mlev"))))(c:ie)
  943. [meca(iel)]^c^c^p(if (not c:ie)(progn (vmon) (load(strcat bibpath"mlev"))))(c:iel)
  944. [meca(ecrenc)]^c^c^p(if (not c:ecrenc)(progn (vmon) (load(strcat bibpath"mecrenc"))))(c:ecrenc)
  945. [meca(enc_nyl)]^c^c^p(if (not c:enc_nyl)(progn (vmon) (load(strcat bibpath"menc_nyl"))))(c:enc_nyl)
  946. [meca(hyd)]^c^c^p(if (not c:hyd)(progn (vmon) (load(strcat bibpath"mgrai"))))(c:hyd)
  947. [meca(lub)]^c^c^p(if (not c:hyd)(progn (vmon) (load(strcat bibpath"mgrai"))))(c:lub)
  948. [meca(metro)]^c^c^p(if (not c:hyd)(progn (vmon) (load(strcat bibpath"mgrai"))))(c:metro)
  949. [meca(pop)]^c^c^p(if (not c:pop)(progn (vmon) (load(strcat bibpath"mriv"))))(c:pop)
  950. [ Sortir]^c^c
  951.  
  952. **elect
  953. [Choisissez le type contact]
  954. [elec(lamp1)]^C^C^P(if(not c:l_eclair)(progn (vmon) (load(strcat bibpath"erecept")))) (c:l_eclair)
  955. [elec(lamp2)]^C^C^P(if(not c:l_incand)(progn (vmon) (load(strcat bibpath"erecept")))) (c:l_incand)
  956. [elec(lamp3)]^C^C^P(if(not c:l_decharge)(progn (vmon) (load(strcat bibpath"erecept")))) (c:l_decharge)
  957. [elec(lamp4)]^C^C^P(if(not c:l_gaz)(progn (vmon) (load(strcat bibpath"erecept")))) (c:l_gaz)
  958. [elec(enrou)]^C^C^P(if(not c:enrou)(progn (vmon) (load(strcat bibpath"erecept")))) (c:enrou)
  959. [elec(transfor)]^C^C^P(if(not c:transfo)(progn (vmon) (load(strcat bibpath"erecept")))) (c:transfo)
  960. [elec(moteur)]^C^C^P(if(not c:motor)(progn (vmon) (load(strcat bibpath"erecept")))) (c:motor)
  961. [elec(sonnerie)]^C^C^P(if(not c:sonnerie)(progn (vmon) (load(strcat bibpath"erecept")))) (c:sonnerie)
  962. [elec(klaxon)]^C^C^P(if(not c:klaxon)(progn (vmon) (load(strcat bibpath"erecept")))) (c:klaxon)
  963. [elec(sirene)]^C^C^P(if(not c:sirene)(progn (vmon) (load(strcat bibpath"erecept")))) (c:sirene)
  964. [elec(ronfleur)]^C^C^P(if(not c:ronfleur)(progn (vmon) (load(strcat bibpath"erecept")))) (c:ronfleur)
  965. [elec(fusible)]^C^C^P(if(not c:fusible)(progn (vmon) (load(strcat bibpath"erecept")))) (c:fusible)
  966. [elec(fusi1)]^C^C^P(if(not c:fus_percut)(progn (vmon) (load(strcat bibpath"erecept")))) (c:fus_percut)
  967. [ Suivant]$i=elect1 $i=*
  968. [ Sortir]^c^c
  969.  
  970. **elect1
  971. [Choisissez un bouton]
  972. [ Precedent]$i=elect $i=*
  973. [elec(fusi2)]^C^C^P(if(not c:percut_signal)(progn (vmon) (load(strcat bibpath"erecept")))) (c:percut_signal)
  974. [elec(fusi3)]^C^C^P(if(not c:fus_sect)(progn (vmon) (load(strcat bibpath"erecept")))) (c:fus_sect)
  975. [elec(fusi4)]^C^C^P(if(not c:fus_source)(progn (vmon) (load(strcat bibpath"erecept")))) (c:fus_source)
  976. [elec(fusi5)]^C^C^P(if(not c:fus_inter)(progn (vmon) (load(strcat bibpath"erecept")))) (c:fus_inter)
  977. [elec(terre)]^C^C^P(if(not c:terre)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:terre)
  978. [elec(masse)]^C^C^P(if(not c:masse)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:masse)
  979. [elec(alternat)]^C^C^P(if(not c:alternatif)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:alternatif)
  980. [elec(conden]^C^C^P(if(not c:conden)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:conden)
  981. [elec(cond1)]^C^C^P(if(not c:conden_pola)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:conden_pola)
  982. [elec(co_n_pol)]^C^C^P(if(not c:conden_non_pola)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:conden_non_pola)
  983. [elec(cond_pol)]^C^C^P(if(not c:conden_polar)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:conden_polar)
  984. [elec(resist)]^C^C^P(if(not c:resistance)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:resistance)
  985. [elec(resi1)]^C^C^P(if(not c:resist_potentio)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:resist_potentio)
  986. [ Suivant]$i=elect2 $i=*
  987. [ Sortir]^c^c
  988.  
  989. **elect2
  990. [Choisissez un element]
  991. [ Precedent]$i=elect1 $i=*
  992. [elec(pile)]^C^C^P(if(not c:pile)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:pile)
  993. [elec(batt_pil)]^C^C^P(if(not c:batterie_pile)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:batterie_pile)
  994. [elec(batt_int)]^C^C^P(if(not c:batterie_inter)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:batterie_inter)
  995. [elec(redu_dou)]^C^C^P(if(not c:bat_red_double)(progn (vmon) (load(strcat bibpath"epil_div")))) (c:bat_red_double)
  996. [elec(conducte)]^C^C^P(if(not c:conducteur)(progn (vmon) (load(strcat bibpath"econduct")))) (c:conducteur)
  997. [elec(relais)]^C^C^P(if(not c:relais_therm)(progn (vmon) (load(strcat bibpath"erelais")))) (c:relais)
  998. [elec(contac14)]^C^C^P(if(not c:rupteur)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:rupteur)
  999. [elec(contac16)]^C^C^P(if(not c:sectionneur)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:sectionneur)
  1000. [elec(contac17)]^C^C^P(if(not c:contacteur)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:contacteur)
  1001. [elec(contac18)]^C^C^P(if(not c:discontacteur)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:discontacteur)
  1002. [elec(contac19)]^C^C^P(if(not c:interrupteur)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:interrupteur)
  1003. [elec(contac20)]^C^C^P(if(not c:dijoncteur)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:dijoncteur)
  1004. [elec(contact1)]^C^C^P(if(not c:ferm_retarde)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:ferm_retarde)
  1005. [ Suivant]$i=elect3 $i=*
  1006. [ Sortir]^c^c
  1007.  
  1008. **elect3
  1009. [Choisissez un bouton]
  1010. [ Precedent]$i=elect2 $i=*
  1011. [elec(contac10)]^C^C^P(if(not c:cont_ouv_retarde)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:cont_ouv_retarde)
  1012. [elec(contac11)]^C^C^P(if(not c:ferm_anticip)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:ferm_anticip)
  1013. [elec(contact4)]^C^C^P(if(not c:ferm_tardive)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:ferm_tardive)
  1014. [elec(contact5)]^C^C^P(if(not c:ouvert_tardive)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:ouvert_tardive)
  1015. [elec(contact6)]^C^C^P(if(not c:cont_2_ferm)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:cont_2_ferm)
  1016. [elec(contact7)]^C^C^P(if(not c:cont_2_ouvert)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:cont_2_ouvert)
  1017. [elec(contact8)]^C^C^P(if(not c:cont_ferm)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:cont_ferm)
  1018. [elec(contact9)]^C^C^P(if(not c:cont_ouv)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:cont_ouv)
  1019. [elec(contac12)]^C^C^P(if(not c:cont_2_direc)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:cont_2_direc)
  1020. [elec(contact2)]^C^C^P(if(not c:cont_2_direc_med)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:cont_2_direc_med)
  1021. [elec(contac13)]^C^C^P(if(not c:cont_ferm_retar)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:cont_ferm_retar)
  1022. [elec(contac15)]^C^C^P(if(not c:inter_sectio)(progn (vmon) (load(strcat bibpath"eint_sec")))) (c:inter_sectio)
  1023. [ Debut]$i=elect $i=*
  1024. [ Sortir]^c^c
  1025.  
  1026. **txtalign
  1027. [Alignement du Texte]
  1028. [acad(j-tleft)]^P(setq m:ta "HGauche") ^P
  1029. [acad(j-mleft)]^P(setq m:ta "MGauche") ^P
  1030. [acad(j-start)]^P(setq m:ta "BGauche") ^P
  1031. [acad(j-bleft)]^P(setq m:ta "BGauche") ^P
  1032. [acad(j-tcen)]^P(setq m:ta "HCentre") ^P
  1033. [acad(j-mcen)]^P(setq m:ta "MCentre") ^P
  1034. [acad(j-center)]^P(setq m:ta "C") ^P
  1035. [acad(j-bcen)]^P(setq m:ta "BCentre") ^P
  1036. [acad(j-tright)]^P(setq m:ta "HDroite") ^P
  1037. [acad(j-mright)]^P(setq m:ta "MDroite") ^P
  1038. [acad(j-right)]^P(setq m:ta "D") ^P
  1039. [acad(j-bright)]^P(setq m:ta "BDroite") ^P
  1040. [acad(j-align)]^P(setq m:ta "Aligné") ^P
  1041. [acad(j-fit)]^P(setq m:ta "Fixé") ^P
  1042. [ TXTDYN]^P(setq m:ta nil)(princ) ^P
  1043. [ Sortir]
  1044.  
  1045.  
  1046. **poly
  1047. [Variables pour les Mailles et Polylignes]
  1048. [acad(pm-quad)]'surftype 5
  1049. [acad(pm-cubic)]'surftype 6
  1050. [acad(pm-bezr)]'surftype 8
  1051. [acad(pl-quad)]'splinetype 5
  1052. [acad(pl-cubic)]'splinetype 6
  1053. [ Nombre de Segments]'splinesegs \
  1054. [ Choix Armature]'splframe \
  1055. [ Choix Densite]'surfu \'surfv \
  1056. [ Sortir]$p3=pop3
  1057.  
  1058. **ucs
  1059. [Système de Coordonnée Utilisateur]
  1060. [ SCU GENERAL]^C^Cscu g
  1061. [acad(u-left)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1062. scu 3 \@0,-1,0 @0,0,1 ^P
  1063. [ SCU Ecran]^C^Cscu v
  1064. [acad(u-top)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1065. scu 3 \@1,0,0 @0,1,0 ^P
  1066. [acad(u-front)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1067. scu 3 \@1,0,0 @0,0,1 ^P
  1068. [acad(u-bottom)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1069. scu 3 \@1,0,0 @0,-1,0 ^P
  1070. [acad(u-back)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1071. scu 3 \@-1,0,0 @0,0,1 ^P
  1072. [acad(u-right)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1073. scu 3 \@0,1,0 @0,0,1 ^P
  1074. [ Sortir]
  1075.  
  1076. **3DViews
  1077. [Choix du point de Vue 3D]
  1078. [acad(vp-ul)]^C^CPOINTVUE R;<<135;
  1079. [acad(vp-left)]^C^CPOINTVUE R;<<180;
  1080. [acad(vp-ll)]^C^CPOINTVUE R;<<225;
  1081. [acad(blank)]
  1082. [acad(vp-u)]^C^CPOINTVUE R;<<90;
  1083. [acad(vp-plan)]^C^CPointvue 0,0,1
  1084. [acad(vp-lo)]^C^CPOINTVUE R;<<270;
  1085. [acad(blank)]
  1086. [acad(vp-ur)]^C^CPOINTVUE R;<<45;
  1087. [acad(vp-right)]^C^CPOINTVUE R;<<0;
  1088. [acad(vp-lr)]^C^CPOINTVUE R;<<315;
  1089. [acad(blank)]
  1090. [acad(vp-axes)]POINTVUE;;
  1091. [acad(hide)]$S=X $S=HIDE
  1092. [ Sortir]
  1093.  
  1094. **dviewi
  1095. [Options VUE DYNAMIQUE]
  1096. [acad(dv-cam)]^C^C(menucmd "S=X")(menucmd "S=DVIEW")+
  1097. (command "Select" pause "VUEDYN" "p" "" "cam" pause pause "")
  1098. [acad(dv-zoom)]^C^C(menucmd "S=X")(menucmd "S=DVIEW")+
  1099. (command "Select" pause "VUEDYN" "p" "" "z" pause "")
  1100. [acad(dv-pan)]^C^C(menucmd "S=X")(menucmd "S=DVIEW")+
  1101. (command "Select" pause "VUEDYN" "p" "" "pa" pause pause "")
  1102. [ Sortir]
  1103.  
  1104. **3DObjects
  1105. [Objets 3D]
  1106. [acad(box3d)]^C^C^P(progn(setq m:err *error*)(prin1))+
  1107. (defun m:l3d ()(cond ((null C:boite)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1108. (progn (terpri)(prompt "Chargement des Objets 3D en cours...");+
  1109. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1110. "Le fichier 3d.lsp n'a pas été trouvé dans le répertoire courant.")(terpri);+
  1111. (prompt "Vérifiez l'installation et essayez à  nouveau.")+
  1112. (princ)))))(T (princ)))(cond ((not (null C:boite))(C:boite))(T (princ)));+
  1113. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1114. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1115. [acad(wedge)]^C^C^P(progn(setq m:err *error*)(princ));+
  1116. (defun m:l3d ()(cond ((null C:boite)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1117. (progn (terpri)(prompt "Chargement des Objets 3D en cours...");+
  1118. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1119. "Le fichier 3D.lsp n'a pas été trouvé dans le répertoire courant.")(terpri);+
  1120. (prompt "Vérifiez votre installation et essayez à nouveau.")+
  1121. (princ))))(T (princ)))(cond ((not (null C:biseau))(C:biseau))(T (princ)));+
  1122. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1123. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1124. [acad(pyramid)]^C^C^P(progn(setq m:err *error*)(princ))+
  1125. (defun m:l3d ()(cond ((null C:boite)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1126. (progn (terpri)(prompt "Chargement des Objets 3D en cours.");+
  1127. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1128. "Le fichier 3D.lsp n'a pas été trouvé dans le répertoire courant.")(terpri);+
  1129. (prompt "Vérifiez votre installation et essayez à nouveau.")+
  1130. (princ))))(T (princ)))(cond ((not (null C:pyramide))(C:pyramide))(T (princ)));+
  1131. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1132. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1133. [acad(dome)]^C^C^P(progn(setq m:err *error*)(princ));+
  1134. (defun m:l3d ()(cond ((null C:boite)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1135. (progn (terpri)(prompt "Chargement des Objets 3D en cours.");+
  1136. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1137. "Le fichier 3D.lsp n'a pas été trouvé dans le répertoire courant.")(terpri);+
  1138. (prompt "Vérifiez votre installation et essayez à nouveau.")+
  1139. (princ))))(T (princ)))(cond ((not (null C:dome))(C:dome))(T (princ)));+
  1140. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1141. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1142. [acad(dish)]^C^C^P(progn(setq m:err *error*)(princ));+
  1143. (defun m:l3d ()(cond ((null C:boite)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1144. (progn (terpri)(prompt "Chargement des Objets 3D en cours.");+
  1145. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1146. "Le fichier 3D.lsp n'a pas été trouvé dans le répertoire courant.")(terpri);+
  1147. (prompt "Vérifiez votre installation et essayez à nouveau.")+
  1148. (princ))))(T (princ)))(cond ((not (null C:cuvette))(C:cuvette))(T (princ)));+
  1149. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1150. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1151. [acad(cone)]^C^C^P(progn(setq m:err *error*)(princ));+
  1152. (defun m:l3d ()(cond ((null C:boite)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1153. (progn (terpri)(prompt "Chargement des Objets 3D en cours.");+
  1154. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1155. "Le fichier 3D.lsp n'a pas été trouvé dans le répertoire courant.")(terpri);+
  1156. (prompt "Vérifiez votre installation et essayez à nouveau.")+
  1157. (princ))))(T (princ)))(cond ((not (null C:cone))(C:cone))(T (princ)));+
  1158. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1159. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1160. [acad(sphere)]^C^C^P(progn(setq m:err *error*)(princ));+
  1161. (defun m:l3d ()(cond ((null C:boite)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1162. (progn (terpri)(prompt "Chargement des Objets 3D en cours.");+
  1163. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1164. "Le fichier 3D.lsp n'a pas été trouvé dans le repertoire courant.")(terpri);+
  1165. (prompt "Vérifiez votre installation et essayez à nouveau.")+
  1166. (princ))))(T (princ)))(cond ((not (null C:sphere))(C:sphere))(T (princ)));+
  1167. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1168. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1169. [acad(torus)]^C^C^P(progn(setq m:err *error*)(princ));+
  1170. (defun m:l3d ()(cond ((null C:boite)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1171. (progn (terpri)(prompt "Chargement des Objets 3D en cours.");+
  1172. (load "3d")(menucmd "S=X")(menucmd "S=3D2"))(progn (terpri)(prompt +
  1173. "Le fichier 3D.lsp n'a pas été trouvé dans le répertoire courant.")(terpri);+
  1174. (prompt "Vérifiez votre installation et essayez à nouveau.")+
  1175. (princ))))(T (princ)))(cond ((not (null C:tore))(C:tore))(T (princ)));+
  1176. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1177. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1178. [ Sortir]
  1179.  
  1180. **surf1
  1181. [Surfaces 3D]
  1182. [acad(revsurf)]^C^C$S=X $S=3D surfrev
  1183. [acad(rulesurf)]^C^C$S=X $S=3D surfregl
  1184. [acad(surftab1)]'surftab1 \$I=*
  1185. [acad(tabsurf)]^C^C$S=X $S=3D surfextr
  1186. [acad(edgesurf)]^C^C$S=X $S=3D surfgau
  1187. [acad(surftab2)]'surftab2 \$I=*
  1188. [acad(mesh)]^C^C^P(progn(setq m:err *error*)(princ));+
  1189. (defun m:l3d ()(cond ((null C:boite)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1190. (progn (terpri)(prompt "Chargement des Objets 3D en cours.");+
  1191. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1192. "Le fichier 3D.lsp n'a pas été trouvé dans le répertoire courant.")(terpri);+
  1193. (prompt "Vérifiez votre installation et essayez à nouveau.")+
  1194. (princ))))(T (princ)))(cond ((not (null C:maille))(C:maille))(T (princ)));+
  1195. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1196. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1197. [ Objets 3D]$I=3dobjects $I=*
  1198. [ Sortir]
  1199.  
  1200. **fonts1
  1201. [Police de Caracteres]
  1202. [acad(romans)]^c^cstyle romans8 romans8
  1203. [acad(romanc)]^c^cstyle romanc8 romanc8
  1204. [acad(romant)]^c^cstyle romant8 romant8
  1205. [acad(italic)]^c^cstyle italic8 italic8
  1206. [acad(italicc)]^c^cstyle italicc8 italicc8
  1207. [acad(italict)]^c^cstyle italict8 italict8
  1208. [acad(monotxt)]^c^cstyle monotxt8 monotxt8
  1209. [ Suivant]$i=fonts2 $i=*
  1210. [ Sortir]
  1211.  
  1212. **fonts2
  1213. [Polices de Caracteres]
  1214. [acad(gothice)]^c^cstyle gothice8 gothice8
  1215. [acad(scripts)]^c^cstyle scripts8 scripts8
  1216. [acad(simplex)]^c^cstyle simplex8 simplex8
  1217. [acad(gothicg)]^c^cstyle gothicg8 gothicg8
  1218. [acad(scriptc)]^c^cstyle scriptc8 scriptc8
  1219. [acad(complex)]^c^cstyle complex8 complex8
  1220. [acad(gothici)]^c^cstyle gothici8 gothici8
  1221. [ Suivant]$i=fonts3 $i=*
  1222. [ Sortir]
  1223.  
  1224. **fonts3
  1225. [Polices de Caracteres]
  1226. [acad(syastro)]^c^cstyle syastro syastro
  1227. [acad(symath)]^c^cstyle symath symath
  1228. [acad(symusic)]^c^cstyle symusic symusic
  1229. [acad(symap)]^c^cstyle symap symap
  1230. [acad(symeteo)]^c^cstyle symeteo symeteo
  1231. [acad(txt)]^c^cstyle txt8 txt8
  1232. [acad(iso)]^c^cstyle iso8 iso8
  1233. [ Debut]$i=fonts1 $i=*
  1234. [ Sortir]
  1235.  
  1236. **hatch1
  1237. [Modèles de Hachures - * Sans échelle]
  1238. [ Utilisateur]^P(setq m:hp "U") ^P
  1239. [acad(ansi31)]^P(setq m:hp "ansi31") ^P
  1240. [acad(ansi32)]^P(setq m:hp "ansi32") ^P
  1241. [acad(ansi34)]^P(setq m:hp "ansi34") ^P
  1242. [acad(ansi35)]^P(setq m:hp "ansi35") ^P
  1243. [acad(ansi33)]^P(setq m:hp "ansi33") ^P
  1244. [acad(ansi36)]^P(setq m:hp "ansi36") ^P
  1245. [acad(ansi37)]^P(setq m:hp "ansi37") ^P
  1246. [acad(ansi38)]^P(setq m:hp "ansi38") ^P
  1247. [acad(ar-b816)]^P(setq m:hp "ar-b816") ^P
  1248. [acad(ar-b816c)]^P(setq m:hp "ar-b816c") ^P
  1249. [acad(ar-b88)]^P(setq m:hp "ar-b88") ^P
  1250. [acad(ar-brelm)]^P(setq m:hp "ar-brelm") ^P
  1251. [acad(ar-brstd)]^P(setq m:hp "ar-brstd") ^P
  1252. [ Suivant]$i=hatch2 $i=*
  1253. [ Sortir]
  1254.  
  1255. **hatch2
  1256. [Modèles de Hachures - * Sans échelle]
  1257. [acad(ar-conc)]^P(setq m:hp "ar-conc") ^P
  1258. [acad(ar-hbone)]^P(setq m:hp "ar-hbone") ^P
  1259. [acad(ar-parq1)]^P(setq m:hp "ar-parq1") ^P
  1260. [acad(ar-rroof)]^P(setq m:hp "ar-rroof") ^P
  1261. [acad(ar-rshke)]^P(setq m:hp "ar-rshke") ^P
  1262. [acad(ar-sand)]^P(setq m:hp "ar-sand") ^P
  1263. [acad(box)]^P(setq m:hp "box") ^P
  1264. [acad(brass)]^P(setq m:hp "brass") ^P
  1265. [acad(brick)]^P(setq m:hp "brick") ^P
  1266. [acad(brstone)]^P(setq m:hp "brstone") ^P
  1267. [acad(clay)]^P(setq m:hp "clay") ^P
  1268. [acad(cork)]^P(setq m:hp "cork") ^P
  1269. [acad(cross)]^P(setq m:hp "cross") ^P
  1270. [acad(dash)]^P(setq m:hp "dash") ^P
  1271. [ Suivant]$i=hatch3 $i=*
  1272. [ Sortir]
  1273.  
  1274. **hatch3
  1275. [Modèles de Hachures - * Sans échelle]
  1276. [acad(dolmit)]^P(setq m:hp "dolmit") ^P
  1277. [acad(dots)]^P(setq m:hp "dots") ^P
  1278. [acad(earth)]^P(setq m:hp "earth") ^P
  1279. [acad(escher)]^P(setq m:hp "escher") ^P
  1280. [acad(flex)]^P(setq m:hp "flex") ^P
  1281. [acad(grass)]^P(setq m:hp "grass") ^P
  1282. [acad(grate)]^P(setq m:hp "grate") ^P
  1283. [acad(hex)]^P(setq m:hp "hex") ^P
  1284. [acad(honey)]^P(setq m:hp "honey") ^P
  1285. [acad(hound)]^P(setq m:hp "hound") ^P
  1286. [acad(insul)]^P(setq m:hp "insul") ^P
  1287. [acad(line)]^P(setq m:hp "line") ^P
  1288. [acad(mudst)]^P(setq m:hp "mudst") ^P
  1289. [acad(net)]^P(setq m:hp "net") ^P
  1290. [ Suivant]$I=hatch4 $I=*
  1291. [ Sortir]
  1292.  
  1293. **hatch4
  1294. [Modèles de Hachures - * Sans échelle]
  1295. [acad(net3)]^P(setq m:hp "net3") ^P
  1296. [acad(plast)]^P(setq m:hp "plast") ^P
  1297. [acad(plasti)]^P(setq m:hp "plasti") ^P
  1298. [acad(sacncr)]^P(setq m:hp "sacncr") ^P
  1299. [acad(square)]^P(setq m:hp "square") ^P
  1300. [acad(stars)]^P(setq m:hp "stars") ^P
  1301. [acad(steel)]^P(setq m:hp "steel") ^P
  1302. [acad(swamp)]^P(setq m:hp "swamp") ^P
  1303. [acad(trans)]^P(setq m:hp "trans") ^P
  1304. [acad(triang)]^P(setq m:hp "triang") ^P
  1305. [acad(zigzag)]^P(setq m:hp "zigzag") ^P
  1306. [acad(angle)]^P(setq m:hp "angle") ^P
  1307. [ Debut]$i=hatch1 $i=*
  1308. [ Sortir]
  1309.  
  1310. **hatchs
  1311. [Style de Hachures]
  1312. [acad(h-normal)]^P(setq m:hs ",N") ^P
  1313. [acad(h-outer)]^P(setq m:hs ",P") ^P
  1314. [acad(h-ignore)]^P(setq m:hs ",T") ^P
  1315. [ Sortir]
  1316.  
  1317. **drdim
  1318. [Style des Cotations]
  1319. [acad1(linear)]$I=drlin $I=*
  1320. [acad1(angular)]ANGULAIRE
  1321. [acad1(ordinate)]$S=X $S=DIMORD $I=drord $I=*
  1322. [acad1(diameter)]$S=X $S=DIMRADIAL DIAMETRE
  1323. [acad1(radial)]$S=X $S=DIMRADIAL RAYON
  1324. [ Edit Cot...]$S=X $S=FORMAT $I=eddim $I=*
  1325. [acad1(dimcen)]CENTRE
  1326. [acad1(dimlea)]RAPPEL
  1327. [ Sortir]
  1328.  
  1329. **drlin
  1330. [Cotations Linéaires]
  1331. [acad1(dimhor)]$S=X $S=DIMLINEAR HOR
  1332. [acad1(dimali)]$S=X $S=DIMLINEAR ALI
  1333. [acad1(blank)]
  1334. [acad1(dimver)]$S=X $S=DIMLINEAR VER
  1335. [acad1(dimrot)]$S=X $S=DIMLINEAR ROT
  1336. [ Précédent..]$I=DRDIM $I=*
  1337. [acad1(dimbas)]$S=X $S=DIMLINEAR LIGNEBAS
  1338. [acad1(dimcon)]$S=X $S=DIMLINEAR CONTINUE
  1339. [ Sortir]
  1340.  
  1341. **drord
  1342. [Cotations Ordonnées]
  1343. [acad1(dimordx)]ORD;\X
  1344. [acad1(dimorda)]ORD;
  1345. [acad1(dimordy)]ORD;\Y
  1346. [ Sortir]
  1347.  
  1348. **eddim
  1349. [Commandes d'Edition des Cotations]
  1350. [acad1(dimhomet)]$S=X $S=HOMETEXT INITXT
  1351. [acad1(dimnewtx)]$S=X $S=NEWTEXT TXTNOUV
  1352. [acad1(blank)]
  1353. [acad1(dimupdat)]$S=X $S=UPDATE AJOUR
  1354. [acad1(dimoblq)]OBL
  1355. [ Précédent..]$I=DRDIM $I=*
  1356. [acad1(dimtrot)]TROTATIO
  1357. [acad1(dimtedit)]$S=X $S=TEDIT TEDIT
  1358. [ Sortir]
  1359.  
  1360. **dimset
  1361. [Changer Variables de Cotation]
  1362. [acad1(linear)]$I=DIMLIN $I=*
  1363. [acad1(angular)]$I=DIMANG $I=*
  1364. [acad1(ordinate)]$I=DIMORD1 $I=*
  1365. [acad1(diameter)]$I=DIMDIA $I=*
  1366. [acad1(radial)]$I=DIMRAD $I=*
  1367. [ Style Cot...]$I=DIMSTY $I=*
  1368. [ Générales.....]$I=DIMGLO $I=*
  1369. [ Texte Cot..]$I=DIMTXT $I=*
  1370. [ Sortir]
  1371.  
  1372. **dimlin
  1373. [Changer Vars Cotat Linéaires]
  1374. [acad1(linli1)]COTTDL IN COTDLR IN COTSCHR IN $I=*
  1375. [acad1(linse1n)]COTS1E AC $I=*
  1376. [acad1(linexe)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1377. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1378. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1379. (princ))(command)(setq m:ds1 (getvar "DIMEXE"))(terpri)+
  1380. (prompt "Choix de la ligne d'extension par pointage ou valeur.")(terpri)+
  1381. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1382. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1383. (setvar "DIMEXE" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1384. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1385. [ Texte Cot..]$I=DIMTXT $I=*
  1386. [acad1(linli2)]COTTDL IN COTDLR AC COTSCHR IN $I=*
  1387. [acad1(linse1f)]COTS1E IN $I=*
  1388. [acad1(linexo)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1389. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1390. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1391. (princ))(command)(setq m:ds1 (getvar "DIMEXO"))(terpri)+
  1392. (prompt "Choix décalage Ligne d'extension par pointage ou valeur.")(terpri)+
  1393. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1394. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1395. (setvar "DIMEXO" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1396. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1397. [ Cot Générales.]$I=DIMGLO $I=*
  1398. [acad1(linli3)]COTTDL IN COTDLR AC COTSCHR AC $I=*
  1399. [acad1(linse2n)]COTS2E AC $I=*
  1400. [acad1(lindle)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1401. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1402. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1403. (princ))(command)(setq m:ds1 (getvar "DIMDLE"))(terpri)+
  1404. (prompt "Choix Ligne d'extension par pointage ou valeur.")(terpri)+
  1405. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1406. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1407. (setvar "DIMDLE" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1408. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1409. [ Précédent...]$I= $I=*
  1410. [acad1(linli4)]COTTDL AC COTDLR AC COTSCHR IN $I=*
  1411. [acad1(linse2f)]COTS2E IN $I=*
  1412. [acad1(lindli)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1413. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1414. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1415. (princ))(command)(setq m:ds1 (getvar "DIMDLI"))(terpri)+
  1416. (prompt "Choix incrément Ligne de Cotation par pointage ou valeur.")(terpri)+
  1417. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1418. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1419. (setvar "DIMDLI" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1420. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1421. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1422. (menucmd "I=*")) (command))(princ) ^P
  1423.  
  1424. **dimang
  1425. [Changer Vars Cotat Angulaire]$I= $I=*
  1426. [acad1(angblk)]$I=DIMBLK $I=*
  1427. [acad1(angtxt)]$I=DIMTXT $I=*
  1428. [acad1(angglo)]$I=DIMGLO $I=*
  1429. [ Sortir]
  1430.  
  1431. **dimord1
  1432. [Changer Vars Cotat Ordonnées]
  1433. [acad1(ordtadn)]COTTDL AC $I=*
  1434. [acad1(ordexo)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1435. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1436. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1437. (princ))(command)(setq m:ds1 (getvar "DIMEXO"))(terpri)+
  1438. (prompt "Choix décalage Ligne d'extension par pointage ou valeur.")(terpri)+
  1439. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1440. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1441. (setvar "DIMEXO" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1442. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1443. [ Texte Cot..]$I=DIMTXT $I=*
  1444. [acad1(ordtadf)]COTTDL IN $I=*
  1445. [acad1(ordtvp)]^P(command "COTTDL" "IN")(princ);+
  1446. (defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1447. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1448. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1449. (princ))(command)(setq m:ds1 (getvar "DIMTVP"))(terpri)+
  1450. (prompt "Choix de la position verticale du texte par pointage ou valeur.")(terpri)+
  1451. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1452. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1453. (setvar "DIMTVP" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1454. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1455. [ Précédent..]$I= $I=*
  1456. [ Blocs Cot....]$I=DIMBLK $I=*
  1457. [ Cot Générales.]$I=DIMGLO $I=*
  1458. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1459. (menucmd "I=*")) (command))(princ) ^P
  1460.  
  1461.  
  1462. **dimdia
  1463. [Changer Vars Cotat Diamètres]
  1464. [acad1(diaa)]COTDLR AC $I=*
  1465. [ Blocs Cot....]$I=DIMBLK $I=*
  1466. [ Cot Générales.]$I=DIMGLO $I=*
  1467. [acad1(diab)]COTDLR IN COTCHLR IN $I=*
  1468. [acad1(diacen)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1469. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1470. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1471. (princ))(command)(setq m:ds1 (getvar "DIMCEN"))(terpri)+
  1472. (prompt "Choix taille marque centrale par pointage ou valeur.")(terpri)+
  1473. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1474. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1475. (setvar "DIMCEN" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1476. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1477. [ Précédent..]$I= $I=*
  1478. [acad1(diac)]COTDLR IN COTCHLR AC $I=*
  1479. [ Texte Cot..]$I=DIMTXT $I=*
  1480. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1481. (menucmd "I=*")) (command))(princ) ^P
  1482.  
  1483. **dimrad
  1484. [Changer Vars Cotat des Rayons]
  1485. [acad1(radf1)]COTDLR AC $I=*
  1486. [ Blocs Cot....]$I=DIMBLK $I=*
  1487. [ Cot Générales.]$I=DIMGLO $I=*
  1488. [acad1(radf2)]COTDLR IN COTCHLR IN $I=*
  1489. [acad1(radcen)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1490. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1491. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1492. (princ))(command)(setq m:ds1 (getvar "DIMCEN"))(terpri)+
  1493. (prompt "Choix taille marque centrale par pointage ou valeur.")(terpri)+
  1494. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1495. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1496. (setvar "DIMCEN" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1497. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1498. [ Précédent..]$I= $I=*
  1499. [acad1(radf3)]COTDLR IN COTCHLR AC $I=*
  1500. [ Texte Cot..]$I=DIMTXT $I=*
  1501. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1502. (menucmd "I=*")) (command))(princ) ^P
  1503.  
  1504. **dimglo
  1505. [Changer Vars Cotat Générales]
  1506. [acad1(gloason)]COTASO AC $I=*
  1507. [acad1(gloclrd)]COTCLC \$I=*
  1508. [acad1(glornd)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1509. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1510. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1511. (princ))(command)(setq m:ds1 (getvar "DIMRND"))(terpri)+
  1512. (prompt "Choix valeur de l'arrondi par pointage ou valeur.")(terpri)+
  1513. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1514. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1515. (setvar "DIMRND" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1516. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1517. [ Texte Cot..]$I=DIMTXT $I=*
  1518. [acad1(gloasof)]COTASO IN $I=*
  1519. [acad1(gloclre)]COTCLE \$I=*
  1520. [acad1(gloscale)]COTECH \$I=*
  1521. [ Dim Blocks...]$I=DIMBLK $I=*
  1522. [acad1(gloshon)]COTDYN AC $I=*
  1523. [acad1(gloclrt)]COTCT \$I=*
  1524. [acad1(glolfac)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1525. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1526. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1527. (princ))(command)(setq m:ds1 (getvar "DIMLFAC"))(terpri)+
  1528. (prompt "Choix facteur d'échelle global par pointage ou valeur.")(terpri)+
  1529. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1530. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1531. (setvar "DIMLFAC" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1532. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1533. [ Précédent..]$I= $I=*
  1534. [acad1(gloshof)]COTDYN IN $I=*
  1535. [ Style Cot...]$I=DIMSTY $I=*
  1536. [ Etat]ETAT $I=*
  1537. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1538. (menucmd "I=*")) (command))(princ) ^P
  1539.  
  1540. **dimblk
  1541. [Changer les Blocs de Cotation]
  1542. [acad1(blkuah)]COTPFS IN COTDMA 0 COTBLOC . $I=*
  1543. [acad1(blkusb)]COTPFS AC COTBLOC1 \COTBLOC2 \$I=*
  1544. [ Previous...]$I= $I=*
  1545. [acad1(blkutm)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1546. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1547. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1548. (princ))(command)(setq m:ds1 (getvar "DIMTSZ"))(terpri)+
  1549. (prompt "Choix taille des marques par pointage ou valeur.")(terpri)+
  1550. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1551. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1552. (setvar "DIMTSZ" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1553. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1554. [acad1(blkus1)]COTPFS AC COTDMA 0 COTBLOC1 \$I=*
  1555. [ Texte Cot..]$I=DIMTXT $I=*
  1556. [acad1(blkudt)]COTPFS IN COTDMA 0 COTBLOC dot $I=*
  1557. [acad1(blkus2)]COTPFS AC COTDMA 0 COTBLOC2 \$I=*
  1558. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1559. (menucmd "I=*")) (command))(princ) ^P
  1560.  
  1561. **dimtxt
  1562. [Changer Textes de Cotation -1-]
  1563. [acad1(txttadn)]COTTDL AC $I=*
  1564. [acad1(txttohn)]COTTEH AC $I=*
  1565. [acad1(txttoln)]COTTOL AC $I=TOLN $I=*
  1566. [ Précédent..]$I= $I=*
  1567. [acad1(txttadf)]COTTDL IN $I=*
  1568. [acad1(txttohf)]COTTEH IN $I=*
  1569. [acad1(txttolf)]COTTOL IN $I=*
  1570. [ Cot Générales.]$I=DIMGLO $I=*
  1571. [acad1(txttihn)]COTTIH AC $I=*
  1572. [acad1(txttofln)]COTCHLR AC $I=*
  1573. [acad1(txtlimn)]COTLIM AC $I=TOLN $I=*
  1574. [ Suivant]$I=dimtxt2 $I=*
  1575. [acad1(txttihf)]COTTIH IN $I=*
  1576. [acad1(txttoflf)]COTCHLR IN $I=*
  1577. [acad1(txtlimf)]COTLIM IN $I=*
  1578. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1579. (menucmd "I=*")) (command))(princ) ^P
  1580.  
  1581. **dimtxt2
  1582. [Changer Textes de Cotation -2-]
  1583. [acad1(txtaltn)]COTALT AC $I=ALTN $I=*
  1584. [acad1(txtsoxdn)]COTSCHR AC $I=*
  1585. [acad1(txtgap)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1586. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1587. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1588. (princ))(command)(setq m:ds1 (getvar "DIMGAP"))(terpri)+
  1589. (prompt "Choix distance autour du Texte par pointage ou valeur.")(terpri)+
  1590. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1591. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1592. (setvar "DIMGAP" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1593. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1594. [ Premier....]$I= $I= $I=*
  1595. [acad1(txtaltf)]COTALT IN $I=*
  1596. [acad1(txtsoxdf)]COTSCHR IN $I=*
  1597. [acad1(txtgapd)]COTESP 0.09 $I=*
  1598. [ Cot Générales.]$I=DIMGLO $I=*
  1599. [acad1(txttixn)]COTDLR IN $I=*
  1600. [acad1(txtpostn)]COTAPOST \$I=*
  1601. [acad1(txtzin)]$I=TXTZIN $I=*
  1602. [ Précédent..]$I= $I=*
  1603. [acad1(txttixf)]COTDLR AC $I=*
  1604. [acad1(txtpostf)]COTAPOST . $I=*
  1605. [acad1(txtzind)]COTZP 0 $I=*
  1606. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1607. (menucmd "I=*")) (command))(princ) ^P
  1608.  
  1609. **toln
  1610. [Changer Tolérances de Cotation]$I= $I=*
  1611. [acad1(txttp)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1612. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1613. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1614. (princ))(command)(setq m:ds1 (getvar "DIMTP"))(terpri)+
  1615. (prompt "Choix tolérance positive par pointage ou valeur.")(terpri)+
  1616. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1617. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1618. (setvar "DIMTP" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1619. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1620. [acad1(txttm)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1621. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1622. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1623. (princ))(command)(setq m:ds1 (getvar "DIMTM"))(terpri)+
  1624. (prompt "Choix tolérance négative par pointage ou valeur.")(terpri)+
  1625. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1626. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1627. (setvar "DIMTM" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1628. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1629. [acad1(txttfac)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1630. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1631. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1632. (princ))(command)(setq m:ds1 (getvar "DIMTFAC"))(terpri)+
  1633. (prompt "Choix du facteur d'échelle hauteur texte par pointage ou valeur.")(terpri)+
  1634. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1635. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1636. (setvar "DIMTFAC" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1637. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1638. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1639. (menucmd "I=*")) (command))(princ) ^P
  1640.  
  1641. **altn
  1642. [Changer Vars Cotat Alternantes]$I= $I=*
  1643. [acad1(txtaltff)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1644. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1645. m:err)(command "COT")(setvar "CMDECHO" m:ce)(princ "Cot: ")(menucmd "I=*");+
  1646. (princ))(command)(setq m:ds1 (getvar "DIMALTF"))(terpri)+
  1647. (prompt "Choix facteur multiplicateur par pointage ou valeur.")(terpri)+
  1648. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Valeur actuelle: <"(rtos m:ds1);+
  1649. "> Nouvelle valeur: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1650. (setvar "DIMALTF" m:ds2)(command "COT")(setvar "CMDECHO" m:ce)(terpri)+
  1651. (princ "Cot: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1652. [acad1(txtapost)]COTAPOST \$I= $I=*
  1653. [acad1(txtaltd)]COTALTd \$I= $I=*
  1654. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1655. (menucmd "I=*")) (command))(princ) ^P
  1656.  
  1657. **txtzin
  1658. [Changer le Mode Architecture]
  1659. [acad1(txtzin0)]COTZP 0 $I= $I=*
  1660. [acad1(txtzin3)]COTZP 3 $I= $I=*
  1661. [acad1(txtzin12)]^P(if (= (boole 1 4 (getvar "dimzin")) 0)+
  1662. (setvar "dimzin" (+ (getvar "dimzin") 4))) +
  1663. (if (= (boole 1 8 (getvar "dimzin")) 0)+
  1664. (setvar "dimzin" (+ (getvar "dimzin") 8)))(princ) ^P$I= $I=*
  1665. [acad1(txtzin1)]COTZP 1 $I= $I=*
  1666. [acad1(txtzin4)]^P(if (= (boole 1 4 (getvar "dimzin")) 0)+
  1667. (setvar "dimzin" (+ (getvar "dimzin") 4)))(princ) ^P$I= $I=*
  1668. [ Précédent..]$I= $I=*
  1669. [acad1(txtzin2)]COTZP 2 $I= $I=*
  1670. [acad1(txtzin8)]^P(if (= (boole 1 8 (getvar "dimzin")) 0)+
  1671. (setvar "dimzin" (+ (getvar "dimzin") 8)))(princ) ^P$I= $I=*
  1672. [ Sortir]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1673. (menucmd "I=*")) (command))(princ) ^P
  1674.  
  1675. **dimsty
  1676. [Options Style Cotation]
  1677. [acad1(styresp)]RESTAURE;;\^P(setq m:dsty (getvar "DIMSTYLE"))(princ)^P $I=*
  1678. [acad1(styvarp)]VARIABLES;;\$I=*
  1679. [acad1(stysav)]SAUVER
  1680. [acad1(styresn)]RESTAURE;\^P(setq m:dsty (getvar "DIMSTYLE"))(princ)^P $I=*
  1681. [acad1(styvarn)]VARIABLES ? * \\$I=*
  1682. [ Précédent..]$I= $I=*
  1683. [acad1(stylst)]SAUVER ? * ^P(setq m:dsty (getvar "DIMSTYLE"))(command "")+
  1684. (princ "** Appuyez sur RETURN pour continuer **")(princ) \^P $I= $I=*
  1685. [acad1(styovr)]REECRIRE
  1686. [ Sortir]
  1687.  
  1688. **dimsty2
  1689. [Sauver modifications avant de Sortir?]$I= $I=*
  1690. [acad1(stynew)]SAUVER ^P
  1691. [ Cotstyl....]^P$I=DIMSTY $I=*
  1692. [acad1(styupd)]^C^C(if(= m:dsty "*UNNAMED")(progn (command "COT")+
  1693. (prompt (strcat (chr 13)(chr 10) "Ne peut pas mettre à jour Style Cotation *UNNAMED (NON NOMME)."+
  1694. (chr 13)(chr 10) "Choisissez une autre option."))(terpri)(menucmd "I=*");+
  1695. (princ))(progn (command "COT" "SAUVER" m:dsty "O")(princ))) ^P
  1696. [acad1(styno)]
  1697.  
  1698. **asrm
  1699. [Choix Commandes AutoShade]
  1700. [ashade(icamera)]^C^C^p$S=X $s=ashc CAMERA ^p
  1701. [ashade(ilightp)]^C^C^p$S=X $s=ashlrm LUMIERE \P ^p
  1702. [ashade(ilightd)]^C^C^p$S=X $s=ashlrm LUMIERE \D ^p
  1703. [ashade(ilights)]^C^C^p$S=X $s=ashlrm LUMIERE \S ^p
  1704. [ashade(ivcamera)]^C^C^p$S=X $s=ashc VCAMERA ^p
  1705. [ashade(ivlightp)]^C^C^p$S=X $s=ashlrm VLUMIER \P ^p
  1706. [ashade(ivlightd)]^C^C^p$S=X $s=ashlrm VLUMIER \D ^p
  1707. [ashade(ivlights)]^C^C^p$S=X $s=ashlrm VLUMIER \S ^p
  1708. [ashade(icamview)]^C^C^p$S=X $s=ash VUECAM ^p
  1709. [ashade(ifinish)]^C^C^p$S=X $s=ash ASPECT ^p
  1710. [ashade(iscene)]^C^C^p$S=X $s=ash SCENE ^p
  1711. [ashade(ifilmrol)]^C^C^p$S=X $s=ash PELLICUL ^p
  1712. [ DEFAUTS]^C^C^p$S=X $s=defaults DEFAUTS ^p
  1713. [ RMSCAN]^C^C^p$S=X $s=ash RMSCAN ^p$i=*
  1714. [ Exit]^C^C
  1715.  
  1716. **as
  1717. [Choix Commandes AutoShade]
  1718. [ashade(icamera)]^C^C^p$S=X $s=ashc CAMERA ^p
  1719. [ashade(ilightp)]^C^C^p$S=X $s=ashl LUMIERE \P ^p
  1720. [ashade(ilightd)]^C^C^p$S=X $s=ashl LUMIERE \D ^p
  1721. [ashade(blank)]$i=*
  1722. [ashade(ivcamera)]^C^C^p$S=X $s=ashc VCAMERA ^p
  1723. [ashade(ivlightp)]^C^C^p$S=X $s=ashl VLUMIER \P ^p
  1724. [ashade(ivlightd)]^C^C^p$S=X $s=ashl VLUMIER \D ^p
  1725. [ashade(blank)]$i=*
  1726. [ashade(icamview)]^C^C^p$S=X $s=ash VUECAM ^p
  1727. [ashade(ifinish)]^C^C^p$S=X $s=ash ASPECT ^p
  1728. [ashade(iscene)]^C^C^p$S=X $s=ash SCENE ^p
  1729. [ashade(ifilmrol)]^C^C^p$S=X $s=ash PELLICUL ^p
  1730. [ DEFAUTS]^C^C^p$S=X $s=defaults DEFAUTS ^p
  1731. [ RMSCAN]^C^C^p$S=X $s=ash RMSCAN ^p$i=*
  1732. [ Sortir]^C^C
  1733.  
  1734. **as11
  1735. [Choix Commandes AutoShade]
  1736. [ashade(icamera)]^C^C^p$S=X $S=ASH11C CAMERA ^p
  1737. [ashade(icamview)]^C^C^p$S=X $S=ASH11 VUECAM ^p
  1738. [ashade(ilightp)]^C^C^p$S=X $S=ASH11L LUMIERE \P ^p
  1739. [ashade(ilightd)]^C^C^p$S=X $S=ASH11L LUMIERE \D ^p
  1740. [ashade(iscene)]^C^C^p$S=X $S=ASH11A SCENE ^p
  1741. [ashade(ifilmrol)]^C^C^p$S=X $S=ASH11A PELLICUL ^p
  1742. [ Sortir]^c^c
  1743.  
  1744. **rm
  1745. [Choix Commandes RenderMan]
  1746. [ashade(irmsetup)]^C^C^p$S=X $s=RMSETUP RMSETUP ^p
  1747. [ashade(irmprop)]^C^C^p$S=X $s=RMPROP RMPROP ^p
  1748. [ashade(irmattac)]^C^C^p$S=X $s=RMATTACH RMATTACH ^p
  1749. [ashade(irmedit)]^C^C^p$S=X $s=RMEDIT RMEDIT ^p
  1750. [ashade(irmcopy)]^C^C^p$S=X $s=RMCOPY RMCOPY ^p
  1751. [ashade(irmlist)]^C^C^p$S=X $s=RMLIST RMLIST ^p
  1752. [ DEFAUTS]^C^C^p$S=X $s=DEFAULTS DEFAUTS ^p
  1753. [ RMSCAN]^C^C^p$S=X $s=rman RMSCAN ^p$i=*
  1754. [ Sortir]^C^C
  1755.  
  1756.  
  1757. ***SCREEN
  1758. **S
  1759. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=pop8
  1760. [* * * *]$S=OSNAPB
  1761. [DESSIN]$S=X $S=DR
  1762. [EDITION]$S=X $S=ED
  1763. [ECRAN]$S=X $S=DS
  1764. [FMULTIPLE]$S=X $S=MV
  1765. [MODES ]$S=X $S=SET
  1766. [SCU   ]$S=X $S=UCS1 ^C^CSCU
  1767.  
  1768. [COTATION  ]$S=X $S=DIM ^C^CCOT
  1769. [BLOCS]$S=X $S=BL
  1770. [RENSEIGN]$S=X $S=INQ
  1771. [PLAN      ]$S=X $S=LAYER ^C^CPLAN
  1772.  
  1773. [SURFACES]$S=X $S=3D
  1774. [SOLIDES]^C^C^P(progn(setq m:err *error*)(princ))+
  1775. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  1776. (if (null c:solbox)(progn (menucmd "S=X")(menucmd "S=SOLLOAD"))+
  1777. (progn (menucmd "S=X")(menucmd "S=SOLIDS")))(princ);^P
  1778.  
  1779. [TRACEUR   ]$S=X $S=PLOT
  1780.  
  1781. [UTILIT]$S=X $S=UT
  1782. [ASHADE]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  1783. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  1784. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)  "S=ASH")+
  1785. ((= G:SVER 11)"S=ASH11")(T"S=")))(setq m:shmn nil)(princ))(princ))(cond(G:SVER;+
  1786. (setq *error* m:err m:err nil)(m:shmn))(T (vmon)(cond((findfile"ashade.lsp")+
  1787. (load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn)(progn(terpri);+
  1788. (prompt "Le fichier '") (princ (findfile "ashade.lsp"))+
  1789. (prompt "' est incompatible avec AutoCAD v11.");+
  1790. (setq m:shmn nil C:CAMERA nil C:LUMIERE nil C:VUECAM nil C:SCENE nil)(princ))))+
  1791. (T(terpri)(prompt"Le fichier 'Ashade.lsp' n'est pas dans le répertoire courant.");+
  1792. (terpri)(prompt"Voyez votre manuel d'installation AutoShade.")+
  1793. (setq *error* m:err m:err nil m:shmn nil)(princ))))) ^P
  1794. [RMAN]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  1795. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  1796. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  1797. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  1798. (prompt"Le fichier 'Rman.lsp' n'est pas dans le répertoire courant.")+
  1799. (terpri)(prompt"Voyez votre manuel d'installation AutoShade v2.0.");+
  1800. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  1801. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  1802. [BONUS]$S=X $S=SAMP1
  1803. [SAUVGRDE]^C^CSAUVEGRD
  1804.  
  1805.  
  1806. **HEADER
  1807. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT
  1808. [* * * *]$S=OSNAPB
  1809. **HEADER0
  1810. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT
  1811. [* * * *]$S=OSNAPB
  1812. **HEADER1
  1813. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1814. [1 * * *]$S=OSNAPB
  1815. **HEADER2
  1816. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1817. [* 2 * *]$S=OSNAPB
  1818. **HEADER3
  1819. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1820. [1 2 * *]$S=OSNAPB
  1821. **HEADER4
  1822. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1823. [* * 3 *]$S=OSNAPB
  1824. **HEADER5
  1825. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1826. [1 * 3 *]$S=OSNAPB
  1827. **HEADER6
  1828. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1829. [* 2 3 *]$S=OSNAPB
  1830. **HEADER7
  1831. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1832. [1 2 3 *]$S=OSNAPB
  1833. **HEADER8
  1834. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1835. [* * * 4]$S=OSNAPB
  1836. **HEADER9
  1837. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1838. [1 * * 4]$S=OSNAPB
  1839. **HEADER10
  1840. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1841. [* 2 * 4]$S=OSNAPB
  1842. **HEADER11
  1843. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1844. [1 2 * 4]$S=OSNAPB
  1845. **HEADER12
  1846. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1847. [* * 3 4]$S=OSNAPB
  1848. **HEADER13
  1849. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1850. [1 * 3 4]$S=OSNAPB
  1851. **HEADER14
  1852. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1853. [* 2 3 4]$S=OSNAPB
  1854. **HEADER15
  1855. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  1856. [1 2 3 4]$S=OSNAPB
  1857. **X 3
  1858.  
  1859.  
  1860.  
  1861.  
  1862.  
  1863.  
  1864.  
  1865.  
  1866.  
  1867.  
  1868.  
  1869.  
  1870.  
  1871.  
  1872.  
  1873. [--PREC--]$S= $S=
  1874. [DESSIN  ]^C^C$S=X $S=DR
  1875. [EDITION ]^C^C$S=X $S=ED
  1876.  
  1877. **calc1 3
  1878. [  calc  ]^C^C$S=X calc \$S=calc1
  1879.  
  1880. [   +    ]+;
  1881. [   -    ]-;
  1882. [   *    ]*;
  1883. [   /    ]/;
  1884.  
  1885. [PURGER  ]PURGER;
  1886.  
  1887. [Mèmoire ]$S=X m $S=calc2
  1888.  
  1889. [Sq root ]s;
  1890.  
  1891. [Ypuis-x ]y;
  1892.  
  1893. [Trig    ]$S=X Trig $S=calc3
  1894.  
  1895.  
  1896. [Sortir  ]$S=X Exit $S=s
  1897. **calc2 3
  1898. [calc-Mèm]
  1899.  
  1900. [   +    ]$S=X + $S=calc1
  1901. [   -    ]$S=X - $S=calc1
  1902. [   *    ]$S=X * $S=calc1
  1903. [   /    ]$S=X / $S=calc1
  1904.  
  1905. [Effacer ]$S=X d $S=calc1
  1906.  
  1907. [Liste   ]$S=X l $S=calc1
  1908.  
  1909. [Rapeller]$S=X r $S=calc1
  1910.  
  1911. [Choix   ]$S=X s $S=calc1
  1912.  
  1913.  
  1914.  
  1915. [Sortir  ]$S=X exit $S=calc1
  1916. **calc3 3
  1917.  
  1918. [Sinus   ]$S=X sin $S=calc1
  1919.  
  1920. [Cosinus ]$S=X cos $S=calc1
  1921.  
  1922. [Tangente]$S=X tan $S=calc1
  1923.  
  1924. [Arctang ]$S=X Atan $S=calc1
  1925.  
  1926.  
  1927.  
  1928. [Exit    ]$S=X exit $S=calc1
  1929.  
  1930. **SAMP1 3
  1931. [ALIAS]^C^C^P(if (not c:alias) (if (not (or (setq al +
  1932. (findfile "sample/alias.lsp")) (setq al (findfile "alias.lsp")))) +
  1933. (defun C:alias () (princ "Ne trouve pas le fichier alias.lsp ")(terpri);+
  1934. (princ "il est sur la disquette SAMPLE. ")(setq C:alias nil)(princ));+
  1935. (progn(terpri)(princ (strcat "Chargement de " al " -- Patientez. "))+
  1936. (load al))));(princ) ALIAS ^P
  1937. [ASCTEXT]^C^C^P(if (not c:asctext) (if (not (or (setq as +
  1938. (findfile "sample/asctext.lsp")) (setq as (findfile "asctext.lsp")))) +
  1939. (defun C:asctext () (princ "Ne trouve pas le fichier asctext.lsp ")(terpri);+
  1940. (princ "Il est sur la disquette SAMPLE. ")(setq C:asctext nil)(princ)) +
  1941. (progn(terpri)(princ (strcat "Chargement de " as " -- Patientez. ")) +
  1942. (load as))))(princ) ASCTEXT ^P
  1943. [ATTREDEF]^C^C^P(if (not c:attredef) (if (not (or (setq att +
  1944. (findfile "sample/attredef.lsp")) (setq att (findfile "attredef.lsp")))) +
  1945. (defun C:attredef () (princ "Ne trouve pas le fichier attredef.lsp ")(terpri);+
  1946. (princ "Il est sur la disquette SAMPLE. ")(setq C:attredef nil)(princ));+
  1947. (progn(terpri)(princ (strcat "Chargement de " att " -- Patientez. "))+
  1948. (load att))))(princ) ATTREDEF ^P
  1949. [AXROT]^C^C^P(if (not c:axrot) (if (not (or (setq ax +
  1950. (findfile "sample/axrot.lsp")) (setq ax (findfile "axrot.lsp")))) +
  1951. (defun C:axrot () (princ "Ne trouve pas le fichier axrot.lsp ")(terpri);+
  1952. (princ "Il est sur la disquette SAMPLE. ")(setq C:axrot nil)(princ));+
  1953. (progn(terpri)(princ (strcat "Chargement de " ax " -- Patientez. "))+
  1954. (load ax))))(princ) AXROT ^P
  1955. [CALC]^C^C^P(if (not c:calc) (if (not (or (setq ca +
  1956. (findfile "sample/calc.lsp")) (setq ca (findfile "calc.lsp")))) +
  1957. (defun C:calc () (princ "Ne trouve pas le fichier calc.lsp ")(terpri);+
  1958. (princ "Il est sur la disquette SAMPLE. ")(setq C:calc nil)(princ));+
  1959. (progn(terpri)(princ (strcat "Chargement de " ca " -- Patientez. "))+
  1960. (load ca))))(princ) CALC ^P\$S=calc1
  1961. [CHBLOCK]^C^C^P(if (not c:chb) (if (not (or (setq ch +
  1962. (findfile "sample/chblock.lsp")) (setq ch (findfile "chblock.lsp")))) +
  1963. (defun C:chb () (princ "Ne trouve pas le fichier chblock.lsp ")(terpri);+
  1964. (princ "Il est sur la disquette SAMPLE. ")(setq C:chb nil)(princ));+
  1965. (progn(terpri)(princ (strcat "Chargement de " ch " -- Patientez. "))+
  1966. (load ch))))(princ) CHB ^P
  1967. [CHFACE]^C^C^P(if (not c:chface) (if(not(or (setq chf +
  1968. (findfile "sample/chface.lsp")) (setq chf (findfile "chface.lsp")))) +
  1969. (defun C:chface () (princ "Ne trouve pas le fichier chface.lsp ")(terpri);+
  1970. (princ "Il est sur la disquette SAMPLE. ")(setq C:chface nil)(princ));+
  1971. (progn(terpri)(princ (strcat "Chargement de " chf " -- Patientez. "))+
  1972. (load chf))))(princ) CHFACE ^P
  1973. [CHTEXT]^C^C^P(if (not c:cht) (if (not (or (setq cht +
  1974. (findfile "sample/chtext.lsp")) (setq cht (findfile "chtext.lsp")))) +
  1975. (defun C:cht () (princ "Ne trouve pas le fichier chtext.lsp ")(terpri);+
  1976. (princ "Il est sur la disquette SAMPLE. ")(setq C:cht nil)(princ));+
  1977. (progn(terpri)(princ (strcat "Chargement de " cht " -- Patientez. "))+
  1978. (load cht))))(princ) CHT ^P
  1979. [CL]^C^C^P(if (not c:cl) (if (not (or (setq cl (findfile "sample/cl.lsp")) +
  1980. (setq cl (findfile "cl.lsp")))) (defun C:cl () (princ "Ne trouve pas le fichier cl.lsp ");+
  1981. (terpri) (princ "Il est sur la disquette SAMPLE. ")(setq C:cl nil)(princ));+
  1982. (progn(terpri)(princ (strcat "Chargement de " cl " -- Patientez. "))+
  1983. (load cl))))(princ) CL ^P
  1984. [EFF.PLAN]^C^C^P(if (not c:dellayer) (if (not (or (setq de +
  1985. (findfile "sample/dellayer.lsp")) (setq de (findfile "dellayer.lsp")))) +
  1986. (defun C:dellayer () (princ "Ne trouve pas le fichier ellayer.lsp ")(terpri);+
  1987. (princ "Il est sur la disquette SAMPLE. ")(setq C:dellayer nil)(princ));+
  1988. (progn(terpri)(princ (strcat "Chargement de " de " -- Patientez. "))+
  1989. (load de))))(princ) DELLAYER ^P
  1990. [DLIGNE]^C^C^P(if (not c:dline) (if (not (or (setq dl +
  1991. (findfile "sample/dline.lsp")) (setq dl (findfile "dline.lsp")))) +
  1992. (defun C:dline () (princ "Ne trouve pas le fichier line.lsp ")(terpri);+
  1993. (princ "Il est sur la disquette SAMPLE. ")(setq C:dline nil)(princ));+
  1994. (progn(terpri)(princ (strcat "Chargement de " dl " -- Patientez. "))+
  1995. (load dl))))(princ) DLINE ^P
  1996. [ARETE]^C^C^P(if (not c:edge)(if (not(or(setq ed (findfile "sample/edge.lsp")) +
  1997. (setq ed (findfile "edge.lsp")))) (defun C:edge () +
  1998. (princ "Ne trouve pas le fichier edge.lsp ")(terpri) (princ "Il est sur la disquette SAMPLE. ");+
  1999. (setq C:edge nil)(princ)) (progn(terpri)(princ (strcat "Chargement de " ed " -- Patientez. "))+
  2000. (load ed))))(princ) EDGE ^P
  2001. [FIN]^C^C^P(if (not c:end) (if (not (or (setq en (findfile "sample/end.lsp")) +
  2002. (setq en (findfile "end.lsp"))))(defun C:end ()(princ "Ne trouve pas le fichier end.lsp ");+
  2003. (terpri)(princ "Il est sur la disquette SAMPLE. ")(setq C:end nil)(princ));+
  2004. (progn (progn(terpri)(princ (strcat "Chargement de " en " -- Patientez. "))+
  2005. (load en))(menucmd "S=X")(menucmd "S=END"))))(princ)(c:end) ^P
  2006. [FACT]^C^C^P(if (not c:fact) (if (not (or (setq fa +
  2007. (findfile "sample/fact.lsp")) (setq fa (findfile "fact.lsp")))) +
  2008. (defun C:fact () (princ "Ne trouve pas le fichier fact.lsp ")(terpri);+
  2009. (princ "Il est sur la disquette SAMPLE. ")(setq C:fact nil)(princ));+
  2010. (progn(terpri)(princ (strcat "Chargement de " fa " -- Patientez. "))(load fa))))+
  2011. (princ) FACT ^P
  2012.  
  2013. [Suivant]$S=X $S=SAMP2
  2014. **SAMP2 3
  2015. [CHARD]^C^C^P(if (not c:ll) (if (not (or (setq lo +
  2016. (findfile "sample/lload.lsp")) (setq lo (findfile "lload.lsp")))) +
  2017. (defun C:ll () (princ "Ne trouve pas le fichier lload.lsp ")(terpri);+
  2018. (princ "Il est sur la disquette SAMPLE. ")(setq C:ll nil)(princ));+
  2019. (progn(terpri)(princ (strcat "Chargement de " lo " -- Patientez. "))+
  2020. (load lo))))(princ) LL ^P
  2021. [POLYF]^C^C^P(if (not c:mface) (if (not (or (setq mf +
  2022. (findfile "sample/mface.lsp")) (setq mf (findfile "mface.lsp")))) +
  2023. (defun C:mface () (princ "Ne trouve pas le fichier mface.lsp ")(terpri);+
  2024. (princ "Il est sur la disquette SAMPLE. ")(setq C:mface nil)(princ));+
  2025. (progn(terpri)(princ (strcat "Chargement de " mf " -- Patientez. "))+
  2026. (load mf))))(princ) MFACE ^P
  2027. [FMSETUP]^C^C^P(if (not c:mvs) (if (not (or (setq mv +
  2028. (findfile "sample/mvsetup.lsp")) (setq mv (findfile "mvsetup.lsp")))) +
  2029. (defun C:mvs () (princ "Ne trouve pas le fichier mvsetup.lsp ")(terpri);+
  2030. (princ "Il est sur la disquette SAMPLE. ")(setq C:mvs nil)(princ));+
  2031. (progn(terpri)(princ (strcat "Chargement de " mv " -- Patientez. "))+
  2032. (load mv))))(princ) MVS ^P
  2033. [PROJECT]^C^C^P(if (not c:project) (if (not (or (setq pr +
  2034. (findfile "sample/project.lsp")) (setq pr (findfile "project.lsp")))) +
  2035. (defun C:project () (princ "Ne trouve pas le fichier project.lsp ")(terpri);+
  2036. (princ "Il est sur la disquette SAMPLE. ")(setq C:project nil)(princ));+
  2037. (progn(terpri)(princ (strcat "Chargement de " pr " -- Patientez. "))+
  2038. (load pr))))(princ) PROJECT1 ^P
  2039. [PTEXT]^C^C^P(if (not c:ptext) (if (not (or (setq pt +
  2040. (findfile "sample/ptext.lsp")) (setq pt (findfile "ptext.lsp")))) +
  2041. (defun C:ptext () (princ "Ne trouve pas le fichier ptext.lsp ")(terpri);+
  2042. (princ "Il est sur la disquette SAMPLE. ")(setq C:ptext nil)(princ));+
  2043. (progn(terpri)(princ (strcat "Chargement de " pt " -- Patientez. "))+
  2044. (load pt))))(princ) PTEXT ^P
  2045. [RECTANG]^C^C^P(if (not c:rectang) (if (not (or (setq re +
  2046. (findfile "sample/rectang.lsp")) (setq re (findfile "rectang.lsp")))) +
  2047. (defun C:rectang () (princ "Ne trouve pas le fichier rectang.lsp ")(terpri);+
  2048. (princ "Il est sur la disquette SAMPLE. ")(setq C:rectang nil)(princ));+
  2049. (progn(terpri)(princ (strcat "Chargement de " re " -- Patientez. "))+
  2050. (load re))))(princ) RECTANG ^P
  2051. [RPOLY]^C^C^P(if (not c:rpoly) (if (not (or (setq rp +
  2052. (findfile "sample/rpoly.lsp")) (setq rp (findfile "rpoly.lsp")))) +
  2053. (defun C:rpoly () (princ "Ne trouve pas le fichier rpoly.lsp ")(terpri);+
  2054. (princ "Il est sur la disquette SAMPLE. ")(setq C:rpoly nil)(princ));+
  2055. (progn(terpri)(princ (strcat "Chargement de " rp " -- Patientez. "))+
  2056. (load rp))))(princ) RPOLY ^P
  2057. [SPIRAL]^C^C^P(if (not c:spiral) (if (not (or (setq sp +
  2058. (findfile "sample/spiral.lsp")) (setq sp (findfile "spiral.lsp")))) +
  2059. (defun C:spiral () (princ "Ne trouve pas le fichier spiral.lsp ")(terpri);+
  2060. (princ "Il est sur la disquette SAMPLE. ")(setq C:spiral nil)(princ));+
  2061. (progn(terpri)(princ (strcat "Chargement de " sp " -- Patientez. "))+
  2062. (load sp))))(princ) SPIRAL ^P
  2063. [SSX]^C^C^P(if (not c:ssx) (if (not (or (setq ss +
  2064. (findfile "sample/ssx.lsp")) (setq ss (findfile "ssx.lsp")))) +
  2065. (defun C:ssx () (princ "Ne trouve pas le fichier ssx.lsp ")(terpri);+
  2066. (princ "Il est sur la disquette SAMPLE. ")(setq C:ssx nil)(princ));+
  2067. (progn(terpri)(princ (strcat "Chargement de " ss " -- Patientez. "))+
  2068. (load ss))))(princ) SSX ^P
  2069. [TABLES]^C^C^P(if (not c:tables) (if (not (or (setq ta +
  2070. (findfile "sample/tables.lsp")) (setq ta (findfile "tables.lsp")))) +
  2071. (defun C:tables () (princ "Ne trouve pas le fichier tables.lsp ")(terpri);+
  2072. (princ "Il est sur la disquette SAMPLE. ")(setq C:tables nil)(princ));+
  2073. (progn(terpri)(princ (strcat "Chargement de " ta " -- Patientez. "))+
  2074. (load ta))))(princ) TABLES ^P
  2075. [XDATA]^C^C^P(if (not c:xdata) (if (not (or (setq xd +
  2076. (findfile "sample/xdata.lsp")) (setq xd (findfile "xdata.lsp")))) +
  2077. (defun C:xdata () (princ "Ne trouve pas le fichier xdata.lsp ")(terpri);+
  2078. (princ "Il est sur la disquette SAMPLE. ")(setq C:xdata nil)(princ));+
  2079. (progn(terpri)(princ (strcat "Chargement de " xd " -- Patientez. "))+
  2080. (load xd))))(princ) XDATA ^P
  2081. [XPLOSE]^C^C^P(if (not c:xplode) (if (not (or (setq xp +
  2082. (findfile "sample/xplode.lsp")) (setq xp (findfile "xplode.lsp")))) +
  2083. (defun C:xplode () (princ "Ne trouve pas le fichier xplode.lsp ")(terpri);+
  2084. (princ "Il est sur la disquette SAMPLE. ")(setq C:xplode nil)(princ));+
  2085. (progn(terpri)(princ (strcat "Chargement de " xp " -- Patientez. "))+
  2086. (load xp))))(princ) XPLODE ^P
  2087. [XREFCLIP]^C^C^P(if (not C:xrefclip) (if (not (or (setq xc +
  2088. (findfile "sample/xrefclip.lsp")) (setq xc (findfile "xrefclip.lsp")))) +
  2089. (defun C:xrefclip () (princ "Ne trouve pas le fichier xrefclip.lsp ")(terpri);+
  2090. (princ "Il est sur la disquette SAMPLE. ")(setq C:xrefclip nil)(princ));+
  2091. (progn(terpri)(princ (strcat "Chargement de " xc " -- Patientez. "))+
  2092. (load xc))))(princ) XREFCLIP ^P
  2093.  
  2094. [Précéd.]$S=X $S=SAMP1
  2095. **BL 3
  2096. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  2097. [BASE:]^C^CBASE
  2098. [BLOC:]$S=X $S=BLOCK ^C^CBLOC
  2099. [INSERER:]$S=X $S=INSERT ^C^CINSERER
  2100. [INSERM:]$S=X $S=MINSERT ^C^CINSERM
  2101. [WBLOC:]$S=X $S=WBLOCK ^C^CWBLOC
  2102.  
  2103. [XATTACH:]$S=X $S=XBIND ^C^CXATTACH
  2104. [XREF:]$S=X $S=XREF ^C^CXREF
  2105.  
  2106. **DS 3
  2107. [ZOOM]$S=X $S=ZOOM 'ZOOM
  2108. [PAN]'PAN
  2109. [POINTVUE]$S=X $S=VPOINT ^C^CPOINTVUE
  2110.  
  2111. [REGEN] ^c^cregen
  2112. [REDESS]'REDESS
  2113.  
  2114. [VUEDYN]$S=X $S=DVIEW ^C^CVUEDYN
  2115. [FMULT:]$S=X $S=MV ^C^CFMULT
  2116.  
  2117. [REPERE:]$S=X $S=PLAN ^C^CREPERE
  2118. [REDESTOU]'REDESTOUT
  2119. [REGNTOUT]^C^CREGNTOUT
  2120. [REGNAUTO]$S=X $S=RGNAUTO ^C^CREGNAUTO
  2121. [SHADE]$S=X $S=SHADE
  2122. [VUES]$S=X $S=VIEW 'VUES
  2123. [RESVUE]$S=X $S=VIEWRES ^C^CRESVUE
  2124. [ATECRAN:]$S=X $S=ATTDISP ^C^CATTECRAN
  2125.  
  2126.  
  2127. **DR 3
  2128. [LIGNE:]$S=X $S=LINE ^C^CLIGNE
  2129. [POLYLIG:]$S=X $S=PLINE ^C^CPOLYLIGN
  2130. [CERCLE]$S=X $S=CIRCLE
  2131. [ARC]$S=X $S=ARC
  2132. [POINT]$S=X $S=POINT ^C^CPOINT
  2133. [TEXTE:]$S=X $S=TEXT ^C^CTEXTE
  2134. [ELLIPSE]$S=X $S=ELLIPSE ^C^CELLIPSE
  2135.  
  2136. [HACHURE:]$S=X $S=HATCH ^C^CHACHURES
  2137.  
  2138. [Surf 3D]$S=X $S=3D
  2139. [SOLIDES]^C^C^P(progn(setq m:err *error*)(princ))+
  2140. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  2141. (if (null c:solbox)(progn (menucmd "S=X")(menucmd "S=SOLLOAD"))+
  2142. (progn (menucmd "S=X")(menucmd "S=SOLIDS")))(princ);^P
  2143.  
  2144. [ANNEAU:]^C^CANNEAU
  2145. [TEXTDYN:]$S=X $S=DTEXT ^C^CTXTDYN
  2146.  
  2147. [INSERER:]$S=X $S=INSERT ^C^CINSERER
  2148.  
  2149. [INSERM:]$S=X $S=MINSERT ^C^CINSERM
  2150.  
  2151.  
  2152.  
  2153. [>>>>>>>>]$S=X $S=DR2
  2154.  
  2155.  
  2156.  
  2157. **DR2 3
  2158.  
  2159. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGONE
  2160. [FORMES:]$S=X $S=SHAPE ^C^CFORMES
  2161. [MAINLEV:]$S=X $S=SKETCH ^C^CMAINLEV
  2162. [SOLIDE:]$S=X $S=SOLID ^C^CSOLIDE
  2163. [DECALER:]$S=X $S=OFFSET ^C^CDECALER
  2164. [TRACE:]$S=X $S=TRACE ^C^CTRACE
  2165. [Face 3D:]$S=X $S=3DFACE ^C^C3DFACE
  2166. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  2167.  
  2168.  
  2169.  
  2170.  
  2171. [<<<<<<<<<]$S=X $S=DR
  2172.  
  2173.  
  2174.  
  2175.  
  2176.  
  2177.  
  2178.  
  2179.  
  2180. **ED 3
  2181. [PROLONG ]$S=X $S=EXTEND ^C^CPROLONGE
  2182. [COUPURE ]$S=X $S=BREAK ^C^CCOUPURE
  2183. [ROTATION]$S=X $S=ROTATE ^C^CROTATION
  2184. [AJUSTER:]$S=X $S=TRIM ^C^CAJUSTER
  2185.  
  2186. [CHANGER ]$S=X $S=CHANGE ^C^CCHANGER
  2187. [PROPRIET]$S=X $S=CHPROP ^C^CCHPROP
  2188. [COPIER  ]$S=X $S=COPY ^C^CCOPIER
  2189. [ETIRER  ]$S=X $S=STRETCH ^C^CETIRER c
  2190. [MIROIR  ]$S=X $S=MIRROR ^C^CMIROIR
  2191. [DEPLACE ]$S=X $S=MOVE ^C^CDEPLACER
  2192. [DECALE  ]$S=X $S=OFFSET ^C^CDECALER
  2193. [EFFACER ]$S=X $S=ERASE ^C^CEFFACER
  2194. [DECOMPO ]^C^CDECOMPOS
  2195.  
  2196. [RESEAU  ]$S=X $S=ARRAY ^C^CRESEAU
  2197.  
  2198. [CHANFRN ]$S=X $S=CHAMFER ^C^CCHNFREIN
  2199. [RACCORD ]$S=X $S=FILLET ^C^CRACCORD
  2200.  
  2201. [>>>>>>>>>>>]$S=X $S=ED2
  2202.  
  2203.  
  2204.  
  2205.  
  2206.  
  2207. **ED2 3
  2208. [DIVISER:]$S=X $S=DIVIDE ^C^CDIVISER
  2209. [MESURER:]$S=X $S=MEASURE ^C^CMESURER
  2210. [ECHELLE:]$S=X $S=SCALE ^C^CECHELLE
  2211.  
  2212. [SELECT:]$S=X $S=SELECT ^C^CSELECT
  2213.  
  2214. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  2215. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  2216. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  2217. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  2218. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  2219. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  2220. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  2221. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  2222. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  2223. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  2224. (princ));PEDITM;^P
  2225. [DDATTE:]^C^CDDATTE
  2226. [DDEDIT:]$S=X $S=DDEDIT ^C^CDDEDIT
  2227. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT
  2228.  
  2229. [ANNULER]$S=X $S=UNDO ^C^CANNULER
  2230.  
  2231. [<<<<<<<<<<]$S=X $S=ED
  2232.  
  2233.  
  2234.  
  2235.  
  2236.  
  2237.  
  2238.  
  2239.  
  2240.  
  2241.  
  2242.  
  2243.  
  2244.  
  2245. **INQ 5
  2246. [AIRE    ]$S=X $S=AREA ^C^CAIRE
  2247. [DISTANCE]^C^CDISTANCE
  2248. [ETAT    ]^C^CETAT
  2249. [TEMPS   ]^C^CTEMPS
  2250. [DBLISTE ]^CDBLISTE
  2251. [ID      ]$S=X $S=ID ^C^CID
  2252. [LISTE   ]$S=X $S=LIST ^C^CLISTE
  2253.  
  2254. [AIDE    ]'AIDE
  2255.  
  2256. **SET 3
  2257. [ACCROBJ:]$S=X $S=OSNAPC ^C^CACCROBJ
  2258. [MARQUES ]$S=X $S=BLIPMODE ^C^CMARQUES
  2259.  
  2260. [ELEVTION]^C^CELEV
  2261.  
  2262. [SCU:]$S=X $S=UCS1 ^C^CSCU
  2263. [ICONSCU:]$S=X $S=UCSICON ^C^CICONESCU
  2264.  
  2265. [TYPLIGNE]$S=X $S=LINETYPE ^C^CTYPELIGN
  2266. [COULEUR ]$S=X $S=COLOR ^C^CCOULEUR
  2267.  
  2268. [GRILLE  ]$S=X $S=GRID ^C^CGRILLE
  2269. [AXES    ]$S=X $S=AXIS ^C^CAXES
  2270. [RESOL   ]$S=X $S=SNAP ^C^CRESOL
  2271. [STYLE   ]$S=X $S=STYLE ^C^CSTYLE
  2272. [LIMITES ]$S=X $S=LIMITS ^C^CLIMITES
  2273.  
  2274. [DDEMODES]'DDEMODES
  2275. [DDAMODES]'DDAMODES
  2276.  
  2277. [>>>>>>>>>]$S=X $S=SET2
  2278.  
  2279. **SET2 3
  2280. [ECHELTP:]^C^CECHLTP
  2281. [OUVRTURE]$S=X $S=APERTURE ^C^COUVERTUR
  2282.  
  2283. [EVOLDYN ]$S=X $S=DRAGMODE ^C^CEVOLDYN
  2284. [MAINTIEN]$S=X $S=HANDLES ^C^CMAINTIEN
  2285. [RAPTEXT ]$S=X $S=QTEXT ^C^CRAPTEXTE
  2286. [MODFVAR ]$S=X $S=SETVAR1 'MODIFVAR
  2287.  
  2288. [TABLET  ]$S=X $S=TABLET ^C^CTABLETTE
  2289.  
  2290.  
  2291. [UNITES  ]^CUNITES
  2292. [FENETRES]$S=X $S=VPORTS ^C^CFENETRES
  2293.  
  2294.  
  2295.  
  2296. [<<<<<<<<<<]$S=X $S=SET
  2297. **PLOT 3
  2298.  
  2299. [ C   S]
  2300. [ H   O]
  2301. [ O   R]
  2302. [ I   T]
  2303. [ X   I]
  2304. [     E]
  2305.  
  2306.  
  2307. [TRACEUR]^C^CTRACEUR
  2308.  
  2309. [IMPRIMAN]^C^CIMPGRAPH
  2310.  
  2311.  
  2312. **SOLLOAD 3
  2313.  
  2314. [CHAR AME]^C^C^P(progn(setq m:err *error*)(princ))+
  2315. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  2316. (cond ((null c:solbox)(princ "Charge AME...")+
  2317. (cond ((setq f (findfile "ame")) (xload f))+
  2318. ((setq f (findfile "ame.exp")) (xload f));+
  2319. (T (terpri)(princ "ERREUR:  Fichier non trouvé. ")))+
  2320. (if f (progn(terpri)(princ "AutoCAD AME exécutable chargé. ")+
  2321. (menucmd "p9=p9prim")(menucmd "s=SOLIDS")(princ));+
  2322. (progn(terpri)(princ "Impossible de charger l'exécutable AME.")+
  2323. (menucmd "S=")(menucmd "S=")(princ)))));^P
  2324.  
  2325.  
  2326. [CHARGE]^C^C^P(progn(setq m:err *error*)(princ))+
  2327. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  2328. (cond ((null c:solbox)(princ "Charge AMElite...")+
  2329. (cond ((setq f (findfile "amelite")) (xload f))+
  2330. ((setq f (findfile "amelite.exp")) (xload f));+
  2331. (T (terpri)(princ "ERREUR:  Fichier non trouvé. ")))+
  2332. (if f (progn(terpri)(princ "AutoCAD AMElite exécutable chargé. ")+
  2333. (menucmd "p9=p9prim")(menucmd "s=SOLIDS")(princ));+
  2334. (progn(terpri)(princ "Impossible de charger l'exécutable AMElite. ")+
  2335. (menucmd "S=")(menucmd "S=")(princ)))));^P
  2336. [AMElite]^C^C^P(progn(setq m:err *error*)(princ))+
  2337. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  2338. (cond ((null c:solbox)(princ "Charge AMElite...")+
  2339. (cond ((setq f (findfile "amelite")) (xload f))+
  2340. ((setq f (findfile "amelite.exp")) (xload f));+
  2341. (T (terpri)(princ "ERREUR:  Fichier non trouvé. ")))+
  2342. (if f (progn(terpri)(princ "AutoCAD AMElite exécutable chargé. ")+
  2343. (menucmd "p9=p9prim")(menucmd "s=SOLIDS")(princ));+
  2344. (progn(terpri)(princ "Impossible de charger l'exécutable AMElite. ")+
  2345. (menucmd "S=")(menucmd "S=")(princ)))));^P
  2346.  
  2347.  
  2348.  
  2349.  
  2350.  
  2351. **SOLIDS 3
  2352. [SOLBOITE]^C^C$S=X $S=SBOX SOLBOITE
  2353. [SOLCONE ]^C^C$S=X $S=SCONE SOLCONE
  2354. [SOLCYL  ]^C^C$S=X $S=SCYL SOLCYL
  2355. [SOLSPHER]^C^C$S=X $S=SSPH SOLSPHERE
  2356. [SOLTORE ]^C^C$S=X $S=STOR SOLTORE
  2357. [SOLBISE ]^C^C$S=X $S=SWEDGE SOLBISEAU
  2358. [SOLEXTR ]^C^C$S=X $S=SEXT SOLEXTR
  2359. [SOLREVOL]^C^C$S=X $S=SREV SOLREV
  2360. [SOLIDIFI]^C^C$S=X $S=SSOLID SOLIDIF
  2361.  
  2362. [MODIFIER]$S=X $S=SMODIFY
  2363. [INFO]$S=X $S=SINQUIRE
  2364. [AFFICHER]$S=X $S=SRENDER
  2365. [F UTILIT]$S=X $S=SUTIL
  2366.  
  2367. **SUTIL 3
  2368. [SOLMAT  ]^C^C$S=X $S=SCHMAT SOLMAT
  2369. [SOLVAR  ]^C^C$S=X $S=SSOLV SOLVAR
  2370. [SOLSCU  ]^C^C$S=X $S=SUCS SOLSCU
  2371.  
  2372. [SOLIMP  ]^C^CSOLIMP
  2373. [SOLEXP  ]^C^CSOLEXP
  2374. [SOLPURGER]^C^C$S=X $S=SPURGE SOLPURG
  2375. [DECHARGER]^C^C^P(if (xunload "ame" nil)+
  2376. (princ (strcat "AME déchargé." (chr 10))))+
  2377. (if (xunload "amelite" nil)(princ "AMElite déchargé."))+
  2378. (menucmd "p9=POP9")(menucmd "S=S")(princ);^P
  2379.  
  2380. [SOLIDES ]$S=X $S=SOLIDS
  2381. [MODIFIER]$S=X $S=SMODIFY
  2382. [INFO]$S=X $S=SINQUIRE
  2383. [AFFICHER]$S=X $S=SRENDER
  2384.  
  2385. **SMODIFY 3
  2386. [INTERSCT]^C^C$S=X $S=SINT SOLINTER
  2387. [SOUSTRAC]^C^C$S=X $S=SSUB SOLSOUSTR
  2388. [UNION   ]^C^C$S=X $S=SUNION SOLUNION
  2389. [CHANFREN]^C^C$S=X $S=SCHAM SOLCHANF
  2390. [RACCORDR]^C^C$S=X $S=SFILL SOLRACC
  2391. [Ch PRIMV]^C^C$S=X $S=SCHP SOLCHP
  2392. [DEPLACER]^C^C$S=X $S=SMOVE SOLDEPL
  2393. [SEPARER ]^C^C$S=X $S=SSEP SOLSEP
  2394.  
  2395. [SOLIDES]$S=X $S=SOLIDS
  2396.  
  2397. [INFO]$S=X $S=SINQUIRE
  2398. [AFFICHER]$S=X $S=SRENDER
  2399. [F UTILIT]$S=X $S=SUTIL
  2400. **SINQUIRE 3
  2401. [SOLLIST:]^C^C$S=X $S=SLIST SOLLISTE
  2402. [SOLPRME:]^C^C$S=X $S=SMASSP SOLPRMEC
  2403. [SOLSURF:]^C^C$S=X $S=SAREA SOLSURF
  2404.  
  2405.  
  2406.  
  2407.  
  2408.  
  2409.  
  2410. [SOLIDES]$S=X $S=SOLIDS
  2411. [MODIFIER]$S=X $S=SMODIFY
  2412.  
  2413. [AFFICHER]$S=X $S=SRENDER
  2414. [F UTILIT]$S=X $S=SUTIL
  2415. **SRENDER 3
  2416. [SOLMAIL:]^C^C$S=X $S=SMESH SOLMAILLE
  2417. [SOLFIL:]^C^C$S=X $S=SWIRE SOLFIL
  2418.  
  2419. [SOLARFA:]^C^C$S=X $S=SFEAT SOLARFA
  2420. [SOLPROF:]^C^C$S=X $S=SPROF SOLPROFIL
  2421. [SOLCOUP:]^C^C$S=X $S=SSECT SOLCOUPE
  2422.  
  2423.  
  2424.  
  2425. [SOLIDES]$S=X $S=SOLIDS
  2426. [MODIFIER]$S=X $S=SMODIFY
  2427. [INFO]$S=X $S=SINQUIRE
  2428.  
  2429. [F UTILIT]$S=X $S=SUTIL
  2430. **SBOX 3
  2431. [BOITE:]^C^CSOLBOITE
  2432.  
  2433. Cube
  2434. Longueur
  2435.  
  2436. **SWEDGE 3
  2437. [BISEAU:]^C^CSOLBISEAU
  2438.  
  2439. Longueur
  2440.  
  2441. **SCONE 3
  2442. [CONE:]^C^CSOLCONE
  2443.  
  2444. [Ellipse]Ellipse
  2445. [Centre  ]C
  2446.  
  2447. Diamètre
  2448.  
  2449. **SCYL 3
  2450. [CYLINDR:]^C^CSOLCYL
  2451.  
  2452. [Ellipse]Ellipse
  2453. [Centre  ]C
  2454.  
  2455. Diamètre
  2456.  
  2457. **SSPH 3
  2458. [SPHERE:]^C^CSOLSPHERE
  2459.  
  2460. Diamètre
  2461.  
  2462. **STOR 3
  2463. [TORE:]^C^CSOLTORE
  2464.  
  2465. Diamètre
  2466.  
  2467. **SFILL 3
  2468. [SOLRACC:]^C^CSOLRACC
  2469.  
  2470. Diamètre
  2471.  
  2472. **SCHAM 3
  2473. [SOLCHAN:]^C^CSOLCHANF
  2474.  
  2475. Suivant
  2476. OK
  2477.  
  2478. **SEXT 3
  2479. [SOLEXTR:]^C^CSOLEXTR
  2480.  
  2481. Fenêtre
  2482. Dernier
  2483. Précédent
  2484. Capture
  2485. Retirer
  2486. Ajouter
  2487.  
  2488. **SREV 3
  2489. [SOLREV:]^C^CSOLREV
  2490.  
  2491. Fenêtre
  2492. Dernier
  2493. Précédent
  2494. Capture
  2495. Retirer
  2496. Ajouter
  2497.  
  2498. Entité
  2499. X
  2500. Y
  2501.  
  2502.  
  2503. **SSOLID 3
  2504. [SOLIDF:]^C^CSOLIDIF
  2505.  
  2506. Fenêtre
  2507. Dernier
  2508. Précédent
  2509. Capture
  2510. Retirer
  2511. Ajouter
  2512.  
  2513. Oui
  2514. Non
  2515.  
  2516. **SINT 3
  2517. [SOLINT:]^C^CSOLINTER
  2518.  
  2519. Fenêtre
  2520. Dernier
  2521. Précédent
  2522. Capture
  2523. Retirer
  2524. Ajouter
  2525.  
  2526. **SSUB 3
  2527. [SOLSOUS:]^C^CSOLSOUSTR
  2528.  
  2529. Fenêtre
  2530. Dernier
  2531. Précédent
  2532. Capture
  2533. Retirer
  2534. Ajouter
  2535.  
  2536. **SUNION 3
  2537. [SOLUNIO:]^C^CSOLUNION
  2538.  
  2539. Fenêtre
  2540. Dernier
  2541. Précédent
  2542. Capture
  2543. Retirer
  2544. Ajouter
  2545.  
  2546. **SSEP 3
  2547. [SOLSEP:]^C^CSOLSEP
  2548.  
  2549. Fenêtre
  2550. Dernier
  2551. Précédent
  2552. Capture
  2553. Retirer
  2554. Ajouter
  2555.  
  2556. **SCHP 3
  2557. [SOLCHP: ]^C^CSOLCHP
  2558.  
  2559. Couleur
  2560. Effacer
  2561. Actualiser
  2562. DUpliquer
  2563. DEplacer
  2564. SuivaNt
  2565. SéLection
  2566. Remplacer
  2567. DImensions
  2568. Sortir
  2569.  
  2570. Oui
  2571. Non
  2572. **SCHMAT 3
  2573. [MATERAL:]^C^CSOLMAT
  2574.  
  2575. Changer
  2576. Editer
  2577. Sortir
  2578. Liste
  2579. cHarger
  2580. Nouveau
  2581. Retirer
  2582. sAuvegarde
  2583. Définir
  2584. ?
  2585.  
  2586. **SMOVE  3
  2587. [SOLDEPL:]^C^CSOLDEPL
  2588. ?
  2589. Fenêtre
  2590. Dernier
  2591. Précédent
  2592.  
  2593. [Align  ]a^^
  2594. [Arête  ]E
  2595. [Face   ]F
  2596. [scU    ]U
  2597. [scG    ]W
  2598. [Origine]O
  2599.  
  2600. OK
  2601. SuivaNt
  2602. **SPURGE 3
  2603. [SOLPURG:]^C^CSOLPURG
  2604.  
  2605. Mèmoire
  2606. Bfichier
  2607. Pmaille
  2608. Effacé
  2609.  
  2610. Tout
  2611. Selection
  2612.  
  2613. Fenêtre
  2614. Dernier
  2615. Précédent
  2616. Capture
  2617.  
  2618. **SLIST 3
  2619. [SOLLIST:]^C^CSOLLISTE
  2620.  
  2621. Fenêtre
  2622. Dernier
  2623. Précédent
  2624. Capture
  2625. Retirer
  2626. Ajouter
  2627.  
  2628. Arête
  2629. Face
  2630. arBores
  2631. Solide
  2632.  
  2633. **SPROF 3
  2634. [SOLPROF:]^C^CSOLPROFIL
  2635.  
  2636. Fenêtre
  2637. Dernier
  2638. Précédent
  2639. Capture
  2640. Retirer
  2641. Ajouter
  2642.  
  2643. Oui
  2644. Non
  2645.  
  2646. **SFEAT 3
  2647. [SOLARFA:]^C^CSOLARFA
  2648.  
  2649. Arête
  2650. Face
  2651.  
  2652. OK
  2653. SuivaNt
  2654.  
  2655. **SUCS 3
  2656. [SOLSCU:]^C^CSOLSCU
  2657.  
  2658. Arête
  2659. Face
  2660.  
  2661. OK
  2662. SuivaNt
  2663.  
  2664. **SWIRE 3
  2665. [SOLFIL:]^C^CSOLFIL
  2666.  
  2667. Fenêtre
  2668. Dernier
  2669. Précédent
  2670. Capture
  2671. Retirer
  2672. Ajouter
  2673.  
  2674. **SSECT 3
  2675. [SOLCOUP:]^C^CSOLCOUPE
  2676.  
  2677. Fenêtre
  2678. Dernier
  2679. Précédent
  2680. Capture
  2681. Retirer
  2682. Ajouter
  2683.  
  2684. **SMESH 3
  2685. [SOLMAIL:]^C^CSOLMAILLE
  2686.  
  2687. Fenêtre
  2688. Dernier
  2689. Précédent
  2690. Capture
  2691. Retirer
  2692. Ajouter
  2693.  
  2694. **SMASSP 3
  2695. [SOLPRME:]^C^CSOLPRMEC
  2696.  
  2697. Fenêtre
  2698. Dernier
  2699. Précédent
  2700. Capture
  2701. Retirer
  2702. Ajouter
  2703.  
  2704. Oui
  2705. Non
  2706.  
  2707. **SAREA 3
  2708. [SOLSURF:]^C^CSOLSURF
  2709.  
  2710. Fenêtre
  2711. Dernier
  2712. Précédent
  2713. Capture
  2714. Retirer
  2715. Ajouter
  2716.  
  2717. **SSOLV 3
  2718. [SOLVAR:]^C^CSOLVAR
  2719. [Amever  ]solamever
  2720. [Areau   ]solareau
  2721. [Axcol   ]solaxcol
  2722. [Decomp  ]soldecomp
  2723. [Delent  ]soldelent
  2724. [Display ]soldisplay
  2725. [Hangle  ]solhangle
  2726. [Hpat    ]solhpat
  2727. [Hsize   ]solhsize
  2728. [Length  ]sollength
  2729. [Mass    ]solmass
  2730.  
  2731. [Plus... ]$S=X $S=SSOLV2
  2732. **SSOLV2 3
  2733. [SOLVAR:]^C^CSOLVAR
  2734. [Matcurr ]solmatcurr
  2735. [Pagelen ]solpagelen
  2736. [Render  ]solrender
  2737. [Servmsg ]solservmsg
  2738. [Solidify]solsolidify
  2739. [Subdiv  ]solsubdiv
  2740. [Volume  ]solvolume
  2741. [Solwdens]solwdens
  2742.  
  2743.  
  2744.  
  2745.  
  2746. [Précéd.]$S=X $S=SSOLV
  2747.  
  2748. **UT 3
  2749. [ATTEXTR:]$S=X $S=ATTEXT ^C^CATTEXTR
  2750. [CONTROL:]$S=X $S=AUDIT ^C^CCONTROLE \$S= $S=
  2751. [DXF/DXB]$S=X $S=dxf
  2752. [FICHIER:]^C^CFICHIERS
  2753. [IGES]$S=X $S=iges
  2754. [MENU:]$S=X $S=CHTEMP ^C^CMENU
  2755. [PURGER:]$S=X $S=PURGE ^C^CPURGER
  2756. [RENOMME:]$S=X $S=RENAME ^C^CRENOMMER
  2757. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT
  2758. [CLICHES]$S=X $S=SLIDES
  2759. [Commande]$S=X $S=EXCOMDS
  2760. [Externe ]$S=X $S=EXCOMDS
  2761.  
  2762. [FIN:]$S=X $S=END
  2763. [QUITTER]$S=X $S=QUIT
  2764.  
  2765. **ASH11 3
  2766. [LUMIERE:]^C^C$S=X $S=ASH11L LUMIERE
  2767. [CAMERA:]^C^C$S=X $S=ASH11C CAMERA
  2768. [SCENE]^C^C$S=X $S=ASH11A
  2769.  
  2770. [VUECAM:]^C^CVUECAM
  2771. **ASH11L 3
  2772. [LUMIERE:]^C^CLUMIERE
  2773.  
  2774. [Ponctuel]p
  2775. Dirigée
  2776.  
  2777. [Filtres]
  2778. .x
  2779. .y
  2780. .z
  2781. .xy
  2782. .xz
  2783. .yz
  2784.  
  2785. [CAMERA:]^C^C$S=X $S=ASH11C CAMERA
  2786. [SCENE]$S=X $S=ASH11A
  2787. **ASH11C 3
  2788. [CAMERA:]^C^CCAMERA
  2789.  
  2790. [Filtres]
  2791. .x
  2792. .y
  2793. .z
  2794. .xy
  2795. .xz
  2796. .yz
  2797.  
  2798. [VUECAM:]^C^CVUECAM
  2799.  
  2800.  
  2801. [LUMIERE:]^C^C$S=X $S=ASH11L LUMIERE
  2802. [SCENE]$S=X $S=ASH11A
  2803. **ASH11A 3
  2804. [SCENE]
  2805.  
  2806. [SCENE:]^C^CSCENE
  2807. [PELLIC:]^C^CPELLICUL
  2808.  
  2809.  
  2810.  
  2811.  
  2812.  
  2813.  
  2814.  
  2815.  
  2816.  
  2817. [LUMIERE:]^C^C$S=X $S=ASH11L LUMIERE
  2818. [CAMERA:]^C^C$S=X $S=ASH11C CAMERA
  2819. **ASH 3
  2820. [LUMIERE:]^C^C$S=X ^p(progn(menucmd(if g:rman"s=ashlrm""s=ashl"));+
  2821. (princ)) ^pLUMIERE
  2822. [VLUMIER:]^C^C$S=X ^p(progn(menucmd(if g:rman"s=ashlrm""s=ashl"));+
  2823. (princ)) ^pVLUMIER
  2824. [CAMERA:]^C^C$S=X $S=ASHC CAMERA
  2825. [VCAMERA:]^C^C$S=X $S=ASHC VCAMERA
  2826. [ASPECT:]^C^CASPECT
  2827. [SCENE:]^C^CSCENE
  2828.  
  2829. [VUECAM:]^C^CVUECAM
  2830.  
  2831. [PELLIC:]^C^CPELLICUL
  2832. [DEFAUTS:]^C^C$S=X $S=DEFAULTS DEFAUTS
  2833. [RMSCAN:]^C^CRMSCAN
  2834. [--------]
  2835. [RMAN]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur en chargeant: ")+
  2836. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  2837. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  2838. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  2839. (prompt"Le fichier 'Rman.lsp' n'est pas dans le répertoire courant.")+
  2840. (terpri)(prompt"Voyez votre manuel d'installation AutoShade v2.0.");+
  2841. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  2842. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  2843. **ASHL 3
  2844. [LUMIERE:]^C^CLUMIERE
  2845. [VLUMIER:]^C^CVLUMIER
  2846.  
  2847. [Ponctuel]p
  2848. Dirigée
  2849.  
  2850. .x
  2851. .y
  2852. .z
  2853. .xy
  2854. .xz
  2855. .yz
  2856. **ASHLRM 3
  2857. [LUMIERE:]^C^CLUMIERE
  2858. [VLUMIER:]^C^CVLUMIER
  2859.  
  2860. [Pontuel]p
  2861. Dirigée
  2862. Spot
  2863. .x
  2864. .y
  2865. .z
  2866. .xy
  2867. .xz
  2868. .yz
  2869. **ASHC 3
  2870. [CAMERA:]^C^CCAMERA
  2871. [VCAMERA:]^C^CVCAMERA
  2872.  
  2873.  
  2874. [VUECAM:]^C^CVUECAM
  2875.  
  2876. .x
  2877. .y
  2878. .z
  2879. .xy
  2880. .xz
  2881. .yz
  2882. **DEFAULTS 3
  2883. [DEFAUTS:]^C^CDEFAUTS
  2884.  
  2885. Resize
  2886. Echelle
  2887. [Prompts]Prompts $S=X $S=YESNO \$S= $S=
  2888.  
  2889.  
  2890. Select
  2891. **RMAN 3
  2892. [RMSETUP:]^C^C$S=X $S=RMSETUP RMSETUP
  2893. [RMPROP: ]^C^C$S=X $S=RMPROP RMPROP
  2894.  
  2895. [RMATTAC:]^C^C$S=X $S=RMATTACH RMATTACH
  2896. [RMEDIT: ]^C^C$S=X $S=RMEDIT RMEDIT
  2897. [RMCOPY: ]^C^C$S=X $S=RMCOPY RMCOPY
  2898.  
  2899. [RMLIST: ]^C^C$S=X $S=RMLIST RMLIST
  2900.  
  2901. [PELLIC:]^C^CFILMROLL
  2902. [DEFAUTS:]^C^C$S=X $S=DEFAULTS DEFAUTS
  2903. [RMSCAN:]^C^CRMSCAN
  2904. [--------]
  2905. [ASHADE]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  2906. (princ"Erreur en chargeant: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  2907. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)  "S=ASH")+
  2908. ((= G:SVER 11)"S=ASH11")(T"S=")))(setq m:shmn nil)(princ))(princ))(cond(G:SVER;+
  2909. (setq *error* m:err m:err nil)(m:shmn))(T (vmon)(cond((findfile"ashade.lsp")+
  2910. (load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn)(progn(terpri);+
  2911. (prompt "Le fichier '") (princ (findfile "ashade.lsp"))+
  2912. (prompt "' est incompatible avec AutoCAD v11.");+
  2913. (setq m:shmn nil C:CAMERA nil C:LUMIERE nil C:VUECAM nil C:SCENE nil)(princ))))+
  2914. (T(terpri)(prompt"Le fichier 'Ashade.lsp' n'est pas dans le répertoire courant.");+
  2915. (terpri)(prompt"Voyez votre manuel d'installation AutoShade.")+
  2916. (setq *error* m:err m:err nil m:shmn nil)(princ))))) ^P
  2917. **RMSETUP 3
  2918. [RMSETUP:]^C^CRMSETUP
  2919.  
  2920.  
  2921. Air
  2922. Bucket
  2923. [Crop]Crop $S=X $S=RMSETUPC \$S= $S=
  2924. [Dest]Dest $S=X $S=RMSETUPD \$S= $S=
  2925. Exposure
  2926. [Filter]Filter $S=X $S=RMSETUPFI \$S= $S=
  2927. [Format]Format $S=X $S=RMSETUPFO \$S= $S=
  2928. [Merge]Merge $S=X $S=YESNO \$S= $S=
  2929. Rate
  2930. Samples
  2931. **RMSETUPC 3
  2932.  
  2933.  
  2934. Visuel
  2935.  
  2936. Numerique
  2937. **RMSETUPD 3
  2938.  
  2939.  
  2940. [Cpscript]Cpostscript
  2941. [Pscript]Postscript
  2942. File
  2943. Tiff
  2944. Vga
  2945. Tga
  2946. Targa
  2947. Vista
  2948. Framebuffer
  2949. **RMSETUPFI 3
  2950.  
  2951.  
  2952. Boite
  2953.  
  2954. Gaussian
  2955. **RMSETUPFO 3
  2956.  
  2957.  
  2958. Ascii
  2959.  
  2960. Binaire
  2961. **YESNO 3
  2962.  
  2963.  
  2964. Oui
  2965.  
  2966. Non
  2967. **RMPROP 3
  2968. [RMPROP:]^C^CRMPROP
  2969.  
  2970.  
  2971. Air
  2972. Couleur
  2973. Déplacer
  2974. Opaque
  2975. Projeter
  2976. Rate
  2977. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  2978. Surface
  2979. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  2980. **RMPROPTC 3
  2981.  
  2982.  
  2983. Insert
  2984.  
  2985. Pick
  2986.  
  2987. Numeric
  2988. **RMEDIT 3
  2989. [RMEDIT:]^C^CRMEDIT
  2990.  
  2991.  
  2992. Air
  2993. Couleur
  2994. Displace
  2995. Opaque
  2996. Project
  2997. Rate
  2998. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  2999. Surface
  3000. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  3001. **RMCOPY 3
  3002. [RMCOPY:]^C^CRMCOPY
  3003.  
  3004.  
  3005. Air
  3006. Couleur
  3007. Displace
  3008. Opaque
  3009. Project
  3010. Rate
  3011. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  3012. Surface
  3013. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  3014. **RMATTACH 3
  3015. [RMATTAC:]^C^CRMATTACH
  3016.  
  3017. ?
  3018.  
  3019. Plan
  3020. Select
  3021. **RMLIST 3
  3022. [RMLIST:]^C^CRMLIST
  3023.  
  3024. Couleurs
  3025. Shaders
  3026. Entité
  3027. Plan
  3028. Defined
  3029.  
  3030.  
  3031. Atmosphere
  3032. Displacement
  3033. Lumière
  3034. Surface
  3035.  
  3036.  
  3037. **OSNAPB 2
  3038. [  AIDE  ]$S= 'aide
  3039. [CENtre]CENTRE $S=
  3040. [EXTrem]EXTREMITE $S=
  3041. [INSert]INSERTION $S=
  3042. [INTersec]INTERSECTION $S=
  3043. [MILieu]MILIEU $S=
  3044. [PROche]PROCHE $S=
  3045. [NODAL]NODAL $S=
  3046. [PERpend]PERPEND $S=
  3047. [QUAdrant]QUADRANT $S=
  3048. [RAPide,]RAPIDE,^Z
  3049. [TANgent]TANGENT $S=
  3050. [AUCUN]AUCUN $S=
  3051. [ARRET:]^C^C$S=
  3052. [ANNULER:]^C^CU $S=
  3053. [RETABLIR:]^C^CRETABLIR $S=
  3054. [REDESS:]'REDESS $S=
  3055. [MODIFVAR:]$S= 'MODIFVAR
  3056. [__PREC__]$S=
  3057. **BLOCK 3
  3058. [BLOC:]^C^CBLOC
  3059. ?
  3060.  
  3061. Fenêtre
  3062. Dernier
  3063. Précédent
  3064. Capture
  3065. Retirer
  3066. Ajouter
  3067.  
  3068. Oui
  3069. [REPRISE]^C^CREPRISE
  3070. **INSERT 3
  3071. [INSERER:]^C^CINSERER
  3072. ~
  3073. ?
  3074. [*]*\
  3075. coin
  3076. xyz
  3077. dynam
  3078.  
  3079. Echelle
  3080. Xéchelle
  3081. Yéchelle
  3082. Zéchelle
  3083. Rotation
  3084. **WBLOCK 3
  3085. [WBLOC:]^C^CWBLOC
  3086.  
  3087. =
  3088. *
  3089. [espace];
  3090.  
  3091. Fenêtre
  3092. Dernier
  3093. Précédent
  3094. Capture
  3095. Retirer
  3096. Ajouter
  3097. annUler
  3098. **MINSERT 3
  3099. [INSERM:]^C^CINSERM
  3100. ?
  3101. ~
  3102. coin
  3103. xyz
  3104. dynam
  3105. **XBIND 3
  3106. [XATTACH:]^C^CXATTACH
  3107.  
  3108. Bloc
  3109. Cotstyl
  3110. Plan
  3111. Typelign
  3112. Style
  3113.  
  3114.  
  3115.  
  3116.  
  3117.  
  3118. [XREF]$S=X $S=XREF
  3119. **XREF 3
  3120. [XREF:]^C^CXREF
  3121.  
  3122. ?
  3123. ATTRibuer
  3124. ATTAche
  3125. Détache
  3126. Chemin
  3127. Recharge
  3128.  
  3129. [Afichlog]^C^C^PTYPE (write-line (strcat (getvar "DWGNAME") ".XLG"));^P
  3130.  
  3131.  
  3132. [XATTACH]$S=X $S=XBIND
  3133. **DIM 3
  3134. [COT:]^C^CCOT
  3135. [COT1:]^C^CCOT1
  3136.  
  3137. angulaire
  3138. [Var. Cot]$S=X $S=VAR1
  3139. rappel
  3140. [linéaire]$S=X $S=DIMLINEAR
  3141. oblique
  3142. [ORDONNE:]$S=X $S=DIMORD ORDONNEES
  3143. [radial]$S=X $S=DIMRADIAL
  3144. état
  3145. style
  3146. trotatio
  3147. [ANNULE]U
  3148.  
  3149. [TEdit]$S=X $S=TEDIT TEDIT
  3150. [Sortir]SORTIE;$S=X $S=S
  3151. [Suivant]$S=X $S=FORMAT
  3152. **DIMLINEAR 3
  3153. [COT:]^C^CCOT
  3154. [COT1:]^C^CCOT1
  3155.  
  3156. HORIZONTal
  3157. VERTICAL
  3158. ALIGNE
  3159. ROTATION
  3160.  
  3161. [LIGNEBAS]^C^CCOT LIGNEBAS
  3162. [CONTINUE]^C^CCOT CONTINUE
  3163.  
  3164.  
  3165.  
  3166. [Précéd.]$S=X $S=DIM
  3167. **DIMRADIAL 3
  3168. [COT:]^C^CCOT
  3169. [COT1:]^C^CCOT1
  3170.  
  3171. diamètre
  3172. rayon
  3173. centre
  3174.  
  3175.  
  3176.  
  3177.  
  3178.  
  3179.  
  3180.  
  3181. [Précéd.]$S=X $S=DIM
  3182. **DIMORD 3
  3183. [COT:]^C^CCOT
  3184. [COT1:]^C^CCOT1
  3185.  
  3186. [Donnée X]X
  3187. [Donnée Y]Y
  3188.  
  3189.  
  3190.  
  3191.  
  3192.  
  3193.  
  3194. [Précéd.]$S=X $S=DIM
  3195. **TEDIT 3
  3196. [COT:]^C^CCOT
  3197. [COT1:]^C^CCOT1
  3198.  
  3199. [TEDIT:]TEDIT
  3200.  
  3201. angle
  3202. initiale
  3203. gauche
  3204. droite
  3205.  
  3206.  
  3207.  
  3208.  
  3209. [Précéd.]$S=X $S=DIM
  3210. **ATTDEF 3
  3211. [ATTDEF:]^C^CATTDEF
  3212.  
  3213. Invisible
  3214. Constant
  3215. Verifié
  3216. [Prédéf.]P
  3217.  
  3218. [Options]$S=TEXTOPTS
  3219. Style
  3220. aligné
  3221. [centré]C
  3222. fixé
  3223. milieu
  3224. droite
  3225. **LAYER 3
  3226. [DDPMODES]'DDPMODES
  3227. [PLAN:]^C^CPLAN
  3228.  
  3229. [?]? *
  3230. Etablir
  3231. CHoisir
  3232. Nouv
  3233. ACtif
  3234. INactif
  3235. [Couleur]Couleur $S=X $S=LACOLOR
  3236. [TLigne]TLigne $S=X $S=LALT \$S=X $S=LAYER
  3237. Geler
  3238. Libérer
  3239.  
  3240. **VPLA 3
  3241. [FCOUCHE:]^C^CFCOUCHE
  3242.  
  3243. ?
  3244. Geler
  3245. Libérer
  3246. Rétablir
  3247. Nouvgel
  3248. Visfendef
  3249.  
  3250. **LACOLOR 3
  3251. [COULEUR]
  3252.  
  3253. [rouge]rouge $S= $S=
  3254. [jaune]jaune $S= $S=
  3255. [vert]vert $S= $S=
  3256. [cyan]cyan $S= $S=
  3257. [bleu]bleu $S= $S=
  3258. [magenta]magenta $S= $S=
  3259. [blanc]blanc $S= $S=
  3260. [gris]gris $S= $S=
  3261. [roug som]9 $S= $S=
  3262. [jaun som]10 $S= $S=
  3263. [vert som]11 $S= $S=
  3264. [cyan som]12 $S= $S=
  3265. [bleu som]13 $S= $S=
  3266. [magt som]14 $S= $S=
  3267. [gris som]15 $S= $S=
  3268. [Chroma]^C^CAFFCLICH acad(chroma) PLAN Couleur
  3269. [ REDESS]'REDESS
  3270.  
  3271.  
  3272.  
  3273. **LALT 3
  3274. [TYPELIGN]
  3275.  
  3276. [continu]CONTINUOUS
  3277. discont
  3278. caché
  3279. axes
  3280. fantôme
  3281. pointillé
  3282. tiretpt
  3283. bordure
  3284. divisé
  3285.  
  3286. **ZOOM 3
  3287. [ZOOM:]'ZOOM
  3288.  
  3289. [Total]Total;
  3290. [Centre]C
  3291. Dynamique
  3292. Etendu
  3293. Gauche
  3294. Avant
  3295. FMax
  3296. Fenêtre
  3297.  
  3298. Oui
  3299. Non
  3300. **ATTDISP 3
  3301. [ATECRAN:]^C^CATTECRAN
  3302.  
  3303. Normal
  3304. ACtif
  3305. INactif
  3306. **DVIEW 3
  3307. [VUEDYN:]^C^CVUEDYN
  3308. Fenêtre
  3309. Dernier
  3310. Précédent
  3311. Capture
  3312. Retirer
  3313. Ajouter
  3314.  
  3315. [Par Plan]^P(defun berror (msg)(setq *error* m:err m:err nil)(princ))+
  3316. (progn (setq m:err *error* *error* berror);+
  3317. (setq l(getstring (strcat "Nom du plan: <" (getvar "clayer") "> ")))+
  3318. (if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
  3319. (setq s(ssget "X" (list(cons 8 l)))))(setq *error* m:err m:err nil) s) ^P
  3320. [--------]
  3321. [Essai]^C^CVUEDYN;;
  3322. [ VUEDYN ]$S=X $S=DVIEW1
  3323. [Options]$S=X $S=DVIEW1
  3324. **DVIEW1 3
  3325. CAmera
  3326. CIble
  3327. DIstance
  3328. POints
  3329. PAn
  3330. Zoom
  3331. Basculer
  3332. [Délimit.]DElimitation $S=X $S=DVIEW2
  3333. Cache
  3334. INactif
  3335. annUler
  3336.  
  3337. [Sortir]SORTIR $S=X $S=S
  3338. **DVIEW2 3
  3339. [ARRIERE]ARRIERE $S=X $S=BACK
  3340. [AVANT]AVANT $S=X $S=FRONT
  3341. [INactif]INactif $S=X $S=DVIEW1
  3342. **BACK 3
  3343. [ARRIERE]
  3344. [DELIMIT]
  3345.  
  3346. [ACtif]ACtif $S=X $S=DVIEW1
  3347. [INactif]INactif $S=X $S=DVIEW1
  3348. **FRONT 3
  3349. [AVANT]
  3350. [DELIMIT]
  3351.  
  3352. [ACtif]ACtif $S=X $S=DVIEW1
  3353. [INactif]INactif $S=X $S=DVIEW1
  3354.  
  3355. [Oeil]OEIL $S=X $S=DVIEW1
  3356. **MV 3
  3357. [FMULT:]^C^CFMULT
  3358.  
  3359. ACtif
  3360. INactif
  3361. [Cachtrac]Cachtrac;
  3362. Zonegraph
  3363. [2]2 $S=X $S=mv2
  3364. [3]3 $S=X $S=mv2
  3365. [4]4 $S=X $S=mv2
  3366.  
  3367. [ESPACEO:]^C^C$S=X $S=mv ESPACEO
  3368. [ESPACEP:]^C^C$S=X $S=mv ESPACEP
  3369. [TILEMOD:]^C^C$S=X $S=mv TILEMODE
  3370. [FCOUCHE:]^C^C$S=X $S=vpla FCOUCHE
  3371.  
  3372. **MV2 3
  3373. HOrizontal
  3374. Vertical
  3375.  
  3376. HAut
  3377. Bas
  3378. Gauche
  3379. Droite
  3380.  
  3381. Zonegraph
  3382.  
  3383.  
  3384. **RGNAUTO 3
  3385. [RGNAUTO:]^C^CREGNAUTO
  3386.  
  3387. [ACtif]ACtif $S=X $S=DS
  3388. [INactif]INactif $S=X $S=DS
  3389. **SHADE 3
  3390. [SHADE:]^C^CSHADE
  3391.  
  3392. [Shadedif]'SHADEDIF
  3393.  
  3394. [Shadedge]'SHADEDGE
  3395. [ 256-col]0
  3396. [ 256-edg]1
  3397. [ Caché]2
  3398. [ Rempli]3
  3399.  
  3400. [REGEN:]^C^CREGEN
  3401. **VIEW 3
  3402. [VUES:]'VUES
  3403. ?
  3404.  
  3405. Détruire
  3406. Rappel
  3407. Sauve
  3408. Fenêtre
  3409. **VPORTS 3
  3410. [FENETRE:]^C^CFENETRES
  3411.  
  3412. Sauver
  3413. Restaurer
  3414. Effacer
  3415. Joindre
  3416. [UNique]UNique;
  3417. ?
  3418.  
  3419. [2]2 $S=X $S=VP2
  3420. [3]3 $S=X $S=VP3
  3421. 4
  3422. **VP2 3
  3423.  
  3424. [Horizont]H $S=X $S=VPORTS
  3425. [Vertical]V $S=X $S=VPORTS
  3426. **VP3 3
  3427.  
  3428. [HOrizont]HOrizont $S=X $S=VPORTS
  3429. [Vertical]Vertical $S=X $S=VPORTS
  3430. [HAut]HAut $S=X $S=VPORTS
  3431. [Bas]Bas $S=X $S=VPORTS
  3432. [Gauche]Gauche $S=X $S=VPORTS
  3433. [Droite]Droite $S=X $S=VPORTS
  3434. **LINE 3
  3435. [LIGNE:]^C^CLIGNE
  3436.  
  3437. [continue]^C^CLIGNE;;
  3438. clore
  3439. [annUler]U
  3440. .x
  3441. .y
  3442. .z
  3443. .xy
  3444. .xz
  3445. .yz
  3446. **3D 3
  3447. [SURFGAU:]^C^CSURFGAU
  3448. [SURFREV:]^C^CSURFREV
  3449. [SURFREG:]^C^CSURFREGL
  3450. [SURFEXT:]^C^CSURFEXTR
  3451.  
  3452. [Surftb1:]'SURFTAB1
  3453. [Surftb2:]'SURFTAB2
  3454.  
  3455. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  3456. [3DMAILL:]^C^C3DMAILLE
  3457. [PMAILLE:]^C^CPMAILLE
  3458. [3DPOLY:]$S=X $S=3DPOLY ^C^C3DPOLY
  3459.  
  3460. [  3d   ]^C^C^P(progn(setq m:err *error*)(princ))+
  3461. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  3462. (progn (terpri)(prompt "Patientez...  Chargement en cours.  ");+
  3463. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  3464. "Le fichier `3d.lsp' n'a pas été trouvé dans le répertoire. ")(terpri);+
  3465. (prompt "Vérifiez votre installation et essayez à nouveau.");+
  3466. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  3467. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  3468. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  3469. [objects]^C^C^P(progn(setq m:err *error*)(princ))+
  3470. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  3471. (progn (terpri)(prompt "Patientez...  Chargement en cours.  ");+
  3472. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  3473. "Le fichier `3d.lsp' n'a pas été trouvé dans le répertoire. ")(terpri);+
  3474. (prompt "Vérifiez votre installation et essayez à nouveau.");+
  3475. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  3476. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  3477. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  3478. **3D2 3
  3479.  
  3480. [Boite  ]^C^C^P(C:boite) ^P
  3481. [Cone   ]^C^C^P(C:cone) ^P
  3482. [Cuvette]^C^C^P(C:cuvette) ^P
  3483. [Dome   ]^C^C^P(C:dome) ^P
  3484. [Maille ]^C^C^P(C:maille) ^P
  3485. [Pyramide]^C^C^P(C:pyramide) ^P
  3486. [Sphère ]^C^C^P(C:sphere) ^P
  3487. [Tore   ]^C^C^P(C:tore) ^P
  3488. [Biseau ]^C^C^P(C:biseau) ^P
  3489. **ELEVTHK 3
  3490. [ELEVAT:]^C^CELEV
  3491.  
  3492. [CHANGE:]^C^CCHANGER
  3493. Fenêtre
  3494. Dernier
  3495. Précédent
  3496. Capture
  3497. Retirer
  3498. Ajouter
  3499. annUler
  3500. [Elevat.]PROP E
  3501. [Hauteur]PROP T
  3502. **HIDE 3
  3503. [CACHE ?]
  3504.  
  3505. [OUI]^C^CCACHE
  3506. [NON]$S= $S=
  3507. **HIDE1 3
  3508. [CACHE:]^C^CCACHE
  3509.  
  3510. [OUI]Oui
  3511. [NON]Non
  3512. **VPOINT 3
  3513. [PTVUE:]^C^CPOINTVUE
  3514.  
  3515. rotation
  3516. [axes];
  3517. [plan]AUCUN 0,0,1
  3518.  
  3519. [CACHE]$S=X $S=HIDE
  3520. **VPOINT3D 3
  3521. [ Angle  ]^C^CPOINTVUE R;;
  3522. [dans le ]^C^CPOINTVUE R;;
  3523. [plan XY ]^C^CPOINTVUE R;;
  3524. [    +80 ]<<80
  3525. [    +60 ]<<60
  3526. [    +45 ]<<45
  3527. [    +30 ]<<30
  3528. [    +10 ]<<10
  3529. [      0 ]<<0
  3530. [    -10 ]<<350
  3531. [    -30 ]<<330
  3532. [    -45 ]<<315
  3533. [    -60 ]<<300
  3534. [    -80 ]<<280
  3535. **PLINE 3
  3536. [POLYLIG:]^C^CPOLYLIGN
  3537.  
  3538. [Arc]ARC $S=X $S=PARC
  3539. Clore
  3540. DEmi-larg
  3541. LOngueur
  3542. annUler
  3543. Epaisseur
  3544.  
  3545. [REMPL AC]'FILLMODE 1
  3546. [REMPL IN]'FILLMODE 0
  3547. **PARC 3
  3548. [POLYARC]
  3549.  
  3550. [Angle]$S=X $S=PARCANG A
  3551. [CEntre]$S=X $S=PARCEN CE
  3552. [Dir.Tang]Direction \DYNAM
  3553. [Rayon]$S=X $S=PARCRAD R
  3554. [2éme PT]Second-pt \DYNAM
  3555. [CLore]$S=X $S=PLINE CLORE
  3556.  
  3557. annUler
  3558.  
  3559. [Ligncont]$S=X $S=PLINE L
  3560.  
  3561. [POLYLIG:]$S=X $S=PLINE ^C^CPOLYLIGN
  3562. **PARCANG 3
  3563. [ANGLE]
  3564.  
  3565. [Centre]$S=X $S=PARC Centre dynam
  3566. [Rayon]$S=X $S=PARC Rayon \
  3567. [Dynam]$S=X $S=PARC dynam
  3568. **PARCEN 3
  3569. [CENTRE]
  3570.  
  3571. [Angle]$S=X $S=PARC Angle dynam
  3572. [Longueur]$S=X $S=PARC Longueur dynam
  3573. [Dynam]$S=X $S=PARC dynam
  3574. **PARCRAD 3
  3575. [RAYON]
  3576.  
  3577. [Angle]A \dynam $S=X $S=PARC Angle \dynam
  3578. [Dynam]$S=X $S=PARC dynam
  3579. **OFFSET 3
  3580. [DECALER:]^C^CDECALER
  3581.  
  3582. Par
  3583.  
  3584. [dernier];
  3585.  
  3586. **ARC 3
  3587. [ARC]
  3588.  
  3589. [3-point:]^C^CARC \\DYNAM
  3590. [PT,C,F:]^C^CARC \C \DYNAM
  3591. [PT,C,A:]^C^CARC \C \A DYNAM
  3592. [PT,C,L:]^C^CARC \C \L DYNAM
  3593. [PT,F,A:]^C^CARC \F \A
  3594. [PT,F,R:]^C^CARC \F \R
  3595. [PT,F,D:]^C^CARC \F \D DYNAM
  3596. [C,PT,F:]^C^CARC C \\DYNAM
  3597. [C,PT,A:]^C^CARC C \\A DYNAM
  3598. [C,PT,L:]^C^CARC C \\L DYNAM
  3599. [CONTINU:]^C^CARC ;DYNAM
  3600. **CIRCLE 3
  3601. [CERCLE]
  3602.  
  3603. [CEN,RAY:]^C^CCERCLE \DYNAM
  3604. [CEN,DIA:]^C^CCERCLE \D
  3605. [2 POINT:]^C^CCERCLE 2P \DYNAM
  3606. [3 POINT:]^C^CCERCLE 3P \\DYNAM
  3607. [TTR:]^C^CCERCLE TTR
  3608. **ELLIPSE 3
  3609. [ELLIPSE:]^C^CELLIPSE
  3610.  
  3611. [Centre]C
  3612. Rotation
  3613. Isocercle
  3614. Diamètre
  3615. **POLYGON 3
  3616. [POLYGON:]^C^CPOLYGONE
  3617.  
  3618. Côté
  3619. [Inscrit]INSCRIT
  3620. [Circons.]CIRCONSCRIT
  3621. **SHAPE 3
  3622. [FORMES:]^C^CFORMES
  3623. ?
  3624.  
  3625. [CHARGER:]^C^CCHARGER
  3626. ?
  3627. **SKETCH 3
  3628. [MAINLEV:]^C^CMAINLEV
  3629.  
  3630. Raccord
  3631. Effacer
  3632. Mémoriser
  3633.  
  3634. [Sortir]Sortir
  3635. Quitter
  3636.  
  3637. [------]
  3638. [MLPOLY:]'SKPOLY 1
  3639. [MLLINE:]'SKPOLY 0
  3640. [------]
  3641. **SOLID 3
  3642. [SOLIDE:]^C^CSOLIDE
  3643.  
  3644. [REMPL AC]'FILLMODE 1
  3645. [REMPL IN]'FILLMODE 0
  3646. **TRACE 3
  3647. [TRACE:]^C^CTRACE
  3648.  
  3649. [REMPL AC]'FILLMODE 1
  3650. [REMPL IN]'FILLMODE 0
  3651. **POINT 3
  3652. [POINT:]^C^CPOINT
  3653. .x
  3654. .y
  3655. .z
  3656. .xy
  3657. .xz
  3658. .yz
  3659.  
  3660. [Formes]
  3661. [des Pts]
  3662. [example:]^C^CAFFCLICH acad(pointS)
  3663. [Retirer]^C^CREDESS
  3664. [example:]^C^CREDESS
  3665. [Pdmode:]'PDMODE
  3666. [PdSize:]'PDSIZE
  3667. **HATCH 3
  3668. [HACHURE:]^C^CHACHURES
  3669. ?
  3670. u
  3671. u,p
  3672. u,t
  3673. Oui
  3674.  
  3675. Fenêtre
  3676. Dernier
  3677. Précédent
  3678. Capture
  3679. Retirer
  3680. Ajouter
  3681. annUler
  3682. **3DFACE 3
  3683. [3DFACE:]^C^C3DFACE
  3684.  
  3685. .x
  3686. .y
  3687. .z
  3688. .xy
  3689. .xz
  3690. .yz
  3691.  
  3692. Invisible
  3693.  
  3694. [ArrêtVis]^P(Setvar "Splframe" 1)(prompt "Les arrêtes seront VISIBLES après la prochaine régénération.")(princ) ^P
  3695. [ArrêtCac]^P(Setvar "Splframe" 0)(prompt "Les arrêtes seront CACHEES après la prochaine régénération.")(princ) ^P
  3696.  
  3697. **3DPOLY 3
  3698. [3DPOLY:]^C^C3DPOLY
  3699.  
  3700. Clore
  3701. annUler
  3702. .x
  3703. .y
  3704. .z
  3705. .xy
  3706. .xz
  3707. .yz
  3708. **ID 3
  3709. [ID:]^C^CID
  3710.  
  3711. .x
  3712. .y
  3713. .z
  3714. .xy
  3715. .xz
  3716. .yz
  3717. **LIMITS 3
  3718.  
  3719. [LIMITES:]^C^CLIMITES
  3720.  
  3721. ACtif
  3722. INactif
  3723. **UCS1 3
  3724. [SCU:]^C^CSCU
  3725. [DDSCU:]^C^CDDSCU
  3726. ?
  3727. Précédent
  3728. Général
  3729. Origine
  3730. ZAxe
  3731. 3points
  3732. X
  3733. Y
  3734. Z
  3735. Vue
  3736. Entité
  3737. Restaurer
  3738. Sauver
  3739. EFfacer
  3740.  
  3741. [RENOMME ]^C^CRENOMMER SCU
  3742. [UCSFOLLO]'UCSFOLLOW
  3743.  
  3744. [suivant]$S=X $S=UCS2
  3745.  
  3746.  
  3747. **UCS2 3
  3748. [SCU:]$S=X $S=UCS1 ^C^CSCU
  3749.  
  3750.  
  3751.  
  3752. [Précéd.]$S=X $S=UCS1
  3753. **UCSICON 3
  3754. [UCSICON:]^C^CUCSICON
  3755.  
  3756. ACtif
  3757. INactif
  3758.  
  3759. Tout
  3760. Origine
  3761. Nonorigine
  3762.  
  3763.  
  3764.  
  3765.  
  3766.  
  3767.  
  3768. **PLAN 3
  3769. [REPERE:]^C^CREPERE
  3770.  
  3771. Courant
  3772. SCU
  3773. Général
  3774.  
  3775. [Var.SCU:]'UCSFOLLOW
  3776. **LIST 3
  3777. [LISTE:]^C^CLISTE
  3778.  
  3779. Fenêtre
  3780. Dernier
  3781. Précédent
  3782. Capture
  3783. Retirer
  3784. Ajouter
  3785. annUler
  3786. **AREA 3
  3787. [AIRE:]^C^CAIRE
  3788.  
  3789. Entité
  3790. Ajouter
  3791. Soustract.
  3792. **TEXT 3
  3793. [TEXTE:]^C^CTEXTE
  3794. [TEXTDYN:]^C^CTXTDYN
  3795.  
  3796. [Options]$S=TEXTOPTS
  3797. Style
  3798.  
  3799. Aligne
  3800. [Centre]C
  3801. Fixe
  3802. Milieu
  3803. Droite
  3804.  
  3805. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  3806. **TEXTOPTS 5
  3807. [Haut-]H\
  3808. [Milieu-]M\
  3809. [Bas-]B\
  3810.  
  3811. [ -Gauche]Gauche $S=
  3812. [ -Centre]Centre $S=
  3813. [ -Droite]Droite $S=
  3814.  
  3815. [Aligne]A $S=
  3816. [Centre]C $S=
  3817. [fixe]F $S=
  3818. [milieu]M $S=
  3819. [Droite]D $S=
  3820.  
  3821.  
  3822. [__PREC__]$S=
  3823. **TEXTSET 5
  3824. [TXTDYN]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2 $T4=DTEXT3 $T4=DTEXT4 +
  3825. $T4=DTEXT5 $T4=DTEXT6
  3826.  
  3827. [REG.TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2 $T4=TEXT3 $T4=TEXT4 +
  3828. $T4=TEXT5 $T4=TEXT6
  3829.  
  3830. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  3831. **STYLE 3
  3832. [STYLE:]^C^CSTYLE
  3833. ?
  3834.  
  3835. [Polices]$S=X $S=F1
  3836.  
  3837. Oui
  3838. Non
  3839.  
  3840. [TXTDYN:]$S=X $S=DTEXT ^C^CTXTDYN
  3841. [TEXTE:]$S=X $S=TEXT ^C^CTEXTE
  3842. **F1 3
  3843. Cyrillic
  3844. Cyriltlc
  3845. Greekc
  3846. GreekS
  3847. Gothice
  3848. Gothicg
  3849. Gothici
  3850. Italicc
  3851. Italict
  3852. Romanc
  3853. Romand
  3854. Romans
  3855.  
  3856.  
  3857.  
  3858.  
  3859. [suivant]$S=X $S=F2
  3860. [STYLEMNU]$S=X $S=STYLE
  3861. **F2 3
  3862. Romant
  3863. Scrisc
  3864. Scripts
  3865. Syastro
  3866. Symap
  3867. Symath
  3868. Symeteo
  3869. Symusic
  3870.  
  3871.  
  3872.  
  3873.  
  3874.  
  3875.  
  3876.  
  3877.  
  3878. [Précéd.]$S=X $S=F1
  3879. [STYLEMNU]$S=X $S=STYLE
  3880. **DTEXT 3
  3881. [TXTDYN:]^C^CTXTDYN
  3882. [TEXTE:]^C^CTEXTE
  3883.  
  3884. [Options]$S=TEXTOPTS
  3885. Style
  3886.  
  3887. Aligne
  3888. [Centre]C
  3889. Fixe
  3890. Milieu
  3891. Droite
  3892.  
  3893. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  3894. **AXIS 3
  3895. [AXES:]^C^CAXES
  3896.  
  3897. [axs=réso]RESOL
  3898.  
  3899. ACtif
  3900. INactif
  3901. Aspect
  3902. **BLIPMODE 3
  3903. [MARQUES:]^C^CMARQUES
  3904.  
  3905. ACtif
  3906. INactif
  3907. **END 3
  3908. [FIN ?]
  3909.  
  3910. Oui
  3911. Non
  3912. **QUIT 3
  3913. [QUITTER:]^C^CQUITTER
  3914.  
  3915. [Oui]O
  3916. [Non]N $S=X $S=S
  3917. **VAR1 3
  3918. [cotalt]$S=X $S=OF COTALT \
  3919. [cotaltd]COTALTD \
  3920. [cotaltf]COTALTF \
  3921. [cotapost]COTAPOST \
  3922. [cotaso]$S=X $S=OF COTASO \
  3923. [cotdfl]COTDFL \
  3924. [--------]
  3925. [cotbloc]COTBLOC \
  3926. [cotbloc1]COTBLOC1 \
  3927. [cotbloc2]COTBLOC2 \
  3928. [--------]
  3929. [cotcen]COTCEN \
  3930. [cotclc]COTCLC \
  3931. [cotcle]COTCLE \
  3932. [cotct]COTCT \
  3933.  
  3934. [suivant]$S=X $S=VAR2
  3935. [COTMENU]$S=X $S=DIM
  3936.  
  3937.  
  3938. **VAR2 3
  3939. [cotelc]COTELC \
  3940. [coteli]COTELI \
  3941. [cotple]COTPLE \
  3942. [cotoex]COTOEX \
  3943. [cotesp]COTESP \
  3944. [cotfacl]COTFACL \
  3945. [cotlim]$S=X $S=OF COTLIM \
  3946. [cotpost]COTPOST \
  3947. [cotrnd]COTRND \
  3948. [cotpfs]$S=X $S=OF COTPFS \
  3949. [cotech]COTECH \
  3950. [cots1e]$S=X $S=OF COTS1E \
  3951. [cots2e]$S=X $S=OF COTS2E \
  3952.  
  3953.  
  3954. [Précéd.]$S=X $S=VAR1
  3955. [suivant]$S=X $S=VAR3
  3956. [COTMENU]$S=X $S=DIM
  3957.  
  3958.  
  3959. **VAR3 3
  3960. [cotdyn]$S=X $S=OF COTDYN \
  3961. [cotschr]$S=X $S=OF COTSCHR \
  3962. [cottdl]$S=X $S=OF COTTDL \
  3963. [cotft]COTFT \
  3964. [cottih]$S=X $S=OF COTTIH \
  3965. [cotdlr]$S=X $S=OF COTDLR \
  3966. [cottn]COTTN \
  3967. [cotchlr]$S=X $S=OF COTCHLR \
  3968. [cotteh]$S=X $S=OF COTTEH \
  3969. [cottol]$S=X $S=OF COTTOL \
  3970. [cottp]COTTP \
  3971. [cotdma]COTDMA \
  3972. [cottvp]COTTVP \
  3973. [cottxt]COTTXT \
  3974. [cotzp]$S=X $S=DIMZIN COTZP \
  3975.  
  3976.  
  3977. [Précéd.]$S=X $S=VAR2
  3978. [COTMENU]$S=X $S=DIM
  3979. **OF 3
  3980. [ACtif]$S= $S= ACtif
  3981.  
  3982. [INactif]$S= $S= INactif
  3983. **DIMZIN 4
  3984. [Nouvelle]
  3985. [ valeur]
  3986. [ Dimzin]
  3987.  
  3988.  
  3989.  
  3990.  
  3991. [0]$S= $S= 0
  3992. [1]$S= $S= 1
  3993. [2]$S= $S= 2
  3994. [3]$S= $S= 3
  3995. **FORMAT 3
  3996. [COT:]^C^CCOT
  3997. [COT1:]^C^CCOT1
  3998.  
  3999. [INITEXTE]$S=X $S=HOMETEXT INITXT
  4000. [AJOUR]$S=X $S=UPDATE AJOUR
  4001. [TXTNOUV]$S=X $S=NEWTEXT TXTNOUV
  4002.  
  4003. [Cotstyle]'DIMSTYLE
  4004. SAUVER
  4005. RESTAURE
  4006. REECRIRE
  4007. [Variabls]VARIABLES
  4008. ?
  4009.  
  4010.  
  4011. [COTMENU]$S=X $S=DIM
  4012. **HOMETEXT 3
  4013. [COT:]^C^CCOT
  4014. [COT1:]^C^CCOT1
  4015.  
  4016. INITXT
  4017.  
  4018. Fenêtre
  4019. Dernier
  4020. Précédent
  4021. Capture
  4022. Retirer
  4023. Ajouter
  4024. annUler
  4025. **UPDATE 3
  4026. [COT:]^C^CCOT
  4027. [COT1:]^C^CCOT1
  4028.  
  4029. AJOUR
  4030.  
  4031. Fenêtre
  4032. Dernier
  4033. Précédent
  4034. Capture
  4035. Retirer
  4036. Ajouter
  4037. annUler
  4038. **NEWTEXT 3
  4039. [DIM:]^C^CDIM
  4040. [DIM1:]^C^CDIM1
  4041.  
  4042. TXTNOUV
  4043.  
  4044. Fenêtre
  4045. Dernier
  4046. Précédent
  4047. Capture
  4048. Retirer
  4049. Ajouter
  4050. annUler
  4051. **LINETYPE 3
  4052. [TYPLIGN:]^C^CTYPELIGN
  4053. ?
  4054.  
  4055. CRéer
  4056. CHarger
  4057. [Actuel]Actuel $S=X $S=CHLT \$S=X $S=LINETYPE
  4058.  
  4059. Oui
  4060. Non
  4061. **LIMITS 3
  4062. [LIMITES:]^C^CLIMITES
  4063.  
  4064. Actives
  4065. INactives
  4066. **SNAP 3
  4067. [RESOL:]^C^CRESOL
  4068.  
  4069. ACtif
  4070. INactif
  4071.  
  4072. ASpect
  4073. Rotation
  4074.  
  4075. Style
  4076. [ ISo]ISo;
  4077. [Standard]Standard;
  4078. **TABLET 3
  4079. [TABLET:]^C^CTABLETTE
  4080.  
  4081. CALibrage
  4082. [ConFiG]CFG 4 25 9 11 9 9 13 25 7 O
  4083. [re-CFG]CFG 4 O 25 9 11 9 9 13 25 7 O
  4084. ACtif
  4085. INactif
  4086. Oui
  4087. Non
  4088. **OSNAPC 3
  4089. [ACCROBJ:]^C^CACCROBJ
  4090.  
  4091. [CENtre]CENTRE\
  4092. [EXTrem]EXTREMITE\
  4093. [INSert]INSERTION\
  4094. [INTersec]INTERSEC\
  4095. [MILieu]MILIEU\
  4096. [PROche]PROCHE\
  4097. [NODal]NODAL\
  4098. [PERpend]PERPEND\
  4099. [QUAdrant]QUADRANT\
  4100. [TANgent]TANGENT\
  4101. [AUCUN]AUCUN\ $S= $S=
  4102. [RAPide,]RAPIDE,^Z
  4103. [,],\
  4104. **DRAGMODE 3
  4105. [EVOLDYN]^C^CEVOLDYN
  4106.  
  4107. [ACtif]ACtif $S=S
  4108. [INactif]INactif $S=S
  4109. [Auto]A $S=S
  4110.  
  4111. **GRID 3
  4112. [GRILLE:]^C^CGRILLE
  4113.  
  4114. [gri=résol]RESOL
  4115.  
  4116. ACtif
  4117. INactif
  4118. Aspect
  4119. **HANDLES 3
  4120. [MAINTIEN]^C^CMAINTIEN
  4121.  
  4122. ACtif
  4123. [DETRUIRE]DETRUIRE
  4124.  
  4125. **SETVAR1 3
  4126. [MODIVAR:]^C^CMODIFVAR
  4127. ['MODIVAR]'MODIFVAR
  4128. [Variab ?]'MODIFVAR ?
  4129.  
  4130. *
  4131. **QTEXT 3
  4132. [TEXTRAP:]^C^CRAPTEXTE
  4133.  
  4134. ACtif
  4135. INactif
  4136. [REGEN:]REGEN
  4137. **VIEWRES 3
  4138. [RESVUE:]^C^CRESVUE
  4139.  
  4140. Oui
  4141. Non
  4142.  
  4143. 100
  4144. 500
  4145.  
  4146. [RGNAUTO:]^C^CREGNAUTO
  4147. [ ACtif]ACtif
  4148. [ INactif]INactif
  4149. **APERTURE 3
  4150. [OUVERTU:]'OUVERTUR
  4151. [PICKBOX:]'PICKBOX
  4152.  
  4153. [1]$S= $S= 1
  4154. [2]$S= $S= 2
  4155. [3]$S= $S= 3
  4156. [4]$S= $S= 4
  4157. [5]$S= $S= 5
  4158. [6]$S= $S= 6
  4159. [7]$S= $S= 7
  4160. [8]$S= $S= 8
  4161. [9]$S= $S= 9
  4162. [10]$S= $S= 10
  4163. [15]$S= $S= 15
  4164. **ARRAY 3
  4165. [RESEAU:]^C^CRESEAU
  4166.  
  4167. Fenêtre
  4168. Dernier
  4169. Précédent
  4170. Capture
  4171. Retirer
  4172. Ajouter
  4173. annUler
  4174.  
  4175. Rectangu
  4176. Polaire
  4177. Oui
  4178. Non
  4179. **ROTATE 3
  4180. [ROTATIO:]^C^CROTATION
  4181.  
  4182. Fenêtre
  4183. Dernier
  4184. Précédent
  4185. Capture
  4186. Retirer
  4187. Ajouter
  4188. annUler
  4189.  
  4190. Référence
  4191. **SELECT 3
  4192. [SELECT:]^C^CSELECT
  4193.  
  4194. Fenêtre
  4195. Dernier
  4196. Précédent
  4197. Capture
  4198. Retirer
  4199. Ajouter
  4200. annUler
  4201.  
  4202. **SCALE 3
  4203. [ECHELLE:]^C^CECHELLE
  4204.  
  4205. Fenêtre
  4206. Dernier
  4207. Précédent
  4208. Capture
  4209. Retirer
  4210. Ajouter
  4211. annUler
  4212.  
  4213. Référence
  4214. **BREAK 3
  4215. [COUPURE:]^C^CCOUPURE
  4216.  
  4217. Premier
  4218. @
  4219. **BREAK2P 3
  4220. [COUPURE:]^C^CCOUPURE \P
  4221.  
  4222. Premier
  4223. @
  4224. **BREAKSPL 3
  4225. [COUPURE:]^C^CCOUPURE \P \@
  4226.  
  4227. Premier
  4228. @
  4229. **MOVE 3
  4230. [DEPLACE:]^C^CDEPLACER
  4231.  
  4232. Fenêtre
  4233. Dernier
  4234. Précédent
  4235. Capture
  4236. Retirer
  4237. Ajouter
  4238. annUler
  4239. **COPY 3
  4240. [COPIER:]^C^CCOPIER
  4241.  
  4242. Fenêtre
  4243. Dernier
  4244. Précédent
  4245. Capture
  4246. Retirer
  4247. Ajouter
  4248. annUler
  4249.  
  4250. Multiple
  4251. **DDEDIT 3
  4252. [DDEDIT:]^C^CDDEDIT
  4253.  
  4254. Dernier
  4255. annUler
  4256. **UNDO 3
  4257. [ANNULER]^C^CANNULER
  4258.  
  4259. [Retour 1]^C^CANNULER 1
  4260.  
  4261. [Auto]$S=X $S=UNDOA Auto
  4262. Retour
  4263. Fin
  4264. Groupe
  4265. Marque
  4266. [Contrôle]$S=X $S=UNDOC Contrôle
  4267.  
  4268. Oui
  4269. Non
  4270.  
  4271. [RETABLR:]RETABLIR
  4272. **UNDOC 3
  4273. Tout
  4274. Aucun
  4275. Un
  4276. **UNDOA 3
  4277. ACtif
  4278. INactif
  4279. **ERASE 3
  4280. [EFFACER:]^C^CEFFACER
  4281.  
  4282. Fenêtre
  4283. Dernier
  4284. Précédent
  4285. Capture
  4286. Retirer
  4287. Ajouter
  4288. annUler
  4289.  
  4290. [REPRISE:]^C^CREPRISE
  4291. **PSEL 4
  4292. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  4293. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  4294. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  4295. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  4296. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  4297. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  4298. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  4299. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  4300. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  4301. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  4302. (princ));PEDITM;^P
  4303.  
  4304. CADre
  4305. Capture
  4306. Dernier
  4307. Fenêtre
  4308.  
  4309. Oui
  4310. Non
  4311.  
  4312. **P0 3
  4313. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  4314. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  4315. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  4316. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  4317. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  4318. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  4319. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  4320. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  4321. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  4322. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  4323. (princ));PEDITM;^P
  4324.  
  4325. Clore
  4326. Ouvrir
  4327. Joindre
  4328. Epaiss
  4329. [ModifSom]Modif_sommet $S=X $S=PVERTED
  4330. [LisCourb]Lissage
  4331. Pspline
  4332. Retrouv
  4333. annUler
  4334. [Sortir]Sortir $S=X $S=S
  4335.  
  4336. [Var.Poly]$S=X $S=PVARS $I=poly $I=*
  4337. **P8 3
  4338. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  4339. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  4340. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  4341. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  4342. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  4343. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  4344. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  4345. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  4346. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  4347. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  4348. (princ));PEDITM;^P
  4349.  
  4350. Clore
  4351. Ouvrir
  4352. [ModifSom]Modif_sommet $S=X $S=3DPVERTED
  4353. Pspline
  4354. Retrouv
  4355. annUler
  4356. [Sortir]Sortir $S=X $S=S
  4357.  
  4358. [Var.Poly]$S=X $S=PVARS $I=poly $I=*
  4359. **P16 3
  4360. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  4361. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  4362. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  4363. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  4364. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  4365. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  4366. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  4367. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  4368. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  4369. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  4370. (princ));PEDITM;^P
  4371.  
  4372. [Edit Som]Edit $S=X $S=3DMVERTED
  4373. Lisser
  4374. Retrouver
  4375. MClore
  4376. NClore
  4377. MOuvrir
  4378. NOUvrir
  4379.  
  4380. annUler
  4381. [Sortir]Sortir $S=X $S=S
  4382.  
  4383. [Var.Poly]$S=X $S=PVARS $I=poly $I=*
  4384. **PVERTED 3
  4385. [MODIFSOM]
  4386.  
  4387. suivaNt
  4388. Précédent
  4389. Coupure
  4390. Insérer
  4391. Déplacer
  4392. Linéair
  4393. Epaiss
  4394. Tangent
  4395. Go
  4396. Regen
  4397. [Annuler]Sortir annUler $S=X $S=P0
  4398. [Sortir]Sortir $S=X $S=P0
  4399. **3DPVERTED 3
  4400. [MODIFSOM]
  4401.  
  4402. suivaNt
  4403. Précédent
  4404. Go
  4405. Coupure
  4406. Insérer
  4407. Déplacer
  4408. Regen
  4409. Epaiss
  4410. [Sortir]Sortir $S=X $S=P8
  4411. **3DMVERTED 3
  4412. [EDIT SOM]
  4413.  
  4414. suivaNt
  4415. Précédent
  4416. Gauche
  4417. Droite
  4418. Haut
  4419. Bas
  4420. Déplacer
  4421. Regen
  4422. [Sortir]S $S=X $S=P16
  4423. **PVARS 3
  4424. [Var.Poly]$I=poly $I=*
  4425.  
  4426. [Armature]'SPLFRAME
  4427. [ ACtif]1
  4428. [ INactif]0
  4429. [Segments]'SPLINESEGS
  4430. [Typ.Liss]'SPLINETYPE
  4431. [Quadrat.]5
  4432. [Cubique]6
  4433. [TypeSurf]'SURFTYPE
  4434. [Quadrat]5
  4435. [Cubique]6
  4436. [Bezier]8
  4437. [DensitéU]'SURFU
  4438. [DensitéV]'SURFV
  4439. **TRIM 3
  4440. [AJUSTER:]^C^CAJUSTER
  4441.  
  4442. Fenêtre
  4443. Dernier
  4444. Précédent
  4445. Capture
  4446. Retirer
  4447. Ajouter
  4448. annUler
  4449. **ATTEXT 3
  4450. [ATTEXTR:]^C^CATTEXTR
  4451.  
  4452. CDF
  4453. SDF
  4454. DXF
  4455. Entités
  4456.  
  4457. Fenêtre
  4458. Dernier
  4459. Précédent
  4460. Capture
  4461. Retirer
  4462. Ajouter
  4463. annUler
  4464. **AUDIT 3
  4465.  
  4466. Oui
  4467. Non
  4468. **SLIDES 3
  4469. [MCLICHE:]^C^CMCLICHE
  4470.  
  4471. [AFCLICH:]^C^CAFFCLICH
  4472.  
  4473. [REDESS:]$S=X $S=S ^C^CREDESS
  4474. **SCRIPT 3
  4475. [SCRIPT:]^C^CSCRIPT
  4476.  
  4477. [RESUMER:]'RESUMER
  4478. [RSCRIPT:]^C^CRSCRIPT
  4479. **PURGE 3
  4480. [PURGER:]^C^CPURGER
  4481.  
  4482. Blocs
  4483. Cotstyls
  4484. PLans
  4485. TLignes
  4486. FOrmes
  4487. STyles
  4488. TOut
  4489.  
  4490. Oui
  4491. Non
  4492. **RENAME 3
  4493. [RNOMMER:]^C^CRENOMMER
  4494.  
  4495. Bloc
  4496. Cotstyl
  4497. PLan
  4498. TLigne
  4499. Style
  4500. SCu
  4501. VUe
  4502. FEnêtre
  4503. **DXF 3
  4504. [CHARDXF:]^C^CCHARGDXF
  4505.  
  4506. [SAUVDXF:]^C^CSAUVEDXF
  4507. 16
  4508. Entités
  4509.  
  4510. Fenêtre
  4511. Dernier
  4512. Précédent
  4513. Capture
  4514. Retirer
  4515. Ajouter
  4516. annUler
  4517.  
  4518. [CHARDXB:]^C^CCHARGDXB
  4519. **IGES 3
  4520. [CHRIGES:]^C^CCHARIGES
  4521.  
  4522. [SAVIGES:]^C^CSAUVIGES
  4523. **EXTEND 3
  4524. [PROLONG:]^C^CPROLONGE
  4525.  
  4526. Fenêtre
  4527. Dernier
  4528. Précédent
  4529. Capture
  4530. Retirer
  4531. Ajouter
  4532. annUler
  4533.  
  4534. [SELECT:]^C^CSELECT
  4535. [ZOOM F:]'ZOOM F
  4536. **STRETCH 3
  4537. [ETIRER:]^C^CETIRER C
  4538.  
  4539. Fenêtre
  4540. Dernier
  4541. Précédent
  4542. Capture
  4543. Retirer
  4544. Ajouter
  4545. annUler
  4546. **MIRROR 3
  4547. [MIROIR:]^C^CMIROIR
  4548. Fenêtre
  4549. Dernier
  4550. Précédent
  4551. Capture
  4552. Retirer
  4553. Ajouter
  4554. annUler
  4555.  
  4556. Oui
  4557. Non
  4558. **FILLET0 3
  4559. [RACCOR:0]^C^CRACCORD R 0;;
  4560.  
  4561. Polyligne
  4562. **FILLET 3
  4563. [RACCORD:]^C^CRACCORD
  4564.  
  4565. [rayon]R \RACCORD
  4566. [rayon 0]R 0 RACCORD
  4567. Polyligne
  4568. **CHAMFER 3
  4569. [CHANFRN:]^C^CCHNFREIN
  4570.  
  4571. [Ecarts]E \\CHNFREIN
  4572. [Ecarts=0]E 0 0 CHNFREIN
  4573. Polyligne
  4574. **DIVIDE 3
  4575. [DIVISER:]^C^CDIVISER
  4576.  
  4577. Bloc
  4578. Oui
  4579. Non
  4580. **MEASURE 3
  4581. [MESURER:]^C^CMESURER
  4582.  
  4583. Bloc
  4584. Oui
  4585. Non
  4586. **CHANGE 3
  4587. [CHANGER:]^C^CCHANGER
  4588. Fenêtre
  4589. Dernier
  4590. Précédent
  4591. Capture
  4592. Retirer
  4593. Ajouter
  4594. annUler
  4595. [Couleur]PR C $S=X $S=CHCOLOR \ $S=X $S=CHANGE
  4596. [Chroma]^C^CAFFCLICH acad(chroma)
  4597. [ REDESS]^C^CREDESS
  4598. [Plan]PR P
  4599. [Tligne]PR T $S=X $S=CHLT \$S=X $S=CHANGE
  4600. [Haut.obj]PR H
  4601. **CHPROP 3
  4602. [CHPROP:]^C^CCHPROP
  4603. Fenêtre
  4604. Dernier
  4605. Précédent
  4606. Capture
  4607. Retirer
  4608. Ajouter
  4609. annUler
  4610. [Couleur]PR C $S=X $S=CHCOLOR \$S=X $S=CHPROP
  4611. [Chroma]^C^CAFFCLICH acad(chroma)
  4612. [ REDESS]^C^CREDESS
  4613. [Plan]PR P
  4614. [Tligne]PR T $S=X $S=CHLT \$S=X $S=CHPROP
  4615. [Haut.obj]PR H
  4616. **CHCOLOR 3
  4617. [COULEUR]
  4618.  
  4619. [Du plan] duplan
  4620. [Du bloc] dubloc
  4621.  
  4622. rouge
  4623. jaune
  4624. vert
  4625. cyan
  4626. bleu
  4627. magenta
  4628. blanc
  4629. gris
  4630. [roug som]9
  4631. [jaun som]10
  4632. [vert som]11
  4633. [cyan som]12
  4634. [bleu som]13
  4635. [magt som]14
  4636. [gris som]15
  4637.  
  4638. **CHLT 3
  4639. [TYPLIGNE]
  4640.  
  4641. bylayer
  4642. byblock
  4643.  
  4644. [contin.]CONTINUOUS
  4645. discontinu
  4646. caché
  4647. axes
  4648. fantôme
  4649. pointillé
  4650. tiretpoint
  4651. bordure
  4652. divisé
  4653.  
  4654. **COLOR 3
  4655. [COULEUR:]^C^CCOULEUR
  4656. bylayer
  4657. byblock
  4658. rouge
  4659. jaune
  4660. vert
  4661. cyan
  4662. bleu
  4663. magenta
  4664. blanc
  4665.  
  4666. [Chroma]^C^CAFFCLICH acad(chroma)
  4667. [ REDESS]^C^CREDESS
  4668. **ATTEDIT 3
  4669. [ATTEDIT:]^C^CATTEDIT
  4670. Fenêtre
  4671. Dernier
  4672. Capture
  4673. Retirer
  4674. Ajouter
  4675. annUler
  4676.  
  4677. [Valeur]Valeur $S=X $S=ATTEDIT2
  4678. POsition
  4679. Hauteur
  4680. Angle
  4681. Style
  4682. Plan
  4683. [Couleur]Couleur $S=X $S=ATTCOLOR
  4684. suivaNt
  4685.  
  4686. [__PREC__]$S= $S=
  4687. **ATTEDIT2 3
  4688.  
  4689. [Changer]Changer $S=X $S=ATTEDIT
  4690. [Remplace]Remplacer $S=X $S=ATTEDIT
  4691. **ATTCOLOR 3
  4692. [COULEUR]
  4693.  
  4694. [rouge]ROUGE $S= $S=
  4695. [jaune]JAUNE $S= $S=
  4696. [vert]VERT $S= $S=
  4697. [cyan]CYAN $S= $S=
  4698. [bleu]BLEU $S= $S=
  4699. [magenta]MAGENTA $S= $S=
  4700. [blanc]BLANC $S= $S=
  4701. **UNITS 2
  4702.  
  4703. [TYPE    ]
  4704. [D'UNITE ]
  4705.  
  4706. [Scientif]1;
  4707.  
  4708. [Décimale]2;
  4709.  
  4710. [Ingénier]3;
  4711.  
  4712. [Architec]4;
  4713.  
  4714. [Mètrique]5;
  4715.  
  4716.  
  4717.  
  4718.  
  4719.  
  4720.  
  4721. **U1 2
  4722.  
  4723. [Echelle ]
  4724. [Scientif]
  4725.  
  4726.  
  4727. [4 FOIS  ]4.0;
  4728.  
  4729. [2 FOIS  ]2.0;
  4730.  
  4731. [ENTIER  ]1.0;
  4732.  
  4733. [DEMI    ]0.5;
  4734.  
  4735. [QUART   ]0.25;
  4736.  
  4737. [Autre   ]^P0;^P
  4738.  
  4739.  
  4740.  
  4741.  
  4742. **U2 2
  4743.  
  4744. [Echelle ]
  4745. [Décimale]
  4746.  
  4747.  
  4748. [4 FOIS  ]4.0;
  4749.  
  4750. [2 FOIS  ]2.0;
  4751.  
  4752. [ENTIER  ]1.0;
  4753.  
  4754. [DEMI    ]0.5;
  4755.  
  4756. [QUART   ]0.25;
  4757.  
  4758. [Autre   ]^P0;^P
  4759.  
  4760.  
  4761.  
  4762.  
  4763. **U3 2
  4764.  
  4765. [Echelle ]
  4766. [Ingénier]
  4767.  
  4768.  
  4769. [1"=10'  ]120.0;
  4770. [1"=20'  ]240.0;
  4771.  
  4772. [1"=30'  ]360.0;
  4773. [1"=40'  ]480.0;
  4774.  
  4775. [1"=50'  ]600.0;
  4776. [1"=60'  ]720.0;
  4777.  
  4778. [1"=80'  ]960.0;
  4779. [1"=100' ]1200.0;
  4780.  
  4781. [Autre   ]^P0;^P
  4782.  
  4783.  
  4784. **U4 2
  4785.  
  4786. [Architec]
  4787.  
  4788.  
  4789. [1/40"=1']480.0;
  4790. [1/20"=1']240.0;
  4791. [1/16"=1']192.0;
  4792. [ 1/8"=1']96.0;
  4793. [ 1/4"=1']48.0;
  4794.  
  4795. [ 1/2"=1']24.0;
  4796. [ 3/4"=1']16.0;
  4797. [   1"=1']12.0;
  4798. [   3"=1']4.0;
  4799. [   6"=1']2.0;
  4800. [ ENTIER ]1.0;
  4801.  
  4802. [Autre...]^P0;^P
  4803.  
  4804.  
  4805. **U5 2
  4806.  
  4807. [Mètrique]
  4808.  
  4809. [ 1:5000 ]5000.0;
  4810. [ 1:2000 ]2000.0;
  4811. [ 1:1000 ]1000.0;
  4812. [ 1:500  ]500.0;
  4813. [ 1:200  ]200.0;
  4814.  
  4815. [ 1:100  ]100.0;
  4816. [ 1:75   ]75.0;
  4817. [ 1:50   ]50.0;
  4818. [ 1:20   ]20.0;
  4819. [ 1:10   ]10.0;
  4820. [ 1:5    ]5.0;
  4821. [ ENTIER ]1.0;
  4822.  
  4823. [Autre...]^P0;^P
  4824.  
  4825.  
  4826. **ENGLISH 2
  4827.  
  4828. [Horizon.]
  4829.  
  4830. [ Format ]
  4831. [ Papier ]
  4832.  
  4833. [A-8.5x11]11.0 8.5;
  4834. [B- 11x17]17.0 11.0;
  4835. [C- 17x22]22.0 17.0;
  4836. [   18x24]24.0 18.0;
  4837.  
  4838. [D- 22X34]34.0 22.0;
  4839. [   24x36]36.0 24.0;
  4840. [E- 34x44]44.0 34.0;
  4841.  
  4842. [Autre...]^P0 0;^P
  4843.  
  4844. [VERTICL>]$S=X $S=ENGVERT
  4845.  
  4846.  
  4847. **ENGVERT 2
  4848.  
  4849. [Vertical]
  4850.  
  4851. [ Format ]
  4852. [ Papier ]
  4853.  
  4854. [A-8.5x11]8.5 11.0;
  4855. [B- 11x17]11.0 17.0;
  4856. [C- 17x22]17.0 22.0;
  4857. [   18x24]18.0 24.0;
  4858.  
  4859. [D- 22X34]22.0 34.0;
  4860. [   24x36]24.0 36.0;
  4861. [E- 34x44]34.0 44.0;
  4862.  
  4863. [Autre...]^P0 0;^P
  4864.  
  4865. [HORIZON>]$S=X $S=ENGLISH
  4866.  
  4867.  
  4868. **METRIC 2
  4869.  
  4870. [Horizon.]
  4871.  
  4872. [ Format ]
  4873. [ Papier ]
  4874.  
  4875. [1189x841]1189.0 841.0;
  4876. [1000x707]1000.0 707.0;
  4877. [ 841x594]841.0 594.0;
  4878.  
  4879. [ 594x420]594.0 420.0;
  4880. [ 420x297]420.0 297.0;
  4881. [ 297x210]297.0 210.0;
  4882.  
  4883. [Autre...]^P0 0;^P
  4884.  
  4885.  
  4886. [VERTICL>]$S=X $S=METRICVERT
  4887.  
  4888.  
  4889. **METRICVERT 2
  4890.  
  4891. [Vertical]
  4892.  
  4893. [ Format ]
  4894. [ Papier ]
  4895.  
  4896. [1189x841]841.0 1189.0;
  4897. [1000x707]707.0 1000.0;
  4898. [ 841x594]594.0 841.0;
  4899.  
  4900. [ 594x420]420.0 594.0;
  4901. [ 420x297]297.0 420.0;
  4902. [ 297x210]210.0 297.0;
  4903.  
  4904. [Autre...]^P0 0;^P
  4905.  
  4906.  
  4907. [HORIZON>]$S=X $S=METRIC
  4908.  
  4909.  
  4910. **EXCOMDS 3
  4911. [CATALOG:]^C^CCATALOG
  4912. [DEL:]^C^CDEL
  4913. [DIR:]^C^CDIR
  4914. [EDIT:]^C^CEDIT
  4915. [SH:]^C^CSH
  4916. [SHELL:]^C^CSHELL
  4917. [TYPE:]^C^CTYPE
  4918.  
  4919. ***Commentaire
  4920.         Le nouveau menu TABLET1 contient les code pour AME et
  4921.         AutoShade. Vous pouvez mettre vos macros et menu
  4922.         dans l'espace réservé ici.
  4923.         Toutes les lignes "blanches" qui contiennent un espace
  4924.         équivalent à un RETURN sur le menu de votre tablette.
  4925.         Enlevélez-les si vous voulez que rien ne se passe lors
  4926.         de la selection ou placez vos propres macros à leur
  4927.         place.
  4928.  
  4929. ***TABLET1
  4930. [A-1]
  4931. [A-2]
  4932. [A-3]
  4933. [A-4]
  4934. [A-5]
  4935. [A-6]
  4936. [A-7]
  4937. [A-8]
  4938. [A-9]
  4939. [A-10]
  4940. [A-11]
  4941. [A-12]
  4942. [A-13]
  4943. [A-14]
  4944. [A-15]
  4945. [A-16]
  4946. [A-17]
  4947. [A-18]
  4948. [A-19]
  4949. [A-20]
  4950. [A-21]
  4951. [A-22]
  4952. [A-23]
  4953. [A-24]
  4954. [A-25]
  4955. [B-1]^C^C^P(progn(setq m:err *error*)(princ))+
  4956. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  4957. (if (null c:SOLDEPL)(defun c:SOLDEPL () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  4958. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  4959. (princ "  Chargez AME ou AMElite à partir du menu Ecran. ")+
  4960. (setq c:SOLDEPL nil)(princ))+
  4961. (progn (menucmd "S=X")(menucmd "S=SMOVE")))(princ);^PSOLDEPL
  4962. [B-2]^C^C^P(progn(setq m:err *error*)(princ))+
  4963. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  4964. (if (null c:SOLCHANF)(defun c:SOLCHANF () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  4965. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  4966. (princ "  Chargez AME ou AMElite à partir du menu Ecran. ")+
  4967. (setq c:SOLCHANF nil)(princ))+
  4968. (progn (menucmd "S=X")(menucmd "S=SCHAM")))(princ);^PSOLCHANF
  4969. [B-3]^C^C^P(progn(setq m:err *error*)(princ))+
  4970. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  4971. (if (null c:SOLINTER)(defun c:SOLINTER () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  4972. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  4973. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  4974. (setq c:SOLINTER nil)(princ))+
  4975. (progn (menucmd "S=X")(menucmd "S=SINT")))(princ);^PSOLINTER
  4976. [B-4]^C^C^P(progn(setq m:err *error*)(princ))+
  4977. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  4978. (if (null c:SOLBOITE)(defun c:SOLBOITE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  4979. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  4980. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  4981. (setq c:SOLBOITE nil)(princ))+
  4982. (progn (menucmd "S=X")(menucmd "S=SBOX")))(princ);^PSOLBOITE
  4983. [B-5]^C^C^P(progn(setq m:err *error*)(princ))+
  4984. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  4985. (if (null c:SOLCONE)(defun c:SOLCONE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  4986. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  4987. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  4988. (setq c:SOLCONE nil)(princ))+
  4989. (progn (menucmd "S=X")(menucmd "S=SCONE")))(princ);^PSOLCONE
  4990. [B-6]^C^C^P(progn(setq m:err *error*)(princ))+
  4991. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  4992. (if (null c:SOLCYL)(defun c:SOLCYL () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  4993. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  4994. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  4995. (setq c:SOLCYL nil)(princ))+
  4996. (progn (menucmd "S=X")(menucmd "S=SCYL")))(princ);^PSOLCYL
  4997. [B-7]
  4998. [B-8]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  4999. (princ"Erreur de chargement: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  5000. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASHC")+
  5001. ((= G:SVER 11) "S=ASH11C")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  5002. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  5003. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  5004. (setq C:CAMERA (list '()'(terpri)+
  5005. (list 'prompt (strcat "Le fichier '" (findfile "ashade.lsp")));+
  5006. (list 'prompt "' est incompatible avec AutoCAD v11.")+
  5007. (list 'setq 'C:CAMERA '())'(princ))m:shmn (princ))))(T(defun C:CAMERA()(terpri);+
  5008. (prompt"Le fichier 'Ashade.lsp' ne se trouve pas dans le répertoire courant.")+
  5009. (terpri)(prompt"Voyez votre manuel AutoShade.");+
  5010. (setq C:CAMERA nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  5011. CAMERA
  5012. [B-9]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5013. (princ"Erreur de chargement: ")(princ msg);+
  5014. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  5015. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASHC");+
  5016. ((= G:SVER 11) "S=ASH11C")(T "S=")))(setq m:shmn nil)(princ))+
  5017. (defun m:not2 (m:avar)(Set m:avar (list '()'(terpri);+
  5018. (list 'prompt "Cette commande nécessite AutoShade v2.")+
  5019. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  5020. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  5021. (m:not2 'C:VCAMERA)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  5022. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  5023. (m:not2 'C:VCAMERA))(setq C:VCAMERA (list '()'(terpri);+
  5024. (list 'prompt (strcat "Le fichier '" (findfile "ashade.lsp")))+
  5025. (list 'prompt "' est incompatible avec AutoCAD v11.");+
  5026. (list 'setq 'C:VCAMERA '())'(princ))m:shmn (princ))))(T  (defun C:VCAMERA ()+
  5027. (terpri)(prompt"Le fichier 'Ashade.lsp' ne se trouve pas dans le répertoire courant.");+
  5028. (terpri)(prompt"Voyez votre manuel AutoShade.")+
  5029. (setq C:VCAMERA nil)(princ));+
  5030. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PVCAMERA
  5031. [B-10]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5032. (princ"Erreur de chargement: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  5033. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASH")+
  5034. ((= G:SVER 11) "S=ASH11")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  5035. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  5036. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  5037. (setq C:VUECAM (list '()'(terpri)+
  5038. (list 'prompt (strcat "Le fichier '" (findfile "ashade.lsp")));+
  5039. (list 'prompt "' est incompatible avec AutoCAD v11.")+
  5040. (list 'setq 'C:VUECAM '())'(princ))m:shmn (princ))))(T(defun C:VUECAM()(terpri);+
  5041. (prompt"Le fichier 'Ashade.lsp' ne se trouve pas dans le répertoire courant.")+
  5042. (terpri)(prompt"Voyez votre manuel AutoShade.");+
  5043. (setq C:VUECAM nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  5044. VUECAM
  5045. [B-11]
  5046. [B-12]
  5047. [B-13]
  5048. [B-14]
  5049. [B-15]
  5050. [B-16]
  5051. [B-17]
  5052. [B-18]
  5053. [B-19]
  5054. [B-20]
  5055. [B-21]
  5056. [B-22]
  5057. [B-23]
  5058. [B-24]
  5059. [B-25]
  5060. [C-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5061. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5062. (if (null c:SOLSEP)(defun c:SOLSEP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5063. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5064. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5065. (setq c:SOLSEP nil)(princ))+
  5066. (progn (menucmd "S=X")(menucmd "S=SSEP")))(princ);^PSOLSEP
  5067. [C-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5068. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5069. (if (null c:SOLRACC)(defun c:SOLRACC () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5070. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5071. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5072. (setq c:SOLRACC nil)(princ))+
  5073. (progn (menucmd "S=X")(menucmd "S=SFILL")))(princ);^PSOLRACC
  5074. [C-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5075. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5076. (if (null c:SOLSOUSTR)(defun c:SOLSOUSTR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5077. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5078. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5079. (setq c:SOLSOUSTR nil)(princ))+
  5080. (progn (menucmd "S=X")(menucmd "S=SSUB")))(princ);^PSOLSOUSTR
  5081. [C-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5082. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5083. (if (null c:SOLSPHERE)(defun c:SOLSPHERE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5084. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5085. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5086. (setq c:SOLSPHERE nil)(princ))+
  5087. (progn (menucmd "S=X")(menucmd "S=SSPH")))(princ);^PSOLSPHERE
  5088. [C-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5089. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5090. (if (null c:SOLTORE)(defun c:SOLTORE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5091. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5092. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5093. (setq c:SOLTORE nil)(princ))+
  5094. (progn (menucmd "S=X")(menucmd "S=STOR")))(princ);^PSOLTORE
  5095. [C-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5096. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5097. (if (null c:SOLBISEAU)(defun c:SOLBISEAU () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5098. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5099. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5100. (setq c:SOLBISEAU nil)(princ))+
  5101. (progn (menucmd "S=X")(menucmd "S=SWEDGE")))(princ);^PSOLBISEAU
  5102. [C-7]
  5103. [C-8]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5104. (princ"Erreur de chargement: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  5105. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)(if G:RMAN+
  5106. "S=ASHLRM" "S=ASHL"))+
  5107. ((= G:SVER 11) "S=ASH11L")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  5108. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  5109. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  5110. (setq C:LUMIERE (list '()'(terpri)+
  5111. (list 'prompt (strcat "Le fichier '" (findfile "ashade.lsp")));+
  5112. (list 'prompt "' est incompatible avec AutoCAD v11.")+
  5113. (list 'setq 'C:LUMIERE '())'(princ))m:shmn (princ))))(T(defun C:LUMIERE()(terpri);+
  5114. (prompt"Le fichier 'Ashade.lsp' ne se trouve pas dans le répertoire courant.")+
  5115. (terpri)(prompt"Voyez votre manuel AutoShade.");+
  5116. (setq C:LUMIERE nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  5117. LUMIERE
  5118. [C-9]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5119. (princ"Erreur de chargement: ")(princ msg);+
  5120. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  5121. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)(if G:RMAN+
  5122. "S=ASHLRM" "S=ASHL"));+
  5123. ((= G:SVER 11) "S=ASH11L")(T "S=")))(setq m:shmn nil)(princ))+
  5124. (defun m:not2 (m:avar)(Set m:avar (list '()'(terpri);+
  5125. (list 'prompt "Cette commande nécessite AutoShade v2.")+
  5126. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  5127. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  5128. (m:not2 'C:VLUMIER)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  5129. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  5130. (m:not2 'C:VLUMIER))(setq C:VLUMIER (list '()'(terpri);+
  5131. (list 'prompt (strcat "Le fichier '" (findfile "ashade.lsp")))+
  5132. (list 'prompt "' est incompatible avec AutoCAD v11.");+
  5133. (list 'setq 'C:VLUMIER '())'(princ))m:shmn (princ))))(T  (defun C:VLUMIER ()+
  5134. (terpri)(prompt"Le fichier 'Ashade.lsp' ne se trouve pas dans le répertoire courant.");+
  5135. (terpri)(prompt"Voyez votre manuel AutoShade.")+
  5136. (setq C:VLUMIER nil)(princ));+
  5137. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PVLUMIER
  5138. [C-10]^C^CPELLICUL
  5139. [C-11]
  5140. [C-12]
  5141. [C-13]
  5142. [C-14]
  5143. [C-15]
  5144. [C-16]
  5145. [C-17]
  5146. [C-18]
  5147. [C-19]
  5148. [C-20]
  5149. [C-21]
  5150. [C-22]
  5151. [C-23]
  5152. [C-24]
  5153. [C-25]
  5154. [D-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5155. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5156. (if (null c:SOLCHP)(defun c:SOLCHP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5157. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5158. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5159. (setq c:SOLCHP nil)(princ))+
  5160. (progn (menucmd "S=X")(menucmd "S=SCHP")))(princ);^PSOLCHP
  5161. [D-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5162. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5163. (if (null c:SOLCHP)(defun c:SOLCHP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5164. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5165. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5166. (setq c:SOLCHP nil)(princ))+
  5167. (progn (menucmd "S=X")(menucmd "S=SCHP")))(princ);^PSOLCHP
  5168. [D-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5169. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5170. (if (null c:SOLUNION)(defun c:SOLUNION () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5171. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5172. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5173. (setq c:SOLUNION nil)(princ))+
  5174. (progn (menucmd "S=X")(menucmd "S=SUNION")))(princ);^PSOLUNION
  5175. [D-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5176. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5177. (if (null c:SOLEXTR)(defun c:SOLEXTR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5178. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5179. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5180. (setq c:SOLEXTR nil)(princ))+
  5181. (progn (menucmd "S=X")(menucmd "S=SEXT")))(princ);^PSOLEXTR
  5182. [D-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5183. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5184. (if (null c:SOLREV)(defun c:SOLREV () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5185. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5186. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5187. (setq c:SOLREV nil)(princ))+
  5188. (progn (menucmd "S=X")(menucmd "S=SREV")))(princ);^PSOLREV
  5189. [D-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5190. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5191. (if (null c:SOLIDIF)(defun c:SOLIDIF () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5192. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5193. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5194. (setq c:SOLIDIF nil)(princ))+
  5195. (progn (menucmd "S=X")(menucmd "S=SSOLID")))(princ);^PSOLIDIF
  5196. [D-7]
  5197. [D-8]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5198. (princ"Erreur de chargement: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  5199. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASH")+
  5200. ((= G:SVER 11) "S=ASH11A")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  5201. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  5202. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  5203. (setq C:SCENE (list '()'(terpri)+
  5204. (list 'prompt (strcat "Le fichier '" (findfile "ashade.lsp")));+
  5205. (list 'prompt "' est incompatible avec AutoCAD v11.")+
  5206. (list 'setq 'C:SCENE '())'(princ))m:shmn (princ))))(T(defun C:SCENE()(terpri);+
  5207. (prompt"Le fichier 'Ashade.lsp' ne se trouve pas dans le répertoire courant.")+
  5208. (terpri)(prompt"Voyez votre manuel AutoShade.");+
  5209. (setq C:SCENE nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  5210. SCENE
  5211. [D-9]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5212. (princ"Erreur de chargement: ")(princ msg);+
  5213. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  5214. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASH");+
  5215. ((= G:SVER 11) "S=ASH11")(T "S=")))(setq m:shmn nil)(princ))+
  5216. (defun m:not2 (m:avar)(Set m:avar (list '()'(terpri);+
  5217. (list 'prompt "Cette commande nécessite AutoShade v2.")+
  5218. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  5219. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  5220. (m:not2 'C:FINISH)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  5221. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  5222. (m:not2 'C:FINISH))(setq C:FINISH (list '()'(terpri);+
  5223. (list 'prompt (strcat "Le fichier '" (findfile "ashade.lsp")))+
  5224. (list 'prompt "' est incompatible avec AutoCAD v11.");+
  5225. (list 'setq 'C:FINISH '())'(princ))m:shmn (princ))))(T  (defun C:FINISH ()+
  5226. (terpri)(prompt"Le fichier 'Ashade.lsp' ne se trouve pas dans le répertoire courant.");+
  5227. (terpri)(prompt"Voyez votre manuel AutoShade.")+
  5228. (setq C:FINISH nil)(princ));+
  5229. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PFINISH
  5230. [D-10]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5231. (princ"Erreur de chargement: ")(princ msg);+
  5232. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  5233. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=DEFAULTS");+
  5234. ((= G:SVER 11) "S=ASH11")(T "S=")))(setq m:shmn nil)(princ))+
  5235. (defun m:not2 (m:avar)(Set m:avar (list '()'(terpri);+
  5236. (list 'prompt "Cette commande nécessite AutoShade v2.")+
  5237. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  5238. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  5239. (m:not2 'C:DEFAULTS)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  5240. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  5241. (m:not2 'C:DEFAULTS))(setq C:DEFAULTS (list '()'(terpri);+
  5242. (list 'prompt (strcat "Le fichier '" (findfile "ashade.lsp")))+
  5243. (list 'prompt "' est incompatible avec AutoCAD v11.");+
  5244. (list 'setq 'C:DEFAULTS '())'(princ))m:shmn (princ))))(T  (defun C:DEFAULTS ()+
  5245. (terpri)(prompt"Le fichier 'Ashade.lsp' ne se trouve pas dans le répertoire courant.");+
  5246. (terpri)(prompt"Voyez votre manuel AutoShade.")+
  5247. (setq C:DEFAULTS nil)(princ));+
  5248. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PDEFAULTS
  5249. [D-11]
  5250. [D-12]
  5251. [D-13]
  5252. [D-14]
  5253. [D-15]
  5254. [D-16]
  5255. [D-17]
  5256. [D-18]
  5257. [D-19]
  5258. [D-20]
  5259. [D-21]
  5260. [D-22]
  5261. [D-23]
  5262. [D-24]
  5263. [D-25]
  5264. [E-1]
  5265. [E-2]
  5266. [E-3]
  5267. [E-4]
  5268. [E-5]
  5269. [E-6]
  5270. [E-7]
  5271. [E-8]
  5272. [E-9]
  5273. [E-10]
  5274. [E-11]
  5275. [E-12]
  5276. [E-13]
  5277. [E-14]
  5278. [E-15]
  5279. [E-16]
  5280. [E-17]
  5281. [E-18]
  5282. [E-19]
  5283. [E-20]
  5284. [E-21]
  5285. [E-22]
  5286. [E-23]
  5287. [E-24]
  5288. [E-25]
  5289. [F-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5290. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5291. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5292. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5293. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5294. (setq c:SOLVAR nil)(princ))+
  5295. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR SOLDECOMP
  5296. [F-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5297. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5298. (if (null c:SOLLISTE)(defun c:SOLLISTE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5299. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5300. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5301. (setq c:SOLLISTE nil)(princ))+
  5302. (progn (menucmd "S=X")(menucmd "S=SLIST")))(princ);^PSOLLISTE
  5303. [F-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5304. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5305. (if (null c:SOLIMP)(defun c:SOLIMP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5306. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5307. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5308. (setq c:SOLIMP nil)(princ))+
  5309. (progn (menucmd "S=X")(menucmd "S=")))(princ);^PSOLIMP
  5310. [F-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5311. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5312. (if (null c:SOLMAT)(defun c:SOLMAT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5313. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5314. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5315. (setq c:SOLMAT nil)(princ))+
  5316. (progn (menucmd "S=X")(menucmd "S=SCHMAT")))(princ);^PSOLMAT
  5317. [F-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5318. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5319. (if (null c:SOLMAILLE)(defun c:SOLMAILLE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5320. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5321. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5322. (setq c:SOLMAILLE nil)(princ))+
  5323. (progn (menucmd "S=X")(menucmd "S=SMESH")))(princ);^PSOLMAILLE
  5324. [F-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5325. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5326. (if (null c:SOLFIL)(defun c:SOLFIL () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5327. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5328. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5329. (setq c:SOLFIL nil)(princ))+
  5330. (progn (menucmd "S=X")(menucmd "S=SWIRE")))(princ);^PSOLFIL
  5331. [F-7]
  5332. [F-8]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5333. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5334. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5335. (menucmd"S=X")(menucmd"S=RMSETUP"))(defun C:RMSETUP()(terpri);+
  5336. (prompt"Le fichier 'Rman.lsp' ne se trouve pas dans le répertoire courant.")+
  5337. (terpri)(prompt"Voyez votre manuel AutoShade v2.0.");+
  5338. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5339. (menucmd"S=RMSETUP")(setq *error* m:err m:err nil)(princ))) ^PRMSETUP
  5340. [F-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5341. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5342. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5343. (menucmd"S=X")(menucmd"S=RMEDIT"))(defun C:RMEDIT()(terpri);+
  5344. (prompt"Le fichier 'Rman.lsp' ne se trouve pas dans le répertoire courant.")+
  5345. (terpri)(prompt"Voyez votre manuel AutoShade v2.0.");+
  5346. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5347. (menucmd"S=RMEDIT")(setq *error* m:err m:err nil)(princ))) ^PRMEDIT
  5348. [F-10]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5349. (princ msg)(setq *error* m:err m:err nil #ASERR nil)(princ))(princ));+
  5350. (cond((null #ASERR)(vmon)(if(findfile"ascommon.lsp")(load"ascommon")+
  5351. (defun C:RMSCAN()(terpri);+
  5352. (prompt"Le fichier 'Ascommon.lsp' ne se trouve pas dans le répertoire courant.")+
  5353. (terpri)(prompt"Voyez votre manuel AutoShade v2.0");+
  5354. (princ)))(setq *error* m:err m:err nil)(princ))(T+
  5355. (setq *error* m:err m:err nil)(princ))) ^PRMSCAN
  5356. [F-11]
  5357. [F-12]
  5358. [F-13]
  5359. [F-14]
  5360. [F-15]
  5361. [F-16]
  5362. [F-17]
  5363. [F-18]
  5364. [F-19]
  5365. [F-20]
  5366. [F-21]
  5367. [F-22]
  5368. [F-23]
  5369. [F-24]
  5370. [F-25]
  5371. [G-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5372. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5373. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5374. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5375. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5376. (setq c:SOLVAR nil)(princ))+
  5377. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR SOLSUBDIV
  5378. [G-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5379. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5380. (if (null c:SOLPRMEC)(defun c:SOLPRMEC () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5381. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5382. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5383. (setq c:SOLPRMEC nil)(princ))+
  5384. (progn (menucmd "S=X")(menucmd "S=SMASSP")))(princ);^PSOLPRMEC
  5385. [G-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5386. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5387. (if (null c:SOLEXP)(defun c:SOLEXP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5388. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5389. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5390. (setq c:SOLEXP nil)(princ))+
  5391. (progn (menucmd "S=X")(menucmd "S=")))(princ);^PSOLEXP
  5392. [G-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5393. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5394. (if (null c:SOLSCU)(defun c:SOLSCU () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5395. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5396. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5397. (setq c:SOLSCU nil)(princ))+
  5398. (progn (menucmd "S=X")(menucmd "S=SUCS")))(princ);^PSOLSCU
  5399. [G-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5400. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5401. (if (null c:SOLPROFIL)(defun c:SOLPROFIL () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5402. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5403. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5404. (setq c:SOLPROFIL nil)(princ))+
  5405. (progn (menucmd "S=X")(menucmd "S=SPROF")))(princ);^PSOLPROFIL
  5406. [G-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5407. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5408. (if (null c:SOLPROFIL)(defun c:SOLPROFIL () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5409. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5410. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5411. (setq c:SOLPROFIL nil)(princ))+
  5412. (progn (menucmd "S=X")(menucmd "S=SPROF")))(princ);^PSOLPROFIL
  5413. [G-7]
  5414. [G-8]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5415. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5416. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5417. (menucmd"S=X")(menucmd"S=RMPROP"))(defun C:RMPROP()(terpri);+
  5418. (prompt"Le fichier 'Rman.lsp' ne se trouve pas dans le répertoire courant.")+
  5419. (terpri)(prompt"Voyez votre manuel AutoShade v2.0.");+
  5420. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5421. (menucmd"S=RMPROP")(setq *error* m:err m:err nil)(princ))) ^PRMPROP
  5422. [G-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5423. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5424. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5425. (menucmd"S=X")(menucmd"S=RMCOPY"))(defun C:RMCOPY()(terpri);+
  5426. (prompt"Le fichier 'Rman.lsp' ne se trouve pas dans le répertoire courant.")+
  5427. (terpri)(prompt"Voyez votre manuel AutoShade v2.0.");+
  5428. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5429. (menucmd"S=RMCOPY")(setq *error* m:err m:err nil)(princ))) ^PRMCOPY
  5430. [G-10]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5431. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5432. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5433. (menucmd"S=X")(menucmd"S=RMATTACH"))(defun C:RMATTACH()(terpri);+
  5434. (prompt"Le fichier 'Rman.lsp' ne se trouve pas dans le répertoire courant.")+
  5435. (terpri)(prompt"Voyez votre manuel AutoShade v2.0.");+
  5436. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5437. (menucmd"S=RMATTACH")(setq *error* m:err m:err nil)(princ))) ^PRMATTACH
  5438. [G-11]
  5439. [G-12]
  5440. [G-13]
  5441. [G-14]
  5442. [G-15]
  5443. [G-16]
  5444. [G-17]
  5445. [G-18]
  5446. [G-19]
  5447. [G-20]
  5448. [G-21]
  5449. [G-22]
  5450. [G-23]
  5451. [G-24]
  5452. [G-25]
  5453. [H-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5454. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5455. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5456. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5457. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5458. (setq c:SOLVAR nil)(princ))+
  5459. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR SOLWDENS
  5460. [H-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5461. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5462. (if (null c:SOLSURF)(defun c:SOLSURF () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5463. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5464. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5465. (setq c:SOLSURF nil)(princ))+
  5466. (progn (menucmd "S=X")(menucmd "S=SAREA")))(princ);^PSOLSURF
  5467. [H-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5468. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5469. (if (null c:SOLPURG)(defun c:SOLPURG () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5470. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5471. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5472. (setq c:SOLPURG nil)(princ))+
  5473. (progn (menucmd "S=X")(menucmd "S=SPURGE")))(princ);^PSOLPURG
  5474. [H-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5475. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5476. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5477. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5478. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5479. (setq c:SOLVAR nil)(princ))+
  5480. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR
  5481. [H-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5482. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5483. (if (null c:SOLARFA)(defun c:SOLARFA () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5484. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5485. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5486. (setq c:SOLARFA nil)(princ))+
  5487. (progn (menucmd "S=X")(menucmd "S=SFEAT")))(princ);^PSOLARFA
  5488. [H-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5489. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5490. (if (null c:SOLCOUPE)(defun c:SOLCOUPE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5491. (terpri)(princ "ERREUR:  Commande inconnue. ")+
  5492. (princ "  Chargez AME ou AMElite depuis le menu Ecran. ")+
  5493. (setq c:SOLCOUPE nil)(princ))+
  5494. (progn (menucmd "S=X")(menucmd "S=SSECT")))(princ);^PSOLCOUPE
  5495. [H-7]
  5496. [H-8]
  5497. [H-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5498. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5499. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5500. (menucmd"S=X")(menucmd"S=RMLIST"))(defun C:RMLIST()(terpri);+
  5501. (prompt"Le fichier 'Rman.lsp' ne se trouve pas dans le répertoire courant.")+
  5502. (terpri)(prompt"Voyez votre manuel AutoShade v2.0.");+
  5503. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5504. (menucmd"S=RMLIST")(setq *error* m:err m:err nil)(princ))) ^PRMLIST
  5505. [H-10]
  5506. [H-11]
  5507. [H-12]
  5508. [H-13]
  5509. [H-14]
  5510. [H-15]
  5511. [H-16]
  5512. [H-17]
  5513. [H-18]
  5514. [H-19]
  5515. [H-20]
  5516. [H-21]
  5517. [H-22]
  5518. [H-23]
  5519. [H-24]
  5520. [H-25]
  5521. [I-1]
  5522. [I-2]
  5523. [I-3]
  5524. [I-4]
  5525. [I-5]
  5526. [I-6]
  5527. [I-7]
  5528. [I-8]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5529. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5530. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5531. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  5532. (prompt"Le fichier 'Rman.lsp' ne se trouve pas dans le répertoire courant.")+
  5533. (terpri)(prompt"Voyez votre manuel AutoShade v2.0.");+
  5534. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5535. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  5536. [I-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5537. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5538. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5539. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  5540. (prompt"Le fichier 'Rman.lsp' ne se trouve pas dans le répertoire courant.")+
  5541. (terpri)(prompt"Voyez votre manuel AutoShade v2.0.");+
  5542. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5543. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  5544. [I-10]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Erreur de chargement: ")+
  5545. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5546. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5547. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  5548. (prompt"Le fichier 'Rman.lsp' ne se trouve pas dans le répertoire courant.")+
  5549. (terpri)(prompt"Voyez votre manuel AutoShade v2.0.");+
  5550. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5551. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  5552. [I-11]
  5553. [I-12]
  5554. [I-13]
  5555. [I-14]
  5556. [I-15]
  5557. [I-16]
  5558. [I-17]
  5559. [I-18]
  5560. [I-19]
  5561. [I-20]
  5562. [I-21]
  5563. [I-22]
  5564. [I-23]
  5565. [I-24]
  5566. [I-25]
  5567. ***Commentaire
  5568.         Voici le menu TABLET2.  Il a été mis à jour
  5569.         avec les commandes d'AutoCAD version 11.
  5570.  
  5571. ***TABLET2
  5572. ^C^C^P(menucmd "S=X")(menucmd "S=HIDE1")(progn (initget "Oui Non")+
  5573. (setq ans (getkword "Voulez vous utiliser CACHE? <O> ")))(if (= ans "Oui")+
  5574. (command "CACHE")(progn (menucmd "S= ")(menucmd "S= ")))(princ);^P
  5575. $S=X $S=VPOINT POINTVUE;;
  5576. $S=X $S=SHADE
  5577. $S=X $S=UCS1 ^C^CSCU
  5578. ^C^CSCU;P
  5579. ^C^CSCU;O
  5580. ;
  5581. $S=X $S=MV ^C^CFMULT
  5582. $S=X $S=ZOOM 'ZOOM FMAX
  5583. $S=X $S=LINE ^C^CLIGNE
  5584. ^C^CREGEN
  5585. [POINTVUE  ]^C^CPOINTVUE R;<<135;$S=X $S=VPOINT3D
  5586. [VS rear]^C^CPOINTVUE R;<<90;$S=X $S=VPOINT3D
  5587. [POINTVUE  ]^C^CPOINTVUE R;<<45;$S=X $S=VPOINT3D
  5588. $S=X $S=UCS1 ^C^CSCU
  5589. ^C^CSCU;;
  5590. ^C^CREPERE;G
  5591. ;
  5592. $S=X $S=MV ^C^CFMULT
  5593. $S=X $S=ZOOM 'ZOOM F
  5594. $S=X $S=PLINE ^C^CPOLYLIGN
  5595. ^C^CREGNTOUT
  5596. [VS left]^C^CPOINTVUE R;<<180;$S=X $S=VPOINT3D
  5597. [VS plan]^C^CREPERE;;
  5598. [VS rigt]^C^CPOINTVUE R;<<0;$S=X $S=VPOINT3D
  5599. $S=X $S=DVIEW ^C^CVUEDYN
  5600. $S=X $S=DVIEW ^C^CSELECT;\VUEDYN;P;;CAM;\\;
  5601. $S=X $S=DVIEW ^C^C$S=X $S=DVIEW1 VUEDYN;;
  5602. ;
  5603. $S=X $S=MV ^C^CFMULT ACTIF
  5604. $S=X $S=ZOOM 'ZOOM D
  5605. $S=X $S=ARC ^C^CARC
  5606. 'REDESS
  5607. [POINTVUE  ]^C^CPOINTVUE R;<<225;$S=X $S=VPOINT3D
  5608. [VS frnt]^C^CPOINTVUE R;<<270;$S=X $S=VPOINT3D
  5609. [POINTVUE  ]^C^CPOINTVUE R;<<315;$S=X $S=VPOINT3D
  5610. $S=X $S=DVIEW ^C^CVUEDYN
  5611. $S=X $S=DVIEW ^C^CSELECT;\VUEDYN;P;;Z;\;
  5612. $S=X $S=DVIEW ^C^CSELECT;\VUEDYN;P;;PA;\\;
  5613. ;
  5614. $S=X $S=MV ^C^CFMULT INACTIF
  5615. $S=X $S=ZOOM ^C^CZOOM T
  5616. $S=X $S=CIRCLE ^C^CCERCLE
  5617. 'REDESS
  5618. $S=X $S=3D ^C^CSURFREGL
  5619. $S=X $S=3D ^C^CSURFREV
  5620. $S=X $S=3DFACE ^C^C3DFACE
  5621. $S=X $S=VPLA ^C^CFCOUCHE
  5622. $S=X $S=VPLA ^C^CFCOUCHE LIBERER
  5623. $S=X $S=VPLA ^C^CFCOUCHE GELER
  5624. ;
  5625. $S=X $S=MV ^C^CFMULT 2
  5626. $S=X $S=ZOOM 'ZOOM A
  5627. $S=X $S=ELLIPSE ^C^CELLIPSE
  5628. 'REDESS
  5629. $S=X $S=3D ^C^CSURFGAU
  5630. $S=X $S=3D ^C^CSURFEXTR
  5631. $S=X $S=3DPOLY ^C^C3DPOLY
  5632. $S=X $S=VPLA ^C^CFCOUCHE
  5633. $S=X $S=VPLA ^C^CFCOUCHE NOUVGEL
  5634. $S=X $S=VPLA ^C^CFCOUCHE RETABLIR
  5635. ;
  5636. $S=X $S=MV ^C^CFMULT 3
  5637. $S=X $S=ZOOM ^C^CZOOM E
  5638. $S=X $S=POLYGON ^C^CPOLYGONE
  5639. 'REDESS
  5640. $S=X $S=XREF ^C^CXREF
  5641. $S=X $S=XREF ^C^CXREF;;
  5642. $S=X $S=XBIND ^C^CXATTACH
  5643. $S=X $S=LAYER ^C^CDDPMODES
  5644. $S=X $S=LAYER ^C^CPLAN ACTIF
  5645. $S=X $S=LAYER ^C^CPLAN INACTIF
  5646. ;
  5647. $S=X $S=MV ^C^CFMULT 4
  5648. $S=X $S=ZOOM 'ZOOM
  5649. $S=X $S=POINT ^C^CPOINT
  5650. 'REDESS
  5651. $S=X $S=ATTDEF ^C^CATTDEF
  5652. $S=X $S=BLOCK ^C^CBLOC
  5653. $S=X $S=INSERT ^C^CINSERER
  5654. $S=X $S=LAYER ^C^CPLAN
  5655. $S=X $S=LAYER ^C^CPLAN LIBERER
  5656. $S=X $S=LAYER ^C^CPLAN GELER
  5657. ;
  5658. $S=X $S=MV ^C^CESPACEO
  5659. 'PAN
  5660. ^C^CANNEAU
  5661. 'REDESTOUT
  5662. $S=X $S=ATTEDIT ^C^CATTEDIT
  5663. $S=X $S=WBLOCK ^C^CWBLOC
  5664. $S=X $S=MINSERT ^C^CINSERM
  5665. $S=X $S=LAYER ^C^CPLAN
  5666. $S=X $S=LAYER ^C^CPLAN ? *;;
  5667. $S=X $S=LAYER ^C^CPLAN E \;
  5668. ;
  5669. $S=X $S=MV ^C^CESPACEP
  5670. $S=X $S=DS
  5671. $S=X $S=DR
  5672. 'REDESTOUT
  5673. ***Comment
  5674.         Voici le menu TABLET3.  Il a été mis à jour
  5675.         avec les commandes d'AutoCAD version 11.
  5676.  
  5677. ***TABLET3
  5678. ;
  5679. ;
  5680. ;
  5681. <<135
  5682. <<135
  5683. <<90
  5684. <<90
  5685. <<45
  5686. <<45
  5687. ;
  5688. ;
  5689. ;
  5690. <<180
  5691. <<180
  5692. <\
  5693. <\
  5694. <<0
  5695. <<0
  5696. ;
  5697. ;
  5698. ;
  5699. <<225
  5700. <<225
  5701. <<270
  5702. <<270
  5703. <<315
  5704. <<315
  5705. ;
  5706. ;
  5707. ;
  5708. ^H
  5709. ^H
  5710. ^H
  5711. ^H
  5712. ^H
  5713. ^H
  5714. ;
  5715. ;
  5716. ;
  5717. 7/8\
  5718. 7/8\
  5719. /16\
  5720. /16\
  5721. /32\
  5722. /32\
  5723. ;
  5724. ;
  5725. ;
  5726. 1/2\
  5727. 1/2\
  5728. 5/8\
  5729. 5/8\
  5730. 3/4\
  5731. 3/4\
  5732. ;
  5733. ;
  5734. ;
  5735. 1/8\
  5736. 1/8\
  5737. 1/4\
  5738. 1/4\
  5739. 3/8\
  5740. 3/8\
  5741. ;
  5742. ;
  5743. ;
  5744. -\
  5745. -\
  5746. /\
  5747. /\
  5748. X\
  5749. X\
  5750. ;
  5751. ;
  5752. ;
  5753. @\
  5754. @\
  5755. '\
  5756. '\
  5757. "\
  5758. "\
  5759. ;
  5760. ;
  5761. ;
  5762. 7\
  5763. 7\
  5764. 8\
  5765. 8\
  5766. 9\
  5767. 9\
  5768.  
  5769. ;
  5770. ;
  5771. 4\
  5772. 4\
  5773. 5\
  5774. 5\
  5775. 6\
  5776. 6\
  5777. ;
  5778. ;
  5779. ;
  5780. 1\
  5781. 1\
  5782. 2\
  5783. 2\
  5784. 3\
  5785. 3\
  5786.  
  5787. ;
  5788. ;
  5789. 0\
  5790. 0\
  5791. .\
  5792. .\
  5793. ,\
  5794. ,\
  5795. ***Commentaire
  5796.         Voici le menu TABLET4.  Il a été mis à jour
  5797.         avec les commandes d'AutoCAD version 11.
  5798.  
  5799.         Les points  S19 - S22  du menu contiennent  les appels  pour
  5800.         échanger les menus.
  5801.  
  5802.         Ces points provoquent l'échange des menus, lesquels contiennent
  5803.         des sélections "EXPERT". Une variable est utilisée pour mainte-
  5804.         nir les valeurs, en bit codé, ACTIVES quand le menu est échangé.
  5805.         Par exemple, quand le menu optionel 1 a été échangé (ACTIF), le
  5806.         bit est à 1, il est à 2 quand le menu optionel 2 a été échangé.
  5807.         Il en est de même pour les bits 4 et 8.
  5808.  
  5809.         Quand le bit est à 1, le premier astérix de la seconde ligne du
  5810.         menu écran est remplacé par le numéro 1, le second astérix quand
  5811.         le bit est à 2. De même avec les bits 4 et 8.
  5812.  
  5813.         Cela indique à l'utilisateur les changements dans la structure
  5814.         des menus et pourront être attachés à des variables "EXPERT". Si
  5815.         la valeur de la variable "EXPERT" est à 0, un message de ce
  5816.         style: "La zone 3 du menu a été échangée. Les unités métrique
  5817.         sont ACTIVE" pourra être affiché.  Si la valeur de la variable
  5818.         "EXPERT" est 1-4, le message sera plus court: "La zone 3 du menu
  5819.         a été échangée". Si la valeur de la variable "EXPERT" est plus
  5820.         grande que 4, tous les messages seront supprimés.
  5821.  
  5822.         La sélection du mot AUTOCAD en haut du menu écran remet les
  5823.         variables à leur valeur par défaut, de la même manière qu'un
  5824.         retour dans l'éditeur graphique.
  5825.  
  5826.  
  5827. ***TABLET4
  5828. ;
  5829. ;
  5830. ;
  5831. ;
  5832. ;
  5833. ;
  5834. ;
  5835. ;
  5836. ;
  5837. ;
  5838. ;
  5839. ;
  5840. ;
  5841. ;
  5842. ;
  5843. ;
  5844. ;
  5845. ;
  5846. [Tablet 1]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  5847. (if (= (logand 1 T_MENU) 1)(progn (setq T_MENU (- T_MENU 1))+
  5848. (if (< (getvar "EXPERT") 4)(princ "Zone 1 menu tabl. alt. non chargée.  "));+
  5849. (menucmd "T1=TABLET1")(if (< (getvar "EXPERT") 1)(progn +
  5850. (terpri)(princ "Utilisez les menus tablette d'AutoCAD AME ou d'AutoShade.")(princ))))+
  5851. (progn (setq T_MENU (+ T_MENU 1))+
  5852. (if (< (getvar "EXPERT") 4)(princ "Zone 1 menu tabl. alt. chargée.  "));+
  5853. (menucmd "T1=TABLET1ALT")(if (< (getvar "EXPERT") 1)(progn +
  5854. (terpri)(princ "Cette zone est à votre disposition.")(princ)))))+
  5855. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  5856. [Tablet 2]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  5857. (if (= (logand 2 T_MENU) 2)(progn(setq T_MENU (- T_MENU 2))+
  5858. (if (< (getvar "EXPERT") 4)(princ "Zone 2 menu tabl. alt. non chargée.  "));+
  5859. (menucmd "T2=TABLET2")(if old_wv (setvar "WORLDVIEW" old_wv))(if (< (getvar "EXPERT") 1)(progn +
  5860. (terpri)(princ "Commandes transparentes: POINTVUE et VUEDYN dans le mode WORLDVIEW.")(princ))))+
  5861. (progn(setq T_MENU (+ T_MENU 2));+
  5862. (setq old_wv (getvar "WORLDVIEW"))(setvar "WORLDVIEW" 0)+
  5863. (if (< (getvar "EXPERT") 4)(princ "Zone 2 du menu tablette alternatif chargée.  "));+
  5864. (menucmd "T2=TABLET2ALT")(if (< (getvar "EXPERT") 1)(progn +
  5865. (terpri)(princ "Sortie de commande ZOOM etc. par CTRL-C: POINTVUE et VUEDYN en mode SCU cour.")(princ)))))+
  5866. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  5867. [Tablet 3]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  5868. (if (= (logand 4 T_MENU) 4)(progn(setq T_MENU (- T_MENU 4))+
  5869. (if (< (getvar "EXPERT") 4)(princ "Zone 3 menu tabl. alt. non chargée.  "));+
  5870. (menucmd "T3=TABLET3")(if (< (getvar "EXPERT") 1)(progn +
  5871. (terpri)(princ "Choix des unités US dans le menu Numérique.")(princ))))+
  5872. (progn(setq T_MENU (+ T_MENU 4))+
  5873. (if (< (getvar "EXPERT") 4)(princ "Zone 3 menu tabl. alt. chargée.  "));+
  5874. (menucmd "T3=TABLET3ALT")(if (< (getvar "EXPERT") 1)(progn +
  5875. (terpri)(princ "Choix des unités MÉTR. dans le menu Numérique.")(princ)))))+
  5876. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  5877. [Tablet 4]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  5878. (if (= (logand 8 T_MENU) 8)(progn(setq T_MENU (- T_MENU 8))+
  5879. (if (< (getvar "EXPERT") 4)(princ "Zone 4 menu tabl. alt. non chargée.  "));+
  5880. (menucmd "T4=TABLET4")(if (< (getvar "EXPERT") 1)(progn +
  5881. (terpri)(princ "Sortie du mode ACCROBJ domine: commandes NON répétées.")(princ))))+
  5882. (progn(setq T_MENU (+ T_MENU 8))+
  5883. (if (< (getvar "EXPERT") 4)(princ "Zone 4 menu tabl. alt. chargée.  "));+
  5884. (menucmd "T4=TABLET4ALT")(if (< (getvar "EXPERT") 1)(progn +
  5885. (terpri)(princ "Sortie du mode ACCROBJ correcte: commandes répétées.")(princ)))))+
  5886. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  5887. ;
  5888. ;
  5889. ;
  5890. ^C^CTEMPS
  5891. ^C^C$S=X $S=ID ID
  5892. ^C^CETAT
  5893. ^C^C$S=X $S=LIST LISTE
  5894. 'AIDE
  5895. 'AIDE
  5896. ;
  5897. ^C^CDDEMODES
  5898. ^C^CDDEMODES
  5899. ^C^C$S=X $S=OSNAPC ACCROBJ
  5900. ;
  5901. AUCUN
  5902. CENTRE
  5903. EXTREM
  5904. INSERTION
  5905. INTERSECTION
  5906. MILIEU
  5907. PROCHE
  5908. NODAL
  5909. PERPENDICULAIRE
  5910. QUADRANT
  5911. TANGENT
  5912. ;
  5913. ^C^CSAUVEGRD
  5914. ^C^CSAUVEGRD
  5915. ^C^CMODIFVAR ? *
  5916. ^C^C$S=X $S=AREA AIRE
  5917. ^C^CDISTANCE
  5918. ^C^C$S=X $S=LIST LISTE
  5919. 'AIDE
  5920. 'AIDE
  5921. ;
  5922. ^C^CDDAMODES
  5923. ^C^CDDAMODES
  5924. ^C^C$S=X $S=OSNAPC ACCROBJ
  5925. ;
  5926. ANNULER R
  5927. ^C^CU
  5928. ^C^CRETABLIR
  5929. AUTO
  5930. MULTIPLE
  5931. FENETRE
  5932. DERNIER
  5933. PRECEDENT
  5934. CAPTUREG
  5935. RETIRER
  5936. AJOUTER
  5937. ;
  5938. ^C^C$S=X $S=END FIN
  5939. ^C^C$S=X $S=QUIT QUITTER
  5940. ^C^C$S=X $S=DIM COT SAUVER
  5941. ^C^C$S=X $S=DIM COT RESTAURE
  5942. ^C^C$S=X $S=DIM COT SAUVER ? *
  5943. ^C^C$S=X $S=HOMETEXT COT INITXT
  5944. ^C^C$S=X $S=TEDIT COT TEDIT
  5945. ^C^C$S=X $S=DIM COT TROTATIO
  5946. ;
  5947. ^C^C$S=X $S=DDEDIT DDEDIT
  5948. ^C^C$S=X $S=DDEDIT DDEDIT
  5949. ^C^C$S=X $S=QTEXT RAPTEXTE
  5950. ;
  5951. ^C^C
  5952. ^C^C
  5953. ^C^C
  5954. ^O
  5955. ^D
  5956. ^Q
  5957. ECRANGRA
  5958. ^E
  5959. ^G
  5960. ^B
  5961. ^V
  5962. ;
  5963. ^C^CFICHIERS
  5964. ^C^CFICHIERS
  5965. ^C^CCOT1 ETAT
  5966. ^C^C$S=X $S=VAR1 COT
  5967. ^C^C$S=X $S=DIM COT REECRIRE
  5968. ^C^C$S=X $S=DIM COT OBLIQUE
  5969. SORTIR;^C^C$S=X $S=S
  5970. SORTIR;^C^C$S=X $S=S
  5971. ;
  5972. ^C^C^P(if (= dtext 1)(progn(menucmd "S=TEXT")(menucmd "T4=TEXT1")+
  5973. (menucmd "T4=TEXT2")(menucmd "T4=TEXT3")(setq dtext null)+
  5974. (prompt "Choix mode TEXTE")(princ))(progn(menucmd "S=DTEXT");+
  5975. (menucmd "T4=DTEXT1")(menucmd "T4=DTEXT2")(menucmd "T4=DTEXT3")(setq dtext 1)+
  5976. (prompt "Choix mode TEXTE")(princ)));^P
  5977. ^C^C^P(if (= dtext 1)(progn(menucmd "S=TEXT")(menucmd "T4=TEXT1")+
  5978. (menucmd "T4=TEXT2")(menucmd "T4=TEXT3")(setq dtext null)+
  5979. (prompt "Choix mode TEXTE")(princ))(progn(menucmd "S=DTEXT");+
  5980. (menucmd "T4=DTEXT1")(menucmd "T4=DTEXT2")(menucmd "T4=DTEXT3")(setq dtext 1)+
  5981. (prompt "Choix mode TEXTE")(princ)));^P
  5982. ^C^C$S=X $S=TEXT TEXTE STYLE
  5983. ;
  5984. ^C^C$S=X $S=SCALE ECHELLE
  5985. ^C^C$S=X $S=ROTATE ROTATION
  5986. ^C^C$S=X $S=OFFSET DECALER
  5987. ^C^C$S=X $S=MOVE DEPLACER
  5988. ^C^C$S=X $S=ERASE EFFACER
  5989. ^C^C$S=X $S=ERASE EFFACER
  5990. ^C^CREPRISE
  5991. ^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  5992. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  5993. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  5994. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  5995. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  5996. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  5997. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  5998. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  5999. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  6000. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  6001. (princ));PEDITM;^P
  6002. ^C^CDECOMPOS
  6003. ^C^C$S=X $S=ARRAY RESEAU
  6004. ^C^C$S=X $S=DIVIDE DIVISER
  6005. ;
  6006. ^C^CTRACEUR
  6007. ^C^CIMPGRAPH
  6008. ^C^C$S=X $S=DIMORD COT ORDONNEES
  6009. ^C^C$S=X $S=DIM COT RAPPEL
  6010. ^C^C$S=X $S=DIMLINEAR COT LIGNEBAS
  6011. ^C^C$S=X $S=DIMLINEAR COT CONTINUE
  6012. ^C^C$S=X $S=DIMLINEAR COT VERTICAL
  6013. ^C^C$S=X $S=DIMLINEAR COT HORIZONTAL
  6014. ;
  6015. ^C^C$S=X $S=TEXT TEXTE ALIGNE
  6016. ^C^C$S=X $S=TEXT TEXTE MILIEU
  6017. ^C^C$S=X $S=TEXT TEXTE FIXE
  6018. ;
  6019. ^C^C$S=X $S=MIRROR MIROIR
  6020. ^C^C$S=X $S=BREAK2P COUPURE \P
  6021. ^C^C$S=X $S=BREAKSPL COUPURE \P \@
  6022. ^C^C$S=X $S=COPY COPIER
  6023. ^C^C$S=X $S=EXTEND PROLONGE
  6024. ^C^C$S=X $S=STRETCH ETIRER C
  6025. ^C^C$S=X $S=TRIM AJUSTER
  6026. ^C^C$S=X $S=FILLET0 RACCORD R 0;;
  6027. ^C^C$S=X $S=FILLET RACCORD
  6028. ^C^C$S=X $S=CHAMFER CHNFREIN
  6029. ^C^C$S=X $S=MEASURE MESURER
  6030. ;
  6031. ^C^C$S=X $S=UT
  6032. ^C^C^P(if R11omn (progn(command "Menu" R11omn)(setq R11omn nil));+
  6033. (if (setq R11omn (getvar "menuname"));+
  6034. (if (setq envname (getenv "ACADALTMENU")) (command "Menu" +
  6035. (findfile envname)) (command "Menu" R11omn))))(setq T_MENU nil)(princ) ^P
  6036. ^C^C$S=X $S=DIM COT CENTRE
  6037. ^C^C$S=X $S=DIM COT RAYON
  6038. ^C^C$S=X $S=DIM COT DIAMETRE
  6039. ^C^C$S=X $S=DIM COT ANGULAIRE
  6040. ^C^C$S=X $S=DIM COT ROTATION
  6041. ^C^C$S=X $S=DIMLINEAR COT ALIGNE
  6042. ;
  6043. ^C^C$S=X $S=TEXT TEXTE
  6044. ^C^C$S=X $S=TEXT TEXTE C
  6045. ^C^C$S=X $S=TEXT TEXTE DROITE
  6046. ;
  6047. ^C^C$S=X $S=SNAP RESOL
  6048. ^C^C$S=X $S=GRID GRILLE
  6049. ^C^C$S=X $S=UNITS UNITES
  6050. ^C^C$S=X $S=LINETYPE TYPELIGN
  6051. ^C^C$S=X $S=CHANGE CHANGER
  6052. ^C^C$S=X $S=CHANGE CHANGER
  6053. ^C^C$S=X $S=CHPROP CHPROP
  6054. ^C^CECHLTP
  6055. ^C^C$S=X $S=COLOR COULEUR
  6056. ^C^CTILEMODE
  6057. ^C^C$S=X $S=APERTURE OUVERTUR
  6058. ;
  6059. ^C^C$S=X $S=EXCOMDS
  6060. ^C^C$S=X $S=EXCOMDS
  6061. **DTEXT1 110
  6062. ^C^C$S=X $S=DTEXT TXTDYN STYLE
  6063. **DTEXT2 133
  6064. ^C^C$S=X $S=DTEXT TXTDYN ALIGNE
  6065. ^C^C$S=X $S=DTEXT TXTDYN MILIEU
  6066. ^C^C$S=X $S=DTEXT TXTDYN FIXE
  6067. **DTEXT3 158
  6068. ^C^C$S=X $S=DTEXT TXTDYN
  6069. ^C^C$S=X $S=DTEXT TXTDYN C
  6070. ^C^C$S=X $S=DTEXT TXTDYN DROITE
  6071. **TEXT1 110
  6072. ^C^C$S=X $S=TEXT TEXTE STYLE
  6073. **TEXT2 133
  6074. ^C^C$S=X $S=TEXT TEXTE ALIGNE
  6075. ^C^C$S=X $S=TEXT TEXTE MILIEU
  6076. ^C^C$S=X $S=TEXT TEXTE FIXE
  6077. **TEXT3 158
  6078. ^C^C$S=X $S=TEXT TEXTE
  6079. ^C^C$S=X $S=TEXT TEXTE C
  6080. ^C^C$S=X $S=TEXT TEXTE DROITE
  6081.  
  6082. ***Comment
  6083.         Voici le menu TABLET1 original qui est maintenant
  6084.         un menu alternatif.
  6085.         Le nouveau menu TABLET1 contient les codes pour l'AME et AutoShade.
  6086.         Vous pouvez mettre vos macros et menus ici ou dans l'espace
  6087.         restant dans la zone du nouveau menu TABLET1.  Toutes les positions
  6088.         sont maintenant accéssibles à travers la fenêtre transparente dans le gabarit.
  6089.  
  6090. ***TABLET1ALT
  6091. [A-1]
  6092. [A-2]
  6093. [A-3]
  6094. [A-4]
  6095. [A-5]
  6096. [A-6]
  6097. [A-7]
  6098. [A-8]
  6099. [A-9]
  6100. [A-10]
  6101. [A-11]
  6102. [A-12]
  6103. [A-13]
  6104. [A-14]
  6105. [A-15]
  6106. [A-16]
  6107. [A-17]
  6108. [A-18]
  6109. [A-19]
  6110. [A-20]
  6111. [A-21]
  6112. [A-22]
  6113. [A-23]
  6114. [A-24]
  6115. [A-25]
  6116. [B-1]
  6117. [B-2]
  6118. [B-3]
  6119. [B-4]
  6120. [B-5]
  6121. [B-6]
  6122. [B-7]
  6123. [B-8]
  6124. [B-9]
  6125. [B-10]
  6126. [B-11]
  6127. [B-12]
  6128. [B-13]
  6129. [B-14]
  6130. [B-15]
  6131. [B-16]
  6132. [B-17]
  6133. [B-18]
  6134. [B-19]
  6135. [B-20]
  6136. [B-21]
  6137. [B-22]
  6138. [B-23]
  6139. [B-24]
  6140. [B-25]
  6141. [C-1]
  6142. [C-2]
  6143. [C-3]
  6144. [C-4]
  6145. [C-5]
  6146. [C-6]
  6147. [C-7]
  6148. [C-8]
  6149. [C-9]
  6150. [C-10]
  6151. [C-11]
  6152. [C-12]
  6153. [C-13]
  6154. [C-14]
  6155. [C-15]
  6156. [C-16]
  6157. [C-17]
  6158. [C-18]
  6159. [C-19]
  6160. [C-20]
  6161. [C-21]
  6162. [C-22]
  6163. [C-23]
  6164. [C-24]
  6165. [C-25]
  6166. [D-1]
  6167. [D-2]
  6168. [D-3]
  6169. [D-4]
  6170. [D-5]
  6171. [D-6]
  6172. [D-7]
  6173. [D-8]
  6174. [D-9]
  6175. [D-10]
  6176. [D-11]
  6177. [D-12]
  6178. [D-13]
  6179. [D-14]
  6180. [D-15]
  6181. [D-16]
  6182. [D-17]
  6183. [D-18]
  6184. [D-19]
  6185. [D-20]
  6186. [D-21]
  6187. [D-22]
  6188. [D-23]
  6189. [D-24]
  6190. [D-25]
  6191. [E-1]
  6192. [E-2]
  6193. [E-3]
  6194. [E-4]
  6195. [E-5]
  6196. [E-6]
  6197. [E-7]
  6198. [E-8]
  6199. [E-9]
  6200. [E-10]
  6201. [E-11]
  6202. [E-12]
  6203. [E-13]
  6204. [E-14]
  6205. [E-15]
  6206. [E-16]
  6207. [E-17]
  6208. [E-18]
  6209. [E-19]
  6210. [E-20]
  6211. [E-21]
  6212. [E-22]
  6213. [E-23]
  6214. [E-24]
  6215. [E-25]
  6216. [F-1]
  6217. [F-2]
  6218. [F-3]
  6219. [F-4]
  6220. [F-5]
  6221. [F-6]
  6222. [F-7]
  6223. [F-8]
  6224. [F-9]
  6225. [F-10]
  6226. [F-11]
  6227. [F-12]
  6228. [F-13]
  6229. [F-14]
  6230. [F-15]
  6231. [F-16]
  6232. [F-17]
  6233. [F-18]
  6234. [F-19]
  6235. [F-20]
  6236. [F-21]
  6237. [F-22]
  6238. [F-23]
  6239. [F-24]
  6240. [F-25]
  6241. [G-1]
  6242. [G-2]
  6243. [G-3]
  6244. [G-4]
  6245. [G-5]
  6246. [G-6]
  6247. [G-7]
  6248. [G-8]
  6249. [G-9]
  6250. [G-10]
  6251. [G-11]
  6252. [G-12]
  6253. [G-13]
  6254. [G-14]
  6255. [G-15]
  6256. [G-16]
  6257. [G-17]
  6258. [G-18]
  6259. [G-19]
  6260. [G-20]
  6261. [G-21]
  6262. [G-22]
  6263. [G-23]
  6264. [G-24]
  6265. [G-25]
  6266. [H-1]
  6267. [H-2]
  6268. [H-3]
  6269. [H-4]
  6270. [H-5]
  6271. [H-6]
  6272. [H-7]
  6273. [H-8]
  6274. [H-9]
  6275. [H-10]
  6276. [H-11]
  6277. [H-12]
  6278. [H-13]
  6279. [H-14]
  6280. [H-15]
  6281. [H-16]
  6282. [H-17]
  6283. [H-18]
  6284. [H-19]
  6285. [H-20]
  6286. [H-21]
  6287. [H-22]
  6288. [H-23]
  6289. [H-24]
  6290. [H-25]
  6291. [I-1]
  6292. [I-2]
  6293. [I-3]
  6294. [I-4]
  6295. [I-5]
  6296. [I-6]
  6297. [I-7]
  6298. [I-8]
  6299. [I-9]
  6300. [I-10]
  6301. [I-11]
  6302. [I-12]
  6303. [I-13]
  6304. [I-14]
  6305. [I-15]
  6306. [I-16]
  6307. [I-17]
  6308. [I-18]
  6309. [I-19]
  6310. [I-20]
  6311. [I-21]
  6312. [I-22]
  6313. [I-23]
  6314. [I-24]
  6315. [I-25]
  6316. ***Commentaire
  6317.         Voici le menu alternatif TABLET2.
  6318.  
  6319. ***TABLET2ALT
  6320. ^C^C^P(menucmd "S=X")(menucmd "S=HIDE1")(progn (initget "Oui Non")+
  6321. (setq ans (getkword "Voulez vous utiliser la commade CACHE? <O>")))(if (= ans "Oui")+
  6322. (command "CACHE")(progn (menucmd "S= ")(menucmd "S= ")))(princ);^P
  6323. $S=X $S=VPOINT POINTVUE;;
  6324. $S=X $S=SHADE
  6325. $S=X $S=UCS1 ^C^CSCU
  6326. ^C^CSCU;P
  6327. ^C^CSCU;O
  6328. ;
  6329. $S=X $S=MV ^C^CFMULT
  6330. $S=X $S=ZOOM ^C^CZOOM FMAX
  6331. $S=X $S=LINE ^C^CLIGNE
  6332. ^C^CREGEN
  6333. [POINTVUE  ]^C^CPOINTVUE R;<<135;$S=X $S=VPOINT3D
  6334. [VS rear]^C^CPOINTVUE R;<<90;$S=X $S=VPOINT3D
  6335. [POINTVUE  ]^C^CPOINTVUE R;<<45;$S=X $S=VPOINT3D
  6336. $S=X $S=UCS1 ^C^CSCU
  6337. ^C^CSCU;;
  6338. ^C^CREPERE;G
  6339. ;
  6340. $S=X $S=MV ^C^CFMULT
  6341. $S=X $S=ZOOM ^C^CZOOM F
  6342. $S=X $S=PLINE ^C^CPOLYLIGN
  6343. ^C^CREGNTOUT
  6344. [VS left]^C^CPOINTVUE R;<<180;$S=X $S=VPOINT3D
  6345. [VS plan]^C^CREPERE;;
  6346. [VS rigt]^C^CPOINTVUE R;<<0;$S=X $S=VPOINT3D
  6347. $S=X $S=DVIEW ^C^CVUEDYN
  6348. $S=X $S=DVIEW ^C^CSELECT;\VUEDYN;P;;CAM;\\;
  6349. $S=X $S=DVIEW ^C^C$S=X $S=DVIEW1 VUEDYN;;
  6350. ;
  6351. $S=X $S=MV ^C^CFMULT ACTIF
  6352. $S=X $S=ZOOM ^C^CZOOM D
  6353. $S=X $S=ARC ^C^CARC
  6354. 'REDESS
  6355. [POINTVUE  ]^C^CPOINTVUE R;<<225;$S=X $S=VPOINT3D
  6356. [VS frnt]^C^CPOINTVUE R;<<270;$S=X $S=VPOINT3D
  6357. [POINTVUE  ]^C^CPOINTVUE R;<<315;$S=X $S=VPOINT3D
  6358. $S=X $S=DVIEW ^C^CVUEDYN
  6359. $S=X $S=DVIEW ^C^CSELECT;\VUEDYN;P;;Z;\;
  6360. $S=X $S=DVIEW ^C^CSELECT;\VUEDYN;P;;PA;\\;
  6361. ;
  6362. $S=X $S=MV ^C^CFMULT INACTIF
  6363. $S=X $S=ZOOM ^C^CZOOM T
  6364. $S=X $S=CIRCLE ^C^CCERCLE
  6365. 'REDESS
  6366. $S=X $S=3D ^C^CSURFREGL
  6367. $S=X $S=3D ^C^CSURFREV
  6368. $S=X $S=3DFACE ^C^C3DFACE
  6369. $S=X $S=VPLA ^C^CFCOUCHE
  6370. $S=X $S=VPLA ^C^CFCOUCHE LIBERER
  6371. $S=X $S=VPLA ^C^CFCOUCHE GELER
  6372. ;
  6373. $S=X $S=MV ^C^CFMULT 2
  6374. $S=X $S=ZOOM ^C^CZOOM A
  6375. $S=X $S=ELLIPSE ^C^CELLIPSE
  6376. 'REDESS
  6377. $S=X $S=3D ^C^CSURFGAU
  6378. $S=X $S=3D ^C^CSURFEXTR
  6379. $S=X $S=3DPOLY ^C^C3DPOLY
  6380. $S=X $S=VPLA ^C^CFCOUCHE
  6381. $S=X $S=VPLA ^C^CFCOUCHE NOUVGEL
  6382. $S=X $S=VPLA ^C^CFCOUCHE RETABLIR
  6383. ;
  6384. $S=X $S=MV ^C^CFMULT 3
  6385. $S=X $S=ZOOM ^C^CZOOM E
  6386. $S=X $S=POLYGON ^C^CPOLYGONE
  6387. 'REDESS
  6388. $S=X $S=XREF ^C^CXREF
  6389. $S=X $S=XREF ^C^CXREF;;
  6390. $S=X $S=XBIND ^C^CXATTACH
  6391. $S=X $S=LAYER ^C^CDDPMODES
  6392. $S=X $S=LAYER ^C^CREPERE ACTIF
  6393. $S=X $S=LAYER ^C^CREPERE INACTIF
  6394. ;
  6395. $S=X $S=MV ^C^CFMULT 4
  6396. $S=X $S=ZOOM ^C^CZOOM
  6397. $S=X $S=POINT ^C^CPOINT
  6398. 'REDESS
  6399. $S=X $S=ATTDEF ^C^CATTDEF
  6400. $S=X $S=BLOCK ^C^CBLOC
  6401. $S=X $S=INSERT ^C^CINSERER
  6402. $S=X $S=LAYER ^C^CPLAN
  6403. $S=X $S=LAYER ^C^CPLAN LIBERER
  6404. $S=X $S=LAYER ^C^CPLAN GELER
  6405. ;
  6406. $S=X $S=MV ^C^CESPACEO
  6407. 'PAN
  6408. ^C^CANNEAU
  6409. 'REDESTOUT
  6410. $S=X $S=ATTEDIT ^C^CATTEDIT
  6411. $S=X $S=WBLOCK ^C^CWBLOC
  6412. $S=X $S=MINSERT ^C^CINSERM
  6413. $S=X $S=LAYER ^C^CPLAN
  6414. $S=X $S=LAYER ^C^CPLAN ? *;;
  6415. $S=X $S=LAYER ^C^CPLAN E \;
  6416. ;
  6417. $S=X $S=MV ^C^CESPACEP
  6418. $S=X $S=DS
  6419. $S=X $S=DR
  6420. 'REDESTOUT
  6421. ***Comment
  6422.         Voici le menu alternatif TABLET3, lequel prend
  6423.         en compte toutes les caractéristiques de la zone
  6424.         3 du menu tablette G.B. pour l'utilisation des unités
  6425.         métriques. Leurs positions ont été modifiée pour correspondre
  6426.         avec notre présentation, mais toutes sont actives.
  6427.  
  6428. ***TABLET3ALT
  6429. ;
  6430. ;
  6431. ;
  6432. <<135
  6433. <<135
  6434. <<90
  6435. <<90
  6436. <<45
  6437. <<45
  6438. ;
  6439. ;
  6440. ;
  6441. <<180
  6442. <<180
  6443. <\
  6444. <\
  6445. <<0
  6446. <<0
  6447. ;
  6448. ;
  6449. ;
  6450. <<225
  6451. <<225
  6452. <<270
  6453. <<270
  6454. <<315
  6455. <<315
  6456. ;
  6457. ;
  6458. ;
  6459. ^H
  6460. ^H
  6461. ^H
  6462. ^H
  6463. ^H
  6464. ^H
  6465. ;
  6466. ;
  6467. ;
  6468. m\
  6469. m\
  6470. cm\
  6471. cm\
  6472. mm\
  6473. mm\
  6474. ;
  6475. ;
  6476. ;
  6477. .\
  6478. .\
  6479. +\
  6480. +\
  6481. %%d\
  6482. %%d\
  6483. ;
  6484. ;
  6485. ;
  6486. ,\
  6487. ,\
  6488. %%p\
  6489. %%p\
  6490. %%c\
  6491. %%c\
  6492. ;
  6493. ;
  6494. ;
  6495. -\
  6496. -\
  6497. /\
  6498. /\
  6499. X\
  6500. X\
  6501. ;
  6502. ;
  6503. ;
  6504. @\
  6505. @\
  6506. '\
  6507. '\
  6508. "\
  6509. "\
  6510. ;
  6511. ;
  6512. ;
  6513. 7\
  6514. 7\
  6515. 8\
  6516. 8\
  6517. 9\
  6518. 9\
  6519.  
  6520. ;
  6521. ;
  6522. 4\
  6523. 4\
  6524. 5\
  6525. 5\
  6526. 6\
  6527. 6\
  6528. ;
  6529. ;
  6530. ;
  6531. 1\
  6532. 1\
  6533. 2\
  6534. 2\
  6535. 3\
  6536. 3\
  6537.  
  6538. ;
  6539. ;
  6540. 0\
  6541. 0\
  6542. 00\
  6543. 00\
  6544. 000\
  6545. 000\
  6546. ***Comment
  6547.  
  6548.         Voici le menu alternatif TABLET4, lequel contient
  6549.         les changements, par rapport aux fonctionnalités
  6550.         de base contenues dans le menu de base, suivants :
  6551.  
  6552.         1)  Toutes les commandes peuvent être répétées si
  6553.             cela à un sens.
  6554.         2)  Le choix d'un mode ACCROBJ forcé change le mode
  6555.             d'accrochage en transparent par 'MODIFVAR OSMODE.
  6556.  
  6557.         Menu items S19 - S22 contain the calls to swap the tablet menus.
  6558.  
  6559.         These items cause tablet menus to be swapped which contain
  6560.         various "expert" menu selections.  A variable is used to
  6561.         hold bit-coded values which are on when the menu is  swapped,
  6562.         i.e., when the alternate menu has been swapped in.  Bit 1
  6563.         is on when menu area 1 is swapped, bit 2 when menu area 2
  6564.         is swapped, and so on with bits 4 and 8.
  6565.  
  6566.         When bit 1 is set, the first asterick in the second line
  6567.         of the screen menu is replaced  with the numeral one, the
  6568.         second asterick when bit 2 is set, and so on with bits 4
  6569.         and 8.
  6570.  
  6571.         This shows the user that there has been a change to the
  6572.         structure of the menus in a graphical, albeit miniscule,
  6573.         way.  Prompts describing the changes enacted via the menu
  6574.         swaps will pick up the balance of the feedback to the user.
  6575.         They should be tied to the setting of the EXPERT system
  6576.         variable.  If the value of the EXPERT system variable is 0,
  6577.         then a prompt such as this should be issued;
  6578.         "Menu area 3 has been swapped.  Optional metric
  6579.         functionality is now active."  If the value of the EXPERT
  6580.         system variable is 1-4, the prompt should be shortened to;
  6581.         "Menu area 3 has been swapped.", and if the value of
  6582.         the EXPERT system variable is greater than 4, all prompts
  6583.         should be suppressed.  This is currently unsupported.
  6584.  
  6585.         Selecting the AutoCAD heading at the top of the screen
  6586.         menu resets all of the menus to their default values as
  6587.         does re-entering the drawing editor.
  6588.  
  6589.  
  6590. ***TABLET4ALT
  6591. ;
  6592. ;
  6593. ;
  6594. ;
  6595. ;
  6596. ;
  6597. ;
  6598. ;
  6599. ;
  6600. ;
  6601. ;
  6602. ;
  6603. ;
  6604. ;
  6605. ;
  6606. ;
  6607. ;
  6608. ;
  6609. [Tablet 1]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6610. (if (= (logand 1 T_MENU) 1)(progn (setq T_MENU (- T_MENU 1))+
  6611. (if (< (getvar "EXPERT") 4)(princ "Zone 1 menu tabl. alt. non chargée.  "));+
  6612. (menucmd "T1=TABLET1")(if (< (getvar "EXPERT") 1)(progn +
  6613. (terpri)(princ "Sélection depuis menus tablette AutoCAD AME et AutoShade.")(princ))))+
  6614. (progn (setq T_MENU (+ T_MENU 1))+
  6615. (if (< (getvar "EXPERT") 4)(princ "Zone 1 menu tabl. alt. chargée.  "));+
  6616. (menucmd "T1=TABLET1ALT")(if (< (getvar "EXPERT") 1)(progn +
  6617. (terpri)(princ "Cette zone est pour vos propres applications et menus.")(princ)))))+
  6618. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6619. [Tablet 2]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6620. (if (= (logand 2 T_MENU) 2)(progn(setq T_MENU (- T_MENU 2))+
  6621. (if (< (getvar "EXPERT") 4)(princ "Zone 2 menu tabl. alt. non chargée.  "));+
  6622. (menucmd "T2=TABLET2")(if old_wv (setvar "WORLDVIEW" old_wv))(if (< (getvar "EXPERT") 1)(progn +
  6623. (terpri)(princ "Commandes transparentes: VPOINT et DVIEW dans le mode Worldview.")(princ))))+
  6624. (progn(setq T_MENU (+ T_MENU 2));+
  6625. (setq old_wv (getvar "WORLDVIEW"))(setvar "WORLDVIEW" 0)+
  6626. (if (< (getvar "EXPERT") 4)(princ "Zone 2 menu tabl. alt. chargée.  "));+
  6627. (menucmd "T2=TABLET2ALT")(if (< (getvar "EXPERT") 1)(progn +
  6628. (terpri)(princ "Sortie de commande ZOOM etc. par CTRL-C: POINTVUE et VUEDYN en mode SCU cour.")(princ)))))+
  6629. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6630. [Tablet 3]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6631. (if (= (logand 4 T_MENU) 4)(progn(setq T_MENU (- T_MENU 4))+
  6632. (if (< (getvar "EXPERT") 4)(princ "Zone 3 menu tabl. alt. non chargée.  "));+
  6633. (menucmd "T3=TABLET3")(if (< (getvar "EXPERT") 1)(progn +
  6634. (terpri)(princ "Choix des unités US dans le menu Numérique.")(princ))))+
  6635. (progn(setq T_MENU (+ T_MENU 4))+
  6636. (if (< (getvar "EXPERT") 4)(princ "Zone 3 menu tabl. alt. chargée.  "));+
  6637. (menucmd "T3=TABLET3ALT")(if (< (getvar "EXPERT") 1)(progn +
  6638. (terpri)(princ "Choix des unités MÉTR. dans le menu Numérique.")(princ)))))+
  6639. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6640. [Tablet 4]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6641. (if (= (logand 8 T_MENU) 8)(progn(setq T_MENU (- T_MENU 8))+
  6642. (if (< (getvar "EXPERT") 4)(princ "Zone 4 menu tabl. alt. non chargée.  "));+
  6643. (menucmd "T4=TABLET4")(if (< (getvar "EXPERT") 1)(progn +
  6644. (terpri)(princ "Sortie du mode ACCROBJ domine: commandes NON répétées.")(princ))))+
  6645. (progn(setq T_MENU (+ T_MENU 8))+
  6646. (if (< (getvar "EXPERT") 4)(princ "Zone 4 menu tabl. alt. chargée.  "));+
  6647. (menucmd "T4=TABLET4ALT")(if (< (getvar "EXPERT") 1)(progn +
  6648. (terpri)(princ "Sortie du mode ACCROBJ correcte: commandes répétées.")(princ)))))+
  6649. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6650. ;
  6651. ;
  6652. ;
  6653. ^C^CTEMPS
  6654. *^C^C$S=X $S=ID ID
  6655. ^C^CETAT
  6656. ^C^C$S=X $S=LIST LISTE
  6657. 'AIDE
  6658. 'AIDE
  6659. ;
  6660. ^C^CDDEMODES
  6661. ^C^CDDEMODES
  6662. ^C^C$S=X $S=OSNAPC RESOL
  6663. ;
  6664. 'MODIFVAR OSMODE 0
  6665. 'MODIFVAR OSMODE 4
  6666. 'MODIFVAR OSMODE 1
  6667. 'MODIFVAR OSMODE 64
  6668. 'MODIFVAR OSMODE 32
  6669. 'MODIFVAR OSMODE 2
  6670. 'MODIFVAR OSMODE 512
  6671. 'MODIFVAR OSMODE 8
  6672. 'MODIFVAR OSMODE 128
  6673. 'MODIFVAR OSMODE 16
  6674. 'MODIFVAR OSMODE 256
  6675. ;
  6676. ^C^CSAUVEGRD
  6677. ^C^CSAUVEGRD
  6678. ^C^CDBLISTE
  6679. *^C^C$S=X $S=AREA AIRE
  6680. *^C^CDISTANCE
  6681. ^C^C$S=X $S=LIST LISTE
  6682. 'AIDE
  6683. 'AIDE
  6684. ;
  6685. ^C^CDDAMODES
  6686. ^C^CDDAMODES
  6687. ^C^C$S=X $S=OSNAPC RESOL
  6688. ;
  6689. ANNULER R
  6690. ^C^CU
  6691. ^C^CRETABLIR
  6692. AUTO
  6693. MULTIPLE
  6694. FENETRE
  6695. DERNIER
  6696. PRECEDENT
  6697. CAPTURE
  6698. RETIRER
  6699. AJOUTER
  6700. ;
  6701. ^C^C$S=X $S=END FIN
  6702. ^C^C$S=X $S=QUIT QUITTER
  6703. *^C^C$S=X $S=DIM COT SAUVER
  6704. *^C^C$S=X $S=DIM COT RESTAURE
  6705. *^C^C$S=X $S=DIM COT SAUVER ? *
  6706. *^C^C$S=X $S=TEDIT COT TEDIT
  6707. *^C^C$S=X $S=DIM COT TROTATIO
  6708. *^C^C$S=X $S=DIM COT INITXT
  6709. ;
  6710. *^C^C$S=X $S=DDEDIT DDEDIT
  6711. *^C^C$S=X $S=DDEDIT DDEDIT
  6712. *^C^C$S=X $S=QTEXT RAPTEXTE
  6713. ;
  6714. ^C^C
  6715. ^C^C
  6716. ^C^C
  6717. ^O
  6718. ^D
  6719. ^Q
  6720. ECRANGRA
  6721. ^E
  6722. ^G
  6723. ^B
  6724. ^V
  6725. ;
  6726. ^C^CFICHIERS
  6727. ^C^CFICHIERS
  6728. ^C^CDIM1 ETAT
  6729. *^C^C$S=X $S=VAR1 COT
  6730. *^C^C$S=X $S=DIM COT REECRIRE
  6731. ^C^C$S=X $S=DIM COT OBLIQUE
  6732. SORTIR;^C^C$S=X $S=S
  6733. SORTIR;^C^C$S=X $S=S
  6734. ;
  6735. ^C^C$S=X $S=TEXTSET TEXTE
  6736. ^C^C$S=X $S=TEXTSET TEXTE
  6737. *^C^C$S=X $S=TEXT TEXTE STYLE
  6738. ;
  6739. *^C^C$S=X $S=SCALE ECHELLE
  6740. *^C^C$S=X $S=ROTATE ROTATION
  6741. *^C^C$S=X $S=OFFSET DECALER
  6742. *^C^C$S=X $S=MOVE DEPLACER
  6743. *^C^C$S=X $S=ERASE EFFACER
  6744. *^C^C$S=X $S=ERASE EFFACER
  6745. ^C^CRETABLIR
  6746. *^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  6747. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  6748. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  6749. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  6750. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  6751. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  6752. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  6753. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  6754. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  6755. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  6756. (princ));PEDITM;^P
  6757. *^C^CDECOMPOS
  6758. *^C^C$S=X $S=ARRAY RESEAU
  6759. *^C^C$S=X $S=DIVIDE DIVISER
  6760. ;
  6761. ^C^CTRACEUR
  6762. ^C^CIMPGRAPH
  6763. *^C^C$S=X $S=DIMORD COT ORDONNEES
  6764. *^C^C$S=X $S=DIM COT RAPPEL
  6765. *^C^C$S=X $S=DIMLINEAR LIGNEBAS
  6766. *^C^C$S=X $S=DIMLINEAR CONTINUE
  6767. *^C^C$S=X $S=DIMLINEAR COT VERTICAL
  6768. *^C^C$S=X $S=DIMLINEAR COT HORIZONTAL
  6769. ;
  6770. *^C^C$S=X $S=TEXT TEXTE ALIGNE
  6771. *^C^C$S=X $S=TEXT TEXTE MILIEU
  6772. *^C^C$S=X $S=TEXT TEXTE FIXE
  6773. ;
  6774. *^C^C$S=X $S=MIRROR MIROIR
  6775. *^C^C$S=X $S=BREAK2P COUPURE \P
  6776. *^C^C$S=X $S=BREAKSPL COUPURE \P \@
  6777. *^C^C$S=X $S=COPY COPIER
  6778. *^C^C$S=X $S=EXTEND PROLONGE
  6779. *^C^C$S=X $S=STRETCH ETIRER C
  6780. *^C^C$S=X $S=TRIM AJUSTER
  6781. *^C^C$S=X $S=FILLET0 RACCORD R 0;;
  6782. *^C^C$S=X $S=FILLET RACCORD
  6783. *^C^C$S=X $S=CHAMFER CHNFREIN
  6784. *^C^C$S=X $S=MEASURE MESURER
  6785. ;
  6786. ^C^C$S=X $S=UT
  6787. ^C^C^P(if R11omn (progn(command "Menu" R11omn)(setq R11omn nil));+
  6788. (if (setq R11omn (getvar "menuname"));+
  6789. (if (setq envname (getenv "ACADALTMENU")) (command "Menu" +
  6790. (findfile envname)) (command "Menu" R11omn))))(setq T_MENU nil)(princ) ^P
  6791. *^C^C$S=X $S=DIM COT CENTRE
  6792. *^C^C$S=X $S=DIM COT RAYON
  6793. *^C^C$S=X $S=DIM COT DIAMETRE
  6794. *^C^C$S=X $S=DIM COT ANGULAIRE
  6795. *^C^C$S=X $S=DIM COT ROTATION
  6796. *^C^C$S=X $S=DIMLINEAR COT ALIGNE
  6797. ;
  6798. *^C^C$S=X $S=TEXT TEXTE
  6799. *^C^C$S=X $S=TEXT TEXTE C
  6800. *^C^C$S=X $S=TEXT TEXTE DROITE
  6801. ;
  6802. *^C^C$S=X $S=SNAP RESOL
  6803. *^C^C$S=X $S=GRID GRILLE
  6804. *^C^C$S=X $S=UNITS UNITES
  6805. *^C^C$S=X $S=LINETYPE TYPELIGN
  6806. *^C^C$S=X $S=CHANGE CHANGER
  6807. *^C^C$S=X $S=CHANGE CHANGER
  6808. *^C^C$S=X $S=CHPROP CHPROP
  6809. *^C^CECHLTP
  6810. *^C^C$S=X $S=COLOR COULEUR
  6811. *^C^CTILEMODE
  6812. *^C^C$S=X $S=APERTURE OUVERTUR
  6813. ;
  6814. ^C^C$S=X $S=EXCOMDS
  6815. ^C^C$S=X $S=EXCOMDS
  6816. **DTEXT1 110
  6817. *^C^C$S=X $S=DTEXT TXTDYN STYLE
  6818. **DTEXT2 133
  6819. *^C^C$S=X $S=DTEXT TXTDYN ALIGNE
  6820. *^C^C$S=X $S=DTEXT TXTDYN MILIEU
  6821. *^C^C$S=X $S=DTEXT TXTDYN FIXE
  6822. **DTEXT3 158
  6823. *^C^C$S=X $S=DTEXT TXTDYN
  6824. *^C^C$S=X $S=DTEXT TXTDYN C
  6825. *^C^C$S=X $S=DTEXT TXTDYN DROITE
  6826. **TEXT1 110
  6827. *^C^C$S=X $S=TEXT TEXTE STYLE
  6828. **TEXT2 133
  6829. *^C^C$S=X $S=TEXT TEXTE ALIGNE
  6830. *^C^C$S=X $S=TEXT TEXTE MILIEU
  6831. *^C^C$S=X $S=TEXT TEXTE FIXE
  6832. **TEXT3 158
  6833. *^C^C$S=X $S=TEXT TEXTE
  6834. *^C^C$S=X $S=TEXT TEXTE C
  6835. *^C^C$S=X $S=TEXT TEXTE DROITE
  6836.  
  6837.