home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p086 / 3.img / ACADSUP.LIF / ASHADE.MNU < prev    next >
Encoding:
AudoCAD Menu  |  1990-11-01  |  59.5 KB  |  3,367 lines
  1. ***BUTTONS
  2. ;
  3. $p1=*
  4. ^c^c
  5. ^B
  6. ^O
  7. ^G
  8. ^D
  9. ^E
  10. ^T
  11. ***AUX1
  12. ;
  13. $p1=*
  14. ^C^C
  15. ^B
  16. ^O
  17. ^G
  18. ^D
  19. ^E
  20. ^T
  21.  
  22. ***POP1
  23. [Tools]
  24. [OSNAP]^C^C$p1= $p1=* OSNAP \
  25. CENter
  26. ENDpoint
  27. INSert
  28. [INTersection]INT
  29. MIDpoint
  30. NEArest
  31. NODe
  32. [PERpendicular]PER
  33. QUAdrant
  34. [QUICK,]QUICK,^Z$p1=*
  35. TANgent
  36. NONE
  37. [~--]
  38. [FILTERS...   ]$p1=filters $p1=*
  39. [Cancel]^C^C
  40. [U]^C^CU
  41. [Redo]^C^CREDO
  42. [List]^C^CLIST
  43.  
  44. **filters
  45. [Filters]
  46. .X
  47. .Y
  48. .Z
  49. .XY
  50. .XZ
  51. .YZ
  52. [TOOLS...]$p1= $p1=*
  53.  
  54. ***POP2
  55. [Draw]
  56. [Line]*^C^C$S=X $s=line line
  57. [Arc]*^C^C$S=X $s=poparc arc
  58. [Circle]*^C^C$S=X $s=popcircl circle
  59. [Polyline]*^C^C$S=X $s=pline pline
  60. [3D Polyline]*^C^C$S=X $S=3dpoly 3dpoly
  61. [Insert]^C^Csetvar attdia 1 $S=X $s=insert insert
  62. [Dtext]*^C^C$S=X $s=Dtext Dtext
  63. [Hatch...]^C^C$i=hatch1 $i=*
  64. [3D Construction...]$i=3dobjects $i=*
  65.  
  66. ***POP3
  67. [Modify]
  68. [Erase]*^C^C$S=X $s=erase erase si auto
  69. [Move]*^C^C$S=X $s=move move si auto
  70. [Copy]*^C^C$S=X $s=copy copy si auto
  71. [Properties]*^C^C$S=X $S=chprop chprop si auto
  72. [Break]*^C^C$S=X $S=break break
  73. [Fillet]*^C^C$S=X $S=fillet fillet
  74. [Mirror]*^C^C$S=X $S=mirror mirror auto
  75. [Trim]*^C^C$S=X $s=trim trim auto
  76. [Extend]*^C^C$S=X $s=extend extend auto
  77. [Stretch]*^C^C$S=X $s=stretch stretch crossing
  78. [Edit Polylines]^C^C^P+
  79. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  80. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  81. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  82. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  83. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  84. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  85. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  86. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  87. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  88. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  89. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  90. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  91. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  92. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  93. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  94.  
  95. ***POP4
  96. [Display]
  97. [Redraw]'redraw
  98. [~--]
  99. [Zoom Window]'zoom w
  100. [Zoom Previous]'zoom p
  101. [Zoom All]^C^Czoom a
  102. [Zoom Dynamic]'zoom d
  103. [~--]
  104. [Pan]'pan
  105. [Dview Options...]^C^C$i=dviewi $i=*
  106. [Vpoint 3D...]^C^C$S=X $S=VPOINT3D $i=3dviews $i=*
  107. [~--]
  108. [Plan View (UCS)]^C^Cplan;;
  109. [Plan View (World)]^C^Cplan wo
  110. [~--]
  111. [Set Viewports...]^C^C$S=X $S=vports $i=vporti $i=*
  112.  
  113. ***POP5
  114. [Settings]
  115. [UCS Dialogue...]^C^Cdducs
  116. [UCS Options...]$i=ucs $i=*
  117. [UCS Previous]^C^CUCS P
  118. [~--]
  119. [Drawing Aids...]'ddrmodes
  120. [Entity Creation...]'ddemodes
  121. [Modify Layer...]'ddlmodes
  122.  
  123. ***POP6
  124. [Options]
  125. [Animation...]$S=X $S=ATK $p6=animation $p6=*
  126. [AutoShade...]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  127. (princ msg)(setq *error* m:err m:err nil #GTSFO nil)(princ))(princ));+
  128. (cond((null #GTSFO)(vmon)(if(findfile"ashade.lsp")(progn(load"ashade")+
  129. (setq *error* m:err m:err nil)(menucmd(if G:RMAN"I=ASRM""I=AS"))(menucmd"I=*"))(progn(terpri);+
  130. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  131. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  132. (setq *error* m:err m:err nil)(princ))))(T(setq *error* m:err m:err nil)+
  133. (menucmd(if G:RMAN"I=ASRM""I=AS"))(menucmd"I=*")(princ))) ^P
  134. [RenderMan...]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  135. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  136. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  137. (setq *error* m:err m:err nil)(menucmd"I=RM")(menucmd"I=*"))(progn(terpri);+
  138. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  139. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  140. (setq *error* m:err m:err nil)(princ))))(T(setq *error* m:err m:err nil)+
  141. (menucmd"I=RM")(menucmd"I=*")(princ))) ^P
  142. [~--]
  143. [Fonts...]^C^C$i=fonts1 $i=*
  144.  
  145.  
  146. **animation
  147. [Animation]
  148. [ATK Setup...]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P atksetup
  149. [Edit Setup...]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P atkedit
  150. [~--]
  151. [Make a camera script]^C^P(progn (if (null C:PATH)(load "path"))(princ))^P path
  152. [Animate entities]^C^C^P(progn (if (null C:KINETIC)(load "kinetic"))(princ))^P Kinetic 
  153. [Animate blocks]^C^C^P(progn (if (null C:BLOCKIT)(load "blockit"))(princ))^P Blockit
  154. [~--]
  155. [Preview a scene]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P preview
  156. [Measure path length]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P plength
  157. [~--]
  158. [Display path numbers]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P ptsmark
  159. [Create point file]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P ptsout
  160. [~--]
  161. [.SLD walkthrough]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P SLDview
  162. [~--]
  163. [AutoShade...]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  164. (princ msg)(setq *error* m:err m:err nil #GTSFO nil)(princ))(princ));+
  165. (cond((null #GTSFO)(vmon)(if(findfile"ashade.lsp")(progn(load"ashade")+
  166. (setq *error* m:err m:err nil)(menucmd(if G:RMAN"I=ASRM""I=AS"))(menucmd"I=*"))(progn(terpri);+
  167. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  168. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  169. (setq *error* m:err m:err nil)(princ))))(T(setq *error* m:err m:err nil)+
  170. (menucmd(if G:RMAN"I=ASRM""I=AS"))(menucmd"I=*")(princ))) ^P
  171. [RenderMan...]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  172. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  173. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  174. (setq *error* m:err m:err nil)(menucmd"I=RM")(menucmd"I=*"))(progn(terpri);+
  175. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  176. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  177. (setq *error* m:err m:err nil)(princ))))(T(setq *error* m:err m:err nil)+
  178. (menucmd"I=RM")(menucmd"I=*")(princ))) ^P
  179. [Options menu...]$S=X $S=SCREEN $p6= $p6=*
  180.  
  181. ***POP7
  182. [File ]
  183. [Save ]^C^CSave;
  184. [End  ]^C^Cend
  185. [Quit ]^C^C$S=X $s=quit quit
  186. [~--  ]
  187. [Plot ]^C^Cplot
  188. [Print]^C^Cprplot
  189.  
  190. ***POP8
  191. [Help]
  192. [Help]'help
  193.  
  194. ***icon
  195. **poly
  196. [Set Polymesh and Polyline Variables]
  197. [acad(pmq)]'setvar surftype 5
  198. [acad(pmc)]'setvar surftype 6
  199. [acad(pmb)]'setvar surftype 8
  200. [acad(plq)]'setvar splinetype 5
  201. [acad(plc)]'setvar splinetype 6
  202. [ Set SPLINESEGS]'setvar splinesegs \
  203. [ Set SPLFRAME]'setvar splframe \
  204. [ Set DENSITY]'setvar surfu \'setvar surfv \
  205. [ Exit]$p3=pop3
  206.  
  207. **asrm
  208. [Select AutoShade Command]
  209. [ashade(icamera)]^C^C^p$S=X $s=ashc CAMERA ^p
  210. [ashade(ilightp)]^C^C^p$S=X $s=ashlrm LIGHT \P ^p
  211. [ashade(ilightd)]^C^C^p$S=X $s=ashlrm LIGHT \D ^p
  212. [ashade(ilights)]^C^C^p$S=X $s=ashlrm LIGHT \S ^p
  213. [ashade(ivcamera)]^C^C^p$S=X $s=ashc VCAMERA ^p
  214. [ashade(ivlightp)]^C^C^p$S=X $s=ashlrm VLIGHT \P ^p
  215. [ashade(ivlightd)]^C^C^p$S=X $s=ashlrm VLIGHT \D ^p
  216. [ashade(ivlights)]^C^C^p$S=X $s=ashlrm VLIGHT \S ^p
  217. [ashade(icamview)]^C^C^p$S=X $s=ash CAMVIEW ^p
  218. [ashade(ifinish)]^C^C^p$S=X $s=ash FINISH ^p
  219. [ashade(iscene)]^C^C^p$S=X $s=ash SCENE ^p
  220. [ashade(ifilmrol)]^C^C^p$S=X $s=ash FILMROLL ^p
  221. [ DEFAULTS]^C^C^p$S=X $s=defaults DEFAULTS ^p
  222. [ RMSCAN]^C^C^p$S=X $s=ash RMSCAN ^p$i=*
  223. [ Exit]^C^C
  224.  
  225. **as
  226. [Select AutoShade Command]
  227. [ashade(icamera)]^C^C^p$S=X $s=ashc CAMERA ^p
  228. [ashade(ilightp)]^C^C^p$S=X $s=ashl LIGHT \P ^p
  229. [ashade(ilightd)]^C^C^p$S=X $s=ashl LIGHT \D ^p
  230. [ashade(blank)]$i=*
  231. [ashade(ivcamera)]^C^C^p$S=X $s=ashc VCAMERA ^p
  232. [ashade(ivlightp)]^C^C^p$S=X $s=ashl VLIGHT \P ^p
  233. [ashade(ivlightd)]^C^C^p$S=X $s=ashl VLIGHT \D ^p
  234. [ashade(blank)]$i=*
  235. [ashade(icamview)]^C^C^p$S=X $s=ash CAMVIEW ^p
  236. [ashade(ifinish)]^C^C^p$S=X $s=ash FINISH ^p
  237. [ashade(iscene)]^C^C^p$S=X $s=ash SCENE ^p
  238. [ashade(ifilmrol)]^C^C^p$S=X $s=ash FILMROLL ^p
  239. [ DEFAULTS]^C^C^p$S=X $s=defaults DEFAULTS ^p
  240. [ RMSCAN]^C^C^p$S=X $s=ash RMSCAN ^p$i=*
  241. [ Exit]^C^C
  242.  
  243. **rm
  244. [Select RenderMan Command]
  245. [ashade(irmsetup)]^C^C^p$S=X $s=RMSETUP RMSETUP ^p
  246. [ashade(irmprop)]^C^C^p$S=X $s=RMPROP RMPROP ^p
  247. [ashade(irmattac)]^C^C^p$S=X $s=RMATTACH RMATTACH ^p
  248. [ashade(irmedit)]^C^C^p$S=X $s=RMEDIT RMEDIT ^p
  249. [ashade(irmcopy)]^C^C^p$S=X $s=RMCOPY RMCOPY ^p
  250. [ashade(irmlist)]^C^C^p$S=X $s=RMLIST RMLIST ^p
  251. [ DEFAULTS]^C^C^p$S=X $s=DEFAULTS DEFAULTS ^p
  252. [ RMSCAN]^C^C^p$S=X $s=rman RMSCAN ^p$i=*
  253. [ Exit]^C^C
  254.  
  255. **ucs
  256. [User Coordinate System Options]
  257. [ Set to World]^C^Cucs world
  258. [acad(left)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  259. ucs 3p \@0,-1,0 @0,0,1 ^P
  260. [ Set to Screen]^C^Cucs view
  261. [acad(top)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  262. ucs 3p \@1,0,0 @0,1,0 ^P
  263. [acad(front)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  264. ucs 3p \@1,0,0 @0,0,1 ^P
  265. [acad(bottom)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  266. ucs 3p \@1,0,0 @0,-1,0 ^P
  267. [acad(back)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  268. ucs 3p \@-1,0,0 @0,0,1 ^P
  269. [acad(right)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  270. ucs 3p \@0,1,0 @0,0,1 ^P
  271. [ Exit]^c^c
  272.  
  273. **3DViews
  274. [Select View Direction]
  275. [acad(ul)]^C^CVPOINT R;<<135;
  276. [acad(l)]^C^CVPOINT R;<<180;
  277. [acad(ll)]^C^CVPOINT R;<<225;
  278. [acad(user)]
  279. [acad(u)]^C^CVPOINT R;<<90;
  280. [acad(p)]^C^Cvpoint 0,0,1
  281. [acad(lo)]^C^CVPOINT R;<<270;
  282. [acad(user)]
  283. [acad(ur)]^C^CVPOINT R;<<45;
  284. [acad(r)]^C^CVPOINT R;<<0;
  285. [acad(lr)]^C^CVPOINT R;<<315;
  286. [acad(user)]
  287. [acad(t)]VPOINT;;
  288. [acad(h)]$S=X $S=HIDE
  289. [ Exit]^c^c
  290.  
  291. **dviewi
  292. [DVIEW Options]
  293. [acad(dvca)]^C^C$S=X $S=DVIEW select;\dview;p;;ca;\\;
  294. [acad(dvzo)]^C^C$S=X $S=DVIEW select;\dview;p;;z;\;
  295. [acad(dvpa)]^C^C$S=X $S=DVIEW select;\dview;p;;pa;\\;
  296. [ Exit]^c^c
  297.  
  298. **3DObjects
  299. [3D Objects and 3D Surface Commands]
  300. [acad(box3d)]^C^C^P(progn(setq m:err *error*)(prin1))+
  301. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  302. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  303. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  304. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  305. (prompt "Check installation of the Support Files and try again.")+
  306. (princ))))(T (princ)))(cond ((not (null C:BOX))(C:BOX))(T (princ)));+
  307. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  308. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  309. [acad(wedge)]^C^C^P(progn(setq m:err *error*)(princ));+
  310. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  311. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  312. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  313. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  314. (prompt "Check installation of the Support Files and try again.")+
  315. (princ))))(T (princ)))(cond ((not (null C:WEDGE))(C:WEDGE))(T (princ)));+
  316. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  317. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  318. [acad(rev)]^C^C$S=X $S=3D revsurf
  319. [acad(surftab1)]'setvar surftab1 \$I=*
  320. [acad(pyramid)]^C^C^P(progn(setq m:err *error*)(princ))+
  321. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  322. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  323. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  324. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  325. (prompt "Check installation of the Support Files and try again.")+
  326. (princ))))(T (princ)))(cond ((not (null C:PYRAMID))(C:PYRAMID))(T (princ)));+
  327. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  328. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  329. [acad(cone)]^C^C^P(progn(setq m:err *error*)(princ));+
  330. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  331. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  332. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  333. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  334. (prompt "Check installation of the Support Files and try again.")+
  335. (princ))))(T (princ)))(cond ((not (null C:CONE))(C:CONE))(T (princ)));+
  336. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  337. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  338. [acad(rul)]^C^C$S=X $S=3D rulesurf
  339. [acad(surftab2)]'setvar surftab2 \$I=*
  340. [acad(dome)]^C^C^P(progn(setq m:err *error*)(princ));+
  341. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  342. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  343. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  344. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  345. (prompt "Check installation of the Support Files and try again.")+
  346. (princ))))(T (princ)))(cond ((not (null C:DOME))(C:DOME))(T (princ)));+
  347. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  348. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  349. [acad(dish)]^C^C^P(progn(setq m:err *error*)(princ));+
  350. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  351. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  352. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  353. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  354. (prompt "Check installation of the Support Files and try again.")+
  355. (princ))))(T (princ)))(cond ((not (null C:DISH))(C:DISH))(T (princ)));+
  356. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  357. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  358. [acad(edg)]^C^C$S=X $S=3D edgesurf
  359. [acad(mesh)]^C^C^P(progn(setq m:err *error*)(princ));+
  360. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  361. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  362. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  363. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  364. (prompt "Check installation of the Support Files and try again.")+
  365. (princ))))(T (princ)))(cond ((not (null C:MESH))(C:MESH))(T (princ)));+
  366. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  367. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  368. [acad(sphere)]^C^C^P(progn(setq m:err *error*)(princ));+
  369. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  370. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  371. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  372. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  373. (prompt "Check installation of the Support Files and try again.")+
  374. (princ))))(T (princ)))(cond ((not (null C:SPHERE))(C:SPHERE))(T (princ)));+
  375. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  376. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  377. [acad(torus)]^C^C^P(progn(setq m:err *error*)(princ));+
  378. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  379. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  380. (load "3d")(menucmd "S=X")(menucmd "S=3D2"))(progn (terpri)(prompt +
  381. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  382. (prompt "Check installation of the Support Files and try again.")+
  383. (princ))))(T (princ)))(cond ((not (null C:TORUS))(C:TORUS))(T (princ)));+
  384. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  385. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  386. [acad(tab)]^C^C$S=X $S=3D tabsurf
  387. [ Exit]^c^c
  388.  
  389. **fonts1
  390. [Select Text Font]
  391. [acad(romans)]^c^cstyle romans romans
  392. [acad(romanc)]^c^cstyle romanc romanc
  393. [acad(italicc)]^c^cstyle italicc italicc
  394. [acad(romand)]^c^cstyle romand romand
  395. [acad(romant)]^c^cstyle romant romant
  396. [acad(italict)]^c^cstyle italict italict
  397. [acad(monotxt)]^c^cstyle monotxt monotxt
  398. [ Next]$i=fonts2 $i=*
  399. [ Exit]^c^c
  400.  
  401. **fonts2
  402. [Select Text Font]
  403. [acad(gothice)]^c^cstyle gothice gothice
  404. [acad(greeks)]^c^cstyle greeks greeks
  405. [acad(scripts)]^c^cstyle scripts scripts
  406. [acad(gothicg)]^c^cstyle gothicg gothicg
  407. [acad(greekc)]^c^cstyle greekc greekc
  408. [acad(scriptc)]^c^cstyle scriptc scriptc
  409. [acad(gothici)]^c^cstyle gothici gothici
  410. [ Next]$i=fonts3 $i=*
  411. [ Exit]^c^c
  412.  
  413. **fonts3
  414. [Select Text Font]
  415. [acad(syastro)]^c^cstyle syastro syastro
  416. [acad(symath)]^c^cstyle symath symath
  417. [acad(symusic)]^c^cstyle symusic symusic
  418. [acad(symap)]^c^cstyle symap symap
  419. [acad(symeteo)]^c^cstyle symeteo symeteo
  420. [acad(txt)]^c^cstyle txt txt
  421. [acad(user)]
  422. [ Beginning]$i=fonts1 $i=*
  423. [ Exit]^c^c
  424.  
  425. **hatch1
  426. [Select Hatch Pattern]
  427. [ Previous/User]^c^chatch
  428. [acad(ansi31)]^c^chatch ansi31
  429. [acad(ansi32)]^c^chatch ansi32
  430. [acad(ansi34)]^c^chatch ansi34
  431. [acad(ansi35)]^c^chatch ansi35
  432. [acad(ansi33)]^c^chatch ansi33
  433. [acad(ansi36)]^c^chatch ansi36
  434. [acad(ansi37)]^c^chatch ansi37
  435. [acad(ansi38)]^c^chatch ansi38
  436. [acad(box)]^c^chatch box
  437. [acad(brass)]^c^chatch brass
  438. [acad(brick)]^c^chatch brick
  439. [acad(clay)]^c^chatch clay
  440. [acad(cork)]^c^chatch cork
  441. [ Next]$i=hatch2 $i=*
  442. [ Exit]^c^c
  443.  
  444. **hatch2
  445. [Select Hatch Pattern]
  446. [acad(cross)]^c^chatch cross
  447. [acad(dash)]^c^chatch dash
  448. [acad(dolmit)]^c^chatch dolmit
  449. [acad(dots)]^c^chatch dots
  450. [acad(earth)]^c^chatch earth
  451. [acad(escher)]^c^chatch escher
  452. [acad(flex)]^c^chatch flex
  453. [acad(grass)]^c^chatch grass
  454. [acad(grate)]^c^chatch grate
  455. [acad(hex)]^c^chatch hex
  456. [acad(honey)]^c^chatch honey
  457. [acad(hound)]^c^chatch hound
  458. [acad(insul)]^c^chatch insul
  459. [acad(line)]^c^chatch line
  460. [ Next]$i=hatch3 $i=*
  461. [ Exit]^c^c
  462.  
  463. **hatch3
  464. [Select Hatch Pattern]
  465. [acad(mudst)]^c^chatch mudst
  466. [acad(net)]^c^chatch net
  467. [acad(net3)]^c^chatch net3
  468. [acad(plast)]^c^chatch plast
  469. [acad(plasti)]^c^chatch plasti
  470. [acad(sacncr)]^c^chatch sacncr
  471. [acad(square)]^c^chatch square
  472. [acad(stars)]^c^chatch stars
  473. [acad(steel)]^c^chatch steel
  474. [acad(swamp)]^c^chatch swamp
  475. [acad(trans)]^c^chatch trans
  476. [acad(triang)]^c^chatch triang
  477. [acad(zigzag)]^c^chatch zigzag
  478. [acad(angle)]^c^chatch angle
  479. [ Beginning]$i=hatch1 $i=*
  480. [ Exit]^c^c
  481.  
  482. **vporti
  483. [Viewport Settings (Current is dominant)]
  484. [acad(vp1)]^C^CVPORTS;SI
  485. [acad(vp3v)]^C^CVPORTS;SI;;3;v
  486. [acad(vp3h)]^C^CVPORTS;SI;;3;h
  487. [acad(vp4)]^C^CVPORTS;SI;;4
  488. [acad(vp2v)]^C^CVPORTS;SI;;2;v
  489. [acad(vp3r)]^C^CVPORTS;SI;;3;r
  490. [acad(vp3l)]^C^CVPORTS;SI;;3;l
  491. [acad(vp4l)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  492. VPORTS;SI;;2;;(setvar "CVPORT" (car (cadr (vports))))(princ);;2;;;J;;+
  493. (car (cadr (vports)));(setvar "CVPORT" (car (cadr (vports))))(princ)+
  494. ;;3;h;(setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT"+
  495. (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);ZOOM;A;+
  496. (setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);+
  497. ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)+
  498. (princ);ZOOM;A;UNDO;E ^P
  499. [acad(vp2h)]^C^CVPORTS;SI;;2;h
  500. [acad(vp3a)]^C^CVPORTS;SI;;3;a;
  501. [acad(vp3b)]^C^CVPORTS;SI;;3;b;
  502. [acad(vp4r)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  503. VPORTS;SI;;2;;;2;;(setvar "CVPORT" (car (caddr (vports))));;j;;+
  504. (car (caddr (vports)));(setvar "CVPORT" (car (cadr (vports))));;3;h;+
  505. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  506. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  507. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  508. (setvar "gridmode" m:g)(princ);ZOOM;A;UNDO;E ^P
  509. [ Join Viewports]^C^CVPORTS;J
  510. [ Restore Saved]^C^CVPORTS;R;
  511. [ List Saved]^C^CVPORTS;?;
  512. [ Exit]^c^c
  513.  
  514. ***SCREEN
  515. **S
  516. [AutoCAD]^C^C$S=X $S=S $P1=POP1 $P3=POP3
  517. [* * * *]$S=OSNAPB
  518. [Setup]^C^C^P(progn(prompt "Loading setup...   ")(load "setup")) ^P$S=X $S=UNITS
  519.  
  520. [BLOCKS]$S=X $S=BL
  521. [DIM:]$S=X $S=DIM ^C^CDIM
  522. [DISPLAY]$S=X $S=DS
  523. [DRAW]$S=X $S=DR
  524. [EDIT]$S=X $S=ED
  525. [INQUIRY]$S=X $S=INQ
  526. [LAYER:]$S=X $S=LAYER ^C^CLAYER
  527. [SETTINGS]$S=X $S=SET
  528. [PLOT]$S=X $S=PLOT
  529. [UCS:]$S=X $S=UCS1 ^C^CUCS
  530. [UTILITY]$S=X $S=UT
  531.  
  532. [3D]$S=X $S=3D
  533. [ATK]$S=X $S=ATK
  534. [ASHADE]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  535. (princ msg)(setq *error* m:err m:err nil #GTSFO nil)(princ))(princ));+
  536. (cond((null #GTSFO)(vmon)(if(findfile"ashade.lsp")(progn(load"ashade")+
  537. (menucmd"S=X")(menucmd"S=ASH"))(progn(terpri);+
  538. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  539. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  540. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  541. (menucmd"S=ASH")(setq *error* m:err m:err nil)(princ))) ^P
  542. [RMAN]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  543. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  544. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  545. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  546. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  547. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  548. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  549. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  550. [SAVE:]^C^CSAVE
  551. **X 3
  552.  
  553.  
  554.  
  555.  
  556.  
  557.  
  558.  
  559.  
  560.  
  561.  
  562.  
  563.  
  564.  
  565.  
  566.  
  567. [__LAST__]$S= $S=
  568. [  DRAW  ]^C^C$S=X $S=DR
  569. [  EDIT  ]^C^C$S=X $S=ED
  570. **BL 3
  571. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  572. [BASE:]^C^CBASE
  573. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK
  574. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  575. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  576. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK
  577. **DS 3
  578.  
  579. [ATTDISP:]$S=X $S=ATTDISP ^C^CATTDISP
  580. [DVIEW:]$S=X $S=DVIEW ^C^CDVIEW
  581. [PAN:]'PAN
  582. [PLAN:]$S=X $S=PLAN ^C^CPLAN
  583. [REDRAW:]'REDRAW
  584. [REDRALL:]'REDRAWALL
  585. [REGEN:]^C^CREGEN
  586. [REGNALL:]^C^CREGENALL
  587. [RGNAUTO:]$S=X $S=RGNAUTO ^C^CREGENAUTO
  588. [VIEW:]$S=X $S=VIEW 'VIEW
  589. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES
  590. [VPOINT:]$S=X $S=VPOINT ^C^CVPOINT
  591. [ZOOM:]$S=X $S=ZOOM 'ZOOM
  592. **DR 3
  593. [ARC]$S=X $S=ARC
  594. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  595. [CIRCLE]$S=X $S=CIRCLE
  596. [DONUT:]^C^CDONUT
  597. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  598. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE
  599. [HATCH:]$S=X $S=HATCH ^C^CHATCH
  600. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  601. [LINE:]$S=X $S=LINE ^C^CLINE
  602. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  603. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  604. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  605.  
  606. [next]$S=X $S=DR2
  607. **ATK 4
  608. [Path]^C^P(progn (if (null C:PATH)(load "path"))(princ))^P path
  609. [Kinetic]^C^C^P(progn (if (null C:KINETIC)(load "kinetic"))(princ))^P Kinetic 
  610. [Blockit]^C^C^P(progn (if (null C:BLOCKIT)(load "blockit"))(princ))^P Blockit
  611. [-------]
  612. [Preview]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P preview
  613. [Plength]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P plength
  614. [-------]
  615. [PTSmark]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P ptsmark
  616. [PTSout]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P ptsout
  617. [PTSin]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P ptsin
  618. [-------]
  619. [SLDview]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P SLDview
  620. [-------]
  621. [Pcircle]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P pcircle
  622. [RevPoly]^C^C^P(progn (if (null C:PTSMARK)(load "ptools"))(princ))^P revpoly
  623.  
  624.  
  625.  
  626. [__LAST__]$S= $S=
  627.  
  628. **DR2 3
  629. [POINT:]$S=X $S=POINT ^C^CPOINT
  630. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON
  631. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE
  632. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH
  633. [SOLID:]$S=X $S=SOLID ^C^CSOLID
  634. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  635. [TRACE:]$S=X $S=TRACE ^C^CTRACE
  636. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  637.  
  638. [3D]$S=X $S=3D
  639.  
  640.  
  641.  
  642. [previous]$S=X $S=DR
  643.  
  644. [__LAST__]$S= $S=
  645. **ED 3
  646. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY
  647. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT
  648. [DDATTE:]^C^CDDATTE
  649. [BREAK:]$S=X $S=BREAK ^C^CBREAK
  650. [CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER
  651. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE
  652. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP
  653. [COPY:]$S=X $S=COPY ^C^CCOPY
  654. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE
  655. [ERASE:]$S=X $S=ERASE ^C^CERASE
  656. [EXPLODE:]^C^CEXPLODE
  657. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND
  658.  
  659. [next]$S=X $S=ED2
  660. **ED2 3
  661. [FILLET:]$S=X $S=FILLET ^C^CFILLET
  662. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE
  663. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR
  664. [MOVE:]$S=X $S=MOVE ^C^CMOVE
  665. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  666. [PEDIT:]^C^C^P+
  667. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  668. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  669. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  670. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  671. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  672. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  673. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  674. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  675. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  676. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  677. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  678. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  679. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  680. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  681. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  682. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE
  683. [SELECT:]$S=X $S=SELECT ^C^CSELECT
  684. [SCALE:]$S=X $S=SCALE ^C^CSCALE
  685. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C
  686. [TRIM:]$S=X $S=TRIM ^C^CTRIM
  687. [UNDO:]$S=X $S=UNDO ^C^CUNDO
  688.  
  689. [previous]$S=X $S=ED
  690. **INQ 5
  691. [AREA:]$S=X $S=AREA ^C^CAREA
  692. [DBLIST:]^CDBLIST
  693. [DIST:]^C^CDIST
  694. [HELP:]'HELP
  695. [ID:]$S=X $S=ID ^C^CID
  696. [LIST:]$S=X $S=LIST ^C^CLIST
  697. [STATUS:]^C^CSTATUS
  698. [TIME:]^C^CTIME
  699. **SET 3
  700. [DDEMODES]'DDEMODES
  701. [DDRMODES]'DDRMODES
  702. [--------]
  703. [APERTUR:]$S=X $S=APERTURE ^C^CAPERTURE
  704. [AXIS:]$S=X $S=AXIS ^C^CAXIS
  705. [BLIPS:]$S=X $S=BLIPMODE ^C^CBLIPMODE
  706. [COLOR:]$S=X $S=COLOR ^C^CCOLOR
  707. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE
  708. [ELEV:]^C^CELEV
  709. [GRID:]$S=X $S=GRID ^C^CGRID
  710. [HANDLES:]$S=X $S=HANDLES ^C^CHANDLES
  711. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE
  712. [LIMITS:]$S=X $S=LIMITS ^C^CLIMITS
  713.  
  714. [next]$S=X $S=SET2
  715. **SET2 3
  716. [LTSCALE:]^C^CLTSCALE
  717. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP
  718. [QTEXT:]$S=X $S=QTEXT ^C^CQTEXT
  719. [SETVAR:]$S=X $S=SETVAR 'SETVAR
  720. [SNAP:]$S=X $S=SNAP ^C^CSNAP
  721. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  722. [TABLET:]$S=X $S=TABLET ^C^CTABLET
  723. [UCS:]$S=X $S=UCS1 ^C^CUCS
  724. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON
  725. [UNITS:]^CUNITS
  726. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  727.  
  728.  
  729.  
  730. [previous]$S=X $S=SET
  731. **PLOT 3
  732.  
  733. [ C   D]
  734. [ H   E]
  735. [ O   V]
  736. [ O   I]
  737. [ S   C]
  738. [ E   E]
  739.  
  740.  
  741. [PLOTTER]^C^CPLOT
  742.  
  743. [PRINTER]^C^CPRPLOT
  744. **UT 3
  745. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT
  746. [DXF/DXB]$S=X $S=DXF
  747. [FILES:]^C^CFILES
  748. [IGES]$S=X $S=IGES
  749. [MENU:]$S=X $S=CHTEMP ^C^CMENU
  750. [PURGE:]$S=X $S=PURGE ^C^CPURGE
  751. [RENAME:]$S=X $S=RENAME ^C^CRENAME
  752. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT
  753. [SLIDES]$S=X $S=SLIDES
  754.  
  755. [External]$S=X $S=EXCOMDS
  756. [Commands]$S=X $S=EXCOMDS
  757.  
  758. [END]$S=X $S=END
  759. [QUIT]$S=X $S=QUIT
  760. **OSNAPB 2
  761. [  HELP  ]$S= 'help
  762. [CENter]CENTER $S=
  763. [ENDpoint]ENDPOINT $S=
  764. [INSert]INSERT $S=
  765. [INTersec]INTERSEC $S=
  766. [MIDpoint]MIDPOINT $S=
  767. [NEArest]NEAREST $S=
  768. [NODe]NODE $S=
  769. [PERpend]PERPEND $S=
  770. [QUAdrant]QUADRANT $S=
  771. [QUICK,]QUICK,^Z
  772. [TANgent]TANGENT $S=
  773. [NONE]NONE $S=
  774. [CANCEL:]^C^C$S=
  775. [U:]^C^CU $S=
  776. [REDO:]^C^CREDO $S=
  777. [REDRAW:]'REDRAW $S=
  778. [SETVAR:]$S= 'SETVAR
  779. [__LAST__]$S=
  780. **BLOCK 3
  781. [BLOCK:]^C^CBLOCK
  782. ?
  783.  
  784. Window
  785. Last
  786. Previous
  787. Crossing
  788. Remove
  789. Add
  790.  
  791. Yes
  792. [OOPS]^C^COOPS
  793. **INSERT 3
  794. [INSERT:]^C^CINSERT
  795. ?
  796. [*]*\
  797. corner
  798. xyz
  799. drag
  800.  
  801. Scale
  802. Xscale
  803. Yscale
  804. Zscale
  805. Rotate
  806. **WBLOCK 3
  807. [WBLOCK:]^C^CWBLOCK
  808.  
  809. =
  810. *
  811. [blank];
  812.  
  813. Window
  814. Last
  815. Previous
  816. Crossing
  817. Remove
  818. Add
  819. Undo
  820. **MINSERT 3
  821. [MINSERT:]^C^CMINSERT
  822. ?
  823.  
  824. corner
  825. xyz
  826. drag
  827. **DIM 3
  828. [DIM:]^C^CDIM
  829. [DIM1:]^C^CDIM1
  830.  
  831. [LINEAR]$S=X $S=DIMLINEAR
  832. angular
  833. diameter
  834. radius
  835. center
  836. leader
  837. [Dim Vars]$S=X $S=VAR1
  838. [redraw]'REDRAW
  839. status
  840. undo
  841. style
  842. [EXIT]EXIT;$S=X $S=S
  843. [next]$S=X $S=FORMAT
  844. **DIMLINEAR 3
  845. [DIM:]^C^CDIM
  846. [DIM1:]^C^CDIM1
  847.  
  848. horiz
  849. vertical
  850. aligned
  851. rotated
  852.  
  853. [baseline]^C^Cdim BASE
  854. [continue]^C^Cdim CONT
  855.  
  856.  
  857.  
  858. [previous]$S=X $S=DIM
  859. **ATTDEF 3
  860. [ATTDEF:]^C^CATTDEF
  861.  
  862. Invisibl
  863. Constant
  864. Verify
  865. [Preset]P
  866.  
  867. Aligned
  868. [Centered]C
  869. Fit
  870. Middle
  871. Right
  872. Style
  873. **LAYER 3
  874. [DDLMODES]'DDLMODES
  875. [LAYER:]^C^CLAYER
  876. [?]? *
  877.  
  878. Make
  879. Set
  880. New
  881. ON
  882. OFF
  883. [Color]COLOR $S=X $S=LACOLOR \$S=X $S=LAYER
  884. [Chroma]^C^CVSLIDE chroma
  885. [ Restore]'REDRAW
  886. [Ltype]LTYPE $S=X $S=LALT \$S=X $S=LAYER
  887. Freeze
  888. Thaw
  889. **LACOLOR 3
  890. [COLOR]
  891.  
  892. red
  893. yellow
  894. green
  895. cyan
  896. blue
  897. magenta
  898. white
  899.  
  900.  
  901.  
  902.  
  903.  
  904. **LALT 3
  905. [LINETYPE]
  906.  
  907. [contin.]CONTINUOUS
  908. dashed
  909. hidden
  910. center
  911. phantom
  912. dot
  913. dashdot
  914. border
  915. divide
  916.  
  917. **ZOOM 3
  918. [ZOOM:]'ZOOM
  919.  
  920. All
  921. [Center]C
  922. Dynamic
  923. Extents
  924. Left
  925. Previous
  926. Window
  927.  
  928. Yes
  929. No
  930. **ATTDISP 3
  931. [ATTDISP:]^C^CATTDISP
  932.  
  933. Normal
  934. ON
  935. OFF
  936. **DVIEW 3
  937. [DVIEW:]^C^CDview
  938.  
  939. Window
  940. Last
  941. Previous
  942. Crossing
  943. Remove
  944. Add
  945.  
  946. [By Layer]^P(defun berror (msg)(setq *error* m:err m:err nil)(princ))+
  947. (progn (setq m:err *error* *error* berror);+
  948. (setq l(getstring (strcat "Layer name: <" (getvar "clayer") "> ")))+
  949. (if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
  950. (setq s(ssget "X" (list(cons 8 l)))))(setq *error* m:err m:err nil) s) ^P
  951. [--------]
  952. [Dviewblk]^C^CDVIEW;;
  953.  
  954. [ Dview ]$S=X $S=DVIEW1
  955. [Options]$S=X $S=DVIEW1
  956. **DVIEW1 3
  957. CAmera
  958. TArget
  959. Distance
  960. POints
  961. PAn
  962. Zoom
  963. TWist
  964. [CLip]Clip $S=X $S=DVIEW2
  965. Hide
  966. Off
  967. Undo
  968.  
  969. [eXit]Exit $S=X $S=S
  970. **DVIEW2 3
  971. [Back]Back $S=X $S=BACK
  972. [Front]Front $S=X $S=FRONT
  973. [Off]Off $S=X $S=DVIEW1
  974. **BACK 3
  975. [ back]
  976. [clipping]
  977.  
  978. [ON]On $S=X $S=DVIEW1
  979. [OFF]Off $S=X $S=DVIEW1
  980. **FRONT 3
  981. [ front]
  982. [clipping]
  983.  
  984. [ON]On $S=X $S=DVIEW1
  985. [OFF]Off $S=X $S=DVIEW1
  986.  
  987. [Eye]Eye $S=X $S=DVIEW1
  988. **RGNAUTO 3
  989. [RGNAUTO:]^C^CREGENAUTO
  990.  
  991. [ON]On $S=X $S=DS
  992. [OFF]Off $S=X $S=DS
  993. **VIEW 3
  994. [VIEW:]'VIEW
  995. ?
  996.  
  997. [Delete]Delete;
  998. [Restore]Restore;
  999. [Save]Save;
  1000. [Window]Window;
  1001. **VPORTS 3
  1002. [VPORTS:]^C^CVPORTS
  1003.  
  1004. Save
  1005. Restore
  1006. Delete
  1007. Join
  1008. Single
  1009. ?
  1010.  
  1011. [2]2 $S=X $S=VP2
  1012. [3]3 $S=X $S=VP3
  1013. 4
  1014. **VP2 3
  1015.  
  1016. [Horizont]H $S=X $S=VPORTS
  1017. [Vertical]V $S=X $S=VPORTS
  1018. **VP3 3
  1019.  
  1020. [Horizont]H $S=X $S=VPORTS
  1021. [Vertical]V $S=X $S=VPORTS
  1022. [Above]A $S=X $S=VPORTS
  1023. [Below]B $S=X $S=VPORTS
  1024. [Left]L $S=X $S=VPORTS
  1025. [Right]R $S=X $S=VPORTS
  1026. **LINE 3
  1027. [LINE:]^C^CLINE
  1028.  
  1029. [continue]^C^CLINE;;
  1030. close
  1031. undo
  1032. .x
  1033. .y
  1034. .z
  1035. .xy
  1036. .xz
  1037. .yz
  1038. **3D 3
  1039. [EDGSURF:]^C^CEDGESURF
  1040. [REVSURF:]^C^CREVSURF
  1041. [RULSURF:]^C^CRULESURF
  1042. [TABSURF:]^C^CTABSURF
  1043.  
  1044. [Surftb1:]'SETVAR SURFTAB1
  1045. [Surftb2:]'SETVAR SURFTAB2
  1046.  
  1047. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  1048. [3DMESH:]^C^C3DMESH
  1049. [3DPOLY:]$S=X $S=3DPOLY ^C^C3DPOLY
  1050.  
  1051. [  3d   ]^C^C^P(progn(setq m:err *error*)(princ))+
  1052. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1053. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1054. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  1055. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  1056. (prompt "Check installation of the Support Files and try again.");+
  1057. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  1058. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  1059. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  1060. [objects]^C^C^P(progn(setq m:err *error*)(princ))+
  1061. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1062. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1063. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  1064. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  1065. (prompt "Check installation of the Support Files and try again.");+
  1066. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  1067. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  1068. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  1069.  
  1070. **3D2 3
  1071.  
  1072. Box
  1073. Cone
  1074. Dish
  1075. Dome
  1076. Mesh
  1077. Pyramid
  1078. Sphere
  1079. Torus
  1080. Wedge
  1081. **ELEVTHK 3
  1082. [ELEV:]^C^CELEV
  1083.  
  1084. [CHANGE:]^C^CCHANGE
  1085. Window
  1086. Last
  1087. Previous
  1088. Crossing
  1089. Remove
  1090. Add
  1091. Undo
  1092. [Elev]PROP E
  1093. [Thick]PROP T
  1094. **HIDE 3
  1095. [HIDE ?]
  1096.  
  1097. [YES]^C^CHIDE
  1098. [NO]$S= $S=
  1099. **VPOINT 3
  1100. [VPOINT:]^C^CVPOINT
  1101.  
  1102. [rotate]rotate;
  1103. [axes];
  1104. [plan]none 0,0,1
  1105.  
  1106. [HIDE:]$S=X $S=HIDE
  1107. **VPOINT3D 3
  1108. [ Angle  ]^C^CVPOINT R;;
  1109. [from XY ]^C^CVPOINT R;;
  1110. [ Plane  ]^C^CVPOINT R;;
  1111. [    +80 ]<<80
  1112. [    +60 ]<<60
  1113. [    +45 ]<<45
  1114. [    +30 ]<<30
  1115. [    +10 ]<<10
  1116. [      0 ]<<0
  1117. [    -10 ]<<350
  1118. [    -30 ]<<330
  1119. [    -45 ]<<315
  1120. [    -60 ]<<300
  1121. [    -80 ]<<280
  1122. **PLINE 3
  1123. [PLINE:]^C^CPLINE
  1124.  
  1125. [Arc]ARC $S=X $S=PARC
  1126. Close
  1127. Halfwid
  1128. Length
  1129. Undo
  1130. Width
  1131.  
  1132. [FILL ON]'SETVAR FILLMODE 1
  1133. [FILL OFF]'SETVAR FILLMODE 0
  1134. **PARC 3
  1135. [POLYARC]
  1136.  
  1137. [angle]$S=X $S=PARCANG A
  1138. [CEnter]$S=X $S=PARCEN CE
  1139. [tanDir]D \DRAG
  1140. [Radius]$S=X $S=PARCRAD R
  1141. [2nd PT]S \DRAG
  1142. [CLose]$S=X $S=PLINE CLOSE
  1143.  
  1144. undo
  1145.  
  1146. [contline]$S=X $S=PLINE L
  1147.  
  1148. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  1149. **PARCANG 3
  1150. [ANGLE]
  1151.  
  1152. [center]$S=X $S=PARC Center drag
  1153. [radius]$S=X $S=PARC R \
  1154. [drag]$S=X $S=PARC drag
  1155. **PARCEN 3
  1156. [CENTER]
  1157.  
  1158. [angle]$S=X $S=PARC A drag
  1159. [length]$S=X $S=PARC L drag
  1160. [drag]$S=X $S=PARC drag
  1161. **PARCRAD 3
  1162. [RADIUS]
  1163.  
  1164. [angle]A \drag $S=X $S=PARC A \drag
  1165. [drag]$S=X $S=PARC drag
  1166. **OFFSET 3
  1167. [OFFSET:]^C^COFFSET
  1168.  
  1169. Through
  1170.  
  1171. [done];
  1172.  
  1173. **ARC 3
  1174. [ARC]
  1175.  
  1176. [3-point:]^C^CARC \\DRAG
  1177. [S,C,E:]^C^CARC \C \DRAG
  1178. [S,C,A:]^C^CARC \C \A DRAG
  1179. [S,C,L:]^C^CARC \C \L DRAG
  1180. [S,E,A:]^C^CARC \E \A
  1181. [S,E,R:]^C^CARC \E \R
  1182. [S,E,D:]^C^CARC \E \D DRAG
  1183. [C,S,E:]^C^CARC C \\DRAG
  1184. [C,S,A:]^C^CARC C \\A DRAG
  1185. [C,S,L:]^C^CARC C \\L DRAG
  1186. [CONTIN:]^C^CARC ;DRAG
  1187. **popARC 3
  1188. [ARC]
  1189.  
  1190. [3-point:]*^C^CARC \\DRAG
  1191. [S,C,E:]*^C^CARC \C \DRAG
  1192. [S,C,A:]*^C^CARC \C \A DRAG
  1193. [S,C,L:]*^C^CARC \C \L DRAG
  1194. [S,E,A:]*^C^CARC \E \A
  1195. [S,E,R:]*^C^CARC \E \R
  1196. [S,E,D:]*^C^CARC \E \D DRAG
  1197. [C,S,E:]*^C^CARC C \\DRAG
  1198. [C,S,A:]*^C^CARC C \\A DRAG
  1199. [C,S,L:]*^C^CARC C \\L DRAG
  1200. [CONTIN:]^C^CARC ;DRAG
  1201. **CIRCLE 3
  1202. [CIRCLE]
  1203.  
  1204. [CEN,RAD:]^C^CCIRCLE \DRAG
  1205. [CEN,DIA:]^C^CCIRCLE \D
  1206. [2 POINT:]^C^CCIRCLE 2P \DRAG
  1207. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  1208. [TTR:]^C^CCIRCLE TTR
  1209. **popCIRCL 3
  1210. [CIRCLE]
  1211.  
  1212. [CEN,RAD:]*^C^CCIRCLE \DRAG
  1213. [CEN,DIA:]*^C^CCIRCLE \D
  1214. [2 POINT:]*^C^CCIRCLE 2P \DRAG
  1215. [3 POINT:]*^C^CCIRCLE 3P \\DRAG
  1216. [TTR:]*^C^CCIRCLE TTR
  1217. **ASH 3
  1218. [LIGHT:]^C^C$S=X ^p(progn(menucmd(if g:rman"s=ashlrm""s=ashl"));+
  1219. (princ)) ^pLIGHT
  1220. [VLIGHT:]^C^C$S=X ^p(progn(menucmd(if g:rman"s=ashlrm""s=ashl"));+
  1221. (princ)) ^pVLIGHT
  1222. [CAMERA:]^C^C$S=X $s=ashc CAMERA
  1223. [VCAMERA:]^C^C$S=X $s=ashc VCAMERA
  1224. [FINISH:]^C^CFINISH
  1225. [SCENE:]^C^CSCENE
  1226.  
  1227. [CAMVIEW:]^C^CCAMVIEW
  1228.  
  1229. [FILMROL:]^C^CFILMROLL
  1230. [DEFAULT:]^C^C$S=X $s=DEFAULTS DEFAULTS
  1231. [RMSCAN:]^C^CRMSCAN
  1232. [--------]
  1233. [RMAN]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  1234. (princ msg)(setq *error* m:err m:err nil #GTSPO nil)(princ))(princ));+
  1235. (cond((null #GTSPO)(vmon)(if(findfile"rman.lsp")(progn(load"rman")+
  1236. (menucmd"S=X")(menucmd"S=RMAN"))(progn(terpri);+
  1237. (prompt"The file 'Rman.lsp' was not found in your current search directories.")+
  1238. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  1239. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  1240. (menucmd"S=RMAN")(setq *error* m:err m:err nil)(princ))) ^P
  1241. **ASHL 3
  1242. [LIGHT:]^C^CLIGHT
  1243. [VLIGHT:]^C^CVLIGHT
  1244.  
  1245. [Point]p
  1246. Directed
  1247.  
  1248. .x
  1249. .y
  1250. .z
  1251. .xy
  1252. .xz
  1253. .yz
  1254. **ASHLRM 3
  1255. [LIGHT:]^C^CLIGHT
  1256. [VLIGHT:]^C^CVLIGHT
  1257.  
  1258. [Point]p
  1259. Directed
  1260. Spot
  1261. .x
  1262. .y
  1263. .z
  1264. .xy
  1265. .xz
  1266. .yz
  1267. **ASHC 3
  1268. [CAMERA:]^C^CCAMERA
  1269. [VCAMERA:]^C^CVCAMERA
  1270.  
  1271.  
  1272. [CAMVIEW:]^C^CCAMVIEW
  1273.  
  1274. .x
  1275. .y
  1276. .z
  1277. .xy
  1278. .xz
  1279. .yz
  1280. **DEFAULTS 3
  1281. [DEFAULT:]^C^CDEFAULTS
  1282.  
  1283. Resize
  1284. Scale
  1285. [Prompts]Prompts $S=X $S=YESNO \$S= $S=
  1286.  
  1287.  
  1288. Select
  1289. **RMAN 3
  1290. [RMSETUP:]^C^C$S=X $s=RMSETUP RMSETUP
  1291. [RMPROP: ]^C^C$S=X $s=RMPROP RMPROP
  1292.  
  1293. [RMATTAC:]^C^C$S=X $s=RMATTACH RMATTACH
  1294. [RMEDIT: ]^C^C$S=X $s=RMEDIT RMEDIT
  1295. [RMCOPY: ]^C^C$S=X $s=RMCOPY RMCOPY
  1296.  
  1297. [RMLIST: ]^C^C$S=X $s=RMLIST RMLIST
  1298.  
  1299. [FILMROL:]^C^CFILMROLL
  1300. [DEFAULT:]^C^C$S=X $s=DEFAULTS DEFAULTS
  1301. [RMSCAN:]^C^CRMSCAN
  1302. [--------]
  1303. [ASHADE]^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  1304. (princ msg)(setq *error* m:err m:err nil #GTSFO nil)(princ))(princ));+
  1305. (cond((null #GTSFO)(vmon)(if(findfile"ashade.lsp")(progn(load"ashade")+
  1306. (menucmd"S=X")(menucmd"S=ASH"))(progn(terpri);+
  1307. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  1308. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  1309. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  1310. (menucmd"S=ASH")(setq *error* m:err m:err nil)(princ))) ^P
  1311. **RMSETUP 3
  1312. [RMSETUP:]^C^CRMSETUP
  1313.  
  1314.  
  1315. Air
  1316. Bucket
  1317. [Crop]Crop $S=X $S=RMSETUPC \$S= $S=
  1318. [Dest]Dest $S=X $S=RMSETUPD \$S= $S=
  1319. Exposure
  1320. [Filter]Filter $S=X $S=RMSETUPFI \$S= $S=
  1321. [Format]Format $S=X $S=RMSETUPFO \$S= $S=
  1322. [Merge]Merge $S=X $S=YESNO \$S= $S=
  1323. Rate
  1324. Samples
  1325. **RMSETUPC 3
  1326.  
  1327.  
  1328. Visual
  1329.  
  1330. Numeric
  1331. **RMSETUPD 3
  1332.  
  1333.  
  1334. [Cpscript]Cpostscript
  1335. [Pscript]Postscript
  1336. File
  1337. Tiff
  1338. Vga
  1339. Tga
  1340. Targa
  1341. Vista
  1342. Framebuffer
  1343. **RMSETUPFI 3
  1344.  
  1345.  
  1346. Box
  1347.  
  1348. Gaussian
  1349. **RMSETUPFO 3
  1350.  
  1351.  
  1352. Ascii
  1353.  
  1354. Binary
  1355. **YESNO 3
  1356.  
  1357.  
  1358. Yes
  1359.  
  1360. No
  1361. **RMPROP 3
  1362. [RMPROP:]^C^CRMPROP
  1363.  
  1364.  
  1365. Air
  1366. Color
  1367. Displace
  1368. Opaque
  1369. Project
  1370. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  1371. Surface
  1372. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  1373. **RMPROPTC 3
  1374.  
  1375.  
  1376. Insert
  1377.  
  1378. Pick
  1379.  
  1380. Numeric
  1381. **RMEDIT 3
  1382. [RMEDIT:]^C^CRMEDIT
  1383.  
  1384.  
  1385. Air
  1386. Color
  1387. Displace
  1388. Opaque
  1389. Project
  1390. Rate
  1391. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  1392. Surface
  1393. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  1394. **RMCOPY 3
  1395. [RMCOPY:]^C^CRMCOPY
  1396.  
  1397.  
  1398. Air
  1399. Color
  1400. Displace
  1401. Opaque
  1402. Project
  1403. Rate
  1404. [Smooth]Smooth $S=X $S=YESNO \$S= $S=
  1405. Surface
  1406. [Tcoord]Tcoord $S=X $S=RMPROPTC \$S= $S=
  1407. **RMATTACH 3
  1408. [RMATTAC:]^C^CRMATTACH
  1409.  
  1410. ?
  1411.  
  1412. Layer
  1413. Select
  1414. **RMLIST 3
  1415. [RMLIST:]^C^CRMLIST
  1416.  
  1417. Colors
  1418. Shaders
  1419. Entity
  1420. Layer
  1421. Defined
  1422.  
  1423.  
  1424. Atmosphere
  1425. Displacement
  1426. Light
  1427. Surface
  1428. **ELLIPSE 3
  1429. [ELLIPSE:]^C^CELLIPSE
  1430.  
  1431. [Center]C
  1432. Rotation
  1433. Iso
  1434. Diameter
  1435. **POLYGON 3
  1436. [POLYGON:]^C^CPOLYGON
  1437.  
  1438. Edge
  1439. [I-scribe]I
  1440. [C-scribe]C
  1441. **SHAPE 3
  1442. [SHAPE:]^C^CSHAPE
  1443. ?
  1444.  
  1445. [LOAD:]^C^CLOAD
  1446. ?
  1447. **SKETCH 3
  1448. [SKETCH:]^C^CSKETCH
  1449.  
  1450. Connect
  1451. Erase
  1452. Record
  1453.  
  1454. [eXit]x
  1455. Quit
  1456.  
  1457. [------]
  1458. [SKPOLY:]'SETVAR SKPOLY 1
  1459. [SKLINE:]'SETVAR SKPOLY 0
  1460. [------]
  1461. **SOLID 3
  1462. [SOLID:]^C^CSOLID
  1463.  
  1464. [FILL ON]'SETVAR FILLMODE 1
  1465. [FILL OFF]'SETVAR FILLMODE 0
  1466. **TRACE 3
  1467. [TRACE:]^C^CTRACE
  1468.  
  1469. [FILL ON]'SETVAR FILLMODE 1
  1470. [FILL OFF]'SETVAR FILLMODE 0
  1471. **POINT 3
  1472. [POINT:]^C^CPOINT
  1473. .x
  1474. .y
  1475. .z
  1476. .xy
  1477. .xz
  1478. .yz
  1479.  
  1480. [Complex]
  1481. [Points]
  1482. [example:]^C^CVSLIDE points
  1483. [remove]^C^CREDRAW
  1484. [example:]^C^CREDRAW
  1485. [Pdmode:]'SETVAR PDMODE
  1486. [Pdsize:]'SETVAR PDSIZE
  1487. **HATCH 3
  1488. [HATCH:]^C^CHATCH
  1489. ?
  1490.  
  1491. u
  1492. u,o
  1493. u,i
  1494. Yes
  1495.  
  1496. Window
  1497. Last
  1498. Previous
  1499. Crossing
  1500. Remove
  1501. Add
  1502. Undo
  1503. **3DFACE 3
  1504. [3DFACE:]^C^C3DFACE
  1505.  
  1506. .x
  1507. .y
  1508. .z
  1509. .xy
  1510. .xz
  1511. .yz
  1512.  
  1513. [Invisibl]I
  1514.  
  1515. [ShowEdge]^P(setvar "splframe" 1)(prompt "Invisible edges will be SHOWN after next Regeneration.")(princ) ^P
  1516. [HideEdge]^P(setvar "splframe" 0)(prompt "Invisible edges will be HIDDEN after next Regeneration.")(princ) ^P
  1517.  
  1518. **3DPOLY 3
  1519. [3DPOLY:]^C^C3DPOLY
  1520.  
  1521. Close
  1522. Undo
  1523. .x
  1524. .y
  1525. .z
  1526. .xy
  1527. .xz
  1528. .yz
  1529. **ID 3
  1530. [ID:]^C^CID
  1531.  
  1532. .x
  1533. .y
  1534. .z
  1535. .xy
  1536. .xz
  1537. .yz
  1538. **LIMITS 3
  1539.  
  1540. [LIMITS:]^C^CLIMITS
  1541.  
  1542. ON
  1543. OFF
  1544. **UCS1 3
  1545. [UCS:]^C^CUCS
  1546. [DDUCS:]^C^CDDUCS
  1547.  
  1548. ?
  1549. Previous
  1550. Restore
  1551. [Save]S
  1552. Delete
  1553. World
  1554.  
  1555. [RENAME:]^C^CRename UCS
  1556. [Follow:]'SETVAR UCSFOLLOW
  1557.  
  1558. [next]$S=X $S=UCS2
  1559. **UCS2 3
  1560. [UCS:]$S=X $S=UCS1 ^C^CUCS
  1561.  
  1562. Origin
  1563. Zaxis
  1564. 3point
  1565.  
  1566. X
  1567. Y
  1568. Z
  1569.  
  1570. View
  1571. Entity
  1572.  
  1573. [previous]$S=X $S=UCS1
  1574. **UCSICON 3
  1575. [UCSICON:]^C^CUCSICON
  1576.  
  1577. ON
  1578. OFF
  1579.  
  1580. All
  1581. Origin
  1582. Noorigin
  1583. **PLAN 3
  1584. [PLAN:]^C^CPLAN
  1585.  
  1586. Current
  1587. UCS
  1588. World
  1589.  
  1590. [Follow:]'SETVAR UCSFOLLOW
  1591. **LIST 3
  1592. [LIST:]^C^CLIST
  1593.  
  1594. Window
  1595. Last
  1596. Previous
  1597. Crossing
  1598. Remove
  1599. Add
  1600. Undo
  1601. **AREA 3
  1602. [AREA:]^C^CAREA
  1603.  
  1604. Entity
  1605. Add
  1606. Subtract
  1607. **TEXT 3
  1608. [TEXT:]^C^CTEXT
  1609. [DTEXT:]^C^CDTEXT
  1610.  
  1611. aligned
  1612. [centered]C
  1613. fit
  1614. middle
  1615. right
  1616. style
  1617.  
  1618. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1619. **TEXTSET 5
  1620. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2
  1621.  
  1622. [REG.TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2
  1623.  
  1624. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1625. **STYLE 3
  1626. [STYLE:]^C^CSTYLE
  1627. ?
  1628.  
  1629. [Fonts]$S=X $S=F1
  1630.  
  1631. Yes
  1632. No
  1633.  
  1634. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  1635. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  1636. **F1 3
  1637. Cyrillic
  1638. Cyriltlc
  1639. Greekc
  1640. Greeks
  1641. Gothice
  1642. Gothicg
  1643. Gothici
  1644. Italicc
  1645. Italict
  1646. Romanc
  1647. Romand
  1648. Romans
  1649.  
  1650.  
  1651.  
  1652.  
  1653. [next]$S=X $S=F2
  1654. [STYLMNU]$S=X $S=STYLE
  1655. **F2 3
  1656. Romant
  1657. Scriptc
  1658. Scripts
  1659. Syastro
  1660. Symap
  1661. Symath
  1662. Symeteo
  1663. Symusic
  1664.  
  1665.  
  1666.  
  1667.  
  1668.  
  1669.  
  1670.  
  1671.  
  1672. [previous]$S=X $S=F1
  1673. [STYLMNU]$S=X $S=STYLE
  1674. **DTEXT 3
  1675. [DTEXT:]^C^CDTEXT
  1676. [TEXT:]^C^CTEXT
  1677.  
  1678. [centered]C
  1679. right
  1680. aligned
  1681. middle
  1682. fit
  1683. style
  1684.  
  1685. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1686. **AXIS 3
  1687. [AXIS:]^C^CAXIS
  1688.  
  1689. [axs=snap]SNAP
  1690.  
  1691. ON
  1692. OFF
  1693. Aspect
  1694. **BLIPMODE 3
  1695. [BLIPS:]^C^CBLIPMODE
  1696.  
  1697. ON
  1698. OFF
  1699. **END 3
  1700. END ?
  1701.  
  1702. [Yes]^C^CEND
  1703. [No]$S=X $S=S
  1704. **QUIT 3
  1705. [QUIT:]^c^cquit
  1706.  
  1707. [Yes]Y
  1708. [No]n $S=X $S=S
  1709. **VAR1 3
  1710. [dimalt]$S=X $S=OF DIMALT \
  1711. [dimaltd]DIMALTD \
  1712. [dimaltf]DIMALTF \
  1713. [dimapost]DIMAPOST \
  1714. [dimaso]$S=X $S=OF DIMASO \
  1715. [dimasz]DIMASZ \
  1716. [--------]
  1717. [dimblk]DIMBLK \
  1718. [dimblk1]DIMBLK1 \
  1719. [dimblk2]DIMBLK2 \
  1720. [--------]
  1721. [dimcen]DIMCEN \
  1722. [dimdle]DIMDLE \
  1723. [dimdli]DIMDLI \
  1724. [dimexe]DIMEXE \
  1725.  
  1726. [next]$S=X $S=VAR2
  1727. [DIMMENU]$S=X $S=DIM
  1728.  
  1729.  
  1730. **VAR2 3
  1731. [dimexo]DIMEXO \
  1732. [dimlfac]DIMLFAC \
  1733. [dimlim]$S=X $S=OF DIMLIM \
  1734. [dimpost]DIMPOST \
  1735. [dimrnd]DIMRND \
  1736. [dimsah]$S=X $S=OF DIMSAH \
  1737. [dimscale]DIMSCALE \
  1738. [dimse1]$S=X $S=OF DIMSE1 \
  1739. [dimse2]$S=X $S=OF DIMSE2 \
  1740. [dimsho]$S=X $S=OF DIMSHO \
  1741. [dimsoxd]$S=X $S=OF DIMSOXD \
  1742. [dimtad]$S=X $S=OF DIMTAD \
  1743. [dimtih]$S=X $S=OF DIMTIH \
  1744. [dimtix]$S=X $S=OF DIMTIX \
  1745.  
  1746. [previous]$S=X $S=VAR1
  1747. [next]$S=X $S=VAR3
  1748. [DIMMENU]$S=X $S=DIM
  1749.  
  1750.  
  1751. **VAR3 3
  1752. [dimtm]DIMTM \
  1753. [dimtofl]$S=X $S=OF DIMTOFL \
  1754. [dimtoh]$S=X $S=OF DIMTOH \
  1755. [dimtol]$S=X $S=OF DIMTOL \
  1756. [dimtp]DIMTP \
  1757. [dimtsz]DIMTSZ \
  1758. [dimtvp]DIMTVP \
  1759. [dimtxt]DIMTXT \
  1760. [dimzin]$S=X $S=DIMZIN DIMZIN \
  1761.  
  1762.  
  1763.  
  1764.  
  1765.  
  1766.  
  1767.  
  1768. [previous]$S=X $S=VAR2
  1769. [DIMMENU]$S=X $S=DIM
  1770. **OF 3
  1771. [ON]$S= $S= ON
  1772.  
  1773. [OFF]$S= $S= OFF
  1774. **DIMZIN 4
  1775. [  New]
  1776. [ Dimzin]
  1777. [ Value]
  1778.  
  1779.  
  1780.  
  1781.  
  1782. [0]$S= $S= 0
  1783. [1]$S= $S= 1
  1784. [2]$S= $S= 2
  1785. [3]$S= $S= 3
  1786. **FORMAT 3
  1787. [DIM:]^C^CDIM
  1788. [DIM1:]^C^CDIM1
  1789.  
  1790. [HOMETEXT]$S=X $S=HOMETEXT HOMETEXT
  1791. [UPDATE]$S=X $S=UPDATE UPDATE
  1792. [NEWTEXT]$S=X $S=NEWTEXT NEWTEXT
  1793.  
  1794.  
  1795.  
  1796.  
  1797.  
  1798.  
  1799.  
  1800.  
  1801.  
  1802. [DIMMENU]$S=X $S=DIM
  1803. **HOMETEXT 3
  1804. [DIM:]^C^CDIM
  1805. [DIM1:]^C^CDIM1
  1806.  
  1807. HOMETEXT
  1808.  
  1809. Window
  1810. Last
  1811. Previous
  1812. Crossing
  1813. Remove
  1814. Add
  1815. Undo
  1816. **UPDATE 3
  1817. [DIM:]^C^CDIM
  1818. [DIM1:]^C^CDIM1
  1819.  
  1820. UPDATE
  1821.  
  1822. Window
  1823. Last
  1824. Previous
  1825. Crossing
  1826. Remove
  1827. Add
  1828. Undo
  1829. **NEWTEXT 3
  1830. [DIM:]^C^CDIM
  1831. [DIM1:]^C^CDIM1
  1832.  
  1833. [NEWTEXT]NEWTEXT
  1834.  
  1835. Window
  1836. Last
  1837. Previous
  1838. Crossing
  1839. Remove
  1840. Add
  1841. Undo
  1842. **LINETYPE 3
  1843. [LINETYP:]^C^CLINETYPE
  1844. ?
  1845.  
  1846. Create
  1847. Load
  1848. [Set]S $S=X $S=CHLT \$S=X $S=LINETYPE
  1849.  
  1850. Yes
  1851. No
  1852. **LIMITS 3
  1853. [LIMITS:]^C^CLIMITS
  1854.  
  1855. On
  1856. Off
  1857. **SNAP 3
  1858. [SNAP:]^C^CSNAP
  1859.  
  1860. ON
  1861. OFF
  1862.  
  1863. [Aspect]A;
  1864. [Rotate]R;
  1865.  
  1866. [Style]S;
  1867. [ Iso]Iso;
  1868. [ Standrd]Standard;
  1869. **TABLET 3
  1870. [TABLET:]^C^CTABLET
  1871.  
  1872. cal
  1873. [config]CFG 4 25 9 11 9 9 13 25 7 Y
  1874. [re-cfg]CFG 4 Y 25 9 11 9 9 13 25 7 Y
  1875. ON
  1876. OFF
  1877. Yes
  1878. No
  1879. **OSNAPC 3
  1880. [OSNAP:]^C^COSNAP
  1881.  
  1882. [CENter]CENTER\
  1883. [ENDpoint]ENDPOINT\
  1884. [INSert]INSERT\
  1885. [INTersec]INTERSEC\
  1886. [MIDpoint]MIDPOINT\
  1887. [NEArest]NEAREST\
  1888. [NODe]NODE\
  1889. [PERpend]PERPEND\
  1890. [QUAdrant]QUADRANT\
  1891. [TANgent]TANGENT\
  1892. [NONE]^C^COSNAP NONE $S= $S=
  1893. [Quick,]QUICK,^Z
  1894. [,],\
  1895. **DRAGMODE 3
  1896. [DRAGMODE]^C^CDRAGMODE
  1897.  
  1898. [ON]ON $S=X $S=S
  1899. [OFF]OFF $S=X $S=S
  1900. [Auto]A $S=X $S=S
  1901.  
  1902. **GRID 3
  1903. [GRID:]^C^CGRID
  1904.  
  1905. [grd=snap]SNAP
  1906.  
  1907. ON
  1908. OFF
  1909. Aspect
  1910. **HANDLES 3
  1911. [HANDLES:]^C^CHANDLES
  1912.  
  1913. [ON]ON
  1914. [DESTROY]DESTROY
  1915.  
  1916. **SETVAR 3
  1917. [SETVAR:]^C^CSETVAR
  1918. ?
  1919.  
  1920. ['SETVAR]'SETVAR
  1921. **QTEXT 3
  1922. [QTEXT:]^C^CQTEXT
  1923.  
  1924. ON
  1925. OFF
  1926. [REGEN:]REGEN
  1927. **VIEWRES 3
  1928. [VIEWRES:]^C^CVIEWRES
  1929.  
  1930. No
  1931. Yes
  1932.  
  1933. 100
  1934. 500
  1935.  
  1936. [RGNAUTO:]^C^CREGENAUTO
  1937. [ On]On
  1938. [ Off]Off
  1939. **APERTURE 3
  1940. [APERTUR:]'SETVAR APERTURE
  1941. [PICKBOX:]'SETVAR PICKBOX
  1942.  
  1943. [1]$S= $S= 1
  1944. [2]$S= $S= 2
  1945. [3]$S= $S= 3
  1946. [4]$S= $S= 4
  1947. [5]$S= $S= 5
  1948. [6]$S= $S= 6
  1949. [7]$S= $S= 7
  1950. [8]$S= $S= 8
  1951. [9]$S= $S= 9
  1952. [10]$S= $S= 10
  1953. [15]$S= $S= 15
  1954. **ARRAY 3
  1955. [ARRAY:]^C^CARRAY
  1956.  
  1957. Window
  1958. Last
  1959. Previous
  1960. Crossing
  1961. Remove
  1962. Add
  1963. Undo
  1964.  
  1965. Rectang
  1966. Polar
  1967. Yes
  1968. No
  1969. **ROTATE 3
  1970. [ROTATE:]^C^CROTATE
  1971.  
  1972. Window
  1973. Last
  1974. Previous
  1975. Crossing
  1976. Remove
  1977. Add
  1978. Undo
  1979.  
  1980. Referenc
  1981. **SELECT 3
  1982. [SELECT:]^C^CSELECT
  1983.  
  1984. Window
  1985. Last
  1986. Previous
  1987. Crossing
  1988. Remove
  1989. Add
  1990. Undo
  1991. **SCALE 3
  1992. [SCALE:]^C^CSCALE
  1993.  
  1994. Window
  1995. Last
  1996. Previous
  1997. Crossing
  1998. Remove
  1999. Add
  2000. Undo
  2001.  
  2002. Referenc
  2003. **BREAK 3
  2004. [BREAK:]^C^CBREAK
  2005.  
  2006. First
  2007. @
  2008. **BREAK2P 3
  2009. [BREAK:]^C^CBREAK \F
  2010. **BREAKSPL 3
  2011. [BREAK:]^C^CBREAK \F \@
  2012. **MOVE 3
  2013. [MOVE:]^C^CMOVE
  2014.  
  2015. Window
  2016. Last
  2017. Previous
  2018. Crossing
  2019. Remove
  2020. Add
  2021. Undo
  2022. **COPY 3
  2023. [COPY:]^C^CCOPY
  2024.  
  2025. Window
  2026. Last
  2027. Previous
  2028. Crossing
  2029. Remove
  2030. Add
  2031. Undo
  2032.  
  2033. Multiple
  2034. **UNDO 3
  2035. [UNDO:]^C^CUNDO
  2036.  
  2037. [Back 1]^C^CUNDO 1
  2038.  
  2039. [Auto]$S=X $S=UNDOA Auto
  2040. Back
  2041. End
  2042. Group
  2043. Mark
  2044. [Control]$S=X $S=UNDOC Control
  2045.  
  2046. Yes
  2047. No
  2048.  
  2049. [REDO:]REDO
  2050. **UNDOC 3
  2051. All
  2052. None
  2053. One
  2054. **UNDOA 3
  2055. On
  2056. Off
  2057. **ERASE 3
  2058. [ERASE:]^C^CERASE
  2059.  
  2060. Window
  2061. Last
  2062. Previous
  2063. Crossing
  2064. Remove
  2065. Add
  2066. Undo
  2067.  
  2068. [OOPS:]^C^COOPS
  2069. **PSEL 3
  2070.  
  2071. Window
  2072. Last
  2073. Crossing
  2074.  
  2075. Yes
  2076. No
  2077. **P0 3
  2078. [PEDIT:]^C^C^P+
  2079. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  2080. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  2081. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  2082. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  2083. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  2084. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  2085. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  2086. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  2087. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  2088. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  2089. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  2090. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  2091. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  2092. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  2093. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  2094.  
  2095. Close
  2096. Open
  2097. Join
  2098. Width
  2099. [Ed Vrtx]E $S=X $S=PVERTED
  2100. [Fit Curv]Fit
  2101. Spline
  2102. Decurve
  2103. [Undo]U
  2104. [eXit]X $S=X $S=S
  2105.  
  2106. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  2107. **P8 3
  2108. [PEDIT:]^C^C^P+
  2109. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  2110. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  2111. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  2112. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  2113. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  2114. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  2115. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  2116. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  2117. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  2118. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  2119. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  2120. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  2121. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  2122. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  2123. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  2124.  
  2125. Close
  2126. Open
  2127. [Ed Vrtx]E $S=X $S=3DPVERTED
  2128. Spline
  2129. Decurve
  2130. [Undo]U
  2131. [eXit]X $S=X $S=S
  2132.  
  2133. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  2134. **P16 3
  2135. [PEDIT:]^C^C^P+
  2136. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  2137. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  2138. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  2139. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  2140. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  2141. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  2142. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  2143. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  2144. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  2145. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  2146. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  2147. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  2148. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  2149. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  2150. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  2151.  
  2152. [Ed Vrtx]E $S=X $S=3DMVERTED
  2153. Smooth
  2154. Desmooth
  2155. [Mclose]M
  2156. [Nclose]N
  2157. [Mopen]M
  2158. [Nopen]N
  2159.  
  2160. [Undo]U
  2161. [eXit]X $S=X $S=S
  2162.  
  2163. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  2164. **PVERTED 3
  2165. [ED VRTX]
  2166.  
  2167. Next
  2168. Previous
  2169. Break
  2170. Insert
  2171. Move
  2172. Straight
  2173. Width
  2174. Tangent
  2175. Go
  2176. Regen
  2177. [Undo]X U $S=X $S=P0
  2178. [eXit]X $S=X $S=P0
  2179. **3DPVERTED 3
  2180. [ED VRTX]
  2181.  
  2182. Next
  2183. Previous
  2184. Break
  2185. Insert
  2186. Move
  2187. Regen
  2188. Straight
  2189. [eXit]X $S=X $S=P8
  2190. **3DMVERTED 3
  2191. [ED VRTX]
  2192.  
  2193. Next
  2194. Previous
  2195. Left
  2196. Right
  2197. Up
  2198. Down
  2199. Move
  2200. Regen
  2201. [eXit]X $S=X $S=P16
  2202. **PVARS 3
  2203. [Polyvars]$i=poly $i=*
  2204.  
  2205. [SPLframe]'SETVAR SPLFRAME
  2206. [ On]1
  2207. [ Off]0
  2208. [SPLsegs]'SETVAR SPLINESEGS
  2209. [SPLtype]'SETVAR SPLINETYPE
  2210. [ Quad]5
  2211. [ Cubic]6
  2212. [SURFtype]'SETVAR SURFTYPE
  2213. [ Quad]5
  2214. [ Cubic]6
  2215. [ Bezier]8
  2216. [UDensity]'SETVAR SURFU
  2217. [VDensity]'SETVAR SURFV
  2218. **TRIM 3
  2219. [TRIM:]^C^CTRIM
  2220.  
  2221. Window
  2222. Last
  2223. Previous
  2224. Crossing
  2225. Remove
  2226. Add
  2227. Undo
  2228. **ATTEXT 3
  2229. [ATTEXT:]^C^CATTEXT
  2230.  
  2231. CDF
  2232. SDF
  2233. DXF
  2234. [Entities]Ent
  2235.  
  2236. Window
  2237. Last
  2238. Previous
  2239. Crossing
  2240. Remove
  2241. Add
  2242. Undo
  2243. **SLIDES 3
  2244. [MSLIDE:]^C^CMSLIDE
  2245.  
  2246. [VSLIDE:]^C^CVSLIDE
  2247.  
  2248. **SCRIPT 3
  2249. [SCRIPT:]^C^CSCRIPT
  2250.  
  2251. [RESUME:]'RESUME
  2252. [RSCRIPT:]^C^CRSCRIPT
  2253. **PURGE 3
  2254. [PURGE:]^C^CPURGE
  2255.  
  2256. Blocks
  2257. LAyers
  2258. LTypes
  2259. SHapes
  2260. STyles
  2261. All
  2262.  
  2263. Yes
  2264. No
  2265. **RENAME 3
  2266. [RENAME:]^C^CRENAME
  2267.  
  2268. Block
  2269. LAyer
  2270. LType
  2271. Style
  2272. Ucs
  2273. VIew
  2274. VPort
  2275.  
  2276. **DXF 3
  2277. [DXFIN:]^C^CDXFIN
  2278.  
  2279. [DXFOUT:]^C^CDXFOUT
  2280. 16
  2281. Entities
  2282.  
  2283. Window
  2284. Last
  2285. Previous
  2286. Crossing
  2287. Remove
  2288. Add
  2289. Undo
  2290.  
  2291. [DXBIN:]^C^CDXBIN
  2292. **IGES 3
  2293. [IGESIN:]^C^CIGESIN
  2294.  
  2295. [IGESOUT:]^C^CIGESOUT
  2296. **EXTEND 3
  2297. [EXTEND:]^C^CEXTEND
  2298.  
  2299. Window
  2300. Last
  2301. Previous
  2302. Crossing
  2303. Remove
  2304. Add
  2305. Undo
  2306.  
  2307. [SELECT:]^C^CSELECT
  2308. [ZOOM W:]'ZOOM W
  2309. **STRETCH 3
  2310. [STRETCH:]^C^CSTRETCH C
  2311.  
  2312. Window
  2313. Last
  2314. Previous
  2315. Crossing
  2316. Remove
  2317. Add
  2318. Undo
  2319. **MIRROR 3
  2320. [MIRROR:]^C^CMIRROR
  2321. Window
  2322. Last
  2323. Previous
  2324. Crossing
  2325. Remove
  2326. Add
  2327. Undo
  2328.  
  2329. Yes
  2330. No
  2331. **FILLET0 3
  2332. [FILLET:0]^C^CFILLET R 0;;
  2333.  
  2334. [polyline]P
  2335. **FILLET 3
  2336. [FILLET:]^C^CFILLET
  2337.  
  2338. [radius]R \FILLET
  2339. [radius 0]R 0 FILLET
  2340. polyline
  2341. **CHAMFER 3
  2342. [CHAMFER:]^C^CCHAMFER
  2343.  
  2344. [distance]D \\CHAMFER
  2345. [dist = 0]D 0 0 CHAMFER
  2346. polyline
  2347. **DIVIDE 3
  2348. [DIVIDE:]^C^CDIVIDE
  2349.  
  2350. Block
  2351. Yes
  2352. No
  2353. **MEASURE 3
  2354. [MEASURE:]^C^CMEASURE
  2355.  
  2356. Block
  2357. Yes
  2358. No
  2359. **CHANGE 3
  2360. [CHANGE:]^C^CCHANGE
  2361. Window
  2362. Last
  2363. Previous
  2364. Crossing
  2365. Remove
  2366. Add
  2367. Undo
  2368. [Color]PROP COLOR $S=X $S=CHCOLOR \ $S=X $S=CHANGE
  2369. [Chroma]^C^CVSLIDE chroma
  2370. [ Restore]^C^CREDRAW
  2371. [Elev]PROP ELEV
  2372. [LAyer]PROP LAYER
  2373. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHANGE
  2374. [Thicknes]PROP THICKNESS
  2375. **CHPROP 3
  2376. [CHPROP:]^C^CCHPROP
  2377. Window
  2378. Last
  2379. Previous
  2380. Crossing
  2381. Remove
  2382. Add
  2383. Undo
  2384. [Color]COLOR $S=X $S=CHCOLOR \$S=X $S=CHPROP
  2385. [Chroma]^C^CVSLIDE chroma
  2386. [ Restore]^C^CREDRAW
  2387. [LAyer]LAYER
  2388. [LType]LT $S=X $S=CHLT \$S=X $S=CHPROP
  2389. [Thicknes]THICKNESS
  2390. **CHCOLOR 3
  2391. [COLOR]
  2392.  
  2393. bylayer
  2394. byblock
  2395.  
  2396. red
  2397. yellow
  2398. green
  2399. cyan
  2400. blue
  2401. magenta
  2402. white
  2403. **CHLT 3
  2404. [LTYPE]
  2405.  
  2406. bylayer
  2407. byblock
  2408.  
  2409. [contin.]CONTINUOUS
  2410. dashed
  2411. hidden
  2412. center
  2413. phantom
  2414. dot
  2415. dashdot
  2416. border
  2417. divide
  2418.  
  2419. **COLOR 3
  2420. [COLOR:]^C^CCOLOR
  2421. bylayer
  2422. byblock
  2423. red
  2424. yellow
  2425. green
  2426. cyan
  2427. blue
  2428. magenta
  2429. white
  2430.  
  2431. [Chroma]^C^CVSLIDE chroma
  2432. [ Restore]^C^CREDRAW
  2433. **ATTEDIT 3
  2434. [ATTEDIT:]^C^CATTEDIT
  2435. Window
  2436. Last
  2437. Crossing
  2438. Remove
  2439. Add
  2440. Undo
  2441.  
  2442. [Value]Value $S=X $S=ATTEDIT2
  2443. Position
  2444. Height
  2445. Angle
  2446. Style
  2447. Layer
  2448. [Color]C $S=X $S=ATTCOLOR
  2449. Next
  2450.  
  2451. [__LAST__]$S= $S=
  2452. **ATTEDIT2 3
  2453.  
  2454. [Change]Change $S=X $S=ATTEDIT
  2455. [Replace]Replace $S=X $S=ATTEDIT
  2456. **ATTCOLOR 3
  2457. [COLOR]
  2458.  
  2459. [red]RED $S= $S=
  2460. [yellow]YELLOW $S= $S=
  2461. [green]GREEN $S= $S=
  2462. [cyan]CYAN $S= $S=
  2463. [blue]BLUE $S= $S=
  2464. [magenta]MAGENTA $S= $S=
  2465. [white]WHITE $S= $S=
  2466. **UNITS 2
  2467.  
  2468. [UNIT    ]
  2469. [TYPE    ]
  2470.  
  2471. [scientfc]1;
  2472.  
  2473. [decimal ]2;
  2474.  
  2475. [enginrng]3;
  2476.  
  2477. [archtect]4;
  2478.  
  2479. [metric  ]5;
  2480.  
  2481.  
  2482.  
  2483.  
  2484.  
  2485.  
  2486. **U1 2
  2487.  
  2488. [Scientfc]
  2489. [Scale   ]
  2490.  
  2491.  
  2492. [4 TIMES ]4.0;
  2493.  
  2494. [2 TIMES ]2.0;
  2495.  
  2496. [FULL    ]1.0;
  2497.  
  2498. [HALF    ]0.5;
  2499.  
  2500. [QUARTER ]0.25;
  2501.  
  2502. [OTHER   ]^P0;^P
  2503.  
  2504.  
  2505.  
  2506.  
  2507. **U2 2
  2508.  
  2509. [Decimal ]
  2510. [Scale   ]
  2511.  
  2512.  
  2513. [4 TIMES ]4.0;
  2514.  
  2515. [2 TIMES ]2.0;
  2516.  
  2517. [FULL    ]1.0;
  2518.  
  2519. [HALF    ]0.5;
  2520.  
  2521. [QUARTER ]0.25;
  2522.  
  2523. [OTHER   ]^P0;^P
  2524.  
  2525.  
  2526.  
  2527.  
  2528. **U3 2
  2529.  
  2530. [Enginrng]
  2531. [Scale   ]
  2532.  
  2533.  
  2534. [1"=10'  ]120.0;
  2535. [1"=20'  ]240.0;
  2536.  
  2537. [1"=30'  ]360.0;
  2538. [1"=40'  ]480.0;
  2539.  
  2540. [1"=50'  ]600.0;
  2541. [1"=60'  ]720.0;
  2542.  
  2543. [1"=80'  ]960.0;
  2544. [1"=100' ]1200.0;
  2545.  
  2546. [OTHER   ]^P0;^P
  2547.  
  2548.  
  2549. **U4 2
  2550.  
  2551. [Archtect]
  2552.  
  2553.  
  2554. [1/40"=1']480.0;
  2555. [1/20"=1']240.0;
  2556. [1/16"=1']192.0;
  2557. [ 1/8"=1']96.0;
  2558. [ 1/4"=1']48.0;
  2559.  
  2560. [ 1/2"=1']24.0;
  2561. [ 3/4"=1']16.0;
  2562. [   1"=1']12.0;
  2563. [   3"=1']4.0;
  2564. [   6"=1']2.0;
  2565. [  FULL  ]1.0;
  2566.  
  2567. [OTHER...]^P0;^P
  2568.  
  2569.  
  2570. **U5 2
  2571.  
  2572. [Metric  ]
  2573.  
  2574. [ 1:5000 ]5000.0;
  2575. [ 1:2000 ]2000.0;
  2576. [ 1:1000 ]1000.0;
  2577. [ 1:500  ]500.0;
  2578. [ 1:200  ]200.0;
  2579.  
  2580. [ 1:100  ]100.0;
  2581. [ 1:75   ]75.0;
  2582. [ 1:50   ]50.0;
  2583. [ 1:20   ]20.0;
  2584. [ 1:10   ]10.0;
  2585. [ 1:5    ]5.0;
  2586. [  FULL  ]1.0;
  2587.  
  2588. [OTHER...]^P0;^P
  2589.  
  2590.  
  2591. **ENGLISH 2
  2592.  
  2593. [Horizntl]
  2594.  
  2595. [ Sheet  ]
  2596. [ Size   ]
  2597.  
  2598. [A-8.5x11]11.0 8.5;
  2599. [B- 11x17]17.0 11.0;
  2600. [C- 17x22]22.0 17.0;
  2601. [   18x24]24.0 18.0;
  2602.  
  2603. [D- 22X34]34.0 22.0;
  2604. [   24x36]36.0 24.0;
  2605. [E- 34x44]44.0 34.0;
  2606.  
  2607. [OTHER...]^P0 0;^P
  2608.  
  2609. [VERTCAL>]$S=X $S=ENGVERT
  2610.  
  2611.  
  2612. **ENGVERT 2
  2613.  
  2614. [Vertical]
  2615.  
  2616. [ Sheet  ]
  2617. [ Size   ]
  2618.  
  2619. [A-8.5x11]8.5 11.0;
  2620. [B- 11x17]11.0 17.0;
  2621. [C- 17x22]17.0 22.0;
  2622. [   18x24]18.0 24.0;
  2623.  
  2624. [D- 22X34]22.0 34.0;
  2625. [   24x36]24.0 36.0;
  2626. [E- 34x44]34.0 44.0;
  2627.  
  2628. [OTHER...]^P0 0;^P
  2629.  
  2630. [HORZNTL>]$S=X $S=ENGLISH
  2631.  
  2632.  
  2633. **METRIC 2
  2634.  
  2635. [Horizntl]
  2636.  
  2637. [ Sheet  ]
  2638. [ Size   ]
  2639.  
  2640. [1189x841]1189.0 841.0;
  2641. [1000x707]1000.0 707.0;
  2642. [ 841x594]841.0 594.0;
  2643.  
  2644. [ 594x420]594.0 420.0;
  2645. [ 420x297]420.0 297.0;
  2646. [ 297x210]297.0 210.0;
  2647.  
  2648. [OTHER...]^P0 0;^P
  2649.  
  2650.  
  2651. [VERTCAL>]$S=X $S=METRICVERT
  2652.  
  2653.  
  2654. **METRICVERT 2
  2655.  
  2656. [Vertical]
  2657.  
  2658. [ Sheet  ]
  2659. [ Size   ]
  2660.  
  2661. [1189x841]841.0 1189.0;
  2662. [1000x707]707.0 1000.0;
  2663. [ 841x594]594.0 841.0;
  2664.  
  2665. [ 594x420]420.0 594.0;
  2666. [ 420x297]297.0 420.0;
  2667. [ 297x210]210.0 297.0;
  2668.  
  2669. [OTHER...]^P0 0;^P
  2670.  
  2671.  
  2672. [HORZNTL>]$S=X $S=METRIC
  2673.  
  2674.  
  2675. **CHTEMP 3
  2676. [Change  ]
  2677. [Template]
  2678.  
  2679. [Arch...]^C^C^P(progn(if v:acam(progn(command "menu" (strcat v:acam "aec-a"))+
  2680. (prompt "AEC Architectural loaded."))(prompt "AEC Architectural not available.")+
  2681. )(princ)) ^P
  2682. [Mech...]^C^C^P(progn(if v:acmm(progn(command "menu" (strcat v:acmm "aec-m"))+
  2683. (prompt "AEC Mechanical loaded."))(prompt "AEC Mechanical not available.")+
  2684. )(princ)) ^P
  2685. **EXCOMDS 3
  2686. [CATALOG:]^C^CCATALOG
  2687. [DEL:]^C^CDEL
  2688. [DIR:]^C^CDIR
  2689. [EDIT:]^C^CEDIT
  2690. [SH:]^C^CSH
  2691. [SHELL:]^C^CSHELL
  2692. [TYPE:]^C^CTYPE
  2693.  
  2694. ***TABLET1
  2695. [A-1]
  2696. [A-2]
  2697. [A-3]
  2698. [A-4]
  2699. [A-5]
  2700. [A-6]
  2701. [A-7]
  2702. [A-8]
  2703. [A-9]
  2704. [A-10]
  2705. [A-11]
  2706. [A-12]
  2707. [A-13]
  2708. [A-14]
  2709. [A-15]
  2710. [A-16]
  2711. [A-17]
  2712. [A-18]
  2713. [A-19]
  2714. [A-20]
  2715. [A-21]
  2716. [A-22]
  2717. [A-23]
  2718. [A-24]
  2719. [A-25]
  2720. [B-1]
  2721. [B-2]
  2722. [B-3]
  2723. [B-4]
  2724. [B-5]
  2725. [B-6]
  2726. [B-7]
  2727. [B-8]
  2728. [B-9]
  2729. [B-10]
  2730. [B-11]
  2731. [B-12]
  2732. [B-13]
  2733. [B-14]
  2734. [B-15]
  2735. [B-16]
  2736. [B-17]
  2737. [B-18]
  2738. [B-19]
  2739. [B-20]
  2740. [B-21]
  2741. [B-22]
  2742. [B-23]
  2743. [B-24]
  2744. [B-25]
  2745. [C-1]
  2746. [C-2]
  2747. [C-3]
  2748. [C-4]
  2749. [C-5]
  2750. [C-6]
  2751. [C-7]
  2752. [C-8]
  2753. [C-9]
  2754. [C-10]
  2755. [C-11]
  2756. [C-12]
  2757. [C-13]
  2758. [C-14]
  2759. [C-15]
  2760. [C-16]
  2761. [C-17]
  2762. [C-18]
  2763. [C-19]
  2764. [C-20]
  2765. [C-21]
  2766. [C-22]
  2767. [C-23]
  2768. [C-24]
  2769. [C-25]
  2770. [D-1]
  2771. [D-2]
  2772. [D-3]
  2773. [D-4]
  2774. [D-5]
  2775. [D-6]
  2776. [D-7]
  2777. [D-8]
  2778. [D-9]
  2779. [D-10]
  2780. [D-11]
  2781. [D-12]
  2782. [D-13]
  2783. [D-14]
  2784. [D-15]
  2785. [D-16]
  2786. [D-17]
  2787. [D-18]
  2788. [D-19]
  2789. [D-20]
  2790. [D-21]
  2791. [D-22]
  2792. [D-23]
  2793. [D-24]
  2794. [D-25]
  2795. [E-1]
  2796. [E-2]
  2797. [E-3]
  2798. [E-4]
  2799. [E-5]
  2800. [E-6]
  2801. [E-7]
  2802. [E-8]
  2803. [E-9]
  2804. [E-10]
  2805. [E-11]
  2806. [E-12]
  2807. [E-13]
  2808. [E-14]
  2809. [E-15]
  2810. [E-16]
  2811. [E-17]
  2812. [E-18]
  2813. [E-19]
  2814. [E-20]
  2815. [E-21]
  2816. [E-22]
  2817. [E-23]
  2818. [E-24]
  2819. [E-25]
  2820. [F-1]
  2821. [F-2]
  2822. [F-3]
  2823. [F-4]
  2824. [F-5]
  2825. [F-6]
  2826. [F-7]
  2827. [F-8]
  2828. [F-9]
  2829. [F-10]
  2830. [F-11]
  2831. [F-12]
  2832. [F-13]
  2833. [F-14]
  2834. [F-15]
  2835. [F-16]
  2836. [F-17]
  2837. [F-18]
  2838. [F-19]
  2839. [F-20]
  2840. [F-21]
  2841. [F-22]
  2842. [F-23]
  2843. [F-24]
  2844. [F-25]
  2845. [G-1]
  2846. [G-2]
  2847. [G-3]
  2848. [G-4]
  2849. [G-5]
  2850. [G-6]
  2851. [G-7]
  2852. [G-8]
  2853. [G-9]
  2854. [G-10]
  2855. [G-11]
  2856. [G-12]
  2857. [G-13]
  2858. [G-14]
  2859. [G-15]
  2860. [G-16]
  2861. [G-17]
  2862. [G-18]
  2863. [G-19]
  2864. [G-20]
  2865. [G-21]
  2866. [G-22]
  2867. [G-23]
  2868. [G-24]
  2869. [G-25]
  2870. [H-1]
  2871. [H-2]
  2872. [H-3]
  2873. [H-4]
  2874. [H-5]
  2875. [H-6]
  2876. [H-7]
  2877. [H-8]
  2878. [H-9]
  2879. [H-10]
  2880. [H-11]
  2881. [H-12]
  2882. [H-13]
  2883. [H-14]
  2884. [H-15]
  2885. [H-16]
  2886. [H-17]
  2887. [H-18]
  2888. [H-19]
  2889. [H-20]
  2890. [H-21]
  2891. [H-22]
  2892. [H-23]
  2893. [H-24]
  2894. [H-25]
  2895. ;
  2896. ;
  2897. ;
  2898. ;
  2899. ;
  2900. ;
  2901. ;
  2902. ;
  2903. ;
  2904. ;
  2905. ;
  2906. ;
  2907. ;
  2908. ;
  2909. ;
  2910. ;
  2911. ;
  2912. ;
  2913. ;
  2914. ;
  2915. ;
  2916. ;
  2917. ;
  2918. ;
  2919. ;
  2920. ***TABLET2
  2921. $S=X $S=HIDE
  2922. $S=X $S=VPOINT VPOINT;;
  2923. $S=X $S=ELEVTHK ^C^CELEV
  2924. $S=X $S=UCS1 ^C^CUCS
  2925. ^C^CUCS;PREV
  2926. ^C^CUCS;V
  2927. ;
  2928. ^O
  2929. $S=X $S=ZOOM 'ZOOM W
  2930. $S=X $S=LINE ^C^CLINE
  2931. 'REDRAW
  2932. [VPOINT  ]^C^CVPOINT R;<<135;$S=X $S=VPOINT3D
  2933. [VPT rear]^C^CVPOINT R;<<90;$S=X $S=VPOINT3D
  2934. [VPOINT  ]^C^CVPOINT R;<<45;$S=X $S=VPOINT3D
  2935. $S=X $S=UCS1 ^C^CUCS
  2936. ^C^CUCS;;
  2937. ^C^CPLAN;W
  2938. ;
  2939. ^O
  2940. $S=X $S=ZOOM 'ZOOM W
  2941. $S=X $S=PLINE ^C^CPLINE
  2942. 'REDRAW
  2943. [VPT left]^C^CVPOINT R;<<180;$S=X $S=VPOINT3D
  2944. [VPT plan]^C^CPLAN;;
  2945. [VPT rigt]^C^CVPOINT R;<<0;$S=X $S=VPOINT3D
  2946. $S=X $S=DVIEW ^C^CDVIEW
  2947. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;CA;\\;
  2948. $S=X $S=DVIEW ^C^C$S=X $S=DVIEW1 DVIEW;;
  2949. ;
  2950. ^D
  2951. $S=X $S=ZOOM 'ZOOM D
  2952. $S=X $S=ARC ^C^CARC
  2953. 'REDRAW
  2954. [VPOINT  ]^C^CVPOINT R;<<225;$S=X $S=VPOINT3D
  2955. [VPT frnt]^C^CVPOINT R;<<270;$S=X $S=VPOINT3D
  2956. [VPOINT  ]^C^CVPOINT R;<<315;$S=X $S=VPOINT3D
  2957. $S=X $S=DVIEW ^C^CDVIEW
  2958. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;Z;\;
  2959. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;PA;\\;
  2960. ;
  2961. ^Q
  2962. $S=X $S=ZOOM 'ZOOM A
  2963. $S=X $S=CIRCLE ^C^CCIRCLE
  2964. 'REDRAW
  2965. ^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  2966. (princ msg)(setq *error* m:err m:err nil #GTSFO nil)(princ))(princ));+
  2967. (cond((null #GTSFO)(vmon)(if(findfile"ashade.lsp")(progn(load"ashade")+
  2968. (menucmd"S=X")(menucmd(if G:RMAN"S=ASHLRM""S=ASHL")))(defun C:LIGHT()(terpri);+
  2969. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  2970. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  2971. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  2972. (menucmd(if G:RMAN"S=ASHLRM""S=ASHL"))(setq *error* m:err m:err nil)(princ))) ^PLIGHT
  2973. ^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  2974. (princ msg)(setq *error* m:err m:err nil #GTSFO nil)(princ))(princ));+
  2975. (cond((null #GTSFO)(vmon)(if(findfile"ashade.lsp")(progn(load"ashade")+
  2976. (menucmd"S=X")(menucmd"S=ASHC"))(defun C:CAMERA()(terpri);+
  2977. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  2978. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  2979. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  2980. (menucmd"S=ASHC")(setq *error* m:err m:err nil)(princ))) ^PCAMERA
  2981. ^C^C^P(progn(setq m:err *error*)(defun *error*(msg)(princ"Error loading: ")+
  2982. (princ msg)(setq *error* m:err m:err nil #GTSFO nil)(princ))(princ));+
  2983. (cond((null #GTSFO)(vmon)(if(findfile"ashade.lsp")(progn(load"ashade")+
  2984. (menucmd"S=X")(menucmd"S=ASH"))(progn(terpri);+
  2985. (prompt"The file 'Ashade.lsp' was not found in your current search directories.")+
  2986. (terpri)(prompt"Check your AutoShade v2.0 Manual for installation instructions.");+
  2987. (princ)))(setq *error* m:err m:err nil)(princ))(T(menucmd"S=X")+
  2988. (menucmd"S=ASH")(setq *error* m:err m:err nil)(princ))) ^P
  2989. $S=X $S=3D ^C^CRULESURF
  2990. $S=X $S=3D ^C^CREVSURF
  2991. $S=X $S=3DFACE ^C^C3DFACE
  2992. ;
  2993. 'GRAPHSCR
  2994. $S=X $S=ZOOM 'ZOOM P
  2995. $S=X $S=ELLIPSE ^C^CELLIPSE
  2996. 'REDRAW
  2997. $S=X $S=VPORTS ^C^CVPORTS
  2998. $S=X $S=VPORTS ^C^CVPORTS;JOIN
  2999. ^C^CVPORTS;SI
  3000. $S=X $S=3D ^C^CEDGESURF
  3001. $S=X $S=3D ^C^CTABSURF
  3002. $S=X $S=3DPOLY ^C^C3DPOLY
  3003. ;
  3004. ^E
  3005. $S=X $S=ZOOM 'ZOOM E
  3006. $S=X $S=POLYGON ^C^CPOLYGON
  3007. 'REDRAW
  3008. ;
  3009. ;
  3010. ;
  3011. ;
  3012. ;
  3013. ;
  3014. ;
  3015. ^G
  3016. $S=X $S=ZOOM 'ZOOM
  3017. $S=X $S=POINT ^C^CPOINT
  3018. 'REDRAW
  3019. $S=X $S=BLOCK ^C^CBLOCK
  3020. $S=X $S=INSERT ^C^CINSERT
  3021. $S=X $S=ATTDEF ^C^CATTDEF
  3022. ;
  3023. $S=X $S=LAYER ^C^CLAYER
  3024. $S=X $S=LAYER ^C^CLAYER
  3025. ;
  3026. ^B
  3027. $S=X $S=PAN 'PAN
  3028. ^C^CDONUT
  3029. 'REDRAW
  3030. $S=X $S=WBLOCK ^C^CWBLOCK
  3031. $S=X $S=MINSERT ^C^CMINSERT
  3032. $S=X $S=ATTDEF ^C^CATTDEF
  3033. ;
  3034. $S=X $S=LAYER ^C^CLAYER ? *;;
  3035. ^C^CLAYER S \;
  3036. ;
  3037. ^B
  3038. $S=X $S=DS
  3039. $S=X $S=DR
  3040. 'REDRAW
  3041. ***TABLET3
  3042. ;
  3043. ;
  3044. ;
  3045. <<135
  3046. <<135
  3047. <<90
  3048. <<90
  3049. <<45
  3050. <<45
  3051. ;
  3052. ;
  3053. ;
  3054. <<180
  3055. <<180
  3056. <\
  3057. <\
  3058. <<0
  3059. <<0
  3060. ;
  3061. ;
  3062. ;
  3063. <<225
  3064. <<225
  3065. <<270
  3066. <<270
  3067. <<315
  3068. <<315
  3069. ;
  3070. ;
  3071. ;
  3072. ^H
  3073. ^H
  3074. ^H
  3075. ^H
  3076. ^H
  3077. ^H
  3078. ;
  3079. ;
  3080. ;
  3081. 7/8\
  3082. 7/8\
  3083. /16\
  3084. /16\
  3085. /32\
  3086. /32\
  3087. ;
  3088. ;
  3089. ;
  3090. 1/2\
  3091. 1/2\
  3092. 5/8\
  3093. 5/8\
  3094. 3/4\
  3095. 3/4\
  3096. ;
  3097. ;
  3098. ;
  3099. 1/8\
  3100. 1/8\
  3101. 1/4\
  3102. 1/4\
  3103. 3/8\
  3104. 3/8\
  3105. ;
  3106. ;
  3107. ;
  3108. -\
  3109. -\
  3110. /\
  3111. /\
  3112. X\
  3113. X\
  3114. ;
  3115. ;
  3116. ;
  3117. @\
  3118. @\
  3119. '\
  3120. '\
  3121. "\
  3122. "\
  3123. ;
  3124. ;
  3125. ;
  3126. 7\
  3127. 7\
  3128. 8\
  3129. 8\
  3130. 9\
  3131. 9\
  3132.  
  3133. ;
  3134. ;
  3135. 4\
  3136. 4\
  3137. 5\
  3138. 5\
  3139. 6\
  3140. 6\
  3141. ;
  3142. ;
  3143. ;
  3144. 1\
  3145. 1\
  3146. 2\
  3147. 2\
  3148. 3\
  3149. 3\
  3150.  
  3151. ;
  3152. ;
  3153. 0\
  3154. 0\
  3155. .\
  3156. .\
  3157. ,\
  3158. ,\
  3159. ***TABLET4
  3160. ;
  3161. ;
  3162. ;
  3163. ;
  3164. ;
  3165. ;
  3166. ;
  3167. ;
  3168. ;
  3169. ;
  3170. ;
  3171. ;
  3172. ;
  3173. ;
  3174. ;
  3175. ;
  3176. ;
  3177. ;
  3178. ;
  3179. ;
  3180. ;
  3181. ;
  3182. ;
  3183. ;
  3184. ;
  3185. ^C^CTIME
  3186. $S=X $S=ID ^C^CID
  3187. ^C^CSTATUS
  3188. $S=X $S=LIST ^C^CLIST
  3189. 'HELP
  3190. 'HELP
  3191. ;
  3192. $S=X $S=DTEXT ^C^CDTEXT
  3193. $S=X $S=DTEXT ^C^CDTEXT C
  3194. $S=X $S=DTEXT ^C^CDTEXT R
  3195. ;
  3196. ^C^COSNAP NONE
  3197. CENTER
  3198. ENDPOINT
  3199. INSERT
  3200. INTERSEC
  3201. MIDPOINT
  3202. NEAREST
  3203. NODE
  3204. PERPEND
  3205. QUADRANT
  3206. TANGENT
  3207. ;
  3208. ^C^CSAVE
  3209. ^C^CSAVE
  3210. ^C^CDBLIST
  3211. $S=X $S=AREA ^C^CAREA
  3212. ^C^CDIST
  3213. $S=X $S=LIST ^C^CLIST
  3214. 'HELP
  3215. 'HELP
  3216. ;
  3217. $S=X $S=DTEXT ^C^CDTEXT A
  3218. $S=X $S=DTEXT ^C^CDTEXT M
  3219. $S=X $S=DTEXT ^C^CDTEXT F
  3220. ;
  3221. ^C^C
  3222. ^C^C
  3223. ^C^CU
  3224. ^C^CREDO
  3225. MULTIPLE
  3226. WINDOW
  3227. LAST
  3228. PREVIOUS
  3229. CROSSING
  3230. REMOVE
  3231. ADD
  3232. ;
  3233. $S=X $S=END ^C^CEND
  3234. $S=X $S=QUIT ^C^CQUIT
  3235. ;
  3236. ;
  3237. ;
  3238. ;
  3239. ;
  3240. ;
  3241. ;
  3242. ;
  3243. ;
  3244. ;
  3245. ;
  3246. ;
  3247. ;
  3248. ;
  3249. ;
  3250. ;
  3251. ;
  3252. ;
  3253. ;
  3254. ;
  3255. ;
  3256. ;
  3257. ;
  3258. ^C^CFILES
  3259. ^C^CFILES
  3260. ^C^CDIM1 STATUS
  3261. $S=X $S=VAR1 ^C^CDIM
  3262. UNDO
  3263. 'REDRAW
  3264. EXIT;$S=X $S=S
  3265. EXIT;$S=X $S=S
  3266. ;
  3267. $S=X $S=TEXTSET
  3268. $S=X $S=SNAP ^C^CSNAP
  3269. $S=X $S=GRID ^C^CGRID
  3270. ;
  3271. $S=X $S=SCALE ^C^CSCALE
  3272. $S=X $S=ROTATE ^C^CROTATE
  3273. $S=X $S=OFFSET ^C^COFFSET
  3274. $S=X $S=MOVE ^C^CMOVE
  3275. $S=X $S=ERASE ^C^CERASE
  3276. $S=X $S=ERASE ^C^CERASE
  3277. ^C^COOPS
  3278. ^C^C^P+
  3279. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  3280. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  3281. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  3282. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  3283. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  3284. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  3285. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  3286. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  3287. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  3288. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  3289. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  3290. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  3291. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  3292. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  3293. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  3294. ^C^CEXPLODE
  3295. $S=X $S=ARRAY ^C^CARRAY
  3296. $S=X $S=DIVIDE ^C^CDIVIDE
  3297. ;
  3298. ^C^CPLOT
  3299. ^C^CPRPLOT
  3300. $S=X $S=DIM ^C^CDIM1
  3301. $S=X $S=DIM ^C^CDIM LEADER
  3302. $S=X $S=DIMLINEAR BASELINE
  3303. $S=X $S=DIMLINEAR CONTIN
  3304. $S=X $S=DIMLINEAR ^C^CDIM VERT
  3305. $S=X $S=DIMLINEAR ^C^CDIM HORIZ
  3306. ;
  3307. $S=X $S=AXIS ^C^CAXIS
  3308. $S=X $S=SET
  3309. $S=X $S=OSNAPC ^C^COSNAP
  3310. ;
  3311. $S=X $S=MIRROR ^C^CMIRROR
  3312. $S=X $S=BREAK2P ^C^CBREAK \F
  3313. $S=X $S=BREAKSPL ^C^CBREAK \F \@
  3314. $S=X $S=COPY ^C^CCOPY
  3315. $S=X $S=EXTEND ^C^CEXTEND
  3316. $S=X $S=STRETCH ^C^CSTRETCH C
  3317. $S=X $S=TRIM ^C^CTRIM
  3318. $S=X $S=FILLET0 ^C^CFILLET R 0;;
  3319. $S=X $S=FILLET ^C^CFILLET
  3320. $S=X $S=CHAMFER ^C^CCHAMFER
  3321. $S=X $S=MEASURE ^C^CMEASURE
  3322. ;
  3323. $S=X $S=UT
  3324. $S=X $S=CHTEMP ^C^CMENU
  3325. $S=X $S=DIM ^C^CDIM CENTER
  3326. $S=X $S=DIM ^C^CDIM RADIUS
  3327. $S=X $S=DIM ^C^CDIM DIAMETER
  3328. $S=X $S=DIM ^C^CDIM ANGULAR
  3329. $S=X $S=DIM ^C^CDIM ROTATED
  3330. $S=X $S=DIMLINEAR ^C^CDIM ALIGNED
  3331. ;
  3332. $S=X $S=QTEXT ^C^CQTEXT
  3333. $S=X $S=DRAGMODE ^C^CDRAGMODE
  3334. $S=X $S=APERTURE
  3335. ;
  3336.  
  3337.  
  3338.  
  3339.  
  3340. $S=X $S=CHANGE ^C^CCHANGE
  3341. $S=X $S=CHANGE ^C^CCHANGE
  3342. $S=X $S=ATTEDIT ^C^CATTEDIT
  3343.  
  3344.  
  3345.  
  3346.  
  3347. ;
  3348. $S=X $S=EXCOMDS
  3349. $S=X $S=EXCOMDS
  3350. **DTEXT1 33
  3351. $S=X $S=DTEXT ^C^CDTEXT
  3352. $S=X $S=DTEXT ^C^CDTEXT C
  3353. $S=X $S=DTEXT ^C^CDTEXT R
  3354. **DTEXT2 58
  3355. $S=X $S=DTEXT ^C^CDTEXT A
  3356. $S=X $S=DTEXT ^C^CDTEXT M
  3357. $S=X $S=DTEXT ^C^CDTEXT F
  3358. **TEXT1 33
  3359. $S=X $S=TEXT ^C^CTEXT
  3360. $S=X $S=TEXT ^C^CTEXT C
  3361. $S=X $S=TEXT ^C^CTEXT R
  3362. **TEXT2 58
  3363. $S=X $S=TEXT ^C^CTEXT A
  3364. $S=X $S=TEXT ^C^CTEXT M
  3365. $S=X $S=TEXT ^C^CTEXT F
  3366.  
  3367.