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