home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / punchcad.zip / ACAD11.EXE / PIVOT.MNU
Lisp/Scheme  |  1992-12-03  |  210KB  |  7,927 lines
  1.  
  2. ***Comment  
  3.            
  4.         Copyright (C) 1986-1991 by Autodesk, Inc..
  5.         Version 11.0 for Release 11 (1/16/91)
  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 appears 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. ***BUTTONS
  15. ;
  16. $p1=*
  17. ^C^C
  18. ^B
  19. ^O
  20. ^G
  21. ^D
  22. ^E
  23. ^T
  24. ***AUX1
  25. ;
  26. $p1=*
  27. ^C^C
  28. ^B
  29. ^O
  30. ^G
  31. ^D
  32. ^E
  33. ^T
  34.  
  35. ***POP1
  36. [Assist]
  37. [Help!        ]'?
  38. [~--]
  39. [Cancel       ]^C^C
  40. [~--]
  41. [Osnap: <mode>]^C^C$p1= $p1=* OSNAP \
  42. CENter
  43. [ENDpoint     ]ENDP
  44. INSert
  45. [INTersection]INT
  46. MIDpoint
  47. NEArest
  48. NODe
  49. [PERpendicular]PER
  50. QUAdrant
  51. [Quick,<mode> ]QUICK,^Z$p1=*
  52. TANgent
  53. NONE
  54. [~--]
  55. [FILTERS     >]$p1=filters $p1=*
  56.  
  57. **filters
  58. [Filters]
  59. .X
  60. .Y
  61. .Z
  62. .XY
  63. .XZ
  64. .YZ
  65. [~--]
  66. [ASSIST >]$p1= $p1=*
  67.  
  68. ***POP2
  69. **p2draw
  70. [Draw]
  71. [Line       ]^C^C$S=X $S=line line
  72. [Circle    >]^C^C^P$p2=p2cir $p2=* (if (not c:ct)(defun c:ct ()+
  73. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  74. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" pause pause)+
  75. (setq *error* m:err m:err nil)(princ)))(princ);ct;\\^P$p2=p2draw
  76. [Arc       >]^C^C^P$p2=p2arc $p2=* (if (not c:at)(defun c:at ()+
  77. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  78. (setq *error* m:err m:err nil)(princ))(command "ARC" pause pause pause)+
  79. (setq *error* m:err m:err nil)(princ)))(princ);at;\\\^P$p2=p2draw
  80. [3D Face    ]^C^C$S=X $S=3dface 3dface
  81. [~--]
  82. [Pivot Punch]^C^C^P(if (/= "DOS Extender" (substr (getvar "platform") 5)) (vmon));+
  83. (load "/ppc/pivot") (menucmd "P2=P13pivot" "P2=*")
  84. [~--]
  85. [2D/3D Poly ]^C^C^P$p2=p2plgy $p2=*
  86. [Donut      ]^C^Cdonut ;;
  87. [Ellipse    ]^C^C$S=X $S=ellipse ellipse
  88. [Polygon    ]^C^C^P$S=X $S=polygon (if (not c:mpg)+
  89. (defun c:mpg (/ m:err m:ps2 m:pe2 m:pg2 m:pgce)+
  90. (defun *error* (msg)(setvar "CMDECHO" m:pgce)(setq *error* m:err)(princ));+
  91. (setq m:err *error* m:pgce (getvar "CMDECHO"));+
  92. (if (not m:ps)(while (not m:ps2)(terpri)(graphscr)(initget 7)(setq m:ps2+
  93. (getint "Number of sides: "))(if (or (< m:ps2 3)(> m:ps2 1024))(progn(terpri)+
  94. (princ "Value must be between 3 and 1024.")(setq m:ps2 nil))));+
  95. (setq m:ps2 m:ps))(if (not m:pe)(progn(terpri)(initget 1 "Edge")+
  96. (setq m:pe2 (getpoint "Edge/<Center of polygon>: "))) (if (= m:pe "Center")+
  97. (progn(terpri)(initget 1)(setq m:pe2 (getpoint "Center of polygon: ")));+
  98. (setq m:pe2 "Edge")))(if (and(/= m:pe2 "Edge")(not m:pg))(progn(terpri)+
  99. (initget 1 "Inscribed Circumscribed")(setq m:pg2+
  100. (getkword "Inscribed in circle/Circumscribed about circle (I/C): ")));+
  101. (setq m:pg2 m:pg))(setvar "CMDECHO" 1)(if (= m:pe2 "Edge")(progn+
  102. (command "POLYGON" m:ps2)(terpri)(command "Edge" pause pause))+
  103. (command "POLYGON" m:ps2 m:pe2 m:pg2 pause))(setvar "CMDECHO" m:pgce);+
  104. (setq *error* m:err)(princ)))(princ);mpg;^P
  105. [~--]
  106. [Insert     ]^C^C^P(if (not c:pinsert)+
  107. (defun c:pinsert (/ m:err m:ce m:ad1 m:in2 m:i0 m:i1 m:i2)(defun *error* (msg)+
  108. (setvar"CMDECHO"m:ce)(setvar"ATTDIA"m:ad1)(setq *error* m:err)(princ));+
  109. (setq m:ce(getvar"CMDECHO")m:ad1(getvar"ATTDIA"))(defun m:in2(m:in2a m:in2b)+
  110. (princ(strcat(chr 13)(chr 10)m:in2a(if(/= m:in2b pause)(if(/=(type m:in2b)'STR)+
  111. (rtos m:in2b)(eval m:in2b))(eval " ")))))(if(= m:ibn nil)(setq m:ibn pause));+
  112. (if(= m:ixs nil)(setq m:ixs pause))(if(= m:iys nil)(setq m:iys pause))+
  113. (if(= m:ira nil)(setq m:ira pause))(if(= m:izs nil)(setq m:izs m:ixs))+
  114. (setvar"CMDECHO"0)(setvar"ATTDIA"1)(command"INSERT")(m:in2 "Block name: " m:ibn);+
  115. (command m:ibn)(m:in2 "Insertion point: " pause)(command pause "XYZ")+
  116. (if(= m:ixs pause)(progn(initget 2 "C")(setq m:i1(getreal(strcat(chr 13)+
  117. (chr 10)"X Scale factor <1> / Corner: ")))(if(= m:i1 "C");+
  118. (progn(initget 9)(setq m:i0(getvar "LASTPOINT")m:i2(getpoint m:i0+
  119. "Other corner: "))(command (-(car m:i2)(car m:i0))(-(cadr m:i2)(cadr m:i0)))+
  120. (m:in2 "Z scale factor (default = X): " m:izs)(command m:izs);+
  121. (m:in2 "Rotation angle <0>: " m:ira)(command m:ira))(progn(if(/=(type m:i1)+
  122. 'REAL)(setq m:i1 1.0))(command m:i1)(m:in2 "Y scale factor (default = X): " m:iys)+
  123. (command m:iys)(m:in2 "Z scale factor (default = X): " m:izs)(command m:izs);+
  124. (m:in2 "Rotation angle <0>: " m:ira)(command m:ira))))(progn+
  125. (m:in2 "X Scale factor <1> / Corner: " m:ixs)(command m:ixs)+
  126. (m:in2 "Y Scale factor (default = X): " m:iys)(command m:iys);+
  127. (m:in2 "Z Scale factor (default = X): " m:izs)(command m:izs)+
  128. (m:in2 "Rotation angle <0>: " m:ira)(command m:ira)))(setvar "CMDECHO" m:ce)+
  129. (setvar "ATTDIA" m:ad1)(setq *error* m:err)(princ)))(princ);pinsert;^P
  130. [Xref       ]$S=X $S=XREF ^C^CXREF
  131. [~--]
  132. [Surfaces...]$I=surf1 $I=*
  133. [Objects... ]$I=3dobjects $I=*
  134. [~--]
  135. [Dtext      ]^C^C^P(if (not C:DT)+
  136. (defun C:DT (/ m:err m:s1 m:s2 m:s3 m:tsh m:tv m:b m:sp m:ta0)+
  137. (setq m:err *error* m:b T)(defun *error* (msg)(setq *error* m:err)(princ));+
  138. (if (/= (type m:ta) 'STR)(setq m:ta pause))+
  139. (if (/= (type m:th) 'REAL)(setq m:th pause))+
  140. (if (/= (type m:tr) 'REAL)(setq m:tr pause));+
  141. (setq m:tsh (cdr (assoc 40 (tblsearch "STYLE" (getvar"TEXTSTYLE"))))+
  142. m:tv (logand 4 (cdr (assoc 70 (tblsearch "STYLE" (getvar"TEXTSTYLE"))))))+
  143. (if (= m:tv 4)(setq m:s1 "Align C" m:s2 " Middle Right";+
  144. m:sp "Align/Center/Middle/Right:" m:s3 " Justify Style")+
  145. (setq m:s1 "Align Fit C Middle Right TLeft TCenter TRight "+
  146. m:s2 "MLeft MCenter MRight BLeft BCenter BRight" m:s3 " Justify Style";+
  147. m:sp "Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR: "))+
  148. (if (= m:ta pause)(progn(initget (strcat m:s1 m:s2 m:s3))(setq m:ta0+
  149. (getpoint "Justify/Style/<Start point>: ")))(setq m:ta0 m:ta));+
  150. (if (= m:ta0 "Justify")(progn(initget (strcat m:s1 m:s2))(setq m:ta0+
  151. (getkword m:sp))))(if (= m:ta0 "Style")(progn (setq m:b nil)+
  152. (command "DTEXT" "Style")(princ)))(if (= m:ta0 "Align")(progn (setq m:b nil);+
  153. (command "DTEXT" "Align" pause pause)(princ)))(if (= m:ta0 "Fit")+
  154. (progn (setq m:b nil)(command "DTEXT" "Fit" pause pause pause)(princ)))+
  155. (if (= m:ta0 nil)(progn (setq m:b nil)(command "DTEXT" "")(princ)));+
  156. (if m:b(if(= m:tsh 0.0)(if(=(type m:ta0) 'LIST)(command"DTEXT"m:ta0 m:th m:tr)+
  157. (command "DTEXT" m:ta0 pause m:th m:tr))(if (= (type m:ta0) 'LIST)+
  158. (command "DTEXT" m:ta0 m:tr)(command "DTEXT" m:ta0 pause m:tr))));+
  159. (setq *error* m:err)(princ)))(princ);dt;^P
  160. [Hatch]^C^C^P$S=X $S=hatch (if (not c:hatchm)(defun c:hatchm (/ m:err m:hp1)+
  161. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  162. (if(/=(type m:hp)'STR)(setq m:hp pause))(if(/=(type m:hs)'STR)(setq m:hs ""));+
  163. (if(/=(type m:hsc)'REAL)(setq m:hsc pause))(if(/=(type m:hr)'REAL)(setq m:hr +
  164. pause))(setq m:hp1 (strcat m:hp m:hs))(if (= m:hp "U")(command "HATCH" m:hp1)+
  165. (if (= m:hp pause)(command "HATCH" pause m:hsc m:hr pause);+
  166. (command "HATCH" m:hp1 m:hsc m:hr pause)))(setq *error* m:err)(princ)))+
  167. (princ);hatchm;^P
  168. [Dim...     ]^C^C$S=X $S=dim DIM $I=drdim $I=*
  169.  
  170. **p2arc
  171. [Arc]
  172. [3-point           ]$p2=p2draw ^C^C^P(defun c:at () +
  173. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  174. (setq *error* m:err m:err nil)(princ))(command "ARC" pause pause pause)+
  175. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  176. [~--]$p2=p2draw
  177. [Start, Cen, End   ]$p2=p2draw ^C^C^P(defun c:at () +
  178. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  179. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "C" pause pause)+
  180. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  181. [Start, Cen, Angle ]$p2=p2draw ^P^C^C(defun c:at () +
  182. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  183. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "C" pause "A" pause)+
  184. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  185. [Start, Cen, Length]$p2=p2draw ^P^C^C(defun c:at () +
  186. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  187. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "C" pause "L" pause)+
  188. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  189. [Start, End, Angle ]$p2=p2draw ^P^C^C(defun c:at () +
  190. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  191. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "E" pause "A" pause)+
  192. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  193. [Start, End, Radius]$p2=p2draw ^P^C^C(defun c:at () +
  194. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  195. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "E" pause "R" pause)+
  196. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  197. [Start, End, Dir   ]$p2=p2draw ^P^C^C(defun c:at () +
  198. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  199. (setq *error* m:err m:err nil)(princ))(command "ARC" pause "E" pause "D" pause)+
  200. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  201. [Cen, Start, End   ]$p2=p2draw ^P^C^C(defun c:at () +
  202. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  203. (setq *error* m:err m:err nil)(princ))(command "ARC" "C" pause pause pause)+
  204. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  205. [Cen, Start, Angle ]$p2=p2draw ^P^C^C(defun c:at () +
  206. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  207. (setq *error* m:err m:err nil)(princ))(command "ARC" "C" pause pause "A" pause)+
  208. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  209. [Cen, Start, Length]$p2=p2draw ^P^C^C(defun c:at () +
  210. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  211. (setq *error* m:err m:err nil)(princ))(command "ARC" "C" pause pause "L" pause)+
  212. (setq *error* m:err m:err nil)(princ))(princ);at;^P
  213. [~--]$p2=p2draw
  214. [DRAW             >]$p2=p2draw $p2=*
  215.  
  216. **p2cir
  217. [Circle]
  218. [Cen, Dia]$p2=p2draw ^C^C^P(defun c:ct ()+
  219. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  220. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" pause "DIA" pause)+
  221. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  222. [Cen, Rad]$p2=p2draw ^C^C^P(defun c:ct ()+
  223. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  224. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" pause pause)+
  225. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  226. [~--]$p2=p2draw
  227. [2-Point ]$p2=p2draw ^C^C^P(defun c:ct ()+
  228. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  229. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" "2P" pause pause)+
  230. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  231. [3-Point ]$p2=p2draw ^C^C^P(defun c:ct ()+
  232. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  233. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" "3P" pause pause pause)+
  234. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  235. [TTR     ]$p2=p2draw ^P^C^C(defun c:ct ()+
  236. (setq m:err *error*)(defun *error* (msg)(menucmd "p2=p2draw")+
  237. (setq *error* m:err m:err nil)(princ))(command "CIRCLE" "TTR" pause pause pause)+
  238. (setq *error* m:err m:err nil)(princ))(princ);ct;^P
  239. [~--]$p2=p2draw
  240. [DRAW   >]$p2=p2draw $p2=*
  241.  
  242. **p2plgy
  243. [2D/3D Pline]
  244. [Polyline   ]^C^C^P$S=X $S=pline pline (menucmd "p2=p2draw")
  245. [3D Poly    ]^C^C$S=X $S=3dpoly 3dpoly (menucmd "p2=p2draw")
  246. [~--]
  247. [DRAW   >]$p2=p2draw $p2=*
  248.  
  249.  
  250. ***POP3
  251. [Modify]
  252. [Erase    ]*^C^C$S=X $S=erase erase si auto
  253. [  Oops!  ]^C^Coops
  254. [Move     ]^C^C$S=X $S=move move
  255. [Rotate   ]^C^C$S=X $S=rotate rotate
  256. [Scale    ]^C^C$S=X $S=scale scale
  257. [Stretch  ]^C^C$S=X $S=stretch stretch crossing
  258. [Trim     ]^C^C$S=X $S=trim trim auto
  259. [Extend   ]^C^C$S=X $S=extend extend auto
  260. [Break    ]^C^C$S=X $S=break break
  261. [Chamfer  ]^C^C$S=X $S=chamfer chamfer
  262. [Fillet   ]^C^C$S=X $S=fillet fillet
  263. [~--]
  264. [Copy     ]^C^C$S=X $S=copy copy
  265. [2D Array ]^C^C$S=X $S=array array
  266. [3D Array ]^C^C^P(if (not c:3darray) (if (not (findfile "3darray.lsp")) +
  267. (defun c:3darray ()(setq m:err *error*)(defun *error* (msg)+
  268. (setq *error* m:err m:err nil)(princ))(princ "Cannot find 3darray.lsp ");+
  269. (terpri) +(princ "It is on the SUPPORT DISK. ")(setq C:3DARRAY nil) +
  270. (setq *error* m:err m:err nil)(princ))(load "3darray")))(princ);3darray;^P
  271. [Mirror   ]^C^C$S=X $S=mirror mirror
  272. [Offset   ]^P^C^C$S=X $S=offset (if (not c:offstm)(defun c:offstm (/ m:err)+
  273. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  274. (if (and (/= (type m:od) 'REAL)(/= m:od pause))(setq m:od "T"))+
  275. (command "OFFSET" m:od)(princ)))(princ);offstm;^P
  276. [Divide   ]^P^C^C$S=X $S=divide (if (not c:dividem)(defun c:dividem (/ m:err)+
  277. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  278. (if(/= m:dmby "Yes")(setq m:dmby "No"))(if(/= m:dmba "Yes")(setq m:dmba "No"));+
  279. (if (/= (type m:dmbn) 'STR)(setq m:dmbn pause))(if (/= (type m:du) 'INT)+
  280. (setq m:du pause))(if (/= m:dmby "Yes")(command "DIVIDE" pause m:du)+
  281. (command "DIVIDE" pause "B" m:dmbn m:dmba m:du))(princ)))(princ);dividem;^P
  282. [Measure  ]^P^C^C$S=X $S=measure (if(not c:measurem)(defun c:measurem(/ m:err)+
  283. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  284. (if(/= m:dmby "Yes")(setq m:dmby "No"))(if(/= m:dmba "Yes")(setq m:dmba "No"));+
  285. (if (/= (type m:dmbn) 'STR)(setq m:dmbn pause))(if (/= (type m:md) 'REAL)+
  286. (setq m:md pause))(if (/= m:dmby "Yes")(command "MEASURE" pause m:md)+
  287. (command "MEASURE" pause "B" m:dmbn m:dmba m:md))(princ)))(princ);measurem;^P
  288. [~--]
  289. [PolyEdit ]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  290. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  291. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  292. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  293. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  294. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  295. (menucmd "S=X")(menucmd "S=P0"))(progn(terpri)+
  296. (princ "Entity selected is not a polyline.")(terpri)(setq m:s1 nil))))))))+
  297. (defun m:p1 (/ m:a)(menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil);+
  298. (menucmd"S=P0")(progn(setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")+
  299. (if(< m:a 4)(menucmd"S=P0")(menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)+
  300. (setq *error* m:err)(princ))(princ));PEDITM;^P
  301.  
  302.  
  303. ***POP4
  304. **p4disp
  305. [Display]
  306. [Redraw           ]'redraw
  307. [~--]
  308. [Mview           >]^C^C^P(if(= (getvar "TILEMODE") 1)+
  309. (command "TILEMODE" "0"))(princ)^P mview $S=X $S=mv $p4=p4mview $p4=*
  310. [~--]
  311. [Zoom Window      ]'zoom w
  312. [Zoom Previous    ]'zoom p
  313. [Zoom All         ]^C^Czoom a
  314. [Zoom Dynamic     ]'zoom d
  315. [Zoom Vmax        ]'zoom v
  316. [~--]
  317. [Pan              ]'pan
  318. [Dview            ]^C^C$S=X $S=DVIEW DVIEW
  319. [Dview Options... ]^C^C^P(if (not c:dv1) (defun c:dv1 (/ m:err)+
  320. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ));+
  321. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  322. (princ "*** Command not allowed in Paper space ***")(princ));+
  323. (progn (menucmd "I=DVIEWI")(menucmd "I=*")));+
  324. (setq *error* m:err)(princ)))(princ);dv1;^P
  325. [Vpoint 3D...     ]^C^C^P(if (not c:vp1) (defun c:vp1 (/ m:err)+
  326. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ));+
  327. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  328. (princ "*** Command not allowed in Paper space ***")(princ));+
  329. (progn (menucmd "S=X")(menucmd "S=VPOINT3D")(menucmd "I=3dviews")+
  330. (menucmd "I=*")))(setq *error* m:err)(princ)))(princ);vp1;^P
  331. [~--]
  332. [Plan View (UCS)  ]^C^C^P+
  333. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  334. (princ "*** Command not allowed in Paper space ***")(princ));+
  335. (command "plan" ""))(princ) ^P
  336. [Plan View (World)]^C^C^P+
  337. (if (and (= (getvar "TILEMODE") 0)(= (getvar "CVPORT") 1)) (progn+
  338. (princ "*** Command not allowed in Paper space ***")(princ));+
  339. (command "plan" "world"))(princ) ^P
  340. [~--]
  341. [Shade            ]^C^C$S=X $S=shade
  342. [Hide             ]^C^C$S=X $S=hide
  343.  
  344.  
  345. **p4mview
  346. [Mview]
  347. [Mspace        ]^C^C$S=X $S=mv Mspace
  348. [Pspace        ]^C^C$S=X $S=mv Pspace
  349. [Toggle VP   ^V]^V
  350. [~--]
  351. [Mview ON      ]^C^C$S=X $S=mv Mview ON
  352. [Mview OFF     ]^C^C$S=X $S=mv Mview OFF
  353. [Mview Hideplot]^C^C$S=X $S=mv Mview Hideplot
  354. [Mview Fit     ]^C^C$S=X $S=mv Mview Fit
  355. [Mview 2       ]^C^C$S=X $S=mv2 Mview 2
  356. [Mview 3       ]^C^C$S=X $S=mv2 Mview 3
  357. [Mview 4       ]^C^C$S=X $S=mv2 Mview 4
  358. [~--]
  359. [Vplayer       ]^C^C$S=X $S=vpla Vplayer
  360. [~--]
  361. [DISPLAY      >]$p4=p4disp $p4=*
  362.  
  363. ***POP5
  364. [Settings]
  365. [Snap  On/Off   ^B]^B
  366. [Grid  On/Off   ^G]^G
  367. [Ortho On/Off   ^O]^O
  368. [~--]
  369. [Layer Control... ]'ddlmodes
  370. [Drawing Tools... ]'ddrmodes
  371. [Set SysVars      ]'setvar
  372. [Set Dim Vars...  ]^C^C^P(terpri)(prompt (strcat "Current dimension style: "+
  373. (setq m:dsty (getvar "DIMSTYLE"))))(princ)^P dim $I=dimset $I=*
  374. [~--]
  375. [UCS Control...   ]^C^Cdducs
  376. [UCS Options...   ]$I=ucs $I=*
  377. [UCS Previous     ]^C^CUCS P
  378. [Ucsicon On/Off/OR]^P(if (not m:ucsi)(defun m:ucsi (/ m:err)+
  379. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  380. (cond ((= (getvar "UCSICON") 1) (setvar "UCSICON" 0));+
  381. ((=(getvar "UCSICON")0)(setvar "UCSICON" 3))(T (setvar "UCSICON" 1)))+
  382. (princ)))(princ);(m:ucsi);^P
  383. [~--]
  384. [Shade Style      ]'shadedge \'shadedif
  385.  
  386. ***POP6
  387. **p6opt
  388. [Options]
  389. [Entity Creation...]'ddemodes
  390. [~--]
  391. [2D Polyline Width ]^C^C^P(if (not c:spw)(defun c:spw (/ m:err m:pw m:spw)+
  392. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)+
  393. (setvar "CMDECHO" m:spw)(princ))(setq m:spw (getvar "CMDECHO"))(initget 5)+
  394. (setvar "CMDECHO" 0)(setq m:pw (getdist "Enter default polyline width: "));+
  395. (command "PLINE" "0,0" "W" m:pw m:pw "0,0" "")(entdel (entlast))+
  396. (setvar "CMDECHO" m:spw)(setq *error* m:err)(princ)))(princ);spw;^P
  397. [Polygon Creation  ]^C^C^P(if (not c:pgm)+
  398. (defun c:pgm (/ m:err m:ps0 m:ps1 m:pe0 m:pe1 m:pg0 m:pg1)(setq m:err *error*)+
  399. (defun *error* (msg)(setq *error* m:err)(princ))(if (= (type m:ps) 'INT);+
  400. (setq m:ps0 (itoa m:ps))(setq m:ps0 "."))(while (not m:ps1)(initget 6 ".")+
  401. (setq m:ps1 (getint+
  402. (strcat "Number of polygon sides or  .  to prompt each time <" m:ps0 ">: ")));+
  403. (if (= m:ps1 nil)(setq m:ps1 m:ps))(if (or (= m:ps1 nil) (= m:ps1 "."))+
  404. (setq m:ps nil m:ps1 T)(if (or (< m:ps1 3) (> m:ps1 1024))(progn (terpri)+
  405. (princ"Value must be between 3 and 1024.")(terpri)(setq m:ps1 nil));+
  406. (setq m:ps m:ps1))))(if m:pe (setq m:pe0 m:pe)(setq m:pe0 "."))+
  407. (initget "Edge Center .")(setq m:pe1 (getkword (strcat +
  408. "Choose polygon creation mode (Edge/Center) or . to prompt each time <";+
  409. m:pe0 ">: ")))(if (/= m:pe1 nil)(setq m:pe m:pe1))(if (= m:pe ".")+
  410. (setq m:pe nil))(if(= m:pe "Center")(progn (if m:pg (setq m:pg0 (substr m:pg 1 1));+
  411. (setq m:pg0 "."))(initget "Circumscribed Inscribed .")(setq m:pg1 (getkword+
  412. (strcat"Inscribed in/Circumscribed about circle (I/C) or . to prompt each time <"+
  413. m:pg0 ">: ")))(if (/= m:pg1 nil)(setq m:pg m:pg1))(if (= m:pg ".");+
  414. (setq m:pg nil))))(setq *error* m:err)(princ)))(princ);pgm;^P
  415. [Donut Diameters   ]^P^C^C(defun *error* (msg)(setq *error* m:err)(princ))+
  416. (princ)(setq oce (getvar "cmdecho"))(setvar "cmdecho" 1)(princ);+
  417. (command "donut" pause)(progn(setvar "cmdecho" 0)(command pause "") +
  418. (setvar "cmdecho" oce)(setq *error* m:err)(princ))(princ) ^P
  419. [~--]
  420. [INSERT OPTIONS   >]$p6=p6insert $p6=* \$p6=p6opt
  421. [DTEXT OPTIONS    >]$p6=p6dtext $p6=* \$p6=p6opt
  422. [HATCH OPTIONS    >]$p6=p6hatch $p6=* \$p6=p6opt
  423. [~--]
  424. [Point Size        ]^C^C^P(if (not c:pds)(defun c:pds (/ m:err m:d m:e)+
  425. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))(initget 6);+
  426. (setq m:d (rtos (getdist (strcat (chr 13) (chr 10) "Enter new point size <"+
  427. (rtos (getvar "PDSIZE")) ">: "))))(if (< (getvar "PDSIZE") 0)(setq m:a "P")+
  428. (setq m:a "A"))(initget "Absolute Percent")(setq m:e (getkword (strcat;+
  429. (chr 13)(chr 10)"Use value as Absolute size or Percent of screen size (A/P) <"+
  430. m:a ">:")))(if (= m:e nil)(setq m:e m:a))(if (= (substr m:e 1 1) "P")+
  431. (setq m:e "-")(setq m:e "+"))(if(= m:d nil)(setq m:d (rtos(getvar "PDSIZE"))));+
  432. (setvar "PDSIZE" (atof (strcat m:e m:d)))(prompt "New point size is: ")+
  433. (prin1 (getvar "PDSIZE"))(setq *error* m:er)(princ)))(princ);pds;^P
  434. [Point Type...     ]^C^C^P(if (not c:pdm)(defun c:pdm+
  435. (/ m:err m:co m:ce m:ps m:pdm)(setq m:err *error* m:ce (getvar "CMDECHO"))+
  436. (defun *error* (msg)(setvar"CMDECHO" m:ce)(redraw)(if m:ps(command "MSPACE"));+
  437. (setq *error* m:err)(princ))(defun m:pdm (/ m:px m:py m:c m:va m:vi m:xa m:ya +
  438. 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)+
  439. (setq m:co (trans m:co 1 0) m:px (car m:co) m:py (cadr m:co) m:ct 1.3807281;+
  440. m:c (trans (getvar "VIEWCTR") 1 0) m:va (trans (getvar "VSMAX") 1 0) m:vi+
  441. (trans (getvar "VSMIN") 1 0) m:xa (- (car m:va) (car m:vi))+
  442. m:ya (- (cadr m:va) (cadr m:vi)) m:p (/ m:xa m:ya) m:yr (getvar "VIEWSIZE");+
  443. m:xr (* m:p m:yr) m:lx (- (car m:c)(/ m:xr 2)) m:ly (- (cadr m:c)(/ m:yr 2)))+
  444. (if (> m:xa (* m:ct m:yr))(setq m:sx (* m:yr m:ct) m:sy m:yr)(setq m:sy+
  445. (/ m:xr m:ct) m:sx m:xr))  (setq m:stx (/(*(- m:px m:lx) m:ct) m:sx) m:sty;+
  446. (/ (- m:py m:ly) m:sy) m:xp '((0.165 x) (0.353 0) (0.5545 1) (0.7522 2)+
  447. (0.95104 3) (1.14981 4) (1.38 x)) m:f T)(foreach x m:xp (if (and (< m:stx;+
  448. (car x)) m:f)(setq m:f nil m:xl (cadr x))))(setq m:yp '((0.937 x) (0.694 0)+
  449. (0.523 32) (0.211 64) (0 96)) m:f T)(foreach y m:yp (if (and (> m:sty+
  450. (car y)) m:f)(setq m:f nil m:yl (cadr y))))(if (and m:xl m:yl (/= m:xl 'x);+
  451. (/= m:yl 'x))(setvar "PDMODE" (+ m:xl m:yl))(progn (terpri)+
  452. (prompt "Selection undefined. Point mode unchanged: ")))(princ+
  453. (getvar "PDMODE")))(setvar "CMDECHO" 0)(if (and (= (getvar "TILEMODE") 0);+
  454. (/= (getvar "CVPORT")1))(progn(setq m:ps 1)(command "PSPACE")))+
  455. (command "VSLIDE" "acad(points)")(prompt "Select new point mode <")+
  456. (prin1 (getvar "PDMODE"))(prompt ">: ");+
  457. (initget 8 "0 1 2 3 4 32 33 34 35 36 64 65 66 67 78 96 97 98 99 100")+
  458. (setq m:co(getpoint))(if(=(type m:co)'STR)(setvar"PDMODE"(atoi m:co))(m:pdm))+
  459. (redraw)(if m:ps(command "MSPACE"))(setq *error* m:er)(setvar"CMDECHO" m:ce);+
  460. (princ)))(princ);pdm;^P
  461. [Linetype Scale    ]^C^Cltscale
  462. [~--]
  463. [Chamfer Distances ]'chamfera \'chamferb
  464. [Fillet Radius     ]'filletrad
  465. [Offset Distance   ]^C^C^P(if (not c:omset)(defun c:omset (/ m:err m:od2)+
  466. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  467. (if (/= (type m:od) 'REAL)(if (= m:od pause)(setq m:od2 ".");+
  468. (setq m:od "T" m:od2 "T"))(setq m:od2 m:od))(initget 6 "Through .");+
  469. (setq m:od2 (getreal (strcat (chr 13)(chr 10)+
  470. "Enter Offset Distance or Through or . to prompt each time <"+
  471. (if(=(type m:od2) 'REAL)(rtos m:od2)(eval m:od2)) ">: ")))(if(/= m:od2 nil);+
  472. (setq m:od m:od2))(if (= m:od2 ".")(setq m:od pause))(princ)))(princ);omset;^P
  473. [Divide Units      ]^C^C^P(if (not c:du)(defun c:du (/ m:err m:du0 m:du1 m:du2)+
  474. (setq m:err *error* m:du0 T)(defun *error* (msg)(setq *error* m:err)(princ))+
  475. (if (not m:du)(setq m:du pause))(if (/= (type m:du) 'INT)(setq m:du1 ".");+
  476. (setq m:du1 m:du))(initget 6 ".")(while m:du0(setq m:du2(getint(strcat(chr 13)+
  477. (chr 10)"Enter default Number of Units for DIVIDE or . to prompt each time <"+
  478. (if(= m:du1 ".")(eval m:du1)(itoa m:du1))">: ")))(if(or(and(> m:du2 1);+
  479. (< m:du2 32768))(= m:du2 ".")(= m:du2 nil))(setq m:du0 nil)(princ(strcat+
  480. (chr 13)(chr 10)"Value must be between 2 and 32767. "))))(if (= m:du2 nil)+
  481. (setq m:du1 m:du)(setq m:du1 m:du2))(if(or(= m:du1 ".")(= m:du1 pause));+
  482. (setq m:du pause)(setq m:du m:du1))(setq *error* m:err)(princ)))(princ);du;^P
  483. [Measure Distance  ]^C^C^P(if (not c:md)(defun c:md (/ m:err m:md1)+
  484. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  485. (if (not m:md)(setq m:md pause))(if (/= (type m:md) 'REAL)(setq m:md1 ".");+
  486. (setq m:md1 m:md))(initget 6 ".")(setq m:md1 (getreal(strcat+
  487. "Enter default Distance for MEASURE or . to prompt each time <"+
  488. (if (= m:md1 ".")(eval m:md1)(rtos m:md1))">: ")))(if (= m:md1 nil);+
  489. (setq m:md1 m:md))(if (or (= m:md1 ".")(= m:md1 pause))(setq m:md pause)+
  490. (setq m:md m:md1))(setq *error* m:err)(princ)))(princ);md;^P
  491. [  D/M Block Name  ]^C^C^P(if (not c:dmbn)(defun c:dmbn (/ m:err m:dmby2 m:dmbn2 +
  492. m:dmba2)(setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  493. (if (/= m:dmby "Yes")(setq m:dmby "No"))(initget "No Yes")(setq m:dmby2;+
  494. (getkword(strcat "Use Block for DIVIDE or MEASURE? (Y/N) <" m:dmby ">: ")))+
  495. (if (/= m:dmby2 nil)(setq m:dmby m:dmby2))(if (= m:dmby "Yes")(progn+
  496. (if (/= (type m:dmbn) 'STR)(setq m:dmbn pause))(if (= m:dmbn pause);+
  497. (setq m:dmbn2 ".")(setq m:dmbn2 m:dmbn))(setq m:dmbn2(getstring(strcat+
  498. "Enter Block name to use or . to prompt each time <" m:dmbn2 ">: ")))+
  499. (if(= m:dmbn2 "")(setq m:dmbn2 m:dmbn))(if (= m:dmbn2 ".")(setq m:dmbn pause);+
  500. (setq m:dmbn m:dmbn2))(if(/= m:dmba "Yes")(setq m:dmba "No"))(initget "No Yes")+
  501. (setq m:dmba2(getkword(strcat"Align Block during DIVIDE/MEASURE (Y/N) <"m:dmba+
  502. ">: ")))(if(/= m:dmba2 nil)(setq m:dmba m:dmba2))))(princ)))(princ);dmbn;^P
  503. [Dimension Style   ]^C^Cdim;restore;?;;
  504.  
  505. **p6insert
  506. [Insertion]
  507. [Block Name    ]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  508. (setq *error* m:err)(princ))(if (and (= (type m:ibn) 'STR) (/= m:ibn pause))+
  509. (setq m:si0 m:ibn)(setq m:si0 "."))(setq m:si0 (getstring (strcat ;+
  510. "Enter Block Name to use or  .  to prompt each time <" m:si0 ">: ")))+
  511. (if(= m:si0 "")(setq m:si0 m:ibn))(if(=(type m:si0)'STR)(setq m:ibn m:si0)+
  512. (setq m:ibn pause))(if(= m:ibn ".")(setq m:ibn pause))(setq *error* m:err);+
  513. (princ));setins;^P
  514. [~--]$p6=p6opt
  515. [X Scale Factor]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  516. (setq *error* m:err)(princ))(if(=(type m:ixs) 'REAL)(setq m:si0 (rtos m:ixs))+
  517. (setq m:si0 "."))(initget ".")(terpri)(setq m:si0 (getreal (strcat;+
  518. "Enter X Scale Factor to use or  .  to prompt each time <" m:si0 ">: ")))+
  519. (if (= m:si0 nil) (setq m:si0 m:ixs))(if (= (type m:si0) 'REAL)+
  520. (setq m:ixs m:si0)(setq m:ixs pause))(setq *error* m:err)(princ));setins;^P
  521. [Y Scale Factor]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  522. (setq *error* m:err)(princ))(if(=(type m:iys) 'REAL)(setq m:si0 (rtos m:iys))+
  523. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  524. "Enter Y Scale Factor to use (or 'X') or  .  to prompt each time <" m:si0 ">: ")))+
  525. (if (= m:si0 nil) (setq m:si0 m:iys))(if (= m:si0 "X")+
  526. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:iys m:si0);+
  527. (setq m:iys pause))(setq *error* m:err)(princ));setins;^P
  528. [Z Scale Factor]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  529. (setq *error* m:err)(princ))(if(=(type m:izs) 'REAL)(setq m:si0 (rtos m:izs))+
  530. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  531. "Enter Z Scale Factor to use (or 'X') or  .  to prompt each time <" m:si0 ">: ")))+
  532. (if (= m:si0 nil) (setq m:si0 m:izs))(if (= m:si0 "X")+
  533. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:izs m:si0);+
  534. (setq m:izs pause))(setq *error* m:err)(princ));setins;^P
  535. [~--]$p6=p6opt
  536. [Rotation Angle]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  537. (setq *error* m:err)(princ))(if(=(type m:ira) 'REAL)(setq m:si0 (rtos m:ira))+
  538. (setq m:si0 "."))(initget ".")(terpri)(setq m:si0 (getreal (strcat;+
  539. "Enter Rotation Angle to use or  .  to prompt each time <" m:si0 ">: ")))+
  540. (if (= m:si0 nil) (setq m:si0 m:ira))(if (= (type m:si0) 'REAL)+
  541. (setq m:ira m:si0)(setq m:ira pause))(setq *error* m:err)(princ));setins;^P
  542. [~--]$p6=p6opt
  543. [Set All]^C^C^P(defun c:setins (/ m:err m:si0)(defun *error* (msg)+
  544. (setq *error* m:err)(princ))(if (and (= (type m:ibn) 'STR) (/= m:ibn pause))+
  545. (setq m:si0 m:ibn)(setq m:si0 "."))(setq m:si0 (getstring (strcat ;+
  546. "Enter Block Name to use or  .  to prompt each time <" m:si0 ">: ")))+
  547. (if(= m:si0 "")(setq m:si0 m:ibn))(if(=(type m:si0)'STR)(setq m:ibn m:si0)+
  548. (setq m:ibn pause))(if(= m:ibn ".")(setq m:ibn pause))(if(=(type m:ixs)'REAL);+
  549. (setq m:si0 (rtos m:ixs))(setq m:si0 "."))+
  550. (initget ".")(terpri)(setq m:si0 (getreal (strcat+
  551. "Enter X Scale Factor to use or  .  to prompt each time <" m:si0 ">: ")));+
  552. (if (= m:si0 nil) (setq m:si0 m:ixs))(if (= (type m:si0) 'REAL)(setq m:ixs +
  553. m:si0)(setq m:ixs pause))(if(=(type m:iys) 'REAL)(setq m:si0 (rtos m:iys))+
  554. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  555. "Enter Y Scale Factor to use (or 'X') or  .  to prompt each time <" m:si0 ">: ")))+
  556. (if (= m:si0 nil) (setq m:si0 m:iys))(if (= m:si0 "X")+
  557. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:iys m:si0);+
  558. (setq m:iys pause))(if(=(type m:izs) 'REAL)(setq m:si0 (rtos m:izs))+
  559. (setq m:si0 "."))(initget ". X")(terpri)(setq m:si0 (getreal (strcat;+
  560. "Enter Z Scale Factor to use (or 'X') or  .  to prompt each time <" m:si0 ">: ")))+
  561. (if (= m:si0 nil) (setq m:si0 m:izs))(if (= m:si0 "X")+
  562. (setq m:si0 m:ixs))(if(=(type m:si0)'REAL)(setq m:izs m:si0);+
  563. (setq m:izs pause))(if(=(type m:ira) 'REAL)(setq m:si0 (rtos m:ira))+
  564. (setq m:si0 "."))(initget ".")(terpri)(setq m:si0 (getreal (strcat;+
  565. "Enter Rotation Angle to use or  .  to prompt each time <" m:si0 ">: ")))+
  566. (if (= m:si0 nil) (setq m:si0 m:ira))(if (= (type m:si0) 'REAL)+
  567. (setq m:ira m:si0)(setq m:ira pause))(setq *error* m:err)(princ));setins;^P
  568. [Clear All]^P(setq m:ibn pause m:ixs pause m:iys pause m:izs pause m:ira pause)+
  569. (terpri)(prompt "INSERT will prompt for ALL options.")(princ);^P
  570. [~--]$p6=p6opt
  571. [List Blocks]^C^CINSERT ? \$p6=p6opt
  572. [~--]$p6=p6opt
  573. [OPTIONS      >]$p6=p6opt $p6=*
  574.  
  575.  
  576. **p6dtext
  577. [DText]
  578. [Text Font...     ]$P6=p6opt $I=fonts1 $I=*
  579. [Text Alignment...]$P6=p6opt $I=txtalign $I=*
  580. [Text Height      ]^C^C^P(if (not c:th)(defun c:th (/ m:err m:th0)+
  581. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  582. (if(/= (type m:th) 'REAL)(setq m:th pause))(if(= m:th pause)(setq m:th0 ".");+
  583. (setq m:th0 (rtos m:th)))(initget 6 ".")(setq m:th0(getreal(strcat+
  584. "Enter default text height or . to prompt each time <" m:th0 ">: ")))+
  585. (if(=(type m:th0) 'REAL)(setq m:th m:th0)(if(= m:th0 ".")(setq m:th pause)));+
  586. (setq *error* m:err)(prin1)))(princ);th;^P
  587. [Text Rotation    ]^C^C^P(if (not c:tr)(defun c:tr (/ m:err m:tr0)+
  588. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  589. (if(/=(type m:tr) 'REAL)(setq m:tr pause))(if (= m:tr pause)(setq m:tr0 ".");+
  590. (setq m:tr0 (rtos m:tr)))(initget ".")(setq m:tr0(getreal(strcat+
  591. "Enter default text rotation or . to prompt each time <" m:tr0 ">: ")))+
  592. (if(=(type m:tr0) 'REAL)(setq m:tr m:tr0)(if(= m:tr0 ".")(setq m:tr pause)));+
  593. (setq *error* m:err)(prin1)))(princ);tr;^P
  594. [~--]$p6=p6opt
  595. [OPTIONS         >]$p6=p6opt $p6=*
  596.  
  597. **p6hatch
  598. [Hatch]
  599. [Hatch Pattern...]$I=hatch1 $I=*
  600. [Hatch Style...  ]$I=hatchs $I=*
  601. [Hatch Scale]^C^C^P(if(not c:hsc)(defun c:hsc (/ m:err m:h0)(setq m:err *error*)+
  602. (defun *error* (msg)(setq *error* m:err)(princ))(if(/= (type m:hsc) 'REAL)+
  603. (setq m:hsc pause))(if(= m:hsc pause)(setq m:h0 ".");+
  604. (setq m:h0 (rtos m:hsc)))(initget 6 ".")(setq m:h0 (getreal(strcat+
  605. "Enter default Hatch scale or . to prompt each time <" m:h0 ">: ")))+
  606. (if(=(type m:h0) 'REAL)(setq m:hsc m:h0)(if(= m:h0 ".")(setq m:hsc pause)));+
  607. (setq *error* m:err)(prin1)))(princ);hsc;^P
  608. [Hatch Angle]^C^C^P(if(not c:hr)(defun c:hr (/ m:err m:h0)(setq m:err *error*)+
  609. (defun *error* (msg)(setq *error* m:err)(princ))(if(/= (type m:hr) 'REAL)+
  610. (setq m:hr pause))(if(= m:hr pause)(setq m:h0 ".");+
  611. (setq m:h0 (rtos m:hr)))(initget ".")(setq m:h0 (getreal(strcat+
  612. "Enter default Hatch rotation angle or . to prompt each time <" m:h0 ">: ")))+
  613. (if(=(type m:h0) 'REAL)(setq m:hr m:h0)(if(= m:h0 ".")(setq m:hr pause)));+
  614. (setq *error* m:err)(prin1)))(princ);hr;^P
  615. [~--]$p6=p6opt
  616. [OPTIONS        >]$p6=p6opt $p6=*
  617.  
  618.  
  619. ***POP7
  620. [Utility]
  621. [U             ]U
  622. [Redo          ]^C^CRedo
  623. [~--]
  624. [Undo Mark     ]^C^CUndo M
  625. [Undo Back     ]^C^CUndo B
  626. [~--]
  627. [Area          ]^C^C$S=X $S=area area
  628. [Distance      ]^C^C$S=X $S=dist dist
  629. [ID Point      ]^P(if(not m:xid)(defun m:xid(/ m:err m:id1)+
  630. (setq m:err *error*)(defun *error* (msg)(setq *error* m:err)(princ))+
  631. (initget (+ 8))(setq m:id1 (getpoint "Select point: "))(if m:id1 (princ;+
  632. (strcat (chr 13)(chr 10)"X:  " (rtos(car m:id1)) "  Y: " (rtos(cadr m:id1))+
  633. "  Z: " (rtos(caddr m:id1))))(princ "No point selected. "))(princ)))+
  634. (princ);(m:xid);^P
  635. [~--]
  636. [List          ]^C^C$S=X $S=list list
  637. [Status        ]^C^Cstatus
  638. [Limits        ]^C^C$S=X $S=limits limits
  639. [Load LTypes   ]^C^C$S=X $S=ltype linetype l
  640. [~--]
  641. [AutoShade...]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  642. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  643. (princ))(defun m:shmn ()(menucmd(cond((= G:SVER 20) (if G:RMAN "I=ASRM" "I=AS"))+
  644. ((= G:SVER 11)"I=AS11")(T"")))(menucmd"I=*")(setq m:shmn nil);+
  645. (princ))(princ))(cond(G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (vmon)+
  646. (cond((findfile"ashade.lsp")(load"ashade")(setq *error* m:err m:err nil);+
  647. (if G:SVER(m:shmn)(progn(terpri)(prompt "The file '")+
  648. (princ (findfile "ashade.lsp"))(prompt "' is incompatible with AutoCAD r11.");+
  649. (setq m:shmn nil C:CAMERA nil C:LIGHT nil C:CAMVIEW nil C:SCENE nil)(princ))))+
  650. (T(terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  651. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  652. (setq *error* m:err m:err nil m:shmn nil)(princ))))) ^P
  653. [RenderMan...]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  654. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  655. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  656. (setq *error* m:err m:err nil)(menucmd"I=RM")(menucmd"I=*"))(progn(terpri);+
  657. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  658. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  659. (setq *error* m:err m:err nil)(princ))))(T(setq *error* m:err m:err nil)+
  660. (menucmd"I=RM")(menucmd"I=*")(princ))) ^P
  661.  
  662. ***POP8
  663. [File]
  664. [Save       ]^C^Csave
  665. [End        ]^C^Cend
  666. [Quit       ]^C^C$S=X $S=quit quit
  667. [~--]
  668. [Files      ]^C^Cfiles
  669. [Plot       ]^C^Cplot
  670. [Print      ]^C^Cprplot
  671. [~--]
  672. [EXCHANGE  >]$p8=p8xchg $p8=*
  673.  
  674. **p8xchg
  675. [Exchange]
  676. [DXF  In    ]^C^Cdxfin
  677. [DXB  In    ]^C^Cdxbin
  678. [IGES In    ]^C^Cigesin
  679. [~--]
  680. [Import Text]^C^C^P(if (not c:asctext) (if (not (findfile "asctext.lsp"))+
  681. (defun C:ASCTEXT () (princ "Cannot find asctext.lsp ")(terpri)+
  682. (princ "It is on the SAMPLE DISK. ")(setq C:ASCTEXT nil)(princ));+
  683. (load "asctext")));asctext;^P
  684. [~--]
  685. [DXF  Out   ]^C^Cdxfout
  686. [IGES Out   ]^C^Cigesout
  687. [Filmroll   ]^C^Cfilmroll
  688. [~--]
  689. [FILE      >]$p8= $p8=*
  690.  
  691. ***Comment
  692.  
  693.         The following AME menus may be called directly by the
  694.         AME application if it is loaded automatically.  Therefore,
  695.         for proper operation of AME, it is recommended that these
  696.         sub-menu names not be changed or deleted.  If it is necessary
  697.         to delete these menus, AME will continue to operate, but
  698.         without the benefit of AUI menus.
  699.  
  700. ***POP9
  701. [Solids]
  702. [~--           ]
  703. [   Load AME   ]^C^C^P+
  704. (defun *error* (msg)(if (= msg "null function")(progn (terpri)+
  705. (princ "ERROR: AME is not available on this platform.")(princ));+
  706. (progn(princ msg)(setq *error* m:err m:err nil f nil)(princ))))+
  707. (cond ((null c:solbox)(princ "Loading AME...")+
  708. (cond ((setq f (findfile "ame")) (xload f))+
  709. ((setq f (findfile "ame.exp")) (xload f));+
  710. (T (terpri)(princ "ERROR:  File not found. ")))+
  711. (if f (progn(terpri)(princ "AutoCAD AME executable loaded. ")+
  712. (menucmd "p9=p9prim")(menucmd "p9=*")(princ))+
  713. (progn(terpri)(princ "Unable to load AME executable. ")(princ))));+
  714. (T (menucmd "p9=p9prim")(menucmd "p9=*")(princ)));^P
  715. [ Load AMElite ]^C^C^P+
  716. (defun *error* (msg)(if (= msg "null function") (progn (terpri)+
  717. (princ "ERROR: AME is not available on this platform.")(princ));+
  718. (progn(princ msg)(setq *error* m:err m:err nil f nil)(princ))))+
  719. (cond ((null c:solbox)(princ "Loading AMElite...")+
  720. (cond ((setq f (findfile "amelite")) (xload f))+
  721. ((setq f (findfile "amelite.exp")) (xload f));+
  722. (T (terpri)(princ "ERROR:  File not found. ")))+
  723. (if f (progn(terpri)(princ "AutoCAD AMElite executable loaded. ")+
  724. (menucmd "p9=p9prim")(menucmd "p9=*")(princ))+
  725. (progn(terpri)(princ "Unable to load AMElite executable. ")(princ))));+
  726. (T (menucmd "p9=p9prim")(menucmd "p9=*")(princ)));^P
  727. [~--           ]
  728.  
  729.  
  730. **P9Prim
  731. [Sol-Prim's]
  732. [Box           ]^C^C$S=X $S=SBOX;Solbox;
  733. [Cone          ]^C^C$S=X $S=SCONE;Solcone;
  734. [Cylinder      ]^C^C$S=X $S=SCYL;Solcyl;
  735. [Sphere        ]^C^C$S=X $S=SSPH;Solsphere;
  736. [Torus         ]^C^C$S=X $S=STOR;Soltorus;
  737. [Wedge         ]^C^C$S=X $S=SWEDGE;Solwedge;
  738. [~--  ]
  739. [Extrude       ]^C^C$S=X $S=SEXT;Solext;
  740. [Revolve       ]^C^C$S=X $S=SREV;Solrev;
  741. [Solidify      ]^C^C$S=X $S=SSOLID;Solidify;
  742. [~--  ]
  743. [~]^C^C$P9=P9Prim;$P9=*;
  744. [MODIFY      >]^C^C$P9=p9Modify;$P9=*;
  745. [INQUIRY     >]^C^C$P9=p9Inquiry;$P9=*;
  746. [DISPLAY     >]^C^C$P9=P9Display;$P9=*;
  747. [UTILITY     >]^C^C$P9=P9Utility;$P9=*;
  748.  
  749. **P9Modify
  750. [Sol-Modify]
  751. [Intersect     ]^C^C$S=X $S=SINT;Solint;
  752. [Subtract      ]^C^C$S=X $S=SSUB;Solsub;
  753. [Union         ]^C^C$S=X $S=SUNION;Solunion;
  754. [~--  ]
  755. [Chamfer       ]^C^C$S=X $S=SCHAM;solcham;
  756. [Fillet        ]^C^C$S=X $S=SFILL;solfill;
  757. [~--  ]
  758. [Solid Move    ]^C^C$S=X $S=SMOVE;Solmove;
  759. [Change Prim.  ]^C^C$S=X $S=SCHP;Solchp;
  760. [Separate      ]^C^C$S=X $S=SSEP;Solsep;
  761. [~--  ]
  762. [PRIMITIVES  >]^C^C$P9=P9Prim;$P9=*;
  763. [~]^C^C$P9=p9Modify;$P9=*;
  764. [INQUIRY     >]^C^C$P9=p9Inquiry;$P9=*;
  765. [DISPLAY     >]^C^C$P9=P9Display;$P9=*;
  766. [UTILITY     >]^C^C$P9=P9Utility;$P9=*;
  767.  
  768. **P9Inquiry
  769. [Sol-Inquiry]
  770. [List Solid    ]^C^C$S=X $S=SLIST;Sollist;
  771. [Mass Property ]^C^C$S=X $S=SMASSP;Solmassp;
  772. [Solid Area    ]^C^C$S=X $S=SAREA;Solarea;
  773. [~--  ]
  774. [British units ]^C^Csolvar sollength ft;;;solmass lb;;+
  775. solareau sq ft;;solvolume cu ft;
  776. [CGS units     ]^C^Csolvar sollength cm;;;solmass gm;;+
  777. solareau sq cm;;solvolume cu cm;
  778. [SI units      ]^C^Csolvar sollength m;;;solmass kg;;+
  779. solareau sq m;;solvolume cu m;
  780. [~--  ]
  781. [~]^C^C$P9=p9Inquiry;$P9=*;
  782. [~]^C^C$P9=p9Inquiry;$P9=*;
  783. [~]^C^C$P9=p9Inquiry;$P9=*;
  784. [PRIMITIVES  >]^C^C$P9=P9Prim;$P9=*;
  785. [MODIFY      >]^C^C$P9=p9Modify;$P9=*;
  786. [~]^C^C$P9=p9Inquiry;$P9=*;
  787. [DISPLAY     >]^C^C$P9=P9Display;$P9=*;
  788. [UTILITY     >]^C^C$P9=P9Utility;$P9=*;
  789.  
  790. **P9Display
  791. [Sol-Display]
  792. [Mesh          ]^C^C$S=X $S=SMESH;Solmesh;
  793. [Wireframe     ]^C^C$S=X $S=SWIRE;Solwire;
  794. [~--  ]
  795. [Copy Feature  ]^C^C$S=X $S=SFEAT;Solfeat;
  796. [Cut Section   ]^C^C$S=X $S=SSECT;Solsect;
  797. [Profile       ]^C^C$S=X $S=SPROF;Solprof;
  798. [~--  ]
  799. [Set Decomp.   ]^C^CSolvar soldecomp
  800. [Set Subdiv.   ]^C^CSolvar solsubdiv
  801. [Set Wire Dens.]^C^CSolvar solwdens
  802. [~--  ]
  803. [PRIMITIVES  >]^C^C$P9=P9Prim;$P9=*;
  804. [MODIFY      >]^C^C$P9=p9Modify;$P9=*;
  805. [INQUIRY     >]^C^C$P9=p9Inquiry;$P9=*;
  806. [~]^C^C$P9=P9Display;$P9=*;
  807. [UTILITY     >]^C^C$P9=P9Utility;$P9=*;
  808.  
  809. **P9Utility
  810. [Sol-Utility]
  811. [Material      ]^C^C$S=X $S=SCHMAT;Solmat;
  812. [Solvars       ]^C^C$S=X $S=SSOLV;Solvar;
  813. [SolUCS        ]^C^C$S=X $S=SUCS;Solucs;
  814. [~--  ]
  815. [SOL in   .asm ]^C^CSolin;
  816. [SOL out  .asm ]^C^CSolout;
  817. [Purge Solids  ]^C^C$S=X $S=SPURGE;Solpurge;
  818. [~--  ]
  819. [Unload        ]^C^C^P(if (xunload "ame" nil)+
  820. (princ (strcat "AME unloaded." (chr 10))))+
  821. (if (xunload "amelite" nil)(princ "AMElite unloaded."))+
  822. (menucmd "p9=POP9")(princ);^P
  823. [AME or AMElite]^C^C^P(if (xunload "ame" nil)+
  824. (princ (strcat "AME unloaded." (chr 10))))+
  825. (if (xunload "amelite" nil)(princ "AMElite unloaded."))+
  826. (menucmd "p9=POP9")(princ);^P
  827. [~--  ]
  828. [PRIMITIVES  >]^C^C$P9=P9Prim;$P9=*;
  829. [MODIFY      >]^C^C$P9=p9Modify;$P9=*;
  830. [INQUIRY     >]^C^C$P9=p9Inquiry;$P9=*;
  831. [DISPLAY     >]^C^C$P9=P9Display;$P9=*;
  832. [~]^C^C$P9=P9Utility;$P9=*;
  833.   
  834. ***POP13
  835. **P13pivot
  836. [Pivot ]   
  837. [~--]
  838. [Perforator]
  839. [ Solid    ]^C^C^P(Load "/ppc/pperf") perf
  840. [Ejector   ]^C^C^P(Load "/ppc/eperf") perf
  841. [    repeat]perf
  842. [~--]
  843. [Guide     ]^C^C^P(Load "/ppc/gguide") guide
  844. [    repeat]guide
  845. [~--]
  846. [Die Button]^C^C^P(Load "/ppc/ddies") button
  847. [    repeat]button
  848. [~--]
  849. [Pilot     ]^C^C^P(Load "/ppc/npilot") pilot
  850. [    repeat]pilot
  851. [~--]
  852. [Parts List]^C^Cattext s /ppc/pivtemp  script /ppc/pivpart
  853. [~--]
  854. [Draw    > ]^C^C^P(menucmd "P2=P2draw"  "P2=*")
  855.  
  856. **P13shape1
  857. [Shape] 
  858. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  859. [~--]
  860. [   Round   ]C
  861. [  Square   ]S
  862. [  Flatted  ]F
  863. [  Oblong   ]O
  864. [ Rectangle ]R
  865. [  Hexagon  ]H
  866. [     F4    ]F4
  867. [    F11    ]F11
  868. [    F12    ]F12
  869. [    F19    ]F19
  870. [    F20    ]F20
  871. [    F23    ]F23
  872. [    F24    ]F24
  873. [    F35    ]F35
  874. [    F36    ]F36
  875.  
  876. **P13shape1a
  877. [Shape] 
  878. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  879. [~--]
  880. [   Round   ]C
  881. [  Square   ]S
  882. [  Flatted  ]F
  883. [  Oblong   ]O
  884. [ Rectangle ]R
  885. [  Hexagon  ]H
  886. [     F4    ]F4
  887. [    F11    ]F11
  888. [    F12    ]F12
  889. [    F19    ]F19
  890. [    F20    ]F20
  891. [    F23    ]F23
  892. [    F24    ]F24
  893.  
  894. **P13shape1b
  895. [Shape] 
  896. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  897. [~--]
  898. [   Round   ]C
  899. [  Square   ]S
  900. [  Flatted  ]F
  901. [  Oblong   ]O
  902. [ Rectangle ]R
  903. [  Hexagon  ]H
  904.  
  905. **P13shank1
  906. [Shank ]
  907. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  908. [-------]
  909. [  15   ]15
  910. [  12   ]12
  911.  
  912. **P13shank2
  913. [Shank ]
  914. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  915. [-------]
  916. [  12   ]12
  917.  
  918. **P13shank3
  919. [Shank ]
  920. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  921. [-------]
  922. [  18   ]18
  923. [  15   ]15
  924. [  12   ]12
  925.  
  926. **P13shank4
  927. [Shank ]
  928. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  929. [-------]
  930. [  18   ]18
  931. [  15   ]15
  932.  
  933. **P13shank5
  934. [Shank ]
  935. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  936. [-------]
  937. [  18   ]18
  938.  
  939. **P13shank6
  940. [Shank ]
  941. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  942. [-------]
  943. [  25   ]25
  944. [  18   ]18
  945. [  15   ]15
  946. [  12   ]12
  947.  
  948. **P13shank7
  949. [Shank ]
  950. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  951. [-------]
  952. [  25   ]25
  953. [  18   ]18
  954. [  15   ]15
  955.  
  956. **P13shank8
  957. [Shank ]
  958. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  959. [-------]
  960. [  25   ]25
  961. [  18   ]18
  962.  
  963. **P13shank9
  964. [Shank ]
  965. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  966. [-------]
  967. [  25   ]25
  968.  
  969. **P13shank10
  970. [Shank ]
  971. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  972. [-------]
  973. [  31   ]31
  974. [  25   ]25
  975. [  18   ]18
  976. [  15   ]15
  977. [  12   ]12
  978.  
  979. **P13shank11
  980. [Shank ]
  981. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  982. [-------]
  983. [  31   ]31
  984. [  25   ]25
  985. [  18   ]18
  986. [  15   ]15
  987.  
  988. **P13shank12
  989. [Shank ]
  990. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  991. [-------]
  992. [  31   ]31
  993. [  25   ]25
  994. [  18   ]18
  995.  
  996. **P13shank13
  997. [Shank ]
  998. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  999. [-------]
  1000. [  31   ]31
  1001. [  25   ]25
  1002.  
  1003. **P13shank14
  1004. [Shank ]
  1005. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1006. [-------]
  1007. [  31   ]31
  1008.  
  1009. **P13shank15
  1010. [Shank ]
  1011. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1012. [-------]
  1013. [  37   ]37
  1014. [  31   ]31
  1015. [  25   ]25
  1016. [  18   ]18
  1017. [  15   ]15
  1018.  
  1019. **P13shank16
  1020. [Shank ]
  1021. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1022. [-------]
  1023. [  37   ]37
  1024. [  31   ]31
  1025. [  25   ]25
  1026. [  18   ]18
  1027.  
  1028. **P13shank17
  1029. [Shank ]
  1030. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1031. [-------]
  1032. [  37   ]37
  1033. [  31   ]31
  1034. [  25   ]25
  1035.  
  1036. **P13shank18
  1037. [Shank ]
  1038. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1039. [-------]
  1040. [  37   ]37
  1041. [  31   ]31
  1042.  
  1043. **P13shank19
  1044. [Shank ]
  1045. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1046. [-------]
  1047. [  37   ]37
  1048.  
  1049. **P13shank21
  1050. [Shank ]
  1051. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1052. [-------]
  1053. [  43   ]43
  1054. [  37   ]37
  1055. [  31   ]31
  1056. [  25   ]25
  1057.  
  1058. **P13shank22
  1059. [Shank ]
  1060. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1061. [-------]
  1062. [  43   ]43
  1063. [  37   ]37
  1064. [  31   ]31
  1065.  
  1066. **P13shank23
  1067. [Shank ]
  1068. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1069. [-------]
  1070. [  43   ]43
  1071. [  37   ]37
  1072.  
  1073. **P13shank24
  1074. [Shank ]
  1075. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1076. [-------]
  1077. [  43   ]43
  1078.  
  1079. **P13shank25
  1080. [Shank ]
  1081. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1082. [-------]
  1083. [  50   ]50
  1084. [  43   ]43
  1085. [  37   ]37
  1086. [  31   ]31
  1087. [  25   ]25
  1088.  
  1089. **P13shank26
  1090. [Shank ]
  1091. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1092. [-------]
  1093. [  50   ]50
  1094. [  43   ]43
  1095. [  37   ]37
  1096. [  31   ]31
  1097.  
  1098. **P13shank27
  1099. [Shank ]
  1100. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1101. [-------]
  1102. [  50   ]50
  1103. [  43   ]43
  1104. [  37   ]37
  1105.  
  1106. **P13shank28
  1107. [Shank ]
  1108. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1109. [-------]
  1110. [  50   ]50
  1111. [  43   ]43
  1112.  
  1113. **P13shank29
  1114. [Shank ]
  1115. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1116. [-------]
  1117. [  50   ]50
  1118.  
  1119. **P13shank30
  1120. [Shank ]
  1121. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1122. [-------]
  1123. [  62   ]62
  1124. [  50   ]50
  1125. [  43   ]43
  1126. [  37   ]37
  1127.  
  1128. **P13shank31
  1129. [Shank ]
  1130. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1131. [-------]
  1132. [  62   ]62
  1133. [  50   ]50
  1134. [  43   ]43
  1135.  
  1136. **P13shank32
  1137. [Shank ]
  1138. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1139. [-------]
  1140. [  62   ]62
  1141. [  50   ]50
  1142.  
  1143. **P13shank33
  1144. [Shank ]
  1145. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1146. [-------]
  1147. [  62   ]62
  1148.  
  1149. **P13shank34
  1150. [Shank ]
  1151. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1152. [-------]
  1153. [  75   ]75
  1154. [  62   ]62
  1155. [  50   ]50
  1156.  
  1157. **P13shank35
  1158. [Shank ]
  1159. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1160. [-------]
  1161. [  75   ]75
  1162. [  62   ]62
  1163.  
  1164. **P13shank36
  1165. [Shank ]
  1166. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1167. [-------]
  1168. [  75   ]75
  1169.  
  1170. **P13shank37
  1171. [Shank ]
  1172. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1173. [-------]
  1174. [ 100   ]100
  1175. [  75   ]75
  1176.  
  1177. **P13shank38
  1178. [Shank ]
  1179. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1180. [-------]
  1181. [ 100   ]100
  1182.  
  1183. **P13shank39
  1184. [Shank ]
  1185. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1186. [-------]
  1187. [  62   ]62
  1188. [  50   ]50
  1189. [  43   ]43
  1190. [  37   ]37
  1191. [  31   ]31
  1192.  
  1193. **P13shank40
  1194. [Shank ]
  1195. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1196. [-------]
  1197. [ 100   ]100
  1198. [  75   ]75
  1199. [  62   ]62
  1200.  
  1201. **P13shank43
  1202. [Shank ]
  1203. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1204. [-------]
  1205. [  75   ]75
  1206. [  62   ]62
  1207. [  50   ]50
  1208. [  43   ]43
  1209.  
  1210. **P13shank44
  1211. [Shank ]
  1212. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1213. [-------]
  1214. [ 100   ]100
  1215. [  75   ]75
  1216. [  62   ]62
  1217. [  50   ]50
  1218.  
  1219. **P13shank46
  1220. [Shank ]
  1221. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1222. [-------]
  1223. [  75   ]75
  1224. [  62   ]62
  1225. [  50   ]50
  1226. [  43   ]43
  1227. [  37   ]37
  1228.  
  1229. **P13shank47
  1230. [Shank ]
  1231. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1232. [-------]
  1233. [  62   ]62
  1234. [  50   ]50
  1235. [  43   ]43
  1236. [  37   ]37
  1237. [  31   ]31
  1238. [  25   ]25
  1239.  
  1240. **P13shank48
  1241. [Shank ]
  1242. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1243. [-------]
  1244. [  37   ]37
  1245. [  31   ]31
  1246. [  25   ]25
  1247. [  18   ]18
  1248. [  15   ]15
  1249. [  12   ]12
  1250.  
  1251. **P13shank49
  1252. [Shank ]
  1253. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1254. [-------]
  1255. [ 100   ]100
  1256. [  75   ]75
  1257. [  62   ]62
  1258. [  50   ]50
  1259. [  43   ]43
  1260.  
  1261. **P13shank50
  1262. [Shank ]
  1263. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1264. [-------]
  1265. [  43   ]43
  1266. [  37   ]37
  1267. [  31   ]31
  1268. [  25   ]25
  1269. [  18   ]18
  1270. [  15   ]15
  1271. [  12   ]12
  1272.  
  1273. **P13shank51
  1274. [Shank ]
  1275. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1276. [-------]
  1277. [  43   ]43
  1278. [  37   ]37
  1279. [  31   ]31
  1280. [  25   ]25
  1281. [  18   ]18
  1282. [  15   ]15
  1283. [  12   ]12
  1284.  
  1285. **P13shank52
  1286. [Shank ]
  1287. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1288. [-------]
  1289. [  43   ]43
  1290. [  37   ]37
  1291. [  31   ]31
  1292. [  25   ]25
  1293. [  18   ]18
  1294.  
  1295. **P13shank53
  1296. [Shank ]
  1297. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1298. [-------]
  1299. [  50   ]50
  1300. [  43   ]43
  1301. [  37   ]37
  1302. [  31   ]31
  1303. [  25   ]25
  1304. [  18   ]18
  1305. [  15   ]15
  1306.  
  1307. **P13shank54
  1308. [Shank ]
  1309. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1310. [-------]
  1311. [  50   ]50
  1312. [  43   ]43
  1313. [  37   ]37
  1314. [  31   ]31
  1315. [  25   ]25
  1316. [  18   ]18
  1317.  
  1318. **P13shank55
  1319. [Shank ]
  1320. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1321. [-------]
  1322. [  75   ]75
  1323. [  62   ]62
  1324. [  50   ]50
  1325. [  43   ]43
  1326. [  37   ]37
  1327. [  31   ]31
  1328.  
  1329. **P13shank56
  1330. [Shank ]
  1331. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1332. [-------]
  1333. [ 100   ]100
  1334. [  75   ]75
  1335. [  62   ]62
  1336. [  50   ]50
  1337. [  43   ]43
  1338.  
  1339. **P13shank57
  1340. [Shank ]
  1341. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1342. [-------]
  1343. [ 100   ]100
  1344. [  75   ]75
  1345. [  62   ]62
  1346. [  50   ]50
  1347. [  43   ]43
  1348. [  37   ]37
  1349. [  31   ]31
  1350. [  25   ]25
  1351.  
  1352. **P13shank58
  1353. [Shank ]
  1354. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1355. [-------]
  1356. [ 100   ]100
  1357. [  75   ]75
  1358. [  62   ]62
  1359. [  50   ]50
  1360. [  43   ]43
  1361. [  37   ]37
  1362. [  31   ]31
  1363.  
  1364. **P13shank59
  1365. [Shank ]
  1366. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1367. [-------]
  1368. [ 100   ]100
  1369. [  75   ]75
  1370. [  62   ]62
  1371. [  50   ]50
  1372. [  43   ]43
  1373. [  37   ]37
  1374.  
  1375. **P13body1
  1376. [Body ]
  1377. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1378. [-------]
  1379. [  25   ]25
  1380. [  18   ]18
  1381.  
  1382. **P13body2
  1383. [Body ]
  1384. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1385. [-------]
  1386. [  25   ]25
  1387.  
  1388. **P13body3
  1389. [Body ]
  1390. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1391. [-------]
  1392. [  31   ]31
  1393. [  25   ]25
  1394. [  18   ]18
  1395.  
  1396. **P13body4
  1397. [Body ]
  1398. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1399. [-------]
  1400. [  31   ]31
  1401. [  25   ]25
  1402.  
  1403. **P13body5
  1404. [Body ]
  1405. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1406. [-------]
  1407. [  31   ]31
  1408.  
  1409. **P13body6
  1410. [Body ]
  1411. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1412. [-------]
  1413. [  37   ]37
  1414. [  31   ]31
  1415. [  25   ]25
  1416. [  18   ]18
  1417.  
  1418. **P13body7
  1419. [Body ]
  1420. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1421. [-------]
  1422. [  37   ]37
  1423. [  31   ]31
  1424. [  25   ]25
  1425.  
  1426. **P13body8
  1427. [Body ]
  1428. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1429. [-------]
  1430. [  37   ]37
  1431. [  31   ]31
  1432.  
  1433. **P13body9
  1434. [Body ]
  1435. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1436. [-------]
  1437. [  37   ]37
  1438.  
  1439. **P13body10
  1440. [Body ]
  1441. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1442. [-------]
  1443. [  43   ]43
  1444. [  37   ]37
  1445. [  31   ]31
  1446.  
  1447. **P13body11
  1448. [Body ]
  1449. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1450. [-------]
  1451. [  43   ]43
  1452. [  37   ]37
  1453.  
  1454. **P13body12
  1455. [Body ]
  1456. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1457. [-------]
  1458. [  43   ]43
  1459.  
  1460. **P13body13
  1461. [Body ]
  1462. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1463. [-------]
  1464. [  50   ]50
  1465. [  43   ]43
  1466. [  37   ]37
  1467.  
  1468. **P13body14
  1469. [Body ]
  1470. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1471. [-------]
  1472. [  50   ]50
  1473. [  43   ]43
  1474.  
  1475. **P13body15
  1476. [Body ]
  1477. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1478. [-------]
  1479. [  50   ]50
  1480.  
  1481. **P13body16
  1482. [Body ]
  1483. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1484. [-------]
  1485. [  62   ]62
  1486. [  50   ]50
  1487. [  43   ]43
  1488.  
  1489. **P13body17
  1490. [Body ]
  1491. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1492. [-------]
  1493. [  62   ]62
  1494. [  50   ]50
  1495.  
  1496. **P13body18
  1497. [Body ]
  1498. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1499. [-------]
  1500. [  62   ]62
  1501.  
  1502. **P13body19
  1503. [Body ]
  1504. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1505. [-------]
  1506. [  75   ]75
  1507. [  62   ]62
  1508.  
  1509. **P13body20
  1510. [Body ]
  1511. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1512. [-------]
  1513. [  75   ]75
  1514.  
  1515. **P13body21
  1516. [Body ]
  1517. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1518. [-------]
  1519. [  100  ]100
  1520. [   75  ]75
  1521.  
  1522. **P13body22
  1523. [Body ]
  1524. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1525. [-------]
  1526. [  100  ]100
  1527.  
  1528. **P13body23
  1529. [Body ]
  1530. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1531. [-------]
  1532. [  125  ]125
  1533. [  100  ]100
  1534.  
  1535. **P13body24
  1536. [Body ]
  1537. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1538. [-------]
  1539. [  125  ]125
  1540.  
  1541. **P13body25
  1542. [Body ]
  1543. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1544. [-------]
  1545. [  50   ]50
  1546. [  43   ]43
  1547. [  37   ]37
  1548. [  31   ]31
  1549. [  25   ]25
  1550.  
  1551. **P13body26
  1552. [Body ]
  1553. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1554. [-------]
  1555. [  50   ]50
  1556. [  43   ]43
  1557. [  37   ]37
  1558. [  31   ]31
  1559.  
  1560. **P13body27
  1561. [Body ]
  1562. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1563. [-------]
  1564. [  62   ]62
  1565. [  50   ]50
  1566. [  43   ]43
  1567. [  37   ]37
  1568. [  31   ]31
  1569. [  25   ]25
  1570.  
  1571. **P13body28
  1572. [Body ]
  1573. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1574. [-------]
  1575. [  62   ]62
  1576. [  50   ]50
  1577. [  43   ]43
  1578. [  37   ]37
  1579. [  31   ]31
  1580.  
  1581. **P13body29
  1582. [Body ]
  1583. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1584. [-------]
  1585. [  62   ]62
  1586. [  50   ]50
  1587. [  43   ]43
  1588. [  37   ]37
  1589.  
  1590. **P13body30
  1591. [Body ]
  1592. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1593. [-------]
  1594. [  75   ]75
  1595. [  62   ]62
  1596. [  50   ]50
  1597. [  43   ]43
  1598.  
  1599. **P13body31
  1600. [Body ]
  1601. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1602. [-------]
  1603. [  75   ]75
  1604. [  62   ]62
  1605. [  50   ]50
  1606.  
  1607. **P13body32
  1608. [Body ]
  1609. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1610. [-------]
  1611. [  100  ]100
  1612. [   75  ]75
  1613. [   62  ]62
  1614.  
  1615. **P13body33
  1616. [Body ]
  1617. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1618. [-------]
  1619. [  75   ]75
  1620. [  62   ]62
  1621. [  50   ]50
  1622. [  43   ]43
  1623. [  37   ]37
  1624. [  31   ]31
  1625. [  25   ]25
  1626.  
  1627. **P13body34
  1628. [Body ]
  1629. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1630. [-------]
  1631. [  75   ]75
  1632. [  62   ]62
  1633. [  50   ]50
  1634. [  43   ]43
  1635. [  37   ]37
  1636. [  31   ]31
  1637.  
  1638. **P13body35
  1639. [Body ]
  1640. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1641. [-------]
  1642. [  75   ]75
  1643. [  62   ]62
  1644. [  50   ]50
  1645. [  43   ]43
  1646. [  37   ]37
  1647.  
  1648. **P13body36
  1649. [Body ]
  1650. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1651. [-------]
  1652. [  100  ]100
  1653. [   75  ]75
  1654. [   62  ]62
  1655. [   50  ]50
  1656. [   43  ]43
  1657. [   37  ]37
  1658. [   31  ]31
  1659.  
  1660. **P13body37
  1661. [Body ]
  1662. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1663. [-------]
  1664. [  100  ]100
  1665. [   75  ]75
  1666. [   62  ]62
  1667. [   50  ]50
  1668. [   43  ]43
  1669. [   37  ]37
  1670.  
  1671. **P13body38
  1672. [Body ]
  1673. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1674. [-------]
  1675. [  100  ]100
  1676. [   75  ]75
  1677. [   62  ]62
  1678. [   50  ]50
  1679. [   43  ]43
  1680.  
  1681. **P13body39
  1682. [Body ]
  1683. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1684. [-------]
  1685. [  100  ]100
  1686. [   75  ]75
  1687. [   62  ]62
  1688. [   50  ]50
  1689.  
  1690. **P13body40
  1691. [Body ]
  1692. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1693. [-------]
  1694. [  125  ]125
  1695. [  100  ]100
  1696. [   75  ]75
  1697. [   62  ]62
  1698. [   50  ]50
  1699. [   43  ]43
  1700.  
  1701. **P13body41
  1702. [Body ]
  1703. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1704. [-------]
  1705. [  125  ]125
  1706. [  100  ]100
  1707. [   75  ]75
  1708. [   62  ]62
  1709. [   50  ]50
  1710.  
  1711. **P13body42
  1712. [Body ]
  1713. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1714. [-------]
  1715. [  125  ]125
  1716. [  100  ]100
  1717. [   75  ]75
  1718. [   62  ]62
  1719.  
  1720. **P13body43
  1721. [Body ]
  1722. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1723. [-------]
  1724. [  125  ]125
  1725. [  100  ]100
  1726. [   75  ]75
  1727.  
  1728. **P13body44
  1729. [Body ]
  1730. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1731. [-------]
  1732. [  43   ]43
  1733. [  37   ]37
  1734. [  31   ]31
  1735. [  25   ]25
  1736.  
  1737. **P13body45
  1738. [Body ]
  1739. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1740. [-------]
  1741. [  100  ]100
  1742. [   75  ]75
  1743. [   62  ]62
  1744. [   50  ]50
  1745. [   43  ]43
  1746. [   37  ]37
  1747. [   31  ]31
  1748. [   25  ]25
  1749.  
  1750. **P13body46
  1751. [Body ]
  1752. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1753. [-------]
  1754. [  125  ]125
  1755. [  100  ]100
  1756. [   75  ]75
  1757. [   62  ]62
  1758. [   50  ]50
  1759. [   43  ]43
  1760. [   37  ]37
  1761. [   31  ]31
  1762.  
  1763. **P13body47
  1764. [Body ]
  1765. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1766. [-------]
  1767. [  125  ]125
  1768. [  100  ]100
  1769. [   75  ]75
  1770. [   62  ]62
  1771. [   50  ]50
  1772. [   43  ]43
  1773. [   37  ]37
  1774.  
  1775. **P13point1
  1776. [Point Length]
  1777. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1778. [------------]
  1779. [    .500    ].500
  1780. [    .750    ].750
  1781. [   1.000    ]1.000
  1782. [   1.250    ]1.250
  1783. [   1.500    ]1.500
  1784.  
  1785. **P13point2
  1786. [Point Length]
  1787. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1788. [------------]
  1789. [    .500    ].500
  1790. [    .750    ].750
  1791. [   1.000    ]1.000
  1792. [   1.250    ]1.250
  1793.  
  1794. **P13point3
  1795. [Point Length]
  1796. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1797. [------------]
  1798. [    .750    ].750
  1799. [   1.000    ]1.000
  1800. [   1.250    ]1.250
  1801. [   1.500    ]1.500
  1802.  
  1803. **P13point4
  1804. [Point Length]
  1805. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1806. [------------]
  1807. [    .500    ].500
  1808. [    .750    ].750
  1809. [   1.000    ]1.000
  1810. [   1.250    ]1.250
  1811.  
  1812. **P13point5
  1813. [Point Length]
  1814. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1815. [------------]
  1816. [    .750    ].750
  1817. [   1.000    ]1.000
  1818. [   1.250    ]1.250
  1819.  
  1820. **P13olength1
  1821. [Length  ]
  1822. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1823. [-----------]
  1824. [ 1.50   12 ]12
  1825. [ 1.75   13 ]13
  1826. [ 2.00   20 ]20
  1827. [ 2.25   21 ]21
  1828. [ 2.50   22 ]22
  1829.  
  1830. **P13olength2
  1831. [Length  ]
  1832. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1833. [-----------]
  1834. [ 1.50   12 ]12
  1835. [ 1.75   13 ]13
  1836. [ 2.00   20 ]20
  1837. [ 2.25   21 ]21
  1838. [ 2.50   22 ]22
  1839.  
  1840. **P13olength3
  1841. [Length  ]
  1842. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1843. [-----------]
  1844. [ 1.50   12 ]12
  1845. [ 1.75   13 ]13
  1846. [ 2.00   20 ]20
  1847. [ 2.25   21 ]21
  1848. [ 2.50   22 ]22
  1849. [ 2.75   23 ]23
  1850.  
  1851. **P13olength4
  1852. [Length  ]
  1853. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1854. [-----------]
  1855. [ 1.50   12 ]12
  1856. [ 1.75   13 ]13
  1857. [ 2.00   20 ]20
  1858. [ 2.25   21 ]21
  1859. [ 2.50   22 ]22
  1860. [ 2.75   23 ]23
  1861. [ 3.00   30 ]30
  1862.  
  1863. **P13olength5
  1864. [Length  ]
  1865. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1866. [-----------]
  1867. [ 1.50   12 ]12
  1868. [ 1.75   13 ]13
  1869. [ 2.00   20 ]20
  1870. [ 2.25   21 ]21
  1871. [ 2.50   22 ]22
  1872. [ 2.75   23 ]23
  1873. [ 3.00   30 ]30
  1874. [ 3.25   31 ]31
  1875.  
  1876. **P13olength6
  1877. [Length  ]
  1878. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1879. [-----------]
  1880. [ 1.50   12 ]12
  1881. [ 1.75   13 ]13
  1882. [ 2.00   20 ]20
  1883. [ 2.25   21 ]21
  1884. [ 2.50   22 ]22
  1885. [ 2.75   23 ]23
  1886. [ 3.00   30 ]30
  1887. [ 3.25   31 ]31
  1888. [ 3.50   32 ]32
  1889.  
  1890. **P13olength7
  1891. [Length  ]
  1892. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1893. [-----------]
  1894. [ 1.75   13 ]13
  1895. [ 2.00   20 ]20
  1896. [ 2.25   21 ]21
  1897. [ 2.50   22 ]22
  1898.  
  1899. **P13olength8
  1900. [Length  ]
  1901. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1902. [-----------]
  1903. [ 1.75   13 ]13
  1904. [ 2.00   20 ]20
  1905. [ 2.25   21 ]21
  1906. [ 2.50   22 ]22
  1907. [ 2.75   23 ]23
  1908.  
  1909. **P13olength9
  1910. [Length  ]
  1911. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1912. [-----------]
  1913. [ 1.75   13 ]13
  1914. [ 2.00   20 ]20
  1915. [ 2.25   21 ]21
  1916. [ 2.50   22 ]22
  1917. [ 2.75   23 ]23
  1918. [ 3.00   30 ]30
  1919.  
  1920. **P13olength10
  1921. [Length  ]
  1922. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1923. [-----------]
  1924. [ 1.75   13 ]13
  1925. [ 2.00   20 ]20
  1926. [ 2.25   21 ]21
  1927. [ 2.50   22 ]22
  1928. [ 2.75   23 ]23
  1929. [ 3.00   30 ]30
  1930. [ 3.25   31 ]31
  1931. [ 3.50   32 ]32
  1932.  
  1933. **P13olength11
  1934. [Length  ]
  1935. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1936. [-----------]
  1937. [ 2.00   20 ]20
  1938. [ 2.25   21 ]21
  1939. [ 2.50   22 ]22
  1940.  
  1941. *P2o0length12
  1942. [Length  ]
  1943. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1944. [-----------]
  1945. [ 2.00   20 ]20
  1946. [ 2.25   21 ]21
  1947. [ 2.50   22 ]22
  1948. [ 2.75   23 ]23
  1949.  
  1950. **P13olength13
  1951. [Length  ]
  1952. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1953. [-----------]
  1954. [ 2.00   20 ]20
  1955. [ 2.25   21 ]21
  1956. [ 2.50   22 ]22
  1957. [ 2.75   23 ]23
  1958. [ 3.00   30 ]30
  1959.  
  1960. **P13olength14
  1961. [Length  ]
  1962. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1963. [-----------]
  1964. [ 2.00   20 ]20
  1965. [ 2.25   21 ]21
  1966. [ 2.50   22 ]22
  1967. [ 2.75   23 ]23
  1968. [ 3.00   30 ]30
  1969. [ 3.25   31 ]31
  1970. [ 3.50   32 ]32
  1971.  
  1972. **P13olength15
  1973. [Length  ]
  1974. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1975. [-----------]
  1976. [ 2.25   21 ]21
  1977. [ 2.50   22 ]22
  1978. [ 2.75   23 ]23
  1979.  
  1980. **P13olength16
  1981. [Length  ]
  1982. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1983. [-----------]
  1984. [ 2.25   21 ]21
  1985. [ 2.50   22 ]22
  1986. [ 2.75   23 ]23
  1987. [ 3.00   30 ]30
  1988.  
  1989. **P13olength17
  1990. [Length  ]
  1991. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  1992. [-----------]
  1993. [ 2.25   21 ]21
  1994. [ 2.50   22 ]22
  1995. [ 2.75   23 ]23
  1996. [ 3.00   30 ]30
  1997. [ 3.25   31 ]31
  1998. [ 3.50   32 ]32
  1999.  
  2000. **P13dlength1
  2001. [Length  ]
  2002. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2003. [-----------]
  2004. [ 0.500  50 ]50
  2005. [ 0.625  62 ]62
  2006. [ 0.750  75 ]75
  2007. [ 0.875  87 ]87
  2008. [ 1.000  100]100
  2009. [ 1.125  112]112
  2010.  
  2011. **P13dlength2
  2012. [Length  ]
  2013. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2014. [-----------]
  2015. [ 0.500  50 ]50
  2016. [ 0.625  62 ]62
  2017. [ 0.750  75 ]75
  2018. [ 0.875  87 ]87
  2019. [ 1.000  100]100
  2020. [ 1.125  112]112
  2021. [ 1.250  125]125
  2022.  
  2023. **P13dlength3
  2024. [Length  ]
  2025. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2026. [-----------]
  2027. [ 0.500  50 ]50
  2028. [ 0.625  62 ]62
  2029. [ 0.750  75 ]75
  2030. [ 0.875  87 ]87
  2031. [ 1.000  100]100
  2032. [ 1.125  112]112
  2033. [ 1.250  125]125
  2034. [ 1.375  137]137
  2035.  
  2036. **P13dlength4
  2037. [Length  ]
  2038. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2039. [-----------]
  2040. [ 0.750  75 ]75
  2041. [ 0.875  87 ]87
  2042. [ 1.000  100]100
  2043. [ 1.125  112]112
  2044. [ 1.250  125]125
  2045. [ 1.375  137]137
  2046.  
  2047. **P13glength1
  2048. [Length  ]
  2049. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2050. [-----------]
  2051. [ 0.3125 31 ]31
  2052. [ 0.375  37 ]37
  2053. [ 0.500  50 ]50
  2054.  
  2055. **P13glength2
  2056. [Length  ]
  2057. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2058. [-----------]
  2059. [ 0.375  37 ]37
  2060. [ 0.500  50 ]50
  2061. [ 0.625  62 ]62
  2062.  
  2063. **P13mat1
  2064. [Material]
  2065. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2066. [--------]
  2067. [   A    ]A
  2068. [   H    ]H
  2069. [   Y    ]Y
  2070. [   X    ]X
  2071.  
  2072. **P13mat2
  2073. [Material]
  2074. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2075. [--------]
  2076. [   A    ]A
  2077. [   H    ]H
  2078. [   P    ]P
  2079. [   Y    ]Y
  2080. [   PY   ]PY
  2081. [   X    ]X
  2082. [   PX   ]PX
  2083.  
  2084. **P13mat3
  2085. [Material]
  2086. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2087. [--------]
  2088. [   A    ]A
  2089. [   H    ]H
  2090.  
  2091. **P13mat4
  2092. [Material]
  2093. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2094. [--------]
  2095. [   H    ]H
  2096. [   P    ]P
  2097.  
  2098. **P13style1
  2099. [Style ]
  2100. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2101. [----------]
  2102. [  Headed  ]H
  2103. [----------]
  2104. [ Headless ]D
  2105.  
  2106. **P13style2
  2107. [Wire Cut ]
  2108. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2109. [---------]
  2110. [    Yes   ]Y
  2111. [----------]
  2112. [    No    ]N
  2113.  
  2114. **P13style3
  2115. [ style ]
  2116. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2117. [---------------]
  2118. [ Headless "G"]G
  2119. [---------------]
  2120. [ Head Down "B" ]B
  2121. [---------------]
  2122. [  Head Up "T" ]T
  2123.  
  2124. **P13D
  2125. [Point size ]
  2126. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2127. [   Repeat   ];
  2128. [~--]$P2=*
  2129. [    ENTER   ];
  2130. [ BACK SPACE ]^H$P2=*
  2131. [      .     ]._^H$P2=*
  2132. [      0     ]0_^H$P2=*
  2133. [      1     ]1_^H$P2=*
  2134. [      2     ]2_^H$P2=*
  2135. [      3     ]3_^H$P2=*
  2136. [      4     ]4_^H$P2=*
  2137. [      5     ]5_^H$P2=*
  2138. [      6     ]6_^H$P2=*
  2139. [      7     ]7_^H$P2=*
  2140. [      8     ]8_^H$P2=*
  2141. [      9     ]9_^H$P2=*
  2142. [      0     ]0_^H$P2=*
  2143. [ BACK SPACE ]^H$P2=*
  2144. [    ENTER   ];
  2145.  
  2146. **P13E
  2147. [Plan View]
  2148. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2149. [~--]$P2=*
  2150. [~--]Y
  2151. [   YES    ]Y
  2152. [~--]Y
  2153. [~--]N
  2154. [    NO    ]N
  2155. [~--]N
  2156.  
  2157. **P13E1
  2158. [Side View]
  2159. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2160. [~--]$P2=*
  2161. [~--]Y
  2162. [   YES    ]Y
  2163. [~--]Y
  2164. [~--]N
  2165. [    NO    ]N
  2166. [~--]N
  2167.  
  2168. **P13F
  2169. [ROTATE  90]
  2170. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2171. [~--]$P2=*
  2172. [~--]Y
  2173. [   YES    ]Y
  2174. [~--]Y
  2175. [~--]N
  2176. [    NO    ]N
  2177. [~--]N
  2178.  
  2179. **P13tol1
  2180. [Tolerance]
  2181. [-Main Menu-]^C^C^P(menucmd  "P2=P13pivot" "P2=*")
  2182. [------------]
  2183. [Tolerance #1]1
  2184. [------------]
  2185. [Tolerance #2]2
  2186.  
  2187. ***icon
  2188. **txtalign
  2189. [Select Text Alignment]
  2190. [acad(j-tleft)]^P(setq m:ta "TLeft") ^P
  2191. [acad(j-mleft)]^P(setq m:ta "MLeft") ^P
  2192. [acad(j-start)]^P(setq m:ta "BLeft") ^P
  2193. [acad(j-bleft)]^P(setq m:ta "BLeft") ^P
  2194. [acad(j-tcen)]^P(setq m:ta "TCenter") ^P
  2195. [acad(j-mcen)]^P(setq m:ta "MCenter") ^P
  2196. [acad(j-center)]^P(setq m:ta "C") ^P
  2197. [acad(j-bcen)]^P(setq m:ta "BCenter") ^P
  2198. [acad(j-tright)]^P(setq m:ta "TRight") ^P
  2199. [acad(j-mright)]^P(setq m:ta "MRight") ^P
  2200. [acad(j-right)]^P(setq m:ta "R") ^P
  2201. [acad(j-bright)]^P(setq m:ta "BRight") ^P
  2202. [acad(j-align)]^P(setq m:ta "Aligned") ^P
  2203. [acad(j-fit)]^P(setq m:ta "Fit") ^P
  2204. [ Always Prompt]^P(setq m:ta nil)(princ) ^P
  2205. [ Exit]
  2206.  
  2207. **poly
  2208. [Set Polymesh and Polyline Variables]
  2209. [acad(pm-quad)]'surftype 5
  2210. [acad(pm-cubic)]'surftype 6
  2211. [acad(pm-bezr)]'surftype 8
  2212. [acad(pl-quad)]'splinetype 5
  2213. [acad(pl-cubic)]'splinetype 6
  2214. [ Set SPLINESEGS]'splinesegs \
  2215. [ Set SPLFRAME]'splframe \
  2216. [ Set DENSITY]'surfu \'surfv \
  2217. [ Exit]$p3=pop3
  2218.  
  2219. **ucs
  2220. [User Coordinate System Options]
  2221. [ Set to World]^C^Cucs world
  2222. [acad(u-left)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2223. ucs 3p \@0,-1,0 @0,0,1 ^P
  2224. [ Set to Screen]^C^Cucs view
  2225. [acad(u-top)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2226. ucs 3p \@1,0,0 @0,1,0 ^P
  2227. [acad(u-front)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2228. ucs 3p \@1,0,0 @0,0,1 ^P
  2229. [acad(u-bottom)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2230. ucs 3p \@1,0,0 @0,-1,0 ^P
  2231. [acad(u-back)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2232. ucs 3p \@-1,0,0 @0,0,1 ^P
  2233. [acad(u-right)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2234. ucs 3p \@0,1,0 @0,0,1 ^P
  2235. [ Exit]
  2236.  
  2237. **3DViews
  2238. [Select View Direction]
  2239. [acad(vp-ul)]^C^CVPOINT R;<<135;
  2240. [acad(vp-left)]^C^CVPOINT R;<<180;
  2241. [acad(vp-ll)]^C^CVPOINT R;<<225;
  2242. [acad(blank)]
  2243. [acad(vp-u)]^C^CVPOINT R;<<90;
  2244. [acad(vp-plan)]^C^Cvpoint 0,0,1
  2245. [acad(vp-lo)]^C^CVPOINT R;<<270;
  2246. [acad(blank)]
  2247. [acad(vp-ur)]^C^CVPOINT R;<<45;
  2248. [acad(vp-right)]^C^CVPOINT R;<<0;
  2249. [acad(vp-lr)]^C^CVPOINT R;<<315;
  2250. [acad(blank)]
  2251. [acad(vp-axes)]VPOINT;;
  2252. [acad(hide)]$S=X $S=HIDE
  2253. [ Exit]
  2254.  
  2255. **dviewi
  2256. [DVIEW Options]
  2257. [acad(dv-cam)]^C^C(menucmd "S=X")(menucmd "S=DVIEW")+
  2258. (command "Select" pause "Dview" "p" "" "ca" pause pause "")
  2259. [acad(dv-zoom)]^C^C(menucmd "S=X")(menucmd "S=DVIEW")+
  2260. (command "Select" pause "Dview" "p" "" "z" pause "")
  2261. [acad(dv-pan)]^C^C(menucmd "S=X")(menucmd "S=DVIEW")+
  2262. (command "Select" pause "Dview" "p" "" "pa" pause pause "")
  2263. [ Exit]
  2264.  
  2265. **3DObjects
  2266. [3D Objects]
  2267. [acad(box3d)]^C^C^P(progn(setq m:err *error*)(prin1))+
  2268. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2269. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2270. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2271. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2272. (prompt "Check installation of the Support Files and try again.")+
  2273. (princ))))(T (princ)))(cond ((not (null C:BOX))(C:BOX))(T (princ)));+
  2274. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2275. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2276. [acad(wedge)]^C^C^P(progn(setq m:err *error*)(princ));+
  2277. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2278. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2279. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2280. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2281. (prompt "Check installation of the Support Files and try again.")+
  2282. (princ))))(T (princ)))(cond ((not (null C:WEDGE))(C:WEDGE))(T (princ)));+
  2283. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2284. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2285. [acad(pyramid)]^C^C^P(progn(setq m:err *error*)(princ))+
  2286. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2287. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2288. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2289. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2290. (prompt "Check installation of the Support Files and try again.")+
  2291. (princ))))(T (princ)))(cond ((not (null C:PYRAMID))(C:PYRAMID))(T (princ)));+
  2292. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2293. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2294. [acad(dome)]^C^C^P(progn(setq m:err *error*)(princ));+
  2295. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2296. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2297. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2298. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2299. (prompt "Check installation of the Support Files and try again.")+
  2300. (princ))))(T (princ)))(cond ((not (null C:DOME))(C:DOME))(T (princ)));+
  2301. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2302. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2303. [acad(dish)]^C^C^P(progn(setq m:err *error*)(princ));+
  2304. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2305. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2306. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2307. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2308. (prompt "Check installation of the Support Files and try again.")+
  2309. (princ))))(T (princ)))(cond ((not (null C:DISH))(C:DISH))(T (princ)));+
  2310. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2311. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2312. [acad(cone)]^C^C^P(progn(setq m:err *error*)(princ));+
  2313. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2314. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2315. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2316. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2317. (prompt "Check installation of the Support Files and try again.")+
  2318. (princ))))(T (princ)))(cond ((not (null C:CONE))(C:CONE))(T (princ)));+
  2319. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2320. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2321. [acad(sphere)]^C^C^P(progn(setq m:err *error*)(princ));+
  2322. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2323. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2324. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2325. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2326. (prompt "Check installation of the Support Files and try again.")+
  2327. (princ))))(T (princ)))(cond ((not (null C:SPHERE))(C:SPHERE))(T (princ)));+
  2328. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2329. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2330. [acad(torus)]^C^C^P(progn(setq m:err *error*)(princ));+
  2331. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2332. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2333. (load "3d")(menucmd "S=X")(menucmd "S=3D2"))(progn (terpri)(prompt +
  2334. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2335. (prompt "Check installation of the Support Files and try again.")+
  2336. (princ))))(T (princ)))(cond ((not (null C:TORUS))(C:TORUS))(T (princ)));+
  2337. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2338. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2339. [ Exit]
  2340.  
  2341. **surf1
  2342. [3D Surface Commands]
  2343. [acad(revsurf)]^C^C$S=X $S=3D revsurf
  2344. [acad(rulesurf)]^C^C$S=X $S=3D rulesurf
  2345. [acad(surftab1)]'surftab1 \$I=*
  2346. [acad(tabsurf)]^C^C$S=X $S=3D tabsurf
  2347. [acad(edgesurf)]^C^C$S=X $S=3D edgesurf
  2348. [acad(surftab2)]'surftab2 \$I=*
  2349. [acad(mesh)]^C^C^P(progn(setq m:err *error*)(princ));+
  2350. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2351. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2352. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2353. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2354. (prompt "Check installation of the Support Files and try again.")+
  2355. (princ))))(T (princ)))(cond ((not (null C:MESH))(C:MESH))(T (princ)));+
  2356. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2357. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2358. [ 3D Objects]$I=3dobjects $I=*
  2359. [ Exit]
  2360.  
  2361. **fonts1
  2362. [Select Text Font]
  2363. [acad(romans)]^c^cstyle romans romans
  2364. [acad(romanc)]^c^cstyle romanc romanc
  2365. [acad(italicc)]^c^cstyle italicc italicc
  2366. [acad(romand)]^c^cstyle romand romand
  2367. [acad(romant)]^c^cstyle romant romant
  2368. [acad(italict)]^c^cstyle italict italict
  2369. [acad(monotxt)]^c^cstyle monotxt monotxt
  2370. [ Next]$I=fonts2 $I=*
  2371. [ Exit]
  2372.  
  2373. **fonts2
  2374. [Select Text Font]
  2375. [acad(gothice)]^c^cstyle gothice gothice
  2376. [acad(greeks)]^c^cstyle greeks greeks
  2377. [acad(scripts)]^c^cstyle scripts scripts
  2378. [acad(gothicg)]^c^cstyle gothicg gothicg
  2379. [acad(greekc)]^c^cstyle greekc greekc
  2380. [acad(scriptc)]^c^cstyle scriptc scriptc
  2381. [acad(gothici)]^c^cstyle gothici gothici
  2382. [ Next]$I=fonts3 $I=*
  2383. [ Exit]
  2384.  
  2385. **fonts3
  2386. [Select Text Font]
  2387. [acad(syastro)]^c^cstyle syastro syastro
  2388. [acad(symath)]^c^cstyle symath symath
  2389. [acad(symusic)]^c^cstyle symusic symusic
  2390. [acad(symap)]^c^cstyle symap symap
  2391. [acad(symeteo)]^c^cstyle symeteo symeteo
  2392. [acad(txt)]^c^cstyle txt txt
  2393. [acad(blank)]
  2394. [ Beginning]$I=fonts1 $I=*
  2395. [ Exit]
  2396.  
  2397. **hatch1
  2398. [Select Hatch Pattern - * Not to Scale]
  2399. [ User Defined]^P(setq m:hp "U") ^P
  2400. [acad(ansi31)]^P(setq m:hp "ansi31") ^P
  2401. [acad(ansi32)]^P(setq m:hp "ansi32") ^P
  2402. [acad(ansi34)]^P(setq m:hp "ansi34") ^P
  2403. [acad(ansi35)]^P(setq m:hp "ansi35") ^P
  2404. [acad(ansi33)]^P(setq m:hp "ansi33") ^P
  2405. [acad(ansi36)]^P(setq m:hp "ansi36") ^P
  2406. [acad(ansi37)]^P(setq m:hp "ansi37") ^P
  2407. [acad(ansi38)]^P(setq m:hp "ansi38") ^P
  2408. [acad(ar-b816)]^P(setq m:hp "ar-b816") ^P
  2409. [acad(ar-b816c)]^P(setq m:hp "ar-b816c") ^P
  2410. [acad(ar-b88)]^P(setq m:hp "ar-b88") ^P
  2411. [acad(ar-brelm)]^P(setq m:hp "ar-brelm") ^P
  2412. [acad(ar-brstd)]^P(setq m:hp "ar-brstd") ^P
  2413. [ Next]$I=hatch2 $I=*
  2414. [ Exit]
  2415.  
  2416. **hatch2
  2417. [Select Hatch Pattern - * Not to Scale]
  2418. [acad(ar-conc)]^P(setq m:hp "ar-conc") ^P
  2419. [acad(ar-hbone)]^P(setq m:hp "ar-hbone") ^P
  2420. [acad(ar-parq1)]^P(setq m:hp "ar-parq1") ^P
  2421. [acad(ar-rroof)]^P(setq m:hp "ar-rroof") ^P
  2422. [acad(ar-rshke)]^P(setq m:hp "ar-rshke") ^P
  2423. [acad(ar-sand)]^P(setq m:hp "ar-sand") ^P
  2424. [acad(box)]^P(setq m:hp "box") ^P
  2425. [acad(brass)]^P(setq m:hp "brass") ^P
  2426. [acad(brick)]^P(setq m:hp "brick") ^P
  2427. [acad(brstone)]^P(setq m:hp "brstone") ^P
  2428. [acad(clay)]^P(setq m:hp "clay") ^P
  2429. [acad(cork)]^P(setq m:hp "cork") ^P
  2430. [acad(cross)]^P(setq m:hp "cross") ^P
  2431. [acad(dash)]^P(setq m:hp "dash") ^P
  2432. [ Next]$I=hatch3 $I=*
  2433. [ Exit]
  2434.  
  2435. **hatch3
  2436. [Select Hatch Pattern - * Not to Scale]
  2437. [acad(dolmit)]^P(setq m:hp "dolmit") ^P
  2438. [acad(dots)]^P(setq m:hp "dots") ^P
  2439. [acad(earth)]^P(setq m:hp "earth") ^P
  2440. [acad(escher)]^P(setq m:hp "escher") ^P
  2441. [acad(flex)]^P(setq m:hp "flex") ^P
  2442. [acad(grass)]^P(setq m:hp "grass") ^P
  2443. [acad(grate)]^P(setq m:hp "grate") ^P
  2444. [acad(hex)]^P(setq m:hp "hex") ^P
  2445. [acad(honey)]^P(setq m:hp "honey") ^P
  2446. [acad(hound)]^P(setq m:hp "hound") ^P
  2447. [acad(insul)]^P(setq m:hp "insul") ^P
  2448. [acad(line)]^P(setq m:hp "line") ^P
  2449. [acad(mudst)]^P(setq m:hp "mudst") ^P
  2450. [acad(net)]^P(setq m:hp "net") ^P
  2451. [ Next]$I=hatch4 $I=*
  2452. [ Exit]
  2453.  
  2454. **hatch4
  2455. [Select Hatch Pattern - * Not to Scale]
  2456. [acad(net3)]^P(setq m:hp "net3") ^P
  2457. [acad(plast)]^P(setq m:hp "plast") ^P
  2458. [acad(plasti)]^P(setq m:hp "plasti") ^P
  2459. [acad(sacncr)]^P(setq m:hp "sacncr") ^P
  2460. [acad(square)]^P(setq m:hp "square") ^P
  2461. [acad(stars)]^P(setq m:hp "stars") ^P
  2462. [acad(steel)]^P(setq m:hp "steel") ^P
  2463. [acad(swamp)]^P(setq m:hp "swamp") ^P
  2464. [acad(trans)]^P(setq m:hp "trans") ^P
  2465. [acad(triang)]^P(setq m:hp "triang") ^P
  2466. [acad(zigzag)]^P(setq m:hp "zigzag") ^P
  2467. [acad(angle)]^P(setq m:hp "angle") ^P
  2468. [ Beginning]$I=hatch1 $I=*
  2469. [ Exit]
  2470.  
  2471. **hatchs
  2472. [Select Hatch Style]
  2473. [acad(h-normal)]^P(setq m:hs ",N") ^P
  2474. [acad(h-outer)]^P(setq m:hs ",O") ^P
  2475. [acad(h-ignore)]^P(setq m:hs ",I") ^P
  2476. [ Exit]
  2477.  
  2478. **drdim
  2479. [Select Dimension Type]
  2480. [acad1(linear)]$I=drlin $I=*
  2481. [acad1(angular)]ANG
  2482. [acad1(ordinate)]$S=X $S=DIMORD $I=drord $I=*
  2483. [acad1(diameter)]$S=X $S=DIMRADIAL DIA
  2484. [acad1(radial)]$S=X $S=DIMRADIAL RAD
  2485. [ Edit Dim...]$S=X $S=FORMAT $I=eddim $I=*
  2486. [acad1(dimcen)]CEN
  2487. [acad1(dimlea)]LEA
  2488. [ Exit]
  2489.  
  2490. **drlin
  2491. [Select Linear Dimension]
  2492. [acad1(dimhor)]$S=X $S=DIMLINEAR HOR
  2493. [acad1(dimali)]$S=X $S=DIMLINEAR ALI
  2494. [acad1(blank)]
  2495. [acad1(dimver)]$S=X $S=DIMLINEAR VER
  2496. [acad1(dimrot)]$S=X $S=DIMLINEAR ROT
  2497. [ Previous...]$I=DRDIM $I=*
  2498. [acad1(dimbas)]$S=X $S=DIMLINEAR BASELINE
  2499. [acad1(dimcon)]$S=X $S=DIMLINEAR CONTINUE
  2500. [ Exit]
  2501.  
  2502. **drord
  2503. [Select Ordinate Orientation]
  2504. [acad1(dimordx)]ORD;\X
  2505. [acad1(dimorda)]ORD;
  2506. [acad1(dimordy)]ORD;\Y
  2507. [ Exit]
  2508.  
  2509. **eddim
  2510. [Select Dimension Edit Command]
  2511. [acad1(dimhomet)]$S=X $S=HOMETEXT HOM
  2512. [acad1(dimnewtx)]$S=X $S=NEWTEXT NEW
  2513. [acad1(blank)]
  2514. [acad1(dimupdat)]$S=X $S=UPDATE UPD
  2515. [acad1(dimoblq)]OBL
  2516. [ Previous...]$I=DRDIM $I=*
  2517. [acad1(dimtrot)]TRO
  2518. [acad1(dimtedit)]$S=X $S=TEDIT TED
  2519. [ Exit]
  2520.  
  2521. **dimset
  2522. [Select to Set Dimension Variables]
  2523. [acad1(linear)]$I=DIMLIN $I=*
  2524. [acad1(angular)]$I=DIMANG $I=*
  2525. [acad1(ordinate)]$I=DIMORD1 $I=*
  2526. [acad1(diameter)]$I=DIMDIA $I=*
  2527. [acad1(radial)]$I=DIMRAD $I=*
  2528. [ Dim Style...]$I=DIMSTY $I=*
  2529. [ Dim Globals...]$I=DIMGLO $I=*
  2530. [ Dim Text...]$I=DIMTXT $I=*
  2531. [ Exit]
  2532.  
  2533. **dimlin
  2534. [Set Linear Dimension Variables]
  2535. [acad1(linli1)]dimtad off dimtix off dimsoxd off $I=*
  2536. [acad1(linse1n)]dimse1 on $I=*
  2537. [acad1(linexe)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2538. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2539. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2540. (princ))(command)(setq m:ds1 (getvar "DIMEXE"))(terpri)+
  2541. (prompt "Set extension line by picking or enter value.")(terpri)+
  2542. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2543. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2544. (setvar "DIMEXE" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2545. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2546. [ Dim Text...]$I=DIMTXT $I=*
  2547. [acad1(linli2)]dimtad off dimtix on dimsoxd off $I=*
  2548. [acad1(linse1f)]dimse1 off $I=*
  2549. [acad1(linexo)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2550. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2551. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2552. (princ))(command)(setq m:ds1 (getvar "DIMEXO"))(terpri)+
  2553. (prompt "Set extension line offset by picking or enter value.")(terpri)+
  2554. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2555. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2556. (setvar "DIMEXO" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2557. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2558. [ Dim Globals...]$I=DIMGLO $I=*
  2559. [acad1(linli3)]dimtad off dimtix on dimsoxd on $I=*
  2560. [acad1(linse2n)]dimse2 on $I=*
  2561. [acad1(lindle)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2562. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2563. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2564. (princ))(command)(setq m:ds1 (getvar "DIMDLE"))(terpri)+
  2565. (prompt "Set extension line by picking or enter value.")(terpri)+
  2566. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2567. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2568. (setvar "DIMDLE" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2569. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2570. [ Previous...]$I= $I=*
  2571. [acad1(linli4)]dimtad on dimtix on dimsoxd off $I=*
  2572. [acad1(linse2f)]dimse2 off $I=*
  2573. [acad1(lindli)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2574. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2575. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2576. (princ))(command)(setq m:ds1 (getvar "DIMDLI"))(terpri)+
  2577. (prompt "Set dim line increment by picking or enter value.")(terpri)+
  2578. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2579. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2580. (setvar "DIMDLI" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2581. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2582. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2583. (menucmd "I=*")) (command))(princ) ^P 
  2584.  
  2585. **dimang
  2586. [Set Angular Dimension Variables]$I= $I=*
  2587. [acad1(angblk)]$I=DIMBLK $I=*
  2588. [acad1(angtxt)]$I=DIMTXT $I=*
  2589. [acad1(angglo)]$I=DIMGLO $I=*
  2590. [ Exit]
  2591.  
  2592. **dimord1
  2593. [Set Ordinate Dimension Variables]
  2594. [acad1(ordtadn)]dimtad on $I=*
  2595. [acad1(ordexo)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2596. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2597. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2598. (princ))(command)(setq m:ds1 (getvar "DIMEXO"))(terpri)+
  2599. (prompt "Set extension line offset by picking or enter value.")(terpri)+
  2600. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2601. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2602. (setvar "DIMEXO" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2603. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2604. [ Dim Text...]$I=DIMTXT $I=*
  2605. [acad1(ordtadf)]dimtad off $I=*
  2606. [acad1(ordtvp)]^P(command "dimtad" "off")(princ);+
  2607. (defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2608. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2609. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2610. (princ))(command)(setq m:ds1 (getvar "DIMTVP"))(terpri)+
  2611. (prompt "Set vertical position of text by picking or enter value.")(terpri)+
  2612. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2613. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2614. (setvar "DIMTVP" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2615. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2616. [ Previous...]$I= $I=*
  2617. [ Dim Blocks...]$I=DIMBLK $I=*
  2618. [ Dim Globals...]$I=DIMGLO $I=*
  2619. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2620. (menucmd "I=*")) (command))(princ) ^P
  2621.  
  2622.  
  2623. **dimdia
  2624. [Set Diameter Dimension Variables]
  2625. [acad1(diaa)]dimtix on $I=*
  2626. [ Dim Blocks...]$I=DIMBLK $I=*
  2627. [ Dim Globals...]$I=DIMGLO $I=*
  2628. [acad1(diab)]dimtix off dimtofl off $I=*
  2629. [acad1(diacen)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2630. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2631. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2632. (princ))(command)(setq m:ds1 (getvar "DIMCEN"))(terpri)+
  2633. (prompt "Set center mark size by picking or enter value.")(terpri)+
  2634. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2635. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2636. (setvar "DIMCEN" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2637. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2638. [ Previous...]$I= $I=*
  2639. [acad1(diac)]dimtix off dimtofl on $I=*
  2640. [ Dim Text...]$I=DIMTXT $I=*
  2641. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2642. (menucmd "I=*")) (command))(princ) ^P
  2643.  
  2644. **dimrad
  2645. [Set Radius Dimension Variables]
  2646. [acad1(radf1)]dimtix on $I=*
  2647. [ Dim Blocks...]$I=DIMBLK $I=*
  2648. [ Dim Globals...]$I=DIMGLO $I=*
  2649. [acad1(radf2)]dimtix off dimtofl off $I=*
  2650. [acad1(radcen)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2651. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2652. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2653. (princ))(command)(setq m:ds1 (getvar "DIMCEN"))(terpri)+
  2654. (prompt "Set center mark size by picking or enter value.")(terpri)+
  2655. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2656. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2657. (setvar "DIMCEN" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2658. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2659. [ Previous...]$I= $I=*
  2660. [acad1(radf3)]dimtix off dimtofl on $I=*
  2661. [ Dim Text...]$I=DIMTXT $I=*
  2662. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2663. (menucmd "I=*")) (command))(princ) ^P
  2664.  
  2665. **dimglo
  2666. [Set Global Dimension Variables]
  2667. [acad1(gloason)]dimaso on $I=*
  2668. [acad1(gloclrd)]dimclrd \$I=*           
  2669. [acad1(glornd)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2670. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2671. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2672. (princ))(command)(setq m:ds1 (getvar "DIMRND"))(terpri)+
  2673. (prompt "Set rounding precision by picking or enter value.")(terpri)+
  2674. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2675. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2676. (setvar "DIMRND" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2677. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2678. [ Dim Text...]$I=DIMTXT $I=*
  2679. [acad1(gloasof)]dimaso off $I=*
  2680. [acad1(gloclre)]dimclre \$I=*           
  2681. [acad1(gloscale)]dimscale \$I=*
  2682. [ Dim Blocks...]$I=DIMBLK $I=*
  2683. [acad1(gloshon)]dimsho on $I=*
  2684. [acad1(gloclrt)]dimclrt \$I=*           
  2685. [acad1(glolfac)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2686. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2687. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2688. (princ))(command)(setq m:ds1 (getvar "DIMLFAC"))(terpri)+
  2689. (prompt "Set global scale factor by picking or enter value.")(terpri)+
  2690. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2691. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2692. (setvar "DIMLFAC" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2693. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2694. [ Previous...]$I= $I=*
  2695. [acad1(gloshof)]dimsho off $I=*
  2696. [ Dim Style...]$I=DIMSTY $I=*
  2697. [ Status]status $I=*
  2698. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2699. (menucmd "I=*")) (command))(princ) ^P
  2700.  
  2701. **dimblk
  2702. [Set Dimension Block Variables]
  2703. [acad1(blkuah)]dimsah off dimtsz 0 dimblk . $I=*
  2704. [acad1(blkusb)]dimsah on dimblk1 \dimblk2 \$I=*
  2705. [ Previous...]$I= $I=*
  2706. [acad1(blkutm)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2707. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2708. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2709. (princ))(command)(setq m:ds1 (getvar "DIMTSZ"))(terpri)+
  2710. (prompt "Set size of ticks by picking or enter value.")(terpri)+
  2711. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2712. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2713. (setvar "DIMTSZ" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2714. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2715. [acad1(blkus1)]dimsah on dimtsz 0 dimblk1 \$I=*
  2716. [ Dim Text...]$I=DIMTXT $I=*
  2717. [acad1(blkudt)]dimsah off dimtsz 0 dimblk dot $I=*
  2718. [acad1(blkus2)]dimsah on dimtsz 0 dimblk2 \$I=*
  2719. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2720. (menucmd "I=*")) (command))(princ) ^P
  2721.  
  2722. **dimtxt
  2723. [Set Dimension Text Variables -1-]
  2724. [acad1(txttadn)]dimtad on $I=*
  2725. [acad1(txttohn)]dimtoh on $I=*
  2726. [acad1(txttoln)]dimtol on $I=TOLN $I=*
  2727. [ Previous...]$I= $I=*
  2728. [acad1(txttadf)]dimtad off $I=*
  2729. [acad1(txttohf)]dimtoh off $I=*
  2730. [acad1(txttolf)]dimtol off $I=*
  2731. [ Dim Globals...]$I=DIMGLO $I=*
  2732. [acad1(txttihn)]dimtih on $I=*
  2733. [acad1(txttofln)]dimtofl on $I=*
  2734. [acad1(txtlimn)]dimlim on $I=TOLN $I=*
  2735. [ Next...]$I=dimtxt2 $I=*
  2736. [acad1(txttihf)]dimtih off $I=*
  2737. [acad1(txttoflf)]dimtofl off $I=*
  2738. [acad1(txtlimf)]dimlim off $I=*
  2739. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2740. (menucmd "I=*")) (command))(princ) ^P
  2741.  
  2742. **dimtxt2
  2743. [Set Dimension Text Variables -2-]
  2744. [acad1(txtaltn)]dimalt on $I=ALTN $I=*
  2745. [acad1(txtsoxdn)]dimsoxd on $I=*
  2746. [acad1(txtgap)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2747. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2748. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2749. (princ))(command)(setq m:ds1 (getvar "DIMGAP"))(terpri)+
  2750. (prompt "Set dist around text by picking or enter value.")(terpri)+
  2751. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2752. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2753. (setvar "DIMGAP" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2754. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2755. [ Original...]$I= $I= $I=*
  2756. [acad1(txtaltf)]dimalt off $I=*
  2757. [acad1(txtsoxdf)]dimsoxd off $I=*
  2758. [acad1(txtgapd)]dimgap 0.09 $I=*
  2759. [ Dim Globals...]$I=DIMGLO $I=*
  2760. [acad1(txttixn)]dimtix off $I=*
  2761. [acad1(txtpostn)]dimpost \$I=*
  2762. [acad1(txtzin)]$I=TXTZIN $I=*
  2763. [ Previous...]$I= $I=*
  2764. [acad1(txttixf)]dimtix on $I=*
  2765. [acad1(txtpostf)]dimpost . $I=*
  2766. [acad1(txtzind)]dimzin 0 $I=*
  2767. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2768. (menucmd "I=*")) (command))(princ) ^P
  2769.  
  2770. **toln
  2771. [Set Dimension Tolerance Variables]$I= $I=*
  2772. [acad1(txttp)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2773. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2774. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2775. (princ))(command)(setq m:ds1 (getvar "DIMTP"))(terpri)+
  2776. (prompt "Set tolerance limits by picking or enter value.")(terpri)+
  2777. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2778. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2779. (setvar "DIMTP" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2780. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2781. [acad1(txttm)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2782. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2783. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2784. (princ))(command)(setq m:ds1 (getvar "DIMTM"))(terpri)+
  2785. (prompt "Set tolerance limits by picking or enter value.")(terpri)+
  2786. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2787. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2788. (setvar "DIMTM" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2789. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2790. [acad1(txttfac)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2791. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2792. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2793. (princ))(command)(setq m:ds1 (getvar "DIMTFAC"))(terpri)+
  2794. (prompt "Set text height scale factor by picking or enter value.")(terpri)+
  2795. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2796. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2797. (setvar "DIMTFAC" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2798. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2799. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2800. (menucmd "I=*")) (command))(princ) ^P
  2801.  
  2802. **altn
  2803. [Set Alternate Dimension Text Options]$I= $I=*
  2804. [acad1(txtaltff)]^P(defun dimset (/ m:err m:ce m:ds1 m:ds2)(setq m:err *error* +
  2805. m:ce (getvar"CMDECHO"))(setvar "CMDECHO" 0)(defun *error* (msg)(setq *error* +
  2806. m:err)(command "DIM")(setvar "CMDECHO" m:ce)(princ "Dim: ")(menucmd "I=*");+
  2807. (princ))(command)(setq m:ds1 (getvar "DIMALTF"))(terpri)+
  2808. (prompt "Set alternate measurement by picking or enter value.")(terpri)+
  2809. (setq m:ds2 (getdist (getvar "VIEWCTR")(strcat "Current value: <"(rtos m:ds1);+
  2810. "> New value: ")))(if (= m:ds2 nil)(setq m:ds2 m:ds1))(princ m:ds2)+
  2811. (setvar "DIMALTF" m:ds2)(command "DIM")(setvar "CMDECHO" m:ce)(terpri)+
  2812. (princ "Dim: ")(setq *error* m:err)(menucmd "I=*")(princ))(princ);(dimset);^P
  2813. [acad1(txtapost)]dimapost \$I= $I=*
  2814. [acad1(txtaltd)]dimaltd \$I= $I=*
  2815. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2816. (menucmd "I=*")) (command))(princ) ^P
  2817.  
  2818. **txtzin 
  2819. [Set Display of Leading/Trailing Zeros]
  2820. [acad1(txtzin0)]dimzin 0 $I= $I=*
  2821. [acad1(txtzin3)]dimzin 3 $I= $I=*
  2822. [acad1(txtzin12)]^P(if (= (boole 1 4 (getvar "dimzin")) 0)+
  2823. (setvar "dimzin" (+ (getvar "dimzin") 4))) +
  2824. (if (= (boole 1 8 (getvar "dimzin")) 0)+
  2825. (setvar "dimzin" (+ (getvar "dimzin") 8)))(princ) ^P$I= $I=*
  2826. [acad1(txtzin1)]dimzin 1 $I= $I=*
  2827. [acad1(txtzin4)]^P(if (= (boole 1 4 (getvar "dimzin")) 0)+
  2828. (setvar "dimzin" (+ (getvar "dimzin") 4)))(princ) ^P$I= $I=*
  2829. [ Previous...]$I= $I=*
  2830. [acad1(txtzin2)]dimzin 2 $I= $I=*
  2831. [acad1(txtzin8)]^P(if (= (boole 1 8 (getvar "dimzin")) 0)+
  2832. (setvar "dimzin" (+ (getvar "dimzin") 8)))(princ) ^P$I= $I=*
  2833. [ Exit]^P(if (= (getvar "DIMSTYLE") "*UNNAMED")(progn (menucmd "I=DIMSTY2")+
  2834. (menucmd "I=*")) (command))(princ) ^P
  2835.  
  2836. **dimsty
  2837. [Dimension Style Options]
  2838. [acad1(styresp)]res;;\^P(setq m:dsty (getvar "DIMSTYLE"))(princ)^P $I=*
  2839. [acad1(styvarp)]var;;\$I=*
  2840. [acad1(stysav)]sav
  2841. [acad1(styresn)]restore;\^P(setq m:dsty (getvar "DIMSTYLE"))(princ)^P $I=*
  2842. [acad1(styvarn)]var ? * \\$I=*
  2843. [ Previous...]$I= $I=*
  2844. [acad1(stylst)]sav ? * ^P(setq m:dsty (getvar "DIMSTYLE"))(command "")+
  2845. (princ "** Press Return to Continue **")(princ) \^P $I= $I=*
  2846. [acad1(styovr)]ove
  2847. [ Exit]
  2848.  
  2849. **dimsty2
  2850. [Save Dimvar Changes Before Exit?]$I= $I=*
  2851. [acad1(stynew)]sav ^P
  2852. [ Dimstyle...]^P$I=DIMSTY $I=*
  2853. [acad1(styupd)]^C^C(if(= m:dsty "*UNNAMED")(progn (command"DIM")+
  2854. (prompt (strcat (chr 13)(chr 10) "Cannot update the *UNNAMED dimension style."+
  2855. (chr 13)(chr 10) "Please select another option."))(terpri)(menucmd "I=*");+
  2856. (princ))(progn (command "DIM" "SAV" m:dsty "Y")(princ))) ^P
  2857. [acad1(styno)]
  2858.  
  2859. **asrm
  2860. [Select AutoShade Command]
  2861. [ashade(icamera)]^C^C^p$S=X $s=ashc CAMERA ^p
  2862. [ashade(ilightp)]^C^C^p$S=X $s=ashlrm LIGHT \P ^p
  2863. [ashade(ilightd)]^C^C^p$S=X $s=ashlrm LIGHT \D ^p
  2864. [ashade(ilights)]^C^C^p$S=X $s=ashlrm LIGHT \S ^p
  2865. [ashade(ivcamera)]^C^C^p$S=X $s=ashc VCAMERA ^p
  2866. [ashade(ivlightp)]^C^C^p$S=X $s=ashlrm VLIGHT \P ^p
  2867. [ashade(ivlightd)]^C^C^p$S=X $s=ashlrm VLIGHT \D ^p
  2868. [ashade(ivlights)]^C^C^p$S=X $s=ashlrm VLIGHT \S ^p
  2869. [ashade(icamview)]^C^C^p$S=X $s=ash CAMVIEW ^p
  2870. [ashade(ifinish)]^C^C^p$S=X $s=ash FINISH ^p
  2871. [ashade(iscene)]^C^C^p$S=X $s=ash SCENE ^p
  2872. [ashade(ifilmrol)]^C^C^p$S=X $s=ash FILMROLL ^p
  2873. [ DEFAULTS]^C^C^p$S=X $s=defaults DEFAULTS ^p
  2874. [ RMSCAN]^C^C^p$S=X $s=ash RMSCAN ^p$i=*
  2875. [ Exit]^C^C
  2876.  
  2877. **as
  2878. [Select AutoShade Command]
  2879. [ashade(icamera)]^C^C^p$S=X $s=ashc CAMERA ^p
  2880. [ashade(ilightp)]^C^C^p$S=X $s=ashl LIGHT \P ^p
  2881. [ashade(ilightd)]^C^C^p$S=X $s=ashl LIGHT \D ^p
  2882. [ashade(blank)]$i=*
  2883. [ashade(ivcamera)]^C^C^p$S=X $s=ashc VCAMERA ^p
  2884. [ashade(ivlightp)]^C^C^p$S=X $s=ashl VLIGHT \P ^p
  2885. [ashade(ivlightd)]^C^C^p$S=X $s=ashl VLIGHT \D ^p
  2886. [ashade(blank)]$i=*
  2887. [ashade(icamview)]^C^C^p$S=X $s=ash CAMVIEW ^p
  2888. [ashade(ifinish)]^C^C^p$S=X $s=ash FINISH ^p
  2889. [ashade(iscene)]^C^C^p$S=X $s=ash SCENE ^p
  2890. [ashade(ifilmrol)]^C^C^p$S=X $s=ash FILMROLL ^p
  2891. [ DEFAULTS]^C^C^p$S=X $s=defaults DEFAULTS ^p
  2892. [ RMSCAN]^C^C^p$S=X $s=ash RMSCAN ^p$i=*
  2893. [ Exit]^C^C
  2894.  
  2895. **as11
  2896. [Select AutoShade Command]
  2897. [ashade(icamera)]^C^C^p$S=X $S=ASH11C CAMERA ^p
  2898. [ashade(icamview)]^C^C^p$S=X $S=ASH11 CAMVIEW ^p
  2899. [ashade(ilightp)]^C^C^p$S=X $S=ASH11L LIGHT \P ^p
  2900. [ashade(ilightd)]^C^C^p$S=X $S=ASH11L LIGHT \D ^p
  2901. [ashade(iscene)]^C^C^p$S=X $S=ASH11A SCENE ^p
  2902. [ashade(ifilmrol)]^C^C^p$S=X $S=ASH11A FILMROLL ^p
  2903. [ Exit]^c^c
  2904.  
  2905. **rm
  2906. [Select RenderMan Command]
  2907. [ashade(irmsetup)]^C^C^p$S=X $s=RMSETUP RMSETUP ^p
  2908. [ashade(irmprop)]^C^C^p$S=X $s=RMPROP RMPROP ^p
  2909. [ashade(irmattac)]^C^C^p$S=X $s=RMATTACH RMATTACH ^p
  2910. [ashade(irmedit)]^C^C^p$S=X $s=RMEDIT RMEDIT ^p
  2911. [ashade(irmcopy)]^C^C^p$S=X $s=RMCOPY RMCOPY ^p
  2912. [ashade(irmlist)]^C^C^p$S=X $s=RMLIST RMLIST ^p
  2913. [ DEFAULTS]^C^C^p$S=X $s=DEFAULTS DEFAULTS ^p
  2914. [ RMSCAN]^C^C^p$S=X $s=rman RMSCAN ^p$i=*
  2915. [ Exit]^C^C
  2916.  
  2917.  
  2918. ***SCREEN
  2919. **S
  2920. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2921. [* * * *]$S=OSNAPB
  2922. [BLOCKS]$S=X $S=BL
  2923. [DIM:]$S=X $S=DIM ^C^CDIM
  2924. [DISPLAY]$S=X $S=DS
  2925. [DRAW]$S=X $S=DR
  2926. [EDIT]$S=X $S=ED
  2927. [INQUIRY]$S=X $S=INQ
  2928. [LAYER:]$S=X $S=LAYER ^C^CLAYER
  2929. [MVIEW]$S=X $S=MV
  2930. [PLOT]$S=X $S=PLOT
  2931. [SETTINGS]$S=X $S=SET
  2932. [SOLIDS]^C^C^P(progn(setq m:err *error*)(princ))+
  2933. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  2934. (if (null c:solbox)(progn (menucmd "S=X")(menucmd "S=SOLLOAD"))+
  2935. (progn (menucmd "S=X")(menucmd "S=SOLIDS")))(princ);^P
  2936. [SURFACES]$S=X $S=3D
  2937. [UCS:]$S=X $S=UCS1 ^C^CUCS
  2938. [UTILITY]$S=X $S=UT
  2939. [ASHADE]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  2940. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  2941. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)  "S=ASH")+
  2942. ((= G:SVER 11)"S=ASH11")(T"S=")))(setq m:shmn nil)(princ))(princ))(cond(G:SVER;+
  2943. (setq *error* m:err m:err nil)(m:shmn))(T (vmon)(cond((findfile"ashade.lsp")+
  2944. (load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn)(progn(terpri);+
  2945. (prompt "The file '") (princ (findfile "ashade.lsp"))+
  2946. (prompt "' is incompatible with AutoCAD r11.");+
  2947. (setq m:shmn nil C:CAMERA nil C:LIGHT nil C:CAMVIEW nil C:SCENE nil)(princ))))+
  2948. (T(terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  2949. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  2950. (setq *error* m:err m:err nil m:shmn nil)(princ))))) ^P
  2951. [RMAN]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  2952. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  2953. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  2954. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  2955. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  2956. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  2957. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  2958. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  2959. [BONUS]$S=X $S=SAMP1
  2960. [SAVE:]^C^CSAVE
  2961.  
  2962.  
  2963. **HEADER
  2964. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2965. [* * * *]$S=OSNAPB
  2966. **HEADER0
  2967. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2968. [* * * *]$S=OSNAPB
  2969. **HEADER1
  2970. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2971. [1 * * *]$S=OSNAPB
  2972. **HEADER2
  2973. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2974. [* 2 * *]$S=OSNAPB
  2975. **HEADER3
  2976. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2977. [1 2 * *]$S=OSNAPB
  2978. **HEADER4
  2979. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2980. [* * 3 *]$S=OSNAPB
  2981. **HEADER5
  2982. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2983. [1 * 3 *]$S=OSNAPB
  2984. **HEADER6
  2985. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2986. [* 2 3 *]$S=OSNAPB
  2987. **HEADER7
  2988. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2989. [1 2 3 *]$S=OSNAPB
  2990. **HEADER8
  2991. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2992. [* * * 4]$S=OSNAPB
  2993. **HEADER9
  2994. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2995. [1 * * 4]$S=OSNAPB
  2996. **HEADER10
  2997. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  2998. [* 2 * 4]$S=OSNAPB
  2999. **HEADER11
  3000. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  3001. [1 2 * 4]$S=OSNAPB
  3002. **HEADER12
  3003. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  3004. [* * 3 4]$S=OSNAPB
  3005. **HEADER13
  3006. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  3007. [1 * 3 4]$S=OSNAPB
  3008. **HEADER14
  3009. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  3010. [* 2 3 4]$S=OSNAPB
  3011. **HEADER15
  3012. [AutoCAD]^C^C^P$S=X $S=S (setq T_MENU 0)(princ) ^P$P1=POP1 $P2=P2DRAW $P4=P4DISP $P6=P6OPT $P8=POP8
  3013. [1 2 3 4]$S=OSNAPB
  3014. **X 3
  3015.  
  3016.  
  3017.  
  3018.  
  3019.  
  3020.  
  3021.  
  3022.  
  3023.  
  3024.  
  3025.  
  3026.  
  3027.  
  3028.  
  3029.  
  3030. [__LAST__]$S= $S=
  3031. [  DRAW  ]^C^C$S=X $S=DR
  3032. [  EDIT  ]^C^C$S=X $S=ED
  3033.  
  3034. **calc1 3
  3035. [  calc  ]^C^C$S=X calc \$S=calc1 
  3036.  
  3037. [   +    ]+;
  3038. [   -    ]-;
  3039. [   *    ]*;
  3040. [   /    ]/;
  3041.  
  3042. [Clear   ]Clear;
  3043.  
  3044. [Memory  ]$S=X m $S=calc2
  3045.  
  3046. [Sq root ]s;
  3047.  
  3048. [Ypower-x]y;
  3049.  
  3050. [Trig    ]$S=X Trig $S=calc3
  3051.  
  3052.  
  3053. [Exit    ]$S=X Exit $S=s
  3054. **calc2 3
  3055. [calc-Mem]
  3056.  
  3057. [   +    ]$S=X + $S=calc1
  3058. [   -    ]$S=X - $S=calc1
  3059. [   *    ]$S=X * $S=calc1
  3060. [   /    ]$S=X / $S=calc1
  3061.  
  3062. [Delete  ]$S=X d $S=calc1
  3063.  
  3064. [List    ]$S=X l $S=calc1
  3065.  
  3066. [Recall  ]$S=X r $S=calc1
  3067.  
  3068. [Set     ]$S=X s $S=calc1
  3069.  
  3070.  
  3071.  
  3072. [Exit    ]$S=X exit $S=calc1
  3073. **calc3 3
  3074.  
  3075. [Sine    ]$S=X sin $S=calc1
  3076.  
  3077. [Cosine  ]$S=X cos $S=calc1
  3078.  
  3079. [Tangent ]$S=X tan $S=calc1
  3080.  
  3081. [Arctan  ]$S=X Atan $S=calc1
  3082.  
  3083.  
  3084.  
  3085. [Exit    ]$S=X exit $S=calc1
  3086.  
  3087. **SAMP1 3
  3088. [ALIAS]^C^C^P(if (not c:alias) (if (not (or (setq al +
  3089. (findfile "sample/alias.lsp")) (setq al (findfile "alias.lsp")))) +
  3090. (defun C:alias () (princ "Cannot find alias.lsp ")(terpri);+
  3091. (princ "It is on the SAMPLE DISK. ")(setq C:alias nil)(princ));+
  3092. (progn(terpri)(princ (strcat "Loading " al " -- Please wait. "))+
  3093. (load al))));(princ) ALIAS ^P
  3094. [ASCTEXT]^C^C^P(if (not c:asctext) (if (not (or (setq as +
  3095. (findfile "sample/asctext.lsp")) (setq as (findfile "asctext.lsp")))) +
  3096. (defun C:asctext () (princ "Cannot find asctext.lsp ")(terpri);+
  3097. (princ "It is on the SAMPLE DISK. ")(setq C:asctext nil)(princ)) +
  3098. (progn(terpri)(princ (strcat "Loading " as " -- Please wait. ")) +
  3099. (load as))))(princ) ASCTEXT ^P
  3100. [ATTREDEF]^C^C^P(if (not c:attredef) (if (not (or (setq att +
  3101. (findfile "sample/attredef.lsp")) (setq att (findfile "attredef.lsp")))) +
  3102. (defun C:attredef () (princ "Cannot find attredef.lsp ")(terpri);+
  3103. (princ "It is on the SAMPLE DISK. ")(setq C:attredef nil)(princ));+
  3104. (progn(terpri)(princ (strcat "Loading " att " -- Please wait. "))+
  3105. (load att))))(princ) ATTREDEF ^P
  3106. [AXROT]^C^C^P(if (not c:axrot) (if (not (or (setq ax +
  3107. (findfile "sample/axrot.lsp")) (setq ax (findfile "axrot.lsp")))) +
  3108. (defun C:axrot () (princ "Cannot find axrot.lsp ")(terpri);+
  3109. (princ "It is on the SAMPLE DISK. ")(setq C:axrot nil)(princ));+
  3110. (progn(terpri)(princ (strcat "Loading " ax " -- Please wait. "))+
  3111. (load ax))))(princ) AXROT ^P
  3112. [CALC]^C^C^P(if (not c:calc) (if (not (or (setq ca +
  3113. (findfile "sample/calc.lsp")) (setq ca (findfile "calc.lsp")))) +
  3114. (defun C:calc () (princ "Cannot find calc.lsp ")(terpri);+
  3115. (princ "It is on the SAMPLE DISK. ")(setq C:calc nil)(princ));+
  3116. (progn(terpri)(princ (strcat "Loading " ca " -- Please wait. "))+
  3117. (load ca))))(princ) CALC ^P\$S=calc1
  3118. [CHBLOCK]^C^C^P(if (not c:chb) (if (not (or (setq ch +
  3119. (findfile "sample/chblock.lsp")) (setq ch (findfile "chblock.lsp")))) +
  3120. (defun C:chb () (princ "Cannot find chblock.lsp ")(terpri);+
  3121. (princ "It is on the SAMPLE DISK. ")(setq C:chb nil)(princ));+
  3122. (progn(terpri)(princ (strcat "Loading " ch " -- Please wait. "))+
  3123. (load ch))))(princ) CHB ^P
  3124. [CHFACE]^C^C^P(if (not c:chface) (if(not(or (setq chf +
  3125. (findfile "sample/chface.lsp")) (setq chf (findfile "chface.lsp")))) +
  3126. (defun C:chface () (princ "Cannot find chface.lsp ")(terpri);+
  3127. (princ "It is on the SAMPLE DISK. ")(setq C:chface nil)(princ));+
  3128. (progn(terpri)(princ (strcat "Loading " chf " -- Please wait. "))+
  3129. (load chf))))(princ) CHFACE ^P
  3130. [CHTEXT]^C^C^P(if (not c:cht) (if (not (or (setq cht +
  3131. (findfile "sample/chtext.lsp")) (setq cht (findfile "chtext.lsp")))) +
  3132. (defun C:cht () (princ "Cannot find chtext.lsp ")(terpri);+
  3133. (princ "It is on the SAMPLE DISK. ")(setq C:cht nil)(princ));+
  3134. (progn(terpri)(princ (strcat "Loading " cht " -- Please wait. "))+
  3135. (load cht))))(princ) CHT ^P
  3136. [CL]^C^C^P(if (not c:cl) (if (not (or (setq cl (findfile "sample/cl.lsp")) +
  3137. (setq cl (findfile "cl.lsp")))) (defun C:cl () (princ "Cannot find cl.lsp ");+
  3138. (terpri) (princ "It is on the SAMPLE DISK. ")(setq C:cl nil)(princ));+
  3139. (progn(terpri)(princ (strcat "Loading " cl " -- Please wait. "))+
  3140. (load cl))))(princ) CL ^P
  3141. [DELLAYER]^C^C^P(if (not c:dellayer) (if (not (or (setq de +
  3142. (findfile "sample/dellayer.lsp")) (setq de (findfile "dellayer.lsp")))) +
  3143. (defun C:dellayer () (princ "Cannot find dellayer.lsp ")(terpri);+
  3144. (princ "It is on the SAMPLE DISK. ")(setq C:dellayer nil)(princ));+
  3145. (progn(terpri)(princ (strcat "Loading " de " -- Please wait. "))+
  3146. (load de))))(princ) DELLAYER ^P
  3147. [DLINE]^C^C^P(if (not c:dline) (if (not (or (setq dl +
  3148. (findfile "sample/dline.lsp")) (setq dl (findfile "dline.lsp")))) +
  3149. (defun C:dline () (princ "Cannot find dline.lsp ")(terpri);+
  3150. (princ "It is on the SAMPLE DISK. ")(setq C:dline nil)(princ));+
  3151. (progn(terpri)(princ (strcat "Loading " dl " -- Please wait. "))+
  3152. (load dl))))(princ) DLINE ^P
  3153. [EDGE]^C^C^P(if (not c:edge)(if (not(or(setq ed (findfile "sample/edge.lsp")) +
  3154. (setq ed (findfile "edge.lsp")))) (defun C:edge () +
  3155. (princ "Cannot find edge.lsp ")(terpri) (princ "It is on the SAMPLE DISK. ");+
  3156. (setq C:edge nil)(princ)) (progn(terpri)(princ (strcat "Loading " ed " -- Please wait. "))+
  3157. (load ed))))(princ) EDGE ^P
  3158. [END]^C^C^P(if (not c:end) (if (not (or (setq en (findfile "sample/end.lsp")) +
  3159. (setq en (findfile "end.lsp"))))(defun C:end ()(princ "Cannot find end.lsp ");+
  3160. (terpri)(princ "It is on the SAMPLE DISK. ")(setq C:end nil)(princ));+
  3161. (progn (progn(terpri)(princ (strcat "Loading " en " -- Please wait. "))+
  3162. (load en))(menucmd "S=X")(menucmd "S=END"))))(princ)(c:end) ^P
  3163. [FACT]^C^C^P(if (not c:fact) (if (not (or (setq fa +
  3164. (findfile "sample/fact.lsp")) (setq fa (findfile "fact.lsp")))) +
  3165. (defun C:fact () (princ "Cannot find fact.lsp ")(terpri);+
  3166. (princ "It is on the SAMPLE DISK. ")(setq C:fact nil)(princ));+
  3167. (progn(terpri)(princ (strcat "Loading " fa " -- Please wait. "))(load fa))))+
  3168. (princ) FACT ^P
  3169.  
  3170. [  next]$S=X $S=SAMP2
  3171. **SAMP2 3
  3172. [LLOAD]^C^C^P(if (not c:ll) (if (not (or (setq lo +
  3173. (findfile "sample/lload.lsp")) (setq lo (findfile "lload.lsp")))) +
  3174. (defun C:ll () (princ "Cannot find lload.lsp ")(terpri);+
  3175. (princ "It is on the SAMPLE DISK. ")(setq C:ll nil)(princ));+
  3176. (progn(terpri)(princ (strcat "Loading " lo " -- Please wait. "))+
  3177. (load lo))))(princ) LL ^P
  3178. [MFACE]^C^C^P(if (not c:mface) (if (not (or (setq mf +
  3179. (findfile "sample/mface.lsp")) (setq mf (findfile "mface.lsp")))) +
  3180. (defun C:mface () (princ "Cannot find mface.lsp ")(terpri);+
  3181. (princ "It is on the SAMPLE DISK. ")(setq C:mface nil)(princ));+
  3182. (progn(terpri)(princ (strcat "Loading " mf " -- Please wait. "))+
  3183. (load mf))))(princ) MFACE ^P
  3184. [MVSETUP]^C^C^P(if (not c:mvs) (if (not (or (setq mv +
  3185. (findfile "sample/mvsetup.lsp")) (setq mv (findfile "mvsetup.lsp")))) +
  3186. (defun C:mvs () (princ "Cannot find mvsetup.lsp ")(terpri);+
  3187. (princ "It is on the SAMPLE DISK. ")(setq C:mvs nil)(princ));+
  3188. (progn(terpri)(princ (strcat "Loading " mv " -- Please wait. "))+
  3189. (load mv))))(princ) MVS ^P
  3190. [PROJECT]^C^C^P(if (not c:project) (if (not (or (setq pr +
  3191. (findfile "sample/project.lsp")) (setq pr (findfile "project.lsp")))) +
  3192. (defun C:project () (princ "Cannot find project.lsp ")(terpri);+
  3193. (princ "It is on the SAMPLE DISK. ")(setq C:project nil)(princ));+
  3194. (progn(terpri)(princ (strcat "Loading " pr " -- Please wait. "))+
  3195. (load pr))))(princ) PROJECT ^P
  3196. [PTEXT]^C^C^P(if (not c:ptext) (if (not (or (setq pt +
  3197. (findfile "sample/ptext.lsp")) (setq pt (findfile "ptext.lsp")))) +
  3198. (defun C:ptext () (princ "Cannot find ptext.lsp ")(terpri);+
  3199. (princ "It is on the SAMPLE DISK. ")(setq C:ptext nil)(princ));+
  3200. (progn(terpri)(princ (strcat "Loading " pt " -- Please wait. "))+
  3201. (load pt))))(princ) PTEXT ^P
  3202. [RECTANG]^C^C^P(if (not c:rectang) (if (not (or (setq re +
  3203. (findfile "sample/rectang.lsp")) (setq re (findfile "rectang.lsp")))) +
  3204. (defun C:rectang () (princ "Cannot find rectang.lsp ")(terpri);+
  3205. (princ "It is on the SAMPLE DISK. ")(setq C:rectang nil)(princ));+
  3206. (progn(terpri)(princ (strcat "Loading " re " -- Please wait. "))+
  3207. (load re))))(princ) RECTANG ^P
  3208. [RPOLY]^C^C^P(if (not c:rpoly) (if (not (or (setq rp +
  3209. (findfile "sample/rpoly.lsp")) (setq rp (findfile "rpoly.lsp")))) +
  3210. (defun C:rpoly () (princ "Cannot find rpoly.lsp ")(terpri);+
  3211. (princ "It is on the SAMPLE DISK. ")(setq C:rpoly nil)(princ));+
  3212. (progn(terpri)(princ (strcat "Loading " rp " -- Please wait. "))+
  3213. (load rp))))(princ) RPOLY ^P
  3214. [SPIRAL]^C^C^P(if (not c:spiral) (if (not (or (setq sp +
  3215. (findfile "sample/spiral.lsp")) (setq sp (findfile "spiral.lsp")))) +
  3216. (defun C:spiral () (princ "Cannot find spiral.lsp ")(terpri);+
  3217. (princ "It is on the SAMPLE DISK. ")(setq C:spiral nil)(princ));+
  3218. (progn(terpri)(princ (strcat "Loading " sp " -- Please wait. "))+
  3219. (load sp))))(princ) SPIRAL ^P
  3220. [SSX]^C^C^P(if (not c:ssx) (if (not (or (setq ss +
  3221. (findfile "sample/ssx.lsp")) (setq ss (findfile "ssx.lsp")))) +
  3222. (defun C:ssx () (princ "Cannot find ssx.lsp ")(terpri);+
  3223. (princ "It is on the SAMPLE DISK. ")(setq C:ssx nil)(princ));+
  3224. (progn(terpri)(princ (strcat "Loading " ss " -- Please wait. "))+
  3225. (load ss))))(princ) SSX ^P
  3226. [TABLES]^C^C^P(if (not c:tables) (if (not (or (setq ta +
  3227. (findfile "sample/tables.lsp")) (setq ta (findfile "tables.lsp")))) +
  3228. (defun C:tables () (princ "Cannot find tables.lsp ")(terpri);+
  3229. (princ "It is on the SAMPLE DISK. ")(setq C:tables nil)(princ));+
  3230. (progn(terpri)(princ (strcat "Loading " ta " -- Please wait. "))+
  3231. (load ta))))(princ) TABLES ^P
  3232. [XDATA]^C^C^P(if (not c:xdata) (if (not (or (setq xd +
  3233. (findfile "sample/xdata.lsp")) (setq xd (findfile "xdata.lsp")))) +
  3234. (defun C:xdata () (princ "Cannot find xdata.lsp ")(terpri);+
  3235. (princ "It is on the SAMPLE DISK. ")(setq C:xdata nil)(princ));+
  3236. (progn(terpri)(princ (strcat "Loading " xd " -- Please wait. "))+
  3237. (load xd))))(princ) XDATA ^P
  3238. [XPLODE]^C^C^P(if (not c:xplode) (if (not (or (setq xp +
  3239. (findfile "sample/xplode.lsp")) (setq xp (findfile "xplode.lsp")))) +
  3240. (defun C:xplode () (princ "Cannot find xplode.lsp ")(terpri);+
  3241. (princ "It is on the SAMPLE DISK. ")(setq C:xplode nil)(princ));+
  3242. (progn(terpri)(princ (strcat "Loading " xp " -- Please wait. "))+
  3243. (load xp))))(princ) XPLODE ^P
  3244. [XREFCLIP]^C^C^P(if (not C:xrefclip) (if (not (or (setq xc +
  3245. (findfile "sample/xrefclip.lsp")) (setq xc (findfile "xrefclip.lsp")))) +
  3246. (defun C:xrefclip () (princ "Cannot find xrefclip.lsp ")(terpri);+
  3247. (princ "It is on the SAMPLE DISK. ")(setq C:xrefclip nil)(princ));+
  3248. (progn(terpri)(princ (strcat "Loading " xc " -- Please wait. "))+
  3249. (load xc))))(princ) XREFCLIP ^P
  3250.  
  3251. [previous]$S=X $S=SAMP1
  3252. **BL 3
  3253. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  3254. [BASE:]^C^CBASE
  3255. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK
  3256. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  3257. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  3258. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK
  3259.  
  3260. [XBIND:]$S=X $S=XBIND ^C^CXBIND
  3261. [XREF:]$S=X $S=XREF ^C^CXREF
  3262.  
  3263. **DS 3
  3264. [ATTDISP:]$S=X $S=ATTDISP ^C^CATTDISP
  3265. [DVIEW:]$S=X $S=DVIEW ^C^CDVIEW
  3266. [MVIEW:]$S=X $S=MV ^C^CMVIEW
  3267. [PAN:]'PAN
  3268. [PLAN:]$S=X $S=PLAN ^C^CPLAN
  3269. [REDRALL:]'REDRAWALL
  3270. [REDRAW:]'REDRAW
  3271. [REGEN:]^C^CREGEN
  3272. [REGNALL:]^C^CREGENALL
  3273. [RGNAUTO:]$S=X $S=RGNAUTO ^C^CREGENAUTO
  3274. [SHADE]$S=X $S=SHADE
  3275. [VIEW:]$S=X $S=VIEW 'VIEW
  3276. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES
  3277. [VPOINT:]$S=X $S=VPOINT ^C^CVPOINT
  3278. [ZOOM:]$S=X $S=ZOOM 'ZOOM
  3279. **DR 3
  3280. [ARC]$S=X $S=ARC
  3281. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  3282. [CIRCLE]$S=X $S=CIRCLE
  3283. [DONUT:]^C^CDONUT
  3284. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  3285. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE
  3286. [HATCH:]$S=X $S=HATCH ^C^CHATCH
  3287. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  3288. [LINE:]$S=X $S=LINE ^C^CLINE
  3289. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  3290. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  3291. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  3292.  
  3293. [next]$S=X $S=DR2
  3294. **DR2 3
  3295. [POINT:]$S=X $S=POINT ^C^CPOINT
  3296. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON
  3297. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE
  3298. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH
  3299. [SOLID:]$S=X $S=SOLID ^C^CSOLID
  3300. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  3301. [TRACE:]$S=X $S=TRACE ^C^CTRACE
  3302. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  3303.  
  3304. [3D Surfs]$S=X $S=3D
  3305. [SOLIDS]^C^C^P(progn(setq m:err *error*)(princ))+
  3306. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  3307. (if (null c:solbox)(progn (menucmd "S=X")(menucmd "S=SOLLOAD"))+
  3308. (progn (menucmd "S=X")(menucmd "S=SOLIDS")))(princ);^P
  3309.  
  3310.  
  3311. [previous]$S=X $S=DR
  3312. **ED 3
  3313. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY
  3314. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT
  3315. [BREAK:]$S=X $S=BREAK ^C^CBREAK
  3316. [CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER
  3317. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE
  3318. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP
  3319. [COPY:]$S=X $S=COPY ^C^CCOPY
  3320. [DDATTE:]^C^CDDATTE
  3321. [DDEDIT:]$S=X $S=DDEDIT ^C^CDDEDIT
  3322. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE
  3323. [ERASE:]$S=X $S=ERASE ^C^CERASE
  3324. [EXPLODE:]^C^CEXPLODE
  3325. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND
  3326. [next]$S=X $S=ED2
  3327. **ED2 3
  3328. [FILLET:]$S=X $S=FILLET ^C^CFILLET
  3329. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE
  3330. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR
  3331. [MOVE:]$S=X $S=MOVE ^C^CMOVE
  3332. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  3333. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  3334. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  3335. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  3336. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  3337. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  3338. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  3339. (menucmd "S=X")(menucmd "S=P0"))(progn(terpri)+
  3340. (princ "Entity selected is not a polyline.")(terpri)(setq m:s1 nil))))))))+
  3341. (defun m:p1 (/ m:a)(menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil);+
  3342. (menucmd"S=P0")(progn(setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")+
  3343. (if(< m:a 4)(menucmd"S=P0")(menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)+
  3344. (setq *error* m:err)(princ))(princ));PEDITM;^P
  3345. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE
  3346. [SCALE:]$S=X $S=SCALE ^C^CSCALE
  3347. [SELECT:]$S=X $S=SELECT ^C^CSELECT
  3348. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C
  3349. [TRIM:]$S=X $S=TRIM ^C^CTRIM
  3350. [UNDO:]$S=X $S=UNDO ^C^CUNDO
  3351.  
  3352. [previous]$S=X $S=ED
  3353. **INQ 5
  3354. [AREA:]$S=X $S=AREA ^C^CAREA
  3355. [DBLIST:]^CDBLIST
  3356. [DIST:]^C^CDIST
  3357. [HELP:]'HELP
  3358. [ID:]$S=X $S=ID ^C^CID
  3359. [LIST:]$S=X $S=LIST ^C^CLIST
  3360. [STATUS:]^C^CSTATUS
  3361. [TIME:]^C^CTIME
  3362. **SET 3
  3363. [DDEMODES]'DDEMODES
  3364. [DDRMODES]'DDRMODES
  3365. [--------]
  3366. [APERTUR:]$S=X $S=APERTURE ^C^CAPERTURE
  3367. [AXIS:]$S=X $S=AXIS ^C^CAXIS
  3368. [BLIPS:]$S=X $S=BLIPMODE ^C^CBLIPMODE
  3369. [COLOR:]$S=X $S=COLOR ^C^CCOLOR
  3370. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE
  3371. [ELEV:]^C^CELEV
  3372. [GRID:]$S=X $S=GRID ^C^CGRID
  3373. [HANDLES:]$S=X $S=HANDLES ^C^CHANDLES
  3374. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE
  3375. [LIMITS:]$S=X $S=LIMITS ^C^CLIMITS
  3376.  
  3377. [next]$S=X $S=SET2
  3378. **SET2 3
  3379. [LTSCALE:]^C^CLTSCALE
  3380. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP
  3381. [QTEXT:]$S=X $S=QTEXT ^C^CQTEXT
  3382. [SETVAR:]$S=X $S=SETVAR1 'SETVAR
  3383. [SNAP:]$S=X $S=SNAP ^C^CSNAP
  3384. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  3385. [TABLET:]$S=X $S=TABLET ^C^CTABLET
  3386. [UCS:]$S=X $S=UCS1 ^C^CUCS
  3387. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON
  3388. [UNITS:]^CUNITS
  3389. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  3390.  
  3391.  
  3392.  
  3393. [previous]$S=X $S=SET
  3394. **PLOT 3
  3395.  
  3396. [ C   D]
  3397. [ H   E]
  3398. [ O   V]
  3399. [ O   I]
  3400. [ S   C]
  3401. [ E   E]
  3402.  
  3403.  
  3404. [PLOTTER]^C^CPLOT
  3405.  
  3406. [PRINTER]^C^CPRPLOT
  3407.  
  3408.  
  3409. **SOLLOAD 3
  3410.  
  3411. [LOAD AME]^C^C^P+
  3412. (defun *error* (msg)(if (= msg "null function") (progn (terpri)+
  3413. (princ "ERROR: AME is not available on this platform.")(princ));+
  3414. (progn(princ msg)(setq *error* m:err m:err nil f nil)(princ))))+
  3415. (cond ((null c:solbox)(princ "Loading AME...")+
  3416. (cond ((setq f (findfile "ame")) (xload f))+
  3417. ((setq f (findfile "ame.exp")) (xload f));+
  3418. (T (terpri)(princ "ERROR:  File not found. ")))+
  3419. (if f (progn(terpri)(princ "AutoCAD AME executable loaded. ")+
  3420. (menucmd "p9=p9prim")(menucmd "s=SOLIDS")(princ));+
  3421. (progn(terpri)(princ "Unable to load AME executable.")+
  3422. (menucmd "S=")(menucmd "S=")(princ)))));^P
  3423.  
  3424.  
  3425. [LOAD    ]^C^C^P+
  3426. (defun *error* (msg)(if (= msg "null function") (progn (terpri)+
  3427. (princ "ERROR: AME is not available on this platform.")(princ));+
  3428. (progn(princ msg)(setq *error* m:err m:err nil f nil)(princ))))+
  3429. (cond ((null c:solbox)(princ "Loading AMElite...")+
  3430. (cond ((setq f (findfile "amelite")) (xload f))+
  3431. ((setq f (findfile "amelite.exp")) (xload f));+
  3432. (T (terpri)(princ "ERROR:  File not found. ")))+
  3433. (if f (progn(terpri)(princ "AutoCAD AMElite executable loaded. ")+
  3434. (menucmd "p9=p9prim")(menucmd "s=SOLIDS")(princ));+
  3435. (progn(terpri)(princ "Unable to load AMElite executable. ")+
  3436. (menucmd "S=")(menucmd "S=")(princ)))));^P
  3437. [AMElite ]^C^C^P+
  3438. (defun *error* (msg)(if (= msg "null function") (progn (terpri)+
  3439. (princ "ERROR: AME is not available on this platform.")(princ));+
  3440. (progn(princ msg)(setq *error* m:err m:err nil f nil)(princ))))+
  3441. (cond ((null c:solbox)(princ "Loading AMElite...")+
  3442. (cond ((setq f (findfile "amelite")) (xload f))+
  3443. ((setq f (findfile "amelite.exp")) (xload f));+
  3444. (T (terpri)(princ "ERROR:  File not found. ")))+
  3445. (if f (progn(terpri)(princ "AutoCAD AMElite executable loaded. ")+
  3446. (menucmd "p9=p9prim")(menucmd "s=SOLIDS")(princ));+
  3447. (progn(terpri)(princ "Unable to load AMElite executable. ")+
  3448. (menucmd "S=")(menucmd "S=")(princ)))));^P
  3449.  
  3450.  
  3451.  
  3452.  
  3453.  
  3454. **SOLIDS 3
  3455. [SOLBOX: ]^C^C$S=X $S=SBOX SOLBOX
  3456. [SOLCONE:]^C^C$S=X $S=SCONE SOLCONE
  3457. [SOLCYL: ]^C^C$S=X $S=SCYL SOLCYL
  3458. [SOLSPH: ]^C^C$S=X $S=SSPH SOLSPHERE
  3459. [SOLTORS:]^C^C$S=X $S=STOR SOLTORUS
  3460. [SOLWEGE:]^C^C$S=X $S=SWEDGE SOLWEDGE
  3461. [SOLEXT: ]^C^C$S=X $S=SEXT SOLEXT
  3462. [SOLREV: ]^C^C$S=X $S=SREV SOLREV
  3463. [SOLIDIFY]^C^C$S=X $S=SSOLID SOLIDIFY
  3464.  
  3465. [MODIFY]$S=X $S=SMODIFY
  3466. [INQUIRY]$S=X $S=SINQUIRE
  3467. [DISPLAY]$S=X $S=SRENDER
  3468. [UTILITY]$S=X $S=SUTIL
  3469.  
  3470. **SUTIL 3
  3471. [SOLMAT: ]^C^C$S=X $S=SCHMAT SOLMAT
  3472. [SOLVAR: ]^C^C$S=X $S=SSOLV SOLVAR
  3473. [SOLUCS: ]^C^C$S=X $S=SUCS SOLUCS
  3474.  
  3475. [SOLIN:]^C^CSOLIN
  3476. [SOLOUT:]^C^CSOLOUT
  3477. [SOLPURG:]^C^C$S=X $S=SPURGE SOLPURGE
  3478. [UNLOAD  ]^C^C^P(if (xunload "ame" nil)+
  3479. (princ (strcat "AME unloaded." (chr 10))))+
  3480. (if (xunload "amelite" nil)(princ "AMElite unloaded."))+
  3481. (menucmd "p9=POP9")(menucmd "S=S")(princ);^P
  3482.  
  3483. [SOLIDS]$S=X $S=SOLIDS
  3484. [MODIFY]$S=X $S=SMODIFY
  3485. [INQUIRY]$S=X $S=SINQUIRE
  3486. [DISPLAY]$S=X $S=SRENDER
  3487.  
  3488. **SMODIFY 3
  3489. [SOLINT:]^C^C$S=X $S=SINT SOLINT
  3490. [SOLSUB:]^C^C$S=X $S=SSUB SOLSUB
  3491. [SOLUNON:]^C^C$S=X $S=SUNION SOLUNION
  3492. [SOLCHAM:]^C^C$S=X $S=SCHAM SOLCHAM
  3493. [SOLFILL:]^C^C$S=X $S=SFILL SOLFILL
  3494. [SOLCHP:]^C^C$S=X $S=SCHP SOLCHP
  3495. [SOLMOVE:]^C^C$S=X $S=SMOVE SOLMOVE
  3496. [SOLSEP:]^C^C$S=X $S=SSEP SOLSEP
  3497.  
  3498. [SOLIDS]$S=X $S=SOLIDS
  3499.  
  3500. [INQUIRY]$S=X $S=SINQUIRE
  3501. [DISPLAY]$S=X $S=SRENDER
  3502. [UTILITY]$S=X $S=SUTIL
  3503. **SINQUIRE 3
  3504. [SOLLIST:]^C^C$S=X $S=SLIST SOLLIST
  3505. [SOLMASP:]^C^C$S=X $S=SMASSP SOLMASSP
  3506. [SOLAREA:]^C^C$S=X $S=SAREA SOLAREA
  3507.  
  3508.  
  3509.  
  3510.  
  3511.  
  3512.  
  3513. [SOLIDS]$S=X $S=SOLIDS
  3514. [MODIFY]$S=X $S=SMODIFY
  3515.  
  3516. [DISPLAY]$S=X $S=SRENDER
  3517. [UTILITY]$S=X $S=SUTIL
  3518. **SRENDER 3
  3519. [SOLMESH:]^C^C$S=X $S=SMESH SOLMESH
  3520. [SOLWIRE:]^C^C$S=X $S=SWIRE SOLWIRE
  3521.  
  3522. [SOLFEAT:]^C^C$S=X $S=SFEAT SOLFEAT
  3523. [SOLPROF:]^C^C$S=X $S=SPROF SOLPROF
  3524. [SOLSECT:]^C^C$S=X $S=SSECT SOLSECT
  3525.  
  3526.  
  3527.  
  3528. [SOLIDS]$S=X $S=SOLIDS
  3529. [MODIFY]$S=X $S=SMODIFY
  3530. [INQUIRY]$S=X $S=SINQUIRE
  3531.  
  3532. [UTILITY]$S=X $S=SUTIL
  3533. **SBOX 3
  3534. [BOX:]^C^CSOLBOX
  3535.  
  3536. Cube
  3537. Length
  3538.  
  3539. **SWEDGE 3
  3540. [WEDGE:]^C^CSOLWEDGE
  3541.  
  3542. Length
  3543.  
  3544. **SCONE 3
  3545. [CONE:]^C^CSOLCONE
  3546.  
  3547. [Elliptcl]Elliptical
  3548. [Center  ]C
  3549.  
  3550. Diameter
  3551.  
  3552. **SCYL 3
  3553. [CYLNDER:]^C^CSOLCYL
  3554.  
  3555. [Elliptcl]Elliptical
  3556. [Center  ]C
  3557.  
  3558. Diameter
  3559.  
  3560. **SSPH 3
  3561. [SPHERE:]^C^CSOLSPHERE
  3562.  
  3563. Diameter
  3564.  
  3565. **STOR 3
  3566. [TORUS:]^C^CSOLTORUS
  3567.  
  3568. Diameter
  3569.  
  3570. **SFILL 3
  3571. [SOLFILL:]^C^CSOLFILL
  3572.  
  3573. Diameter
  3574.  
  3575. **SCHAM 3
  3576. [CHAMFER:]^C^CSOLCHAM
  3577.  
  3578. Next
  3579. OK
  3580.  
  3581. **SEXT 3
  3582. [EXTRUDE:]^C^CSOLEXT
  3583.  
  3584. Window
  3585. Last
  3586. Previous
  3587. Crossing
  3588. Remove
  3589. Add
  3590.  
  3591. **SREV 3
  3592. [REVOLVE:]^C^CSOLREV
  3593.  
  3594. Window
  3595. Last
  3596. Previous
  3597. Crossing
  3598. Remove
  3599. Add
  3600.  
  3601. Entity
  3602. X
  3603. Y
  3604.  
  3605.  
  3606. **SSOLID 3
  3607. [SOLIDFY]^C^CSOLIDIFY
  3608.  
  3609. Window
  3610. Last
  3611. Previous
  3612. Crossing
  3613. Remove
  3614. Add
  3615.  
  3616. Yes
  3617. No
  3618.  
  3619. **SINT 3
  3620. [INTERS:]^C^CSOLINT
  3621.  
  3622. Window
  3623. Last
  3624. Previous
  3625. Crossing
  3626. Remove
  3627. Add
  3628.  
  3629. **SSUB 3
  3630. [SUBTRCT:]^C^CSOLSUB
  3631.  
  3632. Window
  3633. Last
  3634. Previous
  3635. Crossing
  3636. Remove
  3637. Add
  3638.  
  3639. **SUNION 3
  3640. [UNION:]^C^CSOLUNION
  3641.  
  3642. Window
  3643. Last
  3644. Previous
  3645. Crossing
  3646. Remove
  3647. Add
  3648.  
  3649. **SSEP 3
  3650. [SEPRATE:]^C^CSOLSEP
  3651.  
  3652. Window
  3653. Last
  3654. Previous
  3655. Crossing
  3656. Remove
  3657. Add
  3658.  
  3659. **SCHP 3
  3660. [CHPRIM:]^C^CSOLCHP
  3661.  
  3662. Color
  3663. Delete
  3664. Evaluate
  3665. Instance
  3666. Move
  3667. Next
  3668. Pick
  3669. Replace
  3670. Size
  3671. eXit
  3672.  
  3673. Yes
  3674. No
  3675. **SCHMAT 3
  3676. [MATERAL:]^C^CSOLMAT
  3677.  
  3678. Change
  3679. Edit
  3680. eXit
  3681. LIst
  3682. LOad
  3683. New
  3684. Remove
  3685. SAve
  3686. SEt
  3687. ?
  3688.  
  3689. **SMOVE  3
  3690. [SOLMOVE:]^C^CSOLMOVE
  3691. ?
  3692. Window
  3693. Last
  3694. Previous
  3695.  
  3696. [Align]a^^
  3697. [  Edge]edge
  3698. [  Face]face
  3699. [  Ucs]ucs
  3700. [  World]world
  3701. [Origin]origin
  3702.  
  3703. OK
  3704. Next
  3705. **SPURGE 3
  3706. [PURGE:]^C^CSOLPURGE
  3707.  
  3708. Memory
  3709. Bfile
  3710. Pmesh
  3711. Erased
  3712.  
  3713. All
  3714. Select
  3715.  
  3716. Window
  3717. Last
  3718. Previous
  3719. Crossing
  3720.   
  3721. **SLIST 3
  3722. [LIST:]^C^CSOLLIST
  3723.  
  3724. Window
  3725. Last
  3726. Previous
  3727. Crossing
  3728. Remove
  3729. Add
  3730.  
  3731. Edge
  3732. Face
  3733. Tree
  3734. Solid
  3735.  
  3736. **SPROF 3
  3737. [PROFILE:]^C^CSOLPROF
  3738.  
  3739. Window
  3740. Last
  3741. Previous
  3742. Crossing
  3743. Remove
  3744. Add
  3745.  
  3746. Yes
  3747. No
  3748.  
  3749. **SFEAT 3
  3750. [FEATURE:]^C^CSOLFEAT
  3751.  
  3752. Edge
  3753. Face
  3754.  
  3755. OK
  3756. Next
  3757.  
  3758. **SUCS 3
  3759. [UCS:]^C^CSOLUCS
  3760.  
  3761. Edge
  3762. Face
  3763.  
  3764. OK
  3765. Next
  3766.  
  3767. **SWIRE 3
  3768. [WIRE:]^C^CSOLWIRE
  3769.  
  3770. Window
  3771. Last
  3772. Previous
  3773. Crossing
  3774. Remove
  3775. Add
  3776.  
  3777. **SSECT 3
  3778. [SOLSECT:]^C^CSOLSECT
  3779.  
  3780. Window
  3781. Last
  3782. Previous
  3783. Crossing
  3784. Remove
  3785. Add
  3786.  
  3787. **SMESH 3
  3788. [MESH:]^C^CSOLMESH
  3789.  
  3790. Window
  3791. Last
  3792. Previous
  3793. Crossing
  3794. Remove
  3795. Add
  3796.  
  3797. **SMASSP 3
  3798. [MASSPRP:]^C^CSOLMASSP
  3799.  
  3800. Window
  3801. Last
  3802. Previous
  3803. Crossing
  3804. Remove
  3805. Add
  3806.  
  3807. Yes
  3808. No
  3809.  
  3810. **SAREA 3
  3811. [AREA:]^C^CSOLAREA
  3812.  
  3813. Window
  3814. Last
  3815. Previous
  3816. Crossing
  3817. Remove
  3818. Add
  3819.  
  3820. **SSOLV 3
  3821. [SOLVAR:]^C^CSOLVAR
  3822. [Amever  ]solamever
  3823. [Areau   ]solareau
  3824. [Axcol   ]solaxcol
  3825. [Decomp  ]soldecomp
  3826. [Delent  ]soldelent
  3827. [Display ]soldisplay
  3828. [Hangle  ]solhangle
  3829. [Hpat    ]solhpat
  3830. [Hsize   ]solhsize
  3831. [Length  ]sollength
  3832. [Mass    ]solmass
  3833.  
  3834. [More... ]$S=X $S=SSOLV2
  3835. **SSOLV2 3
  3836. [SOLVAR:]^C^CSOLVAR
  3837. [Matcurr ]solmatcurr
  3838. [Pagelen ]solpagelen
  3839. [Render  ]solrender
  3840. [Servmsg ]solservmsg
  3841. [Solidify]solsolidify
  3842. [Subdiv  ]solsubdiv
  3843. [Volume  ]solvolume
  3844. [Solwdens]solwdens
  3845.  
  3846.  
  3847.  
  3848.  
  3849. [Previous]$S=X $S=SSOLV
  3850.  
  3851. **UT 3
  3852. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT
  3853. [AUDIT:]$S=X $S=AUDIT ^C^CAUDIT \$S= $S=
  3854. [DXF/DXB]$S=X $S=DXF
  3855. [FILES:]^C^CFILES
  3856. [IGES]$S=X $S=IGES
  3857. [MENU:]^C^CMENU
  3858. [PURGE:]$S=X $S=PURGE ^C^CPURGE
  3859. [RENAME:]$S=X $S=RENAME ^C^CRENAME
  3860. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT
  3861. [SLIDES]$S=X $S=SLIDES
  3862. [External]$S=X $S=EXCOMDS
  3863. [Commands]$S=X $S=EXCOMDS
  3864.  
  3865. [END:]^C^CEND
  3866. [QUIT]$S=X $S=QUIT
  3867.  
  3868. **ASH11 3
  3869. [LIGHTS:]^C^C$S=X $S=ASH11L LIGHT
  3870. [CAMERA:]^C^C$S=X $S=ASH11C CAMERA
  3871. [ACTION]^C^C$S=X $S=ASH11A
  3872.  
  3873. [CAMVIEW:]^C^CCAMVIEW
  3874. **ASH11L 3
  3875. [LIGHT:]^C^CLIGHT
  3876.  
  3877. [Point]p
  3878. Directed
  3879.  
  3880. [Filters]
  3881. .x
  3882. .y
  3883. .z
  3884. .xy
  3885. .xz
  3886. .yz
  3887.  
  3888. [CAMERA:]^C^C$S=X $S=ASH11C CAMERA
  3889. [ACTION]$S=X $S=ASH11A
  3890. **ASH11C 3
  3891. [CAMERA:]^C^CCAMERA
  3892.  
  3893. [Filters]
  3894. .x
  3895. .y
  3896. .z
  3897. .xy
  3898. .xz
  3899. .yz
  3900.  
  3901. [CAMVIEW:]^C^CCAMVIEW
  3902.  
  3903.  
  3904. [LIGHTS:]^C^C$S=X $S=ASH11L LIGHT
  3905. [ACTION]$S=X $S=ASH11A
  3906. **ASH11A 3
  3907. [ACTION]
  3908.  
  3909. [SCENE:]^C^CSCENE
  3910. [FLMROLL:]^C^CFILMROLL
  3911.  
  3912.  
  3913.  
  3914.  
  3915.  
  3916.  
  3917.  
  3918.  
  3919.  
  3920. [LIGHTS:]^C^C$S=X $S=ASH11L LIGHT
  3921. [CAMERA:]^C^C$S=X $S=ASH11C CAMERA
  3922. **ASH 3
  3923. [LIGHT:]^C^C$S=X ^p(progn(menucmd(if g:rman"s=ashlrm""s=ashl"));+
  3924. (princ)) ^pLIGHT
  3925. [VLIGHT:]^C^C$S=X ^p(progn(menucmd(if g:rman"s=ashlrm""s=ashl"));+
  3926. (princ)) ^pVLIGHT
  3927. [CAMERA:]^C^C$S=X $S=ASHC CAMERA
  3928. [VCAMERA:]^C^C$S=X $S=ASHC VCAMERA
  3929. [FINISH:]^C^CFINISH
  3930. [SCENE:]^C^CSCENE
  3931.  
  3932. [CAMVIEW:]^C^CCAMVIEW
  3933.  
  3934. [FILMROL:]^C^CFILMROLL
  3935. [DEFAULT:]^C^C$S=X $S=DEFAULTS DEFAULTS
  3936. [RMSCAN:]^C^CRMSCAN
  3937. [--------]
  3938. [RMAN]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  3939. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  3940. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  3941. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  3942. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  3943. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  3944. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  3945. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  3946. **ASHL 3
  3947. [LIGHT:]^C^CLIGHT
  3948. [VLIGHT:]^C^CVLIGHT
  3949.  
  3950. [Point]p
  3951. Directed
  3952.  
  3953. .x
  3954. .y
  3955. .z
  3956. .xy
  3957. .xz
  3958. .yz
  3959. **ASHLRM 3
  3960. [LIGHT:]^C^CLIGHT
  3961. [VLIGHT:]^C^CVLIGHT
  3962.  
  3963. [Point]p
  3964. Directed
  3965. Spot
  3966. .x
  3967. .y
  3968. .z
  3969. .xy
  3970. .xz
  3971. .yz
  3972. **ASHC 3
  3973. [CAMERA:]^C^CCAMERA
  3974. [VCAMERA:]^C^CVCAMERA
  3975.  
  3976.  
  3977. [CAMVIEW:]^C^CCAMVIEW
  3978.  
  3979. .x
  3980. .y
  3981. .z
  3982. .xy
  3983. .xz
  3984. .yz
  3985. **DEFAULTS 3
  3986. [DEFAULT:]^C^CDEFAULTS
  3987.  
  3988. Resize
  3989. Scale
  3990. [Prompts]Prompts $S=X $S=YESNO \$S= $S=
  3991.  
  3992.  
  3993. Select
  3994. **RMAN 3
  3995. [RMSETUP:]^C^C$S=X $S=RMSETUP RMSETUP
  3996. [RMPROP: ]^C^C$S=X $S=RMPROP RMPROP
  3997.  
  3998. [RMATTAC:]^C^C$S=X $S=RMATTACH RMATTACH
  3999. [RMEDIT: ]^C^C$S=X $S=RMEDIT RMEDIT
  4000. [RMCOPY: ]^C^C$S=X $S=RMCOPY RMCOPY
  4001.  
  4002. [RMLIST: ]^C^C$S=X $S=RMLIST RMLIST
  4003.  
  4004. [FILMROL:]^C^CFILMROLL
  4005. [DEFAULT:]^C^C$S=X $S=DEFAULTS DEFAULTS
  4006. [RMSCAN:]^C^CRMSCAN
  4007. [--------]
  4008. [ASHADE]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  4009. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  4010. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)  "S=ASH")+
  4011. ((= G:SVER 11)"S=ASH11")(T"S=")))(setq m:shmn nil)(princ))(princ))(cond(G:SVER;+
  4012. (setq *error* m:err m:err nil)(m:shmn))(T (vmon)(cond((findfile"ashade.lsp")+
  4013. (load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn)(progn(terpri);+
  4014. (prompt "The file '") (princ (findfile "ashade.lsp"))+
  4015. (prompt "' is incompatible with AutoCAD r11.");+
  4016. (setq m:shmn nil C:CAMERA nil C:LIGHT nil C:CAMVIEW nil C:SCENE nil)(princ))))+
  4017. (T(terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  4018. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  4019. (setq *error* m:err m:err nil m:shmn nil)(princ))))) ^P
  4020. **RMSETUP 3
  4021. [RMSETUP:]^C^CRMSETUP
  4022.  
  4023.  
  4024. Air
  4025. Bucket
  4026. [Crop]Crop $S=X $S=RMSETUPC \$S= $S=
  4027. [Dest]Dest $S=X $S=RMSETUPD \$S= $S=
  4028. Exposure
  4029. [Filter]Filter $S=X $S=RMSETUPFI \$S= $S=
  4030. [Format]Format $S=X $S=RMSETUPFO \$S= $S=
  4031. [Merge]Merge $S=X $S=YESNO \$S= $S=
  4032. Rate
  4033. Samples
  4034. **RMSETUPC 3
  4035.  
  4036.  
  4037. Visual
  4038.  
  4039. Numeric
  4040. **RMSETUPD 3
  4041.  
  4042.  
  4043. [Cpscript]Cpostscript
  4044. [Pscript]Postscript
  4045. File
  4046. Tiff
  4047. Vga
  4048. Tga
  4049. Targa
  4050. Vista
  4051. Framebuffer
  4052. **RMSETUPFI 3
  4053.  
  4054.  
  4055. Box
  4056.  
  4057. Gaussian
  4058. **RMSETUPFO 3
  4059.  
  4060.  
  4061. Ascii
  4062.  
  4063. Binary
  4064. **YESNO 3
  4065.  
  4066.  
  4067. Yes
  4068.  
  4069. No
  4070. **RMPROP 3
  4071. [RMPROP:]^C^CRMPROP
  4072.  
  4073.  
  4074. Air
  4075. Color
  4076. Displace
  4077. Opaque
  4078. Project
  4079. Rate
  4080. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  4081. Surface
  4082. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  4083. **RMPROPTC 3
  4084.  
  4085.  
  4086. Insert
  4087.  
  4088. Pick
  4089.  
  4090. Numeric
  4091. **RMEDIT 3
  4092. [RMEDIT:]^C^CRMEDIT
  4093.  
  4094.  
  4095. Air
  4096. Color
  4097. Displace
  4098. Opaque
  4099. Project
  4100. Rate
  4101. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  4102. Surface
  4103. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  4104. **RMCOPY 3
  4105. [RMCOPY:]^C^CRMCOPY
  4106.  
  4107.  
  4108. Air
  4109. Color
  4110. Displace
  4111. Opaque
  4112. Project
  4113. Rate
  4114. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  4115. Surface
  4116. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  4117. **RMATTACH 3
  4118. [RMATTAC:]^C^CRMATTACH
  4119.  
  4120. ?
  4121.  
  4122. Layer
  4123. Select
  4124. **RMLIST 3
  4125. [RMLIST:]^C^CRMLIST
  4126.  
  4127. Colors
  4128. Shaders
  4129. Entity
  4130. Layer
  4131. Defined
  4132.  
  4133.  
  4134. Atmosphere
  4135. Displacement
  4136. Light
  4137. Surface
  4138.  
  4139.  
  4140. **OSNAPB 2
  4141. [  HELP  ]$S= 'help
  4142. [CENter]CENTER $S=
  4143. [ENDpoint]ENDPOINT $S=
  4144. [INSert]INSERT $S=
  4145. [INTersec]INTERSEC $S=
  4146. [MIDpoint]MIDPOINT $S=
  4147. [NEArest]NEAREST $S=
  4148. [NODe]NODE $S=
  4149. [PERpend]PERPEND $S=
  4150. [QUAdrant]QUADRANT $S=
  4151. [QUICK,]QUICK,^Z
  4152. [TANgent]TANGENT $S=
  4153. [NONE]NONE $S=
  4154. [CANCEL:]^C^C$S=
  4155. [U:]^C^CU $S=
  4156. [REDO:]^C^CREDO $S=
  4157. [REDRAW:]'REDRAW $S=
  4158. [SETVAR:]$S= 'SETVAR
  4159. [__LAST__]$S=
  4160. **BLOCK 3
  4161. [BLOCK:]^C^CBLOCK
  4162. ?
  4163.  
  4164. Window
  4165. Last
  4166. Previous
  4167. Crossing
  4168. Remove
  4169. Add
  4170.  
  4171. Yes
  4172. [OOPS]^C^COOPS
  4173. **INSERT 3
  4174. [INSERT:]^C^CINSERT
  4175. [~]~\
  4176. ?
  4177. [*]*\
  4178. corner
  4179. xyz
  4180. drag
  4181.  
  4182. Scale
  4183. Xscale
  4184. Yscale
  4185. Zscale
  4186. Rotate
  4187. **WBLOCK 3
  4188. [WBLOCK:]^C^CWBLOCK
  4189.  
  4190. =
  4191. *
  4192. [blank];
  4193.  
  4194. Window
  4195. Last
  4196. Previous
  4197. Crossing
  4198. Remove
  4199. Add
  4200. Undo
  4201. **MINSERT 3
  4202. [MINSERT:]^C^CMINSERT
  4203. ?
  4204.  
  4205. corner
  4206. xyz
  4207. drag
  4208. **XBIND 3
  4209. [XBIND:]^C^CXBIND
  4210.  
  4211. Block
  4212. Dimstyle
  4213. Layer
  4214. Ltype
  4215. Style
  4216.  
  4217.  
  4218.  
  4219.  
  4220.  
  4221. [XREF]$S=X $S=XREF
  4222. **XREF 3
  4223. [XREF:]^C^CXREF
  4224.  
  4225. ?
  4226. Attach
  4227. Bind
  4228. Detach
  4229. Path
  4230. Reload
  4231.  
  4232. [Show log]^C^CTYPE (strcat (getvar "DWGNAME") ".XLG")
  4233.  
  4234.  
  4235. [XBIND]$S=X $S=XBIND
  4236. **DIM 3
  4237. [DIM:]^C^CDIM
  4238. [DIM1:]^C^CDIM1
  4239.  
  4240. angular
  4241. [Dim Vars]$S=X $S=VAR1
  4242. leader
  4243. [linear]$S=X $S=DIMLINEAR
  4244. oblique
  4245. [ORDINAT:]$S=X $S=DIMORD ordinate
  4246. [radial]$S=X $S=DIMRADIAL
  4247. status
  4248. style
  4249. trotate
  4250. undo
  4251.  
  4252. [TEdit]$S=X $S=TEDIT TEDIT
  4253. [EXIT]EXIT;$S=X $S=S
  4254. [next]$S=X $S=FORMAT
  4255. **DIMLINEAR 3
  4256. [DIM:]^C^CDIM
  4257. [DIM1:]^C^CDIM1
  4258.  
  4259. horiz
  4260. vertical
  4261. aligned
  4262. rotated
  4263.  
  4264. [baseline]^C^Cdim BASELINE
  4265. [continue]^C^Cdim CONTINUE
  4266.  
  4267.  
  4268.  
  4269. [previous]$S=X $S=DIM
  4270. **DIMRADIAL 3
  4271. [DIM:]^C^CDIM
  4272. [DIM1:]^C^CDIM1
  4273.  
  4274. diameter
  4275. radius
  4276. center
  4277.  
  4278.  
  4279.  
  4280.  
  4281.  
  4282.  
  4283.  
  4284. [previous]$S=X $S=DIM
  4285. **DIMORD 3
  4286. [DIM:]^C^CDIM
  4287. [DIM1:]^C^CDIM1
  4288.  
  4289. Xdatum
  4290. Ydatum
  4291.  
  4292.  
  4293.  
  4294.  
  4295.  
  4296.  
  4297. [previous]$S=X $S=DIM
  4298. **TEDIT 3
  4299. [DIM:]^C^CDIM
  4300. [DIM1:]^C^CDIM1
  4301.  
  4302. [TEDIT:]TEDIT
  4303.  
  4304. angle
  4305. home
  4306. left
  4307. right
  4308.  
  4309.  
  4310.  
  4311.  
  4312. [previous]$S=X $S=DIM
  4313. **ATTDEF 3
  4314. [ATTDEF:]^C^CATTDEF
  4315.  
  4316. Invisibl
  4317. Constant
  4318. Verify
  4319. [Preset]P
  4320.  
  4321. [Options]$S=TEXTOPTS
  4322. Style
  4323. aligned
  4324. [centered]C
  4325. fit
  4326. middle
  4327. right
  4328. **LAYER 3
  4329. [DDLMODES]'DDLMODES
  4330. [LAYER:]^C^CLAYER
  4331.  
  4332. [?]? *
  4333. Make
  4334. Set
  4335. New
  4336. ON
  4337. OFF
  4338. [Color]Color $S=X $S=LACOLOR
  4339. [Ltype]LType $S=X $S=LALT \$S=X $S=LAYER
  4340. Freeze
  4341. Thaw
  4342.  
  4343. **VPLA 3
  4344. [VPLAYER:]^C^CVPLAYER
  4345.  
  4346. ?
  4347. Freeze
  4348. Thaw
  4349. Reset
  4350. Newfrz
  4351. Vpvisdflt
  4352.  
  4353. **LACOLOR 3
  4354. [COLOR]
  4355.  
  4356. [red]red $S= $S=
  4357. [yellow]yellow $S= $S=
  4358. [green]green $S= $S=
  4359. [cyan]cyan $S= $S=
  4360. [blue]blue $S= $S=
  4361. [magenta]magenta $S= $S=
  4362. [white]white $S= $S=
  4363.  
  4364. [Chroma]^C^CVSLIDE acad(chroma) LAYER Color
  4365. [ Restore]'REDRAW
  4366.  
  4367.  
  4368.  
  4369. **LALT 3
  4370. [LINETYPE]
  4371.  
  4372. [contin.]CONTINUOUS
  4373. dashed
  4374. hidden
  4375. center
  4376. phantom
  4377. dot
  4378. dashdot
  4379. border
  4380. divide
  4381.  
  4382. **ZOOM 3
  4383. [ZOOM:]'ZOOM
  4384.  
  4385. All
  4386. [Center ]C
  4387. Dynamic
  4388. Extents
  4389. Left
  4390. Previous
  4391. Vmax
  4392. Window
  4393.  
  4394. Yes
  4395. No
  4396. **ATTDISP 3
  4397. [ATTDISP:]^C^CATTDISP
  4398.  
  4399. Normal
  4400. ON
  4401. OFF
  4402. **DVIEW 3
  4403. [DVIEW:]^C^CDVIEW
  4404. Window
  4405. Last
  4406. Previous
  4407. Crossing
  4408. Remove
  4409. Add
  4410.  
  4411. [By Layer]^P(defun berror (msg)(setq *error* m:err m:err nil)(princ))+
  4412. (progn (setq m:err *error* *error* berror);+
  4413. (setq l(getstring (strcat "Layer name: <" (getvar "clayer") "> ")))+
  4414. (if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
  4415. (setq s(ssget "X" (list(cons 8 l)))))(setq *error* m:err m:err nil) s) ^P
  4416. [--------]
  4417. [Dviewblk]^C^CDVIEW;;
  4418. [ Dview ]$S=X $S=DVIEW1
  4419. [Options]$S=X $S=DVIEW1
  4420. **DVIEW1 3
  4421. CAmera
  4422. TArget
  4423. Distance
  4424. POints
  4425. PAn
  4426. Zoom
  4427. TWist
  4428. [CLip]Clip $S=X $S=DVIEW2
  4429. Hide
  4430. Off
  4431. Undo
  4432.  
  4433. [eXit]Exit $S=X $S=S
  4434. **DVIEW2 3
  4435. [Back]Back $S=X $S=BACK
  4436. [Front]Front $S=X $S=FRONT
  4437. [Off]Off $S=X $S=DVIEW1
  4438. **BACK 3
  4439. [ back]
  4440. [clipping]
  4441.  
  4442. [ON]On $S=X $S=DVIEW1
  4443. [OFF]Off $S=X $S=DVIEW1
  4444. **FRONT 3
  4445. [ front]
  4446. [clipping]
  4447.  
  4448. [ON]On $S=X $S=DVIEW1
  4449. [OFF]Off $S=X $S=DVIEW1
  4450.  
  4451. [Eye]Eye $S=X $S=DVIEW1
  4452. **MV 3
  4453. [MVIEW:]^C^CMVIEW
  4454.  
  4455. ON
  4456. OFF
  4457. Hideplot
  4458. Fit
  4459. [2]2 $S=X $S=mv2 
  4460. [3]3 $S=X $S=mv2 
  4461. [4]4 $S=X $S=mv2 
  4462.  
  4463. [MSPACE:]^C^C$S=X $S=mv mspace
  4464. [PSPACE:]^C^C$S=X $S=mv pspace
  4465. [TILEMOD:]^C^C$S=X $S=mv Tilemode
  4466. [VPLAYER:]^C^C$S=X $S=vpla VPlayer
  4467.  
  4468. **MV2 3
  4469. Horizont
  4470. Vertical
  4471.  
  4472. Above
  4473. Below
  4474. Left
  4475. Right
  4476.  
  4477. Fit
  4478.  
  4479.  
  4480. **RGNAUTO 3
  4481. [RGNAUTO:]^C^CREGENAUTO
  4482.  
  4483. [ON]On $S=X $S=DS
  4484. [OFF]Off $S=X $S=DS
  4485. **SHADE 3
  4486. [SHADE:]^C^CSHADE
  4487.  
  4488. [Shadedif]'SHADEDIF
  4489.  
  4490. [Shadedge]'SHADEDGE
  4491. [ 256-col]0
  4492. [ 256-edg]1
  4493. [ Hidden]2
  4494. [ Filled]3
  4495.  
  4496. [REGEN:]^C^CREGEN
  4497. **VIEW 3
  4498. [VIEW:]'VIEW
  4499. ?
  4500.  
  4501. Delete
  4502. Restore
  4503. Save
  4504. Window
  4505. **VPORTS 3
  4506. [VPORTS:]^C^CVPORTS
  4507.  
  4508. Save
  4509. Restore
  4510. Delete
  4511. Join
  4512. Single
  4513. ?
  4514.  
  4515. [2]2 $S=X $S=VP2
  4516. [3]3 $S=X $S=VP3
  4517. 4
  4518. **VP2 3
  4519.  
  4520. [Horizont]H $S=X $S=VPORTS
  4521. [Vertical]V $S=X $S=VPORTS
  4522. **VP3 3
  4523.  
  4524. [Horizont]Horizontal $S=X $S=VPORTS
  4525. [Vertical]Vertical $S=X $S=VPORTS
  4526. [Above]Above $S=X $S=VPORTS
  4527. [Below]Below $S=X $S=VPORTS
  4528. [Left]Left $S=X $S=VPORTS
  4529. [Right]Right $S=X $S=VPORTS
  4530. **LINE 3
  4531. [LINE:]^C^CLINE
  4532.  
  4533. [continue]^C^CLINE;;
  4534. close
  4535. undo
  4536. .x
  4537. .y
  4538. .z
  4539. .xy
  4540. .xz
  4541. .yz
  4542. **3D 3
  4543. [EDGSURF:]^C^CEDGESURF
  4544. [REVSURF:]^C^CREVSURF
  4545. [RULSURF:]^C^CRULESURF
  4546. [TABSURF:]^C^CTABSURF
  4547.  
  4548. [Surftb1:]'SURFTAB1
  4549. [Surftb2:]'SURFTAB2
  4550.  
  4551. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  4552. [3DMESH:]^C^C3DMESH
  4553. [PFACE:]^C^CPFACE
  4554. [3DPOLY:]$S=X $S=3DPOLY ^C^C3DPOLY
  4555.  
  4556. [  3d   ]^C^C^P(progn(setq m:err *error*)(princ))+
  4557. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  4558. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  4559. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  4560. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  4561. (prompt "Check installation of the Support Files and try again.");+
  4562. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  4563. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  4564. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  4565. [objects]^C^C^P(progn(setq m:err *error*)(princ))+
  4566. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  4567. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  4568. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  4569. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  4570. (prompt "Check installation of the Support Files and try again.");+
  4571. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  4572. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  4573. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  4574. **3D2 3
  4575.  
  4576. [Box    ]^C^C^P(C:box) ^P
  4577. [Cone   ]^C^C^P(C:cone) ^P
  4578. [Dish   ]^C^C^P(C:dish) ^P
  4579. [Dome   ]^C^C^P(C:dome) ^P
  4580. [Mesh   ]^C^C^P(C:mesh) ^P
  4581. [Pyramid]^C^C^P(C:pyramid) ^P
  4582. [Sphere ]^C^C^P(C:sphere) ^P
  4583. [Torus  ]^C^C^P(C:torus) ^P
  4584. [Wedge  ]^C^C^P(C:wedge) ^P
  4585. **ELEVTHK 3
  4586. [ELEV:]^C^CELEV
  4587.  
  4588. [CHANGE:]^C^CCHANGE
  4589. Window
  4590. Last
  4591. Previous
  4592. Crossing
  4593. Remove
  4594. Add
  4595. Undo
  4596. [Elev]PROP E
  4597. [Thick]PROP T
  4598. **HIDE 3
  4599. [HIDE ?]
  4600.  
  4601. [YES]^C^CHIDE
  4602. [NO]$S= $S=
  4603. **HIDE1 3
  4604. [HIDE:]^C^CHide
  4605.  
  4606. [YES]Yes
  4607. [NO]No 
  4608. **VPOINT 3
  4609. [VPOINT:]^C^CVPOINT
  4610.  
  4611. rotate
  4612. [axes];
  4613. [plan]none 0,0,1
  4614.  
  4615. [HIDE]$S=X $S=HIDE
  4616. **VPOINT3D 3
  4617. [ Angle  ]^C^CVPOINT R;;
  4618. [from XY ]^C^CVPOINT R;;
  4619. [ Plane  ]^C^CVPOINT R;;
  4620. [    +80 ]<<80
  4621. [    +60 ]<<60
  4622. [    +45 ]<<45
  4623. [    +30 ]<<30
  4624. [    +10 ]<<10
  4625. [      0 ]<<0
  4626. [    -10 ]<<350
  4627. [    -30 ]<<330
  4628. [    -45 ]<<315
  4629. [    -60 ]<<300
  4630. [    -80 ]<<280
  4631. **PLINE 3
  4632. [PLINE:]^C^CPLINE
  4633.  
  4634. [Arc]ARC $S=X $S=PARC
  4635. Close
  4636. Halfwid
  4637. Length
  4638. Undo
  4639. Width
  4640.  
  4641. [FILL ON]'FILLMODE 1
  4642. [FILL OFF]'FILLMODE 0
  4643. **PARC 3
  4644. [POLYARC]
  4645.  
  4646. [angle]$S=X $S=PARCANG Angle
  4647. [CEnter]$S=X $S=PARCEN CE
  4648. [tanDir]Direction \DRAG
  4649. [Radius]$S=X $S=PARCRAD Radius
  4650. [2nd PT]Second \DRAG
  4651. [CLose]$S=X $S=PLINE CLose
  4652.  
  4653. undo
  4654.  
  4655. [contline]$S=X $S=PLINE L
  4656.  
  4657. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  4658. **PARCANG 3
  4659. [ANGLE]
  4660.  
  4661. [center]$S=X $S=PARC Center drag
  4662. [radius]$S=X $S=PARC Radius \
  4663. [drag]$S=X $S=PARC drag
  4664. **PARCEN 3
  4665. [CENTER]
  4666.  
  4667. [angle]$S=X $S=PARC Angle drag
  4668. [length]$S=X $S=PARC Length drag
  4669. [drag]$S=X $S=PARC drag
  4670. **PARCRAD 3
  4671. [RADIUS]
  4672.  
  4673. [angle]A \drag $S=X $S=PARC Angle \drag
  4674. [drag]$S=X $S=PARC drag
  4675. **OFFSET 3
  4676. [OFFSET:]^C^COFFSET
  4677.  
  4678. Through
  4679.  
  4680. [done];
  4681.  
  4682. **ARC 3
  4683. [ARC]
  4684.  
  4685. [3-point:]^C^CARC \\DRAG
  4686. [S,C,E:]^C^CARC \C \DRAG
  4687. [S,C,A:]^C^CARC \C \A DRAG
  4688. [S,C,L:]^C^CARC \C \L DRAG
  4689. [S,E,A:]^C^CARC \E \A
  4690. [S,E,R:]^C^CARC \E \R
  4691. [S,E,D:]^C^CARC \E \D DRAG
  4692. [C,S,E:]^C^CARC C \\DRAG
  4693. [C,S,A:]^C^CARC C \\A DRAG
  4694. [C,S,L:]^C^CARC C \\L DRAG
  4695. [CONTIN:]^C^CARC ;DRAG
  4696. **CIRCLE 3
  4697. [CIRCLE]
  4698.  
  4699. [CEN,RAD:]^C^CCIRCLE \DRAG
  4700. [CEN,DIA:]^C^CCIRCLE \D
  4701. [2 POINT:]^C^CCIRCLE 2P \DRAG
  4702. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  4703. [TTR:]^C^CCIRCLE TTR
  4704. **ELLIPSE 3
  4705. [ELLIPSE:]^C^CELLIPSE
  4706.  
  4707. [Center]C
  4708. Rotation
  4709. Iso
  4710. Diameter
  4711. **POLYGON 3
  4712. [POLYGON:]^C^CPOLYGON
  4713.  
  4714. Edge
  4715. [I-scribe]INSCRIBED
  4716. [C-scribe]CIRCUMSCRIBED
  4717. **SHAPE 3
  4718. [SHAPE:]^C^CSHAPE
  4719. ?
  4720.  
  4721. [LOAD:]^C^CLOAD
  4722. ?
  4723. **SKETCH 3
  4724. [SKETCH:]^C^CSKETCH
  4725.  
  4726. Connect
  4727. Erase
  4728. Record
  4729.  
  4730. [eXit]Xit
  4731. Quit
  4732.  
  4733. [------]
  4734. [SKPOLY:]'SKPOLY 1
  4735. [SKLINE:]'SKPOLY 0
  4736. [------]
  4737. **SOLID 3
  4738. [SOLID:]^C^CSOLID
  4739.  
  4740. [FILL ON]'FILLMODE 1
  4741. [FILL OFF]'FILLMODE 0
  4742. **TRACE 3
  4743. [TRACE:]^C^CTRACE
  4744.  
  4745. [FILL ON]'FILLMODE 1
  4746. [FILL OFF]'FILLMODE 0
  4747. **POINT 3
  4748. [POINT:]^C^CPOINT
  4749. .x
  4750. .y
  4751. .z
  4752. .xy
  4753. .xz
  4754. .yz
  4755.  
  4756. [Complex]
  4757. [Points]
  4758. [example:]^C^CVSLIDE acad(points)
  4759. [Remove]^C^CREDRAW
  4760. [example:]^C^CREDRAW
  4761. [Pdmode:]'PDMODE
  4762. [Pdsize:]'PDSIZE
  4763. **HATCH 3
  4764. [HATCH:]^C^CHATCH
  4765. ?
  4766. u
  4767. u,o
  4768. u,i
  4769. Yes
  4770.  
  4771. Window
  4772. Last
  4773. Previous
  4774. Crossing
  4775. Remove
  4776. Add
  4777. Undo
  4778. **3DFACE 3
  4779. [3DFACE:]^C^C3DFACE
  4780.  
  4781. .x
  4782. .y
  4783. .z
  4784. .xy
  4785. .xz
  4786. .yz
  4787.  
  4788. Invisible
  4789.  
  4790. [ShowEdge]^P(setvar "splframe" 1)(prompt "Invisible edges will be SHOWN after next Regeneration.")(princ) ^P
  4791. [HideEdge]^P(setvar "splframe" 0)(prompt "Invisible edges will be HIDDEN after next Regeneration.")(princ) ^P
  4792.  
  4793. **3DPOLY 3
  4794. [3DPOLY:]^C^C3DPOLY
  4795.  
  4796. Close
  4797. Undo
  4798. .x
  4799. .y
  4800. .z
  4801. .xy
  4802. .xz
  4803. .yz
  4804. **ID 3
  4805. [ID:]^C^CID
  4806.  
  4807. .x
  4808. .y
  4809. .z
  4810. .xy
  4811. .xz
  4812. .yz
  4813. **LIMITS 3
  4814.  
  4815. [LIMITS:]^C^CLIMITS
  4816.  
  4817. ON
  4818. OFF
  4819. **UCS1 3
  4820. [UCS:]^C^CUCS
  4821. [DDUCS:]^C^CDDUCS
  4822.  
  4823. ?
  4824. Previous
  4825. Restore
  4826. Save
  4827. Delete
  4828. World
  4829.  
  4830. [RENAME:]^C^CRename UCS
  4831. [Follow:]'UCSFOLLOW
  4832.  
  4833. [next]$S=X $S=UCS2
  4834. **UCS2 3
  4835. [UCS:]$S=X $S=UCS1 ^C^CUCS
  4836.  
  4837. Origin
  4838. Zaxis
  4839. 3point
  4840.  
  4841. X
  4842. Y
  4843. Z
  4844.  
  4845. View
  4846. Entity
  4847.  
  4848. [previous]$S=X $S=UCS1
  4849. **UCSICON 3
  4850. [UCSICON:]^C^CUCSICON
  4851.  
  4852. ON
  4853. OFF
  4854.  
  4855. All
  4856. Origin
  4857. Noorigin
  4858. **PLAN 3
  4859. [PLAN:]^C^CPLAN
  4860.  
  4861. Current
  4862. UCS
  4863. World
  4864.  
  4865. [Follow:]'UCSFOLLOW
  4866. **LIST 3
  4867. [LIST:]^C^CLIST
  4868.  
  4869. Window
  4870. Last
  4871. Previous
  4872. Crossing
  4873. Remove
  4874. Add
  4875. Undo
  4876. **AREA 3
  4877. [AREA:]^C^CAREA
  4878.  
  4879. Entity
  4880. Add
  4881. Subtract
  4882. **TEXT 3
  4883. [TEXT:]^C^CTEXT
  4884. [DTEXT:]^C^CDTEXT
  4885.  
  4886. [Options]$S=TEXTOPTS
  4887. Style
  4888.  
  4889. aligned
  4890. [centered]C
  4891. fit
  4892. middle
  4893. right
  4894.  
  4895. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  4896. **TEXTOPTS 5
  4897.  
  4898. [Top-]T\
  4899. [Middle-]M\
  4900. [Bottom-]B\
  4901. [ -Left]Left
  4902. [ -Center]C
  4903. [ -Right]Right
  4904.  
  4905. [aligned]aligned
  4906. [centered]C
  4907. [fit]fit
  4908. [middle]middle
  4909. [right]right
  4910. [__LAST__]$S=
  4911. **TEXTSET 5
  4912. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2 $T4=DTEXT3 $T4=DTEXT4 +
  4913. $T4=DTEXT5 $T4=DTEXT6
  4914.  
  4915. [REG.TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2 $T4=TEXT3 $T4=TEXT4 +
  4916. $T4=TEXT5 $T4=TEXT6
  4917.  
  4918. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  4919. **STYLE 3
  4920. [STYLE:]^C^CSTYLE
  4921. ?
  4922.  
  4923. [Fonts]$S=X $S=F1
  4924.  
  4925. Yes
  4926. No
  4927.  
  4928. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  4929. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  4930. **F1 3
  4931. Cyrillic
  4932. Cyriltlc
  4933. Greekc
  4934. Greeks
  4935. Gothice
  4936. Gothicg
  4937. Gothici
  4938. Italicc
  4939. Italict
  4940. Romanc
  4941. Romand
  4942. Romans
  4943.  
  4944.  
  4945.  
  4946.  
  4947. [next]$S=X $S=F2
  4948. [STYLMNU]$S=X $S=STYLE
  4949. **F2 3
  4950. Romant
  4951. Scriptc
  4952. Scripts
  4953. Syastro
  4954. Symap
  4955. Symath
  4956. Symeteo
  4957. Symusic
  4958.  
  4959.  
  4960.  
  4961.  
  4962.  
  4963.  
  4964.  
  4965.  
  4966. [previous]$S=X $S=F1
  4967. [STYLMNU]$S=X $S=STYLE
  4968. **DTEXT 3
  4969. [DTEXT:]^C^CDTEXT
  4970. [TEXT:]^C^CTEXT
  4971.  
  4972. [Options]$S=TEXTOPTS
  4973. Style
  4974.  
  4975. aligned
  4976. [centered]C
  4977. fit
  4978. middle
  4979. right
  4980.  
  4981. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  4982. **AXIS 3
  4983. [AXIS:]^C^CAXIS
  4984.  
  4985. [axs=snap]SNAP
  4986.  
  4987. ON
  4988. OFF
  4989. Aspect
  4990. **BLIPMODE 3
  4991. [BLIPS:]^C^CBLIPMODE
  4992.  
  4993. ON
  4994. OFF
  4995. **END 3
  4996. [END ?]
  4997.  
  4998. Yes
  4999. No
  5000. **QUIT 3
  5001. [QUIT:]^c^cquit
  5002.  
  5003. [Yes]Y
  5004. [No]n $S=X $S=S
  5005. **VAR1 3
  5006. [dimalt]$S=X $S=OF DIMALT \
  5007. [dimaltd]DIMALTD \
  5008. [dimaltf]DIMALTF \
  5009. [dimapost]DIMAPOST \
  5010. [dimaso]$S=X $S=OF DIMASO \
  5011. [dimasz]DIMASZ \
  5012. [--------]
  5013. [dimblk]DIMBLK \
  5014. [dimblk1]DIMBLK1 \
  5015. [dimblk2]DIMBLK2 \
  5016. [--------]
  5017. [dimcen]DIMCEN \
  5018. [dimclrd]DIMCLRD \
  5019. [dimclre]DIMCLRE \
  5020. [dimclrt]DIMCLRT \
  5021.  
  5022. [next]$S=X $S=VAR2
  5023. [DIMMENU]$S=X $S=DIM
  5024.  
  5025.  
  5026. **VAR2 3
  5027. [dimdle]DIMDLE \
  5028. [dimdli]DIMDLI \
  5029. [dimexe]DIMEXE \
  5030. [dimexo]DIMEXO \
  5031. [dimgap]DIMGAP \
  5032. [dimlfac]DIMLFAC \
  5033. [dimlim]$S=X $S=OF DIMLIM \
  5034. [dimpost]DIMPOST \
  5035. [dimrnd]DIMRND \
  5036. [dimsah]$S=X $S=OF DIMSAH \
  5037. [dimscale]DIMSCALE \
  5038. [dimse1]$S=X $S=OF DIMSE1 \
  5039. [dimse2]$S=X $S=OF DIMSE2 \
  5040.  
  5041.  
  5042. [previous]$S=X $S=VAR1
  5043. [next]$S=X $S=VAR3
  5044. [DIMMENU]$S=X $S=DIM
  5045.  
  5046.  
  5047. **VAR3 3
  5048. [dimsho]$S=X $S=OF DIMSHO \
  5049. [dimsoxd]$S=X $S=OF DIMSOXD \
  5050. [dimtad]$S=X $S=OF DIMTAD \
  5051. [dimtfac]DIMTFAC \
  5052. [dimtih]$S=X $S=OF DIMTIH \
  5053. [dimtix]$S=X $S=OF DIMTIX \
  5054. [dimtm]DIMTM \
  5055. [dimtofl]$S=X $S=OF DIMTOFL \
  5056. [dimtoh]$S=X $S=OF DIMTOH \
  5057. [dimtol]$S=X $S=OF DIMTOL \
  5058. [dimtp]DIMTP \
  5059. [dimtsz]DIMTSZ \
  5060. [dimtvp]DIMTVP \
  5061. [dimtxt]DIMTXT \
  5062. [dimzin]$S=X $S=DIMZIN DIMZIN \
  5063.  
  5064.  
  5065. [previous]$S=X $S=VAR2
  5066. [DIMMENU]$S=X $S=DIM
  5067. **OF 3
  5068. [ON]$S= $S= ON
  5069.  
  5070. [OFF]$S= $S= OFF
  5071. **DIMZIN 4
  5072. [  New]
  5073. [ Dimzin]
  5074. [ Value]
  5075.  
  5076.  
  5077.  
  5078.  
  5079. [0]$S= $S= 0
  5080. [1]$S= $S= 1
  5081. [2]$S= $S= 2
  5082. [3]$S= $S= 3
  5083. **FORMAT 3
  5084. [DIM:]^C^CDIM
  5085. [DIM1:]^C^CDIM1
  5086.  
  5087. [HOMETEXT]$S=X $S=HOMETEXT HOMETEXT
  5088. [UPDATE]$S=X $S=UPDATE UPDATE
  5089. [NEWTEXT]$S=X $S=NEWTEXT NEWTEXT
  5090.  
  5091. [Dimstyle]'DIMSTYLE
  5092. Save
  5093. Restore
  5094. Override
  5095. [Variabls]VARIABLES
  5096. ?
  5097.  
  5098.  
  5099. [DIMMENU]$S=X $S=DIM
  5100. **HOMETEXT 3
  5101. [DIM:]^C^CDIM
  5102. [DIM1:]^C^CDIM1
  5103.  
  5104. HOMETEXT
  5105.  
  5106. Window
  5107. Last
  5108. Previous
  5109. Crossing
  5110. Remove
  5111. Add
  5112. Undo
  5113. **UPDATE 3
  5114. [DIM:]^C^CDIM
  5115. [DIM1:]^C^CDIM1
  5116.  
  5117. UPDATE
  5118.  
  5119. Window
  5120. Last
  5121. Previous
  5122. Crossing
  5123. Remove
  5124. Add
  5125. Undo
  5126. **NEWTEXT 3
  5127. [DIM:]^C^CDIM
  5128. [DIM1:]^C^CDIM1
  5129.  
  5130. NEWTEXT
  5131.  
  5132. Window
  5133. Last
  5134. Previous
  5135. Crossing
  5136. Remove
  5137. Add
  5138. Undo
  5139. **LINETYPE 3
  5140. [LINETYP:]^C^CLINETYPE
  5141. ?
  5142.  
  5143. Create
  5144. Load
  5145. [Set]SET $S=X $S=CHLT \$S=X $S=LINETYPE
  5146.  
  5147. Yes
  5148. No
  5149. **LIMITS 3
  5150. [LIMITS:]^C^CLIMITS
  5151.  
  5152. On
  5153. Off
  5154. **SNAP 3
  5155. [SNAP:]^C^CSNAP
  5156.  
  5157. ON
  5158. OFF
  5159.  
  5160. Aspect
  5161. Rotate
  5162.  
  5163. Style
  5164. [ Iso]Iso;
  5165. [ Standrd]Standard;
  5166. **TABLET 3
  5167. [TABLET:]^C^CTABLET
  5168.  
  5169. cal
  5170. [config]CFG 4 25 9 11 9 9 13 25 7 Y
  5171. [re-cfg]CFG 4 Y 25 9 11 9 9 13 25 7 Y
  5172. ON
  5173. OFF
  5174. Yes
  5175. No
  5176. **OSNAPC 3
  5177. [OSNAP:]^C^COSNAP
  5178.  
  5179. [CENter]CENTER\
  5180. [ENDpoint]ENDPOINT\
  5181. [INSert]INSERT\
  5182. [INTersec]INTERSEC\
  5183. [MIDpoint]MIDPOINT\
  5184. [NEArest]NEAREST\
  5185. [NODe]NODE\
  5186. [PERpend]PERPEND\
  5187. [QUAdrant]QUADRANT\
  5188. [TANgent]TANGENT\
  5189. [NONE]NONE\ $S= $S=
  5190. [Quick,]QUICK,^Z
  5191. [,],\
  5192. **DRAGMODE 3
  5193. [DRAGMODE]^C^CDRAGMODE
  5194.  
  5195. [ON]ON $S=X $S=S
  5196. [OFF]OFF $S=X $S=S
  5197. [Auto]A $S=X $S=S
  5198.  
  5199. **GRID 3
  5200. [GRID:]^C^CGRID
  5201.  
  5202. [grd=snap]SNAP
  5203.  
  5204. ON
  5205. OFF
  5206. Aspect
  5207. **HANDLES 3
  5208. [HANDLES:]^C^CHANDLES
  5209.  
  5210. [ON]ON
  5211. [DESTROY]DESTROY
  5212.  
  5213. **SETVAR1 3
  5214. [SETVAR:]^C^CSETVAR
  5215. ['SETVAR]'SETVAR
  5216. [? Vars]'SETVAR ?
  5217.  
  5218. *
  5219. **QTEXT 3
  5220. [QTEXT:]^C^CQTEXT
  5221.  
  5222. ON
  5223. OFF
  5224. [REGEN:]REGEN
  5225. **VIEWRES 3
  5226. [VIEWRES:]^C^CVIEWRES
  5227.  
  5228. No
  5229. Yes
  5230.  
  5231. 100
  5232. 500
  5233.  
  5234. [RGNAUTO:]^C^CREGENAUTO
  5235. [ On]On
  5236. [ Off]Off
  5237. **APERTURE 3
  5238. [APERTUR:]'APERTURE
  5239. [PICKBOX:]'PICKBOX
  5240.  
  5241. [1]$S= $S= 1
  5242. [2]$S= $S= 2
  5243. [3]$S= $S= 3
  5244. [4]$S= $S= 4
  5245. [5]$S= $S= 5
  5246. [6]$S= $S= 6
  5247. [7]$S= $S= 7
  5248. [8]$S= $S= 8
  5249. [9]$S= $S= 9
  5250. [10]$S= $S= 10
  5251. [15]$S= $S= 15
  5252. **ARRAY 3
  5253. [ARRAY:]^C^CARRAY
  5254.  
  5255. Window
  5256. Last
  5257. Previous
  5258. Crossing
  5259. Remove
  5260. Add
  5261. Undo
  5262.  
  5263. Rectang
  5264. Polar
  5265. Yes
  5266. No
  5267. **ROTATE 3
  5268. [ROTATE:]^C^CROTATE
  5269.  
  5270. Window
  5271. Last
  5272. Previous
  5273. Crossing
  5274. Remove
  5275. Add
  5276. Undo
  5277.  
  5278. Referenc
  5279. **SELECT 3
  5280. [SELECT:]^C^CSELECT
  5281.  
  5282. Window
  5283. Last
  5284. Previous
  5285. Crossing
  5286. Remove
  5287. Add
  5288. Undo
  5289.  
  5290. **SCALE 3
  5291. [SCALE:]^C^CSCALE
  5292.  
  5293. Window
  5294. Last
  5295. Previous
  5296. Crossing
  5297. Remove
  5298. Add
  5299. Undo
  5300.  
  5301. Referenc
  5302. **BREAK 3
  5303. [BREAK:]^C^CBREAK
  5304.  
  5305. First
  5306. @
  5307. **BREAK2P 3
  5308. [BREAK:]^C^CBREAK \F
  5309.  
  5310. First
  5311. @
  5312. **BREAKSPL 3
  5313. [BREAK:]^C^CBREAK \F \@
  5314.  
  5315. First
  5316. @
  5317. **MOVE 3
  5318. [MOVE:]^C^CMOVE
  5319.  
  5320. Window
  5321. Last
  5322. Previous
  5323. Crossing
  5324. Remove
  5325. Add
  5326. Undo
  5327. **COPY 3
  5328. [COPY:]^C^CCOPY
  5329.  
  5330. Window
  5331. Last
  5332. Previous
  5333. Crossing
  5334. Remove
  5335. Add
  5336. Undo
  5337.  
  5338. Multiple
  5339. **DDEDIT 3
  5340. [DDEDIT:]^C^CDDEDIT
  5341.  
  5342. Last
  5343. Undo
  5344. **UNDO 3
  5345. [UNDO:]^C^CUNDO
  5346.  
  5347. [Back 1]^C^CUNDO 1
  5348.  
  5349. [Auto]$S=X $S=UNDOA Auto
  5350. Back
  5351. End
  5352. Group
  5353. Mark
  5354. [Control]$S=X $S=UNDOC Control
  5355.  
  5356. Yes
  5357. No
  5358.  
  5359. [REDO:]REDO
  5360. **UNDOC 3
  5361. All
  5362. None
  5363. One
  5364. **UNDOA 3
  5365. On
  5366. Off
  5367. **ERASE 3
  5368. [ERASE:]^C^CERASE
  5369.  
  5370. Window
  5371. Last
  5372. Previous
  5373. Crossing
  5374. Remove
  5375. Add
  5376. Undo
  5377.  
  5378. [OOPS:]^C^COOPS
  5379. **PSEL 4
  5380. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  5381. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  5382. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  5383. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  5384. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  5385. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  5386. (menucmd "S=X")(menucmd "S=P0"))(progn(terpri)+
  5387. (princ "Entity selected is not a polyline.")(terpri)(setq m:s1 nil))))))))+
  5388. (defun m:p1 (/ m:a)(menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil);+
  5389. (menucmd"S=P0")(progn(setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")+
  5390. (if(< m:a 4)(menucmd"S=P0")(menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)+
  5391. (setq *error* m:err)(princ))(princ));PEDITM;^P
  5392.  
  5393. BOX
  5394. Crossing
  5395. Last
  5396. Window
  5397.  
  5398. No
  5399. Yes
  5400.  
  5401. **P0 3
  5402. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  5403. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  5404. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  5405. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  5406. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  5407. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  5408. (menucmd "S=X")(menucmd "S=P0"))(progn(terpri)+
  5409. (princ "Entity selected is not a polyline.")(terpri)(setq m:s1 nil))))))))+
  5410. (defun m:p1 (/ m:a)(menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil);+
  5411. (menucmd"S=P0")(progn(setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")+
  5412. (if(< m:a 4)(menucmd"S=P0")(menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)+
  5413. (setq *error* m:err)(princ))(princ));PEDITM;^P
  5414.  
  5415. Close
  5416. Open
  5417. Join
  5418. Width
  5419. [Ed Vrtx]Edit $S=X $S=PVERTED
  5420. [Fit Curv]Fit
  5421. Spline
  5422. Decurve
  5423. Undo
  5424. [eXit]X $S=X $S=S
  5425.  
  5426. [PolyVars]$S=X $S=PVARS $I=poly $I=*
  5427. **P8 3
  5428. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  5429. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  5430. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  5431. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  5432. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  5433. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  5434. (menucmd "S=X")(menucmd "S=P0"))(progn(terpri)+
  5435. (princ "Entity selected is not a polyline.")(terpri)(setq m:s1 nil))))))))+
  5436. (defun m:p1 (/ m:a)(menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil);+
  5437. (menucmd"S=P0")(progn(setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")+
  5438. (if(< m:a 4)(menucmd"S=P0")(menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)+
  5439. (setq *error* m:err)(princ))(princ));PEDITM;^P
  5440.  
  5441. Close
  5442. Open
  5443. [Ed Vrtx]Edit $S=X $S=3DPVERTED
  5444. Spline
  5445. Decurve
  5446. Undo
  5447. [eXit]X $S=X $S=S
  5448.  
  5449. [PolyVars]$S=X $S=PVARS $I=poly $I=*
  5450. **P16 3
  5451. [PEDIT:]^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  5452. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  5453. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  5454. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  5455. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  5456. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  5457. (menucmd "S=X")(menucmd "S=P0"))(progn(terpri)+
  5458. (princ "Entity selected is not a polyline.")(terpri)(setq m:s1 nil))))))))+
  5459. (defun m:p1 (/ m:a)(menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil);+
  5460. (menucmd"S=P0")(progn(setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")+
  5461. (if(< m:a 4)(menucmd"S=P0")(menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)+
  5462. (setq *error* m:err)(princ))(princ));PEDITM;^P
  5463.  
  5464. [Ed Vrtx]E $S=X $S=3DMVERTED
  5465. Smooth
  5466. Desmooth
  5467. Mclose
  5468. Nclose
  5469. Mopen
  5470. Nopen
  5471.  
  5472. Undo
  5473. [eXit]X $S=X $S=S
  5474.  
  5475. [PolyVars]$S=X $S=PVARS $I=poly $I=*
  5476. **PVERTED 3
  5477. [ED VRTX]
  5478.  
  5479. Next
  5480. Previous
  5481. Break
  5482. Insert
  5483. Move
  5484. Straight
  5485. Width
  5486. Tangent
  5487. Go
  5488. Regen
  5489. [Undo]X Undo $S=X $S=P0
  5490. [eXit]X $S=X $S=P0
  5491. **3DPVERTED 3
  5492. [ED VRTX]
  5493.  
  5494. Next
  5495. Previous
  5496. Break
  5497. Insert
  5498. Move
  5499. Regen
  5500. Straight
  5501. [eXit]X $S=X $S=P8
  5502. **3DMVERTED 3
  5503. [ED VRTX]
  5504.  
  5505. Next
  5506. Previous
  5507. Left
  5508. Right
  5509. Up
  5510. Down
  5511. Move
  5512. Regen
  5513. [eXit]X $S=X $S=P16
  5514. **PVARS 3
  5515. [Polyvars]$I=poly $I=*
  5516.  
  5517. [SPLframe]'SPLFRAME
  5518. [ On]1
  5519. [ Off]0
  5520. [SPLsegs]'SPLINESEGS
  5521. [SPLtype]'SPLINETYPE
  5522. [ Quad]5
  5523. [ Cubic]6
  5524. [SURFtype]'SURFTYPE
  5525. [ Quad]5
  5526. [ Cubic]6
  5527. [ Bezier]8
  5528. [UDensity]'SURFU
  5529. [VDensity]'SURFV
  5530. **TRIM 3
  5531. [TRIM:]^C^CTRIM
  5532.  
  5533. Window
  5534. Last
  5535. Previous
  5536. Crossing
  5537. Remove
  5538. Add
  5539. Undo
  5540. **ATTEXT 3
  5541. [ATTEXT:]^C^CATTEXT
  5542.  
  5543. CDF
  5544. SDF
  5545. DXF
  5546. Entities
  5547.  
  5548. Window
  5549. Last
  5550. Previous
  5551. Crossing
  5552. Remove
  5553. Add
  5554. Undo
  5555. **AUDIT 3
  5556.  
  5557. Yes
  5558. No
  5559. **SLIDES 3
  5560. [MSLIDE:]^C^CMSLIDE
  5561.  
  5562. [VSLIDE:]^C^CVSLIDE
  5563.  
  5564. [REDRAW:]$S=X $S=S ^C^CREDRAW
  5565. **SCRIPT 3
  5566. [SCRIPT:]^C^CSCRIPT
  5567.  
  5568. [RESUME:]'RESUME
  5569. [RSCRIPT:]^C^CRSCRIPT
  5570. **PURGE 3
  5571. [PURGE:]^C^CPURGE
  5572.  
  5573. Blocks
  5574. Dimstyles
  5575. LAyers
  5576. LTypes
  5577. SHapes
  5578. STyles
  5579. All
  5580.  
  5581. Yes
  5582. No
  5583. **RENAME 3
  5584. [RENAME:]^C^CRENAME
  5585.  
  5586. Block
  5587. Dimstyle
  5588. LAyer
  5589. LType
  5590. Style
  5591. Ucs
  5592. VIew
  5593. VPort
  5594. **DXF 3
  5595. [DXFIN:]^C^CDXFIN
  5596.  
  5597. [DXFOUT:]^C^CDXFOUT
  5598. 16
  5599. Entities
  5600.  
  5601. Window
  5602. Last
  5603. Previous
  5604. Crossing
  5605. Remove
  5606. Add
  5607. Undo
  5608.  
  5609. [DXBIN:]^C^CDXBIN
  5610. **IGES 3
  5611. [IGESIN:]^C^CIGESIN
  5612.  
  5613. [IGESOUT:]^C^CIGESOUT
  5614. **EXTEND 3
  5615. [EXTEND:]^C^CEXTEND
  5616.  
  5617. Window
  5618. Last
  5619. Previous
  5620. Crossing
  5621. Remove
  5622. Add
  5623. Undo
  5624.  
  5625. [SELECT:]^C^CSELECT
  5626. [ZOOM W:]'ZOOM W
  5627. **STRETCH 3
  5628. [STRETCH:]^C^CSTRETCH C
  5629.  
  5630. Window
  5631. Last
  5632. Previous
  5633. Crossing
  5634. Remove
  5635. Add
  5636. Undo
  5637. **MIRROR 3
  5638. [MIRROR:]^C^CMIRROR
  5639. Window
  5640. Last
  5641. Previous
  5642. Crossing
  5643. Remove
  5644. Add
  5645. Undo
  5646.  
  5647. Yes
  5648. No
  5649. **FILLET0 3
  5650. [FILLET:0]^C^CFILLET R 0;;
  5651.  
  5652. [polyline]P
  5653. **FILLET 3
  5654. [FILLET:]^C^CFILLET
  5655.  
  5656. [radius]R \FILLET
  5657. [radius 0]R 0 FILLET
  5658. polyline
  5659. **CHAMFER 3
  5660. [CHAMFER:]^C^CCHAMFER
  5661.  
  5662. [distance]D \\CHAMFER
  5663. [dist = 0]D 0 0 CHAMFER
  5664. polyline
  5665. **DIVIDE 3
  5666. [DIVIDE:]^C^CDIVIDE
  5667.  
  5668. Block
  5669. Yes
  5670. No
  5671. **MEASURE 3
  5672. [MEASURE:]^C^CMEASURE
  5673.  
  5674. Block
  5675. Yes
  5676. No
  5677. **CHANGE 3
  5678. [CHANGE:]^C^CCHANGE
  5679. Window
  5680. Last
  5681. Previous
  5682. Crossing
  5683. Remove
  5684. Add
  5685. Undo
  5686. [Color]PROP COLOR $S=X $S=CHCOLOR \ $S=X $S=CHANGE
  5687. [Chroma]^C^CVSLIDE acad(chroma)
  5688. [ Restore]^C^CREDRAW
  5689. [LAyer]PROP LAYER
  5690. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHANGE
  5691. [Thicknes]PROP THICKNESS
  5692. **CHPROP 3
  5693. [CHPROP:]^C^CCHPROP
  5694. Window
  5695. Last
  5696. Previous
  5697. Crossing
  5698. Remove
  5699. Add 
  5700. Undo
  5701. [Color]PROP COLOR $S=X $S=CHCOLOR \$S=X $S=CHPROP
  5702. [Chroma]^C^CVSLIDE acad(chroma)
  5703. [ Restore]^C^CREDRAW
  5704. [LAyer]PROP LAYER
  5705. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHPROP
  5706. [Thicknes]PROP THICKNESS
  5707. **CHCOLOR 3
  5708. [COLOR]
  5709.  
  5710. bylayer
  5711. byblock
  5712.  
  5713. red
  5714. yellow
  5715. green
  5716. cyan
  5717. blue
  5718. magenta
  5719. white
  5720. **CHLT 3
  5721. [LTYPE]
  5722.  
  5723. bylayer
  5724. byblock
  5725.  
  5726. [contin.]CONTINUOUS
  5727. dashed
  5728. hidden
  5729. center
  5730. phantom
  5731. dot
  5732. dashdot
  5733. border
  5734. divide
  5735.  
  5736. **COLOR 3
  5737. [COLOR:]^C^CCOLOR
  5738. bylayer
  5739. byblock
  5740. red
  5741. yellow
  5742. green
  5743. cyan
  5744. blue
  5745. magenta
  5746. white
  5747.  
  5748. [Chroma]^C^CVSLIDE acad(chroma)
  5749. [ Restore]^C^CREDRAW
  5750. **ATTEDIT 3
  5751. [ATTEDIT:]^C^CATTEDIT
  5752. Window
  5753. Last
  5754. Crossing
  5755. Remove
  5756. Add
  5757. Undo
  5758.  
  5759. [Value]Value $S=X $S=ATTEDIT2
  5760. Position
  5761. Height
  5762. Angle
  5763. Style
  5764. Layer
  5765. [Color]Color $S=X $S=ATTCOLOR
  5766. Next
  5767.  
  5768. [__LAST__]$S= $S=
  5769. **ATTEDIT2 3
  5770.  
  5771. [Change]Change $S=X $S=ATTEDIT
  5772. [Replace]Replace $S=X $S=ATTEDIT
  5773. **ATTCOLOR 3
  5774. [COLOR]
  5775.  
  5776. [red]RED $S= $S=
  5777. [yellow]YELLOW $S= $S=
  5778. [green]GREEN $S= $S=
  5779. [cyan]CYAN $S= $S=
  5780. [blue]BLUE $S= $S=
  5781. [magenta]MAGENTA $S= $S=
  5782. [white]WHITE $S= $S=
  5783. **UNITS 2
  5784.  
  5785. [UNIT    ]
  5786. [TYPE    ]
  5787.  
  5788. [scientfc]1;
  5789.  
  5790. [decimal ]2;
  5791.  
  5792. [enginrng]3;
  5793.  
  5794. [archtect]4;
  5795.  
  5796. [metric  ]5;
  5797.  
  5798.  
  5799.  
  5800.  
  5801.  
  5802.  
  5803. **U1 2
  5804.  
  5805. [Scientfc]
  5806. [Scale   ]
  5807.  
  5808.  
  5809. [4 TIMES ]4.0;
  5810.  
  5811. [2 TIMES ]2.0;
  5812.  
  5813. [FULL    ]1.0;
  5814.  
  5815. [HALF    ]0.5;
  5816.  
  5817. [QUARTER ]0.25;
  5818.  
  5819. [OTHER   ]^P0;^P
  5820.  
  5821.  
  5822.  
  5823.  
  5824. **U2 2
  5825.  
  5826. [Decimal ]
  5827. [Scale   ]
  5828.  
  5829.  
  5830. [4 TIMES ]4.0;
  5831.  
  5832. [2 TIMES ]2.0;
  5833.  
  5834. [FULL    ]1.0;
  5835.  
  5836. [HALF    ]0.5;
  5837.  
  5838. [QUARTER ]0.25;
  5839.  
  5840. [OTHER   ]^P0;^P
  5841.  
  5842.  
  5843.  
  5844.  
  5845. **U3 2
  5846.  
  5847. [Enginrng]
  5848. [Scale   ]
  5849.  
  5850.  
  5851. [1"=10'  ]120.0;
  5852. [1"=20'  ]240.0;
  5853.  
  5854. [1"=30'  ]360.0;
  5855. [1"=40'  ]480.0;
  5856.  
  5857. [1"=50'  ]600.0;
  5858. [1"=60'  ]720.0;
  5859.  
  5860. [1"=80'  ]960.0;
  5861. [1"=100' ]1200.0;
  5862.  
  5863. [OTHER   ]^P0;^P
  5864.  
  5865.  
  5866. **U4 2
  5867.  
  5868. [Archtect]
  5869.  
  5870.  
  5871. [1/40"=1']480.0;
  5872. [1/20"=1']240.0;
  5873. [1/16"=1']192.0;
  5874. [ 1/8"=1']96.0;
  5875. [ 1/4"=1']48.0;
  5876.  
  5877. [ 1/2"=1']24.0;
  5878. [ 3/4"=1']16.0;
  5879. [   1"=1']12.0;
  5880. [   3"=1']4.0;
  5881. [   6"=1']2.0;
  5882. [  FULL  ]1.0;
  5883.  
  5884. [OTHER...]^P0;^P
  5885.  
  5886.  
  5887. **U5 2
  5888.  
  5889. [Metric  ]
  5890.  
  5891. [ 1:5000 ]5000.0;
  5892. [ 1:2000 ]2000.0;
  5893. [ 1:1000 ]1000.0;
  5894. [ 1:500  ]500.0;
  5895. [ 1:200  ]200.0;
  5896.  
  5897. [ 1:100  ]100.0;
  5898. [ 1:75   ]75.0;
  5899. [ 1:50   ]50.0;
  5900. [ 1:20   ]20.0;
  5901. [ 1:10   ]10.0;
  5902. [ 1:5    ]5.0;
  5903. [  FULL  ]1.0;
  5904.  
  5905. [OTHER...]^P0;^P
  5906.  
  5907.  
  5908. **ENGLISH 2
  5909.  
  5910. [Horizntl]
  5911.  
  5912. [ Sheet  ]
  5913. [ Size   ]
  5914.  
  5915. [A-8.5x11]11.0 8.5;
  5916. [B- 11x17]17.0 11.0;
  5917. [C- 17x22]22.0 17.0;
  5918. [   18x24]24.0 18.0;
  5919.  
  5920. [D- 22X34]34.0 22.0;
  5921. [   24x36]36.0 24.0;
  5922. [E- 34x44]44.0 34.0;
  5923.  
  5924. [OTHER...]^P0 0;^P
  5925.  
  5926. [VERTCAL>]$S=X $S=ENGVERT
  5927.  
  5928.  
  5929. **ENGVERT 2
  5930.  
  5931. [Vertical]
  5932.  
  5933. [ Sheet  ]
  5934. [ Size   ]
  5935.  
  5936. [A-8.5x11]8.5 11.0;
  5937. [B- 11x17]11.0 17.0;
  5938. [C- 17x22]17.0 22.0;
  5939. [   18x24]18.0 24.0;
  5940.  
  5941. [D- 22X34]22.0 34.0;
  5942. [   24x36]24.0 36.0;
  5943. [E- 34x44]34.0 44.0;
  5944.  
  5945. [OTHER...]^P0 0;^P
  5946.  
  5947. [HORZNTL>]$S=X $S=ENGLISH
  5948.  
  5949.  
  5950. **METRIC 2
  5951.  
  5952. [Horizntl]
  5953.  
  5954. [ Sheet  ]
  5955. [ Size   ]
  5956.  
  5957. [1189x841]1189.0 841.0;
  5958. [1000x707]1000.0 707.0;
  5959. [ 841x594]841.0 594.0;
  5960.  
  5961. [ 594x420]594.0 420.0;
  5962. [ 420x297]420.0 297.0;
  5963. [ 297x210]297.0 210.0;
  5964.  
  5965. [OTHER...]^P0 0;^P
  5966.  
  5967.  
  5968. [VERTCAL>]$S=X $S=METRICVERT
  5969.  
  5970.  
  5971. **METRICVERT 2
  5972.  
  5973. [Vertical]
  5974.  
  5975. [ Sheet  ]
  5976. [ Size   ]
  5977.  
  5978. [1189x841]841.0 1189.0;
  5979. [1000x707]707.0 1000.0;
  5980. [ 841x594]594.0 841.0;
  5981.  
  5982. [ 594x420]420.0 594.0;
  5983. [ 420x297]297.0 420.0;
  5984. [ 297x210]210.0 297.0;
  5985.  
  5986. [OTHER...]^P0 0;^P
  5987.  
  5988.  
  5989. [HORZNTL>]$S=X $S=METRIC
  5990.  
  5991.  
  5992. **EXCOMDS 3
  5993. [CATALOG:]^C^CCATALOG
  5994. [DEL:]^C^CDEL
  5995. [DIR:]^C^CDIR
  5996. [EDIT:]^C^CEDIT
  5997. [SH:]^C^CSH
  5998. [SHELL:]^C^CSHELL
  5999. [TYPE:]^C^CTYPE
  6000.  
  6001. ***Comment
  6002.         This is the new TABLET1 menu containing the code for 
  6003.         AME and AutoShade.  You may put your own macros 
  6004.         and menu items here in the space remaining.
  6005.         All of the "blank" line items actually contain one
  6006.         space so that a RETURN is issued when you pick any
  6007.         of them from the tablet.  Remove them if want nothing
  6008.         to happen when they are selected or place your own 
  6009.         macros in their place.
  6010.  
  6011. ***TABLET1
  6012. [A-1] 
  6013. [A-2] 
  6014. [A-3] 
  6015. [A-4] 
  6016. [A-5] 
  6017. [A-6] 
  6018. [A-7] 
  6019. [A-8] 
  6020. [A-9] 
  6021. [A-10] 
  6022. [A-11] 
  6023. [A-12] 
  6024. [A-13] 
  6025. [A-14] 
  6026. [A-15] 
  6027. [A-16] 
  6028. [A-17] 
  6029. [A-18] 
  6030. [A-19] 
  6031. [A-20] 
  6032. [A-21] 
  6033. [A-22] 
  6034. [A-23] 
  6035. [A-24] 
  6036. [A-25] 
  6037. [B-1]^C^C^P(progn(setq m:err *error*)(princ))+
  6038. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6039. (if (null c:SOLMOVE)(defun c:SOLMOVE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6040. (terpri)(princ "ERROR:  Command not found. ")+
  6041. (princ "  Load AME or AMElite from the screen menu. ")+
  6042. (setq c:SOLMOVE nil)(princ))+
  6043. (progn (menucmd "S=X")(menucmd "S=SMOVE")))(princ);^PSOLMOVE
  6044. [B-2]^C^C^P(progn(setq m:err *error*)(princ))+
  6045. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6046. (if (null c:SOLCHAM)(defun c:SOLCHAM () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6047. (terpri)(princ "ERROR:  Command not found. ")+
  6048. (princ "  Load AME or AMElite from the screen menu. ")+
  6049. (setq c:SOLCHAM nil)(princ))+
  6050. (progn (menucmd "S=X")(menucmd "S=SCHAM")))(princ);^PSOLCHAM
  6051. [B-3]^C^C^P(progn(setq m:err *error*)(princ))+
  6052. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6053. (if (null c:SOLINT)(defun c:SOLINT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6054. (terpri)(princ "ERROR:  Command not found. ")+
  6055. (princ "  Load AME or AMElite from the screen menu. ")+
  6056. (setq c:SOLINT nil)(princ))+
  6057. (progn (menucmd "S=X")(menucmd "S=SINT")))(princ);^PSOLINT
  6058. [B-4]^C^C^P(progn(setq m:err *error*)(princ))+
  6059. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6060. (if (null c:SOLBOX)(defun c:SOLBOX () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6061. (terpri)(princ "ERROR:  Command not found. ")+
  6062. (princ "  Load AME or AMElite from the screen menu. ")+
  6063. (setq c:SOLBOX nil)(princ))+
  6064. (progn (menucmd "S=X")(menucmd "S=SBOX")))(princ);^PSOLBOX
  6065. [B-5]^C^C^P(progn(setq m:err *error*)(princ))+
  6066. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6067. (if (null c:SOLCONE)(defun c:SOLCONE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6068. (terpri)(princ "ERROR:  Command not found. ")+
  6069. (princ "  Load AME or AMElite from the screen menu. ")+
  6070. (setq c:SOLCONE nil)(princ))+
  6071. (progn (menucmd "S=X")(menucmd "S=SCONE")))(princ);^PSOLCONE
  6072. [B-6]^C^C^P(progn(setq m:err *error*)(princ))+
  6073. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6074. (if (null c:SOLCYL)(defun c:SOLCYL () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6075. (terpri)(princ "ERROR:  Command not found. ")+
  6076. (princ "  Load AME or AMElite from the screen menu. ")+
  6077. (setq c:SOLCYL nil)(princ))+
  6078. (progn (menucmd "S=X")(menucmd "S=SCYL")))(princ);^PSOLCYL
  6079. [B-7] 
  6080. [B-8]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  6081. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  6082. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASHC")+
  6083. ((= G:SVER 11) "S=ASH11C")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  6084. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  6085. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  6086. (setq C:CAMERA (list '()'(terpri)+
  6087. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")));+
  6088. (list 'prompt "' is incompatible with AutoCAD r11.")+
  6089. (list 'setq 'C:CAMERA '())'(princ))m:shmn (princ))))(T(defun C:CAMERA()(terpri);+
  6090. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  6091. (terpri)(prompt"Check your AutoShade Manual for installation instructions.");+
  6092. (setq C:CAMERA nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  6093. CAMERA
  6094. [B-9]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  6095. (princ"Error loading: ")(princ msg);+
  6096. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  6097. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASHC");+
  6098. ((= G:SVER 11) "S=ASH11C")(T "S=")))(setq m:shmn nil)(princ))+
  6099. (defun m:not2 (m:avar)(set m:avar (list '()'(terpri);+
  6100. (list 'prompt "This command requires AutoShade version 2.")+
  6101. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  6102. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  6103. (m:not2 'C:VCAMERA)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  6104. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  6105. (m:not2 'C:VCAMERA))(setq C:VCAMERA (list '()'(terpri);+
  6106. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")))+
  6107. (list 'prompt "' is incompatible with AutoCAD r11.");+
  6108. (list 'setq 'C:VCAMERA '())'(princ))m:shmn (princ))))(T  (defun C:VCAMERA ()+
  6109. (terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  6110. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  6111. (setq C:VCAMERA nil)(princ));+
  6112. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PVCAMERA
  6113. [B-10]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  6114. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  6115. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASH")+
  6116. ((= G:SVER 11) "S=ASH11")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  6117. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  6118. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  6119. (setq C:CAMVIEW (list '()'(terpri)+
  6120. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")));+
  6121. (list 'prompt "' is incompatible with AutoCAD r11.")+
  6122. (list 'setq 'C:CAMVIEW '())'(princ))m:shmn (princ))))(T(defun C:CAMVIEW()(terpri);+
  6123. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  6124. (terpri)(prompt"Check your AutoShade Manual for installation instructions.");+
  6125. (setq C:CAMVIEW nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  6126. CAMVIEW
  6127. [B-11] 
  6128. [B-12] 
  6129. [B-13] 
  6130. [B-14] 
  6131. [B-15] 
  6132. [B-16] 
  6133. [B-17] 
  6134. [B-18] 
  6135. [B-19] 
  6136. [B-20] 
  6137. [B-21] 
  6138. [B-22] 
  6139. [B-23] 
  6140. [B-24] 
  6141. [B-25] 
  6142. [C-1]^C^C^P(progn(setq m:err *error*)(princ))+
  6143. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6144. (if (null c:SOLSEP)(defun c:SOLSEP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6145. (terpri)(princ "ERROR:  Command not found. ")+
  6146. (princ "  Load AME or AMElite from the screen menu. ")+
  6147. (setq c:SOLSEP nil)(princ))+
  6148. (progn (menucmd "S=X")(menucmd "S=SSEP")))(princ);^PSOLSEP
  6149. [C-2]^C^C^P(progn(setq m:err *error*)(princ))+
  6150. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6151. (if (null c:SOLFILL)(defun c:SOLFILL () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6152. (terpri)(princ "ERROR:  Command not found. ")+
  6153. (princ "  Load AME or AMElite from the screen menu. ")+
  6154. (setq c:SOLFILL nil)(princ))+
  6155. (progn (menucmd "S=X")(menucmd "S=SFILL")))(princ);^PSOLFILL
  6156. [C-3]^C^C^P(progn(setq m:err *error*)(princ))+
  6157. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6158. (if (null c:SOLSUB)(defun c:SOLSUB () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6159. (terpri)(princ "ERROR:  Command not found. ")+
  6160. (princ "  Load AME or AMElite from the screen menu. ")+
  6161. (setq c:SOLSUB nil)(princ))+
  6162. (progn (menucmd "S=X")(menucmd "S=SSUB")))(princ);^PSOLSUB
  6163. [C-4]^C^C^P(progn(setq m:err *error*)(princ))+
  6164. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6165. (if (null c:SOLSPHERE)(defun c:SOLSPHERE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6166. (terpri)(princ "ERROR:  Command not found. ")+
  6167. (princ "  Load AME or AMElite from the screen menu. ")+
  6168. (setq c:SOLSPHERE nil)(princ))+
  6169. (progn (menucmd "S=X")(menucmd "S=SSPH")))(princ);^PSOLSPHERE
  6170. [C-5]^C^C^P(progn(setq m:err *error*)(princ))+
  6171. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6172. (if (null c:SOLTORUS)(defun c:SOLTORUS () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6173. (terpri)(princ "ERROR:  Command not found. ")+
  6174. (princ "  Load AME or AMElite from the screen menu. ")+
  6175. (setq c:SOLTORUS nil)(princ))+
  6176. (progn (menucmd "S=X")(menucmd "S=STOR")))(princ);^PSOLTORUS
  6177. [C-6]^C^C^P(progn(setq m:err *error*)(princ))+
  6178. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6179. (if (null c:SOLWEDGE)(defun c:SOLWEDGE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6180. (terpri)(princ "ERROR:  Command not found. ")+
  6181. (princ "  Load AME or AMElite from the screen menu. ")+
  6182. (setq c:SOLWEDGE nil)(princ))+
  6183. (progn (menucmd "S=X")(menucmd "S=SWEDGE")))(princ);^PSOLWEDGE
  6184. [C-7] 
  6185. [C-8]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  6186. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  6187. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)(if G:RMAN+
  6188. "S=ASHLRM" "S=ASHL"))+
  6189. ((= G:SVER 11) "S=ASH11L")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  6190. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  6191. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  6192. (setq C:LIGHT (list '()'(terpri)+
  6193. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")));+
  6194. (list 'prompt "' is incompatible with AutoCAD r11.")+
  6195. (list 'setq 'C:LIGHT '())'(princ))m:shmn (princ))))(T(defun C:LIGHT()(terpri);+
  6196. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  6197. (terpri)(prompt"Check your AutoShade Manual for installation instructions.");+
  6198. (setq C:LIGHT nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  6199. LIGHT
  6200. [C-9]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  6201. (princ"Error loading: ")(princ msg);+
  6202. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  6203. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20)(if G:RMAN+
  6204. "S=ASHLRM" "S=ASHL"));+
  6205. ((= G:SVER 11) "S=ASH11L")(T "S=")))(setq m:shmn nil)(princ))+
  6206. (defun m:not2 (m:avar)(set m:avar (list '()'(terpri);+
  6207. (list 'prompt "This command requires AutoShade version 2.")+
  6208. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  6209. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  6210. (m:not2 'C:VLIGHT)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  6211. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  6212. (m:not2 'C:VLIGHT))(setq C:VLIGHT (list '()'(terpri);+
  6213. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")))+
  6214. (list 'prompt "' is incompatible with AutoCAD r11.");+
  6215. (list 'setq 'C:VLIGHT '())'(princ))m:shmn (princ))))(T  (defun C:VLIGHT ()+
  6216. (terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  6217. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  6218. (setq C:VLIGHT nil)(princ));+
  6219. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PVLIGHT
  6220. [C-10]^C^CFILMROLL
  6221. [C-11] 
  6222. [C-12] 
  6223. [C-13] 
  6224. [C-14] 
  6225. [C-15] 
  6226. [C-16] 
  6227. [C-17] 
  6228. [C-18] 
  6229. [C-19] 
  6230. [C-20] 
  6231. [C-21] 
  6232. [C-22] 
  6233. [C-23] 
  6234. [C-24] 
  6235. [C-25] 
  6236. [D-1]^C^C^P(progn(setq m:err *error*)(princ))+
  6237. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6238. (if (null c:SOLCHP)(defun c:SOLCHP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6239. (terpri)(princ "ERROR:  Command not found. ")+
  6240. (princ "  Load AME or AMElite from the screen menu. ")+
  6241. (setq c:SOLCHP nil)(princ))+
  6242. (progn (menucmd "S=X")(menucmd "S=SCHP")))(princ);^PSOLCHP
  6243. [D-2]^C^C^P(progn(setq m:err *error*)(princ))+
  6244. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6245. (if (null c:SOLCHP)(defun c:SOLCHP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6246. (terpri)(princ "ERROR:  Command not found. ")+
  6247. (princ "  Load AME or AMElite from the screen menu. ")+
  6248. (setq c:SOLCHP nil)(princ))+
  6249. (progn (menucmd "S=X")(menucmd "S=SCHP")))(princ);^PSOLCHP
  6250. [D-3]^C^C^P(progn(setq m:err *error*)(princ))+
  6251. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6252. (if (null c:SOLUNION)(defun c:SOLUNION () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6253. (terpri)(princ "ERROR:  Command not found. ")+
  6254. (princ "  Load AME or AMElite from the screen menu. ")+
  6255. (setq c:SOLUNION nil)(princ))+
  6256. (progn (menucmd "S=X")(menucmd "S=SUNION")))(princ);^PSOLUNION
  6257. [D-4]^C^C^P(progn(setq m:err *error*)(princ))+
  6258. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6259. (if (null c:SOLEXT)(defun c:SOLEXT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6260. (terpri)(princ "ERROR:  Command not found. ")+
  6261. (princ "  Load AME or AMElite from the screen menu. ")+
  6262. (setq c:SOLEXT nil)(princ))+
  6263. (progn (menucmd "S=X")(menucmd "S=SEXT")))(princ);^PSOLEXT
  6264. [D-5]^C^C^P(progn(setq m:err *error*)(princ))+
  6265. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6266. (if (null c:SOLREV)(defun c:SOLREV () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6267. (terpri)(princ "ERROR:  Command not found. ")+
  6268. (princ "  Load AME or AMElite from the screen menu. ")+
  6269. (setq c:SOLREV nil)(princ))+
  6270. (progn (menucmd "S=X")(menucmd "S=SREV")))(princ);^PSOLREV
  6271. [D-6]^C^C^P(progn(setq m:err *error*)(princ))+
  6272. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6273. (if (null c:SOLIDIFY)(defun c:SOLIDIFY () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6274. (terpri)(princ "ERROR:  Command not found. ")+
  6275. (princ "  Load AME or AMElite from the screen menu. ")+
  6276. (setq c:SOLIDIFY nil)(princ))+
  6277. (progn (menucmd "S=X")(menucmd "S=SSOLID")))(princ);^PSOLIDIFY
  6278. [D-7] 
  6279. [D-8]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  6280. (princ"Error loading: ")(princ msg)(setq *error* m:err m:err nil G:SVER nil);+
  6281. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASH")+
  6282. ((= G:SVER 11) "S=ASH11A")(T "S=")))(setq m:shmn nil)(princ))(princ))(cond;+
  6283. (G:SVER(setq *error* m:err m:err nil)(m:shmn))(T (cond((findfile"ashade.lsp")+
  6284. (vmon)(load"ashade")(setq *error* m:err m:err nil)(if G:SVER(m:shmn);+
  6285. (setq C:SCENE (list '()'(terpri)+
  6286. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")));+
  6287. (list 'prompt "' is incompatible with AutoCAD r11.")+
  6288. (list 'setq 'C:SCENE '())'(princ))m:shmn (princ))))(T(defun C:SCENE()(terpri);+
  6289. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  6290. (terpri)(prompt"Check your AutoShade Manual for installation instructions.");+
  6291. (setq C:SCENE nil)(princ))(setq *error* m:err m:err nil m:shmn (princ)))))) ^P+
  6292. SCENE
  6293. [D-9]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  6294. (princ"Error loading: ")(princ msg);+
  6295. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  6296. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=ASH");+
  6297. ((= G:SVER 11) "S=ASH11")(T "S=")))(setq m:shmn nil)(princ))+
  6298. (defun m:not2 (m:avar)(set m:avar (list '()'(terpri);+
  6299. (list 'prompt "This command requires AutoShade version 2.")+
  6300. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  6301. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  6302. (m:not2 'C:FINISH)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  6303. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  6304. (m:not2 'C:FINISH))(setq C:FINISH (list '()'(terpri);+
  6305. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")))+
  6306. (list 'prompt "' is incompatible with AutoCAD r11.");+
  6307. (list 'setq 'C:FINISH '())'(princ))m:shmn (princ))))(T  (defun C:FINISH ()+
  6308. (terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  6309. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  6310. (setq C:FINISH nil)(princ));+
  6311. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PFINISH
  6312. [D-10]^C^C^P(progn(setq m:err *error*)(defun *error* (msg)+
  6313. (princ"Error loading: ")(princ msg);+
  6314. (setq *error* m:err m:err nil m:shmn nil m:not2 nil G:SVER nil)+
  6315. (princ))(defun m:shmn ()(menucmd "S=X")(menucmd(cond((= G:SVER 20) "S=DEFAULTS");+
  6316. ((= G:SVER 11) "S=ASH11")(T "S=")))(setq m:shmn nil)(princ))+
  6317. (defun m:not2 (m:avar)(set m:avar (list '()'(terpri);+
  6318. (list 'prompt "This command requires AutoShade version 2.")+
  6319. (list 'setq m:avar '() 'm:not2 '())'(princ)))(princ))(princ));+
  6320. (cond(G:SVER(setq *error* m:err m:err nil)(if (= G:SVER 20)(m:shmn)+
  6321. (m:not2 'C:DEFAULTS)))(T (cond((findfile"ashade.lsp")(vmon)(load"ashade");+
  6322. (setq *error* m:err m:err nil)(if G:SVER(if (= G:SVER 20)(m:shmn)+
  6323. (m:not2 'C:DEFAULTS))(setq C:DEFAULTS (list '()'(terpri);+
  6324. (list 'prompt (strcat "The file '" (findfile "ashade.lsp")))+
  6325. (list 'prompt "' is incompatible with AutoCAD r11.");+
  6326. (list 'setq 'C:DEFAULTS '())'(princ))m:shmn (princ))))(T  (defun C:DEFAULTS ()+
  6327. (terpri)(prompt"The file 'Ashade.lsp' was not found in your current search directories.");+
  6328. (terpri)(prompt"Check your AutoShade Manual for installation instructions.")+
  6329. (setq C:DEFAULTS nil)(princ));+
  6330. (setq *error* m:err m:err nil m:not2 nil m:shmn (princ)))))) ^PDEFAULTS
  6331. [D-11] 
  6332. [D-12] 
  6333. [D-13] 
  6334. [D-14] 
  6335. [D-15] 
  6336. [D-16] 
  6337. [D-17] 
  6338. [D-18] 
  6339. [D-19] 
  6340. [D-20] 
  6341. [D-21] 
  6342. [D-22] 
  6343. [D-23] 
  6344. [D-24] 
  6345. [D-25] 
  6346. [E-1] 
  6347. [E-2] 
  6348. [E-3] 
  6349. [E-4] 
  6350. [E-5] 
  6351. [E-6] 
  6352. [E-7] 
  6353. [E-8]
  6354. [E-9]
  6355. [E-10]
  6356. [E-11] 
  6357. [E-12] 
  6358. [E-13] 
  6359. [E-14] 
  6360. [E-15] 
  6361. [E-16] 
  6362. [E-17] 
  6363. [E-18] 
  6364. [E-19] 
  6365. [E-20] 
  6366. [E-21] 
  6367. [E-22] 
  6368. [E-23] 
  6369. [E-24] 
  6370. [E-25] 
  6371. [F-1]^C^C^P(progn(setq m:err *error*)(princ))+
  6372. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6373. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6374. (terpri)(princ "ERROR:  Command not found. ")+
  6375. (princ "  Load AME or AMElite from the screen menu. ")+
  6376. (setq c:SOLVAR nil)(princ))+
  6377. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR SOLDECOMP
  6378. [F-2]^C^C^P(progn(setq m:err *error*)(princ))+
  6379. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6380. (if (null c:SOLLIST)(defun c:SOLLIST () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6381. (terpri)(princ "ERROR:  Command not found. ")+
  6382. (princ "  Load AME or AMElite from the screen menu. ")+
  6383. (setq c:SOLLIST nil)(princ))+
  6384. (progn (menucmd "S=X")(menucmd "S=SLIST")))(princ);^PSOLLIST
  6385. [F-3]^C^C^P(progn(setq m:err *error*)(princ))+
  6386. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6387. (if (null c:SOLIN)(defun c:SOLIN () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6388. (terpri)(princ "ERROR:  Command not found. ")+
  6389. (princ "  Load AME or AMElite from the screen menu. ")+
  6390. (setq c:SOLIN nil)(princ))+
  6391. (progn (menucmd "S=X")(menucmd "S=")))(princ);^PSOLIN
  6392. [F-4]^C^C^P(progn(setq m:err *error*)(princ))+
  6393. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6394. (if (null c:SOLMAT)(defun c:SOLMAT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6395. (terpri)(princ "ERROR:  Command not found. ")+
  6396. (princ "  Load AME or AMElite from the screen menu. ")+
  6397. (setq c:SOLMAT nil)(princ))+
  6398. (progn (menucmd "S=X")(menucmd "S=SCHMAT")))(princ);^PSOLMAT
  6399. [F-5]^C^C^P(progn(setq m:err *error*)(princ))+
  6400. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6401. (if (null c:SOLMESH)(defun c:SOLMESH () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6402. (terpri)(princ "ERROR:  Command not found. ")+
  6403. (princ "  Load AME or AMElite from the screen menu. ")+
  6404. (setq c:SOLMESH nil)(princ))+
  6405. (progn (menucmd "S=X")(menucmd "S=SMESH")))(princ);^PSOLMESH
  6406. [F-6]^C^C^P(progn(setq m:err *error*)(princ))+
  6407. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6408. (if (null c:SOLWIRE)(defun c:SOLWIRE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6409. (terpri)(princ "ERROR:  Command not found. ")+
  6410. (princ "  Load AME or AMElite from the screen menu. ")+
  6411. (setq c:SOLWIRE nil)(princ))+
  6412. (progn (menucmd "S=X")(menucmd "S=SWIRE")))(princ);^PSOLWIRE
  6413. [F-7] 
  6414. [F-8]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6415. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  6416. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  6417. (menucmd"S=X")(menucmd"S=RMSETUP"))(defun C:RMSETUP()(terpri);+
  6418. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  6419. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6420. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  6421. (menucmd"S=RMSETUP")(setq *error* m:err m:err nil)(princ))) ^PRMSETUP
  6422. [F-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6423. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  6424. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  6425. (menucmd"S=X")(menucmd"S=RMEDIT"))(defun C:RMEDIT()(terpri);+
  6426. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  6427. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6428. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  6429. (menucmd"S=RMEDIT")(setq *error* m:err m:err nil)(princ))) ^PRMEDIT
  6430. [F-10]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6431. (princ msg)(setq *error* m:err m:err nil #ASERR nil)(princ))(princ));+
  6432. (cond((null #ASERR)(vmon)(if(findfile"ascommon.lsp")(load"ascommon")+
  6433. (defun C:RMSCAN()(terpri);+
  6434. (prompt"The file 'Ascommon.lsp' was not found in your current search directories.")+
  6435. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6436. (princ)))(setq *error* m:err m:err nil)(princ))(T+
  6437. (setq *error* m:err m:err nil)(princ))) ^PRMSCAN
  6438. [F-11] 
  6439. [F-12] 
  6440. [F-13] 
  6441. [F-14] 
  6442. [F-15] 
  6443. [F-16] 
  6444. [F-17] 
  6445. [F-18] 
  6446. [F-19] 
  6447. [F-20] 
  6448. [F-21] 
  6449. [F-22] 
  6450. [F-23] 
  6451. [F-24] 
  6452. [F-25] 
  6453. [G-1]^C^C^P(progn(setq m:err *error*)(princ))+
  6454. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6455. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6456. (terpri)(princ "ERROR:  Command not found. ")+
  6457. (princ "  Load AME or AMElite from the screen menu. ")+
  6458. (setq c:SOLVAR nil)(princ))+
  6459. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR SOLSUBDIV
  6460. [G-2]^C^C^P(progn(setq m:err *error*)(princ))+
  6461. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6462. (if (null c:SOLMASSP)(defun c:SOLMASSP () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6463. (terpri)(princ "ERROR:  Command not found. ")+
  6464. (princ "  Load AME or AMElite from the screen menu. ")+
  6465. (setq c:SOLMASSP nil)(princ))+
  6466. (progn (menucmd "S=X")(menucmd "S=SMASSP")))(princ);^PSOLMASSP
  6467. [G-3]^C^C^P(progn(setq m:err *error*)(princ))+
  6468. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6469. (if (null c:SOLOUT)(defun c:SOLOUT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6470. (terpri)(princ "ERROR:  Command not found. ")+
  6471. (princ "  Load AME or AMElite from the screen menu. ")+
  6472. (setq c:SOLOUT nil)(princ))+
  6473. (progn (menucmd "S=X")(menucmd "S=")))(princ);^PSOLOUT
  6474. [G-4]^C^C^P(progn(setq m:err *error*)(princ))+
  6475. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6476. (if (null c:SOLUCS)(defun c:SOLUCS () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6477. (terpri)(princ "ERROR:  Command not found. ")+
  6478. (princ "  Load AME or AMElite from the screen menu. ")+
  6479. (setq c:SOLUCS nil)(princ))+
  6480. (progn (menucmd "S=X")(menucmd "S=SUCS")))(princ);^PSOLUCS
  6481. [G-5]^C^C^P(progn(setq m:err *error*)(princ))+
  6482. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6483. (if (null c:SOLPROF)(defun c:SOLPROF () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6484. (terpri)(princ "ERROR:  Command not found. ")+
  6485. (princ "  Load AME or AMElite from the screen menu. ")+
  6486. (setq c:SOLPROF nil)(princ))+
  6487. (progn (menucmd "S=X")(menucmd "S=SPROF")))(princ);^PSOLPROF
  6488. [G-6]^C^C^P(progn(setq m:err *error*)(princ))+
  6489. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6490. (if (null c:SOLPROF)(defun c:SOLPROF () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6491. (terpri)(princ "ERROR:  Command not found. ")+
  6492. (princ "  Load AME or AMElite from the screen menu. ")+
  6493. (setq c:SOLPROF nil)(princ))+
  6494. (progn (menucmd "S=X")(menucmd "S=SPROF")))(princ);^PSOLPROF
  6495. [G-7] 
  6496. [G-8]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6497. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  6498. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  6499. (menucmd"S=X")(menucmd"S=RMPROP"))(defun C:RMPROP()(terpri);+
  6500. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  6501. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6502. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  6503. (menucmd"S=RMPROP")(setq *error* m:err m:err nil)(princ))) ^PRMPROP
  6504. [G-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6505. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  6506. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  6507. (menucmd"S=X")(menucmd"S=RMCOPY"))(defun C:RMCOPY()(terpri);+
  6508. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  6509. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6510. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  6511. (menucmd"S=RMCOPY")(setq *error* m:err m:err nil)(princ))) ^PRMCOPY
  6512. [G-10]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6513. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  6514. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  6515. (menucmd"S=X")(menucmd"S=RMATTACH"))(defun C:RMATTACH()(terpri);+
  6516. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  6517. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6518. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  6519. (menucmd"S=RMATTACH")(setq *error* m:err m:err nil)(princ))) ^PRMATTACH
  6520. [G-11] 
  6521. [G-12] 
  6522. [G-13] 
  6523. [G-14] 
  6524. [G-15] 
  6525. [G-16] 
  6526. [G-17] 
  6527. [G-18] 
  6528. [G-19] 
  6529. [G-20] 
  6530. [G-21] 
  6531. [G-22] 
  6532. [G-23] 
  6533. [G-24] 
  6534. [G-25] 
  6535. [H-1]^C^C^P(progn(setq m:err *error*)(princ))+
  6536. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6537. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6538. (terpri)(princ "ERROR:  Command not found. ")+
  6539. (princ "  Load AME or AMElite from the screen menu. ")+
  6540. (setq c:SOLVAR nil)(princ))+
  6541. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR SOLWDENS
  6542. [H-2]^C^C^P(progn(setq m:err *error*)(princ))+
  6543. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6544. (if (null c:SOLAREA)(defun c:SOLAREA () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6545. (terpri)(princ "ERROR:  Command not found. ")+
  6546. (princ "  Load AME or AMElite from the screen menu. ")+
  6547. (setq c:SOLAREA nil)(princ))+
  6548. (progn (menucmd "S=X")(menucmd "S=SAREA")))(princ);^PSOLAREA 
  6549. [H-3]^C^C^P(progn(setq m:err *error*)(princ))+
  6550. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6551. (if (null c:SOLPURGE)(defun c:SOLPURGE () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6552. (terpri)(princ "ERROR:  Command not found. ")+
  6553. (princ "  Load AME or AMElite from the screen menu. ")+
  6554. (setq c:SOLPURGE nil)(princ))+
  6555. (progn (menucmd "S=X")(menucmd "S=SPURGE")))(princ);^PSOLPURGE
  6556. [H-4]^C^C^P(progn(setq m:err *error*)(princ))+
  6557. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6558. (if (null c:SOLVAR)(defun c:SOLVAR () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6559. (terpri)(princ "ERROR:  Command not found. ")+
  6560. (princ "  Load AME or AMElite from the screen menu. ")+
  6561. (setq c:SOLVAR nil)(princ))+
  6562. (progn (menucmd "S=X")(menucmd "S=SSOLV")))(princ);^PSOLVAR 
  6563. [H-5]^C^C^P(progn(setq m:err *error*)(princ))+
  6564. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6565. (if (null c:SOLFEAT)(defun c:SOLFEAT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6566. (terpri)(princ "ERROR:  Command not found. ")+
  6567. (princ "  Load AME or AMElite from the screen menu. ")+
  6568. (setq c:SOLFEAT nil)(princ))+
  6569. (progn (menucmd "S=X")(menucmd "S=SFEAT")))(princ);^PSOLFEAT 
  6570. [H-6]^C^C^P(progn(setq m:err *error*)(princ))+
  6571. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil f nil)(princ))+
  6572. (if (null c:SOLSECT)(defun c:SOLSECT () (menucmd "S=X")(menucmd "S=SOLLOAD");+
  6573. (terpri)(princ "ERROR:  Command not found. ")+
  6574. (princ "  Load AME or AMElite from the screen menu. ")+
  6575. (setq c:SOLSECT nil)(princ))+
  6576. (progn (menucmd "S=X")(menucmd "S=SSECT")))(princ);^PSOLSECT
  6577. [H-7] 
  6578. [H-8] 
  6579. [H-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6580. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  6581. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  6582. (menucmd"S=X")(menucmd"S=RMLIST"))(defun C:RMLIST()(terpri);+
  6583. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  6584. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6585. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  6586. (menucmd"S=RMLIST")(setq *error* m:err m:err nil)(princ))) ^PRMLIST
  6587. [H-10] 
  6588. [H-11] 
  6589. [H-12] 
  6590. [H-13] 
  6591. [H-14] 
  6592. [H-15] 
  6593. [H-16] 
  6594. [H-17] 
  6595. [H-18] 
  6596. [H-19] 
  6597. [H-20] 
  6598. [H-21] 
  6599. [H-22] 
  6600. [H-23] 
  6601. [H-24] 
  6602. [H-25] 
  6603. [I-1] 
  6604. [I-2] 
  6605. [I-3] 
  6606. [I-4] 
  6607. [I-5] 
  6608. [I-6] 
  6609. [I-7] 
  6610. [I-8]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6611. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  6612. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  6613. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  6614. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  6615. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6616. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  6617. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  6618. [I-9]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6619. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  6620. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  6621. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  6622. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  6623. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6624. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  6625. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  6626. [I-10]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  6627. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  6628. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  6629. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  6630. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  6631. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  6632. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  6633. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  6634. [I-11] 
  6635. [I-12] 
  6636. [I-13] 
  6637. [I-14] 
  6638. [I-15] 
  6639. [I-16] 
  6640. [I-17] 
  6641. [I-18] 
  6642. [I-19] 
  6643. [I-20] 
  6644. [I-21] 
  6645. [I-22] 
  6646. [I-23] 
  6647. [I-24] 
  6648. [I-25] 
  6649. ***Comment
  6650.         This is the existing TABLET2 menu.  It has been
  6651.         updated for Release 11 functionality.
  6652.  
  6653. ***TABLET2
  6654. ^C^C^P(defun C:T2HIDE (/ m:err m:a)(setq m:err *error*)(defun *error* (msg)+
  6655. (setq *error* m:err)(princ))(menucmd"S=X")(menucmd"S=HIDE1")(initget "Yes No")+
  6656. (setq m:a(getkword"Do you want to HIDE? <Y> "))(if(/= m:a"No")(command"HIDE");+
  6657. (progn (menucmd "S= ")(menucmd "S= ")))(setq *error* m:err)(princ))(princ);+
  6658. T2HIDE;^P
  6659. $S=X $S=VPOINT VPOINT;;
  6660. $S=X $S=SHADE
  6661. $S=X $S=UCS1 ^C^CUCS
  6662. ^C^CUCS;PREV
  6663. ^C^CUCS;ORIGIN
  6664. ;
  6665. $S=X $S=MV ^C^CMVIEW
  6666. $S=X $S=ZOOM 'ZOOM VMAX
  6667. $S=X $S=LINE ^C^CLINE
  6668. ^C^CREGEN
  6669. [VPOINT  ]^C^CVPOINT R;<<135;$S=X $S=VPOINT3D
  6670. [VPT rear]^C^CVPOINT R;<<90;$S=X $S=VPOINT3D
  6671. [VPOINT  ]^C^CVPOINT R;<<45;$S=X $S=VPOINT3D
  6672. $S=X $S=UCS1 ^C^CUCS
  6673. ^C^CUCS;;
  6674. ^C^CPLAN;W
  6675. ;
  6676. $S=X $S=MV ^C^CMVIEW
  6677. $S=X $S=ZOOM 'ZOOM W
  6678. $S=X $S=PLINE ^C^CPLINE
  6679. ^C^CREGENALL
  6680. [VPT left]^C^CVPOINT R;<<180;$S=X $S=VPOINT3D
  6681. [VPT plan]^C^CPLAN;;
  6682. [VPT rigt]^C^CVPOINT R;<<0;$S=X $S=VPOINT3D
  6683. $S=X $S=DVIEW ^C^CDVIEW
  6684. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;CA;\\;
  6685. $S=X $S=DVIEW ^C^C$S=X $S=DVIEW1 DVIEW;;
  6686. ;
  6687. $S=X $S=MV ^C^CMVIEW ON
  6688. $S=X $S=ZOOM 'ZOOM D
  6689. $S=X $S=ARC ^C^CARC
  6690. 'REDRAW
  6691. [VPOINT  ]^C^CVPOINT R;<<225;$S=X $S=VPOINT3D
  6692. [VPT frnt]^C^CVPOINT R;<<270;$S=X $S=VPOINT3D
  6693. [VPOINT  ]^C^CVPOINT R;<<315;$S=X $S=VPOINT3D
  6694. $S=X $S=DVIEW ^C^CDVIEW
  6695. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;Z;\;
  6696. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;PA;\\;
  6697. ;
  6698. $S=X $S=MV ^C^CMVIEW OFF
  6699. $S=X $S=ZOOM ^C^CZOOM A
  6700. $S=X $S=CIRCLE ^C^CCIRCLE
  6701. 'REDRAW
  6702. $S=X $S=3D ^C^CRULESURF
  6703. $S=X $S=3D ^C^CREVSURF
  6704. $S=X $S=3DFACE ^C^C3DFACE
  6705. $S=X $S=VPLA ^C^CVPLAYER
  6706. $S=X $S=VPLA ^C^CVPLAYER THAW
  6707. $S=X $S=VPLA ^C^CVPLAYER FREEZE
  6708. ;
  6709. $S=X $S=MV ^C^CMVIEW 2
  6710. $S=X $S=ZOOM 'ZOOM P
  6711. $S=X $S=ELLIPSE ^C^CELLIPSE
  6712. 'REDRAW
  6713. $S=X $S=3D ^C^CEDGESURF
  6714. $S=X $S=3D ^C^CTABSURF
  6715. $S=X $S=3DPOLY ^C^C3DPOLY
  6716. $S=X $S=VPLA ^C^CVPLAYER
  6717. $S=X $S=VPLA ^C^CVPLAYER NEW
  6718. $S=X $S=VPLA ^C^CVPLAYER RESET
  6719. ;
  6720. $S=X $S=MV ^C^CMVIEW 3
  6721. $S=X $S=ZOOM ^C^CZOOM E
  6722. $S=X $S=POLYGON ^C^CPOLYGON
  6723. 'REDRAW
  6724. $S=X $S=XREF ^C^CXREF
  6725. $S=X $S=XREF ^C^CXREF;;
  6726. $S=X $S=XBIND ^C^CXBIND
  6727. $S=X $S=LAYER ^C^CDDLMODES
  6728. $S=X $S=LAYER ^C^CLAYER ON
  6729. $S=X $S=LAYER ^C^CLAYER OFF
  6730. ;
  6731. $S=X $S=MV ^C^CMVIEW 4
  6732. $S=X $S=ZOOM 'ZOOM
  6733. $S=X $S=POINT ^C^CPOINT
  6734. 'REDRAW
  6735. $S=X $S=ATTDEF ^C^CATTDEF
  6736. $S=X $S=BLOCK ^C^CBLOCK
  6737. $S=X $S=INSERT ^C^CINSERT
  6738. $S=X $S=LAYER ^C^CLAYER
  6739. $S=X $S=LAYER ^C^CLAYER THAW
  6740. $S=X $S=LAYER ^C^CLAYER FREEZE
  6741. ;
  6742. $S=X $S=MV ^C^CMSPACE
  6743. 'PAN
  6744. ^C^CDONUT
  6745. 'REDRAWALL
  6746. $S=X $S=ATTEDIT ^C^CATTEDIT
  6747. $S=X $S=WBLOCK ^C^CWBLOCK
  6748. $S=X $S=MINSERT ^C^CMINSERT
  6749. $S=X $S=LAYER ^C^CLAYER
  6750. $S=X $S=LAYER ^C^CLAYER ? *;;
  6751. $S=X $S=LAYER ^C^CLAYER M \;
  6752. ;
  6753. $S=X $S=MV ^C^CPSPACE
  6754. $S=X $S=DS
  6755. $S=X $S=DR
  6756. 'REDRAWALL
  6757. ***Comment
  6758.         This is the existing TABLET3 menu.  It has been
  6759.         updated for Release 11 in functionality.
  6760.  
  6761. ***TABLET3
  6762. ;
  6763. ;
  6764. ;
  6765. <<135
  6766. <<135
  6767. <<90
  6768. <<90
  6769. <<45
  6770. <<45
  6771. ;
  6772. ;
  6773. ;
  6774. <<180
  6775. <<180
  6776. <\
  6777. <\
  6778. <<0
  6779. <<0
  6780. ;
  6781. ;
  6782. ;
  6783. <<225
  6784. <<225
  6785. <<270
  6786. <<270
  6787. <<315
  6788. <<315
  6789. ;
  6790. ;
  6791. ;
  6792. ^H
  6793. ^H
  6794. ^H
  6795. ^H
  6796. ^H
  6797. ^H
  6798. ;
  6799. ;
  6800. ;
  6801. 7/8\
  6802. 7/8\
  6803. /16\
  6804. /16\
  6805. /32\
  6806. /32\
  6807. ;
  6808. ;
  6809. ;
  6810. 1/2\
  6811. 1/2\
  6812. 5/8\
  6813. 5/8\
  6814. 3/4\
  6815. 3/4\
  6816. ;
  6817. ;
  6818. ;
  6819. 1/8\
  6820. 1/8\
  6821. 1/4\
  6822. 1/4\
  6823. 3/8\
  6824. 3/8\
  6825. ;
  6826. ;
  6827. ;
  6828. -\
  6829. -\
  6830. /\
  6831. /\
  6832. X\
  6833. X\
  6834. ;
  6835. ;
  6836. ;
  6837. @\
  6838. @\
  6839. '\
  6840. '\
  6841. "\
  6842. "\
  6843. ;
  6844. ;
  6845. ;
  6846. 7\
  6847. 7\
  6848. 8\
  6849. 8\
  6850. 9\
  6851. 9\
  6852.  
  6853. ;
  6854. ;
  6855. 4\
  6856. 4\
  6857. 5\
  6858. 5\
  6859. 6\
  6860. 6\
  6861. ;
  6862. ;
  6863. ;
  6864. 1\
  6865. 1\
  6866. 2\
  6867. 2\
  6868. 3\
  6869. 3\
  6870.  
  6871. ;
  6872. ;
  6873. 0\
  6874. 0\
  6875. .\
  6876. .\
  6877. ,\
  6878. ,\
  6879. ***Comment
  6880.         This is the existing TABLET4 menu.  It has been
  6881.         updated for Release 11 functionality.
  6882.         
  6883.         Menu items S19 - S22 contain the calls to swap the tablet menus.
  6884.  
  6885.         These items cause tablet menus to be swapped which contain
  6886.         various "expert" menu selections.  A variable is used to 
  6887.         hold bit-coded values which are on when the menu is  swapped, 
  6888.         i.e., when the alternate menu has been swapped in.  Bit 1 
  6889.         is on when menu area 1 is swapped, bit 2 when menu area 2 
  6890.         is swapped, and so on with bits 4 and 8. 
  6891.         
  6892.         When bit 1 is set, the first asterick in the second line 
  6893.         of the screen menu is replaced  with the numeral one, the 
  6894.         second asterick when bit 2 is set, and so on with bits 4 
  6895.         and 8. 
  6896.  
  6897.         This shows the user that there has been a change to the 
  6898.         structure of the menus in a graphical, albeit miniscule, 
  6899.         way.  Prompts describing the changes enacted via the menu 
  6900.         swaps will pick up the balance of the feedback to the user.  
  6901.         They should be tied to the setting of the EXPERT system 
  6902.         variable.  If the value of the EXPERT system variable is 0, 
  6903.         then a prompt such as this will be issued;  
  6904.         "Menu area 3 has been swapped.  Optional metric 
  6905.         functionality is now active."  If the value of the EXPERT 
  6906.         system variable is 1-4, the prompt will be shortened to; 
  6907.         "Menu area 3 has been swapped.", and if the value of 
  6908.         the EXPERT system variable is greater than 4, all prompts 
  6909.         will be suppressed. 
  6910.         
  6911.         Selecting the AutoCAD heading at the top of the screen 
  6912.         menu resets all of the menus to their default values as
  6913.         does re-entering the drawing editor.
  6914.  
  6915.  
  6916. ***TABLET4
  6917. ;
  6918. ;
  6919. ;
  6920. ;
  6921. ;
  6922. ;
  6923. ;
  6924. ;
  6925. ;
  6926. ;
  6927. ;
  6928. ;
  6929. ;
  6930. ;
  6931. ;
  6932. ;
  6933. ;
  6934. ;
  6935. [Tablet 1]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6936. (if (= (logand 1 T_MENU) 1)(progn (setq T_MENU (- T_MENU 1))+
  6937. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 1 unloaded.  "));+
  6938. (menucmd "T1=TABLET1")(if (< (getvar "EXPERT") 1)(progn +
  6939. (terpri)(princ "Select from the AutoCAD AME menu and AutoShade tablet menus.")(princ))))+
  6940. (progn (setq T_MENU (+ T_MENU 1))+
  6941. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 1 loaded.  "));+
  6942. (menucmd "T1=TABLET1ALT")(if (< (getvar "EXPERT") 1)(progn +
  6943. (terpri)(princ "This area is for your personal applications and menu items.")(princ)))))+
  6944. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6945. [Tablet 2]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6946. (if (= (logand 2 T_MENU) 2)(progn(setq T_MENU (- T_MENU 2))+
  6947. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 2 unloaded.  "));+
  6948. (menucmd "T2=TABLET2")(if old_wv (setvar "WORLDVIEW" old_wv))(if (< (getvar "EXPERT") 1)(progn +
  6949. (terpri)(princ "Commands operate transparently: VPOINT and DVIEW in Worldview mode.")(princ))))+
  6950. (progn(setq T_MENU (+ T_MENU 2));+
  6951. (setq old_wv (getvar "WORLDVIEW"))(setvar "WORLDVIEW" 0)+
  6952. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 2 loaded.  "));+
  6953. (menucmd "T2=TABLET2ALT")(if (< (getvar "EXPERT") 1)(progn +
  6954. (terpri)(princ "Zoom and other commands issue CTRL-C's: VPOINT and DVIEW in current UCS mode.")(princ)))))+
  6955. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6956. [Tablet 3]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6957. (if (= (logand 4 T_MENU) 4)(progn(setq T_MENU (- T_MENU 4))+
  6958. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 3 unloaded.  "));+
  6959. (menucmd "T3=TABLET3")(if (< (getvar "EXPERT") 1)(progn +
  6960. (terpri)(princ "Select American units from the Numeric menu.")(princ))))+
  6961. (progn(setq T_MENU (+ T_MENU 4))+
  6962. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 3 loaded.  "));+
  6963. (menucmd "T3=TABLET3ALT")(if (< (getvar "EXPERT") 1)(progn +
  6964. (terpri)(princ "Select Metric units from the Numeric menu.")(princ)))))+
  6965. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6966. [Tablet 4]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  6967. (if (= (logand 8 T_MENU) 8)(progn(setq T_MENU (- T_MENU 8))+
  6968. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 4 unloaded.  "));+
  6969. (menucmd "T4=TABLET4")(if (< (getvar "EXPERT") 1)(progn +
  6970. (terpri)(princ "Object snap modes issue overrides: commands do NOT repeat.")(princ))))+
  6971. (progn(setq T_MENU (+ T_MENU 8))+
  6972. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 4 loaded.  "));+
  6973. (menucmd "T4=TABLET4ALT")(if (< (getvar "EXPERT") 1)(progn +
  6974. (terpri)(princ "Object snap modes issue running modes: commands repeat.")(princ)))))+
  6975. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  6976. ;
  6977. ;
  6978. ;
  6979. ^C^CTIME
  6980. ^C^C$S=X $S=ID ID
  6981. ^C^CSTATUS
  6982. ^C^C$S=X $S=LIST LIST
  6983. 'HELP
  6984. 'HELP
  6985. ;
  6986. ^C^CDDEMODES
  6987. ^C^CDDEMODES
  6988. ^C^C$S=X $S=OSNAPC OSNAP
  6989. ;
  6990. NONE
  6991. CENTER
  6992. ENDPOINT
  6993. INSERT
  6994. INTERSEC
  6995. MIDPOINT
  6996. NEAREST
  6997. NODE
  6998. PERPEND
  6999. QUADRANT
  7000. TANGENT
  7001. ;
  7002. ^C^CSAVE
  7003. ^C^CSAVE
  7004. ^C^CSETVAR ? *
  7005. ^C^C$S=X $S=AREA AREA
  7006. ^C^CDIST
  7007. ^C^C$S=X $S=LIST LIST
  7008. 'HELP
  7009. 'HELP
  7010. ;
  7011. ^C^CDDRMODES
  7012. ^C^CDDRMODES
  7013. ^C^C$S=X $S=OSNAPC OSNAP
  7014. ;
  7015. UNDO B
  7016. ^C^CU
  7017. ^C^CREDO
  7018. AUTO
  7019. MULTIPLE
  7020. WINDOW
  7021. LAST
  7022. PREVIOUS
  7023. CROSSING
  7024. REMOVE
  7025. ADD
  7026. ;
  7027. ^C^C$S=X $S=END END
  7028. ^C^C$S=X $S=QUIT QUIT
  7029. ^C^C$S=X $S=DIM DIM SAV
  7030. ^C^C$S=X $S=DIM DIM RESTORE
  7031. ^C^C$S=X $S=DIM DIM SAV ? *
  7032. ^C^C$S=X $S=HOMETEXT DIM HOMETEXT
  7033. ^C^C$S=X $S=TEDIT DIM TEDIT
  7034. ^C^C$S=X $S=DIM DIM TROTATE
  7035. ;
  7036. ^C^C$S=X $S=DDEDIT DDEDIT
  7037. ^C^C$S=X $S=DDEDIT DDEDIT
  7038. ^C^C$S=X $S=QTEXT QTEXT
  7039. ;
  7040. ^C^C
  7041. ^C^C
  7042. ^C^C
  7043. ^O
  7044. ^D
  7045. ^Q
  7046. GRAPHSCR
  7047. ^E
  7048. ^G
  7049. ^B
  7050. ^V
  7051. ;
  7052. ^C^CFILES
  7053. ^C^CFILES
  7054. ^C^CDIM1 STATUS
  7055. ^C^C$S=X $S=VAR1 DIM
  7056. ^C^C$S=X $S=DIM DIM OVE
  7057. ^C^C$S=X $S=DIM DIM OBLIQUE
  7058. EXIT;^C^C$S=X $S=S
  7059. EXIT;^C^C$S=X $S=S
  7060. ;
  7061. ^C^C^P(if (= dtext 1)(progn(menucmd "S=TEXT")(menucmd "T4=TEXT1")+
  7062. (menucmd "T4=TEXT2")(menucmd "T4=TEXT3")(setq dtext null)+
  7063. (prompt "TEXT mode set")(princ))(progn(menucmd "S=DTEXT");+
  7064. (menucmd "T4=DTEXT1")(menucmd "T4=DTEXT2")(menucmd "T4=DTEXT3")(setq dtext 1)+
  7065. (prompt "DTEXT mode set")(princ)));^P
  7066. ^C^C^P(if (= dtext 1)(progn(menucmd "S=TEXT")(menucmd "T4=TEXT1")+
  7067. (menucmd "T4=TEXT2")(menucmd "T4=TEXT3")(setq dtext null)+
  7068. (prompt "TEXT mode set")(princ))(progn(menucmd "S=DTEXT");+
  7069. (menucmd "T4=DTEXT1")(menucmd "T4=DTEXT2")(menucmd "T4=DTEXT3")(setq dtext 1)+
  7070. (prompt "DTEXT mode set")(princ)));^P
  7071. ^C^C$S=X $S=TEXT TEXT STYLE
  7072. ;
  7073. ^C^C$S=X $S=SCALE SCALE
  7074. ^C^C$S=X $S=ROTATE ROTATE
  7075. ^C^C$S=X $S=OFFSET OFFSET
  7076. ^C^C$S=X $S=MOVE MOVE
  7077. ^C^C$S=X $S=ERASE ERASE
  7078. ^C^C$S=X $S=ERASE ERASE
  7079. ^C^COOPS
  7080. ^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  7081. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  7082. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  7083. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  7084. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  7085. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  7086. (menucmd "S=X")(menucmd "S=P0"))(progn(terpri)+
  7087. (princ "Entity selected is not a polyline.")(terpri)(setq m:s1 nil))))))))+
  7088. (defun m:p1 (/ m:a)(menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil);+
  7089. (menucmd"S=P0")(progn(setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")+
  7090. (if(< m:a 4)(menucmd"S=P0")(menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)+
  7091. (setq *error* m:err)(princ))(princ));PEDITM;^P
  7092. ^C^CEXPLODE
  7093. ^C^C$S=X $S=ARRAY ARRAY
  7094. ^C^C$S=X $S=DIVIDE DIVIDE
  7095. ;
  7096. ^C^CPLOT
  7097. ^C^CPRPLOT
  7098. ^C^C$S=X $S=DIMORD DIM ORDINATE
  7099. ^C^C$S=X $S=DIM DIM LEADER
  7100. ^C^C$S=X $S=DIMLINEAR DIM BASELINE
  7101. ^C^C$S=X $S=DIMLINEAR DIM CONTIN
  7102. ^C^C$S=X $S=DIMLINEAR DIM VERT
  7103. ^C^C$S=X $S=DIMLINEAR DIM HORIZ
  7104. ;
  7105. ^C^C$S=X $S=TEXT TEXT ALIGNED
  7106. ^C^C$S=X $S=TEXT TEXT MIDDLE
  7107. ^C^C$S=X $S=TEXT TEXT FIT
  7108. ;
  7109. ^C^C$S=X $S=MIRROR MIRROR
  7110. ^C^C$S=X $S=BREAK2P BREAK \F
  7111. ^C^C$S=X $S=BREAKSPL BREAK \F \@
  7112. ^C^C$S=X $S=COPY COPY
  7113. ^C^C$S=X $S=EXTEND EXTEND
  7114. ^C^C$S=X $S=STRETCH STRETCH C
  7115. ^C^C$S=X $S=TRIM TRIM
  7116. ^C^C$S=X $S=FILLET0 FILLET R 0;;
  7117. ^C^C$S=X $S=FILLET FILLET
  7118. ^C^C$S=X $S=CHAMFER CHAMFER
  7119. ^C^C$S=X $S=MEASURE MEASURE
  7120. ;
  7121. ^C^C$S=X $S=UT
  7122. ^C^C^P(if R11omn (progn(command "Menu" R11omn)(setq R11omn nil));+
  7123. (if (setq R11omn (getvar "menuname"));+
  7124. (if (setq envname (getenv "ACADALTMENU")) (command "Menu" +
  7125. (findfile envname)) (command "Menu" R11omn))))(setq T_MENU nil)(princ) ^P
  7126. ^C^C$S=X $S=DIM DIM CENTER
  7127. ^C^C$S=X $S=DIM DIM RADIUS
  7128. ^C^C$S=X $S=DIM DIM DIAMETER
  7129. ^C^C$S=X $S=DIM DIM ANGULAR
  7130. ^C^C$S=X $S=DIM DIM ROTATED
  7131. ^C^C$S=X $S=DIMLINEAR DIM ALIGNED
  7132. ;
  7133. ^C^C$S=X $S=TEXT TEXT
  7134. ^C^C$S=X $S=TEXT TEXT C
  7135. ^C^C$S=X $S=TEXT TEXT RIGHT
  7136. ;
  7137. ^C^C$S=X $S=SNAP SNAP
  7138. ^C^C$S=X $S=GRID GRID
  7139. ^C^C$S=X $S=UNITS UNITS
  7140. ^C^C$S=X $S=LINETYPE LINETYPE
  7141. ^C^C$S=X $S=CHANGE CHANGE
  7142. ^C^C$S=X $S=CHANGE CHANGE
  7143. ^C^C$S=X $S=CHPROP CHPROP
  7144. ^C^CLTSCALE
  7145. ^C^C$S=X $S=COLOR COLOR
  7146. ^C^CTILEMODE
  7147. ^C^C$S=X $S=APERTURE APERTURE
  7148. ;
  7149. ^C^C$S=X $S=EXCOMDS
  7150. ^C^C$S=X $S=EXCOMDS
  7151. **DTEXT1 110
  7152. ^C^C$S=X $S=DTEXT DTEXT STYLE
  7153. **DTEXT2 133
  7154. ^C^C$S=X $S=DTEXT DTEXT ALIGNED
  7155. ^C^C$S=X $S=DTEXT DTEXT MIDDLE
  7156. ^C^C$S=X $S=DTEXT DTEXT FIT
  7157. **DTEXT3 158
  7158. ^C^C$S=X $S=DTEXT DTEXT
  7159. ^C^C$S=X $S=DTEXT DTEXT C
  7160. ^C^C$S=X $S=DTEXT DTEXT RIGHT
  7161. **TEXT1 110
  7162. ^C^C$S=X $S=TEXT TEXT STYLE
  7163. **TEXT2 133
  7164. ^C^C$S=X $S=TEXT TEXT ALIGNED
  7165. ^C^C$S=X $S=TEXT TEXT MIDDLE
  7166. ^C^C$S=X $S=TEXT TEXT FIT
  7167. **TEXT3 158
  7168. ^C^C$S=X $S=TEXT TEXT
  7169. ^C^C$S=X $S=TEXT TEXT C
  7170. ^C^C$S=X $S=TEXT TEXT RIGHT
  7171.  
  7172. ***Comment
  7173.         This is the original TABLET1 menu which is now an alternate menu.
  7174.         The new TABLET1 menu contains the code for AME and AutoShade.
  7175.         You may put your own macros and menu items here or in the space
  7176.         remaining on the regular TABLET1 area.  All of the item locations
  7177.         are now accessible through the transparent window in the template.
  7178.  
  7179. ***TABLET1ALT
  7180. [A-1] 
  7181. [A-2] 
  7182. [A-3] 
  7183. [A-4] 
  7184. [A-5] 
  7185. [A-6] 
  7186. [A-7] 
  7187. [A-8] 
  7188. [A-9] 
  7189. [A-10] 
  7190. [A-11] 
  7191. [A-12] 
  7192. [A-13] 
  7193. [A-14] 
  7194. [A-15] 
  7195. [A-16] 
  7196. [A-17] 
  7197. [A-18] 
  7198. [A-19] 
  7199. [A-20] 
  7200. [A-21] 
  7201. [A-22] 
  7202. [A-23] 
  7203. [A-24] 
  7204. [A-25] 
  7205. [B-1] 
  7206. [B-2] 
  7207. [B-3] 
  7208. [B-4] 
  7209. [B-5] 
  7210. [B-6] 
  7211. [B-7] 
  7212. [B-8] 
  7213. [B-9] 
  7214. [B-10] 
  7215. [B-11] 
  7216. [B-12] 
  7217. [B-13] 
  7218. [B-14] 
  7219. [B-15] 
  7220. [B-16] 
  7221. [B-17] 
  7222. [B-18] 
  7223. [B-19] 
  7224. [B-20] 
  7225. [B-21] 
  7226. [B-22] 
  7227. [B-23] 
  7228. [B-24] 
  7229. [B-25] 
  7230. [C-1] 
  7231. [C-2] 
  7232. [C-3] 
  7233. [C-4] 
  7234. [C-5] 
  7235. [C-6] 
  7236. [C-7] 
  7237. [C-8] 
  7238. [C-9] 
  7239. [C-10] 
  7240. [C-11] 
  7241. [C-12] 
  7242. [C-13] 
  7243. [C-14] 
  7244. [C-15] 
  7245. [C-16] 
  7246. [C-17] 
  7247. [C-18] 
  7248. [C-19] 
  7249. [C-20] 
  7250. [C-21] 
  7251. [C-22] 
  7252. [C-23] 
  7253. [C-24] 
  7254. [C-25] 
  7255. [D-1] 
  7256. [D-2] 
  7257. [D-3] 
  7258. [D-4] 
  7259. [D-5] 
  7260. [D-6] 
  7261. [D-7] 
  7262. [D-8] 
  7263. [D-9] 
  7264. [D-10] 
  7265. [D-11] 
  7266. [D-12] 
  7267. [D-13] 
  7268. [D-14] 
  7269. [D-15] 
  7270. [D-16] 
  7271. [D-17] 
  7272. [D-18] 
  7273. [D-19] 
  7274. [D-20] 
  7275. [D-21] 
  7276. [D-22] 
  7277. [D-23] 
  7278. [D-24] 
  7279. [D-25] 
  7280. [E-1] 
  7281. [E-2] 
  7282. [E-3] 
  7283. [E-4] 
  7284. [E-5] 
  7285. [E-6] 
  7286. [E-7] 
  7287. [E-8] 
  7288. [E-9] 
  7289. [E-10] 
  7290. [E-11] 
  7291. [E-12] 
  7292. [E-13] 
  7293. [E-14] 
  7294. [E-15] 
  7295. [E-16] 
  7296. [E-17] 
  7297. [E-18] 
  7298. [E-19] 
  7299. [E-20] 
  7300. [E-21] 
  7301. [E-22] 
  7302. [E-23] 
  7303. [E-24] 
  7304. [E-25] 
  7305. [F-1] 
  7306. [F-2] 
  7307. [F-3] 
  7308. [F-4] 
  7309. [F-5] 
  7310. [F-6] 
  7311. [F-7] 
  7312. [F-8] 
  7313. [F-9] 
  7314. [F-10] 
  7315. [F-11] 
  7316. [F-12] 
  7317. [F-13] 
  7318. [F-14] 
  7319. [F-15] 
  7320. [F-16] 
  7321. [F-17] 
  7322. [F-18] 
  7323. [F-19] 
  7324. [F-20] 
  7325. [F-21] 
  7326. [F-22] 
  7327. [F-23] 
  7328. [F-24] 
  7329. [F-25] 
  7330. [G-1] 
  7331. [G-2] 
  7332. [G-3] 
  7333. [G-4] 
  7334. [G-5] 
  7335. [G-6] 
  7336. [G-7] 
  7337. [G-8] 
  7338. [G-9] 
  7339. [G-10] 
  7340. [G-11] 
  7341. [G-12] 
  7342. [G-13] 
  7343. [G-14] 
  7344. [G-15] 
  7345. [G-16] 
  7346. [G-17] 
  7347. [G-18] 
  7348. [G-19] 
  7349. [G-20] 
  7350. [G-21] 
  7351. [G-22] 
  7352. [G-23] 
  7353. [G-24] 
  7354. [G-25] 
  7355. [H-1] 
  7356. [H-2] 
  7357. [H-3] 
  7358. [H-4] 
  7359. [H-5] 
  7360. [H-6] 
  7361. [H-7] 
  7362. [H-8] 
  7363. [H-9] 
  7364. [H-10] 
  7365. [H-11] 
  7366. [H-12] 
  7367. [H-13] 
  7368. [H-14] 
  7369. [H-15] 
  7370. [H-16] 
  7371. [H-17] 
  7372. [H-18] 
  7373. [H-19] 
  7374. [H-20] 
  7375. [H-21] 
  7376. [H-22] 
  7377. [H-23] 
  7378. [H-24] 
  7379. [H-25] 
  7380. [I-1] 
  7381. [I-2] 
  7382. [I-3] 
  7383. [I-4] 
  7384. [I-5] 
  7385. [I-6] 
  7386. [I-7] 
  7387. [I-8] 
  7388. [I-9] 
  7389. [I-10] 
  7390. [I-11] 
  7391. [I-12] 
  7392. [I-13] 
  7393. [I-14] 
  7394. [I-15] 
  7395. [I-16] 
  7396. [I-17] 
  7397. [I-18] 
  7398. [I-19] 
  7399. [I-20] 
  7400. [I-21] 
  7401. [I-22] 
  7402. [I-23] 
  7403. [I-24] 
  7404. [I-25] 
  7405. ***Comment
  7406.         This is an alternate TABLET2 menu.
  7407.  
  7408. ***TABLET2ALT
  7409. ^C^C^P(defun C:T2HIDE (/ m:err m:a)(setq m:err *error*)(defun *error* (msg)+
  7410. (setq *error* m:err)(princ))(menucmd"S=X")(menucmd"S=HIDE1")(initget "Yes No")+
  7411. (setq m:a(getkword"Do you want to HIDE? <Y> "))(if(/= m:a"No")(command"HIDE");+
  7412. (progn (menucmd "S= ")(menucmd "S= ")))(setq *error* m:err)(princ))(princ);+
  7413. T2HIDE;^P
  7414. $S=X $S=VPOINT VPOINT;;
  7415. $S=X $S=SHADE
  7416. $S=X $S=UCS1 ^C^CUCS
  7417. ^C^CUCS;PREV
  7418. ^C^CUCS;ORIGIN
  7419. ;
  7420. $S=X $S=MV ^C^CMVIEW
  7421. $S=X $S=ZOOM ^C^CZOOM VMAX
  7422. $S=X $S=LINE ^C^CLINE
  7423. ^C^CREGEN
  7424. [VPOINT  ]^C^CVPOINT R;<<135;$S=X $S=VPOINT3D
  7425. [VPT rear]^C^CVPOINT R;<<90;$S=X $S=VPOINT3D
  7426. [VPOINT  ]^C^CVPOINT R;<<45;$S=X $S=VPOINT3D
  7427. $S=X $S=UCS1 ^C^CUCS
  7428. ^C^CUCS;;
  7429. ^C^CPLAN;W
  7430. ;
  7431. $S=X $S=MV ^C^CMVIEW
  7432. $S=X $S=ZOOM ^C^CZOOM W
  7433. $S=X $S=PLINE ^C^CPLINE
  7434. ^C^CREGENALL
  7435. [VPT left]^C^CVPOINT R;<<180;$S=X $S=VPOINT3D
  7436. [VPT plan]^C^CPLAN;;
  7437. [VPT rigt]^C^CVPOINT R;<<0;$S=X $S=VPOINT3D
  7438. $S=X $S=DVIEW ^C^CDVIEW
  7439. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;CA;\\;
  7440. $S=X $S=DVIEW ^C^C$S=X $S=DVIEW1 DVIEW;;
  7441. ;
  7442. $S=X $S=MV ^C^CMVIEW ON
  7443. $S=X $S=ZOOM ^C^CZOOM D
  7444. $S=X $S=ARC ^C^CARC
  7445. 'REDRAW
  7446. [VPOINT  ]^C^CVPOINT R;<<225;$S=X $S=VPOINT3D
  7447. [VPT frnt]^C^CVPOINT R;<<270;$S=X $S=VPOINT3D
  7448. [VPOINT  ]^C^CVPOINT R;<<315;$S=X $S=VPOINT3D
  7449. $S=X $S=DVIEW ^C^CDVIEW
  7450. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;Z;\;
  7451. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;PA;\\;
  7452. ;
  7453. $S=X $S=MV ^C^CMVIEW OFF
  7454. $S=X $S=ZOOM ^C^CZOOM A
  7455. $S=X $S=CIRCLE ^C^CCIRCLE
  7456. 'REDRAW
  7457. $S=X $S=3D ^C^CRULESURF
  7458. $S=X $S=3D ^C^CREVSURF
  7459. $S=X $S=3DFACE ^C^C3DFACE
  7460. $S=X $S=VPLA ^C^CVPLAYER
  7461. $S=X $S=VPLA ^C^CVPLAYER THAW
  7462. $S=X $S=VPLA ^C^CVPLAYER FREEZE
  7463. ;
  7464. $S=X $S=MV ^C^CMVIEW 2
  7465. $S=X $S=ZOOM ^C^CZOOM P
  7466. $S=X $S=ELLIPSE ^C^CELLIPSE
  7467. 'REDRAW
  7468. $S=X $S=3D ^C^CEDGESURF
  7469. $S=X $S=3D ^C^CTABSURF
  7470. $S=X $S=3DPOLY ^C^C3DPOLY
  7471. $S=X $S=VPLA ^C^CVPLAYER
  7472. $S=X $S=VPLA ^C^CVPLAYER NEW
  7473. $S=X $S=VPLA ^C^CVPLAYER RESET
  7474. ;
  7475. $S=X $S=MV ^C^CMVIEW 3
  7476. $S=X $S=ZOOM ^C^CZOOM E
  7477. $S=X $S=POLYGON ^C^CPOLYGON
  7478. 'REDRAW
  7479. $S=X $S=XREF ^C^CXREF
  7480. $S=X $S=XREF ^C^CXREF;;
  7481. $S=X $S=XBIND ^C^CXBIND
  7482. $S=X $S=LAYER ^C^CDDLMODES
  7483. $S=X $S=LAYER ^C^CLAYER ON
  7484. $S=X $S=LAYER ^C^CLAYER OFF
  7485. ;
  7486. $S=X $S=MV ^C^CMVIEW 4
  7487. $S=X $S=ZOOM ^C^CZOOM
  7488. $S=X $S=POINT ^C^CPOINT
  7489. 'REDRAW
  7490. $S=X $S=ATTDEF ^C^CATTDEF
  7491. $S=X $S=BLOCK ^C^CBLOCK
  7492. $S=X $S=INSERT ^C^CINSERT
  7493. $S=X $S=LAYER ^C^CLAYER
  7494. $S=X $S=LAYER ^C^CLAYER THAW
  7495. $S=X $S=LAYER ^C^CLAYER FREEZE
  7496. ;
  7497. $S=X $S=MV ^C^CMSPACE
  7498. 'PAN
  7499. ^C^CDONUT
  7500. 'REDRAWALL
  7501. $S=X $S=ATTEDIT ^C^CATTEDIT
  7502. $S=X $S=WBLOCK ^C^CWBLOCK
  7503. $S=X $S=MINSERT ^C^CMINSERT
  7504. $S=X $S=LAYER ^C^CLAYER
  7505. $S=X $S=LAYER ^C^CLAYER ? *;;
  7506. $S=X $S=LAYER ^C^CLAYER M \;
  7507. ;
  7508. $S=X $S=MV ^C^CPSPACE
  7509. $S=X $S=DS
  7510. $S=X $S=DR
  7511. 'REDRAWALL
  7512. ***Comment
  7513.         This is an alternate TABLET3 menu which provides all of the common
  7514.         features found on the UK tablet area 3 for metric use.  Their 
  7515.         locations had to be altered slightly to fit with our present
  7516.         layout, but all of them are available.
  7517.  
  7518. ***TABLET3ALT
  7519. ;
  7520. ;
  7521. ;
  7522. <<135
  7523. <<135
  7524. <<90
  7525. <<90
  7526. <<45
  7527. <<45
  7528. ;
  7529. ;
  7530. ;
  7531. <<180
  7532. <<180
  7533. <\
  7534. <\
  7535. <<0
  7536. <<0
  7537. ;
  7538. ;
  7539. ;
  7540. <<225
  7541. <<225
  7542. <<270
  7543. <<270
  7544. <<315
  7545. <<315
  7546. ;
  7547. ;
  7548. ;
  7549. ^H
  7550. ^H
  7551. ^H
  7552. ^H
  7553. ^H
  7554. ^H
  7555. ;
  7556. ;
  7557. ;
  7558. m\
  7559. m\
  7560. cm\
  7561. cm\
  7562. mm\
  7563. mm\
  7564. ;
  7565. ;
  7566. ;
  7567. .\
  7568. .\
  7569. +\
  7570. +\
  7571. %%d\
  7572. %%d\
  7573. ;
  7574. ;
  7575. ;
  7576. ,\
  7577. ,\
  7578. %%p\
  7579. %%p\
  7580. %%c\
  7581. %%c\
  7582. ;
  7583. ;
  7584. ;
  7585. -\
  7586. -\
  7587. /\
  7588. /\
  7589. X\
  7590. X\
  7591. ;
  7592. ;
  7593. ;
  7594. @\
  7595. @\
  7596. '\
  7597. '\
  7598. "\
  7599. "\
  7600. ;
  7601. ;
  7602. ;
  7603. 7\
  7604. 7\
  7605. 8\
  7606. 8\
  7607. 9\
  7608. 9\
  7609.  
  7610. ;
  7611. ;
  7612. 4\
  7613. 4\
  7614. 5\
  7615. 5\
  7616. 6\
  7617. 6\
  7618. ;
  7619. ;
  7620. ;
  7621. 1\
  7622. 1\
  7623. 2\
  7624. 2\
  7625. 3\
  7626. 3\
  7627.  
  7628. ;
  7629. ;
  7630. 0\
  7631. 0\
  7632. 00\
  7633. 00\
  7634. 000\
  7635. 000\
  7636. ***Comment
  7637.         This is an alternate TABLET4 menu which contains the following
  7638.         changes to the base functionality contained in the original
  7639.         menu.
  7640.         
  7641.         1)  All commands repeat which make sense to repeat
  7642.         2)  The Osnap override picks now change the running "osmode"
  7643.             transparently via 'SETVAR OSMODE.  
  7644.         
  7645.         Menu items S19 - S22 contain the calls to swap the tablet menus.
  7646.  
  7647.         These items cause tablet menus to be swapped which contain
  7648.         various "expert" menu selections.  A variable is used to 
  7649.         hold bit-coded values which are on when the menu is  swapped, 
  7650.         i.e., when the alternate menu has been swapped in.  Bit 1 
  7651.         is on when menu area 1 is swapped, bit 2 when menu area 2 
  7652.         is swapped, and so on with bits 4 and 8. 
  7653.         
  7654.         When bit 1 is set, the first asterick in the second line 
  7655.         of the screen menu is replaced  with the numeral one, the 
  7656.         second asterick when bit 2 is set, and so on with bits 4 
  7657.         and 8. 
  7658.  
  7659.         This shows the user that there has been a change to the 
  7660.         structure of the menus in a graphical, albeit miniscule, 
  7661.         way.  Prompts describing the changes enacted via the menu 
  7662.         swaps will pick up the balance of the feedback to the user.  
  7663.         They should be tied to the setting of the EXPERT system 
  7664.         variable.  If the value of the EXPERT system variable is 0, 
  7665.         then a prompt such as this should be issued;  
  7666.         "Menu area 3 has been swapped.  Optional metric 
  7667.         functionality is now active."  If the value of the EXPERT 
  7668.         system variable is 1-4, the prompt should be shortened to; 
  7669.         "Menu area 3 has been swapped.", and if the value of 
  7670.         the EXPERT system variable is greater than 4, all prompts 
  7671.         should be suppressed.  This is currently unsupported.
  7672.         
  7673.         Selecting the AutoCAD heading at the top of the screen 
  7674.         menu resets all of the menus to their default values as
  7675.         does re-entering the drawing editor.
  7676.  
  7677.  
  7678. ***TABLET4ALT
  7679. ;
  7680. ;
  7681. ;
  7682. ;
  7683. ;
  7684. ;
  7685. ;
  7686. ;
  7687. ;
  7688. ;
  7689. ;
  7690. ;
  7691. ;
  7692. ;
  7693. ;
  7694. ;
  7695. ;
  7696. ;
  7697. [Tablet 1]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  7698. (if (= (logand 1 T_MENU) 1)(progn (setq T_MENU (- T_MENU 1))+
  7699. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 1 unloaded.  "));+
  7700. (menucmd "T1=TABLET1")(if (< (getvar "EXPERT") 1)(progn +
  7701. (terpri)(princ "Select from the AutoCAD AME menu and AutoShade tablet menus.")(princ))))+
  7702. (progn (setq T_MENU (+ T_MENU 1))+
  7703. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 1 loaded.  "));+
  7704. (menucmd "T1=TABLET1ALT")(if (< (getvar "EXPERT") 1)(progn +
  7705. (terpri)(princ "This area is for your personal applications and menu items.")(princ)))))+
  7706. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  7707. [Tablet 2]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  7708. (if (= (logand 2 T_MENU) 2)(progn(setq T_MENU (- T_MENU 2))+
  7709. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 2 unloaded.  "));+
  7710. (menucmd "T2=TABLET2")(if old_wv (setvar "WORLDVIEW" old_wv))(if (< (getvar "EXPERT") 1)(progn +
  7711. (terpri)(princ "Commands operate transparently: VPOINT and DVIEW in Worldview mode.")(princ))))+
  7712. (progn(setq T_MENU (+ T_MENU 2));+
  7713. (setq old_wv (getvar "WORLDVIEW"))(setvar "WORLDVIEW" 0)+
  7714. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 2 loaded.  "));+
  7715. (menucmd "T2=TABLET2ALT")(if (< (getvar "EXPERT") 1)(progn +
  7716. (terpri)(princ "Zoom and other commands issue CTRL-C's: VPOINT and DVIEW in current UCS mode.")(princ)))))+
  7717. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  7718. [Tablet 3]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  7719. (if (= (logand 4 T_MENU) 4)(progn(setq T_MENU (- T_MENU 4))+
  7720. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 3 unloaded.  "));+
  7721. (menucmd "T3=TABLET3")(if (< (getvar "EXPERT") 1)(progn +
  7722. (terpri)(princ "Select American units from the Numeric menu.")(princ))))+
  7723. (progn(setq T_MENU (+ T_MENU 4))+
  7724. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 3 loaded.  "));+
  7725. (menucmd "T3=TABLET3ALT")(if (< (getvar "EXPERT") 1)(progn +
  7726. (terpri)(princ "Select Metric units from the Numeric menu.")(princ)))))+
  7727. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  7728. [Tablet 4]^C^C^P(if (null T_MENU) (setq T_MENU 0))+
  7729. (if (= (logand 8 T_MENU) 8)(progn(setq T_MENU (- T_MENU 8))+
  7730. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 4 unloaded.  "));+
  7731. (menucmd "T4=TABLET4")(if (< (getvar "EXPERT") 1)(progn +
  7732. (terpri)(princ "Object snap modes issue overrides: commands do NOT repeat.")(princ))))+
  7733. (progn(setq T_MENU (+ T_MENU 8))+
  7734. (if (< (getvar "EXPERT") 4)(princ "Alternate tablet area 4 loaded.  "));+
  7735. (menucmd "T4=TABLET4ALT")(if (< (getvar "EXPERT") 1)(progn +
  7736. (terpri)(princ "Object snap modes issue running modes: commands repeat.")(princ)))))+
  7737. (menucmd (strcat "s=HEADER" (itoa T_MENU)))(princ);^P
  7738. ;
  7739. ;
  7740. ;
  7741. ^C^CTIME
  7742. *^C^C$S=X $S=ID ID
  7743. ^C^CSTATUS
  7744. ^C^C$S=X $S=LIST LIST
  7745. 'HELP
  7746. 'HELP
  7747. ;
  7748. ^C^CDDEMODES
  7749. ^C^CDDEMODES
  7750. ^C^C$S=X $S=OSNAPC OSNAP
  7751. ;
  7752. 'SETVAR OSMODE 0
  7753. 'SETVAR OSMODE 4
  7754. 'SETVAR OSMODE 1
  7755. 'SETVAR OSMODE 64
  7756. 'SETVAR OSMODE 32
  7757. 'SETVAR OSMODE 2
  7758. 'SETVAR OSMODE 512
  7759. 'SETVAR OSMODE 8
  7760. 'SETVAR OSMODE 128
  7761. 'SETVAR OSMODE 16
  7762. 'SETVAR OSMODE 256
  7763. ;
  7764. ^C^CSAVE
  7765. ^C^CSAVE
  7766. ^C^CDBLIST
  7767. *^C^C$S=X $S=AREA AREA
  7768. *^C^CDIST
  7769. ^C^C$S=X $S=LIST LIST
  7770. 'HELP
  7771. 'HELP
  7772. ;
  7773. ^C^CDDRMODES
  7774. ^C^CDDRMODES
  7775. ^C^C$S=X $S=OSNAPC OSNAP
  7776. ;
  7777. UNDO B
  7778. ^C^CU
  7779. ^C^CREDO
  7780. AUTO
  7781. MULTIPLE
  7782. WINDOW
  7783. LAST
  7784. PREVIOUS
  7785. CROSSING
  7786. REMOVE
  7787. ADD
  7788. ;
  7789. ^C^C$S=X $S=END END
  7790. ^C^C$S=X $S=QUIT QUIT
  7791. *^C^C$S=X $S=DIM DIM SAV
  7792. *^C^C$S=X $S=DIM DIM RESTORE
  7793. *^C^C$S=X $S=DIM DIM SAV ? *
  7794. *^C^C$S=X $S=TEDIT DIM TEDIT
  7795. *^C^C$S=X $S=DIM DIM TROTATE
  7796. *^C^C$S=X $S=DIM DIM HOMETEXT
  7797. ;
  7798. *^C^C$S=X $S=DDEDIT DDEDIT
  7799. *^C^C$S=X $S=DDEDIT DDEDIT
  7800. *^C^C$S=X $S=QTEXT QTEXT
  7801. ;
  7802. ^C^C
  7803. ^C^C
  7804. ^C^C
  7805. ^O
  7806. ^D
  7807. ^Q
  7808. GRAPHSCR
  7809. ^E     
  7810. ^G
  7811. ^B
  7812. ^V
  7813. ;
  7814. ^C^CFILES
  7815. ^C^CFILES
  7816. ^C^CDIM1 STATUS
  7817. *^C^C$S=X $S=VAR1 DIM
  7818. *^C^C$S=X $S=DIM DIM OVE
  7819. ^C^C$S=X $S=DIM DIM OBLIQUE
  7820. EXIT;^C^C$S=X $S=S
  7821. EXIT;^C^C$S=X $S=S
  7822. ;
  7823. ^C^C$S=X $S=TEXTSET TEXT
  7824. ^C^C$S=X $S=TEXTSET TEXT
  7825. *^C^C$S=X $S=TEXT TEXT STYLE
  7826. ;
  7827. *^C^C$S=X $S=SCALE SCALE
  7828. *^C^C$S=X $S=ROTATE ROTATE
  7829. *^C^C$S=X $S=OFFSET OFFSET
  7830. *^C^C$S=X $S=MOVE MOVE
  7831. *^C^C$S=X $S=ERASE ERASE
  7832. *^C^C$S=X $S=ERASE ERASE
  7833. ^C^COOPS
  7834. *^C^C^P(if(null C:PEDITM)(defun C:PEDITM(/ m:p0 m:p1 m:err)+
  7835. (setq m:err *error*)(defun *error* (m)(setq *error* m:err)(princ))+
  7836. (defun m:p0(/ m:s1 m:e1 m:e2 m:e3)(menucmd"S=X")(menucmd"S=PSEL");+
  7837. (while(not m:s1)(if(setq m:s1(ssget))(progn(setq m:e1(ssname m:s1 0)+
  7838. m:e2(entget m:e1) m:e3(cdr(assoc 0 m:e2)))(if(= m:e3 "POLYLINE")(m:p1)+
  7839. (if(member m:e3 '("LINE" "ARC"))(progn(command "PEDIT" m:e1 pause);+
  7840. (menucmd "S=X")(menucmd "S=P0"))(progn(terpri)+
  7841. (princ "Entity selected is not a polyline.")(terpri)(setq m:s1 nil))))))))+
  7842. (defun m:p1 (/ m:a)(menucmd"S=X")(if(=(setq m:a (cdr(assoc 70 m:e2)))nil);+
  7843. (menucmd"S=P0")(progn(setq m:a(/ m:a 2))(if(>= m:a 8)(menucmd"S=P16")+
  7844. (if(< m:a 4)(menucmd"S=P0")(menucmd"S=P8")))))(command "PEDIT" m:e1))(m:p0)+
  7845. (setq *error* m:err)(princ))(princ));PEDITM;^P
  7846. *^C^CEXPLODE
  7847. *^C^C$S=X $S=ARRAY ARRAY
  7848. *^C^C$S=X $S=DIVIDE DIVIDE
  7849. ;
  7850. ^C^CPLOT
  7851. ^C^CPRPLOT
  7852. *^C^C$S=X $S=DIMORD DIM ORDINATE
  7853. *^C^C$S=X $S=DIM DIM LEADER
  7854. *^C^C$S=X $S=DIMLINEAR BASELINE
  7855. *^C^C$S=X $S=DIMLINEAR CONTIN
  7856. *^C^C$S=X $S=DIMLINEAR DIM VERT
  7857. *^C^C$S=X $S=DIMLINEAR DIM HORIZ
  7858. ;
  7859. *^C^C$S=X $S=TEXT TEXT ALIGNED
  7860. *^C^C$S=X $S=TEXT TEXT MIDDLE
  7861. *^C^C$S=X $S=TEXT TEXT FIT
  7862. ;
  7863. *^C^C$S=X $S=MIRROR MIRROR
  7864. *^C^C$S=X $S=BREAK2P BREAK \F
  7865. *^C^C$S=X $S=BREAKSPL BREAK \F \@
  7866. *^C^C$S=X $S=COPY COPY
  7867. *^C^C$S=X $S=EXTEND EXTEND
  7868. *^C^C$S=X $S=STRETCH STRETCH C
  7869. *^C^C$S=X $S=TRIM TRIM
  7870. *^C^C$S=X $S=FILLET0 FILLET R 0;;
  7871. *^C^C$S=X $S=FILLET FILLET
  7872. *^C^C$S=X $S=CHAMFER CHAMFER
  7873. *^C^C$S=X $S=MEASURE MEASURE
  7874. ;
  7875. ^C^C$S=X $S=UT
  7876. ^C^C^P(if R11omn (progn(command "Menu" R11omn)(setq R11omn nil));+
  7877. (if (setq R11omn (getvar "menuname"));+
  7878. (if (setq envname (getenv "ACADALTMENU")) (command "Menu" +
  7879. (findfile envname)) (command "Menu" R11omn))))(setq T_MENU nil)(princ) ^P
  7880. *^C^C$S=X $S=DIM DIM CENTER
  7881. *^C^C$S=X $S=DIM DIM RADIUS
  7882. *^C^C$S=X $S=DIM DIM DIAMETER
  7883. *^C^C$S=X $S=DIM DIM ANGULAR
  7884. *^C^C$S=X $S=DIM DIM ROTATED
  7885. *^C^C$S=X $S=DIMLINEAR DIM ALIGNED
  7886. ;
  7887. *^C^C$S=X $S=TEXT TEXT
  7888. *^C^C$S=X $S=TEXT TEXT C
  7889. *^C^C$S=X $S=TEXT TEXT RIGHT
  7890. ;
  7891. *^C^C$S=X $S=SNAP SNAP
  7892. *^C^C$S=X $S=GRID GRID
  7893. *^C^C$S=X $S=UNITS UNITS
  7894. *^C^C$S=X $S=LINETYPE LINETYPE
  7895. *^C^C$S=X $S=CHANGE CHANGE
  7896. *^C^C$S=X $S=CHANGE CHANGE
  7897. *^C^C$S=X $S=CHPROP CHPROP
  7898. *^C^CLTSCALE
  7899. *^C^C$S=X $S=COLOR COLOR
  7900. *^C^CTILEMODE
  7901. *^C^C$S=X $S=APERTURE APERTURE
  7902. ;
  7903. ^C^C$S=X $S=EXCOMDS
  7904. ^C^C$S=X $S=EXCOMDS
  7905. **DTEXT1 110
  7906. *^C^C$S=X $S=DTEXT DTEXT STYLE
  7907. **DTEXT2 133
  7908. *^C^C$S=X $S=DTEXT DTEXT ALIGNED
  7909. *^C^C$S=X $S=DTEXT DTEXT MIDDLE
  7910. *^C^C$S=X $S=DTEXT DTEXT FIT
  7911. **DTEXT3 158
  7912. *^C^C$S=X $S=DTEXT DTEXT
  7913. *^C^C$S=X $S=DTEXT DTEXT C
  7914. *^C^C$S=X $S=DTEXT DTEXT RIGHT
  7915. **TEXT1 110
  7916. *^C^C$S=X $S=TEXT TEXT STYLE
  7917. **TEXT2 133
  7918. *^C^C$S=X $S=TEXT TEXT ALIGNED
  7919. *^C^C$S=X $S=TEXT TEXT MIDDLE
  7920. *^C^C$S=X $S=TEXT TEXT FIT
  7921. **TEXT3 158
  7922. *^C^C$S=X $S=TEXT TEXT
  7923. *^C^C$S=X $S=TEXT TEXT C
  7924. *^C^C$S=X $S=TEXT TEXT RIGHT
  7925.  
  7926.  
  7927.