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