home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p065 / 5.img / ACAD.MNU < prev    next >
Encoding:
Text File  |  1992-02-28  |  188.4 KB  |  6,926 lines
  1.  
  2. ***Comment  
  3.            
  4.         Copyright (C) 1986-1990 by Autodesk, Inc..
  5.         Version 11.0 for Release 11 (10/15/90)
  6.            
  7.         Permission to use, copy, modify, and distribute this software 
  8.         for any purpose and without fee is hereby granted, provided 
  9.         that the above copyright notice appear in all copies and that 
  10.         both that copyright notice and this permission notice appear in 
  11.         supporting documentation.  This software is provided "as is"
  12.         without express or implied warranty.
  13.            
  14.  
  15.            
  16.  
  17.  
  18.  
  19. ***BUTTONS
  20. ;
  21. $p1=*
  22. ^C^C
  23. ^B
  24. ^O
  25. ^G
  26. ^D
  27. ^E
  28. ^T
  29. ***AUX1
  30. ;
  31. $p1=*
  32. ^C^C
  33. ^B
  34. ^O
  35. ^G
  36. ^D
  37. ^E
  38. ^T
  39.  
  40. ***POP1
  41. [╣ñ╛▀]
  42. [Help!        ]'?
  43. [~--]
  44. [Cancel       ]^C^C
  45. [~--]
  46. [Osnap: <mode>]^C^C$p1= $p1=* OSNAP \
  47. CENter
  48. [ENDpoint     ]ENDP
  49. INSert
  50. [INTersection]INT
  51. MIDpoint
  52. NEArest
  53. NODe
  54. [PERpendicular]PER
  55. QUAdrant
  56. [Quick,<mode> ]QUICK,^Z$p1=*
  57. TANgent
  58. NONE
  59. [~--]
  60. [FILTERS     >]$p1=filters $p1=*
  61.  
  62. **filters
  63. [Filters]
  64. .X
  65. .Y
  66. .Z
  67. .XY
  68. .XZ
  69. .YZ
  70. [~--]
  71. [ASSIST >]$p1= $p1=*
  72.  
  73. ***POP2
  74. [╞╜├µ═╝]
  75. [╫÷╖╜░╕]$p2=fram $p2=*
  76. [╗¡╓ß╧▀]$p2=axis $p2=*
  77. [╗µ╟╜╠σ]$p2=wall $p2=*
  78. [├┼┤░]$p2=window $p2=*
  79. [▓σ╓∙╫╙]^C^C^P(ld c:colume "colume" 1);^PCOLUME;
  80. [╞Σ╦√]$p2=other $p2=*
  81. [═╝╖√║┼]$p2=pdim $p2=*
  82.  
  83. **fram
  84. [╫÷╖╜░╕]
  85. [▓π╕▀]^C^Celev 0;
  86. [╗¡═Γ╟╜]^C^C$S=X $S=PLINE layer m pwallw c 7 pwallw ;pline;
  87. [╗¡─┌╟╜]^C^C$S=X $S=PLINE layer m pwalln c 16 pwalln ;pline;
  88. [▓σ├┼┤░]^C^C^P(ld c:iswin "iswin" 1);^PISWIN;
  89. [╕─╢┤╕▀]^C^C^P(ld c:chh "chh" 1);^PCHH;
  90. [╔╛├┼┤░]^C^C^P(ld c:erwin "erwin" 1);^PERWIN;
  91. [╦½╧▀╟╜]^C^C^P(ld c:pw "pw" 1);^PPW;
  92. [ 0 ▓π]^C^Clayer s 0 ;
  93. [~--]
  94. [╖╡╗╪]$p2= $p2=*
  95.  
  96. **axis
  97. [╗¡╓ß╧▀]
  98. [╣µ╘≥╓ß═°]^C^C^P(ld c:othoax "othoax" 1);^POTHOAX;
  99. [╨▒╓ß║┼]^C^C^P(ld c:instax "othoax" 1);^PINSTAX;
  100. [╠φ▓╣╓ß╧▀]^C^C^P(ld c:insaxis "zxy" 1);^PINSAXIS
  101. [▓σ╚δ╓ß║┼]^C^C^P(ld c:insnum "zxy" 1);^PINSNUM;
  102. [╕─╓ß║┼]^C^C^P(ld c:renum "zxy" 1);^PRENUM;
  103. [▒Ω╝╟╓ß╧▀╡π]^C^C^P(ld c:blip "zxy" 1);^PBLIP CROSSING;
  104. [╔╛│²╡π]^C^C^P(ld c:erap "erap" 1);^PERAP;
  105. [~--]
  106. [╔╧╕÷▓╦╡Ñ]$p2= $p2=*
  107.  
  108. **wall
  109. [╗µ╟╜╠σ]
  110. [╥╗░π╟╜]^C^C^P(ld c:wall "dimwall" 1);^PWALL;
  111. [╕⌠╢╧╟╜]^C^C^P(ld c:partywall "dimwall" 1);^PPARTYWALL;
  112. [╔╛│²╕⌠╢╧╟╜]^C^C^P(ld c:erwall "dwall" 1);^PERWALL;
  113. [╗í╧▀╟╜]^C^C^P(ld c:arcwall "arcwall" 1);^PARCWALL;
  114. [╟╜╢Γ]^C^C^P(ld c:dwall "dwall" 1);^PDWALL;
  115. [╝╙┐φ╟╜╧▀]^C^C^P(ld c:ltopl "ltopl" 1);^PLTOPL;
  116. [▒Ω╫ó╟╜║±]^C^C^P(ld c:twall "twall" 1);^PTWALL;
  117. [~--]
  118. [╔╧╕÷▓╦╡Ñ]$p2= $p2=*
  119.  
  120. **window
  121. [├┼┤░]
  122. [▓Θ├┼┤░╩╜╤∙]$i=mc $i=*
  123. [╢╧╟╜╧▀▓σ┤░]^C^C^P(ld c:inswin "inswin" 1);^PINSWIN;
  124. [╔╛│²┤░]^C^C^P(ld c:erawin "erawin" 1);^PERAWIN;
  125. [╕─├┼┐¬╧≥]^C^C^P(ld c:dirt "window" 1);^PDIRT;
  126. [╕─├┼╓ß╬╗╓├]^C^C^P(ld c:fix "window" 1);^PFIX;
  127. [▒Ω╫ó├┼┤░│▀┤τ]^C^C^P(ld c:twin "twin" 1);^PTWIN;
  128. [▒Ω╫ó├┼┤░╨═║┼]^C^C^P(ld c:txh "txh" 1);^PTXH;
  129. [╖╓▓π├┼┤░╩²┴┐]^C^C^P(ld c:calc "window" 1);^PCALC;
  130. [~--]
  131. [╔╧╕÷▓╦╡Ñ]$p2= $p2=*
  132.  
  133. **pdim
  134. [═╝╖√║┼]
  135. [═╝├µ╖√║┼]^C^C^P(inblk blx);^P$i=sym $i=*
  136. [├┼┤░▒φ]^C^C^P(ld c:mcb "window" 1);^PMCB;
  137. [▓─┴╧▒φ]^C^C^P(inblk blx);^PCLB;
  138. [~--]
  139. [╔╧╕÷▓╦╡Ñ]$p2= $p2=*
  140.  
  141. **other
  142. [╞Σ╦√]
  143. [┬Ñ╠▌]^C^C^P(ld c:lt "lt" 1);^PLT $i=lt $i=* $s=x $s=pllt
  144. [╤⌠╠¿]^C^C^P(ld c:ter "ter" 1);^PTER $i=ter $i=*
  145. [╔ó╦«]^C^C^P(ld c:san "san" 1);^PSAN;
  146. [╠¿╜╫]^C^C^P(ld c:tj "tj" 1);^PTJ $i=tj $i=*
  147. [╬└╔·╔Φ▒╕]^C^C^P(inblk 1);^P$i=we $i=*
  148. [│°╖┐╔Φ▒╕]^C^C^P(inblk 1);^P$i=chf $i=*
  149. [~--]
  150. [╔╧╕÷▓╦╡Ñ]$p2= $p2=*
  151.  
  152. ***POP3
  153. [┴ó├µ═╝]
  154. [╫÷┴ó├µ]$p3=gen $p3=*
  155. [▓σ├┼┤░]^C^C^P(ld c:exw "exw" 2);^PEXW;
  156. [├┼┤░▒Ω╕▀]^C^C^P(ld c:elv "elv" 2);^PELV;
  157. [╞Σ╦√]$p3=eother $p3=*
  158.  
  159. **gen
  160. [╫÷┴ó├µ]
  161. [╢½┴ó├µ]^C^C^P(ld c:eelv "eelv" 2);^PEELV;
  162. [─╧┴ó├µ]^C^C^P(ld c:selv "selv" 2);^PSELV;
  163. [╬≈┴ó├µ]^C^C^P(ld c:welv "welv" 2);^PWELV;
  164. [▒▒┴ó├µ]^C^C^P(ld c:nelv "nelv" 2);^PNELV;
  165. [~--]
  166. [╔╧╕÷▓╦╡Ñ]$p3= $p3=*
  167.  
  168. **eother
  169. [╞Σ╦√]
  170. [┼«╢∙╟╜]^C^C^P(ld c:enuer "enu3" 2);^PENUER;
  171. [└╒╜╟]^C^C^P(ld c:leie "lei" 2);^PLEIE;
  172. [╠¿╜╫]^C^C^P(ld c:tje "tjes" 2);^PTJE $i=tje $i=*
  173. [╙Ω┼±]^C^C^P(ld c:emny "mn2" 2);^PEMNY;
  174. [╙Ω╦«╣▄]^C^C^P(ld c:yug "tjes" 2);^PYUG;
  175. [╬└╔·╔Φ▒╕]^C^C^P(inblk 1);^P$i=ewe $i=*
  176. [│°╖┐╔Φ▒╕]^C^C^P(inblk 1);^P$i=echf $i=*
  177. [~--]
  178. [╔╧╕÷▓╦╡Ñ]$p3= $p3=*
  179.  
  180. ***POP4
  181. [╞╩├µ═╝]
  182. [╔·│╔╞╩├µ]^C^C^P(ld c:pao "pao" 2);^PPAO;
  183. [▓σ├┼┤░]^C^C^P(ld c:pxw "pxw" 2);^PPXW;
  184. [├┼┤░▒Ω╕▀]^C^C^P(ld c:plv "plv" 2);^PPLV;
  185. [┬Ñ░σ▒Ω╕▀]^C^C^P(ld c:pbanlv "pbanlv" 2);^PPBANLV;
  186. [╞Σ╦√]$p4=sother $p4=*
  187.  
  188. **sother
  189. [╞Σ╦√]
  190. [┼«╢∙╟╜]^C^C^P(ld c:nuer "enu3" 2);^PNUER $i=roof $i=*
  191. [└╒╜╟]^C^C^P(ld c:leis "lei" 2);^PLEIS;
  192. [╠¿╜╫]^C^C^P(ld c:tjs "tjes" 2);^PTJS;
  193. [┬Ñ╠▌]^C^C^P(ld c:stair "stair" 2);^PSTAIR;
  194. [╙Ω┼±]^C^C^P(ld c:mny "mn2" 2);^PMNY;
  195. [~--]
  196. [╔╧╕÷▓╦╡Ñ]$p4= $p4=*
  197.  
  198. ***POP5
  199. [═╕╩╙═╝]
  200. [╫÷╧▀┐≥]$p5=pertof $p5=*
  201. [├┼┤░]$p5=perwin $p5=*
  202. [┬Ñ╠▌]^C^C^P(ld c:3dst "3dst" 3);^P3DST;
  203. [╚²╬¼┐╜▒┤]^C^C^P(ld c:3darray "3darray" 3);^P3DARRAY;
  204. [╟╜╬▌├µ]$p5=perface $p5=*
  205. [╫∙▒Ω╧╡]^C^C^P(ld c:user "ucs" 3);^PUSER;
  206. [BIGD╬╞└φ]^C^C^P(ld c:bdinsw "exw" 3);^PBDINSW;
  207.  
  208. **pertof
  209. [╫÷╧▀┐≥]
  210. [╡Ñ├µ╧▀┐≥]^C^C^P(ld c:single "ltof" 3);^PSINGLE;
  211. [╦½├µ╧▀┐≥]^C^C^P(ld c:dubble "ltof" 3);^PDUBBLE;
  212. [╙┼╗»╧▀┐≥]^C^C^P(ld c:opm "opm" 3);^POPM;
  213. [BigD╧▀┐≥]^C^C^P(ld c:ftol "ftol" 3);^PFTOL;
  214. [~--]
  215. [╔╧╕÷▓╦╡Ñ]$p5= $p5=*
  216.  
  217. **perwin
  218. [├┼┤░]
  219. [▓σ╚δ├┼┤░]^C^C^P(ld c:insw "exw" 3);^PINSW;
  220. [╟╨╜╟┤░]^C^C^P(ld c:cham "cham" 3);^PCHAM;
  221. [╘▓╜╟┤░]^C^C^P(ld c:fllet "fllet" 3);^PFLLET;
  222. [░╝╜╟┤░]^C^C^P(ld c:corn "corn" 3);^PCORN;
  223. [╔ó╔Σ╫┤┤░]^C^C^P(ld c:proj "proj" 3);^PPROJ;
  224. [╝╙┐φ┤░╕±╧▀]^C^C^P(ld c:wtopl "exw" 3);^PWTOPL;
  225. [├┼┴¬┤░├┼┐≥]^C^C^P(ld c:two "two" 3);^PTWO;
  226. [├┼┴¬┤░╖╜╧≥]^C^C^P(ld c:rot "two" 3);^PROT;
  227. [~--]
  228. [╔╧╕÷▓╦╡Ñ]$p5= $p5=*
  229.  
  230. **perface
  231. [╟╜╬▌├µ]
  232. [╠∙╞╜├µ]^C^C3dface end;\end;\end;\end;\;
  233. [╥■╚Ñ╞╜├µ▒▀]^C^C^P(ld c:edge "edge" 3);^PEDGE;
  234. [╥╞╞╜├µ╢Ñ╡π]^C^C^P(ld c:chface "chface" 3);^PCHFACE;
  235. [╖╓┐¬╞╜├µ]^C^C^P(ld c:trmf "extf" 3);^PTRMF;
  236. [╤╙╔∞╞╜├µ]^C^C^P(ld c:extf "extf" 3);^PEXTF;
  237. [╥∞╨╬╬▌├µ]^C^C^P(ld c:roof "roof" 3);^PROOF;
  238. [~--]
  239. [╔╧╕÷▓╦╡Ñ]$p5= $p5=*
  240.  
  241. **perscen
  242. [═Γ┼Σ╛░]
  243. [╚╦╬∩]^C^C^P(inblk 1);^Pperson;
  244. [╩≈]^C^C^P(inblk 1);^Ptree;
  245. [╞√│╡]^C^C^P(inblk 1);^Pcar;
  246. [╘╞▓╩]^C^C^P(inblk 1);^Pcloud;
  247. [╡╞╛▀]^C^C^P(inblk 1);^Plamp;
  248. [~--]
  249. [╔╧╕÷▓╦╡Ñ]$p5= $p5=*
  250.  
  251. **persofa
  252. [─┌┼Σ╛░]
  253. [╥┬╣±]^C^C^P(inblk 1);^Pz23\
  254. [░½╣±]^C^C^P(inblk 1);^Pz21\
  255. [┤▓═╖╣±]^C^C^P(inblk 1);^Pz13\
  256. [┤▓]^C^C^P(inblk 1);^Pbed\
  257. [▓═╫└]^C^C^P(inblk 1);^Ptable\
  258. [╥╬╫╙]^C^C^P(inblk 1);^Pchair\
  259. [╨┤╫╓╠¿]^C^C^P(inblk 1);^Pdesk\
  260. [╫≤╔│╖ó]^C^C^P(inblk 1);^Psofa1\
  261. [╓╨╔│╖ó]^C^C^P(inblk 1);^Psofa2\
  262. [╙╥╔│╖ó]^C^C^P(inblk 1);^Psofa3\
  263. [▓Φ╝╕]^C^C^P(inblk 1);^Psofa0\
  264. [~--]
  265. [╔╧╕÷▓╦╡Ñ]$p5= $p5=*
  266.  
  267. **p2draw
  268. [╗µ═╝└α]
  269. [Line       ]^C^C$S=X $S=line line
  270. [Point      ]*^C^C$S=X $S=point point
  271. [Circle    >]^C^C^P$p6=p2cir $p6=* (if (not c:ct)(defun c:ct ()+
  272. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  273. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" pause pause)+
  274. (setq *error* m:err m:err nil)(princ)))(princ);ct;\\^P$p6=p2draw
  275. [Arc       >]^C^C^P$p6=p2arc $p6=* (if (not c:at)(defun c:at ()+
  276. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  277. (setq *error* m:err m:err nil)(princ))(command "ARC" pause pause pause)+
  278. (setq *error* m:err m:err nil)(princ)))(princ);at;\\\^P$p6=p2draw
  279. [3D Face    ]^C^C$S=X $S=3dface 3dface
  280. [~--]
  281. [Polyline   ]^C^C^P$S=X $S=pline pline
  282. [3D Poly    ]^C^C$S=X $S=3dpoly 3dpoly
  283. [Donut      ]^C^Cdonut ;;
  284. [Ellipse    ]^C^C$S=X $S=ellipse ellipse
  285. [Polygon    ]^C^C^P$S=X $S=polygon (if (not c:mpg)+
  286. (defun c:mpg (/ m:err m:ps2 m:pe2 m:pg2 m:pgce)+
  287. (defun *error* (msg)(setvar "CMDECHO" m:pgce)(setq *error* m:err)(princ));+
  288. (setq m:err *error* m:pgce (getvar "CMDECHO"));+
  289. (if (not m:ps)(while (not m:ps2)(terpri)(graphscr)(initget 7)(setq m:ps2+
  290. (getint "Number of sides: "))(if (or (< m:ps2 3)(> m:ps2 1024))(progn(terpri)+
  291. (princ "Value must be between 3 and 1024.")(setq m:ps2 nil))));+
  292. (setq m:ps2 m:ps))(if (not m:pe)(progn(terpri)(initget 1 "Edge")+
  293. (setq m:pe2 (getpoint "Edge/<Center of polygon>: "))) (if (= m:pe "Center")+
  294. (progn(terpri)(initget 1)(setq m:pe2 (getpoint "Center of polygon: ")));+
  295. (setq m:pe2 "Edge")))(if (and(/= m:pe2 "Edge")(not m:pg))(progn(terpri)+
  296. (initget 1 "Inscribed Circumscribed")(setq m:pg2+
  297. (getkword "Inscribed in circle/Circumscribed about circle (I/C): ")));+
  298. (setq m:pg2 m:pg))(setvar "CMDECHO" 1)(if (= m:pe2 "Edge")(progn+
  299. (command "POLYGON" m:ps2)(terpri)(command "Edge" pause pause))+
  300. (command "POLYGON" m:ps2 m:pe2 m:pg2 pause))(setvar "CMDECHO" m:pgce);+
  301. (setq *error* m:err)(princ)))(princ);mpg;^P
  302. [~--]
  303. [Insert     ]^C^C^P(if (not c:pinsert)+
  304. (defun c:pinsert (/ m:err m:ce m:ad1 m:in2 m:i0 m:i1 m:i2)(defun *error* (msg)+
  305. (setvar"CMDECHO"m:ce)(setvar"ATTDIA"m:ad1)(setq *error* m:err)(princ));+
  306. (setq m:ce(getvar"CMDECHO")m:ad1(getvar"ATTDIA"))(defun m:in2(m:in2a m:in2b)+
  307. (princ(strcat(chr 13)(chr 10)m:in2a(if(/= m:in2b pause)(if(/=(type m:in2b)'STR)+
  308. (rtos m:in2b)(eval m:in2b))(eval " ")))))(if(= m:ibn nil)(setq m:ibn pause));+
  309. (if(= m:ixs nil)(setq m:ixs pause))(if(= m:iys nil)(setq m:iys pause))+
  310. (if(= m:ira nil)(setq m:ira pause))(if(= m:izs nil)(setq m:izs m:ixs))+
  311. (setvar"CMDECHO"0)(setvar"ATTDIA"1)(command"INSERT")(m:in2 "Block name: " m:ibn);+
  312. (command m:ibn)(m:in2 "Insertion point: " pause)(command pause "XYZ")+
  313. (if(= m:ixs pause)(progn(initget 2 "C")(setq m:i1(getreal(strcat(chr 13)+
  314. (chr 10)"X Scale factor <1> / Corner: ")))(if(= m:i1 "C");+
  315. (progn(initget 9)(setq m:i0(getvar "LASTPOINT")m:i2(getpoint m:i0+
  316. "Other corner: "))(command (-(car m:i2)(car m:i0))(-(cadr m:i2)(cadr m:i0)))+
  317. (m:in2 "Z scale factor (default = X): " m:izs)(command m:izs);+
  318. (m:in2 "Rotation angle <0>: " m:ira)(command m:ira))(progn(if(/=(type m:i1)+
  319. 'REAL)(setq m:i1 1.0))(command m:i1)(m:in2 "Y scale factor (default = X): " m:iys)+
  320. (command m:iys)(m:in2 "Z scale factor (default = X): " m:izs)(command m:izs);+
  321. (m:in2 "Rotation angle <0>: " m:ira)(command m:ira))))(progn+
  322. (m:in2 "X Scale factor <1> / Corner: " m:ixs)(command m:ixs)+
  323. (m:in2 "Y Scale factor (default = X): " m:iys)(command m:iys);+
  324. (m:in2 "Z Scale factor (default = X): " m:izs)(command m:izs)+
  325. (m:in2 "Rotation angle <0>: " m:ira)(command m:ira)))(setvar "CMDECHO" m:ce)+
  326. (setvar "ATTDIA" m:ad1)(setq *error* m:err)(princ)))(princ);pinsert;^P
  327. [Xref       ]$S=X $S=XREF ^C^CXREF
  328. [~--]
  329. [Surfaces...]$I=surf1 $I=*
  330. [Objects... ]$I=3dobjects $I=*
  331. [~--]
  332. [Dtext      ]^C^C^P(if (not c:dt)(defun c:dt (/ m:err m:ta0 m:tsh m:t1)+
  333. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(if m:ta0+
  334. (setq m:ta pause))(princ))(if (/= (type m:ta) 'STR)(setq m:ta pause));+
  335. (if (/= (type m:th) 'REAL)(setq m:th pause))(if (/= (type m:tr) 'REAL)+
  336. (setq m:tr pause))(setq m:tsh (cdr (assoc 40 (tblsearch "STYLE";+
  337. (getvar"TEXTSTYLE")))))(if(= m:ta pause)(progn(initget 1 "Align Fit C Middle +
  338. Right TLeft TCenter TRight MLeft MCenter MRight BLeft BCenter BRight")(setq +
  339. m:ta0 (getkword "Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR: "));+
  340. (setq m:ta m:ta0)))(if (= m:ta "Align")(progn (if m:ta0 (setq m:ta pause));+
  341. (command "DTEXT" "Align" pause pause))(if (= m:ta "Fit")(progn+
  342. (if m:ta0 (setq m:ta pause))(command "DTEXT" "Fit" pause pause pause))+
  343. (if(= m:tsh 0.0)(progn(if m:ta0(setq m:ta pause m:t1 m:ta0)(setq m:t1 m:ta));+
  344. (command "DTEXT" m:t1 pause m:th m:tr))(progn(if m:ta0 (setq m:ta pause +
  345. m:t1 m:ta0)(setq m:t1 m:ta))(command "DTEXT" m:t1 pause m:tr)))))+
  346. (setq *error* m:err)(prin1)))(princ);dt;^P
  347. [Hatch]^C^C^P$S=X $S=hatch (if (not c:hatchm)(defun c:hatchm (/ m:err m:hp1)+
  348. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  349. (if(/=(type m:hp)'STR)(setq m:hp pause))(if(/=(type m:hs)'STR)(setq m:hs ""));+
  350. (if(/=(type m:hsc)'REAL)(setq m:hsc pause))(if(/=(type m:hr)'REAL)(setq m:hr +
  351. pause))(setq m:hp1 (strcat m:hp m:hs))(if (= m:hp "U")(command "HATCH" m:hp1)+
  352. (if (= m:hp pause)(command "HATCH" pause m:hsc m:hr pause);+
  353. (command "HATCH" m:hp1 m:hsc m:hr pause)))(setq *error* m:err)(princ)))+
  354. (princ);hatchm;^P
  355. [Dim...     ]^C^C$S=X $S=dim DIM $I=drdim $I=*
  356. [AutoCAD]$p6=p4disp $p6=*
  357.  
  358. **p2arc
  359. [Arc]
  360. [3-point           ]$p6=p2draw ^C^C^P(defun c:at () +
  361. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  362. (setq *error* m:err m:err nil)(princ))(command "ARC" pause pause pause)+
  363. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  364. [~--]$p6=p2draw
  365. [Start, Cen, End   ]$p6=p2draw ^C^C^P(defun c:at () +
  366. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  367. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "C" pause pause)+
  368. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  369. [Start, Cen, Angle ]$p6=p2draw ^P^C^C(defun c:at () +
  370. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  371. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "C" pause "A" pause)+
  372. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  373. [Start, Cen, Length]$p6=p2draw ^P^C^C(defun c:at () +
  374. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  375. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "C" pause "L" pause)+
  376. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  377. [Start, End, Angle ]$p6=p2draw ^P^C^C(defun c:at () +
  378. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  379. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "E" pause "A" pause)+
  380. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  381. [Start, End, Radius]$p6=p2draw ^P^C^C(defun c:at () +
  382. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  383. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "E" pause "R" pause)+
  384. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  385. [Start, End, Dir   ]$p6=p2draw ^P^C^C(defun c:at () +
  386. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  387. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "E" pause "D" pause)+
  388. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  389. [Cen, Start, End   ]$p6=p2draw ^P^C^C(defun c:at () +
  390. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  391. (setq *error* m:err m:err nil)(princ))(command "ARC" "C" pause pause pause)+
  392. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  393. [Cen, Start, Angle ]$p6=p2draw ^P^C^C(defun c:at () +
  394. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  395. (setq *error* m:err m:err nil)(princ))(command "ARC" "C" pause pause "A" pause)+
  396. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  397. [Cen, Start, Length]$p6=p2draw ^P^C^C(defun c:at () +
  398. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  399. (setq *error* m:err m:err nil)(princ))(command "ARC" "C" pause pause "L" pause)+
  400. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  401. [~--]$p6=p2draw
  402. [DRAW             >]$p6=p2draw $p6=*
  403.  
  404. **p2cir
  405. [Circle]
  406. [Cen, Dia]$p6=p2draw ^C^C^P(defun c:ct ()+
  407. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  408. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" pause "DIA" pause)+
  409. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  410. [Cen, Rad]$p6=p2draw ^C^C^P(defun c:ct ()+
  411. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  412. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" pause pause)+
  413. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  414. [~--]$p6=p2draw
  415. [2-Point ]$p6=p2draw ^C^C^P(defun c:ct ()+
  416. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  417. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" "2P" pause pause)+
  418. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  419. [3-Point ]$p6=p2draw ^C^C^P(defun c:ct ()+
  420. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  421. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" "3P" pause pause pause)+
  422. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  423. [TTR     ]$p6=p2draw ^P^C^C(defun c:ct ()+
  424. (setq m:err *error*)(defun *error* (msg)(menucmd "p6=p2draw")+
  425. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" "TTR" pause pause pause)+
  426. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  427. [~--]$p6=p2draw
  428. [DRAW   >]$p6=p2draw $p6=*
  429.  
  430. **popedit
  431. [╨▐╕─└α]
  432. [Erase    ]*^C^C$S=X $S=erase erase si auto
  433. [  Oops!  ]^C^Coops
  434. [Move     ]^C^C$S=X $S=move move
  435. [Rotate   ]^C^C$S=X $S=rotate rotate
  436. [Scale    ]^C^C$S=X $S=scale scale
  437. [Stretch  ]^C^C$S=X $S=stretch stretch crossing
  438. [Trim     ]^C^C$S=X $S=trim trim auto
  439. [Extend   ]^C^C$S=X $S=extend extend auto
  440. [Break    ]^C^C$S=X $S=break break
  441. [Chamfer  ]^C^C$S=X $S=chamfer chamfer
  442. [Fillet   ]^C^C$S=X $S=fillet fillet
  443. [~--]
  444. [Copy     ]^C^C$S=X $S=copy copy
  445. [2D Array ]^C^C$S=X $S=array array
  446. [3D Array ]^C^C^P(if (not c:3darray) (if (not (findfile "3darray.lsp")) +
  447. (defun c:3darray ()(setq m:err *error*)(defun *error* (msg)+
  448. (setq *error* m:err m:err nil)(princ))(princ "Cannot find 3darray.lsp ");+
  449. (terpri) +(princ "It is on the SUPPORT DISK. ")(setq C:3DARRAY nil) +
  450. (setq *error* m:err m:err nil)(princ))(load "3darray")))(princ);3darray;^P
  451. [Mirror   ]^C^C$S=X $S=mirror mirror
  452. [Offset   ]^P^C^C$S=X $S=offset (if (not c:offstm)(defun c:offstm (/ m:err)+
  453. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  454. (if (and (/= (type m:od) 'REAL)(/= m:od pause))(setq m:od "T"))+
  455. (command "OFFSET" m:od)(princ)))(princ);offstm;^P
  456. [Divide   ]^P^C^C$S=X $S=divide (if (not c:dividem)(defun c:dividem (/ m:err)+
  457. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  458. (if(/= m:dmby "Yes")(setq m:dmby "No"))(if(/= m:dmba "Yes")(setq m:dmba "No"));+
  459. (if (/= (type m:dmbn) 'STR)(setq m:dmbn pause))(if (/= (type m:du) 'INT)+
  460. (setq m:du pause))(if (/= m:dmby "Yes")(command "DIVIDE" pause m:du)+
  461. (command "DIVIDE" pause "B" m:dmbn m:dmba m:du))(princ)))(princ);dividem;^P
  462. [Measure  ]^P^C^C$S=X $S=measure (if(not c:measurem)(defun c:measurem(/ m:err)+
  463. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  464. (if(/= m:dmby "Yes")(setq m:dmby "No"))(if(/= m:dmba "Yes")(setq m:dmba "No"));+
  465. (if (/= (type m:dmbn) 'STR)(setq m:dmbn pause))(if (/= (type m:md) 'REAL)+
  466. (setq m:md pause))(if (/= m:dmby "Yes")(command "MEASURE" pause m:md)+
  467. (command "MEASURE" pause "B" m:dmbn m:dmba m:md))(princ)))(princ);measurem;^P
  468. [~--]
  469. [PolyEdit ]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  470. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  471. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  472. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  473. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  474. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  475. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  476. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  477. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  478. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  479. (princ));PEDITM;^P
  480. [AutoCAD]$p6=p4disp $p6=*
  481.  
  482. ***POP6
  483. **p4disp
  484. [ACAD╧ε]
  485. [Redraw           ]'redraw
  486. [~--]
  487. [Mview           >]^C^C^P(if(= (getvar "TILEMODE") 1)+
  488. (command "TILEMODE" "0"))(princ)^P mview $S=X $S=mv $p6=p4mview $p6=*
  489. [~--]
  490. [Zoom Window      ]'zoom w
  491. [Zoom Previous    ]'zoom p
  492. [Zoom All         ]^C^Czoom a
  493. [Zoom Dynamic     ]'zoom d
  494. [Zoom Vmax        ]'zoom v
  495. [~--]
  496. [Pan              ]'pan
  497. [Dview            ]^C^C$S=X $S=DVIEW DVIEW
  498. [Vpoint 3D...     ]^C^C^P(if (not c:vp1) (defun c:vp1 (/ m:err)+
  499. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ));+
  500. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  501. (princ "*** Command not allowed in Paper space ***")(princ));+
  502. (progn (menucmd "S=VPOINT3D")(menucmd "I=3dviews")(menucmd "I=*")));+
  503. (setq *error* m:err)(princ)))(princ);vp1;^P
  504. [~--]
  505. [Plan View (UCS)  ]^C^C^P+
  506. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  507. (princ "*** Command not allowed in Paper space ***")(princ));+
  508. (command "plan" ""))(princ) ^P
  509. [Plan View (World)]^C^C^P+
  510. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  511. (princ "*** Command not allowed in Paper space ***")(princ));+
  512. (command "plan" "world"))(princ) ^P
  513. [~--]
  514. [Shade            ]^C^C$S=X $S=shade
  515. [Hide             ]^C^C$S=X $S=hide
  516. [~--]
  517. [Draw             ]^C^C$p6=p2draw $p6=*
  518. [Edit             ]^C^C$p6=popedit $p6=*
  519.  
  520. **p4mview
  521. [Mview]
  522. [Mspace        ]^C^C$S=X $S=mv Mspace
  523. [Pspace        ]^C^C$S=X $S=mv Pspace
  524. [Toggle VP   ^V]^V
  525. [~--]
  526. [Mview ON      ]^C^C$S=X $S=mv Mview ON
  527. [Mview OFF     ]^C^C$S=X $S=mv Mview OFF
  528. [Mview Hideplot]^C^C$S=X $S=mv Mview Hideplot
  529. [Mview Fit     ]^C^C$S=X $S=mv Mview Fit
  530. [Mview 2       ]^C^C$S=X $S=mv2 Mview 2
  531. [Mview 3       ]^C^C$S=X $S=mv2 Mview 3
  532. [Mview 4       ]^C^C$S=X $S=mv2 Mview 4
  533. [~--]
  534. [Vplayer       ]^C^C$S=X $S=vpla Vplayer
  535. [~--]
  536. [DISPLAY      >]$p6=p4disp $p6=*
  537.  
  538. **POP5
  539. [╔Φ╓├└α]
  540. [Snap  On/Off   ^B]^B
  541. [Grid  On/Off   ^G]^G
  542. [Ortho On/Off   ^O]^O
  543. [~--]
  544. [Layer Control... ]'ddlmodes
  545. [Drawing Tools... ]'ddrmodes
  546. [Set SysVars      ]'setvar
  547. [Set Dim Vars...  ]^C^C^P(terpri)(prompt (strcat "Current dimension style: "+
  548. (setq m:dsty (getvar "DIMSTYLE"))))(princ)^P dim $I=dimset $I=*
  549. [~--]
  550. [UCS Control...   ]^C^Cdducs
  551. [UCS Options...   ]$I=ucs $I=*
  552. [UCS Previous     ]^C^CUCS P
  553. [Ucsicon On/Off/OR]^P(if (not m:ucsi)(defun m:ucsi (/ m:err)+
  554. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  555. (cond ((= (getvar "UCSICON") 1) (setvar "UCSICON" 0));+
  556. ((=(getvar "UCSICON")0)(setvar "UCSICON" 3))(T (setvar "UCSICON" 1)))+
  557. (princ)))(princ);(m:ucsi);^P
  558. [~--]
  559. [Shade Style      ]'shadedge \'shadedif
  560.  
  561. ***POP7
  562. **p6opt
  563. [┐╔╤í╧ε]
  564. [Entity Creation...]'ddemodes
  565. [~--]
  566. [2D Polyline Width ]^C^C^P(if (not c:spw)(defun c:spw (/ m:err m:pw m:spw)+
  567. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)+
  568. (setvar "CMDECHO" m:spw)(princ))(setq m:spw (getvar "CMDECHO"))(initget 5)+
  569. (setvar "CMDECHO" 0)(setq m:pw (getdist "Enter default polyline width: "));+
  570. (command "PLINE" "0,0" "W" m:pw m:pw "0,0" "")(entdel (entlast))+
  571. (setvar "CMDECHO" m:spw)(setq *error* m:err)(princ)))(princ);spw;^P
  572. [Polygon Creation  ]^C^C^P(if (not c:pgm)+
  573. (defun c:pgm (/ m:err m:ps0 m:ps1 m:pe0 m:pe1 m:pg0 m:pg1)(setq m:err *error*)+
  574. (defun *error* (msg)(setq *error* m:err)(princ))(if (= (type m:ps) 'INT);+
  575. (setq m:ps0 (itoa m:ps))(setq m:ps0 "."))(while (not m:ps1)(initget 6 ".")+
  576. (setq m:ps1 (getint+
  577. (strcat "Number of polygon sides or  .  to prompt each time <" m:ps0 ">: ")));+
  578. (if (= m:ps1 nil)(setq m:ps1 m:ps))(if (or (= m:ps1 nil) (= m:ps1 "."))+
  579. (setq m:ps nil m:ps1 T)(if (or (< m:ps1 3) (> m:ps1 1024))(progn (terpri)+
  580. (princ"Value must be between 3 and 1024.")(terpri)(setq m:ps1 nil));+
  581. (setq m:ps m:ps1))))(if m:pe (setq m:pe0 m:pe)(setq m:pe0 "."))+
  582. (initget "Edge Center .")(setq m:pe1 (getkword (strcat +
  583. "Choose polygon creation mode (Edge/Center) or . to prompt each time <";+
  584. m:pe0 ">: ")))(if (/= m:pe1 nil)(setq m:pe m:pe1))(if (= m:pe ".")+
  585. (setq m:pe nil))(if(= m:pe "Center")(progn (if m:pg (setq m:pg0 (substr m:pg 1 1));+
  586. (setq m:pg0 "."))(initget "Circumscribed Inscribed .")(setq m:pg1 (getkword+
  587. (strcat"Inscribed in/Circumscribed about circle (I/C) or . to prompt each time <"+
  588. m:pg0 ">: ")))(if (/= m:pg1 nil)(setq m:pg m:pg1))(if (= m:pg ".");+
  589. (setq m:pg nil))))(setq *error* m:err)(princ)))(princ);pgm;^P
  590. [Donut Diameters   ]^P^C^C(defun *error* (msg)(setq *error* m:err)(princ))+
  591. (princ)(setq oce (getvar "cmdecho"))(setvar "cmdecho" 1)(princ);+
  592. (command "donut" pause)(progn(setvar "cmdecho" 0)(command pause "") +
  593. (setvar "cmdecho" oce)(setq *error* m:err)(princ))(princ) ^P
  594. [~--]
  595. [INSERT OPTIONS   >]$p7=p6insert $p7=* \$p7=p6opt
  596. [DTEXT OPTIONS    >]$p7=p6dtext $p7=* \$p7=p6opt
  597. [HATCH OPTIONS    >]$p7=p6hatch $p7=* \$p7=p6opt
  598. [~--]
  599. [Point Size        ]^C^C^P(if (not c:pds)(defun c:pds (/ m:err m:d m:e)+
  600. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))(initget 6);+
  601. (setq m:d (rtos (getdist (strcat (chr 13) (chr 10) "Enter new point size <"+
  602. (rtos (getvar "PDSIZE")) ">: "))))(if (< (getvar "PDSIZE") 0)(setq m:a "P")+
  603. (setq m:a "A"))(initget "Absolute Percent")(setq m:e (getkword (strcat;+
  604. (chr 13)(chr 10)"Use value as Absolute size or Percent of screen size (A/P) <"+
  605. m:a ">:")))(if (= m:e nil)(setq m:e m:a))(if (= (substr m:e 1 1) "P")+
  606. (setq m:e "-")(setq m:e "+"))(if(= m:d nil)(setq m:d (rtos(getvar "PDSIZE"))));+
  607. (setvar "PDSIZE" (atof (strcat m:e m:d)))(prompt "New point size is: ")+
  608. (prin1 (getvar "PDSIZE"))(setq *error* m:er)(princ)))(princ);pds;^P
  609. [Point Type...     ]^C^C^P(if (not c:pdm)(defun c:pdm+
  610. (/ m:err m:co m:ce m:ps m:pdm)(setq m:err *error* m:ce (getvar "CMDECHO"))+
  611. (defun *error* (msg)(setvar"CMDECHO" m:ce)(redraw)(if m:ps(command "MSPACE"));+
  612. (setq *error* m:err)(princ))(defun m:pdm (/ m:px m:py m:c m:va m:vi m:xa m:ya +
  613. 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)+
  614. (setq m:co (trans m:co 1 0) m:px (car m:co) m:py (cadr m:co) m:ct 1.3807281;+
  615. m:c (trans (getvar "VIEWCTR") 1 0) m:va (trans (getvar "VSMAX") 1 0) m:vi+
  616. (trans (getvar "VSMIN") 1 0) m:xa (- (car m:va) (car m:vi))+
  617. m:ya (- (cadr m:va) (cadr m:vi)) m:p (/ m:xa m:ya) m:yr (getvar "VIEWSIZE");+
  618. m:xr (* m:p m:yr) m:lx (- (car m:c)(/ m:xr 2)) m:ly (- (cadr m:c)(/ m:yr 2)))+
  619. (if (> m:xa (* m:ct m:yr))(setq m:sx (* m:yr m:ct) m:sy m:yr)(setq m:sy+
  620. (/ m:xr m:ct) m:sx m:xr))  (setq m:stx (/(*(- m:px m:lx) m:ct) m:sx) m:sty;+
  621. (/ (- m:py m:ly) m:sy) m:xp '((0.165 x) (0.353 0) (0.5545 1) (0.7522 2)+
  622. (0.95104 3) (1.14981 4) (1.38 x)) m:f T)(foreach x m:xp (if (and (< m:stx;+
  623. (car x)) m:f)(setq m:f nil m:xl (cadr x))))(setq m:yp '((0.937 x) (0.694 0)+
  624. (0.523 32) (0.211 64) (0 96)) m:f T)(foreach y m:yp (if (and (> m:sty+
  625. (car y)) m:f)(setq m:f nil m:yl (cadr y))))(if (and m:xl m:yl (/= m:xl 'x);+
  626. (/= m:yl 'x))(setvar "PDMODE" (+ m:xl m:yl))(progn (terpri)+
  627. (prompt "Selection undefined. Point mode unchanged: ")))(princ+
  628. (getvar "PDMODE")))(setvar "CMDECHO" 0)(if (and (= (getvar "TILEMODE") 0);+
  629. (/= (getvar "CVPORT")1))(progn(setq m:ps 1)(command "PSPACE")))+
  630. (command "VSLIDE" "acad(points)")(prompt "Select new point mode <")+
  631. (prin1 (getvar "PDMODE"))(prompt ">: ");+
  632. (initget 8 "0 1 2 3 4 32 33 34 35 36 64 65 66 67 78 96 97 98 99 100")+
  633. (setq m:co(getpoint))(if(=(type m:co)'STR)(setvar"PDMODE"(atoi m:co))(m:pdm))+
  634. (redraw)(if m:ps(command "MSPACE"))(setq *error* m:er)(setvar"CMDECHO" m:ce);+
  635. (princ)))(princ);pdm;^P
  636. [Linetype Scale    ]^C^Cltscale
  637. [~--]
  638. [Chamfer Distances ]'chamfera \'chamferb
  639. [Fillet Radius     ]'filletrad
  640. [Offset Distance   ]^C^C^P(if (not c:omset)(defun c:omset (/ m:err m:od2)+
  641. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  642. (if (/= (type m:od) 'REAL)(if (= m:od pause)(setq m:od2 ".");+
  643. (setq m:od "T" m:od2 "T"))(setq m:od2 m:od))(initget 6 "Through .");+
  644. (setq m:od2 (getreal (strcat (chr 13)(chr 10)+
  645. "Enter Offset Distance or Through or . to prompt each time <"+
  646. (if(=(type m:od2) 'REAL)(rtos m:od2)(eval m:od2)) ">: ")))(if(/= m:od2 nil);+
  647. (setq m:od m:od2))(if (= m:od2 ".")(setq m:od pause))(princ)))(princ);omset;^P
  648. [Divide Units      ]^C^C^P(if (not c:du)(defun c:du (/ m:err m:du0 m:du1 m:du2)+
  649. (setq m:err *error* m:du0 T)(defun *error* (msg)(setq *error* m:err)(princ))+
  650. (if (not m:du)(setq m:du pause))(if (/= (type m:du) 'INT)(setq m:du1 ".");+
  651. (setq m:du1 m:du))(initget 6 ".")(while m:du0(setq m:du2(getint(strcat(chr 13)+
  652. (chr 10)"Enter default Number of Units for DIVIDE or . to prompt each time <"+
  653. (if(= m:du1 ".")(eval m:du1)(itoa m:du1))">: ")))(if(or(and(> m:du2 1);+
  654. (< m:du2 32768))(= m:du2 ".")(= m:du2 nil))(setq m:du0 nil)(princ(strcat+
  655. (chr 13)(chr 10)"Value must be between 2 and 32767. "))))(if (= m:du2 nil)+
  656. (setq m:du1 m:du)(setq m:du1 m:du2))(if(or(= m:du1 ".")(= m:du1 pause));+
  657. (setq m:du pause)(setq m:du m:du1))(setq *error* m:err)(princ)))(princ);du;^P
  658. [Measure Distance  ]^C^C^P(if (not c:md)(defun c:md (/ m:err m:md1)+
  659. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  660. (if (not m:md)(setq m:md pause))(if (/= (type m:md) 'REAL)(setq m:md1 ".");+
  661. (setq m:md1 m:md))(initget 6 ".")(setq m:md1 (getreal(strcat+
  662. "Enter default Distance for MEASURE or . to prompt each time <"+
  663. (if (= m:md1 ".")(eval m:md1)(rtos m:md1))">: ")))(if (= m:md1 nil);+
  664. (setq m:md1 m:md))(if (or (= m:md1 ".")(= m:md1 pause))(setq m:md pause)+
  665. (setq m:md m:md1))(setq *error* m:err)(princ)))(princ);md;^P
  666. [  D/M Block Name  ]^C^C^P(if (not c:dmbn)(defun c:dmbn (/ m:err m:dmby2 m:dmbn2 +
  667. m:dmba2)(setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  668. (if (/= m:dmby "Yes")(setq m:dmby "No"))(initget "No Yes")(setq m:dmby2;+
  669. (getkword(strcat "Use Block for DIVIDE or MEASURE? (Y/N) <" m:dmby ">: ")))+
  670. (if (/= m:dmby2 nil)(setq m:dmby m:dmby2))(if (= m:dmby "Yes")(progn+
  671. (if (/= (type m:dmbn) 'STR)(setq m:dmbn pause))(if (= m:dmbn pause);+
  672. (setq m:dmbn2 ".")(setq m:dmbn2 m:dmbn))(setq m:dmbn2(getstring(strcat+
  673. "Enter Block name to use or . to prompt each time <" m:dmbn2 ">: ")))+
  674. (if(= m:dmbn2 "")(setq m:dmbn2 m:dmbn))(if (= m:dmbn2 ".")(setq m:dmbn pause);+
  675. (setq m:dmbn m:dmbn2))(if(/= m:dmba "Yes")(setq m:dmba "No"))(initget "No Yes")+
  676. (setq m:dmba2(getkword(strcat"Align Block during DIVIDE/MEASURE (Y/N) <"m:dmba+
  677. ">: ")))(if(/= m:dmba2 nil)(setq m:dmba m:dmba2))))(princ)))(princ);dmbn;^P
  678. [Dimension Style   ]^C^Cdim;restore;?;;
  679.  
  680. **p6insert
  681. [Insertion]
  682. [Block Name    ]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  683. (setq *error* m:err)(princ))(if (and (= (type m:ibn) 'STR) (/= m:ibn pause))+
  684. (setq m:si0 m:ibn)(setq m:si0 "."))(setq m:si0 (getstring (strcat ;+
  685. "Enter Block Name to use or  .  to prompt each time <" m:si0 ">: ")))+
  686. (if(= m:si0 "")(setq m:si0 m:ibn))(if(=(type m:si0)'STR)(setq m:ibn m:si0)+
  687. (setq m:ibn pause))(if(= m:ibn ".")(setq m:ibn pause))(setq *error* m:err);+
  688. (princ));setins;^P
  689. [~--]$p7=p6opt
  690. [X Scale Factor]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  691. (setq *error* m:err)(princ))(if(=(type m:ixs) 'REAL)(setq m:si0 (rtos m:ixs))+
  692. (setq m:si0 "."))(initget ".")(terpri)(setq m:si0 (getreal (strcat;+
  693. "Enter X Scale Factor to use or  .  to prompt each time <" m:si0 ">: ")))+
  694. (if (= m:si0 nil) (setq m:si0 m:ixs))(if (= (type m:si0) 'REAL)+
  695. (setq m:ixs m:si0)(setq m:ixs pause))(setq *error* m:err)(princ));setins;^P
  696. [Y Scale Factor]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  697. (setq *error* m:err)(princ))(if(=(type m:iys) 'REAL)(setq m:si0 (rtos m:iys))+
  698. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  699. "Enter Y Scale Factor to use (or 'X') or  .  to prompt each time <" m:si0 ">: ")))+
  700. (if (= m:si0 nil) (setq m:si0 m:iys))(if (= m:si0 "X")+
  701. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:iys m:si0);+
  702. (setq m:iys pause))(setq *error* m:err)(princ));setins;^P
  703. [Z Scale Factor]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  704. (setq *error* m:err)(princ))(if(=(type m:izs) 'REAL)(setq m:si0 (rtos m:izs))+
  705. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  706. "Enter Z Scale Factor to use (or 'X') or  .  to prompt each time <" m:si0 ">: ")))+
  707. (if (= m:si0 nil) (setq m:si0 m:izs))(if (= m:si0 "X")+
  708. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:izs m:si0);+
  709. (setq m:izs pause))(setq *error* m:err)(princ));setins;^P
  710. [~--]$p7=p6opt
  711. [Rotation Angle]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  712. (setq *error* m:err)(princ))(if(=(type m:ira) 'REAL)(setq m:si0 (rtos m:ira))+
  713. (setq m:si0 "."))(initget ".")(terpri)(setq m:si0 (getreal (strcat;+
  714. "Enter Rotation Angle to use or  .  to prompt each time <" m:si0 ">: ")))+
  715. (if (= m:si0 nil) (setq m:si0 m:ira))(if (= (type m:si0) 'REAL)+
  716. (setq m:ira m:si0)(setq m:ira pause))(setq *error* m:err)(princ));setins;^P
  717. [~--]$p7=p6opt
  718. [Set All]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  719. (setq *error* m:err)(princ))(if (and (= (type m:ibn) 'STR) (/= m:ibn pause))+
  720. (setq m:si0 m:ibn)(setq m:si0 "."))(setq m:si0 (getstring (strcat ;+
  721. "Enter Block Name to use or  .  to prompt each time <" m:si0 ">: ")))+
  722. (if(= m:si0 "")(setq m:si0 m:ibn))(if(=(type m:si0)'STR)(setq m:ibn m:si0)+
  723. (setq m:ibn pause))(if(= m:ibn ".")(setq m:ibn pause))(if(=(type m:ixs)'REAL);+
  724. (setq m:si0 (rtos m:ixs))(setq m:si0 "."))+
  725. (initget ".")(terpri)(setq m:si0 (getreal (strcat+
  726. "Enter X Scale Factor to use or  .  to prompt each time <" m:si0 ">: ")));+
  727. (if (= m:si0 nil) (setq m:si0 m:ixs))(if (= (type m:si0) 'REAL)(setq m:ixs +
  728. m:si0)(setq m:ixs pause))(if(=(type m:iys) 'REAL)(setq m:si0 (rtos m:iys))+
  729. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  730. "Enter Y Scale Factor to use (or 'X') or  .  to prompt each time <" m:si0 ">: ")))+
  731. (if (= m:si0 nil) (setq m:si0 m:iys))(if (= m:si0 "X")+
  732. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:iys m:si0);+
  733. (setq m:iys pause))(if(=(type m:izs) 'REAL)(setq m:si0 (rtos m:izs))+
  734. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  735. "Enter Z Scale Factor to use (or 'X') or  .  to prompt each time <" m:si0 ">: ")))+
  736. (if (= m:si0 nil) (setq m:si0 m:izs))(if (= m:si0 "X")+
  737. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:izs m:si0);+
  738. (setq m:izs pause))(if(=(type m:ira) 'REAL)(setq m:si0 (rtos m:ira))+
  739. (setq m:si0 "."))(initget ".")(terpri)(setq m:si0 (getreal (strcat;+
  740. "Enter Rotation Angle to use or  .  to prompt each time <" m:si0 ">: ")))+
  741. (if (= m:si0 nil) (setq m:si0 m:ira))(if (= (type m:si0) 'REAL)+
  742. (setq m:ira m:si0)(setq m:ira pause))(setq *error* m:err)(princ));setins;^P
  743. [Clear All]^P(setq m:ibn pause m:ixs pause m:iys pause m:izs pause m:ira pause)+
  744. (terpri)(prompt "INSERT will prompt for ALL options.")(princ);^P
  745. [~--]$p7=p6opt
  746. [List Blocks]^C^CINSERT ? \$p7=p6opt
  747. [~--]$p7=p6opt
  748. [OPTIONS      >]$p7=p6opt $p7=*
  749.  
  750.  
  751. **p6dtext
  752. [DText]
  753. [Text Font...     ]$P6=p6opt $I=fonts1 $I=*
  754. [Text Alignment...]$P6=p6opt $I=txtalign $I=*
  755. [Text Height      ]^C^C^P(if (not c:th)(defun c:th (/ m:err m:th0)+
  756. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  757. (if(/= (type m:th) 'REAL)(setq m:th pause))(if(= m:th pause)(setq m:th0 ".");+
  758. (setq m:th0 (rtos m:th)))(initget 6 ".")(setq m:th0(getreal(strcat+
  759. "Enter default text height or . to prompt each time <" m:th0 ">: ")))+
  760. (if(=(type m:th0) 'REAL)(setq m:th m:th0)(if(= m:th0 ".")(setq m:th pause)));+
  761. (setq *error* m:err)(prin1)))(princ);th;^P
  762. [Text Rotation    ]^C^C^P(if (not c:tr)(defun c:tr (/ m:err m:tr0)+
  763. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  764. (if(/=(type m:tr) 'REAL)(setq m:tr pause))(if (= m:tr pause)(setq m:tr0 ".");+
  765. (setq m:tr0 (rtos m:tr)))(initget ".")(setq m:tr0(getreal(strcat+
  766. "Enter default text rotation or . to prompt each time <" m:tr0 ">: ")))+
  767. (if(=(type m:tr0) 'REAL)(setq m:tr m:tr0)(if(= m:tr0 ".")(setq m:tr pause)));+
  768. (setq *error* m:err)(prin1)))(princ);tr;^P
  769. [~--]$p7=p6opt
  770. [OPTIONS         >]$p7=p6opt $p7=*
  771.  
  772. **p6hatch
  773. [Hatch]
  774. [Hatch Pattern...]$I=hatch1 $I=*
  775. [Hatch Style...  ]$I=hatchs $I=*
  776. [Hatch Scale]^C^C^P(if(not c:hsc)(defun c:hsc (/ m:err m:h0)(setq m:err *error*)+
  777. (defun *error* (msg)(setq *error* m:err)(princ))(if(/= (type m:hsc) 'REAL)+
  778. (setq m:hsc pause))(if(= m:hsc pause)(setq m:h0 ".");+
  779. (setq m:h0 (rtos m:hsc)))(initget 6 ".")(setq m:h0 (getreal(strcat+
  780. "Enter default Hatch scale or . to prompt each time <" m:h0 ">: ")))+
  781. (if(=(type m:h0) 'REAL)(setq m:hsc m:h0)(if(= m:h0 ".")(setq m:hsc pause)));+
  782. (setq *error* m:err)(prin1)))(princ);hsc;^P
  783. [Hatch Angle]^C^C^P(if(not c:hr)(defun c:hr (/ m:err m:h0)(setq m:err *error*)+
  784. (defun *error* (msg)(setq *error* m:err)(princ))(if(/= (type m:hr) 'REAL)+
  785. (setq m:hr pause))(if(= m:hr pause)(setq m:h0 ".");+
  786. (setq m:h0 (rtos m:hr)))(initget ".")(setq m:h0 (getreal(strcat+
  787. "Enter default Hatch rotation angle or . to prompt each time <" m:h0 ">: ")))+
  788. (if(=(type m:h0) 'REAL)(setq m:hr m:h0)(if(= m:h0 ".")(setq m:hr pause)));+
  789. (setq *error* m:err)(prin1)))(princ);hr;^P
  790. [~--]$p7=p6opt
  791. [OPTIONS        >]$p7=p6opt $p7=*
  792.  
  793.  
  794. ***POP8
  795. [╩╡╙├╧ε]
  796. [U             ]U
  797. [Redo          ]^C^CRedo
  798. [~--]
  799. [Undo Mark     ]^C^CUndo M
  800. [Undo Back     ]^C^CUndo B
  801. [~--]
  802. [Area          ]^C^C$S=X $S=AREA area
  803. [Distance      ]^C^C$S=X $S=DIST dist
  804. [ID Point      ]^P(if(not m:xid)(defun m:xid(/ m:err m:id1)+
  805. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  806. (initget (+ 8))(setq m:id1 (getpoint "Select point: "))(if m:id1 (princ;+
  807. (strcat (chr 13)(chr 10)"X:  " (rtos(car m:id1)) "  Y: " (rtos(cadr m:id1))+
  808. "  Z: " (rtos(caddr m:id1))))(princ "No point selected. "))(princ)))+
  809. (princ);(m:xid);^P
  810. [~--]
  811. [List          ]^C^C$S=X $S=LIST list
  812. [Status        ]^C^Cstatus
  813. [Limits        ]^C^C$S=X $S=LIMITS limits
  814. [Load LTypes   ]^C^C$S=X $S=LINETYPE linetype l
  815.  
  816. ***POP9
  817. [╬─╝■]
  818. [Save       ]^C^Csave
  819. [End        ]^C^Cend
  820. [Quit       ]^C^C$S=X $S=quit quit
  821. [~--]
  822. [Files      ]^C^Cfiles
  823. [Plot       ]^C^Cplot
  824. [Print      ]^C^Cprplot
  825. [~--]
  826. [EXCHANGE  >]$p9=p8xchg $p9=*
  827. [~--]
  828. [Load AME]^C^C^P(progn(setq m:err *error*)(princ))+
  829. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  830. (cond ((null c:solbox)(princ "Loading AME...")+
  831. (cond ((setq f (findfile "ame")) (xload f))+
  832. ((setq f (findfile "ame.exp")) (xload f));+
  833. (T (terpri)(princ "ERROR:  File not found. ")))+
  834. (if f (progn(terpri)(princ "AutoCAD AME executable loaded. ")+
  835. (menucmd "P9=P9prim")(menucmd "P9=*")(princ))+
  836. (progn(terpri)(princ "Unable to load AME executable. ")(princ))));+
  837. (T (menucmd "P9=P9prim")(menucmd "P9=*")(princ)));^P
  838. [Load AMElite]^C^C^P(progn(setq m:err *error*)(princ))+
  839. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  840. (cond ((null c:solbox)(princ "Loading AMElite...")+
  841. (cond ((setq f (findfile "amelite")) (xload f))+
  842. ((setq f (findfile "amelite.exp")) (xload f));+
  843. (T (terpri)(princ "ERROR:  File not found. ")))+
  844. (if f (progn(terpri)(princ "AutoCAD AMElite executable loaded. ")+
  845. (menucmd "P9=P9prim")(menucmd "P9=*")(princ))+
  846. (progn(terpri)(princ "Unable to load AMElite executable. ")(princ))));+
  847. (T (menucmd "P9=P9prim")(menucmd "P9=*")(princ)));^P
  848. [~--]
  849. [AutoShade]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  850. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  851. (princ))(defun m:shmn ()(menucmd(cond((= G:SVER 20) (if G:RMAN "I=ASRM" "I=AS"))+
  852. ((= G:SVER 11)"I=AS11")(T"")))(menucmd"I=*")(setq m:shmn nil);+
  853. (princ))(princ))(cond(G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (vmon)+
  854. (cond((findfile"ashade.lsp")(load"ashade")(setq *error* m:err m:err nil);+
  855. (if G:SVER(m:shmn)(progn(terpri)(prompt "The file '")+
  856. (princ (findfile "ashade.lsp"))(prompt "' is incompatible with AutoCAD r11.");+
  857. (setq m:shmn nil C:CAMERA nil C:LIGHT nil C:CAMVIEW nil C:SCENE nil)(princ))))+
  858. (T(terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  859. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  860. (setq *error* m:err m:err nil m:shmn nil)(princ))))) ^P
  861. [RenderMan]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  862. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  863. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  864. (setq *error* m:err m:err nil)(menucmd"I=RM")(menucmd"I=*"))(progn(terpri);+
  865. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  866. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  867. (setq *error* m:err m:err nil)(princ))))(T(setq *error* m:err m:err nil)+
  868. (menucmd"I=RM")(menucmd"I=*")(princ))) ^P
  869.  
  870. **p8xchg
  871. [Exchange]
  872. [DXF  In    ]^C^Cdxfin
  873. [DXB  In    ]^C^Cdxbin
  874. [IGES In    ]^C^Cigesin
  875. [~--]
  876. [Import Text]^C^C^P(if (not c:asctext) (if (not (findfile "asctext.lsp"))+
  877. (defun C:ASCTEXT () (princ "Cannot find asctext.lsp ")(terpri)+
  878. (princ "It is on the SAMPLE DISK. ")(setq C:ASCTEXT nil)(princ));+
  879. (load "asctext")));asctext;^P
  880. [~--]
  881. [DXF  Out   ]^C^Cdxfout
  882. [IGES Out   ]^C^Cigesout
  883. [Filmroll   ]^C^Cfilmroll
  884. [~--]
  885. [FILE      >]$p9=pop9 $p9=*
  886.  
  887. **P9Prim
  888. [Prim]
  889. [Box]^C^C$S=X $S=SBOX;Solbox;
  890. [Cone]^C^C$S=X $S=SCONE;Solcone;
  891. [Cylinder]^C^C$S=X $S=SCYL;Solcyl;
  892. [Sphere]^C^C$S=X $S=SSPH;Solsphere;
  893. [Torus]^C^C$S=X $S=STOR;Soltorus;
  894. [Wedge]^C^C$S=X $S=SWEDGE;Solwedge;
  895. [~--  ]
  896. [Extrude]^C^C$S=X $S=SEXT;Solext;
  897. [Revolve]^C^C$S=X $S=SREV;Solrev;
  898. [Solidify]^C^C$S=X $S=SSOLID;Solidify;
  899. [~--  ]
  900. [~]^C^C$P9=P9Prim;$P9=*;
  901. [MODIFY  >]^C^C$P9=P9Modify;$P9=*;
  902. [INQUIRY >]^C^C$P9=P9Inquiry;$P9=*;
  903. [DISPLAY >]^C^C$P9=P9Display;$P9=*;
  904. [UTILITY >]^C^C$P9=P9Utility;$P9=*;
  905. [FILE    >]$p9=pop9 $p9=*
  906.  
  907. **P9Modify
  908. [Modi]
  909. [Intersect]^C^C$S=X $S=SINT;Solint;
  910. [Subtract]^C^C$S=X $S=SSUB;Solsub;
  911. [Union]^C^C$S=X $S=SUNION;Solunion;
  912. [~--  ]
  913. [Chamfer]^C^C$S=X $S=SCHAM;solcham;
  914. [Fillet]^C^C$S=X $S=SFILL;solfill;
  915. [~--  ]
  916. [Solid Move]^C^C$S=X $S=SMOVE;Solmove;
  917. [Change Prim]^C^C$S=X $S=SCHP;Solchp;
  918. [Separate]^C^C$S=X $S=SSEP;Solsep;
  919. [~--  ]
  920. [PRIMITI >]^C^C$P9=P9Prim;$P9=*;
  921. [~]^C^C$P9=P9Modify;$P9=*;
  922. [INQUIRY >]^C^C$P9=P9Inquiry;$P9=*;
  923. [DISPLAY >]^C^C$P9=P9Display;$P9=*;
  924. [UTILITY >]^C^C$P9=P9Utility;$P9=*;
  925.  
  926. **P9Inquiry
  927. [Inqu]
  928. [List Solid]^C^C$S=X $S=SLIST;Sollist;
  929. [Mass Property]^C^C$S=X $S=SMASSP;Solmassp;
  930. [Solid Area]^C^C$S=X $S=SAREA;Solarea;
  931. [~--  ]
  932. [British units]^C^Csolvar sollength ft;;;solmass lb;;+
  933. solareau sq ft;;solvolume cu ft;
  934. [CGS units]^C^Csolvar sollength cm;;;solmass gm;;+
  935. solareau sq cm;;solvolume cu cm;
  936. [SI units]^C^Csolvar sollength m;;;solmass kg;;+
  937. solareau sq m;;solvolume cu m;
  938. [~--  ]
  939. [~]^C^C$P9=P9Inquiry;$P9=*;
  940. [~]^C^C$P9=P9Inquiry;$P9=*;
  941. [~]^C^C$P9=P9Inquiry;$P9=*;
  942. [PRIMITI >]^C^C$P9=P9Prim;$P9=*;
  943. [MODIFY  >]^C^C$P9=P9Modify;$P9=*;
  944. [~]^C^C$P9=P9Inquiry;$P9=*;
  945. [DISPLAY >]^C^C$P9=P9Display;$P9=*;
  946. [UTILITY >]^C^C$P9=P9Utility;$P9=*;
  947.  
  948. **P9Display
  949. [Disp]
  950. [Mesh]^C^C$S=X $S=SMESH;Solmesh;
  951. [Wireframe]^C^C$S=X $S=SWIRE;Solwire;
  952. [~--  ]
  953. [Copy Feature]^C^C$S=X $S=SFEAT;Solfeat;
  954. [Cut Section]^C^C$S=X $S=SSECT;Solsect;
  955. [Profile]^C^C$S=X $S=SPROF;Solprof;
  956. [~--  ]
  957. [Set Decomp.]^C^CSolvar soldecomp
  958. [Set Subdiv.]^C^CSolvar solsubdiv
  959. [Set Wire Dens.]^C^CSolvar solwdens
  960. [~--  ]
  961. [PRIMITI >]^C^C$P9=P9Prim;$P9=*;
  962. [MODIFY  >]^C^C$P9=P9Modify;$P9=*;
  963. [INQUIRY >]^C^C$P9=P9Inquiry;$P9=*;
  964. [~]^C^C$P9=P9Display;$P9=*;
  965. [UTILITY >]^C^C$P9=P9Utility;$P9=*;
  966.  
  967. **P9Utility
  968. [Util]
  969. [Material]^C^C$S=X $S=SCHMAT;Solmat;
  970. [Solvars]^C^C$S=X $S=SSOLV;Solvar;
  971. [SolUCS]^C^C$S=X $S=SUCS;Solucs;
  972. [~--  ]
  973. [SOL in .asm]^C^CSolin;
  974. [SOL out .asm]^C^CSolout;
  975. [Purge Solids]^C^C$S=X $S=SPURGE;Solpurge;
  976. [~--  ]
  977. [Unload]^C^C^P(if (xunload "ame" nil)+
  978. (princ (strcat "AME unloaded." (chr 10))))+
  979. (if (xunload "amelite" nil)(princ "AMElite unloaded."))+
  980. (menucmd "P9=POP9")(princ);^P
  981. [AME or AMElite]^C^C^P(if (xunload "ame" nil)+
  982. (princ (strcat "AME unloaded." (chr 10))))+
  983. (if (xunload "amelite" nil)(princ "AMElite unloaded."))+
  984. (menucmd "P9=POP9")(princ);^P
  985. [~--  ]
  986. [PRIMITI >]^C^C$P9=P9Prim;$P9=*;
  987. [MODIFY  >]^C^C$P9=P9Modify;$P9=*;
  988. [INQUIRY >]^C^C$P9=P9Inquiry;$P9=*;
  989. [DISPLAY >]^C^C$P9=P9Display;$P9=*;
  990. [~]^C^C$P9=P9Utility;$P9=*;
  991.  
  992.  
  993. ***icon
  994. **lt
  995. [╞╜├µ═╝┬Ñ╠▌╩╜╤∙]
  996. [other(lt1)]1;
  997. [other(lt3)]3;
  998. [other(lt2)]2;
  999. [other(lt4)]4;
  1000.  
  1001. **ter
  1002. [╞╜├µ═╝╤⌠╠¿╩╜╤∙]
  1003. [other(ter1)]1;
  1004. [other(ter3)]3;
  1005. [other(ter2)]2;
  1006. [other(ter4)]4;
  1007.  
  1008. **tj
  1009. [╞╜├µ═╝╠¿╜╫╩╜╤∙]
  1010. [other(tj1)]0;
  1011. [other(tj3)]2;
  1012. [other(tj2)]1;
  1013. [other(tj4)]3;
  1014.  
  1015. **mc
  1016. [╞╜├µ═╝├┼┤░╩╜╤∙]
  1017. [other(mc1)]
  1018. [other(mc2)]
  1019. [other(mc3)]
  1020. [other(mc4)]
  1021.  
  1022. **roof
  1023. [┼«╢∙╟╜╩╜╤∙]
  1024. [other(roof1)]1;
  1025. [other(roof3)]3;
  1026. [other(roof2)]2;
  1027. [other(roof4)]4;
  1028.  
  1029. **tje
  1030. [┴ó├µ╠¿╜╫╩╜╤∙]
  1031. [other(etj1)]0;
  1032. [other(etj3)]2;
  1033. [other(etj2)]1;
  1034. [other(etj4)]3;
  1035.  
  1036. **sym
  1037. [═╝├µ╫ó╩═]
  1038. [other(sym1)]dchh;
  1039. [other(sym5)]elul;
  1040. [other(sym9)]eldl;
  1041. [other(sym13)]zhbzh;
  1042. [other(sym2)]sy1;
  1043. [other(sym6)]elur;
  1044. [other(sym10)]eldr;
  1045. [other(sym14)]sy4;
  1046. [other(sym3)]sy2;
  1047. [other(sym7)]sl\
  1048. [other(sym11)]su\
  1049. [other(sym15)]hole1;
  1050. [other(sym4)]sy3;
  1051. [other(sym8)]sr\
  1052. [other(sym12)]sd\
  1053. [other(sym16)]hole2;
  1054.  
  1055. **chf
  1056. [│°╖┐╔Φ╩⌐]
  1057. [li(1c1)]1c1;
  1058. [li(2c1)]2c1;
  1059. [li(3c1)]3c1;
  1060. [li(4c1)]4c1;
  1061. [li(5c1)]5c1;
  1062. [li(6c1)]6c1;
  1063. [li(7c1)]7c1;
  1064. [li(8c1)]8c1;
  1065. [li(9c1)]9c1;
  1066. [li(10c1)]10c1;
  1067. [li(11c1)]11c1;
  1068. [li(13c1)]13c1;
  1069. [li(15c1)]15c1;
  1070. [li(16c1)]16c1;
  1071. [ ▓╦│í╔Φ▒╕]$i=chf1 $i=*
  1072. [ ═╦│÷]^c^c
  1073.  
  1074. **chf1
  1075. [▓╦│í╔Φ▒╕]
  1076. [li(17c1)]17c1;
  1077. [li(18c1)]18c1;
  1078. [li(19c1)]19c1;
  1079. [li(20c1)]20c1;
  1080. [li(21c1)]21c1;
  1081. [li(22c1)]22c1;
  1082. [li(23c1)]23c1;
  1083. [li(24c1)]24c1;
  1084. [li(25c1)]25c1;
  1085.  
  1086. **we
  1087. [╬└╔·╔Φ╩⌐]
  1088. [li(dq1)]dq1;
  1089. [li(dq2)]dq2;
  1090. [li(dq3)]dq3;
  1091. [li(zq1)]zq1;
  1092. [li(zq2)]zq2;
  1093. [li(zq3)]zq3;
  1094. [li(zq4)]zq4;
  1095. [li(zq5)]zq5;
  1096. [li(1sp)]1sp;
  1097. [li(2sp)]2sp;
  1098. [li(3sp)]3sp;
  1099. [li(4sp)]4sp;
  1100. [li(5sp)]5sp;
  1101. [li(6sp)]6sp;
  1102. [ ╘í│╪]$i=we1 $i=*
  1103. [ ═╦│÷]^c^c
  1104.  
  1105. **we1
  1106. [╘í│╪]
  1107. [li(1yp)]1yp;
  1108. [li(2yp)]2yp;
  1109. [li(3yp)]3yp;
  1110. [li(4yp)]4yp;
  1111. [li(5yp)]5yp;
  1112. [li(6yp1)]6yp1;
  1113. [li(7yp)]7yp;
  1114. [ ╟░╥│]$i=we $i=*
  1115. [ ═╦│÷]^c^c
  1116.  
  1117. **echf
  1118. [│°╖┐╔Φ╩⌐]
  1119. [li(1c2)]1c2;
  1120. [li(2c2)]2c2;
  1121. [li(3c2)]3c2;
  1122. [li(4c2)]4c2;
  1123. [li(5c2)]5c2;
  1124. [li(6c2)]6c2;
  1125. [li(7c2)]7c2;
  1126. [li(8c2)]8c2;
  1127. [li(9c2)]9c2;
  1128. [li(10c2)]10c2;
  1129. [li(10c3)]10c3;
  1130. [li(11c2)]11c2;
  1131. [li(13c2)]13c2;
  1132. [li(15c2)]15c2;
  1133. [li(16c2)]16c2;
  1134. [ ▓╦│í╔Φ▒╕]$i=echf1 $i=*
  1135.  
  1136. **echf1
  1137. [▓╦│í╔Φ▒╕]
  1138. [li(17c2)]17c2;
  1139. [li(18c2)]18c2;
  1140. [li(19c2)]19c2;
  1141. [li(20c2)]20c2;
  1142. [li(21c2)]21c2;
  1143. [li(22c2)]22c2;
  1144. [li(23c2)]23c2;
  1145. [li(24c2)]24c2;
  1146. [li(25c2)]25c2;
  1147.  
  1148. **ewe
  1149. [╬└╔·╔Φ╩⌐]
  1150. [li(zql1)]zql1;
  1151. [li(zql2)]zql2;
  1152. [li(zql3)]zql3;
  1153. [li(6yp2)]6yp2;
  1154. [li(spl12)]spl\
  1155. [li(spl34)]spl\
  1156. [li(spl56)]spl\
  1157. [acad(user)]
  1158. [ ═╦│÷]^c^c
  1159.  
  1160. **windoor
  1161. [╞╜├µ├┼┤░(Esc═╦│÷)]
  1162. [windoor(wd1)]MH=\
  1163. [windoor(wd4)]MM=\
  1164. [windoor(wd7)]C37=\
  1165. [windoor(wd2)]ML=\
  1166. [windoor(wd5)]MW=\
  1167. [windoor(wd8)]C24=\
  1168. [windoor(wd3)]MR=\
  1169. [windoor(wd6)]C49=\
  1170. [windoor(wd9)]C12=\
  1171.  
  1172. **txtalign
  1173. [Select Text Alignment]
  1174. [acad(j-tleft)]^P(setq m:ta "TLeft") ^P
  1175. [acad(j-mleft)]^P(setq m:ta "MLeft") ^P
  1176. [acad(j-start)]^P(setq m:ta "BLeft") ^P
  1177. [acad(j-bleft)]^P(setq m:ta "BLeft") ^P
  1178. [acad(j-tcen)]^P(setq m:ta "TCenter") ^P
  1179. [acad(j-mcen)]^P(setq m:ta "MCenter") ^P
  1180. [acad(j-center)]^P(setq m:ta "C") ^P
  1181. [acad(j-bcen)]^P(setq m:ta "BCenter") ^P
  1182. [acad(j-tright)]^P(setq m:ta "TRight") ^P
  1183. [acad(j-mright)]^P(setq m:ta "MRight") ^P
  1184. [acad(j-right)]^P(setq m:ta "R") ^P
  1185. [acad(j-bright)]^P(setq m:ta "BRight") ^P
  1186. [acad(j-align)]^P(setq m:ta "Aligned") ^P
  1187. [acad(j-fit)]^P(setq m:ta "Fit") ^P
  1188. [ Always Prompt]^P(setq m:ta nil)(princ) ^P
  1189. [ Exit]
  1190.  
  1191. **poly
  1192. [Set Polymesh and Polyline Variables]
  1193. [acad(pm-quad)]'surftype 5
  1194. [acad(pm-cubic)]'surftype 6
  1195. [acad(pm-bezr)]'surftype 8
  1196. [acad(pl-quad)]'splinetype 5
  1197. [acad(pl-cubic)]'splinetype 6
  1198. [ Set SPLINESEGS]'splinesegs \
  1199. [ Set SPLFRAME]'splframe \
  1200. [ Set DENSITY]'surfu \'surfv \
  1201. [ Exit]$p3=pop3
  1202.  
  1203. **ucs
  1204. [User Coordinate System Options]
  1205. [ Set to World]^C^Cucs world
  1206. [acad(u-left)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1207. ucs 3p \@0,-1,0 @0,0,1 ^P
  1208. [ Set to Screen]^C^Cucs view
  1209. [acad(u-top)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1210. ucs 3p \@1,0,0 @0,1,0 ^P
  1211. [acad(u-front)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1212. ucs 3p \@1,0,0 @0,0,1 ^P
  1213. [acad(u-bottom)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1214. ucs 3p \@1,0,0 @0,-1,0 ^P
  1215. [acad(u-back)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1216. ucs 3p \@-1,0,0 @0,0,1 ^P
  1217. [acad(u-right)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  1218. ucs 3p \@0,1,0 @0,0,1 ^P
  1219. [ Exit]
  1220.  
  1221. **3DViews
  1222. [Select View Direction]
  1223. [acad(vp-ul)]^C^CVPOINT R;<<135;
  1224. [acad(vp-left)]^C^CVPOINT R;<<180;
  1225. [acad(vp-ll)]^C^CVPOINT R;<<225;
  1226. [acad(blank)]
  1227. [acad(vp-u)]^C^CVPOINT R;<<90;
  1228. [acad(vp-plan)]^C^Cvpoint 0,0,1
  1229. [acad(vp-lo)]^C^CVPOINT R;<<270;
  1230. [acad(blank)]
  1231. [acad(vp-ur)]^C^CVPOINT R;<<45;
  1232. [acad(vp-right)]^C^CVPOINT R;<<0;
  1233. [acad(vp-lr)]^C^CVPOINT R;<<315;
  1234. [acad(blank)]
  1235. [acad(vp-axes)]VPOINT;;
  1236. [acad(hide)]$S=X $S=HIDE
  1237. [ Exit]
  1238.  
  1239. **dviewi
  1240. [DVIEW Options]
  1241. [acad(dv-cam)]^C^C(menucmd "S=X")(menucmd "S=DVIEW")+
  1242. (command "Select" pause "Dview" "p" "" "ca" pause pause "")
  1243. [acad(dv-zoom)]^C^C(menucmd "S=X")(menucmd "S=DVIEW")+
  1244. (command "Select" pause "Dview" "p" "" "z" pause "")
  1245. [acad(dv-pan)]^C^C(menucmd "S=X")(menucmd "S=DVIEW")+
  1246. (command "Select" pause "Dview" "p" "" "pa" pause pause "")
  1247. [ Exit]
  1248.  
  1249. **3DObjects
  1250. [3D Objects]
  1251. [acad(box3d)]^C^C^P(progn(setq m:err *error*)(prin1))+
  1252. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1253. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1254. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1255. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1256. (prompt "Check installation of the Support Files and try again.")+
  1257. (princ))))(T (princ)))(cond ((not (null C:BOX))(C:BOX))(T (princ)));+
  1258. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1259. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1260. [acad(wedge)]^C^C^P(progn(setq m:err *error*)(princ));+
  1261. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1262. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1263. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1264. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1265. (prompt "Check installation of the Support Files and try again.")+
  1266. (princ))))(T (princ)))(cond ((not (null C:WEDGE))(C:WEDGE))(T (princ)));+
  1267. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1268. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1269. [acad(pyramid)]^C^C^P(progn(setq m:err *error*)(princ))+
  1270. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1271. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1272. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1273. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1274. (prompt "Check installation of the Support Files and try again.")+
  1275. (princ))))(T (princ)))(cond ((not (null C:PYRAMID))(C:PYRAMID))(T (princ)));+
  1276. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1277. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1278. [acad(dome)]^C^C^P(progn(setq m:err *error*)(princ));+
  1279. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1280. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1281. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1282. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1283. (prompt "Check installation of the Support Files and try again.")+
  1284. (princ))))(T (princ)))(cond ((not (null C:DOME))(C:DOME))(T (princ)));+
  1285. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1286. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1287. [acad(dish)]^C^C^P(progn(setq m:err *error*)(princ));+
  1288. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1289. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1290. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1291. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1292. (prompt "Check installation of the Support Files and try again.")+
  1293. (princ))))(T (princ)))(cond ((not (null C:DISH))(C:DISH))(T (princ)));+
  1294. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1295. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1296. [acad(cone)]^C^C^P(progn(setq m:err *error*)(princ));+
  1297. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1298. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1299. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1300. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1301. (prompt "Check installation of the Support Files and try again.")+
  1302. (princ))))(T (princ)))(cond ((not (null C:CONE))(C:CONE))(T (princ)));+
  1303. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1304. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1305. [acad(sphere)]^C^C^P(progn(setq m:err *error*)(princ));+
  1306. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1307. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1308. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1309. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1310. (prompt "Check installation of the Support Files and try again.")+
  1311. (princ))))(T (princ)))(cond ((not (null C:SPHERE))(C:SPHERE))(T (princ)));+
  1312. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1313. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1314. [acad(torus)]^C^C^P(progn(setq m:err *error*)(princ));+
  1315. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1316. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1317. (load "3d")(menucmd "S=X")(menucmd "S=3D2"))(progn (terpri)(prompt +
  1318. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1319. (prompt "Check installation of the Support Files and try again.")+
  1320. (princ))))(T (princ)))(cond ((not (null C:TORUS))(C:TORUS))(T (princ)));+
  1321. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1322. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1323. [ Exit]
  1324.  
  1325. **surf1
  1326. [3D Surface Commands]
  1327. [acad(revsurf)]^C^C$S=X $S=3D revsurf
  1328. [acad(rulesurf)]^C^C$S=X $S=3D rulesurf
  1329. [acad(surftab1)]'surftab1 \$I=*
  1330. [acad(tabsurf)]^C^C$S=X $S=3D tabsurf
  1331. [acad(edgesurf)]^C^C$S=X $S=3D edgesurf
  1332. [acad(surftab2)]'surftab2 \$I=*
  1333. [acad(mesh)]^C^C^P(progn(setq m:err *error*)(princ));+
  1334. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1335. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1336. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1337. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1338. (prompt "Check installation of the Support Files and try again.")+
  1339. (princ))))(T (princ)))(cond ((not (null C:MESH))(C:MESH))(T (princ)));+
  1340. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  1341. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  1342. [ 3D Objects]$I=3dobjects $I=*
  1343. [ Exit]
  1344.  
  1345. **fonts1
  1346. [Select Text Font]
  1347. [acad(romans)]^c^cstyle romans romans
  1348. [acad(romanc)]^c^cstyle romanc romanc
  1349. [acad(italicc)]^c^cstyle italicc italicc
  1350. [acad(romand)]^c^cstyle romand romand
  1351. [acad(romant)]^c^cstyle romant romant
  1352. [acad(italict)]^c^cstyle italict italict
  1353. [acad(monotxt)]^c^cstyle monotxt monotxt
  1354. [ Next]$I=fonts2 $I=*
  1355. [ Exit]
  1356.  
  1357. **fonts2
  1358. [Select Text Font]
  1359. [acad(gothice)]^c^cstyle gothice gothice
  1360. [acad(greeks)]^c^cstyle greeks greeks
  1361. [acad(scripts)]^c^cstyle scripts scripts
  1362. [acad(gothicg)]^c^cstyle gothicg gothicg
  1363. [acad(greekc)]^c^cstyle greekc greekc
  1364. [acad(scriptc)]^c^cstyle scriptc scriptc
  1365. [acad(gothici)]^c^cstyle gothici gothici
  1366. [ Next]$I=fonts3 $I=*
  1367. [ Exit]
  1368.  
  1369. **fonts3
  1370. [Select Text Font]
  1371. [acad(syastro)]^c^cstyle syastro syastro
  1372. [acad(symath)]^c^cstyle symath symath
  1373. [acad(symusic)]^c^cstyle symusic symusic
  1374. [acad(symap)]^c^cstyle symap symap
  1375. [acad(symeteo)]^c^cstyle symeteo symeteo
  1376. [acad(txt)]^c^cstyle txt txt
  1377. [acad(blank)]
  1378. [ Beginning]$I=fonts1 $I=*
  1379. [ Exit]
  1380.  
  1381. **hatch1
  1382. [Select Hatch Pattern - * Not to Scale]
  1383. [ User Defined]^P(setq m:hp "U") ^P
  1384. [acad(ansi31)]^P(setq m:hp "ansi31") ^P
  1385. [acad(ansi32)]^P(setq m:hp "ansi32") ^P
  1386. [acad(ansi34)]^P(setq m:hp "ansi34") ^P
  1387. [acad(ansi35)]^P(setq m:hp "ansi35") ^P
  1388. [acad(ansi33)]^P(setq m:hp "ansi33") ^P
  1389. [acad(ansi36)]^P(setq m:hp "ansi36") ^P
  1390. [acad(ansi37)]^P(setq m:hp "ansi37") ^P
  1391. [acad(ansi38)]^P(setq m:hp "ansi38") ^P
  1392. [acad(ar-b816)]^P(setq m:hp "ar-b816") ^P
  1393. [acad(ar-b816c)]^P(setq m:hp "ar-b816c") ^P
  1394. [acad(ar-b88)]^P(setq m:hp "ar-b88") ^P
  1395. [acad(ar-brelm)]^P(setq m:hp "ar-brelm") ^P
  1396. [acad(ar-brstd)]^P(setq m:hp "ar-brstd") ^P
  1397. [ Next]$I=hatch2 $I=*
  1398. [ Exit]
  1399.  
  1400. **hatch2
  1401. [Select Hatch Pattern - * Not to Scale]
  1402. [acad(ar-conc)]^P(setq m:hp "ar-conc") ^P
  1403. [acad(ar-hbone)]^P(setq m:hp "ar-hbone") ^P
  1404. [acad(ar-parq1)]^P(setq m:hp "ar-parq1") ^P
  1405. [acad(ar-rroof)]^P(setq m:hp "ar-rroof") ^P
  1406. [acad(ar-rshke)]^P(setq m:hp "ar-rshke") ^P
  1407. [acad(ar-sand)]^P(setq m:hp "ar-sand") ^P
  1408. [acad(box)]^P(setq m:hp "box") ^P
  1409. [acad(brass)]^P(setq m:hp "brass") ^P
  1410. [acad(brick)]^P(setq m:hp "brick") ^P
  1411. [acad(brstone)]^P(setq m:hp "brstone") ^P
  1412. [acad(clay)]^P(setq m:hp "clay") ^P
  1413. [acad(cork)]^P(setq m:hp "cork") ^P
  1414. [acad(cross)]^P(setq m:hp "cross") ^P
  1415. [acad(dash)]^P(setq m:hp "dash") ^P
  1416. [ Next]$I=hatch3 $I=*
  1417. [ Exit]
  1418.  
  1419. **hatch3
  1420. [Select Hatch Pattern - * Not to Scale]
  1421. [acad(dolmit)]^P(setq m:hp "dolmit") ^P
  1422. [acad(dots)]^P(setq m:hp "dots") ^P
  1423. [acad(earth)]^P(setq m:hp "earth") ^P
  1424. [acad(escher)]^P(setq m:hp "escher") ^P
  1425. [acad(flex)]^P(setq m:hp "flex") ^P
  1426. [acad(grass)]^P(setq m:hp "grass") ^P
  1427. [acad(grate)]^P(setq m:hp "grate") ^P
  1428. [acad(hex)]^P(setq m:hp "hex") ^P
  1429. [acad(honey)]^P(setq m:hp "honey") ^P
  1430. [acad(hound)]^P(setq m:hp "hound") ^P
  1431. [acad(insul)]^P(setq m:hp "insul") ^P
  1432. [acad(line)]^P(setq m:hp "line") ^P
  1433. [acad(mudst)]^P(setq m:hp "mudst") ^P
  1434. [acad(net)]^P(setq m:hp "net") ^P
  1435. [ Next]$I=hatch4 $I=*
  1436. [ Exit]
  1437.  
  1438. **hatch4
  1439. [Select Hatch Pattern - * Not to Scale]
  1440. [acad(net3)]^P(setq m:hp "net3") ^P
  1441. [acad(plast)]^P(setq m:hp "plast") ^P
  1442. [acad(plasti)]^P(setq m:hp "plasti") ^P
  1443. [acad(sacncr)]^P(setq m:hp "sacncr") ^P
  1444. [acad(square)]^P(setq m:hp "square") ^P
  1445. [acad(stars)]^P(setq m:hp "stars") ^P
  1446. [acad(steel)]^P(setq m:hp "steel") ^P
  1447. [acad(swamp)]^P(setq m:hp "swamp") ^P
  1448. [acad(trans)]^P(setq m:hp "trans") ^P
  1449. [acad(triang)]^P(setq m:hp "triang") ^P
  1450. [acad(zigzag)]^P(setq m:hp "zigzag") ^P
  1451. [acad(angle)]^P(setq m:hp "angle") ^P
  1452. [ Beginning]$I=hatch1 $I=*
  1453. [ Exit]
  1454.  
  1455. **hatchs
  1456. [Select Hatch Style]
  1457. [acad(h-normal)]^P(setq m:hs ",N") ^P
  1458. [acad(h-outer)]^P(setq m:hs ",O") ^P
  1459. [acad(h-ignore)]^P(setq m:hs ",I") ^P
  1460. [ Exit]
  1461.  
  1462. **drdim
  1463. [Select Dimension Type]
  1464. [acad1(linear)]$I=drlin $I=*
  1465. [acad1(angular)]ANG
  1466. [acad1(ordinate)]$S=X $S=DIMORD $I=drord $I=*
  1467. [acad1(diameter)]$S=X $S=DIMRADIAL DIA
  1468. [acad1(radial)]$S=X $S=DIMRADIAL RAD
  1469. [ Edit Dim...]$S=X $S=FORMAT $I=eddim $I=*
  1470. [acad1(dimcen)]CEN
  1471. [acad1(dimlea)]LEA
  1472. [ Exit]
  1473.  
  1474. **drlin
  1475. [Select Linear Dimension]
  1476. [acad1(dimhor)]$S=X $S=DIMLINEAR HOR
  1477. [acad1(dimali)]$S=X $S=DIMLINEAR ALI
  1478. [acad1(blank)]
  1479. [acad1(dimver)]$S=X $S=DIMLINEAR VER
  1480. [acad1(dimrot)]$S=X $S=DIMLINEAR ROT
  1481. [ Previous...]$I=DRDIM $I=*
  1482. [acad1(dimbas)]$S=X $S=DIMLINEAR BASELINE
  1483. [acad1(dimcon)]$S=X $S=DIMLINEAR CONTINUE
  1484. [ Exit]
  1485.  
  1486. **drord
  1487. [Select Ordinate Orientation]
  1488. [acad1(dimordx)]ORD;\X
  1489. [acad1(dimorda)]ORD;
  1490. [acad1(dimordy)]ORD;\Y
  1491. [ Exit]
  1492.  
  1493. **eddim
  1494. [Select Dimension Edit Command]
  1495. [acad1(dimhomet)]$S=X $S=HOMETXT HOM
  1496. [acad1(dimnewtx)]$S=X $S=NEWTEXT NEW
  1497. [acad1(blank)]
  1498. [acad1(dimupdat)]$S=X $S=UPDATE UPD
  1499. [acad1(dimoblq)]OBL
  1500. [ Previous...]$I=DRDIM $I=*
  1501. [acad1(dimtrot)]TRO
  1502. [acad1(dimtedit)]$S=X $S=TEDIT TED
  1503. [ Exit]
  1504.  
  1505. **dimset
  1506. [Select to Set Dimension Variables]
  1507. [acad1(linear)]$I=DIMLIN $I=*
  1508. [acad1(angular)]$I=DIMANG $I=*
  1509. [acad1(ordinate)]$I=DIMORD1 $I=*
  1510. [acad1(diameter)]$I=DIMDIA $I=*
  1511. [acad1(radial)]$I=DIMRAD $I=*
  1512. [ Dim Style...]$I=DIMSTY $I=*
  1513. [ Dim Globals...]$I=DIMGLO $I=*
  1514. [ Dim Text...]$I=DIMTXT $I=*
  1515. [ Exit]
  1516.  
  1517. **dimlin
  1518. [Set Linear Dimension Variables]
  1519. [acad1(linli1)]dimtad off dimtix off dimsoxd off $I=*
  1520. [acad1(linse1n)]dimse1 on $I=*
  1521. [acad1(linexe)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1522. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1523. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1524. (princ))(command)(setq m:ds1 (getvar "DIMEXE"))(terpri)+
  1525. (prompt "Set extension line by picking or enter value.")(terpri)+
  1526. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1527. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1528. (setvar "DIMEXE" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1529. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1530. [ Dim Text...]$I=DIMTXT $I=*
  1531. [acad1(linli2)]dimtad off dimtix on dimsoxd off $I=*
  1532. [acad1(linse1f)]dimse1 off $I=*
  1533. [acad1(linexo)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1534. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1535. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1536. (princ))(command)(setq m:ds1 (getvar "DIMEXO"))(terpri)+
  1537. (prompt "Set extension line offset by picking or enter value.")(terpri)+
  1538. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1539. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1540. (setvar "DIMEXO" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1541. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1542. [ Dim Globals...]$I=DIMGLO $I=*
  1543. [acad1(linli3)]dimtad off dimtix on dimsoxd on $I=*
  1544. [acad1(linse2n)]dimse2 on $I=*
  1545. [acad1(lindle)]^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 "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1548. (princ))(command)(setq m:ds1 (getvar "DIMDLE"))(terpri)+
  1549. (prompt "Set extension line by picking or enter value.")(terpri)+
  1550. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1551. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1552. (setvar "DIMDLE" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1553. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1554. [ Previous...]$I= $I=*
  1555. [acad1(linli4)]dimtad on dimtix on dimsoxd off $I=*
  1556. [acad1(linse2f)]dimse2 off $I=*
  1557. [acad1(lindli)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1558. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1559. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1560. (princ))(command)(setq m:ds1 (getvar "DIMDLI"))(terpri)+
  1561. (prompt "Set dim line increment by picking or enter value.")(terpri)+
  1562. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1563. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1564. (setvar "DIMDLI" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1565. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1566. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1567. (menucmd "I=*")) (command))(princ) ^P 
  1568.  
  1569. **dimang
  1570. [Set Angular Dimension Variables]$I= $I=*
  1571. [acad1(angblk)]$I=DIMBLK $I=*
  1572. [acad1(angtxt)]$I=DIMTXT $I=*
  1573. [acad1(angglo)]$I=DIMGLO $I=*
  1574. [ Exit]
  1575.  
  1576. **dimord1
  1577. [Set Ordinate Dimension Variables]
  1578. [acad1(ordtadn)]dimtad on $I=*
  1579. [acad1(ordexo)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1580. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1581. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1582. (princ))(command)(setq m:ds1 (getvar "DIMEXO"))(terpri)+
  1583. (prompt "Set extension line offset by picking or enter value.")(terpri)+
  1584. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1585. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1586. (setvar "DIMEXO" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1587. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1588. [ Dim Text...]$I=DIMTXT $I=*
  1589. [acad1(ordtadf)]dimtad off $I=*
  1590. [acad1(ordtvp)]^P(command "dimtad" "off")(princ);+
  1591. (defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1592. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1593. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1594. (princ))(command)(setq m:ds1 (getvar "DIMTVP"))(terpri)+
  1595. (prompt "Set vertical position of text by picking or enter value.")(terpri)+
  1596. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1597. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1598. (setvar "DIMTVP" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1599. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1600. [ Previous...]$I= $I=*
  1601. [ Dim Blocks...]$I=DIMBLK $I=*
  1602. [ Dim Globals...]$I=DIMGLO $I=*
  1603. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1604. (menucmd "I=*")) (command))(princ) ^P
  1605.  
  1606.  
  1607. **dimdia
  1608. [Set Diameter Dimension Variables]
  1609. [acad1(diaa)]dimtix on $I=*
  1610. [ Dim Blocks...]$I=DIMBLK $I=*
  1611. [ Dim Globals...]$I=DIMGLO $I=*
  1612. [acad1(diab)]dimtix off dimtofl off $I=*
  1613. [acad1(diacen)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1614. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1615. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1616. (princ))(command)(setq m:ds1 (getvar "DIMCEN"))(terpri)+
  1617. (prompt "Set center mark size by picking or enter value.")(terpri)+
  1618. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1619. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1620. (setvar "DIMCEN" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1621. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1622. [ Previous...]$I= $I=*
  1623. [acad1(diac)]dimtix off dimtofl on $I=*
  1624. [ Dim Text...]$I=DIMTXT $I=*
  1625. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1626. (menucmd "I=*")) (command))(princ) ^P
  1627.  
  1628. **dimrad
  1629. [Set Radius Dimension Variables]
  1630. [acad1(radf1)]dimtix on $I=*
  1631. [ Dim Blocks...]$I=DIMBLK $I=*
  1632. [ Dim Globals...]$I=DIMGLO $I=*
  1633. [acad1(radf2)]dimtix off dimtofl off $I=*
  1634. [acad1(radcen)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1635. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1636. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1637. (princ))(command)(setq m:ds1 (getvar "DIMCEN"))(terpri)+
  1638. (prompt "Set center mark size by picking or enter value.")(terpri)+
  1639. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1640. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1641. (setvar "DIMCEN" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1642. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1643. [ Previous...]$I= $I=*
  1644. [acad1(radf3)]dimtix off dimtofl on $I=*
  1645. [ Dim Text...]$I=DIMTXT $I=*
  1646. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1647. (menucmd "I=*")) (command))(princ) ^P
  1648.  
  1649. **dimglo
  1650. [Set Global Dimension Variables]
  1651. [acad1(gloason)]dimaso on $I=*
  1652. [acad1(gloclrd)]dimclrd \$I=*           
  1653. [acad1(glornd)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1654. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1655. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1656. (princ))(command)(setq m:ds1 (getvar "DIMRND"))(terpri)+
  1657. (prompt "Set rounding precision by picking or enter value.")(terpri)+
  1658. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1659. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1660. (setvar "DIMRND" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1661. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1662. [ Dim Text...]$I=DIMTXT $I=*
  1663. [acad1(gloasof)]dimaso off $I=*
  1664. [acad1(gloclre)]dimclre \$I=*           
  1665. [acad1(gloscale)]dimscale \$I=*
  1666. [ Dim Blocks...]$I=DIMBLK $I=*
  1667. [acad1(gloshon)]dimsho on $I=*
  1668. [acad1(gloclrt)]dimclrt \$I=*           
  1669. [acad1(glolfac)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1670. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1671. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1672. (princ))(command)(setq m:ds1 (getvar "DIMLFAC"))(terpri)+
  1673. (prompt "Set global scale factor by picking or enter value.")(terpri)+
  1674. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1675. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1676. (setvar "DIMLFAC" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1677. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1678. [ Previous...]$I= $I=*
  1679. [acad1(gloshof)]dimsho off $I=*
  1680. [ Dim Style...]$I=DIMSTY $I=*
  1681. [ Status]status $I=*
  1682. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1683. (menucmd "I=*")) (command))(princ) ^P
  1684.  
  1685. **dimblk
  1686. [Set Dimension Block Variables]
  1687. [acad1(blkuah)]dimsah off dimtsz 0 dimblk . $I=*
  1688. [acad1(blkusb)]dimsah on dimblk1 \dimblk2 \$I=*
  1689. [ Previous...]$I= $I=*
  1690. [acad1(blkutm)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1691. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1692. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1693. (princ))(command)(setq m:ds1 (getvar "DIMTSZ"))(terpri)+
  1694. (prompt "Set size of ticks by picking or enter value.")(terpri)+
  1695. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1696. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1697. (setvar "DIMTSZ" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1698. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1699. [acad1(blkus1)]dimsah on dimtsz 0 dimblk1 \$I=*
  1700. [ Dim Text...]$I=DIMTXT $I=*
  1701. [acad1(blkudt)]dimsah off dimtsz 0 dimblk dot $I=*
  1702. [acad1(blkus2)]dimsah on dimtsz 0 dimblk2 \$I=*
  1703. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1704. (menucmd "I=*")) (command))(princ) ^P
  1705.  
  1706. **dimtxt
  1707. [Set Dimension Text Variables -1-]
  1708. [acad1(txttadn)]dimtad on $I=*
  1709. [acad1(txttohn)]dimtoh on $I=*
  1710. [acad1(txttoln)]dimtol on $I=TOLN $I=*
  1711. [ Previous...]$I= $I=*
  1712. [acad1(txttadf)]dimtad off $I=*
  1713. [acad1(txttohf)]dimtoh off $I=*
  1714. [acad1(txttolf)]dimtol off $I=*
  1715. [ Dim Globals...]$I=DIMGLO $I=*
  1716. [acad1(txttihn)]dimtih on $I=*
  1717. [acad1(txttofln)]dimtofl on $I=*
  1718. [acad1(txtlimn)]dimlim on $I=TOLN $I=*
  1719. [ Next...]$I=dimtxt2 $I=*
  1720. [acad1(txttihf)]dimtih off $I=*
  1721. [acad1(txttoflf)]dimtofl off $I=*
  1722. [acad1(txtlimf)]dimlim off $I=*
  1723. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1724. (menucmd "I=*")) (command))(princ) ^P
  1725.  
  1726. **dimtxt2
  1727. [Set Dimension Text Variables -2-]
  1728. [acad1(txtaltn)]dimalt on $I=ALTN $I=*
  1729. [acad1(txtsoxdn)]dimsoxd on $I=*
  1730. [acad1(txtgap)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1731. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1732. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1733. (princ))(command)(setq m:ds1 (getvar "DIMGAP"))(terpri)+
  1734. (prompt "Set dist around text by picking or enter value.")(terpri)+
  1735. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1736. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1737. (setvar "DIMGAP" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1738. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1739. [ Original...]$I= $I= $I=*
  1740. [acad1(txtaltf)]dimalt off $I=*
  1741. [acad1(txtsoxdf)]dimsoxd off $I=*
  1742. [acad1(txtgapd)]dimgap 0.09 $I=*
  1743. [ Dim Globals...]$I=DIMGLO $I=*
  1744. [acad1(txttixn)]dimtix off $I=*
  1745. [acad1(txtpostn)]dimpost \$I=*
  1746. [acad1(txtzin)]$I=TXTZIN $I=*
  1747. [ Previous...]$I= $I=*
  1748. [acad1(txttixf)]dimtix on $I=*
  1749. [acad1(txtpostf)]dimpost . $I=*
  1750. [acad1(txtzind)]dimzin 0 $I=*
  1751. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1752. (menucmd "I=*")) (command))(princ) ^P
  1753.  
  1754. **toln
  1755. [Set Dimension Tolerance Variables]$I= $I=*
  1756. [acad1(txttp)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1757. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1758. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1759. (princ))(command)(setq m:ds1 (getvar "DIMTP"))(terpri)+
  1760. (prompt "Set tolerance limits by picking or enter value.")(terpri)+
  1761. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1762. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1763. (setvar "DIMTP" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1764. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1765. [acad1(txttm)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1766. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1767. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1768. (princ))(command)(setq m:ds1 (getvar "DIMTM"))(terpri)+
  1769. (prompt "Set tolerance limits by picking or enter value.")(terpri)+
  1770. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1771. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1772. (setvar "DIMTM" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1773. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1774. [acad1(txttfac)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1775. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1776. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1777. (princ))(command)(setq m:ds1 (getvar "DIMTFAC"))(terpri)+
  1778. (prompt "Set text height scale factor by picking or enter value.")(terpri)+
  1779. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1780. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1781. (setvar "DIMTFAC" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1782. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1783. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1784. (menucmd "I=*")) (command))(princ) ^P
  1785.  
  1786. **altn
  1787. [Set Alternate Dimension Text Options]$I= $I=*
  1788. [acad1(txtaltff)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  1789. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  1790. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  1791. (princ))(command)(setq m:ds1 (getvar "DIMALTF"))(terpri)+
  1792. (prompt "Set alternate measurement by picking or enter value.")(terpri)+
  1793. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  1794. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  1795. (setvar "DIMALTF" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  1796. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  1797. [acad1(txtapost)]dimapost \$I= $I=*
  1798. [acad1(txtaltd)]dimaltd \$I= $I=*
  1799. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1800. (menucmd "I=*")) (command))(princ) ^P
  1801.  
  1802. **txtzin 
  1803. [Set Display of Leading/Trailing Zeros]
  1804. [acad1(txtzin0)]dimzin 0 $I= $I=*
  1805. [acad1(txtzin3)]dimzin 3 $I= $I=*
  1806. [acad1(txtzin12)]^P(if (= (boole 1 4 (getvar "dimzin")) 0)+
  1807. (setvar "dimzin" (+ (getvar "dimzin") 4))) +
  1808. (if (= (boole 1 8 (getvar "dimzin")) 0)+
  1809. (setvar "dimzin" (+ (getvar "dimzin") 8)))(princ) ^P$I= $I=*
  1810. [acad1(txtzin1)]dimzin 1 $I= $I=*
  1811. [acad1(txtzin4)]^P(if (= (boole 1 4 (getvar "dimzin")) 0)+
  1812. (setvar "dimzin" (+ (getvar "dimzin") 4)))(princ) ^P$I= $I=*
  1813. [ Previous...]$I= $I=*
  1814. [acad1(txtzin2)]dimzin 2 $I= $I=*
  1815. [acad1(txtzin8)]^P(if (= (boole 1 8 (getvar "dimzin")) 0)+
  1816. (setvar "dimzin" (+ (getvar "dimzin") 8)))(princ) ^P$I= $I=*
  1817. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  1818. (menucmd "I=*")) (command))(princ) ^P
  1819.  
  1820. **dimsty
  1821. [Dimension Style Options]
  1822. [acad1(styresp)]res;;\^P(setq m:dsty (getvar "DIMSTYLE"))(princ)^P $I=*
  1823. [acad1(styvarp)]var;;\$I=*
  1824. [acad1(stysav)]sav
  1825. [acad1(styresn)]restore;\^P(setq m:dsty (getvar "DIMSTYLE"))(princ)^P $I=*
  1826. [acad1(styvarn)]var ? * \\$I=*
  1827. [ Previous...]$I= $I=*
  1828. [acad1(stylst)]sav ? * ^P(setq m:dsty (getvar "DIMSTYLE"))(command "")+
  1829. (princ "** Press Return to Continue **")(princ) \^P $I= $I=*
  1830. [acad1(styovr)]ove
  1831. [ Exit]
  1832.  
  1833. **dimsty2
  1834. [Save Dimvar Changes Before Exit?]$I= $I=*
  1835. [acad1(stynew)]sav ^P
  1836. [ Dimstyle...]^P$I=DIMSTY $I=*
  1837. [acad1(styupd)]^C^C(if(= m:dsty "*UNNAMED")(progn (command"DIM")+
  1838. (prompt (strcat (chr 13)(chr 10) "Cannot update the *UNNAMED dimension style."+
  1839. (chr 13)(chr 10) "Please select another option."))(terpri)(menucmd "I=*");+
  1840. (princ))(progn (command "DIM" "SAV" m:dsty "Y")(princ))) ^P
  1841. [acad1(styno)]
  1842.  
  1843. **asrm
  1844. [Select AutoShade Command]
  1845. [ashade(icamera)]^C^C^p$S=X $s=ashc CAMERA ^p
  1846. [ashade(ilightp)]^C^C^p$S=X $s=ashlrm LIGHT \P ^p
  1847. [ashade(ilightd)]^C^C^p$S=X $s=ashlrm LIGHT \D ^p
  1848. [ashade(ilights)]^C^C^p$S=X $s=ashlrm LIGHT \S ^p
  1849. [ashade(ivcamera)]^C^C^p$S=X $s=ashc VCAMERA ^p
  1850. [ashade(ivlightp)]^C^C^p$S=X $s=ashlrm VLIGHT \P ^p
  1851. [ashade(ivlightd)]^C^C^p$S=X $s=ashlrm VLIGHT \D ^p
  1852. [ashade(ivlights)]^C^C^p$S=X $s=ashlrm VLIGHT \S ^p
  1853. [ashade(icamview)]^C^C^p$S=X $s=ash CAMVIEW ^p
  1854. [ashade(ifinish)]^C^C^p$S=X $s=ash FINISH ^p
  1855. [ashade(iscene)]^C^C^p$S=X $s=ash SCENE ^p
  1856. [ashade(ifilmrol)]^C^C^p$S=X $s=ash FILMROLL ^p
  1857. [ DEFAULTS]^C^C^p$S=X $s=defaults DEFAULTS ^p
  1858. [ RMSCAN]^C^C^p$S=X $s=ash RMSCAN ^p$i=*
  1859. [ Exit]^C^C
  1860.  
  1861. **as
  1862. [Select AutoShade Command]
  1863. [ashade(icamera)]^C^C^p$S=X $s=ashc CAMERA ^p
  1864. [ashade(ilightp)]^C^C^p$S=X $s=ashl LIGHT \P ^p
  1865. [ashade(ilightd)]^C^C^p$S=X $s=ashl LIGHT \D ^p
  1866. [ashade(blank)]$i=*
  1867. [ashade(ivcamera)]^C^C^p$S=X $s=ashc VCAMERA ^p
  1868. [ashade(ivlightp)]^C^C^p$S=X $s=ashl VLIGHT \P ^p
  1869. [ashade(ivlightd)]^C^C^p$S=X $s=ashl VLIGHT \D ^p
  1870. [ashade(blank)]$i=*
  1871. [ashade(icamview)]^C^C^p$S=X $s=ash CAMVIEW ^p
  1872. [ashade(ifinish)]^C^C^p$S=X $s=ash FINISH ^p
  1873. [ashade(iscene)]^C^C^p$S=X $s=ash SCENE ^p
  1874. [ashade(ifilmrol)]^C^C^p$S=X $s=ash FILMROLL ^p
  1875. [ DEFAULTS]^C^C^p$S=X $s=defaults DEFAULTS ^p
  1876. [ RMSCAN]^C^C^p$S=X $s=ash RMSCAN ^p$i=*
  1877. [ Exit]^C^C
  1878.  
  1879. **as11
  1880. [Select AutoShade Command]
  1881. [ashade(icamera)]^C^C^p$S=X $S=ASH11C CAMERA ^p
  1882. [ashade(icamview)]^C^C^p$S=X $S=ASH11 CAMVIEW ^p
  1883. [ashade(ilightp)]^C^C^p$S=X $S=ASH11L LIGHT \P ^p
  1884. [ashade(ilightd)]^C^C^p$S=X $S=ASH11L LIGHT \D ^p
  1885. [ashade(iscene)]^C^C^p$S=X $S=ASH11A SCENE ^p
  1886. [ashade(ifilmrol)]^C^C^p$S=X $S=ASH11A FILMROLL ^p
  1887. [ Exit]^c^c
  1888.  
  1889. **rm
  1890. [Select RenderMan Command]
  1891. [ashade(irmsetup)]^C^C^p$S=X $s=RMSETUP RMSETUP ^p
  1892. [ashade(irmprop)]^C^C^p$S=X $s=RMPROP RMPROP ^p
  1893. [ashade(irmattac)]^C^C^p$S=X $s=RMATTACH RMATTACH ^p
  1894. [ashade(irmedit)]^C^C^p$S=X $s=RMEDIT RMEDIT ^p
  1895. [ashade(irmcopy)]^C^C^p$S=X $s=RMCOPY RMCOPY ^p
  1896. [ashade(irmlist)]^C^C^p$S=X $s=RMLIST RMLIST ^p
  1897. [ DEFAULTS]^C^C^p$S=X $s=DEFAULTS DEFAULTS ^p
  1898. [ RMSCAN]^C^C^p$S=X $s=rman RMSCAN ^p$i=*
  1899. [ Exit]^C^C
  1900.  
  1901.  
  1902. ***SCREEN
  1903. **S
  1904. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1905. [* * * *]$S=OSNAPB
  1906. [═╝┐≥]$S=X $S=TK ^C^CTK;
  1907.  
  1908. [╓╞╫≈═╝┐Θ]$S=X $S=BL
  1909. [▒Ω│▀┤τ:]$S=X $S=DIM ^C^CDIM
  1910. [╧╘╩╛┐╪╓╞]$S=X $S=DS
  1911. [╗µ═╝└α]$S=X $S=DR
  1912. [▒α╝¡└α]$S=X $S=ED
  1913. [▓Θ╤»├ⁿ┴ε]$S=X $S=INQ
  1914. [▓π┐╪╓╞:]$S=X $S=LAYER ^C^CLAYER
  1915. [╢α╩╙═╝]$S=X $S=MV
  1916. [╗µ═╝╗·]$S=X $S=PLOT
  1917. [╔Φ╓├└α]$S=X $S=SET
  1918. [╩╡╠σ]^C^C^P(progn(setq m:err *error*)(princ))+
  1919. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  1920. (if (null c:solbox)(progn (menucmd "S=X")(menucmd "S=SOLLOAD"))+
  1921. (progn (menucmd "S=X")(menucmd "S=SOLIDS")))(princ);^P
  1922. [╟·├µ]$S=X $S=3D
  1923. [╙├╗º╫∙▒Ω]$S=X $S=UCS1 ^C^CUCS
  1924. [╩╡╙├╧ε]$S=X $S=UT
  1925. [ASHADE]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  1926. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  1927. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)  "S=ASH")+
  1928. ((= G:SVER 11)"S=ASH11")(T"S=")))(setq m:shmn nil)(princ))(princ))(cond(G:SVER;+
  1929. (setq *error* m:err m:err nil)(m:shmn))(T (vmon)(cond((findfile"ashade.lsp")+
  1930. (load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn)(progn(terpri);+
  1931. (prompt "The file '") (princ (findfile "ashade.lsp"))+
  1932. (prompt "' is incompatible with AutoCAD r11.");+
  1933. (setq m:shmn nil C:CAMERA nil C:LIGHT nil C:CAMVIEW nil C:SCENE nil)(princ))))+
  1934. (T(terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  1935. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  1936. (setq *error* m:err m:err nil m:shmn nil)(princ))))) ^P
  1937. [RMAN]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  1938. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  1939. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  1940. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  1941. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  1942. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  1943. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  1944. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  1945. [BONUS]$S=X $S=SAMP1
  1946. [SAVE:]^C^CSAVE
  1947.  
  1948.  
  1949. **HEADER
  1950. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1951. [* * * *]$S=OSNAPB
  1952. **HEADER0
  1953. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1954. [* * * *]$S=OSNAPB
  1955. **HEADER1
  1956. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1957. [1 * * *]$S=OSNAPB
  1958. **HEADER2
  1959. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1960. [* 2 * *]$S=OSNAPB
  1961. **HEADER3
  1962. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1963. [1 2 * *]$S=OSNAPB
  1964. **HEADER4
  1965. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1966. [* * 3 *]$S=OSNAPB
  1967. **HEADER5
  1968. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1969. [1 * 3 *]$S=OSNAPB
  1970. **HEADER6
  1971. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1972. [* 2 3 *]$S=OSNAPB
  1973. **HEADER7
  1974. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1975. [1 2 3 *]$S=OSNAPB
  1976. **HEADER8
  1977. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1978. [* * * 4]$S=OSNAPB
  1979. **HEADER9
  1980. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1981. [1 * * 4]$S=OSNAPB
  1982. **HEADER10
  1983. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1984. [* 2 * 4]$S=OSNAPB
  1985. **HEADER11
  1986. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1987. [1 2 * 4]$S=OSNAPB
  1988. **HEADER12
  1989. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1990. [* * 3 4]$S=OSNAPB
  1991. **HEADER13
  1992. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1993. [1 * 3 4]$S=OSNAPB
  1994. **HEADER14
  1995. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1996. [* 2 3 4]$S=OSNAPB
  1997. **HEADER15
  1998. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P6=P4DISP $P9=POP9
  1999. [1 2 3 4]$S=OSNAPB
  2000. **X 3
  2001.  
  2002.  
  2003.  
  2004.  
  2005.  
  2006.  
  2007.  
  2008.  
  2009.  
  2010.  
  2011.  
  2012.  
  2013.  
  2014.  
  2015.  
  2016. [__LAST__]$S= $S=
  2017. [  DRAW  ]^C^C$S=X $S=DR
  2018. [  EDIT  ]^C^C$S=X $S=ED
  2019.  
  2020. **TK 3
  2021.  
  2022. [a0]A0;$S=X $S=BLCH
  2023. [a1]A1;$S=X $S=BLCH
  2024. [a2]A2;$S=X $S=BLCH
  2025. [a3]A3;$S=X $S=BLCH
  2026. [a4]A4;$S=X $S=BLCH
  2027.  
  2028. [a0+]A0+;$S=X $S=BLCH
  2029. [a1+]A1+;$S=X $S=BLCH
  2030. [a2+]A2+;$S=X $S=BLCH
  2031. [a3+]A3+;$S=X $S=BLCH
  2032. [a4+]A4+;$S=X $S=BLCH
  2033.  
  2034. [═╝╟⌐╧╘╩╛]^C^C^P(defun tktk() (progn (setvar "CMDECHO" 0) (if (= (cdr (assoc 70 (tblsearch "layer" "TK"))) 65)+
  2035. (command "layer" "t" "tk" "") (command "layer" "f" "tk" "")) (setvar "CMDECHO" 1) (princ)))(tktk);^P
  2036.  
  2037. **BLCH 3
  2038.  
  2039.  
  2040. [1:500]500;$S= $S=
  2041. [1:200]200;$S= $S=
  2042. [1:100]100;$S= $S=
  2043. [1:50]50;$S= $S=
  2044. [1:25]25;$S= $S=
  2045. [1:10]10;$S= $S=
  2046. [1:5]5;$S= $S=
  2047. [1:1]1;$S= $S=
  2048.  
  2049. **calc1 3
  2050. [  calc  ]^C^C$S=X calc \$S=calc1 
  2051.  
  2052. [   +    ]+;
  2053. [   -    ]-;
  2054. [   *    ]*;
  2055. [   /    ]/;
  2056.  
  2057. [Clear   ]Clear;
  2058.  
  2059. [Memory  ]$S=X m $S=calc2
  2060.  
  2061. [Sq root ]s;
  2062.  
  2063. [Ypower-x]y;
  2064.  
  2065. [Trig    ]$S=X Trig $S=calc3
  2066.  
  2067.  
  2068. [Exit    ]$S=X Exit $S=s
  2069. **calc2 3
  2070. [calc-Mem]
  2071.  
  2072. [   +    ]$S=X + $S=calc1
  2073. [   -    ]$S=X - $S=calc1
  2074. [   *    ]$S=X * $S=calc1
  2075. [   /    ]$S=X / $S=calc1
  2076.  
  2077. [Delete  ]$S=X d $S=calc1
  2078.  
  2079. [List    ]$S=X l $S=calc1
  2080.  
  2081. [Recall  ]$S=X r $S=calc1
  2082.  
  2083. [Set     ]$S=X s $S=calc1
  2084.  
  2085.  
  2086.  
  2087. [Exit    ]$S=X exit $S=calc1
  2088. **calc3 3
  2089.  
  2090. [Sine    ]$S=X sin $S=calc1
  2091.  
  2092. [Cosine  ]$S=X cos $S=calc1
  2093.  
  2094. [Tangent ]$S=X tan $S=calc1
  2095.  
  2096. [Arctan  ]$S=X Atan $S=calc1
  2097.  
  2098.  
  2099.  
  2100. [Exit    ]$S=X exit $S=calc1
  2101.  
  2102. **SAMP1 3
  2103. [ALIAS]^C^C^P(if (not c:alias) (if (not (or (setq al +
  2104. (findfile "sample/alias.lsp")) (setq al (findfile "alias.lsp")))) +
  2105. (defun C:alias () (princ "Cannot find alias.lsp ")(terpri);+
  2106. (princ "It is on the SAMPLE DISK. ")(setq C:alias nil)(princ));+
  2107. (progn(terpri)(princ (strcat "Loading " al " -- Please wait. "))+
  2108. (load al))));(princ) ALIAS ^P
  2109. [ASCTEXT]^C^C^P(if (not c:asctext) (if (not (or (setq as +
  2110. (findfile "sample/asctext.lsp")) (setq as (findfile "asctext.lsp")))) +
  2111. (defun C:asctext () (princ "Cannot find asctext.lsp ")(terpri);+
  2112. (princ "It is on the SAMPLE DISK. ")(setq C:asctext nil)(princ)) +
  2113. (progn(terpri)(princ (strcat "Loading " as " -- Please wait. ")) +
  2114. (load as))))(princ) ASCTEXT ^P
  2115. [ATTREDEF]^C^C^P(if (not c:attredef) (if (not (or (setq att +
  2116. (findfile "sample/attredef.lsp")) (setq att (findfile "attredef.lsp")))) +
  2117. (defun C:attredef () (princ "Cannot find attredef.lsp ")(terpri);+
  2118. (princ "It is on the SAMPLE DISK. ")(setq C:attredef nil)(princ));+
  2119. (progn(terpri)(princ (strcat "Loading " att " -- Please wait. "))+
  2120. (load att))))(princ) ATTREDEF ^P
  2121. [AXROT]^C^C^P(if (not c:axrot) (if (not (or (setq ax +
  2122. (findfile "sample/axrot.lsp")) (setq ax (findfile "axrot.lsp")))) +
  2123. (defun C:axrot () (princ "Cannot find axrot.lsp ")(terpri);+
  2124. (princ "It is on the SAMPLE DISK. ")(setq C:axrot nil)(princ));+
  2125. (progn(terpri)(princ (strcat "Loading " ax " -- Please wait. "))+
  2126. (load ax))))(princ) AXROT ^P
  2127. [CALC]^C^C^P(if (not c:calc) (if (not (or (setq ca +
  2128. (findfile "sample/calc.lsp")) (setq ca (findfile "calc.lsp")))) +
  2129. (defun C:calc () (princ "Cannot find calc.lsp ")(terpri);+
  2130. (princ "It is on the SAMPLE DISK. ")(setq C:calc nil)(princ));+
  2131. (progn(terpri)(princ (strcat "Loading " ca " -- Please wait. "))+
  2132. (load ca))))(princ) CALC ^P\$S=calc1
  2133. [CHBLOCK]^C^C^P(if (not c:chb) (if (not (or (setq ch +
  2134. (findfile "sample/chblock.lsp")) (setq ch (findfile "chblock.lsp")))) +
  2135. (defun C:chb () (princ "Cannot find chblock.lsp ")(terpri);+
  2136. (princ "It is on the SAMPLE DISK. ")(setq C:chb nil)(princ));+
  2137. (progn(terpri)(princ (strcat "Loading " ch " -- Please wait. "))+
  2138. (load ch))))(princ) CHB ^P
  2139. [CHFACE]^C^C^P(if (not c:chface) (if(not(or (setq chf +
  2140. (findfile "sample/chface.lsp")) (setq chf (findfile "chface.lsp")))) +
  2141. (defun C:chface () (princ "Cannot find chface.lsp ")(terpri);+
  2142. (princ "It is on the SAMPLE DISK. ")(setq C:chface nil)(princ));+
  2143. (progn(terpri)(princ (strcat "Loading " chf " -- Please wait. "))+
  2144. (load chf))))(princ) CHFACE ^P
  2145. [CHTEXT]^C^C^P(if (not c:cht) (if (not (or (setq cht +
  2146. (findfile "sample/chtext.lsp")) (setq cht (findfile "chtext.lsp")))) +
  2147. (defun C:cht () (princ "Cannot find chtext.lsp ")(terpri);+
  2148. (princ "It is on the SAMPLE DISK. ")(setq C:cht nil)(princ));+
  2149. (progn(terpri)(princ (strcat "Loading " cht " -- Please wait. "))+
  2150. (load cht))))(princ) CHT ^P
  2151. [CL]^C^C^P(if (not c:cl) (if (not (or (setq cl (findfile "sample/cl.lsp")) +
  2152. (setq cl (findfile "cl.lsp")))) (defun C:cl () (princ "Cannot find cl.lsp ");+
  2153. (terpri) (princ "It is on the SAMPLE DISK. ")(setq C:cl nil)(princ));+
  2154. (progn(terpri)(princ (strcat "Loading " cl " -- Please wait. "))+
  2155. (load cl))))(princ) CL ^P
  2156. [DELLAYER]^C^C^P(if (not c:dellayer) (if (not (or (setq de +
  2157. (findfile "sample/dellayer.lsp")) (setq de (findfile "dellayer.lsp")))) +
  2158. (defun C:dellayer () (princ "Cannot find dellayer.lsp ")(terpri);+
  2159. (princ "It is on the SAMPLE DISK. ")(setq C:dellayer nil)(princ));+
  2160. (progn(terpri)(princ (strcat "Loading " de " -- Please wait. "))+
  2161. (load de))))(princ) DELLAYER ^P
  2162. [DLINE]^C^C^P(if (not c:dline) (if (not (or (setq dl +
  2163. (findfile "sample/dline.lsp")) (setq dl (findfile "dline.lsp")))) +
  2164. (defun C:dline () (princ "Cannot find dline.lsp ")(terpri);+
  2165. (princ "It is on the SAMPLE DISK. ")(setq C:dline nil)(princ));+
  2166. (progn(terpri)(princ (strcat "Loading " dl " -- Please wait. "))+
  2167. (load dl))))(princ) DLINE ^P
  2168. [EDGE]^C^C^P(if (not c:edge)(if (not(or(setq ed (findfile "sample/edge.lsp")) +
  2169. (setq ed (findfile "edge.lsp")))) (defun C:edge () +
  2170. (princ "Cannot find edge.lsp ")(terpri) (princ "It is on the SAMPLE DISK. ");+
  2171. (setq C:edge nil)(princ)) (progn(terpri)(princ (strcat "Loading " ed " -- Please wait. "))+
  2172. (load ed))))(princ) EDGE ^P
  2173. [END]^C^C^P(if (not c:end) (if (not (or (setq en (findfile "sample/end.lsp")) +
  2174. (setq en (findfile "end.lsp"))))(defun C:end ()(princ "Cannot find end.lsp ");+
  2175. (terpri)(princ "It is on the SAMPLE DISK. ")(setq C:end nil)(princ));+
  2176. (progn (progn(terpri)(princ (strcat "Loading " en " -- Please wait. "))+
  2177. (load en))(menucmd "S=X")(menucmd "S=END"))))(princ)(c:end) ^P
  2178. [FACT]^C^C^P(if (not c:fact) (if (not (or (setq fa +
  2179. (findfile "sample/fact.lsp")) (setq fa (findfile "fact.lsp")))) +
  2180. (defun C:fact () (princ "Cannot find fact.lsp ")(terpri);+
  2181. (princ "It is on the SAMPLE DISK. ")(setq C:fact nil)(princ));+
  2182. (progn(terpri)(princ (strcat "Loading " fa " -- Please wait. "))(load fa))))+
  2183. (princ) FACT ^P
  2184.  
  2185. [  next]$S=X $S=SAMP2
  2186. **SAMP2 3
  2187. [LLOAD]^C^C^P(if (not c:ll) (if (not (or (setq lo +
  2188. (findfile "sample/lload.lsp")) (setq lo (findfile "lload.lsp")))) +
  2189. (defun C:ll () (princ "Cannot find lload.lsp ")(terpri);+
  2190. (princ "It is on the SAMPLE DISK. ")(setq C:ll nil)(princ));+
  2191. (progn(terpri)(princ (strcat "Loading " lo " -- Please wait. "))+
  2192. (load lo))))(princ) LL ^P
  2193. [MFACE]^C^C^P(if (not c:mface) (if (not (or (setq mf +
  2194. (findfile "sample/mface.lsp")) (setq mf (findfile "mface.lsp")))) +
  2195. (defun C:mface () (princ "Cannot find mface.lsp ")(terpri);+
  2196. (princ "It is on the SAMPLE DISK. ")(setq C:mface nil)(princ));+
  2197. (progn(terpri)(princ (strcat "Loading " mf " -- Please wait. "))+
  2198. (load mf))))(princ) MFACE ^P
  2199. [MVSETUP]^C^C^P(if (not c:mvs) (if (not (or (setq mv +
  2200. (findfile "sample/mvsetup.lsp")) (setq mv (findfile "mvsetup.lsp")))) +
  2201. (defun C:mvs () (princ "Cannot find mvsetup.lsp ")(terpri);+
  2202. (princ "It is on the SAMPLE DISK. ")(setq C:mvs nil)(princ));+
  2203. (progn(terpri)(princ (strcat "Loading " mv " -- Please wait. "))+
  2204. (load mv))))(princ) MVS ^P
  2205. [PROJECT]^C^C^P(if (not c:project) (if (not (or (setq pr +
  2206. (findfile "sample/project.lsp")) (setq pr (findfile "project.lsp")))) +
  2207. (defun C:project () (princ "Cannot find project.lsp ")(terpri);+
  2208. (princ "It is on the SAMPLE DISK. ")(setq C:project nil)(princ));+
  2209. (progn(terpri)(princ (strcat "Loading " pr " -- Please wait. "))+
  2210. (load pr))))(princ) PROJECT1 ^P
  2211. [PTEXT]^C^C^P(if (not c:ptext) (if (not (or (setq pt +
  2212. (findfile "sample/ptext.lsp")) (setq pt (findfile "ptext.lsp")))) +
  2213. (defun C:ptext () (princ "Cannot find ptext.lsp ")(terpri);+
  2214. (princ "It is on the SAMPLE DISK. ")(setq C:ptext nil)(princ));+
  2215. (progn(terpri)(princ (strcat "Loading " pt " -- Please wait. "))+
  2216. (load pt))))(princ) PTEXT ^P
  2217. [RECTANG]^C^C^P(if (not c:rectang) (if (not (or (setq re +
  2218. (findfile "sample/rectang.lsp")) (setq re (findfile "rectang.lsp")))) +
  2219. (defun C:rectang () (princ "Cannot find rectang.lsp ")(terpri);+
  2220. (princ "It is on the SAMPLE DISK. ")(setq C:rectang nil)(princ));+
  2221. (progn(terpri)(princ (strcat "Loading " re " -- Please wait. "))+
  2222. (load re))))(princ) RECTANG ^P
  2223. [RPOLY]^C^C^P(if (not c:rpoly) (if (not (or (setq rp +
  2224. (findfile "sample/rpoly.lsp")) (setq rp (findfile "rpoly.lsp")))) +
  2225. (defun C:rpoly () (princ "Cannot find rpoly.lsp ")(terpri);+
  2226. (princ "It is on the SAMPLE DISK. ")(setq C:rpoly nil)(princ));+
  2227. (progn(terpri)(princ (strcat "Loading " rp " -- Please wait. "))+
  2228. (load rp))))(princ) RPOLY ^P
  2229. [SPIRAL]^C^C^P(if (not c:spiral) (if (not (or (setq sp +
  2230. (findfile "sample/spiral.lsp")) (setq sp (findfile "spiral.lsp")))) +
  2231. (defun C:spiral () (princ "Cannot find spiral.lsp ")(terpri);+
  2232. (princ "It is on the SAMPLE DISK. ")(setq C:spiral nil)(princ));+
  2233. (progn(terpri)(princ (strcat "Loading " sp " -- Please wait. "))+
  2234. (load sp))))(princ) SPIRAL ^P
  2235. [SSX]^C^C^P(if (not c:ssx) (if (not (or (setq ss +
  2236. (findfile "sample/ssx.lsp")) (setq ss (findfile "ssx.lsp")))) +
  2237. (defun C:ssx () (princ "Cannot find ssx.lsp ")(terpri);+
  2238. (princ "It is on the SAMPLE DISK. ")(setq C:ssx nil)(princ));+
  2239. (progn(terpri)(princ (strcat "Loading " ss " -- Please wait. "))+
  2240. (load ss))))(princ) SSX ^P
  2241. [TABLES]^C^C^P(if (not c:tables) (if (not (or (setq ta +
  2242. (findfile "sample/tables.lsp")) (setq ta (findfile "tables.lsp")))) +
  2243. (defun C:tables () (princ "Cannot find tables.lsp ")(terpri);+
  2244. (princ "It is on the SAMPLE DISK. ")(setq C:tables nil)(princ));+
  2245. (progn(terpri)(princ (strcat "Loading " ta " -- Please wait. "))+
  2246. (load ta))))(princ) TABLES ^P
  2247. [XDATA]^C^C^P(if (not c:xdata) (if (not (or (setq xd +
  2248. (findfile "sample/xdata.lsp")) (setq xd (findfile "xdata.lsp")))) +
  2249. (defun C:xdata () (princ "Cannot find xdata.lsp ")(terpri);+
  2250. (princ "It is on the SAMPLE DISK. ")(setq C:xdata nil)(princ));+
  2251. (progn(terpri)(princ (strcat "Loading " xd " -- Please wait. "))+
  2252. (load xd))))(princ) XDATA ^P
  2253. [XPLODE]^C^C^P(if (not c:xplode) (if (not (or (setq xp +
  2254. (findfile "sample/xplode.lsp")) (setq xp (findfile "xplode.lsp")))) +
  2255. (defun C:xplode () (princ "Cannot find xplode.lsp ")(terpri);+
  2256. (princ "It is on the SAMPLE DISK. ")(setq C:xplode nil)(princ));+
  2257. (progn(terpri)(princ (strcat "Loading " xp " -- Please wait. "))+
  2258. (load xp))))(princ) XPLODE ^P
  2259. [XREFCLIP]^C^C^P(if (not C:xrefclip) (if (not (or (setq xc +
  2260. (findfile "sample/xrefclip.lsp")) (setq xc (findfile "xrefclip.lsp")))) +
  2261. (defun C:xrefclip () (princ "Cannot find xrefclip.lsp ")(terpri);+
  2262. (princ "It is on the SAMPLE DISK. ")(setq C:xrefclip nil)(princ));+
  2263. (progn(terpri)(princ (strcat "Loading " xc " -- Please wait. "))+
  2264. (load xc))))(princ) XREFCLIP ^P
  2265.  
  2266. [previous]$S=X $S=SAMP1
  2267. **BL 3
  2268. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  2269. [BASE:]^C^CBASE
  2270. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK
  2271. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  2272. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  2273. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK
  2274.  
  2275. [XBIND:]$S=X $S=XBIND ^C^CXBIND
  2276. [XREF:]$S=X $S=XREF ^C^CXREF
  2277.  
  2278. **DS 3
  2279. [ATTDISP:]$S=X $S=ATTDISP ^C^CATTDISP
  2280. [DVIEW:]$S=X $S=DVIEW ^C^CDVIEW
  2281. [MVIEW:]$S=X $S=MV ^C^CMVIEW
  2282. [PAN:]'PAN
  2283. [PLAN:]$S=X $S=PLAN ^C^CPLAN
  2284. [REDRALL:]'REDRAWALL
  2285. [REDRAW:]'REDRAW
  2286. [REGEN:]^C^CREGEN
  2287. [REGNALL:]^C^CREGENALL
  2288. [RGNAUTO:]$S=X $S=RGNAUTO ^C^CREGENAUTO
  2289. [SHADE]$S=X $S=SHADE
  2290. [VIEW:]$S=X $S=VIEW 'VIEW
  2291. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES
  2292. [VPOINT:]$S=X $S=VPOINT ^C^CVPOINT
  2293. [ZOOM:]$S=X $S=ZOOM 'ZOOM
  2294. **DR 3
  2295. [ARC]$S=X $S=ARC
  2296. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  2297. [CIRCLE]$S=X $S=CIRCLE
  2298. [DONUT:]^C^CDONUT
  2299. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  2300. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE
  2301. [HATCH:]$S=X $S=HATCH ^C^CHATCH
  2302. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  2303. [LINE:]$S=X $S=LINE ^C^CLINE
  2304. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  2305. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  2306. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  2307.  
  2308. [next]$S=X $S=DR2
  2309. **DR2 3
  2310. [POINT:]$S=X $S=POINT ^C^CPOINT
  2311. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON
  2312. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE
  2313. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH
  2314. [SOLID:]$S=X $S=SOLID ^C^CSOLID
  2315. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  2316. [TRACE:]$S=X $S=TRACE ^C^CTRACE
  2317. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  2318.  
  2319. [3D Surfs]$S=X $S=3D
  2320. [SOLIDS]^C^C^P(progn(setq m:err *error*)(princ))+
  2321. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  2322. (if (null c:solbox)(progn (menucmd "S=X")(menucmd "S=SOLLOAD"))+
  2323. (progn (menucmd "S=X")(menucmd "S=SOLIDS")))(princ);^P
  2324.  
  2325.  
  2326. [previous]$S=X $S=DR
  2327. **ED 3
  2328. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY
  2329. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT
  2330. [BREAK:]$S=X $S=BREAK ^C^CBREAK
  2331. [CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER
  2332. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE
  2333. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP
  2334. [COPY:]$S=X $S=COPY ^C^CCOPY
  2335. [DDATTE:]^C^CDDATTE
  2336. [DDEDIT:]$S=X $S=DDEDIT ^C^CDDEDIT
  2337. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE
  2338. [ERASE:]$S=X $S=ERASE ^C^CERASE
  2339. [EXPLODE:]^C^CEXPLODE
  2340. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND
  2341. [next]$S=X $S=ED2
  2342. **ED2 3
  2343. [FILLET:]$S=X $S=FILLET ^C^CFILLET
  2344. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE
  2345. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR
  2346. [MOVE:]$S=X $S=MOVE ^C^CMOVE
  2347. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  2348. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  2349. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  2350. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  2351. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  2352. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  2353. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  2354. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  2355. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  2356. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  2357. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  2358. (princ));PEDITM;^P
  2359. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE
  2360. [SCALE:]$S=X $S=SCALE ^C^CSCALE
  2361. [SELECT:]$S=X $S=SELECT ^C^CSELECT
  2362. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C
  2363. [TRIM:]$S=X $S=TRIM ^C^CTRIM
  2364. [UNDO:]$S=X $S=UNDO ^C^CUNDO
  2365.  
  2366. [previous]$S=X $S=ED
  2367. **INQ 5
  2368. [AREA:]$S=X $S=AREA ^C^CAREA
  2369. [DBLIST:]^CDBLIST
  2370. [DIST:]^C^CDIST
  2371. [HELP:]'HELP
  2372. [ID:]$S=X $S=ID ^C^CID
  2373. [LIST:]$S=X $S=LIST ^C^CLIST
  2374. [STATUS:]^C^CSTATUS
  2375. [TIME:]^C^CTIME
  2376. **SET 3
  2377. [DDEMODES]'DDEMODES
  2378. [DDRMODES]'DDRMODES
  2379. [--------]
  2380. [APERTUR:]$S=X $S=APERTURE ^C^CAPERTURE
  2381. [AXIS:]$S=X $S=AXIS ^C^CAXIS
  2382. [BLIPS:]$S=X $S=BLIPMODE ^C^CBLIPMODE
  2383. [COLOR:]$S=X $S=COLOR ^C^CCOLOR
  2384. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE
  2385. [ELEV:]^C^CELEV
  2386. [GRID:]$S=X $S=GRID ^C^CGRID
  2387. [HANDLES:]$S=X $S=HANDLES ^C^CHANDLES
  2388. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE
  2389. [LIMITS:]$S=X $S=LIMITS ^C^CLIMITS
  2390.  
  2391. [next]$S=X $S=SET2
  2392. **SET2 3
  2393. [LTSCALE:]^C^CLTSCALE
  2394. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP
  2395. [QTEXT:]$S=X $S=QTEXT ^C^CQTEXT
  2396. [SETVAR:]$S=X $S=SETVAR1 'SETVAR
  2397. [SNAP:]$S=X $S=SNAP ^C^CSNAP
  2398. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  2399. [TABLET:]$S=X $S=TABLET ^C^CTABLET
  2400. [UCS:]$S=X $S=UCS1 ^C^CUCS
  2401. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON
  2402. [UNITS:]^CUNITS
  2403. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  2404.  
  2405.  
  2406.  
  2407. [previous]$S=X $S=SET
  2408. **PLOT 3
  2409.  
  2410. [ C   D]
  2411. [ H   E]
  2412. [ O   V]
  2413. [ O   I]
  2414. [ S   C]
  2415. [ E   E]
  2416.  
  2417.  
  2418. [PLOTTER]^C^CPLOT
  2419.  
  2420. [PRINTER]^C^CPRPLOT
  2421.  
  2422.  
  2423. **SOLLOAD 3
  2424.  
  2425. [LOAD AME]^C^C^P(progn(setq m:err *error*)(princ))+
  2426. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  2427. (cond ((null c:solbox)(princ "Loading AME...")+
  2428. (cond ((setq f (findfile "ame")) (xload f))+
  2429. ((setq f (findfile "ame.exp")) (xload f));+
  2430. (T (terpri)(princ "ERROR:  File not found. ")))+
  2431. (if f (progn(terpri)(princ "AutoCAD AME executable loaded. ")+
  2432. (menucmd "p10=p9prim")(menucmd "s=SOLIDS")(princ));+
  2433. (progn(terpri)(princ "Unable to load AME executable.")+
  2434. (menucmd "S=")(menucmd "S=")(princ)))));^P
  2435.  
  2436.  
  2437. [LOAD    ]^C^C^P(progn(setq m:err *error*)(princ))+
  2438. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  2439. (cond ((null c:solbox)(princ "Loading AMElite...")+
  2440. (cond ((setq f (findfile "amelite")) (xload f))+
  2441. ((setq f (findfile "amelite.exp")) (xload f));+
  2442. (T (terpri)(princ "ERROR:  File not found. ")))+
  2443. (if f (progn(terpri)(princ "AutoCAD AMElite executable loaded. ")+
  2444. (menucmd "p10=p9prim")(menucmd "s=SOLIDS")(princ));+
  2445. (progn(terpri)(princ "Unable to load AMElite executable. ")+
  2446. (menucmd "S=")(menucmd "S=")(princ)))));^P
  2447. [AMElite ]^C^C^P(progn(setq m:err *error*)(princ))+
  2448. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  2449. (cond ((null c:solbox)(princ "Loading AMElite...")+
  2450. (cond ((setq f (findfile "amelite")) (xload f))+
  2451. ((setq f (findfile "amelite.exp")) (xload f));+
  2452. (T (terpri)(princ "ERROR:  File not found. ")))+
  2453. (if f (progn(terpri)(princ "AutoCAD AMElite executable loaded. ")+
  2454. (menucmd "p10=p9prim")(menucmd "s=SOLIDS")(princ));+
  2455. (progn(terpri)(princ "Unable to load AMElite executable. ")+
  2456. (menucmd "S=")(menucmd "S=")(princ)))));^P
  2457.  
  2458.  
  2459.  
  2460.  
  2461.  
  2462. **SOLIDS 3
  2463. [SOLBOX: ]^C^C$S=X $S=SBOX SOLBOX
  2464. [SOLCONE:]^C^C$S=X $S=SCONE SOLCONE
  2465. [SOLCYL: ]^C^C$S=X $S=SCYL SOLCYL
  2466. [SOLSPH: ]^C^C$S=X $S=SSPH SOLSPHERE
  2467. [SOLTORS:]^C^C$S=X $S=STOR SOLTORUS
  2468. [SOLWEGE:]^C^C$S=X $S=SWEDGE SOLWEDGE
  2469. [SOLEXT: ]^C^C$S=X $S=SEXT SOLEXT
  2470. [SOLREV: ]^C^C$S=X $S=SREV SOLREV
  2471. [SOLIDIFY]^C^C$S=X $S=SSOLID SOLIDIFY
  2472.  
  2473. [MODIFY]$S=X $S=SMODIFY
  2474. [INQUIRY]$S=X $S=SINQUIRE
  2475. [DISPLAY]$S=X $S=SRENDER
  2476. [UTILITY]$S=X $S=SUTIL
  2477.  
  2478. **SUTIL 3
  2479. [SOLMAT: ]^C^C$S=X $S=SCHMAT SOLMAT
  2480. [SOLVAR: ]^C^C$S=X $S=SSOLV SOLVAR
  2481. [SOLUCS: ]^C^C$S=X $S=SUCS SOLUCS
  2482.  
  2483. [SOLIN:]^C^CSOLIN
  2484. [SOLOUT:]^C^CSOLOUT
  2485. [SOLPURG:]^C^C$S=X $S=SPURGE SOLPURGE
  2486. [UNLOAD  ]^C^C^P(if (xunload "ame" nil)+
  2487. (princ (strcat "AME unloaded." (chr 10))))+
  2488. (if (xunload "amelite" nil)(princ "AMElite unloaded."))+
  2489. (menucmd "P9=POP9")(menucmd "S=S")(princ);^P
  2490.  
  2491. [SOLIDS]$S=X $S=SOLIDS
  2492. [MODIFY]$S=X $S=SMODIFY
  2493. [INQUIRY]$S=X $S=SINQUIRE
  2494. [DISPLAY]$S=X $S=SRENDER
  2495.  
  2496. **SMODIFY 3
  2497. [SOLINT:]^C^C$S=X $S=SINT SOLINT
  2498. [SOLSUB:]^C^C$S=X $S=SSUB SOLSUB
  2499. [SOLUNON:]^C^C$S=X $S=SUNION SOLUNION
  2500. [SOLCHAM:]^C^C$S=X $S=SCHAM SOLCHAM
  2501. [SOLFILL:]^C^C$S=X $S=SFILL SOLFILL
  2502. [SOLCHP:]^C^C$S=X $S=SCHP SOLCHP
  2503. [SOLMOVE:]^C^C$S=X $S=SMOVE SOLMOVE
  2504. [SOLSEP:]^C^C$S=X $S=SSEP SOLSEP
  2505.  
  2506. [SOLIDS]$S=X $S=SOLIDS
  2507.  
  2508. [INQUIRY]$S=X $S=SINQUIRE
  2509. [DISPLAY]$S=X $S=SRENDER
  2510. [UTILITY]$S=X $S=SUTIL
  2511. **SINQUIRE 3
  2512. [SOLLIST:]^C^C$S=X $S=SLIST SOLLIST
  2513. [SOLMASP:]^C^C$S=X $S=SMASSP SOLMASSP
  2514. [SOLAREA:]^C^C$S=X $S=SAREA SOLAREA
  2515.  
  2516.  
  2517.  
  2518.  
  2519.  
  2520.  
  2521. [SOLIDS]$S=X $S=SOLIDS
  2522. [MODIFY]$S=X $S=SMODIFY
  2523.  
  2524. [DISPLAY]$S=X $S=SRENDER
  2525. [UTILITY]$S=X $S=SUTIL
  2526. **SRENDER 3
  2527. [SOLMESH:]^C^C$S=X $S=SMESH SOLMESH
  2528. [SOLWIRE:]^C^C$S=X $S=SWIRE SOLWIRE
  2529.  
  2530. [SOLFEAT:]^C^C$S=X $S=SFEAT SOLFEAT
  2531. [SOLPROF:]^C^C$S=X $S=SPROF SOLPROF
  2532. [SOLSECT:]^C^C$S=X $S=SSECT SOLSECT
  2533.  
  2534.  
  2535.  
  2536. [SOLIDS]$S=X $S=SOLIDS
  2537. [MODIFY]$S=X $S=SMODIFY
  2538. [INQUIRY]$S=X $S=SINQUIRE
  2539.  
  2540. [UTILITY]$S=X $S=SUTIL
  2541. **SBOX 3
  2542. [BOX:]^C^CSOLBOX
  2543.  
  2544. Cube
  2545. Length
  2546.  
  2547. **SWEDGE 3
  2548. [WEDGE:]^C^CSOLWEDGE
  2549.  
  2550. Length
  2551.  
  2552. **SCONE 3
  2553. [CONE:]^C^CSOLCONE
  2554.  
  2555. [Elliptcl]Elliptical
  2556. [Center  ]C
  2557.  
  2558. Diameter
  2559.  
  2560. **SCYL 3
  2561. [CYLNDER:]^C^CSOLCYL
  2562.  
  2563. [Elliptcl]Elliptical
  2564. [Center  ]C
  2565.  
  2566. Diameter
  2567.  
  2568. **SSPH 3
  2569. [SPHERE:]^C^CSOLSPHERE
  2570.  
  2571. Diameter
  2572.  
  2573. **STOR 3
  2574. [TORUS:]^C^CSOLTORUS
  2575.  
  2576. Diameter
  2577.  
  2578. **SFILL 3
  2579. [SOLFILL:]^C^CSOLFILL
  2580.  
  2581. Diameter
  2582.  
  2583. **SCHAM 3
  2584. [CHAMFER:]^C^CSOLCHAM
  2585.  
  2586. Next
  2587. OK
  2588.  
  2589. **SEXT 3
  2590. [EXTRUDE:]^C^CSOLEXT
  2591.  
  2592. Window
  2593. Last
  2594. Previous
  2595. Crossing
  2596. Remove
  2597. Add
  2598.  
  2599. **SREV 3
  2600. [REVOLVE:]^C^CSOLREV
  2601.  
  2602. Window
  2603. Last
  2604. Previous
  2605. Crossing
  2606. Remove
  2607. Add
  2608.  
  2609. Entity
  2610. X
  2611. Y
  2612.  
  2613.  
  2614. **SSOLID 3
  2615. [SOLIDFY]^C^CSOLIDIFY
  2616.  
  2617. Window
  2618. Last
  2619. Previous
  2620. Crossing
  2621. Remove
  2622. Add
  2623.  
  2624. Yes
  2625. No
  2626.  
  2627. **SINT 3
  2628. [INTERS:]^C^CSOLINT
  2629.  
  2630. Window
  2631. Last
  2632. Previous
  2633. Crossing
  2634. Remove
  2635. Add
  2636.  
  2637. **SSUB 3
  2638. [SUBTRCT:]^C^CSOLSUB
  2639.  
  2640. Window
  2641. Last
  2642. Previous
  2643. Crossing
  2644. Remove
  2645. Add
  2646.  
  2647. **SUNION 3
  2648. [UNION:]^C^CSOLUNION
  2649.  
  2650. Window
  2651. Last
  2652. Previous
  2653. Crossing
  2654. Remove
  2655. Add
  2656.  
  2657. **SSEP 3
  2658. [SEPRATE:]^C^CSOLSEP
  2659.  
  2660. Window
  2661. Last
  2662. Previous
  2663. Crossing
  2664. Remove
  2665. Add
  2666.  
  2667. **SCHP 3
  2668. [CHPRIM:]^C^CSOLCHP
  2669.  
  2670. Color
  2671. Delete
  2672. Evaluate
  2673. Instance
  2674. Move
  2675. Next
  2676. Pick
  2677. Replace
  2678. Size
  2679. eXit
  2680.  
  2681. Yes
  2682. No
  2683. **SCHMAT 3
  2684. [MATERAL:]^C^CSOLMAT
  2685.  
  2686. Change
  2687. Edit
  2688. eXit
  2689. LIst
  2690. LOad
  2691. New
  2692. Remove
  2693. SAve
  2694. SEt
  2695. ?
  2696.  
  2697. **SMOVE  3
  2698. [SOLMOVE:]^C^CSOLMOVE
  2699. ?
  2700. Window
  2701. Last
  2702. Previous
  2703.  
  2704. [Align]a^^
  2705. [  Edge]edge
  2706. [  Face]face
  2707. [  Ucs]ucs
  2708. [  World]world
  2709. [Origin]origin
  2710.  
  2711. OK
  2712. Next
  2713. **SPURGE 3
  2714. [PURGE:]^C^CSOLPURGE
  2715.  
  2716. Memory
  2717. Bfile
  2718. Pmesh
  2719. Erased
  2720.  
  2721. All
  2722. Select
  2723.  
  2724. Window
  2725. Last
  2726. Previous
  2727. Crossing
  2728.   
  2729. **SLIST 3
  2730. [LIST:]^C^CSOLLIST
  2731.  
  2732. Window
  2733. Last
  2734. Previous
  2735. Crossing
  2736. Remove
  2737. Add
  2738.  
  2739. Edge
  2740. Face
  2741. Tree
  2742. Solid
  2743.  
  2744. **SPROF 3
  2745. [PROFILE:]^C^CSOLPROF
  2746.  
  2747. Window
  2748. Last
  2749. Previous
  2750. Crossing
  2751. Remove
  2752. Add
  2753.  
  2754. Yes
  2755. No
  2756.  
  2757. **SFEAT 3
  2758. [FEATURE:]^C^CSOLFEAT
  2759.  
  2760. Edge
  2761. Face
  2762.  
  2763. OK
  2764. Next
  2765.  
  2766. **SUCS 3
  2767. [UCS:]^C^CSOLUCS
  2768.  
  2769. Edge
  2770. Face
  2771.  
  2772. OK
  2773. Next
  2774.  
  2775. **SWIRE 3
  2776. [WIRE:]^C^CSOLWIRE
  2777.  
  2778. Window
  2779. Last
  2780. Previous
  2781. Crossing
  2782. Remove
  2783. Add
  2784.  
  2785. **SSECT 3
  2786. [SOLSECT:]^C^CSOLSECT
  2787.  
  2788. Window
  2789. Last
  2790. Previous
  2791. Crossing
  2792. Remove
  2793. Add
  2794.  
  2795. **SMESH 3
  2796. [MESH:]^C^CSOLMESH
  2797.  
  2798. Window
  2799. Last
  2800. Previous
  2801. Crossing
  2802. Remove
  2803. Add
  2804.  
  2805. **SMASSP 3
  2806. [MASSPRP:]^C^CSOLMASSP
  2807.  
  2808. Window
  2809. Last
  2810. Previous
  2811. Crossing
  2812. Remove
  2813. Add
  2814.  
  2815. Yes
  2816. No
  2817.  
  2818. **SAREA 3
  2819. [AREA:]^C^CSOLAREA
  2820.  
  2821. Window
  2822. Last
  2823. Previous
  2824. Crossing
  2825. Remove
  2826. Add
  2827.  
  2828. **SSOLV 3
  2829. [SOLVAR:]^C^CSOLVAR
  2830. [Amever  ]solamever
  2831. [Areau   ]solareau
  2832. [Axcol   ]solaxcol
  2833. [Decomp  ]soldecomp
  2834. [Delent  ]soldelent
  2835. [Display ]soldisplay
  2836. [Hangle  ]solhangle
  2837. [Hpat    ]solhpat
  2838. [Hsize   ]solhsize
  2839. [Length  ]sollength
  2840. [Mass    ]solmass
  2841.  
  2842. [More... ]$S=X $S=SSOLV2
  2843. **SSOLV2 3
  2844. [SOLVAR:]^C^CSOLVAR
  2845. [Matcurr ]solmatcurr
  2846. [Pagelen ]solpagelen
  2847. [Render  ]solrender
  2848. [Servmsg ]solservmsg
  2849. [Solidify]solsolidify
  2850. [Subdiv  ]solsubdiv
  2851. [Volume  ]solvolume
  2852. [Solwdens]solwdens
  2853.  
  2854.  
  2855.  
  2856.  
  2857. [Previous]$S=X $S=SSOLV
  2858.  
  2859. **UT 3
  2860. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT
  2861. [AUDIT:]$S=X $S=AUDIT ^C^CAUDIT \$S= $S=
  2862. [DXF/DXB]$S=X $S=DXF
  2863. [FILES:]^C^CFILES
  2864. [IGES]$S=X $S=IGES
  2865. [MENU:]^C^CMENU
  2866. [PURGE:]$S=X $S=PURGE ^C^CPURGE
  2867. [RENAME:]$S=X $S=RENAME ^C^CRENAME
  2868. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT
  2869. [SLIDES]$S=X $S=SLIDES
  2870. [External]$S=X $S=EXCOMDS
  2871. [Commands]$S=X $S=EXCOMDS
  2872.  
  2873. [END:]^C^CEND
  2874. [QUIT]$S=X $S=QUIT
  2875.  
  2876. **ASH11 3
  2877. [LIGHTS:]^C^C$S=X $S=ASH11L LIGHT
  2878. [CAMERA:]^C^C$S=X $S=ASH11C CAMERA
  2879. [ACTION]^C^C$S=X $S=ASH11A
  2880.  
  2881. [CAMVIEW:]^C^CCAMVIEW
  2882. **ASH11L 3
  2883. [LIGHT:]^C^CLIGHT
  2884.  
  2885. [Point]p
  2886. Directed
  2887.  
  2888. [Filters]
  2889. .x
  2890. .y
  2891. .z
  2892. .xy
  2893. .xz
  2894. .yz
  2895.  
  2896. [CAMERA:]^C^C$S=X $S=ASH11C CAMERA
  2897. [ACTION]$S=X $S=ASH11A
  2898. **ASH11C 3
  2899. [CAMERA:]^C^CCAMERA
  2900.  
  2901. [Filters]
  2902. .x
  2903. .y
  2904. .z
  2905. .xy
  2906. .xz
  2907. .yz
  2908.  
  2909. [CAMVIEW:]^C^CCAMVIEW
  2910.  
  2911.  
  2912. [LIGHTS:]^C^C$S=X $S=ASH11L LIGHT
  2913. [ACTION]$S=X $S=ASH11A
  2914. **ASH11A 3
  2915. [ACTION]
  2916.  
  2917. [SCENE:]^C^CSCENE
  2918. [FLMROLL:]^C^CFILMROLL
  2919.  
  2920.  
  2921.  
  2922.  
  2923.  
  2924.  
  2925.  
  2926.  
  2927.  
  2928. [LIGHTS:]^C^C$S=X $S=ASH11L LIGHT
  2929. [CAMERA:]^C^C$S=X $S=ASH11C CAMERA
  2930. **ASH 3
  2931. [LIGHT:]^C^C$S=X ^p(progn(menucmd(if g:rman"s=ashlrm""s=ashl"));+
  2932. (princ)) ^pLIGHT
  2933. [VLIGHT:]^C^C$S=X ^p(progn(menucmd(if g:rman"s=ashlrm""s=ashl"));+
  2934. (princ)) ^pVLIGHT
  2935. [CAMERA:]^C^C$S=X $S=ASHC CAMERA
  2936. [VCAMERA:]^C^C$S=X $S=ASHC VCAMERA
  2937. [FINISH:]^C^CFINISH
  2938. [SCENE:]^C^CSCENE
  2939.  
  2940. [CAMVIEW:]^C^CCAMVIEW
  2941.  
  2942. [FILMROL:]^C^CFILMROLL
  2943. [DEFAULT:]^C^C$S=X $S=DEFAULTS DEFAULTS
  2944. [RMSCAN:]^C^CRMSCAN
  2945. [--------]
  2946. [RMAN]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  2947. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  2948. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  2949. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  2950. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  2951. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  2952. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  2953. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  2954. **ASHL 3
  2955. [LIGHT:]^C^CLIGHT
  2956. [VLIGHT:]^C^CVLIGHT
  2957.  
  2958. [Point]p
  2959. Directed
  2960.  
  2961. .x
  2962. .y
  2963. .z
  2964. .xy
  2965. .xz
  2966. .yz
  2967. **ASHLRM 3
  2968. [LIGHT:]^C^CLIGHT
  2969. [VLIGHT:]^C^CVLIGHT
  2970.  
  2971. [Point]p
  2972. Directed
  2973. Spot
  2974. .x
  2975. .y
  2976. .z
  2977. .xy
  2978. .xz
  2979. .yz
  2980. **ASHC 3
  2981. [CAMERA:]^C^CCAMERA
  2982. [VCAMERA:]^C^CVCAMERA
  2983.  
  2984.  
  2985. [CAMVIEW:]^C^CCAMVIEW
  2986.  
  2987. .x
  2988. .y
  2989. .z
  2990. .xy
  2991. .xz
  2992. .yz
  2993. **DEFAULTS 3
  2994. [DEFAULT:]^C^CDEFAULTS
  2995.  
  2996. Resize
  2997. Scale
  2998. [Prompts]Prompts $S=X $S=YESNO \$S= $S=
  2999.  
  3000.  
  3001. Select
  3002. **RMAN 3
  3003. [RMSETUP:]^C^C$S=X $S=RMSETUP RMSETUP
  3004. [RMPROP: ]^C^C$S=X $S=RMPROP RMPROP
  3005.  
  3006. [RMATTAC:]^C^C$S=X $S=RMATTACH RMATTACH
  3007. [RMEDIT: ]^C^C$S=X $S=RMEDIT RMEDIT
  3008. [RMCOPY: ]^C^C$S=X $S=RMCOPY RMCOPY
  3009.  
  3010. [RMLIST: ]^C^C$S=X $S=RMLIST RMLIST
  3011.  
  3012. [FILMROL:]^C^CFILMROLL
  3013. [DEFAULT:]^C^C$S=X $S=DEFAULTS DEFAULTS
  3014. [RMSCAN:]^C^CRMSCAN
  3015. [--------]
  3016. [ASHADE]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  3017. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  3018. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)  "S=ASH")+
  3019. ((= G:SVER 11)"S=ASH11")(T"S=")))(setq m:shmn nil)(princ))(princ))(cond(G:SVER;+
  3020. (setq *error* m:err m:err nil)(m:shmn))(T (vmon)(cond((findfile"ashade.lsp")+
  3021. (load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn)(progn(terpri);+
  3022. (prompt "The file '") (princ (findfile "ashade.lsp"))+
  3023. (prompt "' is incompatible with AutoCAD r11.");+
  3024. (setq m:shmn nil C:CAMERA nil C:LIGHT nil C:CAMVIEW nil C:SCENE nil)(princ))))+
  3025. (T(terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  3026. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  3027. (setq *error* m:err m:err nil m:shmn nil)(princ))))) ^P
  3028. **RMSETUP 3
  3029. [RMSETUP:]^C^CRMSETUP
  3030.  
  3031.  
  3032. Air
  3033. Bucket
  3034. [Crop]Crop $S=X $S=RMSETUPC \$S= $S=
  3035. [Dest]Dest $S=X $S=RMSETUPD \$S= $S=
  3036. Exposure
  3037. [Filter]Filter $S=X $S=RMSETUPFI \$S= $S=
  3038. [Format]Format $S=X $S=RMSETUPFO \$S= $S=
  3039. [Merge]Merge $S=X $S=YESNO \$S= $S=
  3040. Rate
  3041. Samples
  3042. **RMSETUPC 3
  3043.  
  3044.  
  3045. Visual
  3046.  
  3047. Numeric
  3048. **RMSETUPD 3
  3049.  
  3050.  
  3051. [Cpscript]Cpostscript
  3052. [Pscript]Postscript
  3053. File
  3054. Tiff
  3055. Vga
  3056. Tga
  3057. Targa
  3058. Vista
  3059. Framebuffer
  3060. **RMSETUPFI 3
  3061.  
  3062.  
  3063. Box
  3064.  
  3065. Gaussian
  3066. **RMSETUPFO 3
  3067.  
  3068.  
  3069. Ascii
  3070.  
  3071. Binary
  3072. **YESNO 3
  3073.  
  3074.  
  3075. Yes
  3076.  
  3077. No
  3078. **RMPROP 3
  3079. [RMPROP:]^C^CRMPROP
  3080.  
  3081.  
  3082. Air
  3083. Color
  3084. Displace
  3085. Opaque
  3086. Project
  3087. Rate
  3088. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  3089. Surface
  3090. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  3091. **RMPROPTC 3
  3092.  
  3093.  
  3094. Insert
  3095.  
  3096. Pick
  3097.  
  3098. Numeric
  3099. **RMEDIT 3
  3100. [RMEDIT:]^C^CRMEDIT
  3101.  
  3102.  
  3103. Air
  3104. Color
  3105. Displace
  3106. Opaque
  3107. Project
  3108. Rate
  3109. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  3110. Surface
  3111. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  3112. **RMCOPY 3
  3113. [RMCOPY:]^C^CRMCOPY
  3114.  
  3115.  
  3116. Air
  3117. Color
  3118. Displace
  3119. Opaque
  3120. Project
  3121. Rate
  3122. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  3123. Surface
  3124. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  3125. **RMATTACH 3
  3126. [RMATTAC:]^C^CRMATTACH
  3127.  
  3128. ?
  3129.  
  3130. Layer
  3131. Select
  3132. **RMLIST 3
  3133. [RMLIST:]^C^CRMLIST
  3134.  
  3135. Colors
  3136. Shaders
  3137. Entity
  3138. Layer
  3139. Defined
  3140.  
  3141.  
  3142. Atmosphere
  3143. Displacement
  3144. Light
  3145. Surface
  3146.  
  3147.  
  3148. **OSNAPB 2
  3149. [  HELP  ]$S= 'help
  3150. [CENter]CENTER $S=
  3151. [ENDpoint]ENDPOINT $S=
  3152. [INSert]INSERT $S=
  3153. [INTersec]INTERSEC $S=
  3154. [MIDpoint]MIDPOINT $S=
  3155. [NEArest]NEAREST $S=
  3156. [NODe]NODE $S=
  3157. [PERpend]PERPEND $S=
  3158. [QUAdrant]QUADRANT $S=
  3159. [QUICK,]QUICK,^Z
  3160. [TANgent]TANGENT $S=
  3161. [NONE]NONE $S=
  3162. [CANCEL:]^C^C$S=
  3163. [U:]^C^CU $S=
  3164. [REDO:]^C^CREDO $S=
  3165. [REDRAW:]'REDRAW $S=
  3166. [SETVAR:]$S= 'SETVAR
  3167. [__LAST__]$S=
  3168. **BLOCK 3
  3169. [BLOCK:]^C^CBLOCK
  3170. ?
  3171.  
  3172. Window
  3173. Last
  3174. Previous
  3175. Crossing
  3176. Remove
  3177. Add
  3178.  
  3179. Yes
  3180. [OOPS]^C^COOPS
  3181. **INSERT 3
  3182. [INSERT:]^C^CINSERT
  3183. [~]~\
  3184. ?
  3185. [*]*\
  3186. corner
  3187. xyz
  3188. drag
  3189.  
  3190. Scale
  3191. Xscale
  3192. Yscale
  3193. Zscale
  3194. Rotate
  3195. **WBLOCK 3
  3196. [WBLOCK:]^C^CWBLOCK
  3197.  
  3198. =
  3199. *
  3200. [blank];
  3201.  
  3202. Window
  3203. Last
  3204. Previous
  3205. Crossing
  3206. Remove
  3207. Add
  3208. Undo
  3209. **MINSERT 3
  3210. [MINSERT:]^C^CMINSERT
  3211. ?
  3212.  
  3213. corner
  3214. xyz
  3215. drag
  3216. **XBIND 3
  3217. [XBIND:]^C^CXBIND
  3218.  
  3219. Block
  3220. Dimstyle
  3221. Layer
  3222. Ltype
  3223. Style
  3224.  
  3225.  
  3226.  
  3227.  
  3228.  
  3229. [XREF]$S=X $S=XREF
  3230. **XREF 3
  3231. [XREF:]^C^CXREF
  3232.  
  3233. ?
  3234. Attach
  3235. Bind
  3236. Detach
  3237. Path
  3238. Reload
  3239.  
  3240. [Show log]^C^CTYPE (strcat (getvar "DWGNAME") ".XLG")
  3241.  
  3242.  
  3243. [XBIND]$S=X $S=XBIND
  3244. **DIM 3
  3245. [DIM:]^C^CDIM
  3246. [DIM1:]^C^CDIM1
  3247.  
  3248. angular
  3249. [Dim Vars]$S=X $S=VAR1
  3250. leader
  3251. [linear]$S=X $S=DIMLINEAR
  3252. oblique
  3253. [ORDINAT:]$S=X $S=DIMORD ordinate
  3254. [radial]$S=X $S=DIMRADIAL
  3255. status
  3256. style
  3257. trotate
  3258. undo
  3259.  
  3260. [TEdit]$S=X $S=TEDIT TEDIT
  3261. [EXIT]EXIT;$S=X $S=S
  3262. [next]$S=X $S=FORMAT
  3263. **DIMLINEAR 3
  3264. [DIM:]^C^CDIM
  3265. [DIM1:]^C^CDIM1
  3266.  
  3267. horiz
  3268. vertical
  3269. aligned
  3270. rotated
  3271.  
  3272. [baseline]^C^Cdim BASELINE
  3273. [continue]^C^Cdim CONTINUE
  3274.  
  3275.  
  3276.  
  3277. [previous]$S=X $S=DIM
  3278. **DIMRADIAL 3
  3279. [DIM:]^C^CDIM
  3280. [DIM1:]^C^CDIM1
  3281.  
  3282. diameter
  3283. radius
  3284. center
  3285.  
  3286.  
  3287.  
  3288.  
  3289.  
  3290.  
  3291.  
  3292. [previous]$S=X $S=DIM
  3293. **DIMORD 3
  3294. [DIM:]^C^CDIM
  3295. [DIM1:]^C^CDIM1
  3296.  
  3297. Xdatum
  3298. Ydatum
  3299.  
  3300.  
  3301.  
  3302.  
  3303.  
  3304.  
  3305. [previous]$S=X $S=DIM
  3306. **TEDIT 3
  3307. [DIM:]^C^CDIM
  3308. [DIM1:]^C^CDIM1
  3309.  
  3310. [TEDIT:]TEDIT
  3311.  
  3312. angle
  3313. home
  3314. left
  3315. right
  3316.  
  3317.  
  3318.  
  3319.  
  3320. [previous]$S=X $S=DIM
  3321. **ATTDEF 3
  3322. [ATTDEF:]^C^CATTDEF
  3323.  
  3324. Invisibl
  3325. Constant
  3326. Verify
  3327. [Preset]P
  3328.  
  3329. [Options]$S=TEXTOPTS
  3330. Style
  3331. aligned
  3332. [centered]C
  3333. fit
  3334. middle
  3335. right
  3336. **LAYER 3
  3337. [DDLMODES]'DDLMODES
  3338. [LAYER:]^C^CLAYER
  3339.  
  3340. [?]? *
  3341. Make
  3342. Set
  3343. New
  3344. ON
  3345. OFF
  3346. [Color]Color $S=X $S=LACOLOR
  3347. [Ltype]LType $S=X $S=LALT \$S=X $S=LAYER
  3348. Freeze
  3349. Thaw
  3350.  
  3351. **VPLA 3
  3352. [VPLAYER:]^C^CVPLAYER
  3353.  
  3354. ?
  3355. Freeze
  3356. Thaw
  3357. Reset
  3358. Newfrz
  3359. Vpvisdflt
  3360.  
  3361. **LACOLOR 3
  3362. [COLOR]
  3363.  
  3364. [red]red $S= $S=
  3365. [yellow]yellow $S= $S=
  3366. [green]green $S= $S=
  3367. [cyan]cyan $S= $S=
  3368. [blue]blue $S= $S=
  3369. [magenta]magenta $S= $S=
  3370. [white]white $S= $S=
  3371.  
  3372. [Chroma]^C^CVSLIDE acad(chroma) LAYER Color
  3373. [ Restore]'REDRAW
  3374.  
  3375.  
  3376.  
  3377. **LALT 3
  3378. [LINETYPE]
  3379.  
  3380. [contin.]CONTINUOUS
  3381. dashed
  3382. hidden
  3383. center
  3384. phantom
  3385. dot
  3386. dashdot
  3387. border
  3388. divide
  3389.  
  3390. **ZOOM 3
  3391. [ZOOM:]'ZOOM
  3392.  
  3393. All
  3394. [Center ]C
  3395. Dynamic
  3396. Extents
  3397. Left
  3398. Previous
  3399. Vmax
  3400. Window
  3401.  
  3402. Yes
  3403. No
  3404. **ATTDISP 3
  3405. [ATTDISP:]^C^CATTDISP
  3406.  
  3407. Normal
  3408. ON
  3409. OFF
  3410. **DVIEW 3
  3411. [DVIEW:]^C^CDview
  3412. Window
  3413. Last
  3414. Previous
  3415. Crossing
  3416. Remove
  3417. Add
  3418.  
  3419. [By Layer]^P(defun berror (msg)(setq *error* m:err m:err nil)(princ))+
  3420. (progn (setq m:err *error* *error* berror);+
  3421. (setq l(getstring (strcat "Layer name: <" (getvar "clayer") "> ")))+
  3422. (if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
  3423. (setq s(ssget "X" (list(cons 8 l)))))(setq *error* m:err m:err nil) s) ^P
  3424. [--------]
  3425. [Dviewblk]^C^CDVIEW;;
  3426. [ Dview ]$S=X $S=DVIEW1
  3427. [Options]$S=X $S=DVIEW1
  3428. **DVIEW1 3
  3429. CAmera
  3430. TArget
  3431. Distance
  3432. POints
  3433. PAn
  3434. Zoom
  3435. TWist
  3436. [CLip]Clip $S=X $S=DVIEW2
  3437. Hide
  3438. Off
  3439. Undo
  3440.  
  3441. [eXit]Exit $S=X $S=S
  3442. **DVIEW2 3
  3443. [Back]Back $S=X $S=BACK
  3444. [Front]Front $S=X $S=FRONT
  3445. [Off]Off $S=X $S=DVIEW1
  3446. **BACK 3
  3447. [ back]
  3448. [clipping]
  3449.  
  3450. [ON]On $S=X $S=DVIEW1
  3451. [OFF]Off $S=X $S=DVIEW1
  3452. **FRONT 3
  3453. [ front]
  3454. [clipping]
  3455.  
  3456. [ON]On $S=X $S=DVIEW1
  3457. [OFF]Off $S=X $S=DVIEW1
  3458.  
  3459. [Eye]Eye $S=X $S=DVIEW1
  3460. **MV 3
  3461. [MVIEW:]^C^CMVIEW
  3462.  
  3463. ON
  3464. OFF
  3465. Hideplot
  3466. Fit
  3467. [2]2 $S=X $S=mv2 
  3468. [3]3 $S=X $S=mv2 
  3469. [4]4 $S=X $S=mv2 
  3470.  
  3471. [MSPACE:]^C^C$S=X $S=mv mspace
  3472. [PSPACE:]^C^C$S=X $S=mv pspace
  3473. [TILEMOD:]^C^C$S=X $S=mv Tilemode
  3474. [VPLAYER:]^C^C$S=X $S=vpla VPlayer
  3475.  
  3476. **MV2 3
  3477. Horizont
  3478. Vertical
  3479.  
  3480. Above
  3481. Below
  3482. Left
  3483. Right
  3484.  
  3485. Fit
  3486.  
  3487.  
  3488. **RGNAUTO 3
  3489. [RGNAUTO:]^C^CREGENAUTO
  3490.  
  3491. [ON]On $S=X $S=DS
  3492. [OFF]Off $S=X $S=DS
  3493. **SHADE 3
  3494. [SHADE:]^C^CSHADE
  3495.  
  3496. [Shadedif]'SHADEDIF
  3497.  
  3498. [Shadedge]'SHADEDGE
  3499. [ 256-col]0
  3500. [ 256-edg]1
  3501. [ Hidden]2
  3502. [ Filled]3
  3503.  
  3504. [REGEN:]^C^CREGEN
  3505. **VIEW 3
  3506. [VIEW:]'VIEW
  3507. ?
  3508.  
  3509. Delete
  3510. Restore
  3511. Save
  3512. Window
  3513. **VPORTS 3
  3514. [VPORTS:]^C^CVPORTS
  3515.  
  3516. Save
  3517. Restore
  3518. Delete
  3519. Join
  3520. Single
  3521. ?
  3522.  
  3523. [2]2 $S=X $S=VP2
  3524. [3]3 $S=X $S=VP3
  3525. 4
  3526. **VP2 3
  3527.  
  3528. [Horizont]H $S=X $S=VPORTS
  3529. [Vertical]V $S=X $S=VPORTS
  3530. **VP3 3
  3531.  
  3532. [Horizont]Horizontal $S=X $S=VPORTS
  3533. [Vertical]Vertical $S=X $S=VPORTS
  3534. [Above]Above $S=X $S=VPORTS
  3535. [Below]Below $S=X $S=VPORTS
  3536. [Left]Left $S=X $S=VPORTS
  3537. [Right]Right $S=X $S=VPORTS
  3538. **LINE 3
  3539. [LINE:]^C^CLINE
  3540.  
  3541. [continue]^C^CLINE;;
  3542. close
  3543. undo
  3544. .x
  3545. .y
  3546. .z
  3547. .xy
  3548. .xz
  3549. .yz
  3550. **3D 3
  3551. [EDGSURF:]^C^CEDGESURF
  3552. [REVSURF:]^C^CREVSURF
  3553. [RULSURF:]^C^CRULESURF
  3554. [TABSURF:]^C^CTABSURF
  3555.  
  3556. [Surftb1:]'SURFTAB1
  3557. [Surftb2:]'SURFTAB2
  3558.  
  3559. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  3560. [3DMESH:]^C^C3DMESH
  3561. [PFACE:]^C^CPFACE
  3562. [3DPOLY:]$S=X $S=3DPOLY ^C^C3DPOLY
  3563.  
  3564. [  3d   ]^C^C^P(progn(setq m:err *error*)(princ))+
  3565. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  3566. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  3567. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  3568. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  3569. (prompt "Check installation of the Support Files and try again.");+
  3570. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  3571. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  3572. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  3573. [objects]^C^C^P(progn(setq m:err *error*)(princ))+
  3574. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  3575. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  3576. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  3577. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  3578. (prompt "Check installation of the Support Files and try again.");+
  3579. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  3580. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  3581. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  3582. **3D2 3
  3583.  
  3584. [Box    ]^C^C^P(C:box) ^P
  3585. [Cone   ]^C^C^P(C:cone) ^P
  3586. [Dish   ]^C^C^P(C:dish) ^P
  3587. [Dome   ]^C^C^P(C:dome) ^P
  3588. [Mesh   ]^C^C^P(C:mesh) ^P
  3589. [Pyramid]^C^C^P(C:pyramid) ^P
  3590. [Sphere ]^C^C^P(C:sphere) ^P
  3591. [Torus  ]^C^C^P(C:torus) ^P
  3592. [Wedge  ]^C^C^P(C:wedge) ^P
  3593. **ELEVTHK 3
  3594. [ELEV:]^C^CELEV
  3595.  
  3596. [CHANGE:]^C^CCHANGE
  3597. Window
  3598. Last
  3599. Previous
  3600. Crossing
  3601. Remove
  3602. Add
  3603. Undo
  3604. [Elev]PROP E
  3605. [Thick]PROP T
  3606. **HIDE 3
  3607. [HIDE ?]
  3608.  
  3609. [YES]^C^CHIDE
  3610. [NO]$S= $S=
  3611. **HIDE1 3
  3612. [HIDE:]^C^CHide
  3613.  
  3614. [YES]Yes
  3615. [NO]No 
  3616. **VPOINT 3
  3617. [VPOINT:]^C^CVPOINT
  3618.  
  3619. rotate
  3620. [axes];
  3621. [plan]none 0,0,1
  3622.  
  3623. [HIDE]$S=X $S=HIDE
  3624. **VPOINT3D 3
  3625. [ Angle  ]^C^CVPOINT R;;
  3626. [from XY ]^C^CVPOINT R;;
  3627. [ Plane  ]^C^CVPOINT R;;
  3628. [    +80 ]<<80
  3629. [    +60 ]<<60
  3630. [    +45 ]<<45
  3631. [    +30 ]<<30
  3632. [    +10 ]<<10
  3633. [      0 ]<<0
  3634. [    -10 ]<<350
  3635. [    -30 ]<<330
  3636. [    -45 ]<<315
  3637. [    -60 ]<<300
  3638. [    -80 ]<<280
  3639. **PLINE 3
  3640. [PLINE:]^C^CPLINE
  3641.  
  3642. [Arc]ARC $S=X $S=PARC
  3643. Close
  3644. Halfwid
  3645. Length
  3646. Undo
  3647. Width
  3648.  
  3649. [FILL ON]'FILLMODE 1
  3650. [FILL OFF]'FILLMODE 0
  3651. **PARC 3
  3652. [POLYARC]
  3653.  
  3654. [angle]$S=X $S=PARCANG Angle
  3655. [CEnter]$S=X $S=PARCEN CE
  3656. [tanDir]Direction \DRAG
  3657. [Radius]$S=X $S=PARCRAD Radius
  3658. [2nd PT]Second \DRAG
  3659. [CLose]$S=X $S=PLINE CLose
  3660.  
  3661. undo
  3662.  
  3663. [contline]$S=X $S=PLINE L
  3664.  
  3665. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  3666. **PARCANG 3
  3667. [ANGLE]
  3668.  
  3669. [center]$S=X $S=PARC Center drag
  3670. [radius]$S=X $S=PARC Radius \
  3671. [drag]$S=X $S=PARC drag
  3672. **PARCEN 3
  3673. [CENTER]
  3674.  
  3675. [angle]$S=X $S=PARC Angle drag
  3676. [length]$S=X $S=PARC Length drag
  3677. [drag]$S=X $S=PARC drag
  3678. **PARCRAD 3
  3679. [RADIUS]
  3680.  
  3681. [angle]A \drag $S=X $S=PARC Angle \drag
  3682. [drag]$S=X $S=PARC drag
  3683. **OFFSET 3
  3684. [OFFSET:]^C^COFFSET
  3685.  
  3686. Through
  3687.  
  3688. [done];
  3689.  
  3690. **ARC 3
  3691. [ARC]
  3692.  
  3693. [3-point:]^C^CARC \\DRAG
  3694. [S,C,E:]^C^CARC \C \DRAG
  3695. [S,C,A:]^C^CARC \C \A DRAG
  3696. [S,C,L:]^C^CARC \C \L DRAG
  3697. [S,E,A:]^C^CARC \E \A
  3698. [S,E,R:]^C^CARC \E \R
  3699. [S,E,D:]^C^CARC \E \D DRAG
  3700. [C,S,E:]^C^CARC C \\DRAG
  3701. [C,S,A:]^C^CARC C \\A DRAG
  3702. [C,S,L:]^C^CARC C \\L DRAG
  3703. [CONTIN:]^C^CARC ;DRAG
  3704. **CIRCLE 3
  3705. [CIRCLE]
  3706.  
  3707. [CEN,RAD:]^C^CCIRCLE \DRAG
  3708. [CEN,DIA:]^C^CCIRCLE \D
  3709. [2 POINT:]^C^CCIRCLE 2P \DRAG
  3710. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  3711. [TTR:]^C^CCIRCLE TTR
  3712. **ELLIPSE 3
  3713. [ELLIPSE:]^C^CELLIPSE
  3714.  
  3715. [Center]C
  3716. Rotation
  3717. Iso
  3718. Diameter
  3719. **POLYGON 3
  3720. [POLYGON:]^C^CPOLYGON
  3721.  
  3722. Edge
  3723. [I-scribe]INSCRIBED
  3724. [C-scribe]CIRCUMSCRIBED
  3725. **SHAPE 3
  3726. [SHAPE:]^C^CSHAPE
  3727. ?
  3728.  
  3729. [LOAD:]^C^CLOAD
  3730. ?
  3731. **SKETCH 3
  3732. [SKETCH:]^C^CSKETCH
  3733.  
  3734. Connect
  3735. Erase
  3736. Record
  3737.  
  3738. [eXit]Xit
  3739. Quit
  3740.  
  3741. [------]
  3742. [SKPOLY:]'SKPOLY 1
  3743. [SKLINE:]'SKPOLY 0
  3744. [------]
  3745. **SOLID 3
  3746. [SOLID:]^C^CSOLID
  3747.  
  3748. [FILL ON]'FILLMODE 1
  3749. [FILL OFF]'FILLMODE 0
  3750. **TRACE 3
  3751. [TRACE:]^C^CTRACE
  3752.  
  3753. [FILL ON]'FILLMODE 1
  3754. [FILL OFF]'FILLMODE 0
  3755. **POINT 3
  3756. [POINT:]^C^CPOINT
  3757. .x
  3758. .y
  3759. .z
  3760. .xy
  3761. .xz
  3762. .yz
  3763.  
  3764. [Complex]
  3765. [Points]
  3766. [example:]^C^CVSLIDE acad(points)
  3767. [Remove]^C^CREDRAW
  3768. [example:]^C^CREDRAW
  3769. [Pdmode:]'PDMODE
  3770. [Pdsize:]'PDSIZE
  3771. **HATCH 3
  3772. [HATCH:]^C^CHATCH
  3773. ?
  3774. u
  3775. u,o
  3776. u,i
  3777. Yes
  3778.  
  3779. Window
  3780. Last
  3781. Previous
  3782. Crossing
  3783. Remove
  3784. Add
  3785. Undo
  3786. **3DFACE 3
  3787. [3DFACE:]^C^C3DFACE
  3788.  
  3789. .x
  3790. .y
  3791. .z
  3792. .xy
  3793. .xz
  3794. .yz
  3795.  
  3796. Invisible
  3797.  
  3798. [ShowEdge]^P(setvar "splframe" 1)(prompt "Invisible edges will be SHOWN after next Regeneration.")(princ) ^P
  3799. [HideEdge]^P(setvar "splframe" 0)(prompt "Invisible edges will be HIDDEN after next Regeneration.")(princ) ^P
  3800.  
  3801. **3DPOLY 3
  3802. [3DPOLY:]^C^C3DPOLY
  3803.  
  3804. Close
  3805. Undo
  3806. .x
  3807. .y
  3808. .z
  3809. .xy
  3810. .xz
  3811. .yz
  3812. **ID 3
  3813. [ID:]^C^CID
  3814.  
  3815. .x
  3816. .y
  3817. .z
  3818. .xy
  3819. .xz
  3820. .yz
  3821. **LIMITS 3
  3822.  
  3823. [LIMITS:]^C^CLIMITS
  3824.  
  3825. ON
  3826. OFF
  3827. **UCS1 3
  3828. [UCS:]^C^CUCS
  3829. [DDUCS:]^C^CDDUCS
  3830.  
  3831. ?
  3832. Previous
  3833. Restore
  3834. Save
  3835. Delete
  3836. World
  3837.  
  3838. [RENAME:]^C^CRename UCS
  3839. [Follow:]'UCSFOLLOW
  3840.  
  3841. [next]$S=X $S=UCS2
  3842. **UCS2 3
  3843. [UCS:]$S=X $S=UCS1 ^C^CUCS
  3844.  
  3845. Origin
  3846. Zaxis
  3847. 3point
  3848.  
  3849. X
  3850. Y
  3851. Z
  3852.  
  3853. View
  3854. Entity
  3855.  
  3856. [previous]$S=X $S=UCS1
  3857. **UCSICON 3
  3858. [UCSICON:]^C^CUCSICON
  3859.  
  3860. ON
  3861. OFF
  3862.  
  3863. All
  3864. Origin
  3865. Noorigin
  3866. **PLAN 3
  3867. [PLAN:]^C^CPLAN
  3868.  
  3869. Current
  3870. UCS
  3871. World
  3872.  
  3873. [Follow:]'UCSFOLLOW
  3874. **LIST 3
  3875. [LIST:]^C^CLIST
  3876.  
  3877. Window
  3878. Last
  3879. Previous
  3880. Crossing
  3881. Remove
  3882. Add
  3883. Undo
  3884. **AREA 3
  3885. [AREA:]^C^CAREA
  3886.  
  3887. Entity
  3888. Add
  3889. Subtract
  3890. **TEXT 3
  3891. [TEXT:]^C^CTEXT
  3892. [DTEXT:]^C^CDTEXT
  3893.  
  3894. [Options]$S=TEXTOPTS
  3895. Style
  3896.  
  3897. aligned
  3898. [centered]C
  3899. fit
  3900. middle
  3901. right
  3902.  
  3903. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  3904. **TEXTOPTS 5
  3905. [Top-]T\
  3906. [Middle-]M\
  3907. [Bottom-]B\
  3908.  
  3909. [ -Left]Left $S=
  3910. [ -Center]Center $S=
  3911. [ -Right]Right $S=
  3912.  
  3913. [aligned]A $S=
  3914. [centered]CENTER $S=
  3915. [fit]F $S=
  3916. [middle]M $S=
  3917. [right]R $S=
  3918.  
  3919.  
  3920. [__LAST__]$S=
  3921. **TEXTSET 5
  3922. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2 $T4=DTEXT3 $T4=DTEXT4 +
  3923. $T4=DTEXT5 $T4=DTEXT6
  3924.  
  3925. [REG.TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2 $T4=TEXT3 $T4=TEXT4 +
  3926. $T4=TEXT5 $T4=TEXT6
  3927.  
  3928. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  3929. **STYLE 3
  3930. [STYLE:]^C^CSTYLE
  3931. ?
  3932.  
  3933. [Fonts]$S=X $S=F1
  3934.  
  3935. Yes
  3936. No
  3937.  
  3938. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  3939. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  3940. **F1 3
  3941. Cyrillic
  3942. Cyriltlc
  3943. Greekc
  3944. Greeks
  3945. Gothice
  3946. Gothicg
  3947. Gothici
  3948. Italicc
  3949. Italict
  3950. Romanc
  3951. Romand
  3952. Romans
  3953.  
  3954.  
  3955.  
  3956.  
  3957. [next]$S=X $S=F2
  3958. [STYLMNU]$S=X $S=STYLE
  3959. **F2 3
  3960. Romant
  3961. Scriptc
  3962. Scripts
  3963. Syastro
  3964. Symap
  3965. Symath
  3966. Symeteo
  3967. Symusic
  3968.  
  3969.  
  3970.  
  3971.  
  3972.  
  3973.  
  3974.  
  3975.  
  3976. [previous]$S=X $S=F1
  3977. [STYLMNU]$S=X $S=STYLE
  3978. **DTEXT 3
  3979. [DTEXT:]^C^CDTEXT
  3980. [TEXT:]^C^CTEXT
  3981.  
  3982. [Options]$S=TEXTOPTS
  3983. Style
  3984.  
  3985. aligned
  3986. [centered]C
  3987. fit
  3988. middle
  3989. right
  3990.  
  3991. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  3992. **AXIS 3
  3993. [AXIS:]^C^CAXIS
  3994.  
  3995. [axs=snap]SNAP
  3996.  
  3997. ON
  3998. OFF
  3999. Aspect
  4000. **BLIPMODE 3
  4001. [BLIPS:]^C^CBLIPMODE
  4002.  
  4003. ON
  4004. OFF
  4005. **END 3
  4006. [END ?]
  4007.  
  4008. Yes
  4009. No
  4010. **QUIT 3
  4011. [QUIT:]^c^cquit
  4012.  
  4013. [Yes]Y
  4014. [No]n $S=X $S=S
  4015. **VAR1 3
  4016. [dimalt]$S=X $S=OF DIMALT \
  4017. [dimaltd]DIMALTD \
  4018. [dimaltf]DIMALTF \
  4019. [dimapost]DIMAPOST \
  4020. [dimaso]$S=X $S=OF DIMASO \
  4021. [dimasz]DIMASZ \
  4022. [--------]
  4023. [dimblk]DIMBLK \
  4024. [dimblk1]DIMBLK1 \
  4025. [dimblk2]DIMBLK2 \
  4026. [--------]
  4027. [dimcen]DIMCEN \
  4028. [dimclrd]DIMCLRD \
  4029. [dimclre]DIMCLRE \
  4030. [dimclrt]DIMCLRT \
  4031.  
  4032. [next]$S=X $S=VAR2
  4033. [DIMMENU]$S=X $S=DIM
  4034.  
  4035.  
  4036. **VAR2 3
  4037. [dimdle]DIMDLE \
  4038. [dimdli]DIMDLI \
  4039. [dimexe]DIMEXE \
  4040. [dimexo]DIMEXO \
  4041. [dimgap]DIMGAP \
  4042. [dimlfac]DIMLFAC \
  4043. [dimlim]$S=X $S=OF DIMLIM \
  4044. [dimpost]DIMPOST \
  4045. [dimrnd]DIMRND \
  4046. [dimsah]$S=X $S=OF DIMSAH \
  4047. [dimscale]DIMSCALE \
  4048. [dimse1]$S=X $S=OF DIMSE1 \
  4049. [dimse2]$S=X $S=OF DIMSE2 \
  4050.  
  4051.  
  4052. [previous]$S=X $S=VAR1
  4053. [next]$S=X $S=VAR3
  4054. [DIMMENU]$S=X $S=DIM
  4055.  
  4056.  
  4057. **VAR3 3
  4058. [dimsho]$S=X $S=OF DIMSHO \
  4059. [dimsoxd]$S=X $S=OF DIMSOXD \
  4060. [dimtad]$S=X $S=OF DIMTAD \
  4061. [dimtfac]DIMTFAC \
  4062. [dimtih]$S=X $S=OF DIMTIH \
  4063. [dimtix]$S=X $S=OF DIMTIX \
  4064. [dimtm]DIMTM \
  4065. [dimtofl]$S=X $S=OF DIMTOFL \
  4066. [dimtoh]$S=X $S=OF DIMTOH \
  4067. [dimtol]$S=X $S=OF DIMTOL \
  4068. [dimtp]DIMTP \
  4069. [dimtsz]DIMTSZ \
  4070. [dimtvp]DIMTVP \
  4071. [dimtxt]DIMTXT \
  4072. [dimzin]$S=X $S=DIMZIN DIMZIN \
  4073.  
  4074.  
  4075. [previous]$S=X $S=VAR2
  4076. [DIMMENU]$S=X $S=DIM
  4077. **OF 3
  4078. [ON]$S= $S= ON
  4079.  
  4080. [OFF]$S= $S= OFF
  4081. **DIMZIN 4
  4082. [  New]
  4083. [ Dimzin]
  4084. [ Value]
  4085.  
  4086.  
  4087.  
  4088.  
  4089. [0]$S= $S= 0
  4090. [1]$S= $S= 1
  4091. [2]$S= $S= 2
  4092. [3]$S= $S= 3
  4093. **FORMAT 3
  4094. [DIM:]^C^CDIM
  4095. [DIM1:]^C^CDIM1
  4096.  
  4097. [HOMETEXT]$S=X $S=HOMETEXT HOMETEXT
  4098. [UPDATE]$S=X $S=UPDATE UPDATE
  4099. [NEWTEXT]$S=X $S=NEWTEXT NEWTEXT
  4100.  
  4101. [Dimstyle]'DIMSTYLE
  4102. Save
  4103. Restore
  4104. Override
  4105. [Variabls]VARIABLES
  4106. ?
  4107.  
  4108.  
  4109. [DIMMENU]$S=X $S=DIM
  4110. **HOMETEXT 3
  4111. [DIM:]^C^CDIM
  4112. [DIM1:]^C^CDIM1
  4113.  
  4114. HOMETEXT
  4115.  
  4116. Window
  4117. Last
  4118. Previous
  4119. Crossing
  4120. Remove
  4121. Add
  4122. Undo
  4123. **UPDATE 3
  4124. [DIM:]^C^CDIM
  4125. [DIM1:]^C^CDIM1
  4126.  
  4127. UPDATE
  4128.  
  4129. Window
  4130. Last
  4131. Previous
  4132. Crossing
  4133. Remove
  4134. Add
  4135. Undo
  4136. **NEWTEXT 3
  4137. [DIM:]^C^CDIM
  4138. [DIM1:]^C^CDIM1
  4139.  
  4140. NEWTEXT
  4141.  
  4142. Window
  4143. Last
  4144. Previous
  4145. Crossing
  4146. Remove
  4147. Add
  4148. Undo
  4149. **LINETYPE 3
  4150. [LINETYP:]^C^CLINETYPE
  4151. ?
  4152.  
  4153. Create
  4154. Load
  4155. [Set]SET $S=X $S=CHLT \$S=X $S=LINETYPE
  4156.  
  4157. Yes
  4158. No
  4159. **LIMITS 3
  4160. [LIMITS:]^C^CLIMITS
  4161.  
  4162. On
  4163. Off
  4164. **SNAP 3
  4165. [SNAP:]^C^CSNAP
  4166.  
  4167. ON
  4168. OFF
  4169.  
  4170. Aspect
  4171. Rotate
  4172.  
  4173. Style
  4174. [ Iso]Iso;
  4175. [ Standrd]Standard;
  4176. **TABLET 3
  4177. [TABLET:]^C^CTABLET
  4178.  
  4179. cal
  4180. [config]CFG 4 25 9 11 9 9 13 25 7 Y
  4181. [re-cfg]CFG 4 Y 25 9 11 9 9 13 25 7 Y
  4182. ON
  4183. OFF
  4184. Yes
  4185. No
  4186. **OSNAPC 3
  4187. [OSNAP:]^C^COSNAP
  4188.  
  4189. [CENter]CENTER\
  4190. [ENDpoint]ENDPOINT\
  4191. [INSert]INSERT\
  4192. [INTersec]INTERSEC\
  4193. [MIDpoint]MIDPOINT\
  4194. [NEArest]NEAREST\
  4195. [NODe]NODE\
  4196. [PERpend]PERPEND\
  4197. [QUAdrant]QUADRANT\
  4198. [TANgent]TANGENT\
  4199. [NONE]NONE\ $S= $S=
  4200. [Quick,]QUICK,^Z
  4201. [,],\
  4202. **DRAGMODE 3
  4203. [DRAGMODE]^C^CDRAGMODE
  4204.  
  4205. [ON]ON $S=X $S=S
  4206. [OFF]OFF $S=X $S=S
  4207. [Auto]A $S=X $S=S
  4208.  
  4209. **GRID 3
  4210. [GRID:]^C^CGRID
  4211.  
  4212. [grd=snap]SNAP
  4213.  
  4214. ON
  4215. OFF
  4216. Aspect
  4217. **HANDLES 3
  4218. [HANDLES:]^C^CHANDLES
  4219.  
  4220. [ON]ON
  4221. [DESTROY]DESTROY
  4222.  
  4223. **SETVAR1 3
  4224. [SETVAR:]^C^CSETVAR
  4225. ['SETVAR]'SETVAR
  4226. [? Vars]'SETVAR ?
  4227.  
  4228. *
  4229. **QTEXT 3
  4230. [QTEXT:]^C^CQTEXT
  4231.  
  4232. ON
  4233. OFF
  4234. [REGEN:]REGEN
  4235. **VIEWRES 3
  4236. [VIEWRES:]^C^CVIEWRES
  4237.  
  4238. No
  4239. Yes
  4240.  
  4241. 100
  4242. 500
  4243.  
  4244. [RGNAUTO:]^C^CREGENAUTO
  4245. [ On]On
  4246. [ Off]Off
  4247. **APERTURE 3
  4248. [APERTUR:]'APERTURE
  4249. [PICKBOX:]'PICKBOX
  4250.  
  4251. [1]$S= $S= 1
  4252. [2]$S= $S= 2
  4253. [3]$S= $S= 3
  4254. [4]$S= $S= 4
  4255. [5]$S= $S= 5
  4256. [6]$S= $S= 6
  4257. [7]$S= $S= 7
  4258. [8]$S= $S= 8
  4259. [9]$S= $S= 9
  4260. [10]$S= $S= 10
  4261. [15]$S= $S= 15
  4262. **ARRAY 3
  4263. [ARRAY:]^C^CARRAY
  4264.  
  4265. Window
  4266. Last
  4267. Previous
  4268. Crossing
  4269. Remove
  4270. Add
  4271. Undo
  4272.  
  4273. Rectang
  4274. Polar
  4275. Yes
  4276. No
  4277. **ROTATE 3
  4278. [ROTATE:]^C^CROTATE
  4279.  
  4280. Window
  4281. Last
  4282. Previous
  4283. Crossing
  4284. Remove
  4285. Add
  4286. Undo
  4287.  
  4288. Referenc
  4289. **SELECT 3
  4290. [SELECT:]^C^CSELECT
  4291.  
  4292. Window
  4293. Last
  4294. Previous
  4295. Crossing
  4296. Remove
  4297. Add
  4298. Undo
  4299.  
  4300. **SCALE 3
  4301. [SCALE:]^C^CSCALE
  4302.  
  4303. Window
  4304. Last
  4305. Previous
  4306. Crossing
  4307. Remove
  4308. Add
  4309. Undo
  4310.  
  4311. Referenc
  4312. **BREAK 3
  4313. [BREAK:]^C^CBREAK
  4314.  
  4315. First
  4316. @
  4317. **BREAK2P 3
  4318. [BREAK:]^C^CBREAK \F
  4319.  
  4320. First
  4321. @
  4322. **BREAKSPL 3
  4323. [BREAK:]^C^CBREAK \F \@
  4324.  
  4325. First
  4326. @
  4327. **MOVE 3
  4328. [MOVE:]^C^CMOVE
  4329.  
  4330. Window
  4331. Last
  4332. Previous
  4333. Crossing
  4334. Remove
  4335. Add
  4336. Undo
  4337. **COPY 3
  4338. [COPY:]^C^CCOPY
  4339.  
  4340. Window
  4341. Last
  4342. Previous
  4343. Crossing
  4344. Remove
  4345. Add
  4346. Undo
  4347.  
  4348. Multiple
  4349. **DDEDIT 3
  4350. [DDEDIT:]^C^CDDEDIT
  4351.  
  4352. Last
  4353. Undo
  4354. **UNDO 3
  4355. [UNDO:]^C^CUNDO
  4356.  
  4357. [Back 1]^C^CUNDO 1
  4358.  
  4359. [Auto]$S=X $S=UNDOA Auto
  4360. Back
  4361. End
  4362. Group
  4363. Mark
  4364. [Control]$S=X $S=UNDOC Control
  4365.  
  4366. Yes
  4367. No
  4368.  
  4369. [REDO:]REDO
  4370. **UNDOC 3
  4371. All
  4372. None
  4373. One
  4374. **UNDOA 3
  4375. On
  4376. Off
  4377. **ERASE 3
  4378. [ERASE:]^C^CERASE
  4379.  
  4380. Window
  4381. Last
  4382. Previous
  4383. Crossing
  4384. Remove
  4385. Add
  4386. Undo
  4387.  
  4388. [OOPS:]^C^COOPS
  4389. **PSEL 4
  4390. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  4391. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  4392. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  4393. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  4394. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  4395. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  4396. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  4397. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  4398. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  4399. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  4400. (princ));PEDITM;^P
  4401.  
  4402. BOX
  4403. Crossing
  4404. Last
  4405. Window
  4406.  
  4407. No
  4408. Yes
  4409.  
  4410. **P0 3
  4411. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  4412. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  4413. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  4414. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  4415. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  4416. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  4417. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  4418. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  4419. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  4420. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  4421. (princ));PEDITM;^P
  4422.  
  4423. Close
  4424. Open
  4425. Join
  4426. Width
  4427. [Ed Vrtx]Edit $S=X $S=PVERTED
  4428. [Fit Curv]Fit
  4429. Spline
  4430. Decurve
  4431. Undo
  4432. [eXit]X $S=X $S=S
  4433.  
  4434. [PolyVars]$S=X $S=PVARS $I=poly $I=*
  4435. **P8 3
  4436. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  4437. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  4438. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  4439. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  4440. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  4441. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  4442. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  4443. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  4444. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  4445. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  4446. (princ));PEDITM;^P
  4447.  
  4448. Close
  4449. Open
  4450. [Ed Vrtx]Edit $S=X $S=3DPVERTED
  4451. Spline
  4452. Decurve
  4453. Undo
  4454. [eXit]X $S=X $S=S
  4455.  
  4456. [PolyVars]$S=X $S=PVARS $I=poly $I=*
  4457. **P16 3
  4458. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  4459. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  4460. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  4461. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  4462. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  4463. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  4464. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  4465. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  4466. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  4467. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  4468. (princ));PEDITM;^P
  4469.  
  4470. [Ed Vrtx]E $S=X $S=3DMVERTED
  4471. Smooth
  4472. Desmooth
  4473. Mclose
  4474. Nclose
  4475. Mopen
  4476. Nopen
  4477.  
  4478. Undo
  4479. [eXit]X $S=X $S=S
  4480.  
  4481. [PolyVars]$S=X $S=PVARS $I=poly $I=*
  4482. **PVERTED 3
  4483. [ED VRTX]
  4484.  
  4485. Next
  4486. Previous
  4487. Break
  4488. Insert
  4489. Move
  4490. Straight
  4491. Width
  4492. Tangent
  4493. Go
  4494. Regen
  4495. [Undo]X Undo $S=X $S=P0
  4496. [eXit]X $S=X $S=P0
  4497. **3DPVERTED 3
  4498. [ED VRTX]
  4499.  
  4500. Next
  4501. Previous
  4502. Break
  4503. Insert
  4504. Move
  4505. Regen
  4506. Straight
  4507. [eXit]X $S=X $S=P8
  4508. **3DMVERTED 3
  4509. [ED VRTX]
  4510.  
  4511. Next
  4512. Previous
  4513. Left
  4514. Right
  4515. Up
  4516. Down
  4517. Move
  4518. Regen
  4519. [eXit]X $S=X $S=P16
  4520. **PVARS 3
  4521. [Polyvars]$I=poly $I=*
  4522.  
  4523. [SPLframe]'SPLFRAME
  4524. [ On]1
  4525. [ Off]0
  4526. [SPLsegs]'SPLINESEGS
  4527. [SPLtype]'SPLINETYPE
  4528. [ Quad]5
  4529. [ Cubic]6
  4530. [SURFtype]'SURFTYPE
  4531. [ Quad]5
  4532. [ Cubic]6
  4533. [ Bezier]8
  4534. [UDensity]'SURFU
  4535. [VDensity]'SURFV
  4536. **TRIM 3
  4537. [TRIM:]^C^CTRIM
  4538.  
  4539. Window
  4540. Last
  4541. Previous
  4542. Crossing
  4543. Remove
  4544. Add
  4545. Undo
  4546. **ATTEXT 3
  4547. [ATTEXT:]^C^CATTEXT
  4548.  
  4549. CDF
  4550. SDF
  4551. DXF
  4552. Entities
  4553.  
  4554. Window
  4555. Last
  4556. Previous
  4557. Crossing
  4558. Remove
  4559. Add
  4560. Undo
  4561. **AUDIT 3
  4562.  
  4563. Yes
  4564. No
  4565. **SLIDES 3
  4566. [MSLIDE:]^C^CMSLIDE
  4567.  
  4568. [VSLIDE:]^C^CVSLIDE
  4569.  
  4570. [REDRAW:]$S=X $S=S ^C^CREDRAW
  4571. **SCRIPT 3
  4572. [SCRIPT:]^C^CSCRIPT
  4573.  
  4574. [RESUME:]'RESUME
  4575. [RSCRIPT:]^C^CRSCRIPT
  4576. **PURGE 3
  4577. [PURGE:]^C^CPURGE
  4578.  
  4579. Blocks
  4580. Dimstyles
  4581. LAyers
  4582. LTypes
  4583. SHapes
  4584. STyles
  4585. All
  4586.  
  4587. Yes
  4588. No
  4589. **RENAME 3
  4590. [RENAME:]^C^CRENAME
  4591.  
  4592. Block
  4593. Dimstyle
  4594. LAyer
  4595. LType
  4596. Style
  4597. Ucs
  4598. VIew
  4599. VPort
  4600. **DXF 3
  4601. [DXFIN:]^C^CDXFIN
  4602.  
  4603. [DXFOUT:]^C^CDXFOUT
  4604. 16
  4605. Entities
  4606.  
  4607. Window
  4608. Last
  4609. Previous
  4610. Crossing
  4611. Remove
  4612. Add
  4613. Undo
  4614.  
  4615. [DXBIN:]^C^CDXBIN
  4616. **IGES 3
  4617. [IGESIN:]^C^CIGESIN
  4618.  
  4619. [IGESOUT:]^C^CIGESOUT
  4620. **EXTEND 3
  4621. [EXTEND:]^C^CEXTEND
  4622.  
  4623. Window
  4624. Last
  4625. Previous
  4626. Crossing
  4627. Remove
  4628. Add
  4629. Undo
  4630.  
  4631. [SELECT:]^C^CSELECT
  4632. [ZOOM W:]'ZOOM W
  4633. **STRETCH 3
  4634. [STRETCH:]^C^CSTRETCH C
  4635.  
  4636. Window
  4637. Last
  4638. Previous
  4639. Crossing
  4640. Remove
  4641. Add
  4642. Undo
  4643. **MIRROR 3
  4644. [MIRROR:]^C^CMIRROR
  4645. Window
  4646. Last
  4647. Previous
  4648. Crossing
  4649. Remove
  4650. Add
  4651. Undo
  4652.  
  4653. Yes
  4654. No
  4655. **FILLET0 3
  4656. [FILLET:0]^C^CFILLET R 0;;
  4657.  
  4658. [polyline]P
  4659. **FILLET 3
  4660. [FILLET:]^C^CFILLET
  4661.  
  4662. [radius]R \FILLET
  4663. [radius 0]R 0 FILLET
  4664. polyline
  4665. **CHAMFER 3
  4666. [CHAMFER:]^C^CCHAMFER
  4667.  
  4668. [distance]D \\CHAMFER
  4669. [dist = 0]D 0 0 CHAMFER
  4670. polyline
  4671. **DIVIDE 3
  4672. [DIVIDE:]^C^CDIVIDE
  4673.  
  4674. Block
  4675. Yes
  4676. No
  4677. **MEASURE 3
  4678. [MEASURE:]^C^CMEASURE
  4679.  
  4680. Block
  4681. Yes
  4682. No
  4683. **CHANGE 3
  4684. [CHANGE:]^C^CCHANGE
  4685. Window
  4686. Last
  4687. Previous
  4688. Crossing
  4689. Remove
  4690. Add
  4691. Undo
  4692. [Color]PROP COLOR $S=X $S=CHCOLOR \ $S=X $S=CHANGE
  4693. [Chroma]^C^CVSLIDE acad(chroma)
  4694. [ Restore]^C^CREDRAW
  4695. [LAyer]PROP LAYER
  4696. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHANGE
  4697. [Thicknes]PROP THICKNESS
  4698. **CHPROP 3
  4699. [CHPROP:]^C^CCHPROP
  4700. Window
  4701. Last
  4702. Previous
  4703. Crossing
  4704. Remove
  4705. Add 
  4706. Undo
  4707. [Color]PROP COLOR $S=X $S=CHCOLOR \$S=X $S=CHPROP
  4708. [Chroma]^C^CVSLIDE acad(chroma)
  4709. [ Restore]^C^CREDRAW
  4710. [LAyer]PROP LAYER
  4711. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHPROP
  4712. [Thicknes]PROP THICKNESS
  4713. **CHCOLOR 3
  4714. [COLOR]
  4715.  
  4716. bylayer
  4717. byblock
  4718.  
  4719. red
  4720. yellow
  4721. green
  4722. cyan
  4723. blue
  4724. magenta
  4725. white
  4726. **CHLT 3
  4727. [LTYPE]
  4728.  
  4729. bylayer
  4730. byblock
  4731.  
  4732. [contin.]CONTINUOUS
  4733. dashed
  4734. hidden
  4735. center
  4736. phantom
  4737. dot
  4738. dashdot
  4739. border
  4740. divide
  4741.  
  4742. **COLOR 3
  4743. [COLOR:]^C^CCOLOR
  4744. bylayer
  4745. byblock
  4746. red
  4747. yellow
  4748. green
  4749. cyan
  4750. blue
  4751. magenta
  4752. white
  4753.  
  4754. [Chroma]^C^CVSLIDE acad(chroma)
  4755. [ Restore]^C^CREDRAW
  4756. **ATTEDIT 3
  4757. [ATTEDIT:]^C^CATTEDIT
  4758. Window
  4759. Last
  4760. Crossing
  4761. Remove
  4762. Add
  4763. Undo
  4764.  
  4765. [Value]Value $S=X $S=ATTEDIT2
  4766. Position
  4767. Height
  4768. Angle
  4769. Style
  4770. Layer
  4771. [Color]Color $S=X $S=ATTCOLOR
  4772. Next
  4773.  
  4774. [__LAST__]$S= $S=
  4775. **ATTEDIT2 3
  4776.  
  4777. [Change]Change $S=X $S=ATTEDIT
  4778. [Replace]Replace $S=X $S=ATTEDIT
  4779. **ATTCOLOR 3
  4780. [COLOR]
  4781.  
  4782. [red]RED $S= $S=
  4783. [yellow]YELLOW $S= $S=
  4784. [green]GREEN $S= $S=
  4785. [cyan]CYAN $S= $S=
  4786. [blue]BLUE $S= $S=
  4787. [magenta]MAGENTA $S= $S=
  4788. [white]WHITE $S= $S=
  4789. **UNITS 2
  4790.  
  4791. [UNIT    ]
  4792. [TYPE    ]
  4793.  
  4794. [scientfc]1;
  4795.  
  4796. [decimal ]2;
  4797.  
  4798. [enginrng]3;
  4799.  
  4800. [archtect]4;
  4801.  
  4802. [metric  ]5;
  4803.  
  4804.  
  4805.  
  4806.  
  4807.  
  4808.  
  4809. **U1 2
  4810.  
  4811. [Scientfc]
  4812. [Scale   ]
  4813.  
  4814.  
  4815. [4 TIMES ]4.0;
  4816.  
  4817. [2 TIMES ]2.0;
  4818.  
  4819. [FULL    ]1.0;
  4820.  
  4821. [HALF    ]0.5;
  4822.  
  4823. [QUARTER ]0.25;
  4824.  
  4825. [OTHER   ]^P0;^P
  4826.  
  4827.  
  4828.  
  4829.  
  4830. **U2 2
  4831.  
  4832. [Decimal ]
  4833. [Scale   ]
  4834.  
  4835.  
  4836. [4 TIMES ]4.0;
  4837.  
  4838. [2 TIMES ]2.0;
  4839.  
  4840. [FULL    ]1.0;
  4841.  
  4842. [HALF    ]0.5;
  4843.  
  4844. [QUARTER ]0.25;
  4845.  
  4846. [OTHER   ]^P0;^P
  4847.  
  4848.  
  4849.  
  4850.  
  4851. **U3 2
  4852.  
  4853. [Enginrng]
  4854. [Scale   ]
  4855.  
  4856.  
  4857. [1"=10'  ]120.0;
  4858. [1"=20'  ]240.0;
  4859.  
  4860. [1"=30'  ]360.0;
  4861. [1"=40'  ]480.0;
  4862.  
  4863. [1"=50'  ]600.0;
  4864. [1"=60'  ]720.0;
  4865.  
  4866. [1"=80'  ]960.0;
  4867. [1"=100' ]1200.0;
  4868.  
  4869. [OTHER   ]^P0;^P
  4870.  
  4871.  
  4872. **U4 2
  4873.  
  4874. [Archtect]
  4875.  
  4876.  
  4877. [1/40"=1']480.0;
  4878. [1/20"=1']240.0;
  4879. [1/16"=1']192.0;
  4880. [ 1/8"=1']96.0;
  4881. [ 1/4"=1']48.0;
  4882.  
  4883. [ 1/2"=1']24.0;
  4884. [ 3/4"=1']16.0;
  4885. [   1"=1']12.0;
  4886. [   3"=1']4.0;
  4887. [   6"=1']2.0;
  4888. [  FULL  ]1.0;
  4889.  
  4890. [OTHER...]^P0;^P
  4891.  
  4892.  
  4893. **U5 2
  4894.  
  4895. [Metric  ]
  4896.  
  4897. [ 1:5000 ]5000.0;
  4898. [ 1:2000 ]2000.0;
  4899. [ 1:1000 ]1000.0;
  4900. [ 1:500  ]500.0;
  4901. [ 1:200  ]200.0;
  4902.  
  4903. [ 1:100  ]100.0;
  4904. [ 1:75   ]75.0;
  4905. [ 1:50   ]50.0;
  4906. [ 1:20   ]20.0;
  4907. [ 1:10   ]10.0;
  4908. [ 1:5    ]5.0;
  4909. [  FULL  ]1.0;
  4910.  
  4911. [OTHER...]^P0;^P
  4912.  
  4913.  
  4914. **ENGLISH 2
  4915.  
  4916. [Horizntl]
  4917.  
  4918. [ Sheet  ]
  4919. [ Size   ]
  4920.  
  4921. [A-8.5x11]11.0 8.5;
  4922. [B- 11x17]17.0 11.0;
  4923. [C- 17x22]22.0 17.0;
  4924. [   18x24]24.0 18.0;
  4925.  
  4926. [D- 22X34]34.0 22.0;
  4927. [   24x36]36.0 24.0;
  4928. [E- 34x44]44.0 34.0;
  4929.  
  4930. [OTHER...]^P0 0;^P
  4931.  
  4932. [VERTCAL>]$S=X $S=ENGVERT
  4933.  
  4934.  
  4935. **ENGVERT 2
  4936.  
  4937. [Vertical]
  4938.  
  4939. [ Sheet  ]
  4940. [ Size   ]
  4941.  
  4942. [A-8.5x11]8.5 11.0;
  4943. [B- 11x17]11.0 17.0;
  4944. [C- 17x22]17.0 22.0;
  4945. [   18x24]18.0 24.0;
  4946.  
  4947. [D- 22X34]22.0 34.0;
  4948. [   24x36]24.0 36.0;
  4949. [E- 34x44]34.0 44.0;
  4950.  
  4951. [OTHER...]^P0 0;^P
  4952.  
  4953. [HORZNTL>]$S=X $S=ENGLISH
  4954.  
  4955.  
  4956. **METRIC 2
  4957.  
  4958. [Horizntl]
  4959.  
  4960. [ Sheet  ]
  4961. [ Size   ]
  4962.  
  4963. [1189x841]1189.0 841.0;
  4964. [1000x707]1000.0 707.0;
  4965. [ 841x594]841.0 594.0;
  4966.  
  4967. [ 594x420]594.0 420.0;
  4968. [ 420x297]420.0 297.0;
  4969. [ 297x210]297.0 210.0;
  4970.  
  4971. [OTHER...]^P0 0;^P
  4972.  
  4973.  
  4974. [VERTCAL>]$S=X $S=METRICVERT
  4975.  
  4976.  
  4977. **METRICVERT 2
  4978.  
  4979. [Vertical]
  4980.  
  4981. [ Sheet  ]
  4982. [ Size   ]
  4983.  
  4984. [1189x841]841.0 1189.0;
  4985. [1000x707]707.0 1000.0;
  4986. [ 841x594]594.0 841.0;
  4987.  
  4988. [ 594x420]420.0 594.0;
  4989. [ 420x297]297.0 420.0;
  4990. [ 297x210]210.0 297.0;
  4991.  
  4992. [OTHER...]^P0 0;^P
  4993.  
  4994.  
  4995. [HORZNTL>]$S=X $S=METRIC
  4996.  
  4997.  
  4998. **EXCOMDS 3
  4999. [CATALOG:]^C^CCATALOG
  5000. [DEL:]^C^CDEL
  5001. [DIR:]^C^CDIR
  5002. [EDIT:]^C^CEDIT
  5003. [SH:]^C^CSH
  5004. [SHELL:]^C^CSHELL
  5005. [TYPE:]^C^CTYPE
  5006.  
  5007. ***Comment
  5008.         This is the new TABLET1 menu containing the code for 
  5009.         AME and AutoShade.  You may put your own macros 
  5010.         and menu items here in the space remaining.
  5011.         All of the "blank" line items actually contain one
  5012.         space so that a RETURN is issued when you pick any
  5013.         of them from the tablet.  Remove them if want nothing
  5014.         to happen when they are selected or place your own 
  5015.         macros in their place.
  5016.  
  5017. ***TABLET1
  5018. [A-1] 
  5019. [A-2] 
  5020. [A-3] 
  5021. [A-4] 
  5022. [A-5] 
  5023. [A-6] 
  5024. [A-7] 
  5025. [A-8] 
  5026. [A-9] 
  5027. [A-10] 
  5028. [A-11] 
  5029. [A-12] 
  5030. [A-13] 
  5031. [A-14] 
  5032. [A-15] 
  5033. [A-16] 
  5034. [A-17] 
  5035. [A-18] 
  5036. [A-19] 
  5037. [A-20] 
  5038. [A-21] 
  5039. [A-22] 
  5040. [A-23] 
  5041. [A-24] 
  5042. [A-25] 
  5043. [B-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5044. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5045. (if (null c:SOLMOVE)(defun c:SOLMOVE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5046. (terpri)(princ "ERROR:  Command not found. ")+
  5047. (princ "  Load AME or AMElite from the screen menu. ")+
  5048. (setq c:SOLMOVE nil)(princ))+
  5049. (progn (menucmd "S=X")(menucmd "S=SMOVE")))(princ);^PSOLMOVE
  5050. [B-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5051. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5052. (if (null c:SOLCHAM)(defun c:SOLCHAM () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5053. (terpri)(princ "ERROR:  Command not found. ")+
  5054. (princ "  Load AME or AMElite from the screen menu. ")+
  5055. (setq c:SOLCHAM nil)(princ))+
  5056. (progn (menucmd "S=X")(menucmd "S=SCHAM")))(princ);^PSOLCHAM
  5057. [B-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5058. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5059. (if (null c:SOLINT)(defun c:SOLINT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5060. (terpri)(princ "ERROR:  Command not found. ")+
  5061. (princ "  Load AME or AMElite from the screen menu. ")+
  5062. (setq c:SOLINT nil)(princ))+
  5063. (progn (menucmd "S=X")(menucmd "S=SINT")))(princ);^PSOLINT
  5064. [B-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5065. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5066. (if (null c:SOLBOX)(defun c:SOLBOX () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5067. (terpri)(princ "ERROR:  Command not found. ")+
  5068. (princ "  Load AME or AMElite from the screen menu. ")+
  5069. (setq c:SOLBOX nil)(princ))+
  5070. (progn (menucmd "S=X")(menucmd "S=SBOX")))(princ);^PSOLBOX
  5071. [B-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5072. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5073. (if (null c:SOLCONE)(defun c:SOLCONE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5074. (terpri)(princ "ERROR:  Command not found. ")+
  5075. (princ "  Load AME or AMElite from the screen menu. ")+
  5076. (setq c:SOLCONE nil)(princ))+
  5077. (progn (menucmd "S=X")(menucmd "S=SCONE")))(princ);^PSOLCONE
  5078. [B-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5079. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5080. (if (null c:SOLCYL)(defun c:SOLCYL () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5081. (terpri)(princ "ERROR:  Command not found. ")+
  5082. (princ "  Load AME or AMElite from the screen menu. ")+
  5083. (setq c:SOLCYL nil)(princ))+
  5084. (progn (menucmd "S=X")(menucmd "S=SCYL")))(princ);^PSOLCYL
  5085. [B-7] 
  5086. [B-8]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5087. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  5088. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASHC")+
  5089. ((= G:SVER 11) "S=ASH11C")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  5090. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  5091. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  5092. (setq C:CAMERA (list '()'(terpri)+
  5093. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")));+
  5094. (list 'prompt "' is incompatible with AutoCAD r11.")+
  5095. (list 'setq 'C:CAMERA '())'(princ))m:shmn (princ))))(T(defun C:CAMERA()(terpri);+
  5096. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  5097. (terpri)(prompt"Check your AutoShade Manual for installation instructions.");+
  5098. (setq C:CAMERA nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  5099. CAMERA
  5100. [B-9]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5101. (princ"Error loading: ")(princ msg);+
  5102. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  5103. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASHC");+
  5104. ((= G:SVER 11) "S=ASH11C")(T "S=")))(setq m:shmn nil)(princ))+
  5105. (defun m:not2 (m:avar)(set m:avar (list '()'(terpri);+
  5106. (list 'prompt "This command requires AutoShade version 2.")+
  5107. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  5108. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  5109. (m:not2 'C:VCAMERA)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  5110. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  5111. (m:not2 'C:VCAMERA))(setq C:VCAMERA (list '()'(terpri);+
  5112. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")))+
  5113. (list 'prompt "' is incompatible with AutoCAD r11.");+
  5114. (list 'setq 'C:VCAMERA '())'(princ))m:shmn (princ))))(T  (defun C:VCAMERA ()+
  5115. (terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  5116. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  5117. (setq C:VCAMERA nil)(princ));+
  5118. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PVCAMERA
  5119. [B-10]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5120. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  5121. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASH")+
  5122. ((= G:SVER 11) "S=ASH11")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  5123. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  5124. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  5125. (setq C:CAMVIEW (list '()'(terpri)+
  5126. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")));+
  5127. (list 'prompt "' is incompatible with AutoCAD r11.")+
  5128. (list 'setq 'C:CAMVIEW '())'(princ))m:shmn (princ))))(T(defun C:CAMVIEW()(terpri);+
  5129. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  5130. (terpri)(prompt"Check your AutoShade Manual for installation instructions.");+
  5131. (setq C:CAMVIEW nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  5132. CAMVIEW
  5133. [B-11] 
  5134. [B-12] 
  5135. [B-13] 
  5136. [B-14] 
  5137. [B-15] 
  5138. [B-16] 
  5139. [B-17] 
  5140. [B-18] 
  5141. [B-19] 
  5142. [B-20] 
  5143. [B-21] 
  5144. [B-22] 
  5145. [B-23] 
  5146. [B-24] 
  5147. [B-25] 
  5148. [C-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5149. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5150. (if (null c:SOLSEP)(defun c:SOLSEP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5151. (terpri)(princ "ERROR:  Command not found. ")+
  5152. (princ "  Load AME or AMElite from the screen menu. ")+
  5153. (setq c:SOLSEP nil)(princ))+
  5154. (progn (menucmd "S=X")(menucmd "S=SSEP")))(princ);^PSOLSEP
  5155. [C-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5156. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5157. (if (null c:SOLFILL)(defun c:SOLFILL () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5158. (terpri)(princ "ERROR:  Command not found. ")+
  5159. (princ "  Load AME or AMElite from the screen menu. ")+
  5160. (setq c:SOLFILL nil)(princ))+
  5161. (progn (menucmd "S=X")(menucmd "S=SFILL")))(princ);^PSOLFILL
  5162. [C-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5163. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5164. (if (null c:SOLSUB)(defun c:SOLSUB () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5165. (terpri)(princ "ERROR:  Command not found. ")+
  5166. (princ "  Load AME or AMElite from the screen menu. ")+
  5167. (setq c:SOLSUB nil)(princ))+
  5168. (progn (menucmd "S=X")(menucmd "S=SSUB")))(princ);^PSOLSUB
  5169. [C-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5170. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5171. (if (null c:SOLSPHERE)(defun c:SOLSPHERE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5172. (terpri)(princ "ERROR:  Command not found. ")+
  5173. (princ "  Load AME or AMElite from the screen menu. ")+
  5174. (setq c:SOLSPHERE nil)(princ))+
  5175. (progn (menucmd "S=X")(menucmd "S=SSPH")))(princ);^PSOLSPHERE
  5176. [C-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5177. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5178. (if (null c:SOLTORUS)(defun c:SOLTORUS () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5179. (terpri)(princ "ERROR:  Command not found. ")+
  5180. (princ "  Load AME or AMElite from the screen menu. ")+
  5181. (setq c:SOLTORUS nil)(princ))+
  5182. (progn (menucmd "S=X")(menucmd "S=STOR")))(princ);^PSOLTORUS
  5183. [C-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5184. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5185. (if (null c:SOLWEDGE)(defun c:SOLWEDGE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5186. (terpri)(princ "ERROR:  Command not found. ")+
  5187. (princ "  Load AME or AMElite from the screen menu. ")+
  5188. (setq c:SOLWEDGE nil)(princ))+
  5189. (progn (menucmd "S=X")(menucmd "S=SWEDGE")))(princ);^PSOLWEDGE
  5190. [C-7] 
  5191. [C-8]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5192. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  5193. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)(if G:RMAN+
  5194. "S=ASHLRM" "S=ASHL"))+
  5195. ((= G:SVER 11) "S=ASH11L")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  5196. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  5197. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  5198. (setq C:LIGHT (list '()'(terpri)+
  5199. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")));+
  5200. (list 'prompt "' is incompatible with AutoCAD r11.")+
  5201. (list 'setq 'C:LIGHT '())'(princ))m:shmn (princ))))(T(defun C:LIGHT()(terpri);+
  5202. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  5203. (terpri)(prompt"Check your AutoShade Manual for installation instructions.");+
  5204. (setq C:LIGHT nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  5205. LIGHT
  5206. [C-9]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5207. (princ"Error loading: ")(princ msg);+
  5208. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  5209. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)(if G:RMAN+
  5210. "S=ASHLRM" "S=ASHL"));+
  5211. ((= G:SVER 11) "S=ASH11L")(T "S=")))(setq m:shmn nil)(princ))+
  5212. (defun m:not2 (m:avar)(set m:avar (list '()'(terpri);+
  5213. (list 'prompt "This command requires AutoShade version 2.")+
  5214. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  5215. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  5216. (m:not2 'C:VLIGHT)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  5217. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  5218. (m:not2 'C:VLIGHT))(setq C:VLIGHT (list '()'(terpri);+
  5219. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")))+
  5220. (list 'prompt "' is incompatible with AutoCAD r11.");+
  5221. (list 'setq 'C:VLIGHT '())'(princ))m:shmn (princ))))(T  (defun C:VLIGHT ()+
  5222. (terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  5223. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  5224. (setq C:VLIGHT nil)(princ));+
  5225. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PVLIGHT
  5226. [C-10]^C^CFILMROLL
  5227. [C-11] 
  5228. [C-12] 
  5229. [C-13] 
  5230. [C-14] 
  5231. [C-15] 
  5232. [C-16] 
  5233. [C-17] 
  5234. [C-18] 
  5235. [C-19] 
  5236. [C-20] 
  5237. [C-21] 
  5238. [C-22] 
  5239. [C-23] 
  5240. [C-24] 
  5241. [C-25] 
  5242. [D-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5243. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5244. (if (null c:SOLCHP)(defun c:SOLCHP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5245. (terpri)(princ "ERROR:  Command not found. ")+
  5246. (princ "  Load AME or AMElite from the screen menu. ")+
  5247. (setq c:SOLCHP nil)(princ))+
  5248. (progn (menucmd "S=X")(menucmd "S=SCHP")))(princ);^PSOLCHP
  5249. [D-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5250. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5251. (if (null c:SOLCHP)(defun c:SOLCHP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5252. (terpri)(princ "ERROR:  Command not found. ")+
  5253. (princ "  Load AME or AMElite from the screen menu. ")+
  5254. (setq c:SOLCHP nil)(princ))+
  5255. (progn (menucmd "S=X")(menucmd "S=SCHP")))(princ);^PSOLCHP
  5256. [D-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5257. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5258. (if (null c:SOLUNION)(defun c:SOLUNION () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5259. (terpri)(princ "ERROR:  Command not found. ")+
  5260. (princ "  Load AME or AMElite from the screen menu. ")+
  5261. (setq c:SOLUNION nil)(princ))+
  5262. (progn (menucmd "S=X")(menucmd "S=SUNION")))(princ);^PSOLUNION
  5263. [D-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5264. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5265. (if (null c:SOLEXT)(defun c:SOLEXT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5266. (terpri)(princ "ERROR:  Command not found. ")+
  5267. (princ "  Load AME or AMElite from the screen menu. ")+
  5268. (setq c:SOLEXT nil)(princ))+
  5269. (progn (menucmd "S=X")(menucmd "S=SEXT")))(princ);^PSOLEXT
  5270. [D-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5271. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5272. (if (null c:SOLREV)(defun c:SOLREV () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5273. (terpri)(princ "ERROR:  Command not found. ")+
  5274. (princ "  Load AME or AMElite from the screen menu. ")+
  5275. (setq c:SOLREV nil)(princ))+
  5276. (progn (menucmd "S=X")(menucmd "S=SREV")))(princ);^PSOLREV
  5277. [D-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5278. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5279. (if (null c:SOLIDIFY)(defun c:SOLIDIFY () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5280. (terpri)(princ "ERROR:  Command not found. ")+
  5281. (princ "  Load AME or AMElite from the screen menu. ")+
  5282. (setq c:SOLIDIFY nil)(princ))+
  5283. (progn (menucmd "S=X")(menucmd "S=SSOLID")))(princ);^PSOLIDIFY
  5284. [D-7] 
  5285. [D-8]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5286. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  5287. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASH")+
  5288. ((= G:SVER 11) "S=ASH11A")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  5289. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  5290. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  5291. (setq C:SCENE (list '()'(terpri)+
  5292. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")));+
  5293. (list 'prompt "' is incompatible with AutoCAD r11.")+
  5294. (list 'setq 'C:SCENE '())'(princ))m:shmn (princ))))(T(defun C:SCENE()(terpri);+
  5295. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  5296. (terpri)(prompt"Check your AutoShade Manual for installation instructions.");+
  5297. (setq C:SCENE nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  5298. SCENE
  5299. [D-9]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5300. (princ"Error loading: ")(princ msg);+
  5301. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  5302. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASH");+
  5303. ((= G:SVER 11) "S=ASH11")(T "S=")))(setq m:shmn nil)(princ))+
  5304. (defun m:not2 (m:avar)(set m:avar (list '()'(terpri);+
  5305. (list 'prompt "This command requires AutoShade version 2.")+
  5306. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  5307. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  5308. (m:not2 'C:FINISH)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  5309. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  5310. (m:not2 'C:FINISH))(setq C:FINISH (list '()'(terpri);+
  5311. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")))+
  5312. (list 'prompt "' is incompatible with AutoCAD r11.");+
  5313. (list 'setq 'C:FINISH '())'(princ))m:shmn (princ))))(T  (defun C:FINISH ()+
  5314. (terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  5315. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  5316. (setq C:FINISH nil)(princ));+
  5317. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PFINISH
  5318. [D-10]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  5319. (princ"Error loading: ")(princ msg);+
  5320. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  5321. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=DEFAULTS");+
  5322. ((= G:SVER 11) "S=ASH11")(T "S=")))(setq m:shmn nil)(princ))+
  5323. (defun m:not2 (m:avar)(set m:avar (list '()'(terpri);+
  5324. (list 'prompt "This command requires AutoShade version 2.")+
  5325. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  5326. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  5327. (m:not2 'C:DEFAULTS)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  5328. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  5329. (m:not2 'C:DEFAULTS))(setq C:DEFAULTS (list '()'(terpri);+
  5330. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")))+
  5331. (list 'prompt "' is incompatible with AutoCAD r11.");+
  5332. (list 'setq 'C:DEFAULTS '())'(princ))m:shmn (princ))))(T  (defun C:DEFAULTS ()+
  5333. (terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  5334. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  5335. (setq C:DEFAULTS nil)(princ));+
  5336. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PDEFAULTS
  5337. [D-11] 
  5338. [D-12] 
  5339. [D-13] 
  5340. [D-14] 
  5341. [D-15] 
  5342. [D-16] 
  5343. [D-17] 
  5344. [D-18] 
  5345. [D-19] 
  5346. [D-20] 
  5347. [D-21] 
  5348. [D-22] 
  5349. [D-23] 
  5350. [D-24] 
  5351. [D-25] 
  5352. [E-1] 
  5353. [E-2] 
  5354. [E-3] 
  5355. [E-4] 
  5356. [E-5] 
  5357. [E-6] 
  5358. [E-7] 
  5359. [E-8]
  5360. [E-9]
  5361. [E-10]
  5362. [E-11] 
  5363. [E-12] 
  5364. [E-13] 
  5365. [E-14] 
  5366. [E-15] 
  5367. [E-16] 
  5368. [E-17] 
  5369. [E-18] 
  5370. [E-19] 
  5371. [E-20] 
  5372. [E-21] 
  5373. [E-22] 
  5374. [E-23] 
  5375. [E-24] 
  5376. [E-25] 
  5377. [F-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5378. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5379. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5380. (terpri)(princ "ERROR:  Command not found. ")+
  5381. (princ "  Load AME or AMElite from the screen menu. ")+
  5382. (setq c:SOLVAR nil)(princ))+
  5383. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR SOLDECOMP
  5384. [F-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5385. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5386. (if (null c:SOLLIST)(defun c:SOLLIST () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5387. (terpri)(princ "ERROR:  Command not found. ")+
  5388. (princ "  Load AME or AMElite from the screen menu. ")+
  5389. (setq c:SOLLIST nil)(princ))+
  5390. (progn (menucmd "S=X")(menucmd "S=SLIST")))(princ);^PSOLLIST
  5391. [F-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5392. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5393. (if (null c:SOLIN)(defun c:SOLIN () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5394. (terpri)(princ "ERROR:  Command not found. ")+
  5395. (princ "  Load AME or AMElite from the screen menu. ")+
  5396. (setq c:SOLIN nil)(princ))+
  5397. (progn (menucmd "S=X")(menucmd "S=")))(princ);^PSOLIN
  5398. [F-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5399. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5400. (if (null c:SOLMAT)(defun c:SOLMAT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5401. (terpri)(princ "ERROR:  Command not found. ")+
  5402. (princ "  Load AME or AMElite from the screen menu. ")+
  5403. (setq c:SOLMAT nil)(princ))+
  5404. (progn (menucmd "S=X")(menucmd "S=SCHMAT")))(princ);^PSOLMAT
  5405. [F-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5406. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5407. (if (null c:SOLMESH)(defun c:SOLMESH () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5408. (terpri)(princ "ERROR:  Command not found. ")+
  5409. (princ "  Load AME or AMElite from the screen menu. ")+
  5410. (setq c:SOLMESH nil)(princ))+
  5411. (progn (menucmd "S=X")(menucmd "S=SMESH")))(princ);^PSOLMESH
  5412. [F-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5413. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5414. (if (null c:SOLWIRE)(defun c:SOLWIRE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5415. (terpri)(princ "ERROR:  Command not found. ")+
  5416. (princ "  Load AME or AMElite from the screen menu. ")+
  5417. (setq c:SOLWIRE nil)(princ))+
  5418. (progn (menucmd "S=X")(menucmd "S=SWIRE")))(princ);^PSOLWIRE
  5419. [F-7] 
  5420. [F-8]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5421. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5422. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5423. (menucmd"S=X")(menucmd"S=RMSETUP"))(defun C:RMSETUP()(terpri);+
  5424. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  5425. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5426. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5427. (menucmd"S=RMSETUP")(setq *error* m:err m:err nil)(princ))) ^PRMSETUP
  5428. [F-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5429. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5430. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5431. (menucmd"S=X")(menucmd"S=RMEDIT"))(defun C:RMEDIT()(terpri);+
  5432. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  5433. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5434. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5435. (menucmd"S=RMEDIT")(setq *error* m:err m:err nil)(princ))) ^PRMEDIT
  5436. [F-10]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5437. (princ msg)(setq *error* m:err m:err nil #ASERR nil)(princ))(princ));+
  5438. (cond((null #ASERR)(vmon)(if(findfile"ascommon.lsp")(load"ascommon")+
  5439. (defun C:RMSCAN()(terpri);+
  5440. (prompt"The file 'Ascommon.lsp' was not found in your current search directories.")+
  5441. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5442. (princ)))(setq *error* m:err m:err nil)(princ))(T+
  5443. (setq *error* m:err m:err nil)(princ))) ^PRMSCAN
  5444. [F-11] 
  5445. [F-12] 
  5446. [F-13] 
  5447. [F-14] 
  5448. [F-15] 
  5449. [F-16] 
  5450. [F-17] 
  5451. [F-18] 
  5452. [F-19] 
  5453. [F-20] 
  5454. [F-21] 
  5455. [F-22] 
  5456. [F-23] 
  5457. [F-24] 
  5458. [F-25] 
  5459. [G-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5460. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5461. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5462. (terpri)(princ "ERROR:  Command not found. ")+
  5463. (princ "  Load AME or AMElite from the screen menu. ")+
  5464. (setq c:SOLVAR nil)(princ))+
  5465. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR SOLSUBDIV
  5466. [G-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5467. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5468. (if (null c:SOLMASSP)(defun c:SOLMASSP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5469. (terpri)(princ "ERROR:  Command not found. ")+
  5470. (princ "  Load AME or AMElite from the screen menu. ")+
  5471. (setq c:SOLMASSP nil)(princ))+
  5472. (progn (menucmd "S=X")(menucmd "S=SMASSP")))(princ);^PSOLMASSP
  5473. [G-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5474. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5475. (if (null c:SOLOUT)(defun c:SOLOUT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5476. (terpri)(princ "ERROR:  Command not found. ")+
  5477. (princ "  Load AME or AMElite from the screen menu. ")+
  5478. (setq c:SOLOUT nil)(princ))+
  5479. (progn (menucmd "S=X")(menucmd "S=")))(princ);^PSOLOUT
  5480. [G-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5481. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5482. (if (null c:SOLUCS)(defun c:SOLUCS () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5483. (terpri)(princ "ERROR:  Command not found. ")+
  5484. (princ "  Load AME or AMElite from the screen menu. ")+
  5485. (setq c:SOLUCS nil)(princ))+
  5486. (progn (menucmd "S=X")(menucmd "S=SUCS")))(princ);^PSOLUCS
  5487. [G-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5488. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5489. (if (null c:SOLPROF)(defun c:SOLPROF () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5490. (terpri)(princ "ERROR:  Command not found. ")+
  5491. (princ "  Load AME or AMElite from the screen menu. ")+
  5492. (setq c:SOLPROF nil)(princ))+
  5493. (progn (menucmd "S=X")(menucmd "S=SPROF")))(princ);^PSOLPROF
  5494. [G-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5495. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5496. (if (null c:SOLPROF)(defun c:SOLPROF () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5497. (terpri)(princ "ERROR:  Command not found. ")+
  5498. (princ "  Load AME or AMElite from the screen menu. ")+
  5499. (setq c:SOLPROF nil)(princ))+
  5500. (progn (menucmd "S=X")(menucmd "S=SPROF")))(princ);^PSOLPROF
  5501. [G-7] 
  5502. [G-8]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5503. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5504. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5505. (menucmd"S=X")(menucmd"S=RMPROP"))(defun C:RMPROP()(terpri);+
  5506. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  5507. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5508. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5509. (menucmd"S=RMPROP")(setq *error* m:err m:err nil)(princ))) ^PRMPROP
  5510. [G-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5511. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5512. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5513. (menucmd"S=X")(menucmd"S=RMCOPY"))(defun C:RMCOPY()(terpri);+
  5514. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  5515. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5516. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5517. (menucmd"S=RMCOPY")(setq *error* m:err m:err nil)(princ))) ^PRMCOPY
  5518. [G-10]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5519. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5520. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5521. (menucmd"S=X")(menucmd"S=RMATTACH"))(defun C:RMATTACH()(terpri);+
  5522. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  5523. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5524. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5525. (menucmd"S=RMATTACH")(setq *error* m:err m:err nil)(princ))) ^PRMATTACH
  5526. [G-11] 
  5527. [G-12] 
  5528. [G-13] 
  5529. [G-14] 
  5530. [G-15] 
  5531. [G-16] 
  5532. [G-17] 
  5533. [G-18] 
  5534. [G-19] 
  5535. [G-20] 
  5536. [G-21] 
  5537. [G-22] 
  5538. [G-23] 
  5539. [G-24] 
  5540. [G-25] 
  5541. [H-1]^C^C^P(progn(setq m:err *error*)(princ))+
  5542. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5543. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5544. (terpri)(princ "ERROR:  Command not found. ")+
  5545. (princ "  Load AME or AMElite from the screen menu. ")+
  5546. (setq c:SOLVAR nil)(princ))+
  5547. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR SOLWDENS
  5548. [H-2]^C^C^P(progn(setq m:err *error*)(princ))+
  5549. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5550. (if (null c:SOLAREA)(defun c:SOLAREA () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5551. (terpri)(princ "ERROR:  Command not found. ")+
  5552. (princ "  Load AME or AMElite from the screen menu. ")+
  5553. (setq c:SOLAREA nil)(princ))+
  5554. (progn (menucmd "S=X")(menucmd "S=SAREA")))(princ);^PSOLAREA 
  5555. [H-3]^C^C^P(progn(setq m:err *error*)(princ))+
  5556. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5557. (if (null c:SOLPURGE)(defun c:SOLPURGE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5558. (terpri)(princ "ERROR:  Command not found. ")+
  5559. (princ "  Load AME or AMElite from the screen menu. ")+
  5560. (setq c:SOLPURGE nil)(princ))+
  5561. (progn (menucmd "S=X")(menucmd "S=SPURGE")))(princ);^PSOLPURGE
  5562. [H-4]^C^C^P(progn(setq m:err *error*)(princ))+
  5563. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5564. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5565. (terpri)(princ "ERROR:  Command not found. ")+
  5566. (princ "  Load AME or AMElite from the screen menu. ")+
  5567. (setq c:SOLVAR nil)(princ))+
  5568. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR 
  5569. [H-5]^C^C^P(progn(setq m:err *error*)(princ))+
  5570. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5571. (if (null c:SOLFEAT)(defun c:SOLFEAT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5572. (terpri)(princ "ERROR:  Command not found. ")+
  5573. (princ "  Load AME or AMElite from the screen menu. ")+
  5574. (setq c:SOLFEAT nil)(princ))+
  5575. (progn (menucmd "S=X")(menucmd "S=SFEAT")))(princ);^PSOLFEAT 
  5576. [H-6]^C^C^P(progn(setq m:err *error*)(princ))+
  5577. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  5578. (if (null c:SOLSECT)(defun c:SOLSECT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  5579. (terpri)(princ "ERROR:  Command not found. ")+
  5580. (princ "  Load AME or AMElite from the screen menu. ")+
  5581. (setq c:SOLSECT nil)(princ))+
  5582. (progn (menucmd "S=X")(menucmd "S=SSECT")))(princ);^PSOLSECT
  5583. [H-7] 
  5584. [H-8] 
  5585. [H-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5586. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5587. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5588. (menucmd"S=X")(menucmd"S=RMLIST"))(defun C:RMLIST()(terpri);+
  5589. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  5590. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5591. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5592. (menucmd"S=RMLIST")(setq *error* m:err m:err nil)(princ))) ^PRMLIST
  5593. [H-10] 
  5594. [H-11] 
  5595. [H-12] 
  5596. [H-13] 
  5597. [H-14] 
  5598. [H-15] 
  5599. [H-16] 
  5600. [H-17] 
  5601. [H-18] 
  5602. [H-19] 
  5603. [H-20] 
  5604. [H-21] 
  5605. [H-22] 
  5606. [H-23] 
  5607. [H-24] 
  5608. [H-25] 
  5609. [I-1] 
  5610. [I-2] 
  5611. [I-3] 
  5612. [I-4] 
  5613. [I-5] 
  5614. [I-6] 
  5615. [I-7] 
  5616. [I-8]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5617. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5618. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5619. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  5620. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  5621. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5622. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5623. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  5624. [I-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5625. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5626. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5627. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  5628. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  5629. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5630. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5631. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  5632. [I-10]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  5633. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  5634. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  5635. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  5636. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  5637. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  5638. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  5639. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  5640. [I-11] 
  5641. [I-12] 
  5642. [I-13] 
  5643. [I-14] 
  5644. [I-15] 
  5645. [I-16] 
  5646. [I-17] 
  5647. [I-18] 
  5648. [I-19] 
  5649. [I-20] 
  5650. [I-21] 
  5651. [I-22] 
  5652. [I-23] 
  5653. [I-24] 
  5654. [I-25] 
  5655. ***Comment
  5656.         This is the existing TABLET2 menu.  It has been
  5657.         updated for Release 11 functionality.
  5658.  
  5659. ***TABLET2
  5660. ^C^C^P(menucmd "S=X")(menucmd "S=HIDE1")(progn (initget "Yes No")+
  5661. (setq ans (getkword "Do you want to HIDE? <Y> ")))(if (= ans "Yes")+
  5662. (command "HIDE")(progn (menucmd "S= ")(menucmd "S= ")))(princ);^P
  5663. $S=X $S=VPOINT VPOINT;;
  5664. $S=X $S=SHADE
  5665. $S=X $S=UCS1 ^C^CUCS
  5666. ^C^CUCS;PREV
  5667. ^C^CUCS;ORIGIN
  5668. ;
  5669. $S=X $S=MV ^C^CMVIEW
  5670. $S=X $S=ZOOM 'ZOOM VMAX
  5671. $S=X $S=LINE ^C^CLINE
  5672. ^C^CREGEN
  5673. [VPOINT  ]^C^CVPOINT R;<<135;$S=X $S=VPOINT3D
  5674. [VPT rear]^C^CVPOINT R;<<90;$S=X $S=VPOINT3D
  5675. [VPOINT  ]^C^CVPOINT R;<<45;$S=X $S=VPOINT3D
  5676. $S=X $S=UCS1 ^C^CUCS
  5677. ^C^CUCS;;
  5678. ^C^CPLAN;W
  5679. ;
  5680. $S=X $S=MV ^C^CMVIEW
  5681. $S=X $S=ZOOM 'ZOOM W
  5682. $S=X $S=PLINE ^C^CPLINE
  5683. ^C^CREGENALL
  5684. [VPT left]^C^CVPOINT R;<<180;$S=X $S=VPOINT3D
  5685. [VPT plan]^C^CPLAN;;
  5686. [VPT rigt]^C^CVPOINT R;<<0;$S=X $S=VPOINT3D
  5687. $S=X $S=DVIEW ^C^CDVIEW
  5688. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;CA;\\;
  5689. $S=X $S=DVIEW ^C^C$S=X $S=DVIEW1 DVIEW;;
  5690. ;
  5691. $S=X $S=MV ^C^CMVIEW ON
  5692. $S=X $S=ZOOM 'ZOOM D
  5693. $S=X $S=ARC ^C^CARC
  5694. 'REDRAW
  5695. [VPOINT  ]^C^CVPOINT R;<<225;$S=X $S=VPOINT3D
  5696. [VPT frnt]^C^CVPOINT R;<<270;$S=X $S=VPOINT3D
  5697. [VPOINT  ]^C^CVPOINT R;<<315;$S=X $S=VPOINT3D
  5698. $S=X $S=DVIEW ^C^CDVIEW
  5699. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;Z;\;
  5700. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;PA;\\;
  5701. ;
  5702. $S=X $S=MV ^C^CMVIEW OFF
  5703. $S=X $S=ZOOM ^C^CZOOM A
  5704. $S=X $S=CIRCLE ^C^CCIRCLE
  5705. 'REDRAW
  5706. $S=X $S=3D ^C^CRULESURF
  5707. $S=X $S=3D ^C^CREVSURF
  5708. $S=X $S=3DFACE ^C^C3DFACE
  5709. $S=X $S=VPLA ^C^CVPLAYER
  5710. $S=X $S=VPLA ^C^CVPLAYER THAW
  5711. $S=X $S=VPLA ^C^CVPLAYER FREEZE
  5712. ;
  5713. $S=X $S=MV ^C^CMVIEW 2
  5714. $S=X $S=ZOOM 'ZOOM P
  5715. $S=X $S=ELLIPSE ^C^CELLIPSE
  5716. 'REDRAW
  5717. $S=X $S=3D ^C^CEDGESURF
  5718. $S=X $S=3D ^C^CTABSURF
  5719. $S=X $S=3DPOLY ^C^C3DPOLY
  5720. $S=X $S=VPLA ^C^CVPLAYER
  5721. $S=X $S=VPLA ^C^CVPLAYER NEW
  5722. $S=X $S=VPLA ^C^CVPLAYER RESET
  5723. ;
  5724. $S=X $S=MV ^C^CMVIEW 3
  5725. $S=X $S=ZOOM ^C^CZOOM E
  5726. $S=X $S=POLYGON ^C^CPOLYGON
  5727. 'REDRAW
  5728. $S=X $S=XREF ^C^CXREF
  5729. $S=X $S=XREF ^C^CXREF;;
  5730. $S=X $S=XBIND ^C^CXBIND
  5731. $S=X $S=LAYER ^C^CDDLMODES
  5732. $S=X $S=LAYER ^C^CLAYER ON
  5733. $S=X $S=LAYER ^C^CLAYER OFF
  5734. ;
  5735. $S=X $S=MV ^C^CMVIEW 4
  5736. $S=X $S=ZOOM 'ZOOM
  5737. $S=X $S=POINT ^C^CPOINT
  5738. 'REDRAW
  5739. $S=X $S=ATTDEF ^C^CATTDEF
  5740. $S=X $S=BLOCK ^C^CBLOCK
  5741. $S=X $S=INSERT ^C^CINSERT
  5742. $S=X $S=LAYER ^C^CLAYER
  5743. $S=X $S=LAYER ^C^CLAYER THAW
  5744. $S=X $S=LAYER ^C^CLAYER FREEZE
  5745. ;
  5746. $S=X $S=MV ^C^CMSPACE
  5747. 'PAN
  5748. ^C^CDONUT
  5749. 'REDRAWALL
  5750. $S=X $S=ATTEDIT ^C^CATTEDIT
  5751. $S=X $S=WBLOCK ^C^CWBLOCK
  5752. $S=X $S=MINSERT ^C^CMINSERT
  5753. $S=X $S=LAYER ^C^CLAYER
  5754. $S=X $S=LAYER ^C^CLAYER ? *;;
  5755. $S=X $S=LAYER ^C^CLAYER M \;
  5756. ;
  5757. $S=X $S=MV ^C^CPSPACE
  5758. $S=X $S=DS
  5759. $S=X $S=DR
  5760. 'REDRAWALL
  5761. ***Comment
  5762.         This is the existing TABLET3 menu.  It has been
  5763.         updated for Release 11 in functionality.
  5764.  
  5765. ***TABLET3
  5766. ;
  5767. ;
  5768. ;
  5769. <<135
  5770. <<135
  5771. <<90
  5772. <<90
  5773. <<45
  5774. <<45
  5775. ;
  5776. ;
  5777. ;
  5778. <<180
  5779. <<180
  5780. <\
  5781. <\
  5782. <<0
  5783. <<0
  5784. ;
  5785. ;
  5786. ;
  5787. <<225
  5788. <<225
  5789. <<270
  5790. <<270
  5791. <<315
  5792. <<315
  5793. ;
  5794. ;
  5795. ;
  5796. ^H
  5797. ^H
  5798. ^H
  5799. ^H
  5800. ^H
  5801. ^H
  5802. ;
  5803. ;
  5804. ;
  5805. 7/8\
  5806. 7/8\
  5807. /16\
  5808. /16\
  5809. /32\
  5810. /32\
  5811. ;
  5812. ;
  5813. ;
  5814. 1/2\
  5815. 1/2\
  5816. 5/8\
  5817. 5/8\
  5818. 3/4\
  5819. 3/4\
  5820. ;
  5821. ;
  5822. ;
  5823. 1/8\
  5824. 1/8\
  5825. 1/4\
  5826. 1/4\
  5827. 3/8\
  5828. 3/8\
  5829. ;
  5830. ;
  5831. ;
  5832. -\
  5833. -\
  5834. /\
  5835. /\
  5836. X\
  5837. X\
  5838. ;
  5839. ;
  5840. ;
  5841. @\
  5842. @\
  5843. '\
  5844. '\
  5845. "\
  5846. "\
  5847. ;
  5848. ;
  5849. ;
  5850. 7\
  5851. 7\
  5852. 8\
  5853. 8\
  5854. 9\
  5855. 9\
  5856.  
  5857. ;
  5858. ;
  5859. 4\
  5860. 4\
  5861. 5\
  5862. 5\
  5863. 6\
  5864. 6\
  5865. ;
  5866. ;
  5867. ;
  5868. 1\
  5869. 1\
  5870. 2\
  5871. 2\
  5872. 3\
  5873. 3\
  5874.  
  5875. ;
  5876. ;
  5877. 0\
  5878. 0\
  5879. .\
  5880. .\
  5881. ,\
  5882. ,\
  5883. ***Comment
  5884.         This is the existing TABLET4 menu.  It has been
  5885.         updated for Release 11 functionality.
  5886.         
  5887.         Menu items S19 - S22 contain the calls to swap the tablet menus.
  5888.  
  5889.         These items cause tablet menus to be swapped which contain
  5890.         various "expert" menu selections.  A variable is used to 
  5891.         hold bit-coded values which are on when the menu is  swapped, 
  5892.         i.e., when the alternate menu has been swapped in.  Bit 1 
  5893.         is on when menu area 1 is swapped, bit 2 when menu area 2 
  5894.         is swapped, and so on with bits 4 and 8. 
  5895.         
  5896.         When bit 1 is set, the first asterick in the second line 
  5897.         of the screen menu is replaced  with the numeral one, the 
  5898.         second asterick when bit 2 is set, and so on with bits 4 
  5899.         and 8. 
  5900.  
  5901.         This shows the user that there has been a change to the 
  5902.         structure of the menus in a graphical, albeit miniscule, 
  5903.         way.  Prompts describing the changes enacted via the menu 
  5904.         swaps will pick up the balance of the feedback to the user.  
  5905.         They should be tied to the setting of the EXPERT system 
  5906.         variable.  If the value of the EXPERT system variable is 0, 
  5907.         then a prompt such as this will be issued;  
  5908.         "Menu area 3 has been swapped.  Optional metric 
  5909.         functionality is now active."  If the value of the EXPERT 
  5910.         system variable is 1-4, the prompt will be shortened to; 
  5911.         "Menu area 3 has been swapped.", and if the value of 
  5912.         the EXPERT system variable is greater than 4, all prompts 
  5913.         will be suppressed. 
  5914.         
  5915.         Selecting the AutoCAD heading at the top of the screen 
  5916.         menu resets all of the menus to their default values as
  5917.         does re-entering the drawing editor.
  5918.  
  5919.  
  5920. ***TABLET4
  5921. ;
  5922. ;
  5923. ;
  5924. ;
  5925. ;
  5926. ;
  5927. ;
  5928. ;
  5929. ;
  5930. ;
  5931. ;
  5932. ;
  5933. ;
  5934. ;
  5935. ;
  5936. ;
  5937. ;
  5938. ;
  5939. [Tablet 1]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  5940. (if (= (logand 1 T_MENU) 1)(progn (setq T_MENU (- T_MENU 1))+
  5941. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 1 unloaded.  "));+
  5942. (menucmd "T1=TABLET1")(if (< (getvar "EXPERT") 1)(progn +
  5943. (terpri)(princ "Select from the AutoCAD AME menu and AutoShade tablet menus.")(princ))))+
  5944. (progn (setq T_MENU (+ T_MENU 1))+
  5945. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 1 loaded.  "));+
  5946. (menucmd "T1=TABLET1ALT")(if (< (getvar "EXPERT") 1)(progn +
  5947. (terpri)(princ "This area is for your personal applications and menu items.")(princ)))))+
  5948. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  5949. [Tablet 2]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  5950. (if (= (logand 2 T_MENU) 2)(progn(setq T_MENU (- T_MENU 2))+
  5951. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 2 unloaded.  "));+
  5952. (menucmd "T2=TABLET2")(if old_wv (setvar "WORLDVIEW" old_wv))(if (< (getvar "EXPERT") 1)(progn +
  5953. (terpri)(princ "Commands operate transparently: VPOINT and DVIEW in Worldview mode.")(princ))))+
  5954. (progn(setq T_MENU (+ T_MENU 2));+
  5955. (setq old_wv (getvar "WORLDVIEW"))(setvar "WORLDVIEW" 0)+
  5956. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 2 loaded.  "));+
  5957. (menucmd "T2=TABLET2ALT")(if (< (getvar "EXPERT") 1)(progn +
  5958. (terpri)(princ "Zoom and other commands issue CTRL-C's: VPOINT and DVIEW in current UCS mode.")(princ)))))+
  5959. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  5960. [Tablet 3]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  5961. (if (= (logand 4 T_MENU) 4)(progn(setq T_MENU (- T_MENU 4))+
  5962. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 3 unloaded.  "));+
  5963. (menucmd "T3=TABLET3")(if (< (getvar "EXPERT") 1)(progn +
  5964. (terpri)(princ "Select American units from the Numeric menu.")(princ))))+
  5965. (progn(setq T_MENU (+ T_MENU 4))+
  5966. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 3 loaded.  "));+
  5967. (menucmd "T3=TABLET3ALT")(if (< (getvar "EXPERT") 1)(progn +
  5968. (terpri)(princ "Select Metric units from the Numeric menu.")(princ)))))+
  5969. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  5970. [Tablet 4]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  5971. (if (= (logand 8 T_MENU) 8)(progn(setq T_MENU (- T_MENU 8))+
  5972. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 4 unloaded.  "));+
  5973. (menucmd "T4=TABLET4")(if (< (getvar "EXPERT") 1)(progn +
  5974. (terpri)(princ "Object snap modes issue overrides: commands do NOT repeat.")(princ))))+
  5975. (progn(setq T_MENU (+ T_MENU 8))+
  5976. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 4 loaded.  "));+
  5977. (menucmd "T4=TABLET4ALT")(if (< (getvar "EXPERT") 1)(progn +
  5978. (terpri)(princ "Object snap modes issue running modes: commands repeat.")(princ)))))+
  5979. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  5980. ;
  5981. ;
  5982. ;
  5983. ^C^CTIME
  5984. ^C^C$S=X $S=ID ID
  5985. ^C^CSTATUS
  5986. ^C^C$S=X $S=LIST LIST
  5987. 'HELP
  5988. 'HELP
  5989. ;
  5990. ^C^CDDEMODES
  5991. ^C^CDDEMODES
  5992. ^C^C$S=X $S=OSNAPC OSNAP
  5993. ;
  5994. NONE
  5995. CENTER
  5996. ENDPOINT
  5997. INSERT
  5998. INTERSEC
  5999. MIDPOINT
  6000. NEAREST
  6001. NODE
  6002. PERPEND
  6003. QUADRANT
  6004. TANGENT
  6005. ;
  6006. ^C^CSAVE
  6007. ^C^CSAVE
  6008. ^C^CSETVAR ? *
  6009. ^C^C$S=X $S=AREA AREA
  6010. ^C^CDIST
  6011. ^C^C$S=X $S=LIST LIST
  6012. 'HELP
  6013. 'HELP
  6014. ;
  6015. ^C^CDDRMODES
  6016. ^C^CDDRMODES
  6017. ^C^C$S=X $S=OSNAPC OSNAP
  6018. ;
  6019. UNDO B
  6020. ^C^CU
  6021. ^C^CREDO
  6022. AUTO
  6023. MULTIPLE
  6024. WINDOW
  6025. LAST
  6026. PREVIOUS
  6027. CROSSING
  6028. REMOVE
  6029. ADD
  6030. ;
  6031. ^C^C$S=X $S=END END
  6032. ^C^C$S=X $S=QUIT QUIT
  6033. ^C^C$S=X $S=DIM DIM SAV
  6034. ^C^C$S=X $S=DIM DIM RESTORE
  6035. ^C^C$S=X $S=DIM DIM SAV ? *
  6036. ^C^C$S=X $S=HOMETEXT DIM HOMETEXT
  6037. ^C^C$S=X $S=TEDIT DIM TEDIT
  6038. ^C^C$S=X $S=DIM DIM TROTATE
  6039. ;
  6040. ^C^C$S=X $S=DDEDIT DDEDIT
  6041. ^C^C$S=X $S=DDEDIT DDEDIT
  6042. ^C^C$S=X $S=QTEXT QTEXT
  6043. ;
  6044. ^C^C
  6045. ^C^C
  6046. ^C^C
  6047. ^O
  6048. ^D
  6049. ^Q
  6050. GRAPHSCR
  6051. ^E
  6052. ^G
  6053. ^B
  6054. ^V
  6055. ;
  6056. ^C^CFILES
  6057. ^C^CFILES
  6058. ^C^CDIM1 STATUS
  6059. ^C^C$S=X $S=VAR1 DIM
  6060. ^C^C$S=X $S=DIM DIM OVE
  6061. ^C^C$S=X $S=DIM DIM OBLIQUE
  6062. EXIT;^C^C$S=X $S=S
  6063. EXIT;^C^C$S=X $S=S
  6064. ;
  6065. ^C^C^P(if (= dtext 1)(progn(menucmd "S=TEXT")(menucmd "T4=TEXT1")+
  6066. (menucmd "T4=TEXT2")(menucmd "T4=TEXT3")(setq dtext null)+
  6067. (prompt "TEXT mode set")(princ))(progn(menucmd "S=DTEXT");+
  6068. (menucmd "T4=DTEXT1")(menucmd "T4=DTEXT2")(menucmd "T4=DTEXT3")(setq dtext 1)+
  6069. (prompt "DTEXT mode set")(princ)));^P
  6070. ^C^C^P(if (= dtext 1)(progn(menucmd "S=TEXT")(menucmd "T4=TEXT1")+
  6071. (menucmd "T4=TEXT2")(menucmd "T4=TEXT3")(setq dtext null)+
  6072. (prompt "TEXT mode set")(princ))(progn(menucmd "S=DTEXT");+
  6073. (menucmd "T4=DTEXT1")(menucmd "T4=DTEXT2")(menucmd "T4=DTEXT3")(setq dtext 1)+
  6074. (prompt "DTEXT mode set")(princ)));^P
  6075. ^C^C$S=X $S=TEXT TEXT STYLE
  6076. ;
  6077. ^C^C$S=X $S=SCALE SCALE
  6078. ^C^C$S=X $S=ROTATE ROTATE
  6079. ^C^C$S=X $S=OFFSET OFFSET
  6080. ^C^C$S=X $S=MOVE MOVE
  6081. ^C^C$S=X $S=ERASE ERASE
  6082. ^C^C$S=X $S=ERASE ERASE
  6083. ^C^COOPS
  6084. ^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  6085. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  6086. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  6087. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  6088. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  6089. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  6090. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  6091. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  6092. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  6093. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  6094. (princ));PEDITM;^P
  6095. ^C^CEXPLODE
  6096. ^C^C$S=X $S=ARRAY ARRAY
  6097. ^C^C$S=X $S=DIVIDE DIVIDE
  6098. ;
  6099. ^C^CPLOT
  6100. ^C^CPRPLOT
  6101. ^C^C$S=X $S=DIMORD DIM ORDINATE
  6102. ^C^C$S=X $S=DIM DIM LEADER
  6103. ^C^C$S=X $S=DIMLINEAR DIM BASELINE
  6104. ^C^C$S=X $S=DIMLINEAR DIM CONTIN
  6105. ^C^C$S=X $S=DIMLINEAR DIM VERT
  6106. ^C^C$S=X $S=DIMLINEAR DIM HORIZ
  6107. ;
  6108. ^C^C$S=X $S=TEXT TEXT ALIGNED
  6109. ^C^C$S=X $S=TEXT TEXT MIDDLE
  6110. ^C^C$S=X $S=TEXT TEXT FIT
  6111. ;
  6112. ^C^C$S=X $S=MIRROR MIRROR
  6113. ^C^C$S=X $S=BREAK2P BREAK \F
  6114. ^C^C$S=X $S=BREAKSPL BREAK \F \@
  6115. ^C^C$S=X $S=COPY COPY
  6116. ^C^C$S=X $S=EXTEND EXTEND
  6117. ^C^C$S=X $S=STRETCH STRETCH C
  6118. ^C^C$S=X $S=TRIM TRIM
  6119. ^C^C$S=X $S=FILLET0 FILLET R 0;;
  6120. ^C^C$S=X $S=FILLET FILLET
  6121. ^C^C$S=X $S=CHAMFER CHAMFER
  6122. ^C^C$S=X $S=MEASURE MEASURE
  6123. ;
  6124. ^C^C$S=X $S=UT
  6125. ^C^C^P(if R11omn (progn(command "Menu" R11omn)(setq R11omn nil));+
  6126. (if (setq R11omn (getvar "menuname"));+
  6127. (if (setq envname (getenv "ACADALTMENU")) (command "Menu" +
  6128. (findfile envname)) (command "Menu" R11omn))))(setq T_MENU nil)(princ) ^P
  6129. ^C^C$S=X $S=DIM DIM CENTER
  6130. ^C^C$S=X $S=DIM DIM RADIUS
  6131. ^C^C$S=X $S=DIM DIM DIAMETER
  6132. ^C^C$S=X $S=DIM DIM ANGULAR
  6133. ^C^C$S=X $S=DIM DIM ROTATED
  6134. ^C^C$S=X $S=DIMLINEAR DIM ALIGNED
  6135. ;
  6136. ^C^C$S=X $S=TEXT TEXT
  6137. ^C^C$S=X $S=TEXT TEXT C
  6138. ^C^C$S=X $S=TEXT TEXT RIGHT
  6139. ;
  6140. ^C^C$S=X $S=SNAP SNAP
  6141. ^C^C$S=X $S=GRID GRID
  6142. ^C^C$S=X $S=UNITS UNITS
  6143. ^C^C$S=X $S=LINETYPE LINETYPE
  6144. ^C^C$S=X $S=CHANGE CHANGE
  6145. ^C^C$S=X $S=CHANGE CHANGE
  6146. ^C^C$S=X $S=CHPROP CHPROP
  6147. ^C^CLTSCALE
  6148. ^C^C$S=X $S=COLOR COLOR
  6149. ^C^CTILEMODE
  6150. ^C^C$S=X $S=APERTURE APERTURE
  6151. ;
  6152. ^C^C$S=X $S=EXCOMDS
  6153. ^C^C$S=X $S=EXCOMDS
  6154. **DTEXT1 110
  6155. ^C^C$S=X $S=DTEXT DTEXT STYLE
  6156. **DTEXT2 133
  6157. ^C^C$S=X $S=DTEXT DTEXT ALIGNED
  6158. ^C^C$S=X $S=DTEXT DTEXT MIDDLE
  6159. ^C^C$S=X $S=DTEXT DTEXT FIT
  6160. **DTEXT3 158
  6161. ^C^C$S=X $S=DTEXT DTEXT
  6162. ^C^C$S=X $S=DTEXT DTEXT C
  6163. ^C^C$S=X $S=DTEXT DTEXT RIGHT
  6164. **TEXT1 110
  6165. ^C^C$S=X $S=TEXT TEXT STYLE
  6166. **TEXT2 133
  6167. ^C^C$S=X $S=TEXT TEXT ALIGNED
  6168. ^C^C$S=X $S=TEXT TEXT MIDDLE
  6169. ^C^C$S=X $S=TEXT TEXT FIT
  6170. **TEXT3 158
  6171. ^C^C$S=X $S=TEXT TEXT
  6172. ^C^C$S=X $S=TEXT TEXT C
  6173. ^C^C$S=X $S=TEXT TEXT RIGHT
  6174.  
  6175. ***Comment
  6176.         This is the original TABLET1 menu which is now an alternate menu.
  6177.         The new TABLET1 menu contains the code for AME and AutoShade.
  6178.         You may put your own macros and menu items here or in the space
  6179.         remaining on the regular TABLET1 area.  All of the item locations
  6180.         are now accessible through the transparent window in the template.
  6181.  
  6182. ***TABLET1ALT
  6183. [A-1] 
  6184. [A-2] 
  6185. [A-3] 
  6186. [A-4] 
  6187. [A-5] 
  6188. [A-6] 
  6189. [A-7] 
  6190. [A-8] 
  6191. [A-9] 
  6192. [A-10] 
  6193. [A-11] 
  6194. [A-12] 
  6195. [A-13] 
  6196. [A-14] 
  6197. [A-15] 
  6198. [A-16] 
  6199. [A-17] 
  6200. [A-18] 
  6201. [A-19] 
  6202. [A-20] 
  6203. [A-21] 
  6204. [A-22] 
  6205. [A-23] 
  6206. [A-24] 
  6207. [A-25] 
  6208. [B-1] 
  6209. [B-2] 
  6210. [B-3] 
  6211. [B-4] 
  6212. [B-5] 
  6213. [B-6] 
  6214. [B-7] 
  6215. [B-8] 
  6216. [B-9] 
  6217. [B-10] 
  6218. [B-11] 
  6219. [B-12] 
  6220. [B-13] 
  6221. [B-14] 
  6222. [B-15] 
  6223. [B-16] 
  6224. [B-17] 
  6225. [B-18] 
  6226. [B-19] 
  6227. [B-20] 
  6228. [B-21] 
  6229. [B-22] 
  6230. [B-23] 
  6231. [B-24] 
  6232. [B-25] 
  6233. [C-1] 
  6234. [C-2] 
  6235. [C-3] 
  6236. [C-4] 
  6237. [C-5] 
  6238. [C-6] 
  6239. [C-7] 
  6240. [C-8] 
  6241. [C-9] 
  6242. [C-10] 
  6243. [C-11] 
  6244. [C-12] 
  6245. [C-13] 
  6246. [C-14] 
  6247. [C-15] 
  6248. [C-16] 
  6249. [C-17] 
  6250. [C-18] 
  6251. [C-19] 
  6252. [C-20] 
  6253. [C-21] 
  6254. [C-22] 
  6255. [C-23] 
  6256. [C-24] 
  6257. [C-25] 
  6258. [D-1] 
  6259. [D-2] 
  6260. [D-3] 
  6261. [D-4] 
  6262. [D-5] 
  6263. [D-6] 
  6264. [D-7] 
  6265. [D-8] 
  6266. [D-9] 
  6267. [D-10] 
  6268. [D-11] 
  6269. [D-12] 
  6270. [D-13] 
  6271. [D-14] 
  6272. [D-15] 
  6273. [D-16] 
  6274. [D-17] 
  6275. [D-18] 
  6276. [D-19] 
  6277. [D-20] 
  6278. [D-21] 
  6279. [D-22] 
  6280. [D-23] 
  6281. [D-24] 
  6282. [D-25] 
  6283. [E-1] 
  6284. [E-2] 
  6285. [E-3] 
  6286. [E-4] 
  6287. [E-5] 
  6288. [E-6] 
  6289. [E-7] 
  6290. [E-8] 
  6291. [E-9] 
  6292. [E-10] 
  6293. [E-11] 
  6294. [E-12] 
  6295. [E-13] 
  6296. [E-14] 
  6297. [E-15] 
  6298. [E-16] 
  6299. [E-17] 
  6300. [E-18] 
  6301. [E-19] 
  6302. [E-20] 
  6303. [E-21] 
  6304. [E-22] 
  6305. [E-23] 
  6306. [E-24] 
  6307. [E-25] 
  6308. [F-1] 
  6309. [F-2] 
  6310. [F-3] 
  6311. [F-4] 
  6312. [F-5] 
  6313. [F-6] 
  6314. [F-7] 
  6315. [F-8] 
  6316. [F-9] 
  6317. [F-10] 
  6318. [F-11] 
  6319. [F-12] 
  6320. [F-13] 
  6321. [F-14] 
  6322. [F-15] 
  6323. [F-16] 
  6324. [F-17] 
  6325. [F-18] 
  6326. [F-19] 
  6327. [F-20] 
  6328. [F-21] 
  6329. [F-22] 
  6330. [F-23] 
  6331. [F-24] 
  6332. [F-25] 
  6333. [G-1] 
  6334. [G-2] 
  6335. [G-3] 
  6336. [G-4] 
  6337. [G-5] 
  6338. [G-6] 
  6339. [G-7] 
  6340. [G-8] 
  6341. [G-9] 
  6342. [G-10] 
  6343. [G-11] 
  6344. [G-12] 
  6345. [G-13] 
  6346. [G-14] 
  6347. [G-15] 
  6348. [G-16] 
  6349. [G-17] 
  6350. [G-18] 
  6351. [G-19] 
  6352. [G-20] 
  6353. [G-21] 
  6354. [G-22] 
  6355. [G-23] 
  6356. [G-24] 
  6357. [G-25] 
  6358. [H-1] 
  6359. [H-2] 
  6360. [H-3] 
  6361. [H-4] 
  6362. [H-5] 
  6363. [H-6] 
  6364. [H-7] 
  6365. [H-8] 
  6366. [H-9] 
  6367. [H-10] 
  6368. [H-11] 
  6369. [H-12] 
  6370. [H-13] 
  6371. [H-14] 
  6372. [H-15] 
  6373. [H-16] 
  6374. [H-17] 
  6375. [H-18] 
  6376. [H-19] 
  6377. [H-20] 
  6378. [H-21] 
  6379. [H-22] 
  6380. [H-23] 
  6381. [H-24] 
  6382. [H-25] 
  6383. [I-1] 
  6384. [I-2] 
  6385. [I-3] 
  6386. [I-4] 
  6387. [I-5] 
  6388. [I-6] 
  6389. [I-7] 
  6390. [I-8] 
  6391. [I-9] 
  6392. [I-10] 
  6393. [I-11] 
  6394. [I-12] 
  6395. [I-13] 
  6396. [I-14] 
  6397. [I-15] 
  6398. [I-16] 
  6399. [I-17] 
  6400. [I-18] 
  6401. [I-19] 
  6402. [I-20] 
  6403. [I-21] 
  6404. [I-22] 
  6405. [I-23] 
  6406. [I-24] 
  6407. [I-25] 
  6408. ***Comment
  6409.         This is an alternate TABLET2 menu.
  6410.  
  6411. ***TABLET2ALT
  6412. ^C^C^P(menucmd "S=X")(menucmd "S=HIDE1")(progn (initget "Yes No")+
  6413. (setq ans (getkword "Do you want to HIDE? <Y>")))(if (= ans "Yes")+
  6414. (command "HIDE")(progn (menucmd "S= ")(menucmd "S= ")))(princ);^P
  6415. $S=X $S=VPOINT VPOINT;;
  6416. $S=X $S=SHADE
  6417. $S=X $S=UCS1 ^C^CUCS
  6418. ^C^CUCS;PREV
  6419. ^C^CUCS;ORIGIN
  6420. ;
  6421. $S=X $S=MV ^C^CMVIEW
  6422. $S=X $S=ZOOM ^C^CZOOM VMAX
  6423. $S=X $S=LINE ^C^CLINE
  6424. ^C^CREGEN
  6425. [VPOINT  ]^C^CVPOINT R;<<135;$S=X $S=VPOINT3D
  6426. [VPT rear]^C^CVPOINT R;<<90;$S=X $S=VPOINT3D
  6427. [VPOINT  ]^C^CVPOINT R;<<45;$S=X $S=VPOINT3D
  6428. $S=X $S=UCS1 ^C^CUCS
  6429. ^C^CUCS;;
  6430. ^C^CPLAN;W
  6431. ;
  6432. $S=X $S=MV ^C^CMVIEW
  6433. $S=X $S=ZOOM ^C^CZOOM W
  6434. $S=X $S=PLINE ^C^CPLINE
  6435. ^C^CREGENALL
  6436. [VPT left]^C^CVPOINT R;<<180;$S=X $S=VPOINT3D
  6437. [VPT plan]^C^CPLAN;;
  6438. [VPT rigt]^C^CVPOINT R;<<0;$S=X $S=VPOINT3D
  6439. $S=X $S=DVIEW ^C^CDVIEW
  6440. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;CA;\\;
  6441. $S=X $S=DVIEW ^C^C$S=X $S=DVIEW1 DVIEW;;
  6442. ;
  6443. $S=X $S=MV ^C^CMVIEW ON
  6444. $S=X $S=ZOOM ^C^CZOOM D
  6445. $S=X $S=ARC ^C^CARC
  6446. 'REDRAW
  6447. [VPOINT  ]^C^CVPOINT R;<<225;$S=X $S=VPOINT3D
  6448. [VPT frnt]^C^CVPOINT R;<<270;$S=X $S=VPOINT3D
  6449. [VPOINT  ]^C^CVPOINT R;<<315;$S=X $S=VPOINT3D
  6450. $S=X $S=DVIEW ^C^CDVIEW
  6451. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;Z;\;
  6452. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;PA;\\;
  6453. ;
  6454. $S=X $S=MV ^C^CMVIEW OFF
  6455. $S=X $S=ZOOM ^C^CZOOM A
  6456. $S=X $S=CIRCLE ^C^CCIRCLE
  6457. 'REDRAW
  6458. $S=X $S=3D ^C^CRULESURF
  6459. $S=X $S=3D ^C^CREVSURF
  6460. $S=X $S=3DFACE ^C^C3DFACE
  6461. $S=X $S=VPLA ^C^CVPLAYER
  6462. $S=X $S=VPLA ^C^CVPLAYER THAW
  6463. $S=X $S=VPLA ^C^CVPLAYER FREEZE
  6464. ;
  6465. $S=X $S=MV ^C^CMVIEW 2
  6466. $S=X $S=ZOOM ^C^CZOOM P
  6467. $S=X $S=ELLIPSE ^C^CELLIPSE
  6468. 'REDRAW
  6469. $S=X $S=3D ^C^CEDGESURF
  6470. $S=X $S=3D ^C^CTABSURF
  6471. $S=X $S=3DPOLY ^C^C3DPOLY
  6472. $S=X $S=VPLA ^C^CVPLAYER
  6473. $S=X $S=VPLA ^C^CVPLAYER NEW
  6474. $S=X $S=VPLA ^C^CVPLAYER RESET
  6475. ;
  6476. $S=X $S=MV ^C^CMVIEW 3
  6477. $S=X $S=ZOOM ^C^CZOOM E
  6478. $S=X $S=POLYGON ^C^CPOLYGON
  6479. 'REDRAW
  6480. $S=X $S=XREF ^C^CXREF
  6481. $S=X $S=XREF ^C^CXREF;;
  6482. $S=X $S=XBIND ^C^CXBIND
  6483. $S=X $S=LAYER ^C^CDDLMODES
  6484. $S=X $S=LAYER ^C^CLAYER ON
  6485. $S=X $S=LAYER ^C^CLAYER OFF
  6486. ;
  6487. $S=X $S=MV ^C^CMVIEW 4
  6488. $S=X $S=ZOOM ^C^CZOOM
  6489. $S=X $S=POINT ^C^CPOINT
  6490. 'REDRAW
  6491. $S=X $S=ATTDEF ^C^CATTDEF
  6492. $S=X $S=BLOCK ^C^CBLOCK
  6493. $S=X $S=INSERT ^C^CINSERT
  6494. $S=X $S=LAYER ^C^CLAYER
  6495. $S=X $S=LAYER ^C^CLAYER THAW
  6496. $S=X $S=LAYER ^C^CLAYER FREEZE
  6497. ;
  6498. $S=X $S=MV ^C^CMSPACE
  6499. 'PAN
  6500. ^C^CDONUT
  6501. 'REDRAWALL
  6502. $S=X $S=ATTEDIT ^C^CATTEDIT
  6503. $S=X $S=WBLOCK ^C^CWBLOCK
  6504. $S=X $S=MINSERT ^C^CMINSERT
  6505. $S=X $S=LAYER ^C^CLAYER
  6506. $S=X $S=LAYER ^C^CLAYER ? *;;
  6507. $S=X $S=LAYER ^C^CLAYER M \;
  6508. ;
  6509. $S=X $S=MV ^C^CPSPACE
  6510. $S=X $S=DS
  6511. $S=X $S=DR
  6512. 'REDRAWALL
  6513. ***Comment
  6514.         This is an alternate TABLET3 menu which provides all of the common
  6515.         features found on the UK tablet area 3 for metric use.  Their 
  6516.         locations had to be altered slightly to fit with our present
  6517.         layout, but all of them are available.
  6518.  
  6519. ***TABLET3ALT
  6520. ;
  6521. ;
  6522. ;
  6523. <<135
  6524. <<135
  6525. <<90
  6526. <<90
  6527. <<45
  6528. <<45
  6529. ;
  6530. ;
  6531. ;
  6532. <<180
  6533. <<180
  6534. <\
  6535. <\
  6536. <<0
  6537. <<0
  6538. ;
  6539. ;
  6540. ;
  6541. <<225
  6542. <<225
  6543. <<270
  6544. <<270
  6545. <<315
  6546. <<315
  6547. ;
  6548. ;
  6549. ;
  6550. ^H
  6551. ^H
  6552. ^H
  6553. ^H
  6554. ^H
  6555. ^H
  6556. ;
  6557. ;
  6558. ;
  6559. m\
  6560. m\
  6561. cm\
  6562. cm\
  6563. mm\
  6564. mm\
  6565. ;
  6566. ;
  6567. ;
  6568. .\
  6569. .\
  6570. +\
  6571. +\
  6572. %%d\
  6573. %%d\
  6574. ;
  6575. ;
  6576. ;
  6577. ,\
  6578. ,\
  6579. %%p\
  6580. %%p\
  6581. %%c\
  6582. %%c\
  6583. ;
  6584. ;
  6585. ;
  6586. -\
  6587. -\
  6588. /\
  6589. /\
  6590. X\
  6591. X\
  6592. ;
  6593. ;
  6594. ;
  6595. @\
  6596. @\
  6597. '\
  6598. '\
  6599. "\
  6600. "\
  6601. ;
  6602. ;
  6603. ;
  6604. 7\
  6605. 7\
  6606. 8\
  6607. 8\
  6608. 9\
  6609. 9\
  6610.  
  6611. ;
  6612. ;
  6613. 4\
  6614. 4\
  6615. 5\
  6616. 5\
  6617. 6\
  6618. 6\
  6619. ;
  6620. ;
  6621. ;
  6622. 1\
  6623. 1\
  6624. 2\
  6625. 2\
  6626. 3\
  6627. 3\
  6628.  
  6629. ;
  6630. ;
  6631. 0\
  6632. 0\
  6633. 00\
  6634. 00\
  6635. 000\
  6636. 000\
  6637. ***Comment
  6638.         This is an alternate TABLET4 menu which contains the following
  6639.         changes to the base functionality contained in the original
  6640.         menu.
  6641.         
  6642.         1)  All commands repeat which make sense to repeat
  6643.         2)  The Osnap override picks now change the running "osmode"
  6644.             transparently via 'SETVAR OSMODE.  
  6645.         
  6646.         Menu items S19 - S22 contain the calls to swap the tablet menus.
  6647.  
  6648.         These items cause tablet menus to be swapped which contain
  6649.         various "expert" menu selections.  A variable is used to 
  6650.         hold bit-coded values which are on when the menu is  swapped, 
  6651.         i.e., when the alternate menu has been swapped in.  Bit 1 
  6652.         is on when menu area 1 is swapped, bit 2 when menu area 2 
  6653.         is swapped, and so on with bits 4 and 8. 
  6654.         
  6655.         When bit 1 is set, the first asterick in the second line 
  6656.         of the screen menu is replaced  with the numeral one, the 
  6657.         second asterick when bit 2 is set, and so on with bits 4 
  6658.         and 8. 
  6659.  
  6660.         This shows the user that there has been a change to the 
  6661.         structure of the menus in a graphical, albeit miniscule, 
  6662.         way.  Prompts describing the changes enacted via the menu 
  6663.         swaps will pick up the balance of the feedback to the user.  
  6664.         They should be tied to the setting of the EXPERT system 
  6665.         variable.  If the value of the EXPERT system variable is 0, 
  6666.         then a prompt such as this should be issued;  
  6667.         "Menu area 3 has been swapped.  Optional metric 
  6668.         functionality is now active."  If the value of the EXPERT 
  6669.         system variable is 1-4, the prompt should be shortened to; 
  6670.         "Menu area 3 has been swapped.", and if the value of 
  6671.         the EXPERT system variable is greater than 4, all prompts 
  6672.         should be suppressed.  This is currently unsupported.
  6673.         
  6674.         Selecting the AutoCAD heading at the top of the screen 
  6675.         menu resets all of the menus to their default values as
  6676.         does re-entering the drawing editor.
  6677.  
  6678.  
  6679. ***TABLET4ALT
  6680. ;
  6681. ;
  6682. ;
  6683. ;
  6684. ;
  6685. ;
  6686. ;
  6687. ;
  6688. ;
  6689. ;
  6690. ;
  6691. ;
  6692. ;
  6693. ;
  6694. ;
  6695. ;
  6696. ;
  6697. ;
  6698. [Tablet 1]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6699. (if (= (logand 1 T_MENU) 1)(progn (setq T_MENU (- T_MENU 1))+
  6700. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 1 unloaded.  "));+
  6701. (menucmd "T1=TABLET1")(if (< (getvar "EXPERT") 1)(progn +
  6702. (terpri)(princ "Select from the AutoCAD AME menu and AutoShade tablet menus.")(princ))))+
  6703. (progn (setq T_MENU (+ T_MENU 1))+
  6704. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 1 loaded.  "));+
  6705. (menucmd "T1=TABLET1ALT")(if (< (getvar "EXPERT") 1)(progn +
  6706. (terpri)(princ "This area is for your personal applications and menu items.")(princ)))))+
  6707. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6708. [Tablet 2]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6709. (if (= (logand 2 T_MENU) 2)(progn(setq T_MENU (- T_MENU 2))+
  6710. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 2 unloaded.  "));+
  6711. (menucmd "T2=TABLET2")(if old_wv (setvar "WORLDVIEW" old_wv))(if (< (getvar "EXPERT") 1)(progn +
  6712. (terpri)(princ "Commands operate transparently: VPOINT and DVIEW in Worldview mode.")(princ))))+
  6713. (progn(setq T_MENU (+ T_MENU 2));+
  6714. (setq old_wv (getvar "WORLDVIEW"))(setvar "WORLDVIEW" 0)+
  6715. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 2 loaded.  "));+
  6716. (menucmd "T2=TABLET2ALT")(if (< (getvar "EXPERT") 1)(progn +
  6717. (terpri)(princ "Zoom and other commands issue CTRL-C's: VPOINT and DVIEW in current UCS mode.")(princ)))))+
  6718. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6719. [Tablet 3]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6720. (if (= (logand 4 T_MENU) 4)(progn(setq T_MENU (- T_MENU 4))+
  6721. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 3 unloaded.  "));+
  6722. (menucmd "T3=TABLET3")(if (< (getvar "EXPERT") 1)(progn +
  6723. (terpri)(princ "Select American units from the Numeric menu.")(princ))))+
  6724. (progn(setq T_MENU (+ T_MENU 4))+
  6725. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 3 loaded.  "));+
  6726. (menucmd "T3=TABLET3ALT")(if (< (getvar "EXPERT") 1)(progn +
  6727. (terpri)(princ "Select Metric units from the Numeric menu.")(princ)))))+
  6728. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6729. [Tablet 4]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6730. (if (= (logand 8 T_MENU) 8)(progn(setq T_MENU (- T_MENU 8))+
  6731. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 4 unloaded.  "));+
  6732. (menucmd "T4=TABLET4")(if (< (getvar "EXPERT") 1)(progn +
  6733. (terpri)(princ "Object snap modes issue overrides: commands do NOT repeat.")(princ))))+
  6734. (progn(setq T_MENU (+ T_MENU 8))+
  6735. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 4 loaded.  "));+
  6736. (menucmd "T4=TABLET4ALT")(if (< (getvar "EXPERT") 1)(progn +
  6737. (terpri)(princ "Object snap modes issue running modes: commands repeat.")(princ)))))+
  6738. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6739. ;
  6740. ;
  6741. ;
  6742. ^C^CTIME
  6743. *^C^C$S=X $S=ID ID
  6744. ^C^CSTATUS
  6745. ^C^C$S=X $S=LIST LIST
  6746. 'HELP
  6747. 'HELP
  6748. ;
  6749. ^C^CDDEMODES
  6750. ^C^CDDEMODES
  6751. ^C^C$S=X $S=OSNAPC OSNAP
  6752. ;
  6753. 'SETVAR OSMODE 0
  6754. 'SETVAR OSMODE 4
  6755. 'SETVAR OSMODE 1
  6756. 'SETVAR OSMODE 64
  6757. 'SETVAR OSMODE 32
  6758. 'SETVAR OSMODE 2
  6759. 'SETVAR OSMODE 512
  6760. 'SETVAR OSMODE 8
  6761. 'SETVAR OSMODE 128
  6762. 'SETVAR OSMODE 16
  6763. 'SETVAR OSMODE 256
  6764. ;
  6765. ^C^CSAVE
  6766. ^C^CSAVE
  6767. ^C^CDBLIST
  6768. *^C^C$S=X $S=AREA AREA
  6769. *^C^CDIST
  6770. ^C^C$S=X $S=LIST LIST
  6771. 'HELP
  6772. 'HELP
  6773. ;
  6774. ^C^CDDRMODES
  6775. ^C^CDDRMODES
  6776. ^C^C$S=X $S=OSNAPC OSNAP
  6777. ;
  6778. UNDO B
  6779. ^C^CU
  6780. ^C^CREDO
  6781. AUTO
  6782. MULTIPLE
  6783. WINDOW
  6784. LAST
  6785. PREVIOUS
  6786. CROSSING
  6787. REMOVE
  6788. ADD
  6789. ;
  6790. ^C^C$S=X $S=END END
  6791. ^C^C$S=X $S=QUIT QUIT
  6792. *^C^C$S=X $S=DIM DIM SAV
  6793. *^C^C$S=X $S=DIM DIM RESTORE
  6794. *^C^C$S=X $S=DIM DIM SAV ? *
  6795. *^C^C$S=X $S=TEDIT DIM TEDIT
  6796. *^C^C$S=X $S=DIM DIM TROTATE
  6797. *^C^C$S=X $S=DIM DIM HOMETEXT
  6798. ;
  6799. *^C^C$S=X $S=DDEDIT DDEDIT
  6800. *^C^C$S=X $S=DDEDIT DDEDIT
  6801. *^C^C$S=X $S=QTEXT QTEXT
  6802. ;
  6803. ^C^C
  6804. ^C^C
  6805. ^C^C
  6806. ^O
  6807. ^D
  6808. ^Q
  6809. GRAPHSCR
  6810. ^E     
  6811. ^G
  6812. ^B
  6813. ^V
  6814. ;
  6815. ^C^CFILES
  6816. ^C^CFILES
  6817. ^C^CDIM1 STATUS
  6818. *^C^C$S=X $S=VAR1 DIM
  6819. *^C^C$S=X $S=DIM DIM OVE
  6820. ^C^C$S=X $S=DIM DIM OBLIQUE
  6821. EXIT;^C^C$S=X $S=S
  6822. EXIT;^C^C$S=X $S=S
  6823. ;
  6824. ^C^C$S=X $S=TEXTSET TEXT
  6825. ^C^C$S=X $S=TEXTSET TEXT
  6826. *^C^C$S=X $S=TEXT TEXT STYLE
  6827. ;
  6828. *^C^C$S=X $S=SCALE SCALE
  6829. *^C^C$S=X $S=ROTATE ROTATE
  6830. *^C^C$S=X $S=OFFSET OFFSET
  6831. *^C^C$S=X $S=MOVE MOVE
  6832. *^C^C$S=X $S=ERASE ERASE
  6833. *^C^C$S=X $S=ERASE ERASE
  6834. ^C^COOPS
  6835. *^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  6836. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  6837. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  6838. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  6839. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  6840. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  6841. (menucmd "S=X")(menucmd "S=P0"))(setq m:s1 nil)))))))(defun m:p1 (/ m:a)+
  6842. (menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil)(menucmd"S=P0")(progn+
  6843. (setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")(if(< m:a 4)(menucmd"S=P0");+
  6844. (menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)(setq *error* m:err)(princ))+
  6845. (princ));PEDITM;^P
  6846. *^C^CEXPLODE
  6847. *^C^C$S=X $S=ARRAY ARRAY
  6848. *^C^C$S=X $S=DIVIDE DIVIDE
  6849. ;
  6850. ^C^CPLOT
  6851. ^C^CPRPLOT
  6852. *^C^C$S=X $S=DIMORD DIM ORDINATE
  6853. *^C^C$S=X $S=DIM DIM LEADER
  6854. *^C^C$S=X $S=DIMLINEAR BASELINE
  6855. *^C^C$S=X $S=DIMLINEAR CONTIN
  6856. *^C^C$S=X $S=DIMLINEAR DIM VERT
  6857. *^C^C$S=X $S=DIMLINEAR DIM HORIZ
  6858. ;
  6859. *^C^C$S=X $S=TEXT TEXT ALIGNED
  6860. *^C^C$S=X $S=TEXT TEXT MIDDLE
  6861. *^C^C$S=X $S=TEXT TEXT FIT
  6862. ;
  6863. *^C^C$S=X $S=MIRROR MIRROR
  6864. *^C^C$S=X $S=BREAK2P BREAK \F
  6865. *^C^C$S=X $S=BREAKSPL BREAK \F \@
  6866. *^C^C$S=X $S=COPY COPY
  6867. *^C^C$S=X $S=EXTEND EXTEND
  6868. *^C^C$S=X $S=STRETCH STRETCH C
  6869. *^C^C$S=X $S=TRIM TRIM
  6870. *^C^C$S=X $S=FILLET0 FILLET R 0;;
  6871. *^C^C$S=X $S=FILLET FILLET
  6872. *^C^C$S=X $S=CHAMFER CHAMFER
  6873. *^C^C$S=X $S=MEASURE MEASURE
  6874. ;
  6875. ^C^C$S=X $S=UT
  6876. ^C^C^P(if R11omn (progn(command "Menu" R11omn)(setq R11omn nil));+
  6877. (if (setq R11omn (getvar "menuname"));+
  6878. (if (setq envname (getenv "ACADALTMENU")) (command "Menu" +
  6879. (findfile envname)) (command "Menu" R11omn))))(setq T_MENU nil)(princ) ^P
  6880. *^C^C$S=X $S=DIM DIM CENTER
  6881. *^C^C$S=X $S=DIM DIM RADIUS
  6882. *^C^C$S=X $S=DIM DIM DIAMETER
  6883. *^C^C$S=X $S=DIM DIM ANGULAR
  6884. *^C^C$S=X $S=DIM DIM ROTATED
  6885. *^C^C$S=X $S=DIMLINEAR DIM ALIGNED
  6886. ;
  6887. *^C^C$S=X $S=TEXT TEXT
  6888. *^C^C$S=X $S=TEXT TEXT C
  6889. *^C^C$S=X $S=TEXT TEXT RIGHT
  6890. ;
  6891. *^C^C$S=X $S=SNAP SNAP
  6892. *^C^C$S=X $S=GRID GRID
  6893. *^C^C$S=X $S=UNITS UNITS
  6894. *^C^C$S=X $S=LINETYPE LINETYPE
  6895. *^C^C$S=X $S=CHANGE CHANGE
  6896. *^C^C$S=X $S=CHANGE CHANGE
  6897. *^C^C$S=X $S=CHPROP CHPROP
  6898. *^C^CLTSCALE
  6899. *^C^C$S=X $S=COLOR COLOR
  6900. *^C^CTILEMODE
  6901. *^C^C$S=X $S=APERTURE APERTURE
  6902. ;
  6903. ^C^C$S=X $S=EXCOMDS
  6904. ^C^C$S=X $S=EXCOMDS
  6905. **DTEXT1 110
  6906. *^C^C$S=X $S=DTEXT DTEXT STYLE
  6907. **DTEXT2 133
  6908. *^C^C$S=X $S=DTEXT DTEXT ALIGNED
  6909. *^C^C$S=X $S=DTEXT DTEXT MIDDLE
  6910. *^C^C$S=X $S=DTEXT DTEXT FIT
  6911. **DTEXT3 158
  6912. *^C^C$S=X $S=DTEXT DTEXT
  6913. *^C^C$S=X $S=DTEXT DTEXT C
  6914. *^C^C$S=X $S=DTEXT DTEXT RIGHT
  6915. **TEXT1 110
  6916. *^C^C$S=X $S=TEXT TEXT STYLE
  6917. **TEXT2 133
  6918. *^C^C$S=X $S=TEXT TEXT ALIGNED
  6919. *^C^C$S=X $S=TEXT TEXT MIDDLE
  6920. *^C^C$S=X $S=TEXT TEXT FIT
  6921. **TEXT3 158
  6922. *^C^C$S=X $S=TEXT TEXT
  6923. *^C^C$S=X $S=TEXT TEXT C
  6924. *^C^C$S=X $S=TEXT TEXT RIGHT
  6925.  
  6926.