home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 191.img / AA7.ZIP / ARCHELEV / ARCHELEV.MNU next >
Text File  |  1989-12-18  |  119KB  |  4,250 lines
  1. ARCHELEV R10.3 12/18/89
  2. ***BUTTONS
  3. ;
  4. endp,int,mid,cen;\
  5. 
  6. ^B
  7. ^O
  8. ^G
  9. ^D
  10. ^E
  11. ^T
  12. ***AUX1
  13. ;
  14. $p1=*
  15. ^C
  16. ^B
  17. ^O
  18. ^G
  19. ^D
  20. ^E
  21. ^T
  22. ***POP1
  23. **pop1
  24. [Tools]
  25. [OSNAP set]^c^c$p1= $p1=* osnap \
  26. [ENDpoint]endpoint;
  27. [MIDpoint]midpoint;
  28. [INTersec]intersec;
  29. [NEArest]nearest;
  30. [CENter]center;
  31. [INSert]insert;
  32. [NODe]node;
  33. [PERpend]perpend;
  34. [QUAdrant]quadrant;
  35. [TANgent]tangen;
  36. [NONE]none;
  37. [Filters    >]$p1=filters $p1=*
  38. [~--]
  39. [match](nl ssx "/cci/ssx")(ssx)
  40. [reference](nl off "/cci/off")(off) \
  41. [mid 2 point](nl mid "/cci/mid")(mid) \
  42. [intersection](nl int "/cci/int")(int) \
  43. [fraction](nl midway "/cci/midway")(midway) \
  44. [double ref](nl offway "/cci/offway")(offway) \
  45. [inters ref](nl refint "/cci/refint")(refint) \
  46.  
  47. **filters
  48. [Filters]
  49. [.X   ].x;
  50. [.Y   ].y;
  51. [.Z   ].z;
  52. [.XY  ].xy;
  53. [.XZ  ].xz;
  54. [.YZ  ].yz;
  55. [Hold x].x @;
  56. [Hold y].y @;
  57. [Hold z].z @;
  58. [Tools >]$p1= $p1=*
  59.  
  60. **lisptool
  61. [Lisp-Tools]
  62. [ENDpoint]endpoint;
  63. [MIDpoint]midpoint;
  64. [INTersec]intersec;
  65. [NEArest]nearest;
  66. [CENter]center;
  67. [INSert]insert;
  68. [PERpend]perpend;
  69. [QUAdrant]quadrant;
  70. [TANgent]tangen;
  71. [Filters         >]$p1=filters $p1=*
  72. [ reference    R]r
  73. [ mid 2 point  M]m
  74. [ intersection I]i
  75. [ fraction     F]f
  76. [ polar        P]p
  77. [ double ref   RR]rr
  78. [ inters ref   IR]ir
  79. [ midpoint ref MR]mr
  80. [ calculator   CAL]cal
  81.  
  82. ***POP2
  83. **pop2
  84. [Draw]
  85. [Line]$s=x $s=line line;
  86. [Arc            >]^C^C$s=x $s=arc arc;
  87. [Circle         >]^C^C$s=x $s=circle circle;
  88. [Polyline]^C^C$s=x $s=pline pline;
  89. [Solid]^c^c$s=x $s=solid solid;
  90. [Ellipse]^c^c$s=x $s=ellipse ellipse;
  91. [Donut]donut;
  92. [Polygon]^c^c$s=x $s=polygon polygon;
  93. [Point]$s=x $s=point point;
  94. [Box](nl "" "/cci/box");
  95. [Slot](nl "" "/cci/slot");
  96. [Insert]^C^C$s=x $s=insert insert;
  97. [Minsert]^C^C$s=x $s=minsert minsert;
  98. [Attrib define]$s=x $s=attdef attdef;
  99. [Dim            >]$s=x $s=dim $i=idim1 $i=*
  100. [Text]^C^C$s=x $s=text $t4=text1 $t4=text2 text;
  101. [Dtext]^C^C$s=x $s=dtext $t4=dtext1 $t4=dtext2 dtext;
  102. [Style]$s=x $s=style style;
  103. [Fonts          >]$i=ifonts1 $i=*
  104. [Hatch          >]^C^C$i=ihatch1 $i=*
  105. [3D             >]$s=x $s=3d $p2=i3d $p2=*
  106.  
  107. **i3d
  108. [3D  ]
  109. [3D Objects   >](nl c:cone "/cci/3d") $s=x $s=3dobject $i=i3dobjects $i=*
  110. [3D Lisp      >]$s=x $s=3dlisp $i=i3dobjects1 $i=*
  111. [3Dface]$s=x $s=3dface 3dface;
  112. [3Dpoly]$s=x $s=3dpoly 3dpoly;
  113. [3D Surfaces  >]$s=x $s=3dsurf $i=isurf $i=*
  114. [~--]
  115. [midpt](nl 3dmid "/cci/3dmid")(3dmid) \
  116. [ref zang](nl zangoff "/cci/zangoff")(zangoff) \\\
  117. [refzdist](nl zdistoff "/cci/zdistoff")(zdistoff) \\\
  118. [zang](nl zang "/cci/zang")(zang) \\
  119. [zdist](nl zdist "/cci/zdist")(zdist) \\
  120. ['elev]'setvar elevation;
  121. ['thick]'setvar thickness;
  122. [chg elev](nl "" "/cci/chelev");
  123. [chgthick](nl "" "/cci/chthick");
  124. [pick-set elev](nl "" "/cci/setelev");
  125. [pick-setthick](nl "" "/cci/setthick");
  126. [HIDE:]HIDE;
  127. [layer HIDDEN](PRINC "Loading LAYERH ")(nl "" "/cci/layerh");
  128. [~--]
  129. [DRAW         >]$p2=pop2 $p2=*
  130.  
  131. ***POP3
  132. **pop3
  133. [Edit]
  134. [Erase]^C^C$s=x $s=erase erase auto;
  135. [Move]^C^C$s=x $s=move move auto;
  136. [Copy]^C^C$s=x $s=copy copy auto;
  137. [Array]$s=x $s=array select auto \array p  ;
  138. [Change]^C^C$S=X $s=change change auto;
  139. [Edit text](nl c:chgtext "/cci/chgtext") chgtext;
  140. [Break]$s=x $s=break bk;
  141. [Explode]$s=x $s=explode explode;
  142. [Fillet]$s=x $s=fillet fillet;
  143. [Chamfer]^c^c$s=x $s=chamfer chamfer;
  144. [Mirror]$s=x $s=mirror mirror auto;
  145. [Offset]^c^c$s=x $s=offset offset;
  146. [Trim]^C^C$S=X $s=trim trim;
  147. [Extend]^C^C$S=X $s=extend extend;
  148. [Stretch]^C^C$S=X $s=stretch stretch crossing;
  149. [Scale]$s=x $s=scale scale auto;
  150. [Rotate]$s=x $s=rotate rotate auto;
  151. [Divide]$s=x $s=divide divide;
  152. [Measure]$s=x $s=measure measure;
  153. [Edit Polylines]^C^C(nl c:peditm "/cci/peditm") peditm;
  154. [Attribute edit]$s=x $s=attedit attedit;
  155.  
  156. ***POP4
  157. **pop4
  158. [Display]
  159. [Zoom Window]'zoom w;
  160. [     Previous]'zoom p;
  161. [     Center]'zoom c;
  162. [     In]'zoom 2x;
  163. [     Out]'zoom .5x;
  164. [     Dynamic]'zoom d;
  165. [Pan]'pan;
  166. [View]$s=x $s=view 'view;
  167. [View setup](nl "" "/cci/views");
  168. [V R all]'view r all;
  169. [V R 1]'view r 1;
  170. [V R 2]'view r 2;
  171. [V R 3]'view r 3;
  172. [V R 4]'view r 4;
  173. [Vpoint 3D        >]^c^c$s=x $s=vp3d $i=i3dviews $i=*
  174. [~--]
  175. [Dview Options    >]^c^c(if (null dvfn)(defun dvfn ()(princ " Dview select objects: ")(menucmd "s=x")(menucmd "s=dview")(command "select" "auto" pause)(command "dview" "p" "")(menucmd "s=x")(menucmd "s=dview1")(princ))) (dvfn);
  176. [~--]
  177. [Plan View (UCS)]^C^Cplan;;
  178. [Plan View (World)]^C^Cplan wo;
  179. [Set Viewports    >]^c^c$s=x $s=vports $i=ivporti $i=*
  180.  
  181. ***POP5
  182. **pop5
  183. [Modes]
  184. [Drawing Aids      >]'ddrmodes
  185. [Entity Creation   >]'ddemodes
  186. [Modify Layer      >]'ddlmodes
  187. [Layer side screen >]$s=x $s=layer
  188. [Modify Attributes >]ddatte;
  189. [~--]
  190. [UCS Dialogue      >]^C^C$S=X $s=ucs1 dducs
  191. [UCS Presets       >]^C^C$S=X $s=ucs1 $i=iucs $i=*
  192. [UCS Icon option   >]$s=x $s=ucsicon $i=iucs1 $i=*
  193. [UCS commands      >]$s=x $s=ucs1 $i=iucs2 $i=*
  194. [UCS Previous]^C^cucs p;
  195. [~--]
  196. [Set Vports & UCS](nl "" "/cci/ucssetup");
  197. [Viewports         >]^c^c$s=x $s=vports $i=ivporti $i=*
  198.  
  199. ***POP6
  200. **pop6
  201. [Misc]
  202. [Block]$s=x $s=block block;
  203. [Wblock]$s=x $s=wblock wblock;
  204. [Makeblks](nl makeblk "/cci/makeblk")(makeblk);
  205. [Userblocks         >]$i=userblk $i=*
  206. [Attext & schedules >]$s=x $s=attext
  207. [~--]
  208. [Time               >]$s=x $s=time
  209. [Status]status;
  210. [Id]id;
  211. [List]list;
  212. [Dist]$s=x $s=dist dist;
  213. [Area]$s=x $s=area area;
  214. [Help]'help;
  215. [~--]
  216. [Undo]$s=x $s=undo undo;
  217. [Redo]redo;
  218. [Oops]oops;
  219. [~--]
  220. [Lisp               >]$s=x $s=lisp
  221. [Balloon & Leaders  >]$s=x $s=balloon $i=iballoon $i=*
  222. [Ashade             >]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade $i=ias $i=*
  223.  
  224. ***POP7
  225. **pop7
  226. [Setting]
  227. [Snap]$s=x $s=snap snap;
  228. [Snap set]$s=x $s=snapset 'setvar snapunit
  229. [Grid](if metric (progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);grid;
  230. [Axis]$s=x $s=axis axis;
  231. [Modes on/off](if (= (getvar "blipmode") 1)(progn (princ "Modes OFF")(command "script" (strcat drive "/cci/modeoff")))(progn (princ "Modes ON")(command "script" (strcat drive "/cci/modeon"))))(princ);
  232. [Settings           >]$s=x $s=set2
  233. [Attrib control     >]$s=x $s=attcontrol
  234. [Aperture & pickbox]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
  235. [~--]
  236. [Toggle Snap]
  237. [       Ortho]
  238. [       Coords]
  239. [       Iso]
  240. [       Tablet]
  241. [Blips](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))(progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))
  242. [High light](if (= (getvar "highlight") 1)(progn (setvar "highlight" 0)(prompt "Highlight OFF")(princ))(progn (setvar "highlight" 1)(prompt "Highlight ON")(princ)))
  243. [Units 24.0 or 2'-0"](if (= (getvar "lunits") 2)(progn (setvar "lunits" 4)(prompt "Units Architectural")(princ))(progn (setvar "lunits" 2)(prompt "Units Decimal")(princ)))
  244.  
  245. ***POP8
  246. **pop8
  247. [Util]
  248. [Save]^C^CSave;
  249. [End]^C^C(nl "" "/cci/end")(end);
  250. [Quit]^C^c$s=x $s=quit quit;
  251. [~--]
  252. [Plot             >]^C^c$s=x $s=plot
  253. [~--]
  254. [Daystamp](nl "" "/cci/daystamp");
  255. [Dxf / Iges       >]$s=x $s=dxf
  256. [Edit text file]ws;
  257. [List text file]ty;
  258. [Files]files;
  259. [Purge]$s=x $s=purge purge;
  260. [Rename]$s=x $s=rename rename;
  261. [Script           >]$s=x $s=script
  262. [Shell (external) >]$S=X $S=EXCOMDS
  263. [Slides           >]$s=x $s=slides
  264.  
  265. ***pop9
  266. **pop9
  267. [Menus]
  268. [Menu of menus    >]menu menu;
  269.  
  270. ***icon
  271. **ias
  272. [Select Ashade Command]
  273. [acad(camera)]^c^c$s=x $s=camera camera;
  274. [acad(camview)]^c^c$s=x $s=ashade camview;
  275. [acad(point)]^C^c$s=x $s=lights light \p;
  276. [acad(directed)]^c^c$s=x $s=lights light \d;
  277. [acad(scene)]^C^c$s=x $s=action scene;
  278. [acad(filmroll)]^c^c$s=x $s=action filmroll;
  279. [ Cancel]
  280.  
  281. **ipoly
  282. [Set Polymesh & Polyline Variables]
  283. [acad(pmq)]'setvar surftype 5
  284. [acad(pmc)]'setvar surftype 6
  285. [acad(pmb)]'setvar surftype 8
  286. [acad(plq)]'setvar splinetype 5
  287. [acad(plc)]'setvar splinetype 6
  288. [ Set SPLINESEGS]'setvar splinesegs \
  289. [ Set SPLFRAME]'setvar splframe \
  290. [ Set DENSITY]'setvar surfu \'setvar surfv \
  291. [ Exit]$s= $s=
  292.  
  293. **iucs
  294. [User Coordinate System Options]
  295. [ Set to World]^C^Cucs world
  296. [acad(left)]^c^cP(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@0,-1,0 @0,0,1;
  297. [ Set to Screen]^C^Cucs view
  298. [acad(top)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@1,0,0 @0,1,0;
  299. [acad(front)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@1,0,0 @0,0,1;
  300. [acad(bottom)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@1,0,0 @0,-1,0;
  301. [acad(back)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@-1,0,0 @0,0,1;
  302. [acad(right)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@0,1,0 @0,0,1;
  303. [ Cancel]
  304.  
  305. **iucs1
  306. [User Coordinate System Icon Options]
  307. [ On]^C^Cucsicon on;
  308. [ Off]^c^cucsicon off;
  309. [ Noorign]^C^Cucsicon n;
  310. [ Orign]^c^cucsicon or;
  311. [ All]^c^cucsicon all;$i=iucs1 $i=*
  312. [ Cancel]
  313.  
  314. **iucs2
  315. [User Coordinate System sub-commands]
  316. [ Origin]ucs orgin;
  317. [ ZAxis]ucs za;
  318. [ 3point]ucs 3point;
  319. [ Entity]ucs ent;
  320. [ View]ucs view;
  321. [ X]ucs x;
  322. [ Y]ucs y;
  323. [ Z]ucs z;
  324. [ Previous]ucs prev;
  325. [ Restore]ucs restore;
  326. [ Save]ucs save;
  327. [ Delete]ucs delete;
  328. [ ?]ucs ?;
  329. [ World]ucs world;
  330. [ UCS Presets]^C^C$S=X $S=ucs1 $i=iucs $i=*
  331. [ Cancel]
  332.  
  333. **i3dviews
  334. [Select View Direction]
  335. [acad(ul)]^c^cvpoint r;<<135;
  336. [acad(l)]^c^cvpoint r;<<180;
  337. [acad(ll)]^c^cvpoint r;<<225;
  338. [acad(user)]$i=* $s= $s=
  339. [acad(u)]^c^cvpoint r;<<90;
  340. [acad(p)]^c^cvpoint 0,0,1;$s= $s=
  341. [acad(lo)]^c^cvpoint r;<<270;
  342. [acad(user)]$i=* $s= $s=
  343. [acad(ur)]^c^cvpoint r;<<45;
  344. [acad(r)]^c^cvpoint r;<<0;
  345. [acad(lr)]^c^cvpoint r;<<315;
  346. [acad(user)]$i=* $s= $s=
  347. [acad(t)]vpoint; $s= $s=
  348. [acad(h)]hide;
  349. [ Cancel]$s= $s= ^c^c
  350.  
  351. **i3dobjects
  352. [3D Objects and 3D Surface Commands]
  353. [acad(box3d)]^c^cbox;
  354. [acad(wedge)]wedge;
  355. [acad(pyramid)]pyramid;
  356. [acad(cone)]^c^ccone;
  357. [acad(dome)]^c^cdome;
  358. [acad(dish)]^c^cdish;
  359. [acad(mesh)]mesh;
  360. [acad(sphere)]^c^csphere;
  361. [acad(torus)]^c^ctorus;
  362. [acad(3dtube)](nl c:3dtube "/cci/3dtube") 3dtube;
  363. [cciacad(polytube)](nl c:tube "/cci/tube") tube;
  364. [cciacad(cube)](nl c:3dcube "/cci/3dcube") 3dcube;
  365. [ Cancel]
  366.  
  367. **isurf
  368. [3D Surface Commands]
  369. [acad(rev)]^c^c$s=x $s=3d revsurf
  370. [acad(surftab1)]'setvar surftab1 \$i=*
  371. [acad(surftab2)]'setvar surftab2 \$i=*
  372. [acad(rul)]^c^c$s=x $s=3d rulesurf
  373. [acad(edg)]^c^c$s=x $s=3d edgesurf
  374. [acad(mesh)]3dmesh;
  375. [acad(tab)]^c^c$s=x $s=3d tabsurf
  376. [ Cancel]
  377.  
  378. **i3dobjects1 
  379. [Select 3D Lisp]
  380. [ Axis Rotate](nl c:axrot "/cci/axrot") axrot;
  381. [ Change Face](nl c:chface "/cci/chface") chface;
  382. [ Edge 3dface](nl c:edge "/cci/edge") edge;
  383. [ Fplot](nl fplot "/cci/fplot");
  384. [ Hole/Slot](nl c:hole "/cci/hole") hole;
  385. [ Project](nl c:project "/cci/project") project;
  386. [acad(3darray)](nl c:3darray "/cci/3darray") 3darray;
  387. [ 3d Angular array)](nl c:3dangarr "/cci/3dangarr") 3dangarr;
  388. [ 3d Rotate](nl c:3drotate "/cci/3drotate") 3drotate;
  389. [ Cancel]
  390.  
  391. **ifonts1
  392. [Select Text Font]
  393. [acad(romans)]^c^cstyle romans romans
  394. [acad(romanc)]^c^cstyle romanc romanc
  395. [acad(italicc)]^c^cstyle italicc italicc
  396. [acad(romand)]^c^cstyle romand romand
  397. [acad(romant)]^c^cstyle romant romant
  398. [acad(italict)]^c^cstyle italict italict
  399. [acad(monotxt)]^c^cstyle monotxt monotxt
  400. [ Next]$i=ifonts2 $i=*
  401. [ Cancel]
  402.  
  403. **ifonts2
  404. [Select Text Font]
  405. [acad(gothice)]^c^cstyle gothice gothice
  406. [acad(greeks)]^c^cstyle greeks greeks
  407. [acad(scripts)]^c^cstyle scripts scripts
  408. [acad(gothicg)]^c^cstyle gothicg gothicg
  409. [acad(greekc)]^c^cstyle greekc greekc
  410. [acad(scriptc)]^c^cstyle scriptc scriptc
  411. [acad(gothici)]^c^cstyle gothici gothici
  412. [ Next]$i=ifonts3 $i=*
  413. [ Cancel]
  414.  
  415. **ifonts3
  416. [Select Text Font]
  417. [acad(syastro)]^c^cstyle syastro syastro
  418. [acad(symath)]^c^cstyle symath symath
  419. [acad(symusic)]^c^cstyle symusic symusic
  420. [acad(symap)]^c^cstyle symap symap
  421. [acad(symeteo)]^c^cstyle symeteo symeteo
  422. [acad(txt)]^c^cstyle txt txt
  423. [acad(user)]
  424. [ Begining]$i=ifonts1 $i=*
  425. [ Cancel]
  426.  
  427. **ihatch1
  428. [Select Hatch Pattern]
  429. [ Previous/User]^c^chatch
  430. [acad(ansi31)]^c^chatch ansi31
  431. [acad(ansi32)]^c^chatch ansi32
  432. [acad(ansi34)]^c^chatch ansi34
  433. [acad(ansi35)]^c^chatch ansi35
  434. [acad(ansi33)]^c^chatch ansi33
  435. [acad(ansi36)]^c^chatch ansi36
  436. [acad(ansi37)]^c^chatch ansi37
  437. [acad(ansi38)]^c^chatch ansi38
  438. [acad(box)]^c^chatch box
  439. [acad(brass)]^c^chatch brass
  440. [acad(brick)]^c^chatch brick
  441. [acad(clay)]^c^chatch clay
  442. [acad(cork)]^c^chatch cork
  443. [ Next]$i=ihatch2 $i=*
  444. [ Cancel]
  445.  
  446. **ihatch2
  447. [Select Hatch Pattern]
  448. [acad(cross)]^c^chatch cross
  449. [acad(dash)]^c^chatch dash
  450. [acad(dolmit)]^c^chatch dolmit
  451. [acad(dots)]^c^chatch dots
  452. [acad(earth)]^c^chatch earth 
  453. [acad(escher)]^c^chatch escher
  454. [acad(flex)]^c^chatch flex
  455. [acad(grass)]^c^chatch grass
  456. [acad(grate)]^c^chatch grate
  457. [acad(hex)]^c^chatch hex
  458. [acad(honey)]^c^chatch honey
  459. [acad(hound)]^c^chatch hound
  460. [acad(insul)]^c^chatch insul
  461. [acad(line)]^c^chatch line
  462. [ Next]$i=ihatch3 $i=*
  463. [ Cancel]
  464.  
  465. **ihatch3
  466. [Select Hatch Pattern]
  467. [acad(mudst)]^c^chatch mudst
  468. [acad(net)]^c^chatch net
  469. [acad(net3)]^c^chatch net3
  470. [acad(plast)]^c^chatch plast
  471. [acad(plasti)]^c^chatch plasti
  472. [acad(sacncr)]^c^chatch sacncr
  473. [acad(square)]^c^chatch square
  474. [acad(stars)]^c^chatch stars
  475. [acad(steel)]^c^chatch steel
  476. [acad(swamp)]^c^chatch swamp
  477. [acad(trans)]^c^chatch trans
  478. [acad(triang)]^c^chatch triang
  479. [acad(zigzag)]^c^chatch zigzag
  480. [acad(angle)]^c^chatch angle
  481. [ Beginning]$i=ihatch1 $i=*
  482. [ Cancel]
  483.  
  484. **ivporti
  485. [Viewport Settings (Current is dominant)]
  486. [acad(vp1)]^c^cvports;si
  487. [acad(vp3v)]^c^cvports;si;;3;v
  488. [acad(vp3h)]^c^cvports;si;;3;h
  489. [acad(vp4)]^c^cvports;si;;4
  490. [acad(vp2v)]^c^cvports;si;;2;v
  491. [acad(vp3r)]^c^cvports;si;;3;r
  492. [acad(vp3l)]^c^cvports;si;;3;l
  493. [acad(vp4l)]^c^cundo;m;(setq m:g (getvar "gridmode"));setvar;gridmode;0;+
  494. vports;si;;2;;(setvar "cvport" (car (cadr (vports))))(princ);;2;;;j;;+
  495. (car (cadr (vports)));(setvar "cvport" (car (cadr (vports))))(princ)+
  496. ;;3;h;(setvar "gridmode" m:g)(princ);zoom;a;(setvar "cvport"+
  497. (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);zoom;a;+
  498. (setvar "cvport" (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);+
  499. zoom;a;(setvar "cvport" (car (cadddr (vports))))(setvar "gridmode" m:g)+
  500. (princ);zoom;a;undo;e;
  501. [acad(vp2h)]^c^cvports;si;;2;h
  502. [acad(vp3a)]^c^cvports;si;;3;a;
  503. [acad(vp3b)]^c^cvports;si;;3;b;
  504. [ Vport Setup](nl "" "/cci/ucssetup");
  505. [ Join Viewports]^c^cvports;j
  506. [ List/Restore]^C^cvports;?;vports r;
  507. [ Save Viewports]vports;s;
  508. [ Cancel]
  509.  
  510. **icircle
  511. [Circle]
  512. [cciacad(cirr)]^c^ccircle \drag
  513. [cciacad(cird)]^c^ccircle \d;
  514. [cciacad(cir2pt)]^c^ccircle 2p \drag
  515. [cciacad(cir3pt)]^c^ccircle 3p \\drag
  516. [cciacad(cirttr)]^c^ccircle ttr;
  517. [cciacad(cirttt)]circle 3p tan \tan \tan;
  518. [cciacad(circon)]circle cen \drag;
  519. [cciacad(circonr)](nl "" "/cci/concentr");
  520. [cciacad(circond)](nl "" "/cci/concentd");
  521. [cciacad(circent)](nl c:circentl "/cci/circentl") circentl;
  522. [ Cancel]
  523.  
  524. **iarc
  525. [Arc]
  526. [cciacad(arc3pt)]^c^carc \\drag
  527. [cciacad(arcsce)]^c^carc \c \drag
  528. [cciacad(arcsca)]^c^carc \c \a drag
  529. [cciacad(arcscl)]^c^carc \c \l drag
  530. [ contin]^c^carc ;drag
  531. [cciacad(arccse)]^c^carc c \\drag
  532. [cciacad(arccsa)]^c^carc c \\a drag
  533. [cciacad(arccsl)]^c^carc c \\l drag
  534. [ cancel]
  535. [cciacad(arcsea)]^c^carc \e \a;
  536. [cciacad(arcser)]^c^carc \e \r;
  537. [cciacad(arcsed)]^c^carc \e \d drag
  538.  
  539. **isnaprot
  540. [Snap Rotate]
  541. [cciacad(snapiso)]snap s i ;
  542. [cciacad(snapnorm)]snap s s   r 0,0 0;
  543. [cciacad(snap60)]snap s s   r 0,0 60;
  544. [ @ +angle](setq temp (getangle " Rotate current snap angle counter-clockwise <5>: "));\(if (null temp)(setq temp (+ (getvar "snapang") 5.))(setq temp (+ (getvar "snapang") temp)))(setvar "snapang" temp)(princ);
  545. [cciacad(snapleft)]isoplane left;
  546. [cciacad(snap15)]snap s s   r 0,0 15;
  547. [cciacad(snap75)]snap s s   r 0,0 75;
  548. [ @ -angle](setq temp (getangle " Rotate current snap angle clockwise <5>: "));\(if (null temp)(setq temp (- (getvar "snapang") 5.))(setq temp (- (getvar "snapang") temp)))(setvar "snapang" temp)(princ);
  549. [cciacad(snaprigh)]isoplane right;
  550. [cciacad(snap30)]snap s s   r 0,0 30;
  551. [cciacad(snapslop)](initget 1)(setq vix (getdist "enter slope rise: "))(initget 1)(setq viy (getdist " enter slope run: "))(setq ang1 (atan (/ vix viy)))(setvar "snapang" ang1)(princ);
  552. [ pickset](nl "" "/cci/rotsnap");
  553. [cciacad(snaptop)]isoplane top;
  554. [cciacad(snap45)]snap s s   r 0,0 45;
  555. [ Other](initget 1)(setq temp (getangle " Enter angle: "))(setvar "snapang" temp)(princ);
  556. [ cancel]
  557.  
  558. **idimpoint
  559. [Set Both Point Types]
  560. [cciacad(dimarr)]^c^c(setvar "dimsah" 0)(if (equal (getvar "dimasz") 0.0 0.001)(setvar "dimasz" 0.125))(princ) dim dimasz \dimtsz 0 dimblk .;
  561. [cciacad(dimarr2)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr2") dim dimasz \dimtsz 0 dimblk dimarr2;
  562. [cciacad(dimarr3)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr3") dim dimasz \dimtsz 0 dimblk dimarr3;
  563. [cciacad(dimarr4)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr4") dim dimasz \dimtsz 0 dimblk dimarr4;
  564. [cciacad(dimarr5)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr5") dim dimasz \dimtsz 0 dimblk dimarr5;
  565. [cciacad(dot)]^c^c(setvar "dimsah" 0)(if (equal (getvar "dimasz") 0.0 0.001)(setvar "dimasz" 0.125))(princ) dim dimasz \dimtsz 0 dimblk dot;
  566. [cciacad(dimdot)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimdot") dim dimasz \dimtsz 0 dimblk dimdot;
  567. [cciacad(dimdot2)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimdot2") dim dimasz \dimtsz 0 dimblk dimdot2;
  568. [cciacad(dimtck)]^c^c(setvar "dimsah" 0)(if (equal (getvar "dimtsz") 0.0 0.001)(setvar "dimtsz" 0.125))(princ) dim dimtsz;
  569. [cciacad(dimtick)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimtick") dim dimasz \dimtsz 0 dimblk dimtick;
  570. [ None]dim dimasz 0 dimtsz 0;
  571. [ Cancel]
  572.  
  573. **idimpoint1
  574. [Set First Point type]
  575. [cciacad(dimarr)]^c^c(setvar "dimsah" 1)(if (equal (getvar "dimasz") 0.0 0.01)(setvar "dimasz" 0.125))(princ) dim dimasz \dimtsz 0 dimblk . dimblk1 .;
  576. [cciacad(dimarr2)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr2") dim dimasz \dimtsz 0 dimblk1 dimarr2;
  577. [cciacad(dimarr3)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr3") dim dimasz \dimtsz 0 dimblk1 dimarr3;
  578. [cciacad(dimarr4)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr4") dim dimasz \dimtsz 0 dimblk1 dimarr4;
  579. [cciacad(dimarr5)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr5") dim dimasz \dimtsz 0 dimblk1 dimarr5;
  580. [cciacad(dot)]^c^c(setvar "dimsah" 1)(if (equal (getvar "dimasz") 0.0 0.001)(setvar "dimasz" 0.125))(princ) dim dimasz \dimtsz 0 dimblk1 dot;
  581. [cciacad(dimdot)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimdot") dim dimasz \dimtsz 0 dimblk1 dimdot;
  582. [cciacad(dimtck)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtck") dim dimasz \dimtsz 0 dimblk1 dimtck;
  583. [cciacad(dimtick)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtick") dim dimasz \dimtsz 0 dimblk1 dimtick;
  584. [ None](setvar "dimsah" 1) dim dimblk1 . dimasz 0 dimtsz 0;
  585. [ Cancel]
  586.  
  587. **idimpoint2
  588. [Set Second Point type]
  589. [cciacad(dimarr)]^c^c(setvar "dimsah" 1)(if (equal (getvar "dimasz") 0.0 0.01)(setvar "dimasz" 0.125))(princ) dim dimasz \dimtsz 0 dimblk . dimblk2 .;
  590. [cciacad(dimarr2)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr2") dim dimasz \dimtsz 0 dimblk2 dimarr2;
  591. [cciacad(dimarr3)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr3") dim dimasz \dimtsz 0 dimblk2 dimarr3;
  592. [cciacad(dimarr4)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr4") dim dimasz \dimtsz 0 dimblk2 dimarr4;
  593. [cciacad(dimarr5)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr5") dim dimasz \dimtsz 0 dimblk2 dimarr5;
  594. [cciacad(dot)]^c^c(setvar "dimsah" 1)(if (equal (getvar "dimasz") 0.0 0.001)(setvar "dimasz" 0.125))(princ) dim dimasz \dimtsz 0 dimblk2 dot;
  595. [cciacad(dimdot)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimdot") dim dimasz \dimtsz 0 dimblk2 dimdot;
  596. [cciacad(dimtck)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtck") dim dimasz \dimtsz 0 dimblk2 dimtck;
  597. [cciacad(dimtick)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtick") dim dimasz \dimtsz 0 dimblk2 dimtick;
  598. [ None](setvar "dimsah" 1) dim dimblk2 . dimasz 0 dimtsz 0;
  599. [ Cancel]
  600.  
  601. **idimzin
  602. [Suppress Dimension Zero]
  603. [cciacad(dimzin12)]12;
  604. [cciacad(dimzin1)]1;
  605. [cciacad(dimzin10)]10;
  606. [cciacad(dimzin7)]7;
  607.  
  608. **idim1
  609. [Dimensioning]
  610. [cciacad(dimhorz)]^c^c$s=x $s=dimlinear dim horiz;
  611. [cciacad(dimvert)]^c^c$s=x $s=dimlinear dim vert;
  612. [cciacad(dimcont)]^c^c$s=x $s=dimlinear dim contin;
  613. [cciacad(dimbase)]^c^c$s=x $s=dimlinear dim base;
  614. [cciacad(dimalig)]^c^c$s=x $s=dimlinear dim aligned;
  615. [cciacad(dimrot)]^c^c$s=x $s=dimlinear dim rotated;
  616. [ Update]dim update;
  617. [ Newtext]dim newtext;
  618. [cciacad(dimdia)]$s=x $s=dim dim diameter;
  619. [cciacad(dimrad)]$s=x $s=dim dim radius;
  620. [cciacad(dimcent)]$s=x $s=dim dim center;
  621. [cciacad(dimang)]$s=x $s=dim dim angular;
  622. [cciacad(dimlead)]$s=x $s=dim $i=iballoon $i=*
  623. [ Toggles]$s=x $s=var1 $i=idimtog $i=*
  624. [ Status]^c^c$s=x $s=dim dim status;
  625. [ Cancel]
  626.  
  627. **idimtog
  628. [Dimension Toggles]
  629. [cciacad(dimtih)](if (= (getvar "dimtih") 0)(progn (setvar "dimtih" 1)(setvar "dimtoh" 1)(princ " Dim Text inside & outside extensions will be HORZ "))(progn (setvar "dimtih" 0)(setvar "dimtoh" 0)(princ " Dim Text inside & outside extensions will be normal ")))(princ);
  630. [cciacad(dimtoh)](if (= (getvar "dimtoh") 0)(PROGN (setvar "dimtoh" 1)(PRINC " Dim Text outside extensions will be HORZ "))(progn (setvar "dimtoh" 0)(PRINC " Dim Text outside extensions will be normal ")))(princ);
  631. [cciacad(dimtad)](if (= (getvar "dimtad") 0)(progn (setvar "dimtad" 1)(princ " Dim Text will be above extension line "))(progn (setvar "dimtad" 0)(princ " Dim Text will be inside extension line ")))(princ);
  632. [cciacad(dimsoxd)](if (= (getvar "dimsoxd") 0)(progn (setvar "dimsoxd" 1)(setvar "dimtix" 1)(princ " Text & Arrows Forced Inside extension lines. "))(progn (setvar "dimsoxd" 0)(setvar "dimtix" 0)(princ " Text & Arrows will be normal. ")))(princ);
  633. [cciacad(dimaso)](if (= (getvar "dimaso") 0)(PROGN (setvar "dimaso" 1)(PRINC " Associative dim is ON "))(progn (setvar "dimaso" 0)(PRINC " Associative dim is OFF ")))(princ);
  634. [cciacad(dimzins)]setvar dimzin;$i=idimzin $i=*
  635. [cciacad(dimblk)](setq temp (strcase (getstring " Set 1/2/Both pointer types <B>: "))) \(princ);(cond ((or (= temp "B")(= temp ""))(menucmd "i=idimpoint")(menucmd "i=*"))((= temp "1")(menucmd "i=idimpoint1")(menucmd "i=*"))((= temp "2")(menucmd "i=idimpoint2")(menucmd "i=*")))(princ);
  636. [ Extensions](nl "" "/cci/dimext");
  637. [cciacad(dimtol)](if (= (getvar "dimtol") 0)(progn (setvar "dimtol" 1)(princ "Dim tolerances are turned ON"))(progn (setvar "dimtol" 0)(princ "Dim tolerances are turned OFF")))(princ);
  638. [cciacad(dimlim)](if (= (getvar "dimlim") 0)(progn (setvar "dimlim" 1)(princ "Dim limits are turned ON"))(progn (setvar "dimlim" 0)(princ "Dim limits are turned OFF")))(princ);
  639. [ set +]^c^cdim dimtp;
  640. [ set -]dim dimtm;
  641. [cciacad(dimsho)](if (= (getvar "dimsho") 0)(PROGN (setvar "dimsho" 1)(PRINC " Dim text will update while dragging "))(progn (setvar "dimsho" 0)(PRINC " Dim text will not update while dragging ")))(princ);
  642. [cciacad(dimalt)](if (= (getvar "dimalt") 0)(progn (setvar "dimalt" 1)(princ "Alternate dim are turned ON"))(progn (setvar "dimalt" 0)(princ "Alternate dim is turned OFF")))(princ);
  643. [ Dimaltf]'setvar DIMALTF;
  644. [ Cancel]
  645.  
  646. **iinsym
  647. [Insert Symbol in a Line]
  648. [ Other](nl "" "/cci/symbol");
  649. [cciacad(line145)](setq insfl (strcat drive "/cci/line145") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  650. [cciacad(line245)](setq insfl (strcat drive "/cci/line245") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  651. [cciacad(line345)](setq insfl (strcat drive "/cci/line345") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  652. [ Reset size](princ "Resetting SYMBOL size ")(setq size1 nil ang nil)(princ);$i=iinsym $i=*
  653. [cciacad(line190)](setq insfl (strcat drive "/cci/line190") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  654. [cciacad(line290)](setq insfl (strcat drive "/cci/line290") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  655. [cciacad(line390)](setq insfl (strcat drive "/cci/line390") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  656. [cciacad(linex)](setq insfl (strcat drive "/cci/linex") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  657. [cciacad(line1135)](setq insfl (strcat drive "/cci/line1135") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  658. [cciacad(line2135)](setq insfl (strcat drive "/cci/line2135") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  659. [cciacad(line3135)](setq insfl (strcat drive "/cci/line3135") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(princ) (nl "" "/cci/symbol");
  660. [cciacad(linedot)](setq insfl (strcat drive "/cci/dot") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "C" angtpt t)(princ) (nl "" "/cci/symbol");
  661. [cciacad(lineball)](setq insfl (strcat drive "/cci/ballsym") ang 0 attfl "Y" attno 1 breakt t break "Y" insflt t)(princ) (nl "" "/cci/symbol");
  662. [ Cancel]
  663.  
  664. **iballoon
  665. [Custom Balloons and Leaders]
  666. [ AutoCad Leader]dim leader;
  667. [cciacad(balloon)](nl c:balloon "/cci/balloon") balloon;
  668. [cciacad(leader)](nl c:leadr "/cci/leadr") leadr;
  669. [cciacad(arclead)](nl c:arclead "/cci/arclead") arclead;
  670. [cciacad(looplead)](nl c:looplead "/cci/looplead") looplead;
  671. [cciacad(leadtext)](nl c:leadtext "/cci/leadtext") leadtext;
  672. [cciacad(leaddtxt)](nl c:leaddtxt "/cci/leaddtxt") leaddtxt;
  673. [cciacad(leadarro)](princ "pointer type set to arrows ")(setq bubtyp "A")(princ);$i=iballoon $i=*
  674. [cciacad(leaddots)](princ "pointer type set to dots ")(setq bubtyp "D")(princ);$i=iballoon $i=*
  675. [cciacad(leadtick)](princ "pointer type set to ticks ")(setq bubtyp "T")(princ);$i=iballoon $i=*
  676. [cciacad(leadnone)](princ "pointer type set to none ")(setq bubtyp "N")(princ);$i=iballoon $i=*
  677. [ text style](setq bubsty nil)(princ " RESETTING TEXT STYLE ")(princ);$i=iballoon $i=*
  678. [ pointer size](setq asize nil)(princ " RESETTING POINTER SIZE ")(princ);$i=iballoon $i=*
  679. [ balloon size](setq bbub nil)(princ " RESETTING BALLOON SIZE ")(princ);$i=iballoon $i=*
  680. [ Cancel]
  681.  
  682. **userblk
  683. [Userblocks]
  684. [acadcci(block1)]insert (dd "/custom/block1");
  685. [acadcci(block2)]insert (dd "/custom/block2");
  686. [acadcci(block3)]insert (dd "/custom/block3");
  687. [acadcci(block4)]insert (dd "/custom/block4");
  688. [acadcci(block5)]insert (dd "/custom/block5");
  689. [acadcci(block6)]insert (dd "/custom/block6");
  690. [acadcci(block7)]insert (dd "/custom/block7");
  691. [acadcci(block8)]insert (dd "/custom/block8");
  692. [acadcci(block9)]insert (dd "/custom/block9");
  693. [acadcci(block10)]insert (dd "/custom/block10");
  694. [acadcci(block11)]insert (dd "/custom/block11");
  695. [acadcci(block12)]insert (dd "/custom/block12");
  696. [acadcci(block13)]insert (dd "/custom/block13");
  697. [acadcci(block14)]insert (dd "/custom/block14");
  698. [ Next]$i=userblk1 $i=*
  699. [ Cancel]
  700.  
  701. **userblk1
  702. [Userblocks]
  703. [acadcci(block15)]insert (dd "/custom/block15");
  704. [acadcci(block16)]insert (dd "/custom/block16");
  705. [acadcci(block17)]insert (dd "/custom/block17");
  706. [acadcci(block18)]insert (dd "/custom/block18");
  707. [acadcci(block19)]insert (dd "/custom/block19");
  708. [acadcci(block20)]insert (dd "/custom/block20");
  709. [acadcci(block21)]insert (dd "/custom/block21");
  710. [acadcci(block22)]insert (dd "/custom/block22");
  711. [acadcci(block23)]insert (dd "/custom/block23");
  712. [acadcci(block24)]insert (dd "/custom/block24");
  713. [acadcci(block25)]insert (dd "/custom/block25");
  714. [acadcci(block26)]insert (dd "/custom/block26");
  715. [acadcci(block27)]insert (dd "/custom/block27");
  716. [acadcci(block28)]insert (dd "/custom/block28");
  717. [ Last]$i=userblk $i=*
  718. [ Cancel]
  719.  
  720. ***SCREEN
  721. **S
  722. [ARCHELEV]$s=x $s=s
  723. [PEOPLE]$S=X $S=PEOPLE
  724. [VEHICLEE]$S=X $S=VEHICLESE
  725. [TREES 1]$S=X $S=TREE1
  726. [TREES 2]$S=X $S=TREE2
  727. [TREES 3]$S=X $S=TREE3
  728. [DOORS 1]$S=X $S=DOOR1
  729. [DOORS 2]$S=X $S=DOOR2
  730. [DOORS 3]$S=X $S=DOOR3
  731. [DOUBDOOR]$S=X $S=DOOR4
  732. [WINDOWS](nl c:windelev "/archelev/windelev") windelev;
  733. [SHUTTER](nl c:shutter "/archelev/shutter") shutter;
  734. [cabinets]
  735. [BASE]$S=X $S=CABBASE1
  736. [ DRAWERS]$S=X $S=CABBASE3
  737. [TALL]$S=X $S=CABBASE2
  738. [WALL]$S=X $S=CABWALL
  739. [WALL 24]$S=X $S=CABWALL1
  740. [WALL 30]$S=X $S=CABWALL2
  741. [HANDLES]$S=X $S=CABWALL3
  742. [DOORS]$S=X $S=CABWALL4
  743. **X 2
  744.  
  745.  
  746.  
  747.  
  748.  
  749.  
  750.  
  751.  
  752.  
  753.  
  754.  
  755.  
  756.  
  757.  
  758.  
  759.  
  760.  
  761.  
  762.  
  763. [  LAST  ]$S= $S=
  764. **HEADER
  765. [ARCHELEV]$S=S
  766.  
  767. **PEOPLE 2
  768. [people]
  769. [example](setq redraw1 't)(princ) vslide (dd "/archelev/people");
  770.  
  771. [CROWD](rd) INSERT (dd "/archelev/crowd") \;;;
  772.  
  773. [PEOPLE1](rd) INSERT (dd "/archelev/people1") \;;;
  774. [PEOPLE2](rd) INSERT (dd "/archelev/people2") \;;;
  775. [PEOPLE3](rd) INSERT (dd "/archelev/people3") \;;;
  776. [PEOPLE4](rd) INSERT (dd "/archelev/people4") \;;;
  777. [PEOPLE5](rd) INSERT (dd "/archelev/people5") \;;;
  778. [PEOPLE6](rd) INSERT (dd "/archelev/people6") \;;;
  779. [PEOPLE7](rd) INSERT (dd "/archelev/people7") \;;;
  780. **VEHICLESE 2
  781. [example](setq redraw1 't)(princ) vslide (dd "/arch/arch(vehiclee)");
  782. [CARFRONT](rd) (lays sitev) INSERT (dd "/arch2d/carfront") \ ;
  783. [SM CAR](rd) (lays sitev) INSERT (dd "/archelev/vcssde") \ ;
  784. [MD CAR](rd) (lays sitev) INSERT (dd "/archelev/vcmsde") \ ;
  785. [STwagon](rd) (lays sitev) INSERT (dd "/archelev/vcmste") \ ;
  786. [LG CAR](rd) (lays sitev) INSERT (dd "/archelev/vclsde") \ ;
  787. [VAN](rd) (lays sitev) INSERT (dd "/archelev/vtvane") \ ;
  788. [SM TRUCK](rd) (lays sitev) INSERT (dd "/archelev/vt18be") \ ;
  789. [MD TRUCK](rd) (lays sitev) INSERT (dd "/archelev/vt24be") \ ;
  790. [MD TRK2](rd) (lays sitev) INSERT (dd "/archelev/vt24bde") \ ;
  791. [LG TRUCK](rd) (lays sitev) INSERT (dd "/archelev/vt28be") \ ;
  792. [LG TRK2](rd) (lays sitev) INSERT (dd "/archelev/vt28bde") \ ;
  793. [TRAILR50](rd) (lays sitev) INSERT (dd "/archelev/vtt50e") \ ;
  794. [TRAILR55](rd) (lays sitev) INSERT (dd "/archelev/vtt55e") \ ;
  795. [TRAILR60](rd) (lays sitev) INSERT (dd "/archelev/vtt60e") \ ;
  796. [TRAILR65](rd) (lays sitev) INSERT (dd "/archelev/vtt65e") \ ;
  797. [MTRAIL50](rd) (lays sitev) INSERT (dd "/archelev/vttr50e") \ ;
  798. [MTRAIL55](rd) (lays sitev) INSERT (dd "/archelev/vttr55e") \ ;
  799. [MTRAIL60](rd) (lays sitev) INSERT (dd "/archelev/vttr60e") \ ;
  800. [MTRAIL65](rd) (lays sitev) INSERT (dd "/archelev/vttr65e") \ ;
  801. **TREE1 2
  802. [example](setq redraw1 'T)(princ) vslide (dd "/archelev/tree1el");
  803. [TREE1](rd) (lays sitev) INSERT (dd "/archelev/tree1e") \\
  804. [TREE2](rd) (lays sitev) INSERT (dd "/archelev/tree2e") \\
  805. [TREE3](rd) (lays sitev) INSERT (dd "/archelev/tree3e") \\
  806. [TREE4](rd) (lays sitev) INSERT (dd "/archelev/tree4e") \\
  807. [TREE5](rd) (lays sitev) INSERT (dd "/archelev/tree5e") \\
  808. [TREE6](rd) (lays sitev) INSERT (dd "/archelev/tree6e") \\
  809. [TREE7](rd) (lays sitev) INSERT (dd "/archelev/tree7e") \\
  810. [TREE8](rd) (lays sitev) INSERT (dd "/archelev/tree8e") \\
  811. [TREE9](rd) (lays sitev) INSERT (dd "/archelev/tree9e") \\
  812. [TREE10](rd) (lays sitev) INSERT (dd "/archelev/tree10e") \\
  813. [TREE11](rd) (lays sitev) INSERT (dd "/archelev/tree11e") \\
  814. [TREE12](rd) (lays sitev) INSERT (dd "/archelev/tree12e") \\
  815. [TREE13](rd) (lays sitev) INSERT (dd "/archelev/tree13e") \\
  816. [TREE14](rd) (lays sitev) INSERT (dd "/archelev/tree14e") \\
  817. [TREE15](rd) (lays sitev) INSERT (dd "/archelev/tree15e") \\
  818. [TREE16](rd) (lays sitev) INSERT (dd "/archelev/tree16e") \\
  819. [TREE17](rd) (lays sitev) INSERT (dd "/archelev/tree17e") \\
  820. [TREE18](rd) (lays sitev) INSERT (dd "/archelev/tree18e") \\
  821. **TREE2 2
  822. [example](setq redraw1 't)(princ) vslide (dd "/archelev/tree2el");
  823. [TREE19](rd) (lays sitev) INSERT (dd "/archelev/tree19e") \\
  824. [TREE20](rd) (lays sitev) INSERT (dd "/archelev/tree20e") \\
  825. [TREE21](rd) (lays sitev) INSERT (dd "/archelev/tree21e") \\
  826. [TREE22](rd) (lays sitev) INSERT (dd "/archelev/tree22e") \\
  827. [TREE23](rd) (lays sitev) INSERT (dd "/archelev/tree23e") \\
  828. [TREE24](rd) (lays sitev) INSERT (dd "/archelev/tree24e") \\
  829. [TREE25](rd) (lays sitev) INSERT (dd "/archelev/tree25e") \\
  830. [TREE26](rd) (lays sitev) INSERT (dd "/archelev/tree26e") \\
  831. [TREE27](rd) (lays sitev) INSERT (dd "/archelev/tree27e") \\
  832. [TREE28](rd) (lays sitev) INSERT (dd "/archelev/tree28e") \\
  833. [TREE29](rd) (lays sitev) INSERT (dd "/archelev/tree29e") \\
  834. [TREE30](rd) (lays sitev) INSERT (dd "/archelev/tree30e") \\
  835. [TREE31](rd) (lays sitev) INSERT (dd "/archelev/tree31e") \\
  836. [TREE32](rd) (lays sitev) INSERT (dd "/archelev/tree32e") \\
  837. [TREE33](rd) (lays sitev) INSERT (dd "/archelev/tree33e") \\
  838. [TREE34](rd) (lays sitev) INSERT (dd "/archelev/tree34e") \\
  839. [TREE35](rd) (lays sitev) INSERT (dd "/archelev/tree35e") \\
  840. [TREE36](rd) (lays sitev) INSERT (dd "/archelev/tree36e") \\
  841. **TREE3 2
  842. [example](setq redraw1 't)(princ) vslide (dd "/archelev/tree3el");
  843. [TREE37](rd) (lays sitev) INSERT (dd "/archelev/tree37e") \\
  844. [TREE38](rd) (lays sitev) INSERT (dd "/archelev/tree38e") \\
  845. [TREE39](rd) (lays sitev) INSERT (dd "/archelev/tree39e") \\
  846. [TREE40](rd) (lays sitev) INSERT (dd "/archelev/tree40e") \\
  847. [TREE41](rd) (lays sitev) INSERT (dd "/archelev/tree41e") \\
  848. [TREE42](rd) (lays sitev) INSERT (dd "/archelev/tree42e") \\
  849. [TREE43](rd) (lays sitev) INSERT (dd "/archelev/tree43e") \\
  850. [TREE44](rd) (lays sitev) INSERT (dd "/archelev/tree44e") \\
  851. [TREE45](rd) (lays sitev) INSERT (dd "/archelev/tree45e") \\
  852. [TREE46](rd) (lays sitev) INSERT (dd "/archelev/tree46e") \\
  853. [TREE47](rd) (lays sitev) INSERT (dd "/archelev/tree47e") \\
  854. [TREE48](rd) (lays sitev) INSERT (dd "/archelev/tree48e") \\
  855. [TREE49](rd) (lays sitev) INSERT (dd "/archelev/tree49e") \\
  856. [TREE50](rd) (lays sitev) INSERT (dd "/archelev/tree50e") \\
  857. [TREE51](rd) (lays sitev) INSERT (dd "/archelev/tree51e") \\
  858. [TREE52](rd) (lays sitev) INSERT (dd "/archelev/tree52e") \\
  859. [TREE53](rd) (lays sitev) INSERT (dd "/archelev/tree53e") \\
  860. [TREE54](rd) (lays sitev) INSERT (dd "/archelev/tree54e") \\
  861. **DOOR1 2
  862. [example](setq redraw1 't)(princ) vslide (dd "/archelev/door1");
  863. [DOOR1](rd) INSERT (dd "/archelev/door1e") \;;;
  864. [DOOR2](rd) INSERT (dd "/archelev/door2e") \;;;
  865. [DOOR3](rd) INSERT (dd "/archelev/door3e") \;;;
  866. [DOOR4](rd) INSERT (dd "/archelev/door4e") \;;;
  867. [DOOR5](rd) INSERT (dd "/archelev/door5e") \;;;
  868. [DOOR6](rd) INSERT (dd "/archelev/door6e") \;;;
  869. [DOOR7](rd) INSERT (dd "/archelev/door7e") \;;;
  870. [DOOR8](rd) INSERT (dd "/archelev/door8e") \;;;
  871. [DOOR9](rd) INSERT (dd "/archelev/door9e") \;;;
  872. [DOOR10](rd) INSERT (dd "/archelev/door10e") \;;;
  873. [DOOR11](rd) INSERT (dd "/archelev/door11e") \;;;
  874. [DOOR12](rd) INSERT (dd "/archelev/door12e") \;;;
  875. [DOOR13](rd) INSERT (dd "/archelev/door13e") \;;;
  876. [DOOR14](rd) INSERT (dd "/archelev/door14e") \;;;
  877. [DOOR15](rd) INSERT (dd "/archelev/door15e") \;;;
  878. [DOOR16](rd) INSERT (dd "/archelev/door16e") \;;;
  879. [DOOR17](rd) INSERT (dd "/archelev/door17e") \;;;
  880. [DOOR18](rd) INSERT (dd "/archelev/door18e") \;;;
  881. **DOOR2 2
  882. [example](setq redraw1 't)(princ) vslide (dd "/archelev/door2");
  883. [DOOR19](rd) INSERT (dd "/archelev/door19e") \;;;
  884. [DOOR20](rd) INSERT (dd "/archelev/door20e") \;;;
  885. [DOOR21](rd) INSERT (dd "/archelev/door21e") \;;;
  886. [DOOR22](rd) INSERT (dd "/archelev/door22e") \;;;
  887. [DOOR23](rd) INSERT (dd "/archelev/door23e") \;;;
  888. [DOOR24](rd) INSERT (dd "/archelev/door24e") \;;;
  889. [DOOR25](rd) INSERT (dd "/archelev/door25e") \;;;
  890. [DOOR26](rd) INSERT (dd "/archelev/door26e") \;;;
  891. [DOOR27](rd) INSERT (dd "/archelev/door27e") \;;;
  892. [DOOR28](rd) INSERT (dd "/archelev/door28e") \;;;
  893. [DOOR29](rd) INSERT (dd "/archelev/door29e") \;;;
  894. [DOOR30](rd) INSERT (dd "/archelev/door30e") \;;;
  895. [DOOR31](rd) INSERT (dd "/archelev/door31e") \;;;
  896. [DOOR32](rd) INSERT (dd "/archelev/door32e") \;;;
  897. [DOOR33](rd) INSERT (dd "/archelev/door33e") \;;;
  898. [DOOR34](rd) INSERT (dd "/archelev/door34e") \;;;
  899. [DOOR35](rd) INSERT (dd "/archelev/door35e") \;;;
  900. [DOOR36](rd) INSERT (dd "/archelev/door36e") \;;;
  901. **DOOR3 2
  902. [example](setq redraw1 't)(princ) vslide (dd "/archelev/door3");
  903. [DOOR37](rd) INSERT (dd "/archelev/door37e") \;;;
  904. [DOOR38](rd) INSERT (dd "/archelev/door38e") \;;;
  905. [DOOR39](rd) INSERT (dd "/archelev/door39e") \;;;
  906. [DOOR40](rd) INSERT (dd "/archelev/door40e") \;;;
  907. [DOOR41](rd) INSERT (dd "/archelev/door41e") \;;;
  908. [DOOR42](rd) INSERT (dd "/archelev/door42e") \;;;
  909. [DOOR43](rd) INSERT (dd "/archelev/door43e") \;;;
  910. [DOOR44](rd) INSERT (dd "/archelev/door44e") \;;;
  911. [DOOR45](rd) INSERT (dd "/archelev/door45e") \;;;
  912. [DOOR46](rd) INSERT (dd "/archelev/door46e") \;;;
  913. [DOOR47](rd) INSERT (dd "/archelev/door47e") \;;;
  914. [DOOR48](rd) INSERT (dd "/archelev/door48e") \;;;
  915. [DOOR49](rd) INSERT (dd "/archelev/door49e") \;;;
  916. [DOOR50](rd) INSERT (dd "/archelev/door50e") \;;;
  917. [DOOR51](rd) INSERT (dd "/archelev/door51e") \;;;
  918. [DOOR52](rd) INSERT (dd "/archelev/door52e") \;;;
  919. [DOOR53](rd) INSERT (dd "/archelev/door53e") \;;;
  920. [DOOR54](rd) INSERT (dd "/archelev/door54e") \;;;
  921. **DOOR4 2
  922. [doubdoor]
  923. [example](setq redraw1 't)(princ) vslide (dd "/archelev/door4");
  924.  
  925. [DOOR1](rd) INSERT (dd "/archelev/doord1e") \;;;
  926. [DOOR2](rd) INSERT (dd "/archelev/doord2e") \;;;
  927. [DOOR3](rd) INSERT (dd "/archelev/doord3e") \;;;
  928. [DOOR4](rd) INSERT (dd "/archelev/doord4e") \;;;
  929. [DOOR5](rd) INSERT (dd "/archelev/doord5e") \;;;
  930. [DOOR6](rd) INSERT (dd "/archelev/doord6e") \;;;
  931. [DOOR7](rd) INSERT (dd "/archelev/doord7e") \;;;
  932. [DOOR8](rd) INSERT (dd "/archelev/doord8e") \;;;
  933. [DOOR9](rd) INSERT (dd "/archelev/doord9e") \;;;
  934. [DOOR10](rd) INSERT (dd "/archelev/doord10e") \;;;
  935. **CABBASE1 2
  936. [cabinet]
  937. [bases]
  938. [example](setq redraw1 't)(princ) vslide (dd "/archelev/cabbase1");
  939.  
  940. [CB9](rd) INSERT (dd "/archelev/cb9") \;;;
  941. [CB12](rd) INSERT (dd "/archelev/cb12") \;;;
  942. [CB15](rd) INSERT (dd "/archelev/cb15") \;;;
  943. [CB18](rd) INSERT (dd "/archelev/cb18") \;;;
  944. [CB21](rd) INSERT (dd "/archelev/cb21") \;;;
  945. [CB24](rd) INSERT (dd "/archelev/cb24") \;;;
  946. [CB27](rd) INSERT (dd "/archelev/cb27") \;;;
  947. [CB30](rd) INSERT (dd "/archelev/cb30") \;;;
  948. [CB33](rd) INSERT (dd "/archelev/cb33") \;;;
  949. [CB36](rd) INSERT (dd "/archelev/cb36") \;;;
  950. [CB39](rd) INSERT (dd "/archelev/cb39") \;;;
  951. [CB42](rd) INSERT (dd "/archelev/cb42") \;;;
  952. [CB48](rd) INSERT (dd "/archelev/cb48") \;;;
  953. **CABBASE2 2
  954. [ tall]
  955. [cabinets]
  956. [example](setq redraw1 't)(princ) vslide (dd "/archelev/cabbase2");
  957.  
  958. [CT18S](rd) INSERT (dd "/archelev/ct18S") \;;;
  959. [CT24S](rd) INSERT (dd "/archelev/ct24S") \;;;
  960. [CTO24](rd) INSERT (dd "/archelev/ctO24") \;;;
  961. [CTO30](rd) INSERT (dd "/archelev/ctO30") \;;;
  962. [CTO36](rd) INSERT (dd "/archelev/ctO36") \;;;
  963. [CT30](rd) INSERT (dd "/archelev/ct30") \;;;
  964. [CT36](rd) INSERT (dd "/archelev/ct36") \;;;
  965. [CT48](rd) INSERT (dd "/archelev/ct48") \;;;
  966. **CABBASE3 2
  967. [cabinets]
  968. [base w/]
  969. [drawers]
  970. [example](setq redraw1 't)(princ) vslide (dd "/archelev/cabbase3");
  971.  
  972. [CD9](rd) INSERT (dd "/archelev/cd9") \;;;
  973. [CD12](rd) INSERT (dd "/archelev/cd12") \;;;
  974. [CD15](rd) INSERT (dd "/archelev/cd15") \;;;
  975. [CD18](rd) INSERT (dd "/archelev/cd18") \;;;
  976. [CD21](rd) INSERT (dd "/archelev/cd21") \;;;
  977. [CD24](rd) INSERT (dd "/archelev/cd24") \;;;
  978. [CD30](rd) INSERT (dd "/archelev/cd30") \;;;
  979. [CD36](rd) INSERT (dd "/archelev/cd36") \;;;
  980. [CD42](rd) INSERT (dd "/archelev/cd42") \;;;
  981. [CD48](rd) INSERT (dd "/archelev/cd48") \;;;
  982. **CABWALL 2
  983. [example](setq redraw1 't)(princ) vslide (dd "/archelev/cabwall");
  984. [12" high]
  985. [12x30](rd) INSERT (dd "/archelev/cw1230") \;;;
  986. [12x33](rd) INSERT (dd "/archelev/cw1233") \;;;
  987. [12x36](rd) INSERT (dd "/archelev/cw1236") \;;;
  988. [12x39](rd) INSERT (dd "/archelev/cw1239") \;;;
  989. [15" high]
  990. [15x30](rd) INSERT (dd "/archelev/cw1530") \;;;
  991. [15x33](rd) INSERT (dd "/archelev/cw1533") \;;;
  992. [15x36](rd) INSERT (dd "/archelev/cw1536") \;;;
  993. [15x39](rd) INSERT (dd "/archelev/cw1539") \;;;
  994. [18" high]
  995. [18x24](rd) INSERT (dd "/archelev/cw1824") \;;;
  996. [18x27](rd) INSERT (dd "/archelev/cw1827") \;;;
  997. [18x30](rd) INSERT (dd "/archelev/cw1830") \;;;
  998. [18x33](rd) INSERT (dd "/archelev/cw1833") \;;;
  999. [18x36](rd) INSERT (dd "/archelev/cw1836") \;;;
  1000. [18x39](rd) INSERT (dd "/archelev/cw1839") \;;;
  1001. [18x42](rd) INSERT (dd "/archelev/cw1842") \;;;
  1002. [18x48](rd) INSERT (dd "/archelev/cw1848") \;;;
  1003. **CABWALL1 2
  1004. [example](setq redraw1 't)(princ) vslide (dd "/archelev/cabwall");
  1005.  
  1006. [24 3/4"]
  1007. [ high]
  1008. [24x24](rd) INSERT (dd "/archelev/cw2424") \;;;
  1009. [24x27](rd) INSERT (dd "/archelev/cw2427") \;;;
  1010. [24x30](rd) INSERT (dd "/archelev/cw2430") \;;;
  1011. [24x33](rd) INSERT (dd "/archelev/cw2433") \;;;
  1012. [24x36](rd) INSERT (dd "/archelev/cw2436") \;;;
  1013. [24x39](rd) INSERT (dd "/archelev/cw2439") \;;;
  1014. [24x42](rd) INSERT (dd "/archelev/cw2442") \;;;
  1015. [24x48](rd) INSERT (dd "/archelev/cw2448") \;;;
  1016. **CABWALL2 2
  1017. [example](setq redraw1 't)(princ) vslide (dd "/archelev/cabwall");
  1018. [30" high]
  1019. [ single]
  1020. [  door]
  1021. [30x9](rd) INSERT (dd "/archelev/cw309") \;;;
  1022. [30x12](rd) INSERT (dd "/archelev/cw3012") \;;;
  1023. [30x15](rd) INSERT (dd "/archelev/cw3015") \;;;
  1024. [30x18](rd) INSERT (dd "/archelev/cw3018") \;;;
  1025. [30x21](rd) INSERT (dd "/archelev/cw3021") \;;;
  1026. [30x24](rd) INSERT (dd "/archelev/cw3024") \;;;
  1027. [double]
  1028. [ door]
  1029. [30x27](rd) INSERT (dd "/archelev/cw3027") \;;;
  1030. [30x30](rd) INSERT (dd "/archelev/cw3030") \;;;
  1031. [30x33](rd) INSERT (dd "/archelev/cw3033") \;;;
  1032. [30x36](rd) INSERT (dd "/archelev/cw3036") \;;;
  1033. [30x39](rd) INSERT (dd "/archelev/cw3039") \;;;
  1034. [30x42](rd) INSERT (dd "/archelev/cw3042") \;;;
  1035. [30x48](rd) INSERT (dd "/archelev/cw3048") \;;;
  1036. **CABWALL3 2
  1037. [example](setq redraw1 't)(princ) vslide (dd "/archelev/cabhndl");
  1038.  
  1039. [redefine]
  1040. [handles]
  1041. [  to]
  1042. [CABHAND](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand");(nl zooma "/cci/zooma");(zooma)(princ);
  1043. [CABHAND0](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand0");(nl zooma "/cci/zooma");(zooma)(princ);
  1044. [CABHAND1](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand1");(nl zooma "/cci/zooma");(zooma)(princ);
  1045. [CABHAND2](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand2");(nl zooma "/cci/zooma");(zooma)(princ);
  1046. [CABHAND3](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand3");(nl zooma "/cci/zooma");(zooma)(princ);
  1047. [CABHAND4](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand4");(nl zooma "/cci/zooma");(zooma)(princ);
  1048. [CABHAND5](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand5");(nl zooma "/cci/zooma");(zooma)(princ);
  1049. [CABHAND6](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand6");(nl zooma "/cci/zooma");(zooma)(princ);
  1050. [CABHAND7](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand7");(nl zooma "/cci/zooma");(zooma)(princ);
  1051. [CABHAND8](rd) INSERT (strcat "cabhand=" drive "/archelev/cabhand8");(nl zooma "/cci/zooma");(zooma)(princ);
  1052. **CABWALL4 2
  1053. [example](setq redraw1 't)(princ) vslide (dd "/archelev/cabdr");
  1054.  
  1055. [redefine]
  1056. [ doors]
  1057. [  to]
  1058. [CABDOOR0](rd) INSERT (strcat "cabdoor1=" drive "/archelev/cabdoor0");(nl zooma "/cci/zooma");(zooma)(princ);
  1059. [CABDOOR1](rd) INSERT (strcat "cabdoor1=" drive "/archelev/cabdoor1");(nl zooma "/cci/zooma");(zooma)(princ);
  1060. [CABDOOR2](rd) INSERT (strcat "cabdoor1=" drive "/archelev/cabdoor2");(nl zooma "/cci/zooma");(zooma)(princ);
  1061. [CABDOOR3](rd) INSERT (strcat "cabdoor1=" drive "/archelev/cabdoor3");(nl zooma "/cci/zooma");(zooma)(princ);
  1062. [CABDOOR4](rd) INSERT (strcat "cabdoor1=" drive "/archelev/cabdoor4");(nl zooma "/cci/zooma");(zooma)(princ);
  1063. **WINDTYPEE 2
  1064. [window]
  1065. [ types]
  1066.  
  1067. [FIXED GL]fixed;
  1068.  
  1069. [DOUBLE H]double;
  1070.  
  1071. [CASEMENT]casement;
  1072.  
  1073. [SLIDING]sliding;
  1074.  
  1075. [AWNING]awning;
  1076. **DIM 2
  1077. [LAYERMOD](set 'temp 'DIMLAYV)(nl "" "/cci/layermod")(lays dimlayv);
  1078. [DIM:]^C^C$i=idim1 $i=* dim;
  1079. [DIM1:]^C^CDIM1;
  1080. [DIMCHK](nl "" "/cci/dimchk");
  1081. [DATUM](nl c:ddim "/cci/datumdim") DDIM;
  1082. [ST2DIM](nl "" "/cci/st2dim");
  1083. [Linear]$S=X $S=DIMLINEAR
  1084. [AssocDIM]$S=X $S=FORMAT
  1085. [Angular]ANG;
  1086. [Diametr]DIAM;
  1087. [Radius]RAD;
  1088. [Center]CENTER;
  1089. [Leader]$i=iballoon $i=*
  1090. [Dim Vars]$S=X $S=VAR1
  1091. [Redraw]'REDRAW;
  1092. [Status]STAT;
  1093. [Undo]UNDO;
  1094. [Style]STYLE;
  1095. **SETUP 3
  1096. [SETUP](nl "" "/cci/setupnew");
  1097.  
  1098. [edit]
  1099. [scripts]
  1100. [TEXT SCR](nl "" "/cci/edtext")(text1);
  1101. [DIM SCR](nl "" "/cci/eddim")(dim1);
  1102. [LAY SCR](nl "" "/cci/edlay");
  1103.  
  1104. [reload]
  1105. [LAYERS](nl "" "/cci/chglayer")(layer1 "/cci/layers.txt");
  1106. [redefine]
  1107. [ SCALE](nl "" "/cci/chgsize")(chgscale);
  1108.  
  1109. [TABLET]$S=X $S=TABLET ^C^CTABLET;
  1110. **SETUPM 3
  1111. [SETUP](nl "" "/cci/setupnew");
  1112.  
  1113. [UNITBASE]^C^C(nl "" "/cci/unitbase")(unitbase);
  1114.  
  1115. [edit]
  1116. [scripts]
  1117. [TEXT SCR](nl "" "/cci/edtext")(text1);
  1118. [DIM SCR](nl "" "/cci/eddim")(dim1);
  1119. [LAY SCR](nl "" "/cci/edlay");
  1120.  
  1121. [reload]
  1122. [LAYERS](nl "" "/cci/chglayer")(layer1);
  1123. [redefine]
  1124. [ SCALE](nl "" "/cci/chgsize")(chgscale);
  1125.  
  1126. [TABLET]$S=X $S=TABLET ^C^CTABLET;
  1127. **CHGTEXT
  1128. [ED TEXT](nl c:chgtext "/cci/chgtext") chgtext;
  1129.  
  1130. [ <--]
  1131. [ -->]
  1132.  
  1133. [DELETE>]
  1134. [<DELETE]
  1135.  
  1136. [INSERT]
  1137.  
  1138. [EXIT]
  1139. **PLOT 2
  1140. [PLOT    ]PLOT;
  1141. [PRPLOT  ]PRPLOT;
  1142. [--------]
  1143. [  plot  ]
  1144. [ scripts]
  1145.  
  1146. [1](nl "" "/cci/plot") plot1
  1147. [2](nl "" "/cci/plot") plot2
  1148. [3](nl "" "/cci/plot") plot3
  1149. [4](nl "" "/cci/plot") plot4
  1150. [5](nl "" "/cci/plot") plot5
  1151. [Other](nl "" "/cci/plot") OTHER
  1152.  
  1153. [SAMEplot]script (strcat drive "/cci/plottemp");
  1154. [--------]
  1155. [MAKEBOX](nl "" "/cci/plotbox1");
  1156. [USEBOX](nl "" "/cci/plotbox2");
  1157. [PLOTMORE](nl "" "/cci/plotmore");
  1158. **PLOT1 3
  1159.  
  1160. [ plot]
  1161. [ scale]
  1162. [--------]
  1163.  
  1164. [AUTO]AUTO
  1165. [SELECT]SELECT
  1166.  
  1167. [--------]
  1168. **BL 3
  1169. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF;
  1170. [BASE:]^C^CBASE;
  1171. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK;
  1172. [INSERT:]$S=X $S=INSERT ^C^CINSERT;
  1173. [MINSERT:]$S=X $S=INSERT ^C^CMINSERT;
  1174. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK;
  1175.  
  1176. [ATT CONT]$s=x $s=attcontrol
  1177. [EXTRACT]$s=x $s=attext
  1178. **DS 3
  1179. [ATTDISP:]$S=X $S=ATTCONTROL ^C^CATTDISP;
  1180. [DVIEW:](if (null dvfn)(defun dvfn ()(princ " Dview select objects: ")(menucmd "s=x")(menucmd "s=dview")(command "select" "auto" pause)(command "dview" "p" "")(menucmd "s=x")(menucmd "s=dview1")(princ))) (dvfn);
  1181. [LAYREGEN](nl laregen "/cci/laregen")(laregen "");
  1182. [PAN:]'PAN;
  1183. [PLAN:]$S=X $S=PLAN ^C^CPLAN;
  1184. [REDRAW:]'REDRAW;
  1185. [REDRALL:]'REDRAWALL;
  1186. [REGEN:](nl zooma "/cci/zooma")(zooma);
  1187. [REGNALL:]^C^CREGENALL;
  1188. [RGNAUTO:]^C^CREGENAUTO;
  1189. [VIEW:]$S=X $S=VIEW 'VIEW;
  1190. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES;
  1191. [VPOINT:]$S=X $S=VPOINT VPOINT;
  1192. [VPORTS:]$S=X $S=VPORTS VPORTS;
  1193. [ZOOM:]$S=X $S=ZOOM 'ZOOM;
  1194. **DR 3
  1195. [ARC]$S=X $S=ARC
  1196. [BOX](nl "" "/cci/box");
  1197. [CIRCLE]$S=X $S=CIRCLE
  1198. [DONUT:]^C^CDONUT;
  1199. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE;
  1200. [HATCH:]$S=X $S=HATCH ^C^CHATCH;
  1201. [LINE:]$S=X $S=LINE ^C^CLINE;
  1202. [PLINE:]$S=X $S=PLINE ^C^CPLINE;
  1203. [POINT:]$S=X $S=POINT ^C^CPOINT;
  1204. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON;
  1205. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE;
  1206. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH;
  1207. [SLOT](nl "" "/cci/slot");
  1208. [SOLID:]$S=X $S=SOLID ^C^CSOLID;
  1209. **ED 3
  1210. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY;
  1211. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT;
  1212. [DDATTE:]^C^CDDATTE;
  1213. [BREAK:]$S=X $S=BREAK ^C^CBREAK;
  1214. [CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER;
  1215. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE;
  1216. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP;
  1217. [COPY:]$S=X $S=COPY ^CCOPY;
  1218. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE;
  1219. [ERASE:]$S=X $S=ERASE ^C^CERASE;
  1220. [EXPLODE:]$s=x $s=explode ^C^CEXPLODE;
  1221. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND;
  1222. [FILLET:]$S=X $S=FILLET ^C^CFILLET;
  1223. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE;
  1224.  
  1225. [next]$S=X $S=ED2
  1226. **ED2 3
  1227. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR;
  1228. [MOVE:]$S=X $S=MOVE ^C^CMOVE;
  1229. [OFFSET:]$S=X $S=OFFSET OFFSET;
  1230. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  1231. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE;
  1232. [SELECT:]$S=X $S=SELECT SELECT;
  1233. [SCALE:]$S=X $S=SCALE ^C^CSCALE;
  1234. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C;
  1235. [TRIM:]$S=X $S=TRIM ^C^CTRIM;
  1236. [UNDO:]$S=X $S=UNDO ^C^CUNDO;
  1237.  
  1238.  
  1239.  
  1240.  
  1241. [previous]$S=X $S=ED
  1242. **INQ 3
  1243. [AREA:]$S=X $S=AREA ^C^CAREA;
  1244. [DBLIST:]^CDBLIST;
  1245. [DIST:]$S=X $S=DIST ^C^CDIST;
  1246. [HELP:]HELP;
  1247. [ID:]^C^CID;
  1248. [LIST:]$S=X $S=LIST ^C^CLIST;
  1249. [STATUS:]^C^CSTATUS;
  1250. [TIME]$s=x $s=time
  1251. **SET 3
  1252. [APERTURE]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
  1253. [COLOR:]$S=X $S=COLOR ^C^CCOLOR;
  1254. [COORDS];
  1255. [ELEV:]$S=X $S=3dthick ^C^CELEV;
  1256. [GRID:](if metric (progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);^C^CGRID;
  1257. [HANDLES:]$S=X $S=HANDLE ^C^CHANDLES;
  1258. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE;
  1259. [LTSCALE:]^C^CLTSCALE;
  1260. [ORTHO]
  1261. [STYLE:]$S=X $S=STYLE ^C^CSTYLE;
  1262. [UCS:]$S=X $S=UCS1 ^C^CUCS 
  1263. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON 
  1264. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  1265.  
  1266. [more]$S=X $S=SET2
  1267. **SET2 2
  1268. [ATRIBUTE]$S=X $S=ATTCONTROL
  1269. [AXIS:]$S=X $S=AXIS ^C^CAXIS;
  1270. [BLIPS](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))+
  1271. (progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))(PRINC);
  1272. [MODES](if (= (getvar "blipmode") 1)(progn (princ "Modes OFF")(command "script" (strcat drive "/cci/modeoff")))(progn (princ "Modes ON")(command "script" (strcat drive "/cci/modeon"))))(princ);
  1273. [LIMITS:]^C^CLIMITS;
  1274. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP;
  1275. [SETVAR:]$S=X $S=SETVAR ^C^CSETVAR;
  1276. [SNAP:]$S=X $S=SNAP ^C^CSNAP;
  1277. [TABLET:]$S=X $S=TABLET ^C^CTABLET;
  1278. [UNITS:]^CUNITS;
  1279.  
  1280. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE;
  1281. [FILL](if (= (getvar "fillmode") 0)(progn (command "fill" "on")(princ " Fill is ON "))(progn (command "fill" "off")(princ " Fill is OFF ")))(princ " Pick Regen (J11) on tablet to see change ")(princ);
  1282. [REGNAUTO](if (= (getvar "regenmode") 1)(progn (setvar "regenmode" 0)(prompt "Regenauto OFF")(princ))(progn (setvar "regenmode" 1)(prompt "Regenauto ON")(princ)))
  1283. [VIEWRES:]$S=X $S=VIEWRES VIEWRES Y;
  1284. [more]$S=X $S=SET
  1285. **UT 2
  1286. [SAVE]save;
  1287. [END]$S=X $S=END
  1288. [QUIT]$S=X $S=QUIT
  1289.  
  1290. [PLOT]^C^C$S=X $S=PLOT
  1291.  
  1292. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT;
  1293. [DAYSTAMP](nl "" "/cci/daystamp");
  1294. [DXF/IGES]$S=X $S=DXF;
  1295. [Editfile]ws;
  1296. [Listfile]ty;
  1297. [FILES:]^C^CFILES;
  1298. [MENU:]^C^CMENU MENU;
  1299. [PURGE:]$S=X $S=PURGE ^C^CPURGE;
  1300. [RENAME:]$S=X $S=RENAME ^C^CRENAME;
  1301. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT;
  1302. [SHELL]$S=X $S=EXCOMDS
  1303. [SLIDES]$S=X $S=SLIDES
  1304. **OSNAP 3
  1305. [CENter]CENTER $S= $S=
  1306. [ENDpoint]ENDPOINT $S= $S=
  1307. [INSert]INSERT $S= $S=
  1308. [INTersec]INTERSEC $S= $S=
  1309. [MIDpoint]MIDPOINT $S= $S=
  1310. [NEArest]NEAREST $S= $S=
  1311. [NODe]NODE $S= $S=
  1312. [PERpend]PERPEND $S= $S=
  1313. [QUAdrant]QUADRANT $S= $S=
  1314. [TANgent]TANGENT $S= $S=
  1315.  
  1316. [Quick,]QUICK,^Z
  1317.  
  1318. [NONE]NONE $S= $S=
  1319. **OSNAPB 3
  1320. [CENter]CENTER $S=
  1321. [ENDpoint]ENDPOINT $S=
  1322. [INSert]INSERT $S=
  1323. [INTersec]INTERSEC $S=
  1324. [MIDpoint]MIDPOINT $S=
  1325. [NEArest]NEAREST $S=
  1326. [NODe]NODE $S=
  1327. [PERpend]PERPEND $S=
  1328. [QUAdrant]QUADRANT $S=
  1329. [QUICK,]QUICK,^Z
  1330. [TANgent]TANGENT $S=
  1331. [NONE]NONE $S=
  1332. [REF PT](nl off "/cci/off")(off) \ $S=
  1333. [U:]^C^CU $S=
  1334. [REDO:]^C^CREDO $S=
  1335. [REDRAW:]^C^CREDRAW (savechk);$S=
  1336. ['SETVAR]'SETVAR $S=
  1337. [  HELP  ]$S= 'help 
  1338. **BLOCK 3
  1339. [BLOCK:]^C^CBLOCK;
  1340. [?]BLOCK ?;
  1341.  
  1342. [Auto]auto;
  1343. [Single]Single;
  1344. [Window]Win;
  1345. [Last]Las;
  1346. [Previous]Pr;
  1347. [Crossing]Cr;
  1348. [Remove]Re;
  1349. [Add]Ad;
  1350. [Yes]Yes;
  1351.  
  1352. [OOPS]^C^COOPS;
  1353. [BASE]base;
  1354. ["RAW"MOD]$s=x $s=attrawmod
  1355. [Makeblks](nl makeblk "/cci/makeblk")(makeblk);
  1356. **INSERT 3
  1357. [INSERT:]^C^CINSERT;
  1358. [MINSERT:]^C^CMINSERT;
  1359. [ ?]INSERT ?;
  1360. [ *]*
  1361.  
  1362. [ corner]CORNER;
  1363. [ xyz]XYZ;
  1364. [ Scale]scale;
  1365. [ Xscale]xscale;
  1366. [ Yscale]yscale;
  1367. [ Zscale]zscale;
  1368. [ Rotate]rota;
  1369. [PRELIM]$s=x $s=prelim
  1370.  
  1371. [PICKBLK]cb;
  1372. [ATT CONT]$s=x $s=attcontrol
  1373. [Userblks]$i=userblk $i=*
  1374. **PRELIM 3
  1375. [prelim]
  1376.  
  1377. [PScale]Pscale;
  1378. [PXscale]Pxscale;
  1379. [PYscale]Pyscale;
  1380. [PZscale]Pzscale;
  1381. [PRotate]Prota;
  1382. **WBLOCK 3
  1383. [WBLOCK:]^C^Cw;
  1384. [*]*
  1385.  
  1386. [Auto]auto;
  1387. [Single]Single;
  1388. [Window]Win;
  1389. [Last]Las;
  1390. [Previous]Pr;
  1391. [Crossing]Cr;
  1392. [Remove]Re;
  1393. [Add]Ad;
  1394.  
  1395. [OOPS]^C^COOPS;
  1396. [BASE]base;
  1397. ["RAW"MOD]$s=x $s=attrawmod
  1398. [Makeblks](nl makeblk "/cci/makeblk")(makeblk);
  1399. **DIMLINEAR 3
  1400. [DIM:]^C^CDIM;
  1401. [DIM1:]^C^CDIM1;
  1402. [Horiz]HORIZ;
  1403. [Vrtical]VERT;
  1404. [Aligned]ALI;
  1405. [Rotated]ROT;
  1406. [Baselin]BASE;
  1407. [Continu]CONT;
  1408. [Hometext]HOMETEXT;
  1409. [Update]UPDATE;
  1410. [Newtext]NEWTEXT;
  1411. [SCRIPT 1]SCRIPT (dd "/cci/dim1");
  1412. [SCRIPT 2]SCRIPT (dd "/cci/dim2");
  1413. [DimVARS]$s=x $s=var1
  1414. [DimMENU]$S=X $S=DIM
  1415. [AssocDIM]$S=X $S=FORMAT
  1416. **ATTDEF 3
  1417. [ATTDEF:]^C^CATTDEF;
  1418.  
  1419. [Invis]Inv;
  1420. [Constant]CONSTANT;
  1421. [Verify]Ver;
  1422. [Preset]preset;
  1423.  
  1424. [Aligned]Ali;
  1425. [Centered]Ce;
  1426. [Fit]Fit;
  1427. [Middle]Mi;
  1428. [Right]Ri;
  1429. [Style]Sty;
  1430.  
  1431. ["RAW"MOD]$s=x $s=attrawmod
  1432. **ATTCONTROL 3
  1433. [atribute]
  1434. [controls]
  1435.  
  1436. [DIALOG ](if (= (getvar "ATTDIA") 0)(PROGN (setvar "ATTDIA" 1)(PRINC " Dialog box for attribute entry. "))(progn (setvar "ATTDIA" 0)(PRINC " Normal attribute prompts. ")))(princ);
  1437. [REQUEST](if (= (getvar "ATTREQ") 0)(progn (setvar "ATTREQ" 1)(princ " Insert blocks with attribute input. "))(progn (setvar "ATTREQ" 0)(princ " Insert blocks without asking for attributes. ")))(princ);
  1438. [ATTDISP:]^C^CATTDISP;
  1439. [ normal]Nor;
  1440. [ ON]ON;
  1441. [ OFF]OFF;
  1442.  
  1443. ["RAW"MOD]$s=x $s=attrawmod
  1444. [EXTRACT]$s=x $s=attext
  1445. **ATTRAWMOD 3
  1446. [ change ]
  1447. [ "raw"  ]
  1448. [attribut]
  1449. [   to...]
  1450.  
  1451. [NORMAL  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 0) (assoc 70 temp) temp))(princ);
  1452. [INVISIBL](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 1) (assoc 70 temp) temp))(princ);
  1453. [CONSTANT](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 2) (assoc 70 temp) temp))(princ);
  1454. [VERIFY  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 4) (assoc 70 temp) temp))(princ);
  1455. [PRESET  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 8) (assoc 70 temp) temp))(princ);
  1456. [INVCONST](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 3) (assoc 70 temp) temp))(princ);
  1457. [INVVERFY](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 5) (assoc 70 temp) temp))(princ);
  1458. [INVPRSET](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 9) (assoc 70 temp) temp))(princ);
  1459. [BLANK<>](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 1 "") (assoc 1 temp) temp))(princ);
  1460. **LAYER 2
  1461. [LAYER:]^C^CLAYER;
  1462. [?]LAYER ? * ;
  1463. [Make]$S=X $S=LAYER LAYER M;
  1464. [Set](if (= sdscrn "Y")(progn (setq lalist (gettable "LAYER" ""))(LAYERS "S" lalist))(progn (princ (strcat " New current Layer <"(getvar "clayer")">: "))(command "LAYER" "S" pause "")))(PRINC);
  1465. [New]layer new;
  1466. [On](if (= sdscrn "Y")(progn (princ " Layer to turn ON ")(setq lalist (gettable "LAYER" "ON"))(if (null lalist)(princ " All Layer(s) are ON "))(LAYERS "ON" lalist))(progn (princ " Layer(s) to turn ON <done>: ")(command "layer" "on" pause "")))(PRINC);
  1467. [Off](if (= sdscrn "Y")(progn (princ " Layer to turn OFF ")(setq lalist (gettable "LAYER" "OFF"))(if (null lalist)(princ " All Layer(s) are OFF "))(LAYERS "OFF" lalist))(progn (princ " Layer(s) to turn OFF <done>: ")(command "layer" "off" pause "")))(PRINC);
  1468. [Pick OFF](nl "" "/cci/layeroff");
  1469. [Freeze](if (= sdscrn "Y")(progn (princ " Layer to FREEZE ")(setq lalist (gettable "LAYER" "F"))(if (null lalist)(princ " All Layer(s) are FROZEN "))(LAYERS "F" lalist))(progn (princ " Layer(s) to FREEZE <done>: ")(command "layer" "f" pause "")))(PRINC);
  1470. [Thaw](if (= sdscrn "Y")(progn (princ " Layer to THAW ")(setq lalist (gettable "LAYER" "T"))(if (null lalist)(princ " All Layer(s) are THAWED "))(LAYERS "T" lalist))(progn (princ " Layer(s) to THAW <done>: ")(command "layer" "t" pause "")))(PRINC);
  1471. [Color]LAYER COLOR $S=X $S=LACOLOR \$S=X $S=LAYER
  1472. [SEEColor](setq temp (getstring "See slide for 16/256 colors <16>: "))(princ);\(if (/= temp "256")(command "vslide" (dd "/cci/cci(colors)"))(command "vslide" (dd "/cci/cci(chroma)")))(princ);$S=X $S=LACOLOR LAYER COLOR;\\;redraw $S= $S=
  1473. [Ltype]LAYER LTYPE $S=X $S=LALT \$S=X $S=LAYER
  1474. [Ltype pk](princ " Assign Linetype to layer ")(if (null sdscrn)(setq sdscrn "Y" scrtog 't))(if sdscrn (setq ltlist (gettable "LTYPE" "") lalist (gettable "LAYER" ""))(setq ltlist '("") lalist '("")))(PRINC) +
  1475. VSLIDE (dd "/cci/cci(linetype)");(LAYERS "L" ltlist)(setq ostr1 ostr)(if scrtog (setq sdscrn nil scrtog nil))(LAYERS "LT" lalist)(PRINC) LAYER LT !OSTR1 !OSTR  REDRAW;(if sdscrn (menucmd "S="))(princ) $S= $S= $S= $S= $S=
  1476. [SIDELIST](if (null sdscrn)(progn (setq sdscrn "Y")(princ " Side screen INCLUDED for layer functions "))(progn (setq sdscrn nil)(princ " Side screen EXCLUDED for layer functions ")))(princ);
  1477. [LAYREGEN](nl laregen "/cci/laregen")(laregen "");
  1478. [LASCRIPT](nl "" "/cci/lascript");
  1479. [SET 0]layer s 0;;
  1480. **LACOLOR 3
  1481. [COLOR] 
  1482.  
  1483. [red]RED;
  1484. [yellow]YELLOW;
  1485. [green]GREEN;
  1486. [cyan]CYAN;
  1487. [blue]BLUE;
  1488. [magenta]MAGENTA;
  1489. [white]WHITE;
  1490. [8]8;
  1491. [9]9;
  1492. [10]10;
  1493. [11]11;
  1494. [12]12;
  1495. [13]13;
  1496. [14]14;
  1497. [15]15;
  1498. **LALT 3
  1499. [linetype]
  1500.  
  1501. [contin.]CONTINUOUS;
  1502. [dashed]DASHED;
  1503. [hidden]HIDDEN;
  1504. [center]CENTER;
  1505. [phantom]PHANTOM;
  1506. [dot]DOT;
  1507. [dashdot]dashdot;
  1508. [border]border;
  1509. [divide]divide;
  1510. **ZOOM 3
  1511. [ZOOM:]'ZOOM;
  1512.  
  1513. [All]All;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  1514. [Center]Center;
  1515. [Dynamic]Dyn;
  1516. [Extents]Ext;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  1517. [Left]Left;
  1518. [Previous]Pre;
  1519. [Window]Win;
  1520. [In]2x;
  1521. [Out].5x;
  1522.  
  1523. [Yes]YES;
  1524. [No]NO;
  1525.  
  1526. [ZOOMIN](nl "" "/cci/zoomin");
  1527. [ZMSCALE](nl "" "/cci/zmscale");
  1528. **DVIEW 3
  1529. [DVIEW:](if (null dvfn)(defun dvfn ()(princ " Dview select objects: ")(menucmd "s=x")(menucmd "s=dview")(command "select" "auto" pause)(command "dview" "p" "")(menucmd "s=x")(menucmd "s=dview1")(princ))) (dvfn);
  1530.  
  1531. [Single]Single;
  1532. [Window]Win;
  1533. [Last]Las;
  1534. [Previous]Pr;
  1535. [Crossing]Cr;
  1536. [Remove]Re;
  1537. [Add]Ad;
  1538.  
  1539. [USEHOUSE]^C^CDVIEW;;
  1540.  
  1541. [ Dview ]$S=X $S=DVIEW1
  1542. [Options]$S=X $S=DVIEW1
  1543. **DVIEW1 3
  1544. [DVIEW:](if (null dvfn)(defun dvfn ()(princ " Dview select objects: ")(menucmd "s=x")(menucmd "s=dview")(command "select" "auto" pause)(command "dview" "p" "")(menucmd "s=x")(menucmd "s=dview1")(princ))) (dvfn);
  1545. [options]
  1546.  
  1547. [Points]points;
  1548. [Camera]camera;
  1549. [Target]target;
  1550. [Distance]distance;
  1551. [Twist]twist;
  1552. [Pan]pan;
  1553. [Zoom]zoom;
  1554. [Clip]Clip $S=X $S=DVIEW2
  1555. [OFF]off;
  1556. [Hide]hide;
  1557. [Undo]undo;
  1558.  
  1559. [Exit]Exit $S=X $S=S 
  1560. **DVIEW2 3
  1561. [clipping]
  1562.  
  1563. [ Back]Back \$S=X $S=DVIEW1
  1564.  
  1565. [ON]On $S=X $S=DVIEW1
  1566. [OFF]Off $S=X $S=DVIEW1
  1567.  
  1568. [ Front]Front \$S=X $S=DVIEW1
  1569.  
  1570. [ON]On $S=X $S=DVIEW1
  1571. [OFF]Off $S=X $S=DVIEW1
  1572. [Eye]Eye $S=X $S=DVIEW1
  1573. **VPORTS 3
  1574. [VPORTS:]^C^CVPORTS;
  1575. [*icon*]$i=ivporti $i=*
  1576.  
  1577. [Save]sav;
  1578. [Restore]restore;
  1579. [Delete]delete;
  1580. [Join]join;
  1581. [SIngle]si;
  1582. [?]?;
  1583.  
  1584. [2]2 $S=X $S=VP2
  1585. [3]3 $S=X $S=VP3
  1586. [4]4;
  1587.  
  1588. [REDRAWALL]redrawall;
  1589. [REGENALL]regenall;
  1590. [VPORTSET](nl "" "/cci/ucssetup");
  1591. **VP2 3
  1592.  
  1593. [Horizont]H $S=X $S=VPORTS
  1594. [Vertical]V $S=X $S=VPORTS
  1595. **VP3 3
  1596.  
  1597. [Horizont]H $S=X $S=VPORTS
  1598. [Vertical]V $S=X $S=VPORTS
  1599. [Above]A $S=X $S=VPORTS
  1600. [Below]B $S=X $S=VPORTS
  1601. [Left]L $S=X $S=VPORTS
  1602. [Right]R $S=X $S=VPORTS
  1603. **VIEW 3
  1604. [VIEW:]'VIEW;
  1605. [?]?;
  1606.  
  1607. [Delete]'VIEW ? 'VIEW D;
  1608. [Save]'VIEW ? 'VIEW S;
  1609. [Window]'view Win;
  1610. [Restore]'VIEW ? 'VIEW R;
  1611.  
  1612. [V R all]'view r all;
  1613. [V R 1]'view r 1;
  1614. [V R 2]'view r 2;
  1615. [V R 3]'view r 3;
  1616. [V R 4]'view r 4;
  1617.  
  1618. [RESTlisp](if (null sdscrn)(setq sdscrn "Y" scrtog 't))(if sdscrn (setq vwlist (gettable "VIEW" ""))(setq vwlist '("")))(princ) +
  1619. (if (not (member nil vwlist))(LAYERS "R" vwlist)(PRINC " No Views Saved"))(if scrtog (setq sdscrn nil scrtog nil))(PRINC);
  1620. [VIEWSET](nl "" "/cci/views");
  1621. **LINE 2
  1622. [LINE:]^C^CLINE;
  1623. [PTLINE](nl "" "/cci/ptline");
  1624. [DLINE](nl c:dl "/cci/dline") dl;
  1625. [MLINE](nl c:ml "/cci/mline") ml;
  1626. [DOUBLE](nl "" "/cci/dblline");
  1627. [SYMBOL]$S=X $S=INSYM $I=IINSYM $I=*
  1628. [LINETEXT](nl "" "/cci/instext");
  1629.  
  1630. [ @ ]@\
  1631. [ < ]<\
  1632. [continue]^C^CLINE;;
  1633. [close]Close;
  1634. [undo]Undo;
  1635.  
  1636. [end-end]endp \endp;
  1637. [end-mid]endp \midp;
  1638. [mid-mid]midp \midp;
  1639. [LINELAYR]$s=x $s=setlinel
  1640. **setlinel 3
  1641. [set to]
  1642. [line]
  1643. [layer]
  1644.  
  1645. [MEDIUM]$s=x $s=line (setq med1v (getstring (strcat " Layer for Med lines <" medv ">: "))) \(if (/= med1v "")(setq medv med1v)) LAYER m !medv  LINE;
  1646. [HEAVY]$s=x $s=line (setq heavy1v (getstring (strcat " Layer for Heavy lines <" heavyv ">: "))) \(if (/= heavy1v "")(setq heavyv heavy1v)) LAYER m !heavyv  LINE;
  1647. [DASHED]$S=X $S=LINE (setq dashed1v (getstring (strcat " Layer for dashed linetypes <" dashedv ">: "))) \(if (/= dashed1v "")(setq dashedv dashed1v)) LAYER m !dashedv l dashed   LINE;
  1648. [HIDDEN]$S=X $S=LINE (setq hidden1v (getstring (strcat " Layer for hidden linetypes <" hiddenv ">: "))) \(if (/= hidden1v "")(setq hiddenv hidden1v)) LAYER m !hiddenv l hidden   LINE;
  1649. [PHANTOM]$S=X $S=LINE (setq phantom1v (getstring (strcat " Layer for phantom linetypes <" phantomv ">: "))) \(if (/= phantom1v "")(setq phantomv phantom1v)) LAYER m !phantomv l phantom   LINE;
  1650. [CENTER]$S=X $S=LINE (setq center1v (getstring (strcat " Layer for center linetypes <" centerv ">: "))) \(if (/= center1v "")(setq centerv center1v)) LAYER m !centerv l center   LINE;
  1651. [DOT]$S=X $S=LINE (setq dot1v (getstring (strcat " Layer for dot linetypes <" dotv ">: "))) \(if (/= dot1v "")(setq dotv dot1v)) LAYER m !dotv l dot   LINE;
  1652. [DIVIDE]$S=X $S=LINE (setq divide1v (getstring (strcat " Layer for divide linetypes <" dividev ">: "))) \(if (/= divide1v "")(setq dividev divide1v)) LAYER m !dividev l divide   LINE;
  1653. **3DFACE 3
  1654. [3DFACE:]^C^C3DFACE;
  1655.  
  1656. [.x].X;
  1657. [.y].Y;
  1658. [.z].Z;
  1659. [.xy].XY;
  1660. [.xz].XZ;
  1661. [.yz].YZ;
  1662.  
  1663. [Invisibl](princ "Use before the FIRST endpoint of an edge. Results show when done.")(princ);Invis;
  1664.  
  1665. [DISPLAY](if (= (getvar "SPLFRAME") 0)(PROGN (setvar "SPLFRAME" 1)(PRINC " Invisible edges will be SEEN after next REGEN." ))(progn (setvar "SPLFRAME" 0)(PRINC " Hidden edges normal (invisible). ")))(princ);
  1666. [EDGEHIDE](nl c:edge "/cci/edge") edge;
  1667. [CH FACES](nl c:chface "/cci/chface") chface;
  1668. **3DOBJECT 3
  1669. [ 3d]
  1670. [objects]
  1671.  
  1672. [BOX mesh](PRINC "Loading TORUS ")(nl c:torus "/cci/3d") box;
  1673. [WEDGE](PRINC "Loading WEDGE ")(nl c:torus "/cci/3d") wedge;
  1674. [PYRAMID](PRINC "Loading PYRAMID ")(nl c:pyramid "/cci/3d") pyramid;
  1675. [CONE](PRINC "Loading CONE ")(nl c:torus "/cci/3d") cone;
  1676. [DOME](PRINC "Loading DOME ")(nl c:torus "/cci/3d") dome;
  1677. [DISH](PRINC "Loading DISH ")(nl c:torus "/cci/3d") dish;
  1678. [MESH](PRINC "Loading MESH ")(nl c:torus "/cci/3d") mesh;
  1679. [SPHERE](PRINC "Loading SPHERE ")(nl c:torus "/cci/3d") sphere;
  1680. [TORUS](PRINC "Loading TORUS ")(nl c:torus "/cci/3d") torus;
  1681. [TUBE](PRINC "Loading 3DTUBE ")(nl c:3dtube "/cci/3dtube") 3dtube;
  1682. [polyTUBE](nl c:tube "/cci/tube") tube;
  1683. [BOX face](princ "Loading 3DCUBE ")(nl c:3dcube "/cci/3dcube") 3dcube;
  1684. **3DLISP 3
  1685. [3d]
  1686. [special]
  1687.  
  1688. [HOLESLOT](nl c:hole "/cci/hole") hole;
  1689. [PROJECT](nl c:project "/cci/project") project;
  1690. [FPLOT](nl fplot "/cci/fplot");
  1691. [3D MIDPT](nl 3dmid "/cci/3dmid")(3dmid) \
  1692. [REF ZANG](nl zangoff "/cci/zangoff")(zangoff) \\\
  1693. [REFZDIST](nl zdistoff "/cci/zdistoff")(zdistoff) \\\
  1694. [ZANG](nl zang "/cci/zang")(zang) \\
  1695. [ZDIST](nl zdist "/cci/zdist")(zdist) \\
  1696. **3D 3
  1697. [3DPOLY:]^C^C$S=X $S=3DPOLY 3DPOLY;
  1698. [3DFACE:]^C^C$S=X $S=3DFACE 3DFACE;
  1699. [3DSURF]$s=x $s=3dsurf
  1700. [3DOBJECT]$S=X $S=3DOBJECT
  1701. [SPECIAL]$S=X $S=3DLISP
  1702.  
  1703. [ASHADE](nl c:scene "/cci/ashade") $S=X $S=ASHADE
  1704.  
  1705. [VPOINT:]$s=x $s=vpoint
  1706. [VP ROT]vpoint rot;
  1707. [VP PLAN]VPOINT 0,0,1;
  1708.  
  1709. [HIDE:]HIDE;
  1710. [laHIDDEN](PRINC "Loading LAYERH ")(nl "" "/cci/layerh");
  1711. **3DTHICK 3
  1712. [3d thick]
  1713. [ elev]
  1714.  
  1715. ['ELEV]'SETVAR ELEVATION;
  1716. ['THICK]'SETVAR THICKNESS;
  1717.  
  1718. [PICKELEV](nl "" "/cci/setelev");
  1719. [PICKTHIC](nl "" "/cci/setthick");
  1720.  
  1721. [CHG ELEV](nl "" "/cci/chelev");
  1722. [CHGTHICK](nl "" "/cci/chthick");
  1723. **3DSURF 3
  1724. [3d surf]
  1725.  
  1726. [EDGSURF:]^C^CEDGESURF;
  1727. [REVSURF:]^C^CREVSURF;
  1728. [RULSURF:]^C^CRULESURF;
  1729. [TABSURF:]^C^CTABSURF;
  1730.  
  1731. [Surftb1:]'SETVAR SURFTAB1 
  1732. [Surftb2:]'SETVAR SURFTAB2
  1733.  
  1734. [3DMESH:]^C^C3DMESH;
  1735. **3DPOLY 3
  1736. [3DPOLY:]^C^C3DPOLY;
  1737.      
  1738. [Close]close;
  1739. [Undo]undo;
  1740. [.x].x;
  1741. [.y].y;
  1742. [.z].z;
  1743. [.xy].xy;
  1744. [.xz].xz;
  1745. [.yz].yz;
  1746.  
  1747. [CONTROLS]$I=IPOLY $I=*
  1748. **VPOINT 3
  1749. [VPOINT:]^C^CVPOINT;
  1750. [*icon*]^c^c$s=x $s=vp3d $i=i3dviews $i=*
  1751.  
  1752. [rotate]^C^CVPOINT R;
  1753. [angle]^C^C$s=x $s=vp3d VPOINT R;;
  1754.  
  1755. [REAR]^C^C$s=x $s=vp3d VPOINT R;<<90;
  1756. [LEFTrear]^C^C$s=x $s=vp3d VPOINT R;<<135;
  1757. [RITErear]^C^C$s=x $s=vp3d VPOINT R;<<45;
  1758.  
  1759. [LEFT]^C^C$s=x $s=vp3d VPOINT R;<<180;
  1760. [PLAN]^C^Cvpoint 0,0,1;
  1761. [RIGHT]^C^C$s=x $s=vp3d VPOINT R;<<0;
  1762.  
  1763. [FRONT]^C^C$s=x $s=vp3d VPOINT R;<<270;
  1764. [LEFTfrnt]^C^C$s=x $s=vp3d VPOINT R;<<225;
  1765. [RITEfrnt]^C^C$s=x $s=vp3d VPOINT R;<<315;
  1766. **VP3D 3
  1767. [ vpoint]
  1768. [ angle]
  1769. [    +90 ]<<90;$s= $s=
  1770. [    +80 ]<<80;$s= $s=
  1771. [    +60 ]<<60;$s= $s=
  1772. [    +45 ]<<45;$s= $s=
  1773. [    +30 ]<<30;$s= $s=
  1774. [    +10 ]<<10;$s= $s=
  1775. [    + 5 ]<<5;$s= $s=
  1776. [      0 ]<<0;$s= $s=
  1777. [    - 5 ]<<-5;$s= $s=
  1778. [    -10 ]<<-10;$s= $s=
  1779. [    -30 ]<<-30;$s= $s=
  1780. [    -45 ]<<-45;$s= $s=
  1781. [    -60 ]<<-60;$s= $s=
  1782. [    -80 ]<<-80;$s= $s=
  1783. [    -90 ]<<-90;$s= $s=
  1784. **ASHADE 3
  1785. [ASHADE]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade $i=ias $i=*
  1786.  
  1787. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT;
  1788. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA;
  1789.  
  1790. [SCENE:]^C^CSCENE;
  1791. [FILMROL:]^C^CFILMROLL;
  1792.  
  1793. [CAMVIEW:]^C^CCAMVIEW;
  1794.  
  1795. [AFLIX]^C^C(nl c:shadetype "/cci/aflix");
  1796. [SHADETYP]^C^C(nl c:shadetype "/cci/aflix") shadetype;
  1797. [WALKTHRU]^C^C(nl c:shadetype "/cci/aflix") walkthrough;
  1798. [ANIMLENS]^C^C(nl c:shadetype "/cci/aflix") animlens;
  1799. [ANIMATE]^C^C(nl c:shadetype "/cci/aflix") animate;
  1800. [BUTTON]^C^C(nl c:shadetype "/cci/aflix") Button;
  1801. **LIGHTS 3
  1802. [LIGHT:]^C^CLIGHT;
  1803.  
  1804. [Point]p;
  1805. [Directed]d;
  1806.  
  1807. [Filters]
  1808. .x
  1809. .y
  1810. .z
  1811. .xy
  1812. .xz
  1813. .yz
  1814.  
  1815. [CAMVIEW:]^C^CCAMVIEW;
  1816. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1817. [ACTION]$S=X $S=ACTION
  1818. **CAMERA 3
  1819. [CAMERA:]^C^CCAMERA;
  1820.  
  1821. [Filters]
  1822. .x
  1823. .y
  1824. .z
  1825. .xy
  1826. .xz
  1827. .yz
  1828.  
  1829.  
  1830.  
  1831. [CAMVIEW:]^C^CCAMVIEW;
  1832. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT;
  1833. [ACTION]$S=X $S=ACTION
  1834. **ACTION 3
  1835. [ACTION]^C^C$S=X $S=ACTION
  1836.  
  1837. [CAMVIEW:]^C^CCAMVIEW;
  1838. [SCENE:]^C^CSCENE;
  1839. [FILMROL:]^C^CFILMROLL;
  1840. **PLINE 3
  1841. [PLINE:]^C^CPLINE;
  1842.  
  1843. [Arc]ARC $S=PARC
  1844. [close]Cl;
  1845. [length]Len;
  1846. [undo]Un;
  1847. [width]Wid;
  1848. [halfwid]Half;
  1849.  
  1850. [DONUT:]donut;
  1851. [FILL ON]'SETVAR FILLMODE 1;
  1852. [FILL OFF]'SETVAR FILLMODE 0;
  1853.  
  1854. [SavWidth](nl "" "/cci/widthsav");
  1855. [UseWidth](princ "Draw pline with previously saved width ... ")(princ);pline \wid !pwid1 !pwid1
  1856. [POLYWID](nl "" "/cci/polywid");
  1857. [SPIRAL](nl c:snake "/cci/snake") snake;
  1858. **PARC 3
  1859. [polyarc]
  1860.  
  1861. [angle]$S=X $S=PARCANG An;
  1862. [CEnter]$S=X $S=PARCEN CE;
  1863. [tanDir]DIR \DRAG;
  1864. [Radius]$S=X $S=PARCRAD Rad;
  1865. [2nd PT]S \DRAG;
  1866. [CLose]$S=X $S=PLINE CLOSE;
  1867.  
  1868. [undo]Un;
  1869.  
  1870. [contline]$S=X $S=PLINE L;
  1871.  
  1872. [PLINE:]$S=X $S=PLINE ^C^CPLINE;
  1873. **PARCANG 3
  1874. [angle]
  1875.  
  1876. [center]Ce drag $S=X $S=PARC
  1877. [radius]Rad \ $S=X $S=PARC
  1878. [drag]drag \ $S=X $S=PARC
  1879. **PARCEN 3
  1880. [center]
  1881.  
  1882. [angle]Ang drag $S=X $S=PARC
  1883. [length]Len drag $S=X $S=PARC
  1884. [drag]drag \ $S=X $S=PARC
  1885. **PARCRAD 3
  1886. [radius]
  1887.  
  1888. [angle]Ang \drag $S=X $S=PARC
  1889. [drag]drag \ $S=X $S=PARC
  1890. **OFFSET 3
  1891. [OFFSET:]^C^COFFSET;
  1892.  
  1893. [Through]Thr;
  1894. **ARC 3
  1895. [arc]
  1896. [*icon*]$i=iarc $i=*
  1897.  
  1898. [3-point:]^C^CARC \\DRAG
  1899. [S,C,E:]^C^CARC \C \DRAG
  1900. [S,C,A:]^C^CARC \C \A DRAG
  1901. [S,C,L:]^C^CARC \C \L DRAG
  1902. [S,E,A:]^C^CARC \E \A;
  1903. [S,E,R:]^C^CARC \E \R;
  1904. [S,E,D:]^C^CARC \E \D DRAG
  1905. [C,S,E:]^C^CARC C \\DRAG
  1906. [C,S,A:]^C^CARC C \\A DRAG
  1907. [C,S,L:]^C^CARC C \\L DRAG
  1908. [CONTIN:]^C^CARC ;DRAG
  1909. **popARC 3
  1910. [ARC]
  1911. [*icon*]$i=iarc $i=*
  1912.  
  1913. [3-point:]*^C^CARC \\DRAG
  1914. [S,C,E:]*^C^CARC \C \DRAG
  1915. [S,C,A:]*^C^CARC \C \A DRAG
  1916. [S,C,L:]*^C^CARC \C \L DRAG
  1917. [S,E,A:]*^C^CARC \E \A
  1918. [S,E,R:]*^C^CARC \E \R
  1919. [S,E,D:]*^C^CARC \E \D DRAG
  1920. [C,S,E:]*^C^CARC C \\DRAG
  1921. [C,S,A:]*^C^CARC C \\A DRAG
  1922. [C,S,L:]*^C^CARC C \\L DRAG
  1923. [CONTIN:]*^C^CARC ;DRAG
  1924. **popCIRCL 3
  1925. [CIRCLE]
  1926.  
  1927. [CEN,RAD:]*^C^CCIRCLE \DRAG
  1928. [CEN,DIA:]*^C^CCIRCLE \D
  1929. [2 POINT:]*^C^CCIRCLE 2P \DRAG
  1930. [3 POINT:]*^C^CCIRCLE 3P \\DRAG
  1931. [TTR:]*^C^CCIRCLE TTR
  1932. **CIRCLE 3
  1933. [circle]
  1934. [*icon*]$i=icircle $i=*
  1935.  
  1936. [CEN,RAD:]^C^CCIRCLE \DRAG
  1937. [CEN,DIA:]^C^CCIRCLE \D;
  1938. [2 POINT:]^C^CCIRCLE 2P \DRAG
  1939. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  1940. [TTR:]^C^CCIRCLE TTR;
  1941. [TTT]CIRCLE 3P TAN \TAN \TAN;
  1942.  
  1943. [CONCEN]CIRCLE CEN \DRAG;
  1944. [MULT CCR](nl "" "/cci/concentr");
  1945. [MULT CCD](nl "" "/cci/concentd");
  1946. [CENTLINE](nl c:circentl "/cci/circentl") CIRCENTL;
  1947. **ELLIPSE 3
  1948. [ELLIPSE:]^C^CELLIPSE;
  1949.  
  1950. [Center]ce;
  1951. [Rotation]Rot;
  1952. [Iso]Iso;
  1953. [Diameter]Dia;
  1954. **POLYGON 3
  1955. [POLYGON:]^C^CPOLYGON;
  1956.  
  1957. [Edge]ED;
  1958. [I-scribe]I;
  1959. [C-scribe]C;
  1960. **SHAPE 3
  1961. [SHAPE:]^C^CSHAPE;
  1962. [?]?;
  1963.  
  1964. [LOAD:]^C^CLOAD;
  1965. [?]?;
  1966. **SKETCH 3
  1967. [SKETCH:]^C^CSKETCH;
  1968.  
  1969. Connect
  1970. Erase
  1971. Record
  1972.  
  1973. [eXit]x
  1974. Quit
  1975.  
  1976. [------]
  1977. [SKPOLY:]'SETVAR SKPOLY 1;
  1978. [SKLINE:]'SETVAR SKPOLY 0;
  1979. [SKINC:]'SETVAR SKETCHINC;
  1980. [------]
  1981. [JOINMORE](nl "" "/cci/joinmore");
  1982. **SOLID 3
  1983. [SOLID:]^C^CSOLID;
  1984.  
  1985. [FILL ON]'SETVAR FILLMODE 1;
  1986. [FILL OFF]'SETVAR FILLMODE 0;
  1987. **POINT 3
  1988. [POINT:]^C^CPOINT;
  1989. [MULITPLE]*point;
  1990.  
  1991. [.x].X;
  1992. [.y].Y;
  1993. [.z].Z;
  1994. [.xy].XY;
  1995. [.xz].XZ;
  1996. [.yz].YZ;
  1997.  
  1998. [complex]
  1999. [points]
  2000. [example:]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW POINT;
  2001.  
  2002. [Pdmode:]'SETVAR PDMODE \POINT;
  2003. [Pdsize:]'SETVAR PDSIZE \POINT;
  2004. **HATCH 3
  2005. [HATCH:]^C^CHATCH;
  2006. [*icon*]$i=ihatch1 $i=*
  2007. [?]?;
  2008.  
  2009. [u]U;
  2010. [u,o]U,O;
  2011. [u,i]U,I;
  2012. [Yes]Yes;
  2013. [Window]Win;
  2014. [Last]Last;
  2015. [Previous]Pre;
  2016. [Crossing]Cr;
  2017. [Remove]Re;
  2018. [Add]Add;
  2019. [Undo]Un;
  2020.  
  2021. [HATFACE](nl "" "/cci/hatface");
  2022. **LIST 3
  2023. [LIST:]^C^CLIST;
  2024.  
  2025. [Window]Win;
  2026. [Last]Last;
  2027. [Previous]Pre;
  2028. [Crossing]Cr;
  2029. [Remove]Re;
  2030. [Add]Add;
  2031. [Undo]Un;
  2032. **AREA 3
  2033. [AREA:]^C^CAREA;
  2034. [Add]ADD;
  2035. [Subtract]Sub;
  2036. [Entity]Ent;
  2037.  
  2038. [set snap]
  2039. [ END](setvar "osmode" 1);
  2040. [ NEAR](setvar "osmode" 512);
  2041.  
  2042. [ NONE](setvar "osmode" 0);
  2043.  
  2044. [AREA TXT](nl "" "/cci/areatext");
  2045. [AREADRAW](nl "" "/cci/areadraw");
  2046. [AREAPICK](nl "" "/cci/areapick");
  2047. [AREAent]area ent;
  2048. **DIST 3
  2049. [DIST:]^C^CDIST;
  2050.  
  2051. [DISTMORE](nl "" "/cci/distmore");
  2052. [DISTTEXT](nl "" "/cci/disttext");
  2053. [DISTCALC](nl "" "/cci/distcalc");
  2054. **TEXTSETUP1 2
  2055. TXT
  2056. MONOTXT
  2057. SIMPLEX
  2058. MSIMPLEX
  2059. DIM
  2060. HAND1
  2061. ROMANS
  2062. ROMAND
  2063. OUTLINE
  2064. BOLD
  2065. TIMES
  2066. TIMESOUT
  2067. COMPLEX
  2068. ITALIC
  2069. ROMANC
  2070. ITALICC
  2071. ROMANT
  2072. ITALICT
  2073. GOTHICE
  2074. SYMAP
  2075. **TEXTSETUP 3
  2076. [ text]
  2077. [styles]
  2078.  
  2079. [1/16]1-16;
  2080. [3/32]3-32;
  2081. [1/8]1-8;
  2082. [5/32]5-32;
  2083. [3/16]3-16;
  2084. [1/4]1-4;
  2085. [5/16]5-16;
  2086. [3/8]3-8;
  2087. [1/2]1-2;
  2088. [3/4]3-4;
  2089. [1]1;
  2090.  
  2091.  
  2092. [OTHER]0;
  2093.  
  2094.  
  2095. **MTEXTSETUP 3
  2096. [ TEXT]
  2097. [Height]
  2098.  
  2099. [006]006;
  2100. [008]008;
  2101. [012]012;
  2102. [018]018;
  2103. [025]025;
  2104. [035]035;
  2105. [050]050;
  2106. [070]070;
  2107. [100]100;
  2108. [140]140;
  2109. [200]200;
  2110.  
  2111.  
  2112. [OTHER]0;
  2113.  
  2114.  
  2115. **TEXT 2
  2116. [TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2 TEXT;
  2117. [Center]ce;
  2118. Middle
  2119. Right
  2120. Align
  2121. Fit
  2122. Style
  2123.  
  2124. [TEXTMORE](nl "" "/cci/textmore");
  2125. [TEXTCOPY](nl "" "/cci/textcopy");
  2126. [PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
  2127. [CHARARAY](nl "" "/cci/chararay");
  2128. [LEADTEXT]$S=X $S=BALLOON
  2129. [OVERLINE](nl "" "/cci/linetext");
  2130. [ARCTEXT](nl "" "/cci/arctext");
  2131. [IMPORT](nl "" "/cci/import");
  2132. [EXPORT](nl "" "/cci/export");
  2133. [TEXTSCR]$s=x $s=textscript
  2134. **TEXTSCRIPT 3
  2135. [text]
  2136. [scripts]
  2137.  
  2138. [1]SCRIPT (dd "/cci/s1");
  2139. [2]SCRIPT (dd "/cci/s2");
  2140. [3]SCRIPT (dd "/cci/s3");
  2141. [4]SCRIPT (dd "/cci/s4");
  2142. [5]SCRIPT (dd "/cci/s5");
  2143.  
  2144. [EDIT SCR](nl "" "/cci/edtext")(text1);
  2145. **F1 2
  2146. Txt
  2147. Monotxt
  2148. Simplex
  2149. Msimplex
  2150. Dim
  2151. Hand1
  2152. Outline
  2153. Bold
  2154. Times
  2155. Timesout
  2156. Complex
  2157. Cyrillic
  2158. Cyriltlc
  2159. Greekc
  2160. Greeks
  2161.  
  2162. [STYLE]$S=X $S=style
  2163. [next]$s=x $s=F2
  2164. **F2 2
  2165. Gothice
  2166. Gothicg
  2167. Gothici
  2168. Italicc
  2169. Italict
  2170. Romanc
  2171. Romand
  2172. Romans
  2173. Romant
  2174. Scriptc
  2175. Scripts
  2176. Syastro
  2177. Symap
  2178. Symath
  2179. Symeteo
  2180. Symusic
  2181. [STYLE]$S=X $S=style
  2182. **STYLE 2
  2183. [STYLE:]^C^CSTYLE;
  2184. [?]?;
  2185. [example:]vslide (dd "/cci/cci(fonts)");STYLE \\\\\\\redraw;
  2186.  
  2187. [Fonts]$S=X $S=F1
  2188. [*icon*]$i=ifonts1 $i=*
  2189.  
  2190. [1]SCRIPT (dd "/cci/s1");STYLE  \ \;;;;
  2191. [2]SCRIPT (dd "/cci/s2");STYLE  \ \;;;;
  2192. [3]SCRIPT (dd "/cci/s3");STYLE  \ \;;;;
  2193. [4]SCRIPT (dd "/cci/s4");STYLE  \ \;;;;
  2194. [5]SCRIPT (dd "/cci/s5");STYLE  \ \;;;;
  2195.  
  2196. [SIDEPICK](nl c:pstyles "/cci/pstyles") pstyles;
  2197. [STYLECHG](nl textchg "/cci/stylechg")(stylechg);
  2198. [PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
  2199. [QTEXT](if (= (getvar "qtextmode") 0)(progn (command "qtext" "on")(princ " Qtext is ON "))(progn (command "qtext" "off")(princ " Qtext is OFF ")))(princ " Pick Regen (J11) on tablet to see change ")(princ);
  2200. [MIRRTEXT](if (= (getvar "mirrtext") 1)(progn (setvar "mirrtext" 0)(prompt "Mirror Text is Normal")(princ))(progn (setvar "mirrtext" 1)(prompt "Mirror Text is Mirrored")(princ)))
  2201. **DTEXT 2
  2202. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2 dtext;
  2203. [Center]ce;
  2204. Middle
  2205. Right
  2206. Align
  2207. Fit
  2208. Style
  2209.  
  2210. [TEXTMORE](nl "" "/cci/textmore");
  2211. [TEXTCOPY](nl "" "/cci/textcopy");
  2212. [PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
  2213. [CHARARAY](nl "" "/cci/chararay");
  2214. [LEADTEXT]$S=X $S=BALLOON
  2215. [OVERLINE](nl "" "/cci/linetext");
  2216. [ARCTEXT](nl "" "/cci/arctext");
  2217. [IMPORT](nl "" "/cci/import");
  2218. [EXPORT](nl "" "/cci/export");
  2219. [TEXTSCR]$s=x $s=textscript
  2220. **AXIS 3
  2221. [AXIS:]^C^CAXIS;
  2222.  
  2223. [axs=snap]SNAP;
  2224.  
  2225. [ON]ON;
  2226. [OFF]OFF;
  2227. [Aspect]A;
  2228. **END 3
  2229. END ?
  2230.  
  2231. [Yes]^C^CEND;
  2232. [No]$S=S
  2233. **QUIT 3
  2234. QUIT ?
  2235.  
  2236. [Yes]^C^CQUIT Y;
  2237. [No]$S=S
  2238. **VAR1 2
  2239. [example]vslide (dd "/cci/cci(dimvar)");(princ " Hit any key to continue ")(princ)(grread);redraw dim;
  2240. [*icon*]$i=idimtog $i=*
  2241. [scale]'setvar dimscale;
  2242. [arr size]'setvar DIMASZ;
  2243. [tik size]'setvar DIMTSZ;
  2244. [txt size]'setvar DIMTXT;
  2245. [extens 1](if (= (getvar "dimse1") 0)(PROGN (setvar "dimse1" 1)(PRINC " First extension line will be OFF "))(progn (setvar "dimse1" 0)(PRINC " First extension line will be ON ")))(princ);
  2246. [extens 2](if (= (getvar "dimse2") 0)(PROGN (setvar "dimse2" 1)(PRINC " Second extension line will be OFF "))(progn (setvar "dimse2" 0)(PRINC " Second extension line will be ON ")))(princ);
  2247. [exttog](nl "" "/cci/dimext");
  2248. [dimsah](if (= (getvar "dimsah") 0)(PROGN (setvar "dimsah" 1)(PRINC " Different arrows can be used "))(progn (setvar "dimsah" 0)(PRINC " Different arrows can NOT be used ")))(princ);
  2249. [block]$i=idimpoint $i=*
  2250. [block1]$i=idimpoint1 $i=*
  2251. [block2]$i=idimpoint2 $i=*
  2252. [assoc](if (= (getvar "dimaso") 0)(PROGN (setvar "dimaso" 1)(PRINC " Associative dim is ON "))(progn (setvar "dimaso" 0)(PRINC " Associative dim is OFF ")))(princ);
  2253. [dimtad](if (= (getvar "dimtad") 0)(progn (setvar "dimtad" 1)(princ " Dim Text will be above extension line "))(progn (setvar "dimtad" 0)(princ " Dim Text will be inside extension line ")))(princ);
  2254. [dimcentr]'setvar DIMCEN;
  2255. [next]$S=X $S=VAR2
  2256. [DimMENU]$S=X $S=DIM
  2257. **VAR2 2
  2258. [toleranc](if (= (getvar "dimtol") 0)(PROGN (setvar "dimtol" 1)(PRINC " Dim tolerances are activated "))(progn (setvar "dimtol" 0)(PRINC " Dim tolerances are deactivated ")))(princ);
  2259. [limits](if (= (getvar "dimlim") 0)(PROGN (setvar "dimlim" 1)(PRINC " Dim Limits are activated "))(progn (setvar "dimlim" 0)(PRINC " Dim Limits are deactivated ")))(princ);
  2260. [set +]'setvar DIMTP;
  2261. [set -]'setvar DIMTM;
  2262. [extoffst]'setvar DIMEXO;
  2263. [dimexe]'setvar DIMEXE;
  2264. [dimdli]'setvar DIMDLI;
  2265. [dimdle]'setvar DIMDLE;
  2266. [roundoff]'setvar DIMRND;
  2267. [dimtih](if (= (getvar "dimtih") 0)(PROGN (setvar "dimtih" 1)(PRINC " Dim Text inside extensions will be HORZ "))(progn (setvar "dimtih" 0)(PRINC " Dim Text inside extensions will be normal ")))(princ);
  2268. [dimtoh](if (= (getvar "dimtoh") 0)(PROGN (setvar "dimtoh" 1)(PRINC " Dim Text outside extensions will be HORZ "))(progn (setvar "dimtoh" 0)(PRINC " Dim Text outside extensions will be normal ")))(princ);
  2269. [dimtofl](if (= (getvar "dimtofl") 0)(PROGN (setvar "dimtofl" 1)(PRINC " Dim Text forced outside extension lines "))(progn (setvar "dimtofl" 0)(PRINC " Dim Text will not be forced outside extension lines ")))(princ);
  2270. [dimtix](if (= (getvar "dimtix") 0)(PROGN (setvar "dimtix" 1)(PRINC " Dim Text forced inside extension lines "))(progn (setvar "dimtix" 0)(PRINC " Dim Text will not be forced inside extension lines ")))(princ);
  2271. [dimsoxd](if (= (getvar "dimsoxd") 0)(PROGN (setvar "dimsoxd" 1)(PRINC " Outside extension lines will be OFF "))(progn (setvar "dimsoxd" 0)(PRINC " Outside extension lines will be ON ")))(princ);
  2272. [dimtvp]'SETVAR DIMTVP;
  2273. [next]$S=X $S=VAR3
  2274. [previous]$S=X $S=VAR1
  2275. [DimMENU]$S=X $S=DIM
  2276. **VAR3 2
  2277. [showdrag](if (= (getvar "dimsho") 0)(PROGN (setvar "dimsho" 1)(PRINC " Dim text will update while dragging "))(progn (setvar "dimsho" 0)(PRINC " Dim text will not update while dragging ")))(princ);
  2278. [zerosupp]setvar dimzin;$i=idimzin $i=* 
  2279. [alt unit](if (= (getvar "dimalt") 0)(progn (setvar "dimalt" 1)(princ "Alternate dim units are ON"))(progn (setvar "dimalt" 0)(princ "Alternate dim units are OFF")))(princ);
  2280. [altsfact]'setvar DIMALTF;
  2281. [alt deci]'setvar DIMALTD;
  2282. [len fact]'setvar DIMLFAC;
  2283. [post str]DIM DIMPOST;
  2284. [alt post]DIM DIMAPOST;
  2285.  
  2286. [previous]$S=X $S=VAR2
  2287. [DimMENU]$S=X $S=DIM
  2288. **FORMAT 3
  2289. [assocdim]
  2290. [  ON](setvar "DIMASO" 1)(princ " Associative Dimensioning ON ")(princ);
  2291. [  OFF](setvar "DIMASO" 0)(princ " Associative Dimensioning OFF ")(princ);
  2292.  
  2293. [HOMETEXT]HOMETEXT;
  2294. [UPDATE]UPDATE;
  2295. [NEWTEXT]NEWTEXT;
  2296. [UPDATmor](nl dimupd "/cci/dimasupd")(dimupd);
  2297.  
  2298. [Window]Win;
  2299. [Last]Last;
  2300. [Previous]Pre;
  2301. [Crossing]Cr;
  2302. [Remove]Re;
  2303. [Add]Add;
  2304. [Undo]Un;
  2305. [DimMENU]$S=X $S=DIM
  2306. **LINETYPE 3
  2307. [LINETYP:]^C^CLINETYPE;
  2308. [?]LINETYPE ?;
  2309. [example:]VSLIDE (dd "/cci/cci(linetype)");LINETYPE \REDRAW LINETYPE;
  2310.  
  2311. [Load]Load;
  2312. [Create]Create;
  2313. [Set]S $S=CHLT \$S=
  2314.  
  2315. [Yes]Yes;
  2316. [No]No;
  2317. **LIMITS 3
  2318. [LIMITS:]^C^CLIMITS;
  2319.  
  2320. [On]ON;
  2321. [Off]OFF;
  2322. **SNAP 3
  2323. [SNAP:]^C^CSNAP;
  2324.  
  2325. [ON]ON;
  2326. [OFF]OFF;
  2327. [Aspect]ASPECT;
  2328. [Rotate]snap rotate;$i=isnaprot $i=*
  2329.  
  2330. [STANDARD]SNAP S S   R 0,0 0;
  2331. [ISO]SNAP S I ;
  2332. [ISOTOGGL];
  2333. [ALLSNAP](nl "" "/cci/allsnap");
  2334.  
  2335. [SNAPSET]$s=x $s=snapset 'setvar snapunit
  2336. **SNAPSET 3
  2337. ['SNAPSET]'SETVAR SNAPUNIT;
  2338.  
  2339. [1/64].015625,.015625;$s= $s=
  2340. [1/32].03125,.03125;$s= $s=
  2341. [1/16].0625,.0625;$s= $s=
  2342. [1/8].125,.125;$s= $s=
  2343. [1/4].25,.25;$s= $s=
  2344. [1/2].5,.5;$s= $s=
  2345. [3/4].75,.75;$s= $s=
  2346. [ 1 ]1,1;$s= $s=
  2347. [ 2 ]2,2;$s= $s=
  2348. [ 3 ]3,3;$s= $s=
  2349. [ 4 ]4,4;$s= $s=
  2350. [ 6 ]6,6;$s= $s=
  2351. [ 8 ]8,8;$s= $s=
  2352. [ 10 ]10,10;$s= $s=
  2353. [ 1' ]12,12;$s= $s=
  2354. [ 2' ]24,24;$s= $s=
  2355. [ 4' ]48,48;$s= $s=
  2356. **MSNAPSET 3
  2357. ['SNAPSET]'SETVAR SNAPUNIT;
  2358.  
  2359. [10.00]10.0,10.0;$s= $s=
  2360. [5.000]5.00,5.00;$s= $s=
  2361. [2.000]2.00,2.00;$s= $s=
  2362. [1.000]1.00,1.00;$s= $s=
  2363. [ .500].500,.500;$s= $s=
  2364. [ .200].200,.200;$s= $s=
  2365. [ .100].100,.100;$s= $s=
  2366. [ .075].075,.075;$s= $s=
  2367. [ .050].050,.050;$s= $s=
  2368. [ .020].020,.020;$s= $s=
  2369. [ .010].010,.010;$s= $s=
  2370. [ .005].005,.005;$s= $s=
  2371. [ .001].001,.001;$s= $s=
  2372. [ .0005].0005,.0005;$s= $s=
  2373. **TABLET 3
  2374. [TABLET:]^C^CTABLET;
  2375.  
  2376. [cal]CAL;
  2377. [config]VSLIDE (dd "/cci/cci(tab)");TABLET CFG 4 25 9 11 9 9 13 25 7 Y;REDRAW;
  2378. [re-confg]VSLIDE (dd "/cci/cci(tab)");TABLET cfg 4 y 25 9 11 9 9 13 25 7 y;REDRAW;
  2379. [ON]ON;
  2380. [OFF]OFF;
  2381. [Yes]Yes;
  2382. [No]No;
  2383. **OSNAPC 3
  2384. [OSNAP:]^C^COSNAP;
  2385.  
  2386. [CENter]CENTER,\
  2387. [ENDpoint]ENDPOINT,\
  2388. [INSert]INSERT,\
  2389. [INTersec]INTERSEC,\
  2390. [MIDpoint]MIDPOINT,\
  2391. [NEArest]NEAREST,\
  2392. [NODe]NODE,\
  2393. [PERpend]PERPEND,\
  2394. [QUAdrant]QUADRANT,\
  2395. [TANgent]TANGENT,\
  2396.  
  2397. [None]OSNAP NONE $S= $S=
  2398. [Quick,]QUICK,^Z
  2399. **DRAGMODE 3
  2400. [DRAGMODE]^C^CDRAGMODE;
  2401.  
  2402. [ON]ON $S=S
  2403. [OFF]OFF $S=S
  2404. [Auto]Auto $S=S
  2405. **GRID 3
  2406. [GRID:]^C^CGRID;
  2407. [grd=snap]SNAP;
  2408. [Aspect]Aspect;
  2409. [1/16].0625;
  2410. [1/8].125;
  2411. [1/4].25;
  2412. [1/2].5;
  2413. [ 1 ]1;
  2414. [ 2 ]2;
  2415. [ 4 ]4;
  2416. [ 6 ]6;
  2417. [ 8 ]8;
  2418. [ 10 ]10;
  2419. [ 12 ]12;
  2420. [ 2']24;
  2421. [ 5']60;
  2422. [ 10']120;
  2423. **GRIDM 3
  2424. [GRID:]^C^CGRID;
  2425. [grd=snap]SNAP;
  2426. [Aspect]Aspect;
  2427. [10.00]10.0;
  2428. [5.000]5.00;
  2429. [2.000]2.00;
  2430. [1.000]1.00;
  2431. [ .500].500;
  2432. [ .200].200;
  2433. [ .100].100;
  2434. [ .075].075;
  2435. [ .050].050;
  2436. [ .020].020;
  2437. [ .010].010;
  2438. [ .005].005;
  2439. [ .001].001;
  2440. [ .0005].0005;
  2441.  
  2442. **SETVAR 3
  2443. [SETVAR:]^C^CSETVAR;
  2444. [?]?;
  2445.  
  2446. ['SETVAR]'SETVAR;
  2447. [AFLAG]'SETVAR AFLAGS;
  2448. [BLIPMODE]'SETVAR BLIPMODE;
  2449. [DRAGMODE]'SETVAR DRAGMODE;
  2450. [ELEV]'SETVAR ELEVATION;
  2451. [EXPERT]'SETVAR EXPERT;
  2452. [LTSCALE]'SETVAR LTSCALE;
  2453. [MIRRTEXT]'SETVAR MIRRTEXT;
  2454. [PDMODE]'SETVAR PDMODE;
  2455. [PDSIZE]'SETVAR PDSIZE;
  2456. [THICKN]'SETVAR THICKNESS;
  2457.  
  2458. **QTEXT 3
  2459. [QTEXT:]^C^CQTEXT;
  2460.  
  2461. [ON]ON;
  2462. [OFF]OFF;
  2463. [REGEN:]REGEN;
  2464. **VIEWRES 3
  2465. [VIEWRES:]^C^CVIEWRES;
  2466.  
  2467. [No]No;
  2468. [Yes]Yes;
  2469.  
  2470. 100
  2471. 500
  2472. 750
  2473. 1000
  2474.  
  2475. [RGNAUTO:]^C^CREGENAUTO;
  2476. **APERTURE 3
  2477. [select]
  2478. [ size]
  2479.  
  2480. [1]1;
  2481. [2]2;
  2482. [3]3;
  2483. [4]4;
  2484. [5]5;
  2485. [6]6;
  2486. [7]7;
  2487. [8]8;
  2488. [9]9;
  2489. [10]10;
  2490. [15]15;
  2491. **ARRAY 3
  2492. [ARRAY:]^C^CARRAY;
  2493. [ANGARRAY](nl "" "/cci/angarray");
  2494. [3DARRAY](nl c:3darray "/cci/3darray") 3darray;
  2495. [3DANGARR](nl c:3dangarr "/cci/3dangarr") 3dangarr;
  2496.  
  2497. [Auto]auto;
  2498. [Window]Win;
  2499. [Last]Last;
  2500. [Previous]Pre;
  2501. [Crossing]Cr;
  2502. [Remove]Re;
  2503. [Add]Add;
  2504. [Undo]Un;
  2505.  
  2506. [Rectang]Rectang;
  2507. [Polar]Polar;
  2508. [Circular]Cir;
  2509. **ROTATE 3
  2510. [ROTATE:]^C^CROTATE;
  2511. [3DROTATE](nl c:3drotate "/cci/3drotate") 3drotate;
  2512. [AXROT](nl c:axrot "/cci/axrot") axrot;
  2513.  
  2514. [Auto]auto;
  2515. [Window]Win;
  2516. [Last]Last;
  2517. [Previous]Pre;
  2518. [Crossing]Cr;
  2519. [Remove]Re;
  2520. [Add]Add;
  2521. [Undo]Un;
  2522.  
  2523. [Referenc]R;
  2524.  
  2525. [MOVE-ROT](nl c:mr "/cci/moverot") mr;
  2526. [ROT-MOVE](nl c:rm "/cci/rotmove") rm;
  2527. **SELECT 3
  2528. [SELECT:]^C^CSELECT;
  2529.  
  2530. [Auto]auto;
  2531. [Single]Single;
  2532. [Window]Win;
  2533. [Last]Last;
  2534. [Previous]Pre;
  2535. [Crossing]Cr;
  2536. [Remove]Re;
  2537. [Add]Add;
  2538. [Undo]Un;
  2539. **SCALE 3
  2540. [SCALE:]^C^CSCALE;
  2541.  
  2542. [Auto]auto;
  2543. [Single]Single;
  2544. [Window]Win;
  2545. [Last]Last;
  2546. [Previous]Pre;
  2547. [Crossing]Cr;
  2548. [Remove]Re;
  2549. [Add]Add;
  2550. [Undo]Un;
  2551.  
  2552. [Referenc]Ref;
  2553.  
  2554. [BLKSCALE](nl "" "/cci/blkscale");
  2555. **BREAK 3
  2556. [BREAK:]^C^CBREAK;
  2557.  
  2558. [BREAK F]^C^CBREAK \F;
  2559. [BREAK @0]^C^CBREAK \F \@;
  2560. [BRKLOOP](nl "" "/cci/brkloop");
  2561. **MOVE 3
  2562. [MOVE:]^C^CMOVE auto;
  2563.  
  2564. [Window]Win;
  2565. [Last]Last;
  2566. [Previous]Pre;
  2567. [Crossing]Cr;
  2568.  
  2569. [end-end]endp \endp;
  2570. [end-mid]endp \midp;
  2571. [mid-mid]midp \midp;
  2572.  
  2573. [MOVE-ROT](nl c:mr "/cci/moverot") mr;
  2574. [ROT-MOVE](nl c:rm "/cci/rotmove") rm;
  2575. [MOVEOBJ]mo;
  2576. **COPY 3
  2577. [COPY:]^C^CCOPY auto;
  2578.  
  2579. [Multiple]Mult;
  2580. [Window]Win;
  2581. [Last]Last;
  2582. [Previous]Pre;
  2583. [Crossing]Cr;
  2584.  
  2585. [end-end]endp \endp;
  2586. [end-mid]endp \midp;
  2587. [mid-mid]midp \midp;
  2588.  
  2589. [COPY-ROT](nl c:cr "/cci/copyrot") cr;
  2590. [ROT-COPY](nl c:rc "/cci/rotcopy") rc;
  2591. **UNDO 3
  2592. [UNDO:]^C^CUNDO;
  2593.  
  2594. [Back 1]^C^CUNDO 1;
  2595.  
  2596. [Auto]Auto;
  2597. [Back]Back;
  2598. [End]En;
  2599. [Group]Gr;
  2600. [Mark]Mark;
  2601. [Control]$S=UNDOC Control;
  2602.  
  2603. [Yes]Yes;
  2604. [No]No;
  2605.  
  2606. [REDO:]REDO;
  2607. **UNDOC 11
  2608. [All]All;
  2609. [None]None;
  2610. [One]One;
  2611. **ERASE 3
  2612. [ERASE:]^C^CERASE auto;
  2613.  
  2614. [Auto]auto;
  2615. [Single]Single;
  2616. [Window]Win;
  2617. [Last]Last;
  2618. [Previous]Pre;
  2619. [Crossing]Cr;
  2620. [Remove]Re;
  2621. [Add]Add;
  2622. [Undo]Un;
  2623.  
  2624. [OOPS:]^C^COOPS;
  2625. [ERASER](nl "" "/cci/eraser");
  2626. [ERASEOUT](nl "" "/cci/eraseout");
  2627. [ERASENT](nl "" "/cci/eraseent");
  2628. [DELAYER](nl "" "/cci/dellayr")(dellayr);
  2629. **P0 2
  2630. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  2631. [Last]Last;
  2632. [Yes]Yes;
  2633. [No]No;
  2634. [Close]Close;
  2635. [Open]Open;
  2636. [Join]Join;
  2637. [Width]Wid;
  2638. [Ed Vrtx]Ed $s=x $S=PVERTED
  2639. [Spline]spline;
  2640. [Fit Curv]Fit;
  2641. [Decurve]Dec;
  2642. [Undo]U;
  2643. [eXit]X $S=S
  2644. [SavWidth](nl "" "/cci/widthsav");
  2645. [UseWidth]w (princ (rtos pwid1))(princ) !pwid1
  2646. [PolyVars]$S=X $S=PVARS $i=ipoly $i=*
  2647. [Polywid](nl "" "/cci/polywid");
  2648. **P8 3
  2649. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  2650.  
  2651. [Last]Last;
  2652. [Close]Close;
  2653. [Open]Open;
  2654. [Ed Vrtx]Ed $s=x $S=3DPVERTED
  2655. [Spline]spline;
  2656. [Decurve]Dec;
  2657. [Undo]U;
  2658. [eXit]X $S=S
  2659.  
  2660. [PolyVars]$S=X $S=PVARS $i=ipoly $i=*
  2661. **P16 3
  2662. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  2663.  
  2664. [Ed Vrtx]E $S=X $S=3DMVERTED
  2665. [Smooth]smooth;
  2666. [Desmooth]desmooth;
  2667. [Mclose]mclose;
  2668. [Nclose]nclose;
  2669. [Mopen]mopen;
  2670. [Nopen]nopen;
  2671. [Undo]U;
  2672. [eXit]^C^C$S=X $S=S 
  2673.  
  2674. [PolyVars]$S=X $S=PVARS $i=ipoly $i=*
  2675. **PVARS 3
  2676. [Polyvars]$i=ipoly $i=*
  2677.  
  2678. [SPLframe]'SETVAR SPLFRAME
  2679. [ On]1
  2680. [ Off]0
  2681. [SPLsegs]'SETVAR SPLINESEGS
  2682. [SPLtype]'SETVAR SPLINETYPE
  2683. [ Quad]5
  2684. [ Cubic]6
  2685. [SURFtype]'SETVAR SURFTYPE
  2686. [ Quad]5
  2687. [ Cubic]6
  2688. [ Bezier]8
  2689. [UDensity]'SETVAR SURFU
  2690. [VDensity]'SETVAR SURFV
  2691.  
  2692. **PVERTED 3
  2693. [ed vrtx]
  2694.  
  2695. [next]Next;
  2696. [previous]Pre;
  2697. [break]Break;
  2698. [insert]Insert;
  2699. [move]Move;
  2700. [straight]Str;
  2701. [width]Wid;
  2702. [tangent]Tang;
  2703. [go]Go;
  2704. [regen]Regen;
  2705. [undo]X U $S=X $S=P0
  2706. [eXit]X $S=X $S=P0
  2707. **3DPVERTED 3
  2708. [ed vrtx]
  2709.  
  2710. [next]Next;
  2711. [previous]Pre;
  2712. [break]Break;
  2713. [insert]Insert;
  2714. [move]Move;
  2715. [straight]Str;
  2716. [regen]Regen;
  2717. [eXit]X $S=X $S=P8
  2718. **3DMVERTED 3
  2719. [ed vrtx]
  2720.  
  2721. [next]Next;
  2722. [previous]Pre;
  2723. [Left]left;
  2724. [Right]right;
  2725. [Up]up;
  2726. [Down]down;
  2727. [move]Move;
  2728. [regen]Regen;
  2729. [eXit]X $S=X $S=P16
  2730. **TRIM 3
  2731. [TRIM:]^C^CTRIM;
  2732.  
  2733. [Auto]auto;
  2734. [Single]Single;
  2735. [Window]Win;
  2736. [Last]Last;
  2737. [Previous]Pre;
  2738. [Crossing]Cr;
  2739. [Remove]Re;
  2740. [Add]Add;
  2741. [Undo]Un;
  2742.  
  2743. [LINETRIM](nl "" "/cci/linetrim");
  2744. [ERASEOUT](nl "" "/cci/eraseout");
  2745. **ATTEXT 3
  2746. [ATTEXT:]^C^CATTEXT;
  2747. [CDF]CDF;
  2748. [SDF]SDF;
  2749. [DXF]DXF;
  2750. [ENTITIES]ENTITIES;
  2751.  
  2752. [BILLMAT](setq temp (strcase (getstring " Enter template file (extension .txt assumed) <temp>: ")))(if (= temp "")(setq temp "TEMP"))(nl billmat "/cci/billmat")(billmat temp);
  2753. [TAMLLIB](nl tamllib "/cci/tamllib")(tamllib);
  2754. [TEMPLAT](nl "" "/cci/tplate");
  2755. **SLIDES 3
  2756. [MSLIDE:]^C^CMSLIDE;
  2757.  
  2758. [Yes]Yes;
  2759. [No]No;
  2760.  
  2761. [VSLIDE:]^C^CVSLIDE;
  2762. [SLIDSHOW](nl "" "/cci/slidshow");
  2763. **SCRIPT 3
  2764. [SCRIPT:]^C^CSCRIPT;
  2765.  
  2766. [DELAY:]DELAY;
  2767. [RESUME:]RESUME;
  2768. [RSCRIPT:]RSCRIPT;
  2769.  
  2770. [USER 1]script (dd "/custom/user1");
  2771. [USER 2]script (dd "/custom/user2");
  2772. [USER 3]script (dd "/custom/user3");
  2773. [USER 4]script (dd "/custom/user4");
  2774. [USER 5]script (dd "/custom/user5");
  2775. [USER 6]script (dd "/custom/user6");
  2776. [USER 7]script (dd "/custom/user7");
  2777. [USER 8]script (dd "/custom/user8");
  2778.  
  2779. [LASCRIPT](nl "" "/cci/lascript");
  2780. **PURGE 3
  2781. [PURGE:]^C^CPURGE;
  2782. [Blocks]Block;
  2783. [LAyers]LAy;
  2784. [LTypes]LTy;
  2785. [STyles]STy;
  2786. [SHapes]SHa;
  2787. [All]All;
  2788.  
  2789. [Yes]Yes;
  2790. [No]No;
  2791. **RENAME 3
  2792. [RENAME:]^C^CRENAME;
  2793. [Blocks]Block;
  2794. [LAyers]LAy;
  2795. [LTypes]LTy;
  2796. [Styles]Sty;
  2797. [View]View;
  2798.  
  2799. [Ucs]ucs;
  2800. [VPort]VPORT;
  2801.  
  2802. [Yes]Yes;
  2803. [No]No;
  2804. **DXF 3
  2805. [DXFIN:]^C^CDXFIN;
  2806.  
  2807. [DXFOUT:]^C^CDXFOUT;
  2808. [16]16;
  2809. [ENTITIES]ENTITIES;
  2810.  
  2811. [Window]Win;
  2812. [Last]Last;
  2813. [Previous]Pre;
  2814. [Crossing]Cr;
  2815. [Remove]Re;
  2816. [Add]Add;
  2817. [Undo]Un;
  2818.  
  2819. [DXBIN:]^C^CDXBIN;
  2820.  
  2821. [IGESIN:]^C^CIGESIN;
  2822. [IGESOUT:]^C^CIGESOUT;
  2823. **EXTEND 3
  2824. [EXTEND:]^C^CEXTEND;
  2825.  
  2826. [Auto]auto;
  2827. [Single]Single;
  2828. [Window]Win;
  2829. [Last]Last;
  2830. [Previous]Pre;
  2831. [Crossing]Cr;
  2832. [Remove]Re;
  2833. [Add]Add;
  2834. [Undo]Un;
  2835. **STRETCH 3
  2836. [STRETCH:]^C^CSTRETCH C;
  2837.  
  2838. [Auto]auto;
  2839. [Single]Single;
  2840. [Window]Win;
  2841. [Last]Last;
  2842. [Previous]Pre;
  2843. [Crossing]Cr;
  2844. [Remove]Re;
  2845. [Add]Add;
  2846. [Undo]Un;
  2847.  
  2848. [ST2DIM](nl "" "/cci/st2dim");
  2849. [ST REMOV]str;
  2850. **MIRROR 3
  2851. [MIRROR:]^C^CMIRROR auto;
  2852.  
  2853. [Auto]auto;
  2854. [Single]Single;
  2855. [Window]Win;
  2856. [Last]Last;
  2857. [Previous]Pre;
  2858. [Crossing]Cr;
  2859. [Remove]Re;
  2860. [Add]Add;
  2861. [Undo]Un;
  2862.  
  2863. [Yes]Yes;
  2864. [No]No;
  2865. [MIRRTEXT](if (= (getvar "mirrtext") 1)(progn (setvar "mirrtext" 0)(prompt "Mirror Text is Normal")(princ))(progn (setvar "mirrtext" 1)(prompt "Mirror Text is Mirrored")(princ)))
  2866. **FILLET 2
  2867. [FILLET]FILLET;
  2868. [ Pline]fillet p;
  2869.  
  2870. [0]FILLET R 0 FILLET;
  2871. [1/64]FILLET R .015625 FILLET;
  2872. [1/32]FILLET R .03125 FILLET;
  2873. [1/16]FILLET R .0625 FILLET;
  2874. [1/8]FILLET R .125 FILLET;
  2875. [1/4]FILLET R .25 FILLET;
  2876. [1/2]FILLET R .5 FILLET;
  2877. [1"]FILLET R 1 FILLET;
  2878. [2"]FILLET R 2 FILLET;
  2879. [6"]FILLET R 6 FILLET;
  2880. [1']FILLET R 12 FILLET;
  2881. [2']FILLET R 24 FILLET;
  2882. [PICK RAD](nl "" "/cci/fradpick")(PRINC);
  2883. [RECALL R]FILLET R !FILLRAD FILLET;
  2884. [SAVE R](princ "SAVING RADIUS ")(SETQ FILLRAD (GETVAR "FILLETRAD"))(PRINC);
  2885. **MFILLET 2
  2886. [FILLET]FILLET;
  2887. [10.00]FILLET R 10.0;FILLET;
  2888. [5.000]FILLET R 5.00;FILLET;
  2889. [2.000]FILLET R 2.00;FILLET;
  2890. [1.000]FILLET R 1.00;FILLET;
  2891. [ .500]FILLET R .500;FILLET;
  2892. [ .200]FILLET R .200;FILLET;
  2893. [ .100]FILLET R .100;FILLET;
  2894. [ .075]FILLET R .075;FILLET;
  2895. [ .050]FILLET R .050;FILLET;
  2896. [ .020]FILLET R .020;FILLET;
  2897. [ .010]FILLET R .010;FILLET;
  2898. [ .005]FILLET R .005;FILLET;
  2899. [ .001]FILLET R .001;FILLET;
  2900. [ 0]FILLET R 0 FILLET;
  2901. [PICK RAD](nl "" "/cci/fradpick")(PRINC);
  2902. [RECALL R]FILLET R !FILLRAD FILLET;
  2903. [SAVE R](PRINC "SAVING RADIUS ")(SETQ FILLRAD (GETVAR "FILLETRAD"))(PRINC);
  2904. **CHAMFER 3
  2905. [CHAMFER:]^C^CCHAMFER;
  2906. [distance]CHAMFER D \\CHAMFER;
  2907. [polyline]CHAMFER P;
  2908.  
  2909. [ 0]CHAMFER D 0 0 CHAMFER;
  2910. [1/64]CHAMFER D .015625 .015625 CHAMFER;
  2911. [1/32]CHAMFER D .03125 .03125 CHAMFER;
  2912. [1/16]CHAMFER D .0625 .0625 CHAMFER;
  2913. [1/8]CHAMFER D .125 .125 CHAMFER;
  2914. [1/4]CHAMFER D .25 .25 CHAMFER;
  2915. [1/2]CHAMFER D .5 .5 CHAMFER;
  2916. [1"]CHAMFER D 1 1 CHAMFER;
  2917. [2"]CHAMFER D 2 2 CHAMFER;
  2918. [6"]CHAMFER D 6 6 CHAMFER;
  2919. [1']CHAMFER D 12 12 CHAMFER;
  2920.  
  2921. [RECALL D]CHAMFER D !CHAMDST1 !CHAMDST2 CHAMFER;
  2922. [SAVE D](PRINC "SAVING CHAMFERS ")(setq chamdst1 (getvar "chamfera") chamdst2 (getvar "chamferb"))(PRINC);
  2923. **MCHAMFER 3
  2924. [CHAMFER:]^C^CCHAMFER;
  2925. [distance]CHAMFER D \\CHAMFER;
  2926. [polyline]CHAMFER P;
  2927. [10.00]CHAMFER D 10.0;;CHAMFER;
  2928. [5.000]CHAMFER D 5.00;;CHAMFER;
  2929. [2.000]CHAMFER D 2.00;;CHAMFER;
  2930. [1.000]CHAMFER D 1.00;;CHAMFER;
  2931. [ .500]CHAMFER D .500;;CHAMFER;
  2932. [ .100]CHAMFER D .100;;CHAMFER;
  2933. [ .075]CHAMFER D .075;;CHAMFER;
  2934. [ .050]CHAMFER D .050;;CHAMFER;
  2935. [ .020]CHAMFER D .020;;CHAMFER;
  2936. [ .010]CHAMFER D .010;;CHAMFER;
  2937. [ .005]CHAMFER D .005;;CHAMFER;
  2938. [ .001]CHAMFER D .001;;CHAMFER;
  2939. [ .0005]CHAMFER D .000;;CHAMFER;
  2940. [ 0]CHAMFER D 0 0 CHAMFER;
  2941. [RECALL D]CHAMFER D !CHAMDST1 !CHAMDST2 CHAMFER;
  2942. [SAVE D](PRINC "SAVING CHAMFERS ")(setq chamdst1 (getvar "chamfera") chamdst2 (getvar "chamferb"))(PRINC);
  2943. **DIVIDE 3
  2944. [DIVIDE:]^C^CDIVIDE;
  2945.  
  2946. [Block]Block;
  2947. [Yes]Yes;
  2948. [No]No;
  2949.  
  2950. [SETPOINT]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW DIVIDE;
  2951. [PDMODE 0]'SETVAR PDMODE 0
  2952.  
  2953. [DIVCOPY](nl c:dc "/cci/divcopy") dc;
  2954. **MEASURE 3
  2955. [MEASURE:]^C^CMEASURE;
  2956.  
  2957. [Block]Block;
  2958. [Yes]Yes;
  2959. [No]No;
  2960.  
  2961. [SETPOINT]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW MEASURE;
  2962. [PDMODE 0]'SETVAR PDMODE 0
  2963. **EXPLODE 3
  2964. [EXPLODE:]^C^CEXPLODE;
  2965.  
  2966. [LEXPLODE](nl c:lexplode "/cci/lexplode") lexplode;
  2967. [POLYEXP](nl "" "/cci/polyexp");
  2968. **CHANGE 2
  2969. [CHANGE:]^C^CCHANGE auto;
  2970. [Window]Win;
  2971. [Last]Last;
  2972. [Previous]Pre;
  2973. [Crossing]Cr;
  2974. [Remove]Re;
  2975. [Add]Add;
  2976. [Undo]Un;
  2977.  
  2978. [Color]PROP COLOR $s=x $S=CHCOLOR \$S= $s=
  2979. [Elev]PROP ELEV;
  2980. [Layer]PROP La;
  2981. [LType]PROP LT $s=x $S=CHLT \$S= $s=
  2982. [Thicknes]PROP THICKNESS;
  2983. [TEXT]$S=X $S=CHANGETXT
  2984. [BLOCK]$S=X $S=CHGBLK
  2985. [CHCOLOR](nl "" "/cci/chcolor");
  2986. [CHLAYER](if (/= sdscrn "Y")(nl "" "/cci/chlay")(nl "" "/cci/chlays"))(princ) chlay;
  2987. **CHPROP 3
  2988. [CHPROP:]^C^CCHPROP;
  2989.  
  2990. [Window]Win;
  2991. [Last]Last;
  2992. [Previous]Pre;
  2993. [Crossing]Cr;
  2994.  
  2995. [Color]PROP COLOR $S=CHCOLOR \$S=X $S=CHPROP
  2996. [LAyer]PROP LA;
  2997. [LType]PROP LT $S=CHLT \$S=X $S=CHPROP
  2998. [Thicknes]PROP THICKNESS;
  2999. **CHANGETXT 3
  3000. [--------]
  3001. [all at]
  3002. [ once]
  3003.  
  3004. [TEXTCHG](nl textchg "/cci/textchg")(textchg);
  3005. [TXTOUTIN](nl "" "/cci/txtoutin");
  3006.  
  3007. [--------]
  3008. [one at a]
  3009. [ time]
  3010.  
  3011. [STYLE](SETQ TEMP "S")(nl textmod "/cci/textmod")(TEXTMOD);
  3012. [HEIGHT](SETQ TEMP "H")(nl textmod "/cci/textmod")(TEXTMOD);
  3013. [ANGLE](SETQ TEMP "A")(nl textmod "/cci/textmod")(TEXTMOD);
  3014. [TEXT](SETQ TEMP "T")(nl textmod "/cci/textmod")(TEXTMOD);
  3015.  
  3016. [EDITTEXT](nl c:chgtext "/cci/chgtext") chgtext;
  3017. **CHGBLK 3
  3018. [blocks]
  3019. [ only]
  3020.  
  3021. [MOVE]CHANGE \  \;
  3022. [ROTATE]CHANGE \   \
  3023. [MOVE-ROT]CHANGE \ ;
  3024. [ROT-MOVE]CHANGE \   \ P   \;
  3025.  
  3026. [COPY]CB
  3027.  
  3028. [BLKscale](nl "" "/cci/blkscale");
  3029. [BLKrot](nl angblk "/cci/angblk")(angblk);
  3030. [XYZscale](nl xyzblk "/cci/xyzblk")(xyzblk);
  3031. [REDEFINE](nl redfblk "/cci/redfblk")(redfblk);
  3032. [REPLACE](nl "" "/cci/replblk");
  3033. [BSWAP](nl "" "/cci/bswap");
  3034. **CHCOLOR 3
  3035. [color]
  3036.  
  3037. [bylayer]BYLAYER;
  3038. [byblock]BYBLOCK;
  3039.  
  3040. [red]RED;
  3041. [yellow]YELLOW;
  3042. [green]GREEN;
  3043. [cyan]CYAN;
  3044. [blue]BLUE;
  3045. [magenta]MAGENTA;
  3046. [white]WHITE;
  3047.  
  3048. [seeCOLOR](setq temp (getstring "See slide for 16/256 colors <16>: "));\(if (/= temp "256")(command "vslide" (dd "/cci/cci(colors)"))(command "vslide" (dd "/cci/cci(chroma)")))(princ);color;\redraw;
  3049. **CHLT 3
  3050. [ltype]
  3051.  
  3052. [bylayer]BYLAYER;
  3053. [byblock]BYBLOCK;
  3054.  
  3055. [contin.]CONTINUOUS;
  3056. [dashed]DASHED;
  3057. [hidden]HIDDEN;
  3058. [center]CENTER;
  3059. [phantom]PHANTOM;
  3060. [dot]DOT;
  3061. [dashdot]DASHDOT;
  3062. [border]BORDER;
  3063. **COLOR 3
  3064. [COLOR:]^C^CCOLOR;
  3065.  
  3066. [bylayer]BYLAYER;
  3067. [byblock]BYBLOCK;
  3068.  
  3069. [red]RED;
  3070. [yellow]YELLOW;
  3071. [green]GREEN;
  3072. [cyan]CYAN;
  3073. [blue]BLUE;
  3074. [magenta]MAGENTA;
  3075. [white]WHITE;
  3076.  
  3077. [seeCOLOR](setq temp (getstring "See slide for 16/256 colors <16>: "));\(if (/= temp "256")(command "vslide" (dd "/cci/cci(colors)"))(command "vslide" (dd "/cci/cci(chroma)")))(princ);color;\redraw;
  3078. **ATTEDIT 3
  3079. [ATTEDIT:]^C^CATTEDIT;
  3080.  
  3081. [TXTVAL 1]*ATTEDIT     \ V  \;
  3082. [TXTVAL W]ATTEDIT     W \\VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \N VA  \;
  3083. [ANGLE0 1]*ATTEDIT     \ A 0  
  3084. [ANGLE0 W]ATTEDIT     W \\AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 +
  3085. N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 +
  3086. N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 
  3087. [ATT move]*ATTEDIT     \ P \ 
  3088. [ANG0 M 1]*ATTEDIT     \ A 0 P \ 
  3089. [ANG0 M W]ATTEDIT     W \\AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \+
  3090. N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \+
  3091. N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \
  3092. [Height]HEI;
  3093. [Angle]ANG;
  3094. [Layer]Lay;
  3095. [Color]$S=X $S=ATTCOLOR C;
  3096. [Style]Style;
  3097. [Next]Next;
  3098. [DDATTE]ddatte;
  3099. [NUMSHIFT](nl "" "/cci/numshift");
  3100. **ATTCOLOR 3
  3101. [color] 
  3102.  
  3103. [red]RED $S= $S=
  3104. [yellow]YELLOW $S= $S=
  3105. [green]GREEN $S= $S=
  3106. [cyan]CYAN $S= $S=
  3107. [blue]BLUE $S= $S=
  3108. [magenta]MAGENTA $S= $S=
  3109. [white]WHITE $S= $S=
  3110. **UCS1 2
  3111. [UCS:]^C^CUCS;
  3112. [DDUCS:]^C^CDDUCS
  3113. [UCSsetup](nl "" "/cci/ucssetup");
  3114. [Presets]^C^C$i=iucs $i=*
  3115. [Del]del;
  3116. [World]world;
  3117. [Previous]prev;
  3118. [New]New;
  3119. [Restore]restore;
  3120.  
  3121. [3P]3p;
  3122. [XRot]x;
  3123. [Yrot]y;
  3124. [Zrot]z;
  3125. [View]view;
  3126. [RENAME:]^C^CRename UCS;
  3127. [?]?;
  3128. **UCSICON 3
  3129. [UCSICON:]^C^CUCSICON;
  3130.  
  3131. [ON]on;
  3132. [OFF]off;
  3133.  
  3134. [All]all;
  3135. [Origin]origin;
  3136. [Noorigin]noorigin;
  3137. **PLAN 3
  3138. [PLAN:]^C^CPLAN;
  3139.  
  3140. [UCS]ucs;
  3141. [World]world;
  3142.  
  3143. ['Follow]'SETVAR UCSFOLLOW
  3144. **HANDLE 3
  3145. [HANDLES:]^C^CHANDLES;
  3146.  
  3147. [ON]ON;
  3148. [DESTROY]DESTROY;
  3149.  
  3150. [Status]Stat;
  3151. **MUNITS 2
  3152.  
  3153. [unit    ]
  3154. [type   ]
  3155.  
  3156.  
  3157. [SCIENTFC]1;
  3158.  
  3159. [DECIMAL ]2;
  3160.  
  3161. [ENGINRNG]3;
  3162.  
  3163.  
  3164.  
  3165.  
  3166.  
  3167.  
  3168.  
  3169.  
  3170.  
  3171. **MU2 2
  3172. [Metric  ]
  3173. [Decimal ]
  3174.  
  3175. [ 1:5000 ]5000.0;
  3176. [ 1:2000 ]2000.0;
  3177. [ 1:1000 ]1000.0;
  3178. [ 1:500  ]500.0;
  3179. [ 1:200  ]200.0;
  3180.  
  3181. [ 1:100  ]100.0;
  3182. [ 1:75   ]75.0;
  3183. [ 1:50   ]50.0;
  3184. [ 1:20   ]20.0;
  3185. [ 1:10   ]10.0;
  3186. [ 1:5    ]5.0;
  3187. [ 1:2    ]2.0;
  3188. [  FULL  ]1.0;
  3189.  
  3190. [OTHER  >]0;
  3191. **MU3 2
  3192.  
  3193. [enginrng]
  3194. [scale   ]
  3195.  
  3196.  
  3197. [ 1:50000]50000.0;
  3198. [ 1:20000]20000.0;
  3199. [ 1:10000]10000.0;
  3200. [ 1:7500 ]7500.0;
  3201.  
  3202. [ 1:5000 ]5000.0;
  3203. [ 1:2000 ]2000.0;
  3204. [ 1:1000 ]1000.0;
  3205. [ 1:500  ]500.0;
  3206. [ 1:200  ]200.0;
  3207.  
  3208.  
  3209. [OTHER  >]0;
  3210.  
  3211.  
  3212. **MP1 2
  3213. [plotter]
  3214. [ type ]
  3215.  
  3216. [calcomp]
  3217. [ 1043]2;$S=METRIC
  3218.  
  3219. [hewlett]
  3220. [packard]
  3221. [ 7470]3;$S=METRIC
  3222. [ 7475]3;$S=METRIC
  3223. [ 7585]4;$S=METRIC
  3224.  
  3225. [houston]
  3226. [instrum]
  3227. [DMP41/51]5;$S=METRIC
  3228. [DMP42/52]5;$S=METRIC
  3229.  
  3230. [NONE]0;$S=METRIC
  3231. [OTHER]0;$S=MTERIC
  3232. **UNITS 2
  3233.  
  3234. [unit    ]
  3235. [type   ]
  3236.  
  3237.  
  3238. [SCIENTFC]1;
  3239.  
  3240. [DECIMAL ]2;
  3241.  
  3242. [ENGINRNG]3;
  3243.  
  3244. [ARCHTECT]4;
  3245.  
  3246. [METRIC  ]5;
  3247.  
  3248.  
  3249.  
  3250.  
  3251.  
  3252.  
  3253. **U1 2
  3254.  
  3255. [scientfc]
  3256. [scale   ]
  3257.  
  3258.  
  3259. [4 TIMES ]4.0;
  3260.  
  3261. [2 TIMES ]2.0;
  3262.  
  3263. [FULL    ]1.0;
  3264.  
  3265. [HALF    ]0.5;
  3266.  
  3267. [QUARTER ]0.25;
  3268.  
  3269. [OTHER   ]0;
  3270.  
  3271.  
  3272.  
  3273.  
  3274. **U2 2
  3275. [decimal ]
  3276. [scale   ]
  3277.  
  3278. [8 TIMES ]0.125;
  3279.  
  3280. [4 TIMES ]0.25;
  3281.  
  3282. [2 TIMES ]0.5;
  3283.  
  3284. [FULL    ]1.0;
  3285.  
  3286. [ 3/4    ]1.5;
  3287.  
  3288. [ 1/2    ]2.0;
  3289.  
  3290. [ 1/4    ]4.0;
  3291.  
  3292. [ 1/8    ]8.0;
  3293.  
  3294. [OTHER  >]0;
  3295. **U3 2
  3296.  
  3297. [enginrng]
  3298. [scale   ]
  3299.  
  3300. [1"=10'  ]120.0;
  3301. [1"=20'  ]240.0;
  3302.  
  3303. [1"=30'  ]360.0;
  3304. [1"=40'  ]480.0;
  3305.  
  3306. [1"=50'  ]600.0;
  3307. [1"=60'  ]720.0;
  3308.  
  3309. [1"=80'  ]960.0;
  3310. [1"=100' ]1200.0;
  3311. [1"=200' ]2400.0;
  3312. [1"=300' ]3600.0;
  3313.  
  3314. [OTHER  >]0;
  3315.  
  3316. **U4 2
  3317. [archtect]
  3318. [1/64"=1']768.0;
  3319. [1/40"=1']480.0;
  3320. [1/32"=1']384.0;
  3321. [1/20"=1']240.0;
  3322. [1/16"=1']192.0;
  3323. [3/32"=1']128.0;
  3324. [ 1/8"=1']96.0;
  3325. [3/16"=1']64.0;
  3326. [ 1/4"=1']48.0;
  3327. [ 3/8"=1']32.0;
  3328. [ 1/2"=1']24.0;
  3329. [ 3/4"=1']16.0;
  3330. [   1"=1']12.0;
  3331. [1-1/2"=1]8.0;
  3332. [   3"=1']4.0;
  3333. [   6"=1']2.0;
  3334. [  FULL  ]1.0;
  3335. [1"=n']$S=X $S=U3
  3336. [OTHER  >]0;
  3337. **U5 2
  3338.  
  3339. [metric  ]
  3340.  
  3341. [ 1:5000 ]5000.0;
  3342. [ 1:2000 ]2000.0;
  3343. [ 1:1000 ]1000.0;
  3344. [ 1:500  ]500.0;
  3345. [ 1:200  ]200.0;
  3346.  
  3347. [ 1:100  ]100.0;
  3348. [ 1:75   ]75.0;
  3349. [ 1:50   ]50.0;
  3350. [ 1:20   ]20.0;
  3351. [ 1:10   ]10.0;
  3352. [ 1:5    ]5.0;
  3353. [  FULL  ]1.0;
  3354.  
  3355. [OTHER  >]0;
  3356.  
  3357.  
  3358. **P1 2
  3359. [plotter]
  3360. [ type ]
  3361.  
  3362. [calcomp]
  3363. [ 1043]2;$S=P2
  3364.  
  3365. [hewlett]
  3366. [packard]
  3367. [ 7470]3;$S=P3
  3368. [ 7475]3;$S=P3
  3369. [ 7585]4;$S=P4
  3370. [Draftpro]4;$S=p4
  3371.  
  3372. [houston]
  3373. [instrum]
  3374. [DMP41/51]5;$S=P5
  3375. [DMP42/52]5;$S=P5
  3376.  
  3377. [NONE]0;$S=ENGLISH
  3378.  
  3379. **P2 2
  3380. [ calcomp]
  3381. [  1043]
  3382. [ sheet  ]
  3383. [ size   ]
  3384.  
  3385.  
  3386. [A-8x10.5]10.5 8.0;
  3387. [B- 10x16]16.0 10.0;
  3388. [C- 16x21]21.0 16.0;
  3389. [D- 21X33]33.0 21.0;
  3390. [E- 33x43]43.0 33.0;
  3391.  
  3392. [36x64.5]64.5 36.0;
  3393.  
  3394.  
  3395. [OTHER  >]0 0;
  3396.  
  3397.  
  3398.  
  3399. **P3 2
  3400. [ h p ]
  3401.  
  3402. [ sheet  ]
  3403. [ size   ]
  3404.  
  3405. [ 7470]
  3406. [A-7.5x10]10.125 7.775;
  3407.  
  3408.  
  3409. [ 7475]
  3410. [A-8x10.5]10.125 7.775;
  3411. [B- 10x16]16.29 10.15;
  3412.  
  3413.  
  3414. [OTHER  >]0 0;
  3415.  
  3416.  
  3417.  
  3418.  
  3419. **P4 2
  3420.  
  3421. [ h p]
  3422.  
  3423. [ sheet  ]
  3424. [ size   ]
  3425.  
  3426.  
  3427. [A-8x10.5]10.5 8.0;
  3428. [B- 10x16]16.0 10.0;
  3429. [C- 16x21]21.0 16.0;
  3430. [D- 21X33]33.0 21.0;
  3431. [E- 33x43]43.0 33.0;
  3432.  
  3433. [35x44.7]44.72 35.31;
  3434.  
  3435.  
  3436. [OTHER  >]0 0;
  3437.  
  3438.  
  3439.  
  3440. **P5 2
  3441. [  h i  ]
  3442. [sht size]
  3443. [41 - 51]
  3444. [A-8.5x11]11.0 8.5;
  3445. [B- 11x17]17.0 11.0;
  3446. [C- 16x21]21.0 16.0;
  3447. [D- 20X32]32.0 20.0;
  3448. [42 ]
  3449. [A-8.5x11]11.0 8.5;
  3450. [B- 11x17]17.0 11.0;
  3451. [C- 16x21]21.0 16.0;
  3452. [D- 21x31]31.0 21.5;
  3453. [52 ]
  3454. [A-8.5x11]11.0 8.5;
  3455. [B- 11x17]17.0 11.0;
  3456. [C- 16x21]21.0 16.0;
  3457. [D- 21x33]33.0 21.0;
  3458. [21.5x34]34.0 21.5;
  3459. [OTHER  >]0 0;
  3460.  
  3461. **ENGLISH 2
  3462.  
  3463. [ sheet  ]
  3464. [ size   ]
  3465.  
  3466.  
  3467. [A-8.5x11]11.0 8.5;
  3468. [B- 11x17]17.0 11.0;
  3469. [C- 22x34]34.0 22.0;
  3470. [   18x24]24.0 18.0;
  3471.  
  3472. [D- 24X36]36.0 24.0;
  3473. [   30x42]42.0 30.0;
  3474.  
  3475. [E- 36x42]42.0 36.0;
  3476.  
  3477.  
  3478. [OTHER  >]0 0;
  3479.  
  3480.  
  3481. **METRIC 2
  3482.  
  3483.  
  3484. [ sheet  ]
  3485. [ size   ]
  3486.  
  3487.  
  3488. [1189x841]1189.0 841.0;
  3489. [1000x707]1000.0 707.0;
  3490. [ 841x594]841.0 594.0;
  3491.  
  3492. [ 594x420]594.0 420.0;
  3493. [ 420x297]420.0 297.0;
  3494. [ 297x210]297.0 210.0;
  3495.  
  3496.  
  3497. [OTHER  >]0 0;
  3498.  
  3499.  
  3500.  
  3501.  
  3502.  
  3503. **EXCOMDS 3
  3504. [external]
  3505. [commands]
  3506.  
  3507. [CATALOG]CATALOG;
  3508. [DEL:]DEL;
  3509. [DIR:]DIR;
  3510. [EDIT:]EDIT;
  3511. [SH:]SH;
  3512. [SHELL:]SHELL;
  3513. [TYPE:]TY;
  3514. **LISP 3
  3515. [LISPLOAD]lsp;
  3516. [SAVE pt1](SETQ PT1 (GETPOINT "Digitize point to save: "));
  3517. [SAVE pt2](SETQ PT2 (GETPOINT "Digitize point to save: "));
  3518. [USE  pt1]!PT1;
  3519. [USE  pt2]!PT2;
  3520.  
  3521. [ENTLIST](nl entss "/cci/entlist")(entss);
  3522. [XYDATA](nl "" "/cci/xydata");
  3523. [MAKENEW](nl "" "/cci/makenew");
  3524. [GLUE](nl "" "/cci/glue");
  3525. [JOINMORE](nl "" "/cci/joinmore");
  3526. [SLOPE](nl "" "/cci/slope");
  3527. [ANGCALC](nl c:angcalc "/cci/angcalc");
  3528. [LIBRARY](nl "" "/cci/library");
  3529. [ALLSNAP](nl "" "/cci/allsnap");
  3530. **ENTLIST
  3531. [entity]
  3532. [ types]
  3533.  
  3534. [LINE]LINE;
  3535. [ARC]ARC;
  3536. [CIRCLE]CIRCLE;
  3537. [POLYLINE]POLYLINE;
  3538. [POINT]POINT;
  3539. [SOLID]SOLID;
  3540. [TEXT]TEXT;
  3541. [BLOCK]INSERT;
  3542. [INSERT]INSERT;
  3543. [DIM]DIMENSION;
  3544. [3DFACE]3DFACE;
  3545.  
  3546. **TIME 3
  3547. [TIME]TIME;
  3548.  
  3549. [TIMEMGR](nl timelog "/cci/time")(timelog):
  3550. [TIMEMOD](nl "" "/cci/timemod");
  3551.  
  3552. [DRAWMAN](nl c:login "/cci/drawman");
  3553. [ LOGON](nl c:login "/cci/drawman") logon;
  3554. [ LOGOUT](nl c:login "/cci/drawman") logout;
  3555. [ END](nl c:login "/cci/drawman") end;
  3556. [ RLIST](nl c:login "/cci/drawman") rlist;
  3557. [ FINGER](nl c:login "/cci/drawman") finger;
  3558. [ SELUSER](nl c:login "/cci/drawman") seluser;
  3559. [ SELECO](nl c:login "/cci/drawman") seleco;
  3560. **BALLOON 2
  3561. [BALLOON](nl c:balloon "/cci/balloon") balloon;
  3562. [*icon*]$s=x $s=balloon $i=iballoon $i=*
  3563.  
  3564. [LEADER](nl c:leadr "/cci/leadr") leadr;
  3565. [ARCLEAD](nl c:arclead "/cci/arclead") arclead;
  3566. [LOOPLEAD](nl c:looplead "/cci/looplead") looplead;
  3567. [LEADTEXT](nl c:leadtext "/cci/leadtext") leadtext;
  3568. [LEADDTXT](nl c:leaddtxt "/cci/leaddtxt") leaddtxt;
  3569.  
  3570. [set vars]
  3571. [ARROWS](princ "Pointer type set to ARROWS ")(SETQ BUBTYP "A")(princ);
  3572. [DOTS](princ "Pointer type set to DOTS ")(SETQ BUBTYP "D")(princ);
  3573. [TICKS](princ "Pointer type set to TICKS ")(SETQ BUBTYP "T")(princ);
  3574. [NONE](princ "Pointer type set to NONE ")(SETQ BUBTYP "N")(princ);
  3575. [reset]
  3576. [TXTSTYLE](setq bubsty nil)(princ " RESETTING TEXT STYLE ")(princ);
  3577. [ARSIZE](setq asize nil)(PRINC " RESETTING ARROW SIZE ")(PRINC);
  3578. [SYM SIZE](setq bbub nil)(PRINC " RESETTING SYMBOL SIZE ")(PRINC);
  3579. **INSYM 3
  3580. [symbol]
  3581. [*icon*]$i=iinsym $i=*
  3582.  
  3583. [--/--](SETQ insfl (strcat drive "/cci/line145") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(nl "" "/cci/symbol")(PRINC);
  3584. [--//--](SETQ insfl (strcat drive "/cci/line245") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(princ) (nl "" "/cci/symbol")(PRINC);
  3585. [--///--](SETQ insfl (strcat drive "/cci/line345") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(princ) (nl "" "/cci/symbol")(PRINC);
  3586. [--|--](SETQ insfl (strcat drive "/cci/line190") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(nl "" "/cci/symbol")(PRINC);
  3587. [--||--](SETQ insfl (strcat drive "/cci/line290") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(princ) (nl "" "/cci/symbol")(PRINC);
  3588. [--|||--](SETQ insfl (strcat drive "/cci/line390") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(princ) (nl "" "/cci/symbol")(PRINC);
  3589. [--\--](SETQ insfl (strcat drive "/cci/line1135") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(nl "" "/cci/symbol")(PRINC);
  3590. [--\\--](SETQ insfl (strcat drive "/cci/line2135") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(princ) (nl "" "/cci/symbol")(PRINC);
  3591. [--\\\--](SETQ insfl (strcat drive "/cci/line3135") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(princ) (nl "" "/cci/symbol")(PRINC);
  3592. [-X-X-X-](SETQ insfl (strcat drive "/cci/linex") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "A" angtpt T)(princ) (nl "" "/cci/symbol")(PRINC);
  3593. [DOT](SETQ insfl (strcat drive "/cci/dot") ANG 0 attfl "N" ANGT T insflt T BREAKT T BREAK "N" angtp "C" angtpt T)(princ) (nl "" "/cci/symbol")(PRINC);
  3594. [BALLOON](SETQ insfl (strcat drive "/cci/ballsym") ANG 0 attfl "Y" ATTNO 1 BREAKT T BREAK "Y" insflt T)(nl "" "/cci/symbol")(PRINC);
  3595. [OTHER](nl "" "/cci/symbol");
  3596. [RESETSIZ](princ "Resetting SYMBOL size ")(setq size1 nil ang nil)(princ);
  3597. **CALCULATOR 3
  3598. [Calc](nl calc "/cci/calc")(calc);
  3599.  
  3600. [Mem] M 
  3601. [Recl]R 
  3602. [x2] SQ  
  3603. [Sqrt] SR  
  3604. [Clear] C 
  3605.  
  3606. [ /] / 
  3607. [ *] * 
  3608. [ -] - 
  3609. [ +] + 
  3610.  
  3611. [= (done)] = 
  3612. ***TABLET1
  3613. [A1]
  3614. [A2]
  3615. [A3]
  3616. [A4]
  3617. [A5]
  3618. [A6]
  3619. [A7]
  3620. [A8]
  3621. [A9]
  3622. [A10]
  3623. [A11]
  3624. [A12]
  3625. [A13]
  3626. [A14]
  3627. [A15]
  3628. [A16]
  3629. [A17]
  3630. [A18]
  3631. [A19]
  3632. [A20]
  3633. [A21]
  3634. [A22]
  3635. [A23]
  3636. [A24]
  3637. [A25]
  3638. [B1]
  3639. [B2]
  3640. [B3]
  3641. [B4]
  3642. [B5]
  3643. [B6]
  3644. [B7]
  3645. [B8]
  3646. [B9]
  3647. [B10]
  3648. [B11]
  3649. [B12]
  3650. [B13]
  3651. [B14]
  3652. [B15]
  3653. [B16]
  3654. [B17]
  3655. [B18]
  3656. [B19]
  3657. [B20]
  3658. [B21]
  3659. [B22]
  3660. [B23]
  3661. [B24]
  3662. [B25]
  3663. [C1]
  3664. [C2]
  3665. [C3]
  3666. [C4]
  3667. [C5]
  3668. [C6]
  3669. [C7]
  3670. [C8]
  3671. [C9]
  3672. [C10]
  3673. [C11]
  3674. [C12]
  3675. [C13]
  3676. [C14]
  3677. [C15]
  3678. [C16]
  3679. [C17]
  3680. [C18]
  3681. [C19]
  3682. [C20]
  3683. [C21]
  3684. [C22]
  3685. [C23]
  3686. [C24]
  3687. [C25]
  3688. [D1]
  3689. [D2]
  3690. [D3]
  3691. [D4]
  3692. [D5]
  3693. [D6]
  3694. [D7]
  3695. [D8]
  3696. [D9]
  3697. [D10]
  3698. [D11]
  3699. [D12]
  3700. [D13]
  3701. [D14]
  3702. [D15]
  3703. [D16]
  3704. [D17]
  3705. [D18]
  3706. [D19]
  3707. [D20]
  3708. [D21]
  3709. [D22]
  3710. [D23]
  3711. [D24]
  3712. [D25]
  3713. [E1]
  3714. [E2]
  3715. [E3]
  3716. [E4]
  3717. [E5]
  3718. [E6]
  3719. [E7]
  3720. [E8]
  3721. [E9]
  3722. [E10]
  3723. [E11]
  3724. [E12]
  3725. [E13]
  3726. [E14]
  3727. [E15]
  3728. [E16]
  3729. [E17]
  3730. [E18]
  3731. [E19]
  3732. [E20]
  3733. [E21]
  3734. [E22]
  3735. [E23]
  3736. [E24]
  3737. [E25]
  3738. [F1]
  3739. [F2]
  3740. [F3]
  3741. [F4]
  3742. [F5]
  3743. [F6]
  3744. [F7]
  3745. [F8]
  3746. [F9]
  3747. [F10]
  3748. [F11]
  3749. [F12]
  3750. [F13]
  3751. [F14]
  3752. [F15]
  3753. [F16]
  3754. [F17]
  3755. [F18]
  3756. [F19]
  3757. [F20]
  3758. [F21]
  3759. [F22]
  3760. [F23]
  3761. [F24]
  3762. [F25]
  3763. [G1]
  3764. [G2]
  3765. [G3]
  3766. [G4]
  3767. [G5]
  3768. [G6]
  3769. [G7]
  3770. [G8]
  3771. [G9]
  3772. [G10]
  3773. [G11]
  3774. [G12]
  3775. [G13]
  3776. [G14]
  3777. [G15]
  3778. [G16]
  3779. [G17]
  3780. [G18]
  3781. [G19]
  3782. [G20]
  3783. [G21]
  3784. [G22]
  3785. [G23]
  3786. [G24]
  3787. [G25]
  3788. [H1]
  3789. [H2]
  3790. [H3]
  3791. [H4]
  3792. [H5]
  3793. [H6]
  3794. [H7]
  3795. [H8]
  3796. [H9]
  3797. [H10]
  3798. [H11]
  3799. [H12]
  3800. [H13]
  3801. [H14]
  3802. [H15]
  3803. [H16]
  3804. [H17]
  3805. [H18]
  3806. [H19]
  3807. [H20]
  3808. [H22]
  3809. [H21]
  3810. [H23]
  3811. [H24]
  3812. [H25]
  3813. [I1]$s=x $s=3d
  3814. [I2]$s=x $s=3d
  3815. [I3]$s=x $s=3d
  3816. [I4]$s=x $s=3d
  3817. [I5]$s=x $s=3d
  3818. [I6]$s=x $s=3d
  3819. [I7]
  3820. [I8]
  3821. [I9]$s=x $s=ds
  3822. [I10]$s=x $s=dr
  3823. [I11]
  3824. [I12]
  3825. [I13]
  3826. [I14]
  3827. [I15]
  3828. [I16]
  3829. [I17]
  3830. [I18]
  3831. [I19]
  3832. [I20]
  3833. [I21]
  3834. [I22]
  3835. [I23]
  3836. [I24](nl calc "/cci/calc")(calc);
  3837. [I25](nl calc "/cci/calc")(calc);
  3838.  
  3839. ***TABLET2
  3840. [J1]hide;
  3841. [J2]vpoint;;
  3842. [J3]$s=x $s=3dthick
  3843. [J4]^C^C$s=x $s=ucs1 ucs;
  3844. [J5]^C^Cucs prev;
  3845. [J6]^C^Cucs view;
  3846. [J7]
  3847. [J8]
  3848. [J9]'zoom w;
  3849. [JI0]^c^c$s=x $s=line line;
  3850. [J11](nl zooma "/cci/zooma")(zooma);
  3851. [K1]$s=x $s=vp3d $i=i3dviews $i=*
  3852. [K2](nl c:cone "/cci/3d") $s=x $s=3dobject $i=i3dobjects $i=*
  3853. [K3]$s=x $s=3dlisp
  3854. [K4](if (null dvfn)(defun dvfn ()(princ " Dview select objects: ")(menucmd "s=x")(menucmd "s=dview")(command "select" "auto" pause)(command "dview" "p" "")(menucmd "s=x")(menucmd "s=dview1")(princ))) (dvfn);
  3855. [K5]^c^c$s=x $s=ucsicon ucsicon;
  3856. [K6]plan;
  3857. [K7]
  3858. [K8]
  3859. [K9]'zoom c;
  3860. [K10]^c^c$s=x $s=pline pline;
  3861. [K11]'redraw;
  3862. [L1]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade light;
  3863. [L2]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade camera;
  3864. [L3]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade scene;
  3865. [L4]$s=x $s=3dface 3dface;
  3866. [L5]$s=x $s=3dsurf $i=isurf $i=*
  3867. [L6]$s=x $s=3dpoly 3dpoly;
  3868. [L7]
  3869. [L8](nl off "/cci/off")(off) \
  3870. [L9]'zoom d;
  3871. [L10]^c^c$s=x $s=arc
  3872. [L11]'redraw;
  3873. [M1]$s=x $s=view
  3874. [M2]$s=x $s=view
  3875. [M3]$s=x $s=view
  3876. [M4]$s=x $s=view
  3877. [M5]$s=x $s=view
  3878. [M6]$s=x $s=view
  3879. [M7]$s=x $s=view
  3880. [M8](nl mid "/cci/mid")(mid) \
  3881. [M9]'zoom a;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  3882. [M10]^C^C$S=X $S=CIRCLE circle;
  3883. [M11]'redraw;
  3884. [N1]'view ? 'view s;
  3885. [N2]'view ? 'view r;
  3886. [N3](nl "" "/cci/views")(princ "Setup Completed ")(princ);
  3887. [N4]'view r 1;
  3888. [N5]'view r 2;
  3889. [N6]'zoom 2x;
  3890. [M7]
  3891. [N8](nl int "/cci/int")(int) \
  3892. [N9]'zoom p;
  3893. [N10]^c^c$s=x $s=ellipse ellipse;
  3894. [N11]'redraw;
  3895. [O1]^C^C$s=x $s=vports $i=ivporti $i=*
  3896. [O2](nl "" "/cci/zmscale");
  3897. [O3]'view r all;
  3898. [O4]'view r 3;
  3899. [O5]'view r 4;
  3900. [O6]'zoom .5x;
  3901. [O7]
  3902. [O8].x @;
  3903. [O9]'zoom e;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  3904. [O10]^c^c$s=x $s=polygon polygon;
  3905. [O11]'redraw;
  3906. [P1]$s=x $s=block
  3907. [P2]$s=x $s=block
  3908. [P3]$s=x $s=attcontrol
  3909. [P4]$s=x $s=layer
  3910. [P5]$s=x $s=layer
  3911. [P6]$s=x $s=layer
  3912. [P7]
  3913. [P8].y @;
  3914. [P9]'zoom;
  3915. [P10]^c^c$s=x $s=point point;
  3916. [P11]'redraw;
  3917. [Q1]$s=x $s=block block;
  3918. [Q2]$s=x $s=insert insert;
  3919. [Q3]$s=x $s=attdef attdef;
  3920. [Q4](if (= sdscrn "Y")(progn (setq lalist (gettable "LAYER" ""))(LAYERS "S" lalist))(progn (princ (strcat " New current Layer <"(getvar "clayer")">: "))(command "LAYER" "S" pause "")))(PRINC);
  3921. [Q5](if (= sdscrn "Y")(progn (princ " Layer to turn ON ")(setq lalist (gettable "LAYER" "ON"))(if (null lalist)(princ " All Layer(s) are ON "))(LAYERS "ON" lalist))(progn (princ " Layer(s) to turn ON <done>: ")(command "layer" "on" pause "")))(PRINC);
  3922. [Q6](if (= sdscrn "Y")(progn (princ " Layer to turn OFF ")(setq lalist (gettable "LAYER" "OFF"))(if (null lalist)(princ " All Layer(s) are OFF "))(LAYERS "OFF" lalist))(progn (princ " Layer(s) to turn OFF <done>: ")(command "layer" "off" pause "")))(PRINC);
  3923. [Q7]
  3924. [Q8].z @;
  3925. [Q9]'pan;
  3926. [Q10]$s=x $s=sketch sketch;
  3927. [Q11]'redraw;
  3928. [R2]$s=x $s=wblock (setq temp (strcase (getvar "dwgname")))(princ " WBLOCK File name <")(princ temp)(princ ">: ")(setq temp1 (strcase (getstring " ")))(if (= temp1 "")(progn (command "wblock" temp)(princ))(progn (command "wblock" temp1)(princ)))
  3929. [R2](if (null sdscrn)(setq sdscrn "Y" scrtog 't))(if sdscrn (setq bklist (gettable "BLOCK" ""))(setq bklist '("")))(princ)(princ "Pick BLOCK name to insert: ")(princ) +
  3930. (if (not (member nil bklist))(LAYERS "B" bklist)(princ "No BLOCKS Found"))(if scrtog (setq sdsrcn nil scrtog nil))(princ);
  3931. [R3]$s=x $s=attedit attedit;
  3932. [R4](nl "" "/cci/layerset");
  3933. [R5](nl "" "/cci/layerfrz");
  3934. [R6](if (= sdscrn "Y")(progn (princ " Layer to THAW ")(setq lalist (gettable "LAYER" "T"))(if (null lalist)(princ " All Layer(s) are THAWED "))(LAYERS "T" lalist))(progn (princ " Layer(s) to THAW <done>: ")(command "layer" "t" pause "")))(PRINC);
  3935. [R7]
  3936. [R8]
  3937. [R9](nl "" "/cci/zoomin");
  3938. [R10]^c^c$s=x $s=hatch hatch;
  3939. [R11]redrawall;
  3940. ***TABLET3
  3941.  
  3942.  
  3943.  
  3944. 135;
  3945. 135;
  3946. 90;
  3947. 90;
  3948. 45;
  3949. 45;
  3950.  
  3951.  
  3952.  
  3953. 180;
  3954. 180;
  3955. <
  3956. <
  3957. 0;
  3958. 0;
  3959.  
  3960.  
  3961.  
  3962. 225;
  3963. 225;
  3964. 270;
  3965. 270;
  3966. 315;
  3967. 315;
  3968.  
  3969.  
  3970.  
  3975. (nl at-angle "/cci/at-angle")(at-angle);
  3976. (nl at-angle "/cci/at-angle")(at-angle);
  3977.  
  3978.  
  3979.  
  3980. 7/8;
  3981. 7/8;
  3982. /16
  3983. /16
  3984. /32
  3985. /32
  3986.  
  3987.  
  3988.  
  3989. 1/2
  3990. 1/2
  3991. 5/8
  3992. 5/8
  3993. 3/4
  3994. 3/4
  3995.  
  3996.  
  3997.  
  3998. 1/8
  3999. 1/8
  4000. 1/4
  4001. 1/4
  4002. 3/8
  4003. 3/8
  4004.  
  4005.  
  4006.  
  4007. -
  4008. -
  4009. /
  4010. /
  4011. x
  4012. x
  4013.  
  4014.  
  4015.  
  4016. @
  4017. @
  4018. '
  4019. '
  4020. "
  4021. "
  4022.  
  4023.  
  4024.  
  4025. 7
  4026. 7
  4027. 8
  4028. 8
  4029. 9
  4030. 9
  4031.  
  4032.  
  4033.  
  4034. 4
  4035. 4
  4036. 5
  4037. 5
  4038. 6
  4039. 6
  4040.  
  4041.  
  4042.  
  4043. 1
  4044. 1
  4045. 2
  4046. 2
  4047. 3
  4048. 3
  4049.  
  4050.  
  4051.  
  4052. 0
  4053. 0
  4054. .
  4055. .
  4056. ,
  4057. ,
  4058. ***TABLET4
  4059. [S1]$s=x $s=inq
  4060. [S2]$s=x $s=inq
  4061. [S3]$s=x $s=inq
  4062. [S4]$s=x $s=inq
  4063. [S5]$s=x $s=inq
  4064. [S6]$s=x $s=inq
  4065. [S7]
  4066. [S8]$s=x $s=style style;
  4067. [S9]$s=x $s=text ^c^c$t4=text1 $t4=text2 text;
  4068. [S10]$s=x $s=dtext ^c^c$t4=dtext1 $t4=dtext2 dtext;
  4069. [S11]
  4070. [S12]$s=x $s=osnapc
  4071. [S13]$s=x $s=osnapc
  4072. [S14]$s=x $s=osnapc
  4073. [S15]$s=x $s=osnapc
  4074. [S16]$s=x $s=osnapc
  4075. [S17]$s=x $s=osnapc
  4076. [S18]$s=x $s=osnapc
  4077. [S19]$s=x $s=osnapc
  4078. [S20]$s=x $s=osnapc
  4079. [S21]$s=x $s=osnapc
  4080. [S22]$s=x $s=osnapc
  4081. [S23]
  4082. [S24]$s=x $s=ut
  4083. [S25]$s=x $s=ut
  4084. [T1]$s=x $s=time
  4085. [T2]^c^cid;
  4086. [T3]status;
  4087. [T4]^c^c$s=x $s=list list;
  4088. [T5]^c^c$s=x $s=dist dist;
  4089. [T6]^c^c$s=x $s=area area;
  4090. [T7]
  4091. [T8]$s=x $s=text ^c^ctext;
  4092. [T9]$s=x $s=text ^c^ctext c;
  4093. [T10]$s=x $s=text ^c^ctext r;
  4094. [T11]
  4095. [T12]none;
  4096. [T13]cent;
  4097. [T14]endp;
  4098. [T15]ins;
  4099. [T16]int;
  4100. [T17]mid;
  4101. [T18]near;
  4102. [T19]node;
  4103. [T20]perp;
  4104. [T21]quad;
  4105. [T22]tan;
  4106. [T23]
  4107. [T24](setq usecnt 0);(princ);save;
  4108. [T25]$s=x $s=purge purge;
  4109. [U1]$s=x $s=dim (lays dimlayv) dim;
  4110. [U2]$s=x $s=dim (lays dimlayv) dim;
  4111. [U3]$s=x $s=dim (lays dimlayv) dim;
  4112. [U4]$s=x $s=dim (lays dimlayv) dim1;
  4113. [U5]$s=x $s=dim (lays dimlayv) dim1;
  4114. [U6]$s=x $s=dim (lays dimlayv) dim1;
  4115. [U7]
  4116. [U8]$s=x $s=text ^c^ctext a;
  4117. [U9]$s=x $s=text ^c^ctext m;
  4118. [U10]$s=x $s=text ^c^ctext f;
  4119. [U11]
  4120. [U12]
  4121. [U13]$s=x $s=undo undo;
  4122. [U14]redo;
  4123. [U15](ssget "w" (getvar "extmin")(getvar "extmax"));
  4124. [U16]M;
  4125. [U17]W;
  4126. [U18]L;
  4127. [U19]P;
  4128. [U20]C;
  4129. [U21]R;
  4130. [U22]A;
  4131. [U23]
  4132. [U24](nl "" "/cci/end")(end);
  4133. [U25]$s=x $s=quit quit;
  4134. [V1](if (= (getvar "dimtih") 0)(progn (setvar "dimtih" 1)(setvar "dimtoh" 1)(princ " Dim Text inside & outside extensions will be HORZ "))(progn (setvar "dimtih" 0)(setvar "dimtoh" 0)(princ " Dim Text inside & outside extensions will be normal ")))(princ);
  4135. [V2](if (= (getvar "dimtad") 0)(progn (setvar "dimtad" 1)(princ " Dim Text will be above extension line "))(progn (setvar "dimtad" 0)(princ " Dim Text will be inside extension line ")))(princ);
  4136. [V3](if (= (getvar "dimsoxd") 0)(progn (setvar "dimsoxd" 1)(setvar "dimtix" 1)(princ " Text & Arrows Forced Inside extension lines. "))(progn (setvar "dimsoxd" 0)(setvar "dimtix" 0)(princ " Text & Arrows will be normal. ")))(princ);
  4137. [V4](setq temp (strcase (getstring " Set 1/2/Both pointer types <B>: "))) \(princ);(cond ((or (= temp "B")(= temp ""))(menucmd "i=idimpoint")(menucmd "i=*"))((= temp "1")(menucmd "i=idimpoint1")(menucmd "i=*"))((= temp "2")(menucmd "i=idimpoint2")(menucmd "i=*")))(princ);
  4138. [V5]dim dimzin $i=idimzin $i=*
  4139. [V6]$s=x $s=format
  4140. [V7]
  4141. [V8]$s=x $s=set
  4142. [V9]$s=x $s=set
  4143. [V10]$s=x $s=set
  4144. [V11]
  4145. [V12]$s=x $s=ed
  4146. [V13]$s=x $s=ed
  4147. [V14]$s=x $s=ed
  4148. [V15]$s=x $s=ed
  4149. [V16]$s=x $s=ed
  4150. [V17]$s=x $s=ed
  4151. [V18]$s=x $s=ed
  4152. [V19]$s=x $s=ed
  4153. [V20]$s=x $s=ed
  4154. [V21]$s=x $s=ed
  4155. [V22]$s=x $s=ed
  4156. [V23]
  4157. [V24]files;
  4158. [V25]$s=x $s=attext
  4159. [W1](nl "" "/cci/dimext");
  4160. [W2](if (= (getvar "dimtol") 0)(progn (setvar "dimtol" 1)(princ "Dim tolerances are turned ON"))(progn (setvar "dimtol" 0)(princ "Dim tolerances are turned OFF")))(princ);
  4161. [W3](if (= (getvar "dimlim") 0)(progn (setvar "dimlim" 1)(princ "Dim limits are turned ON"))(progn (setvar "dimlim" 0)(princ "Dim limits are turned OFF")))(princ);
  4162. [W4](if (= (getvar "dimalt") 0)(progn (setvar "dimalt" 1)(princ "Alternate dim are turned ON"))(progn (setvar "dimalt" 0)(princ "Alternate dim is turned OFF")))(princ);
  4163. [W5]^c^cdim dimtp;
  4164. [W6]dim dimtm;
  4165. [W7]
  4166. [W8]$s=x $s=style style;
  4167. [W9]$i=isnaprot $i=*
  4168. [W10](if metric (progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);grid;
  4169. [W11]
  4170. [W12]^c^c$s=x $s=scale scale auto;
  4171. [W13]^c^c$s=x $s=rotate rotate auto;
  4172. [W14]^c^c$s=x $s=offset offset;
  4173. [W15]^c^c$s=x $s=move move auto;
  4174. [W16]^c^c$s=x $s=erase e;
  4175. [W17]^cel;
  4176. [W18]oops;
  4177. [W19]^C^C(nl c:peditm "/cci/peditm") peditm;
  4178. [W20]$s=x $s=explode explode;
  4179. [W21]$s=x $s=array select auto \array p  ;
  4180. [W22]$s=x $s=divide divide;
  4181. [W23]
  4182. [W24]^c^c$s=x $s=plot
  4183. [W25]$s=x $s=slides
  4184. [X1]$s=x $s=var1
  4185. [X2]$s=x $s=dim $i=iballoon $i=*
  4186. [X3]^c^c$s=x $s=dimlinear dim base;
  4187. [X4]^c^c$s=x $s=dimlinear dim contin;
  4188. [X5]^c^c$s=x $s=dimlinear dim vert;
  4189. [X6]^c^c$s=x $s=dimlinear dim horiz;
  4190. [X7]
  4191. [X8](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))(progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))
  4192. [X9]$s=x $s=set2
  4193. [X10]$s=x $s=snapset 'setvar snapunit
  4194. [X11]
  4195. [X12]^c^c$s=x $s=mirror mirror auto;
  4196. [X13]^c^cbk;
  4197. [X14]^c^c$s=x $s=break break \f \@;
  4198. [X15]^c^c$s=x $s=copy copy auto;
  4199. [X16]^c^c$s=x $s=extend extend;
  4200. [X17]^c^cst;
  4201. [X18]^c^c$s=x $s=trim trim auto;
  4202. [X19]^c^c$s=x $s=fillet fillet r 0;;
  4203. [X20]^c^c$s=x $s=fillet fillet;
  4204. [X21]^c^c$s=x $s=chamfer chamfer;
  4205. [X22]$s=x $s=measure measure;
  4206. [X23]
  4207. [X24]$s=x $s=script script;
  4208. [X25]menu menu;
  4209. [Y1]$s=x $s=dim dim center;
  4210. [Y2]$s=x $s=dim dim radius;
  4211. [Y3]$s=x $s=dim dim diameter;
  4212. [Y4]$s=x $s=dim dim angular;
  4213. [Y5]^c^c$s=x $s=dimlinear dim rotated;
  4214. [Y6]^c^c$s=x $s=dimlinear dim aligned;
  4215. [Y7]
  4216. [Y8](if (= (getvar "lunits") 2)(progn (setvar "lunits" 4)(prompt "Units Architectural")(princ))(progn (setvar "lunits" 2)(prompt "Units Decimal")(princ)))
  4217. [Y9](if (= (getvar "highlight") 1)(progn (setvar "highlight" 0)(prompt "Highlight OFF")(princ))(progn (setvar "highlight" 1)(prompt "Highlight ON")(princ)))
  4218. [Y10]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
  4219. [Y11]
  4220. [Y12]^c^c$s=x $s=change change auto;
  4221. [Y13]$s=x $s=chgblk
  4222. [Y14](if (/= sdscrn "Y")(nl "" "/cci/chlay")(nl "" "/cci/chlays"))(princ) chlay;
  4223. [Y15]select auto \change p  e;
  4224. [Y16]$s=x $s=chprop select auto \chprop;p;;
  4225. [Y17]$s=x $s=changetxt select auto \change p  ;
  4226. [Y18](nl c:chgtext "/cci/chgtext") chgtext;
  4227. [Y19](nl "" "/cci/fradpick");
  4228. [Y20]$s=x $s=copy select auto \copy p  m;
  4229. [Y21](nl "" "/cci/glue");
  4230. [Y22](nl ssx "/cci/ssx")(ssx);
  4231. [Y23]
  4232. [Y24]$s=x $s=excomds
  4233. [Y25]$s=x $s=dxf
  4234. **DTEXT1 33
  4235. $s=x $s=dtext ^c^cdtext;
  4236. $s=x $s=dtext ^c^cdtext c;
  4237. $s=x $s=dtext ^c^cdtext r;
  4238. **DTEXT2 58
  4239. $s=x $s=dtext ^c^cdtext a;
  4240. $s=x $s=dtext ^c^cdtext m;
  4241. $s=x $s=dtext ^c^cdtext f;
  4242. **TEXT1 33
  4243. $s=x $s=text ^c^ctext;
  4244. $s=x $s=text ^c^ctext c;
  4245. $s=x $s=text ^c^ctext r;
  4246. **TEXT2 58
  4247. $s=x $s=text ^c^ctext a;
  4248. $s=x $s=text ^c^ctext m;
  4249. $s=x $s=text ^c^ctext f;
  4250.