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