home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 193.img / AAUPGRD1.ZIP / AUTOARCH / ACAD.MNU < prev    next >
Text File  |  1990-03-14  |  105KB  |  3,909 lines
  1. autoARCH R10.3 3/14/90
  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=pop1 $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 array auto;
  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]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mfillet"))(progn (menucmd "s=x")(menucmd "s=fillet"))) fillet;
  143. [Chamfer]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mchamfer"))(progn (menucmd "s=x")(menucmd "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](if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=msnapset"))(progn (menucmd "s=x")(menucmd "s=snapset"))) 'setvar snapunit
  229. [Grid](if (and metric (not (equal scaleb 40. 0.001)))(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. [ACAD]$s=x $s=s
  723.  
  724. [SETUP](if metric (progn (menucmd "s=x")(menucmd "s=setupm"))(progn (menucmd "s=x")(menucmd "s=setup")))(princ);
  725. [3D]$S=X $S=3D
  726. [BLOCKS]$S=X $S=BL 
  727. [BALLOON]$s=x $s=balloon
  728. [DIM:]$S=X $S=DIM ^C^CDIM;
  729. [DISPLAY]$S=X $S=DS
  730. [DRAW]$S=X $S=DR
  731. [TEXT:]^C^C$s=x $s=text $t4=text1 $t4=text2 text;
  732. [DTEXT:]^C^C$s=x $s=dtext $t4=dtext1 $t4=dtext2 dtext;
  733. [EDIT]$S=X $S=ED
  734. [INQUIRY]$S=X $S=INQ
  735. [LAYER:]$S=X $S=LAYER ^C^CLAYER;
  736. [LISP]$s=x $s=lisp
  737. [SAVE:]^C^C(SETQ USECOUNT 0) SAVE;
  738. [SETTINGS]$S=X $S=SET2
  739. [UCS:]$S=X $S=UCS1 ^C^CUCS;
  740. [UTILITY]$S=X $S=UT
  741. [ASHADE]^C^C(nl c:scene "/cci/ashade")(princ) $s=x $s=ashade $i=ias $i=*
  742.  
  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. [ACAD]$s=x $s=s
  766.  
  767. **DIM 2
  768. [LAYERMOD](set 'temp 'DIMLAYV)(nl "" "/cci/layermod")(lays dimlayv);
  769. [DIM:]^C^C$i=idim1 $i=*
  770. [DIM1:]^C^CDIM1;
  771. [DIMCHK](nl "" "/cci/dimchk");
  772. [DATUM](nl c:ddim "/cci/datumdim") DDIM;
  773. [ST2DIM](nl "" "/cci/st2dim");
  774. [Linear]$S=X $S=DIMLINEAR
  775. [AssocDIM]$S=X $S=FORMAT
  776. [Angular]ANG;
  777. [Diametr]DIAM;
  778. [Radius]RAD;
  779. [Center]CENTER;
  780. [Leader]$i=iballoon $i=*
  781. [Dim Vars]$S=X $S=VAR1
  782. [Redraw]'REDRAW;
  783. [Status]STAT;
  784. [Undo]UNDO;
  785. [Style]STYLE;
  786. **SETUP 2
  787. [SETUP](nl "" "/cci/setupnew");
  788.  
  789. [edit]
  790. [scripts]
  791. [TEXT SCR](nl "" "/cci/edtext")(text1);
  792. [DIM SCR](nl "" "/cci/eddim")(dim1);
  793. [LAY SCR](nl "" "/cci/edlay");
  794.  
  795. [reload]
  796. [LAYERS](nl "" "/cci/chglayer")(layer1 "/cci/layers.txt");
  797. [redefine]
  798. [ SCALE](nl "" "/cci/chgsize")(chgscale);
  799.  
  800. [TABLET]$S=X $S=TABLET ^C^CTABLET;
  801.  
  802. [layer]
  803. [SWAP](nl "" "/cci/layswapb");
  804. **SETUPM 2
  805. [SETUP](nl "" "/cci/setupnew");
  806.  
  807. [UNITBASE]^C^C(nl "" "/cci/unitbase")(unitbase);
  808.  
  809. [edit]
  810. [scripts]
  811. [TEXT SCR](nl "" "/cci/edtext")(text1);
  812. [DIM SCR](nl "" "/cci/eddim")(dim1);
  813. [LAY SCR](nl "" "/cci/edlay");
  814.  
  815. [reload]
  816. [LAYERS](nl "" "/cci/chglayer")(layer1 "/cci/layers.txt");
  817. [redefine]
  818. [ SCALE](nl "" "/cci/chgsize")(chgscale);
  819.  
  820. [TABLET]$S=X $S=TABLET ^C^CTABLET;
  821.  
  822. [layer]
  823. [SWAP](nl "" "/cci/layswapb");
  824. **CHGTEXT
  825. [ED TEXT](nl c:chgtext "/cci/chgtext") chgtext;
  826.  
  827. [ <--]
  828. [ -->]
  829.  
  830. [DELETE>]
  831. [<DELETE]
  832.  
  833. [INSERT]
  834.  
  835. [EXIT]
  836. **PLOT 2
  837. [PLOT    ]PLOT;
  838. [PRPLOT  ]PRPLOT;
  839. [--------]
  840. [  plot  ]
  841. [ scripts]
  842.  
  843. [1](nl "" "/cci/plot") plot1
  844. [2](nl "" "/cci/plot") plot2
  845. [3](nl "" "/cci/plot") plot3
  846. [4](nl "" "/cci/plot") plot4
  847. [5](nl "" "/cci/plot") plot5
  848. [Other](nl "" "/cci/plot") OTHER
  849.  
  850. [SAMEplot]script (strcat drive "/cci/plottemp");
  851. [--------]
  852. [MAKEBOX](nl "" "/cci/plotbox1");
  853. [USEBOX](nl "" "/cci/plotbox2");
  854. [PLOTMORE](nl "" "/cci/plotmore");
  855. **PLOT1 3
  856.  
  857. [ plot]
  858. [ scale]
  859. [--------]
  860.  
  861. [AUTO]AUTO
  862. [SELECT]SELECT
  863.  
  864. [--------]
  865. **BL 3
  866. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF;
  867. [BASE:]^C^CBASE;
  868. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK;
  869. [INSERT:]$S=X $S=INSERT ^C^CINSERT;
  870. [MINSERT:]$S=X $S=INSERT ^C^CMINSERT;
  871. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK;
  872.  
  873. [ATT CONT]$s=x $s=attcontrol
  874. [EXTRACT]$s=x $s=attext
  875. **DS 3
  876. [ATTDISP:]$S=X $S=ATTCONTROL ^C^CATTDISP;
  877. [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);
  878. [LAYREGEN](nl laregen "/cci/laregen")(laregen "");
  879. [PAN:]'PAN;
  880. [PLAN:]$S=X $S=PLAN ^C^CPLAN;
  881. [REDRAW:]'REDRAW;
  882. [REDRALL:]'REDRAWALL;
  883. [REGEN:](nl zooma "/cci/zooma")(zooma);
  884. [REGNALL:]^C^CREGENALL;
  885. [RGNAUTO:]^C^CREGENAUTO;
  886. [VIEW:]$S=X $S=VIEW 'VIEW;
  887. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES;
  888. [VPOINT:]$S=X $S=VPOINT VPOINT;
  889. [VPORTS:]$S=X $S=VPORTS VPORTS;
  890. [ZOOM:]$S=X $S=ZOOM 'ZOOM;
  891. **DR 3
  892. [ARC]$S=X $S=ARC
  893. [BOX](nl "" "/cci/box");
  894. [CIRCLE]$S=X $S=CIRCLE
  895. [DONUT:]^C^CDONUT;
  896. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE;
  897. [HATCH:]$S=X $S=HATCH ^C^CHATCH;
  898. [LINE:]$S=X $S=LINE ^C^CLINE;
  899. [PLINE:]$S=X $S=PLINE ^C^CPLINE;
  900. [POINT:]$S=X $S=POINT ^C^CPOINT;
  901. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON;
  902. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE;
  903. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH;
  904. [SLOT](nl "" "/cci/slot");
  905. [SOLID:]$S=X $S=SOLID ^C^CSOLID;
  906. **ED 3
  907. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY;
  908. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT;
  909. [DDATTE:]^C^CDDATTE;
  910. [BREAK:]$S=X $S=BREAK ^C^CBREAK;
  911. [CHAMFER:]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mchamfer"))(progn (menucmd "s=x")(menucmd "s=chamfer"))) chamfer;
  912. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE;
  913. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP;
  914. [COPY:]$S=X $S=COPY ^CCOPY;
  915. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE;
  916. [ERASE:]$S=X $S=ERASE ^C^CERASE;
  917. [EXPLODE:]$s=x $s=explode ^C^CEXPLODE;
  918. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND;
  919. [FILLET:]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mfillet"))(progn (menucmd "s=x")(menucmd "s=fillet"))) fillet;
  920. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE;
  921.  
  922. [next]$S=X $S=ED2
  923. **ED2 3
  924. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR;
  925. [MOVE:]$S=X $S=MOVE ^C^CMOVE;
  926. [OFFSET:]$S=X $S=OFFSET OFFSET;
  927. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  928. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE;
  929. [SELECT:]$S=X $S=SELECT SELECT;
  930. [SCALE:]$S=X $S=SCALE ^C^CSCALE;
  931. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C;
  932. [TRIM:]$S=X $S=TRIM ^C^CTRIM;
  933. [UNDO:]$S=X $S=UNDO ^C^CUNDO;
  934.  
  935.  
  936.  
  937.  
  938. [previous]$S=X $S=ED
  939. **INQ 3
  940. [AREA:]$S=X $S=AREA ^C^CAREA;
  941. [DBLIST:]^CDBLIST;
  942. [DIST:]$S=X $S=DIST ^C^CDIST;
  943. [HELP:]HELP;
  944. [ID:]^C^CID;
  945. [LIST:]$S=X $S=LIST ^C^CLIST;
  946. [STATUS:]^C^CSTATUS;
  947. [TIME]$s=x $s=time
  948. **SET 3
  949. [APERTURE]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
  950. [COLOR:]$S=X $S=COLOR ^C^CCOLOR;
  951. [COORDS];
  952. [ELEV:]$S=X $S=3dthick ^C^CELEV;
  953. [GRID:](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);^C^CGRID;
  954. [HANDLES:]$S=X $S=HANDLE ^C^CHANDLES;
  955. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE;
  956. [LTSCALE:]^C^CLTSCALE;
  957. [ORTHO]
  958. [STYLE:]$S=X $S=STYLE ^C^CSTYLE;
  959. [UCS:]$S=X $S=UCS1 ^C^CUCS 
  960. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON 
  961. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  962.  
  963. [more]$S=X $S=SET2
  964. **SET2 2
  965. [ATRIBUTE]$S=X $S=ATTCONTROL
  966. [AXIS:]$S=X $S=AXIS ^C^CAXIS;
  967. [BLIPS](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))+
  968. (progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))(PRINC);
  969. [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);
  970. [LIMITS:]^C^CLIMITS;
  971. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP;
  972. [SETVAR:]$S=X $S=SETVAR ^C^CSETVAR;
  973. [SNAP:]$S=X $S=SNAP ^C^CSNAP;
  974. [TABLET:]$S=X $S=TABLET ^C^CTABLET;
  975. [UNITS:]^CUNITS;
  976.  
  977. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE;
  978. [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);
  979. [REGNAUTO](if (= (getvar "regenmode") 1)(progn (setvar "regenmode" 0)(prompt "Regenauto OFF")(princ))(progn (setvar "regenmode" 1)(prompt "Regenauto ON")(princ)))
  980. [VIEWRES:]$S=X $S=VIEWRES VIEWRES Y;
  981. [more]$S=X $S=SET
  982. **UT 2
  983. [SAVE]save;
  984. [END]$S=X $S=END
  985. [QUIT]$S=X $S=QUIT
  986.  
  987. [PLOT]^C^C$S=X $S=PLOT
  988.  
  989. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT;
  990. [DAYSTAMP](nl "" "/cci/daystamp");
  991. [DXF/IGES]$S=X $S=DXF;
  992. [Editfile]ws;
  993. [Listfile]ty;
  994. [FILES:]^C^CFILES;
  995. [MENU:]^C^CMENU MENU;
  996. [PURGE:]$S=X $S=PURGE ^C^CPURGE;
  997. [RENAME:]$S=X $S=RENAME ^C^CRENAME;
  998. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT;
  999. [SHELL]$S=X $S=EXCOMDS
  1000. [SLIDES]$S=X $S=SLIDES
  1001. **OSNAP 3
  1002. [CENter]CENTER $S= $S=
  1003. [ENDpoint]ENDPOINT $S= $S=
  1004. [INSert]INSERT $S= $S=
  1005. [INTersec]INTERSEC $S= $S=
  1006. [MIDpoint]MIDPOINT $S= $S=
  1007. [NEArest]NEAREST $S= $S=
  1008. [NODe]NODE $S= $S=
  1009. [PERpend]PERPEND $S= $S=
  1010. [QUAdrant]QUADRANT $S= $S=
  1011. [TANgent]TANGENT $S= $S=
  1012.  
  1013. [Quick,]QUICK,^Z
  1014.  
  1015. [NONE]NONE $S= $S=
  1016. **OSNAPB 3
  1017. [CENter]CENTER $S=
  1018. [ENDpoint]ENDPOINT $S=
  1019. [INSert]INSERT $S=
  1020. [INTersec]INTERSEC $S=
  1021. [MIDpoint]MIDPOINT $S=
  1022. [NEArest]NEAREST $S=
  1023. [NODe]NODE $S=
  1024. [PERpend]PERPEND $S=
  1025. [QUAdrant]QUADRANT $S=
  1026. [QUICK,]QUICK,^Z
  1027. [TANgent]TANGENT $S=
  1028. [NONE]NONE $S=
  1029. [REF PT](nl off "/cci/off")(off) \ $S=
  1030. [U:]^C^CU $S=
  1031. [REDO:]^C^CREDO $S=
  1032. [REDRAW:]^C^CREDRAW (savechk);$S=
  1033. ['SETVAR]'SETVAR $S=
  1034. [  HELP  ]$S= 'help 
  1035. **BLOCK 3
  1036. [BLOCK:]^C^CBLOCK;
  1037. [?]BLOCK ?;
  1038.  
  1039. [Auto]auto;
  1040. [Single]Single;
  1041. [Window]Win;
  1042. [Last]Las;
  1043. [Previous]Pr;
  1044. [Crossing]Cr;
  1045. [Remove]Re;
  1046. [Add]Ad;
  1047. [Yes]Yes;
  1048.  
  1049. [OOPS]^C^COOPS;
  1050. [BASE]base;
  1051. ["RAW"MOD]$s=x $s=attrawmod
  1052. [Makeblks](nl makeblk "/cci/makeblk")(makeblk);
  1053. **INSERT 3
  1054. [INSERT:]^C^CINSERT;
  1055. [MINSERT:]^C^CMINSERT;
  1056. [ ?]INSERT ?;
  1057. [ *]*
  1058.  
  1059. [ corner]CORNER;
  1060. [ xyz]XYZ;
  1061. [ Scale]scale;
  1062. [ Xscale]xscale;
  1063. [ Yscale]yscale;
  1064. [ Zscale]zscale;
  1065. [ Rotate]rota;
  1066. [PRELIM]$s=x $s=prelim
  1067.  
  1068. [PICKBLK]cb;
  1069. [ATT CONT]$s=x $s=attcontrol
  1070. [Userblks]$i=userblk $i=*
  1071. **PRELIM 3
  1072. [prelim]
  1073.  
  1074. [PScale]Pscale;
  1075. [PXscale]Pxscale;
  1076. [PYscale]Pyscale;
  1077. [PZscale]Pzscale;
  1078. [PRotate]Prota;
  1079. **WBLOCK 3
  1080. [WBLOCK:]^C^Cw;
  1081. [*]*
  1082.  
  1083. [Auto]auto;
  1084. [Single]Single;
  1085. [Window]Win;
  1086. [Last]Las;
  1087. [Previous]Pr;
  1088. [Crossing]Cr;
  1089. [Remove]Re;
  1090. [Add]Ad;
  1091.  
  1092. [OOPS]^C^COOPS;
  1093. [BASE]base;
  1094. ["RAW"MOD]$s=x $s=attrawmod
  1095. [Makeblks](nl makeblk "/cci/makeblk")(makeblk);
  1096. **DIMLINEAR 3
  1097. [DIM:]^C^CDIM;
  1098. [DIM1:]^C^CDIM1;
  1099. [Horiz]HORIZ;
  1100. [Vrtical]VERT;
  1101. [Aligned]ALI;
  1102. [Rotated]ROT;
  1103. [Baselin]BASE;
  1104. [Continu]CONT;
  1105. [Hometext]HOMETEXT;
  1106. [Update]UPDATE;
  1107. [Newtext]NEWTEXT;
  1108. [SCRIPT 1]SCRIPT (dd "/cci/dim1");
  1109. [SCRIPT 2]SCRIPT (dd "/cci/dim2");
  1110. [DimVARS]$s=x $s=var1
  1111. [DimMENU]$S=X $S=DIM
  1112. [AssocDIM]$S=X $S=FORMAT
  1113. **ATTDEF 3
  1114. [ATTDEF:]^C^CATTDEF;
  1115.  
  1116. [Invis]Inv;
  1117. [Constant]CONSTANT;
  1118. [Verify]Ver;
  1119. [Preset]preset;
  1120.  
  1121. [Aligned]Ali;
  1122. [Centered]Ce;
  1123. [Fit]Fit;
  1124. [Middle]Mi;
  1125. [Right]Ri;
  1126. [Style]Sty;
  1127.  
  1128. ["RAW"MOD]$s=x $s=attrawmod
  1129. **ATTCONTROL 3
  1130. [atribute]
  1131. [controls]
  1132.  
  1133. [DIALOG ](if (= (getvar "ATTDIA") 0)(PROGN (setvar "ATTDIA" 1)(PRINC " Dialog box for attribute entry. "))(progn (setvar "ATTDIA" 0)(PRINC " Normal attribute prompts. ")))(princ);
  1134. [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);
  1135. [ATTDISP:]^C^CATTDISP;
  1136. [ normal]Nor;
  1137. [ ON]ON;
  1138. [ OFF]OFF;
  1139.  
  1140. ["RAW"MOD]$s=x $s=attrawmod
  1141. [EXTRACT]$s=x $s=attext
  1142. **ATTRAWMOD 3
  1143. [ change ]
  1144. [ "raw"  ]
  1145. [attribut]
  1146. [   to...]
  1147.  
  1148. [NORMAL  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 0) (assoc 70 temp) temp))(princ);
  1149. [INVISIBL](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 1) (assoc 70 temp) temp))(princ);
  1150. [CONSTANT](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 2) (assoc 70 temp) temp))(princ);
  1151. [VERIFY  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 4) (assoc 70 temp) temp))(princ);
  1152. [PRESET  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 8) (assoc 70 temp) temp))(princ);
  1153. [INVCONST](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 3) (assoc 70 temp) temp))(princ);
  1154. [INVVERFY](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 5) (assoc 70 temp) temp))(princ);
  1155. [INVPRSET](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 9) (assoc 70 temp) temp))(princ);
  1156. [BLANK<>](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 1 "") (assoc 1 temp) temp))(princ);
  1157. **LAYER 2
  1158. [LAYER:]^C^CLAYER;
  1159. [?]LAYER ? * ;
  1160. [Make]$S=X $S=LAYER LAYER M;
  1161. [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);
  1162. [New]layer new;
  1163. [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);
  1164. [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);
  1165. [Pick OFF](nl "" "/cci/layeroff");
  1166. [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);
  1167. [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);
  1168. [Color]LAYER COLOR $S=X $S=LACOLOR \$S=X $S=LAYER
  1169. [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=
  1170. [Ltype]LAYER LTYPE $S=X $S=LALT \$S=X $S=LAYER
  1171. [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) +
  1172. 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=
  1173. [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);
  1174. [LAYREGEN](nl laregen "/cci/laregen")(laregen "");
  1175. [LASCRIPT](nl "" "/cci/lascript");
  1176. [SET 0]layer s 0;;
  1177. **LACOLOR 3
  1178. [COLOR] 
  1179.  
  1180. [red]RED;
  1181. [yellow]YELLOW;
  1182. [green]GREEN;
  1183. [cyan]CYAN;
  1184. [blue]BLUE;
  1185. [magenta]MAGENTA;
  1186. [white]WHITE;
  1187. [8]8;
  1188. [9]9;
  1189. [10]10;
  1190. [11]11;
  1191. [12]12;
  1192. [13]13;
  1193. [14]14;
  1194. [15]15;
  1195. **LALT 3
  1196. [linetype]
  1197.  
  1198. [contin.]CONTINUOUS;
  1199. [dashed]DASHED;
  1200. [hidden]HIDDEN;
  1201. [center]CENTER;
  1202. [phantom]PHANTOM;
  1203. [dot]DOT;
  1204. [dashdot]dashdot;
  1205. [border]border;
  1206. [divide]divide;
  1207. **ZOOM 3
  1208. [ZOOM:]'ZOOM;
  1209.  
  1210. [All]All;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  1211. [Center]Center;
  1212. [Dynamic]Dyn;
  1213. [Extents]Ext;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  1214. [Left]Left;
  1215. [Previous]Pre;
  1216. [Window]Win;
  1217. [In]2x;
  1218. [Out].5x;
  1219.  
  1220. [Yes]YES;
  1221. [No]NO;
  1222.  
  1223. [ZOOMIN](nl "" "/cci/zoomin");
  1224. [ZMSCALE](nl "" "/cci/zmscale");
  1225. **DVIEW 3
  1226. [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);
  1227.  
  1228. [Single]Single;
  1229. [Window]Win;
  1230. [Last]Las;
  1231. [Previous]Pr;
  1232. [Crossing]Cr;
  1233. [Remove]Re;
  1234. [Add]Ad;
  1235.  
  1236. [MAKEsect](setq secflag nil)(princ);(nl "" "/cci/wsection");
  1237. [GOTOsect](setq secflag 't)(princ);(nl c:ss "/cci/wsection");ss 
  1238.  
  1239. [USEHOUSE]^C^CDVIEW;;
  1240. [ Dview ]$S=X $S=DVIEW1
  1241. [Options]$S=X $S=DVIEW1
  1242. **DVIEW1 3
  1243. [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);
  1244. [options]
  1245.  
  1246. [Points]points;
  1247. [Camera]camera;
  1248. [Target]target;
  1249. [Distance]distance;
  1250. [Twist]twist;
  1251. [Pan]pan;
  1252. [Zoom]zoom;
  1253. [Clip]Clip $S=X $S=DVIEW2
  1254. [OFF]off;
  1255. [Hide]hide;
  1256. [Undo]undo;
  1257.  
  1258. [Exit]Exit $S=X $S=S 
  1259. **DVIEW2 3
  1260. [clipping]
  1261.  
  1262. [ Back]Back \$S=X $S=DVIEW1
  1263.  
  1264. [ON]On $S=X $S=DVIEW1
  1265. [OFF]Off $S=X $S=DVIEW1
  1266.  
  1267. [ Front]Front \$S=X $S=DVIEW1
  1268.  
  1269. [ON]On $S=X $S=DVIEW1
  1270. [OFF]Off $S=X $S=DVIEW1
  1271. [Eye]Eye $S=X $S=DVIEW1
  1272. **VPORTS 3
  1273. [VPORTS:]^C^CVPORTS;
  1274. [*icon*]$i=ivporti $i=*
  1275.  
  1276. [Save]sav;
  1277. [Restore]restore;
  1278. [Delete]delete;
  1279. [Join]join;
  1280. [SIngle]si;
  1281. [?]?;
  1282.  
  1283. [2]2 $S=X $S=VP2
  1284. [3]3 $S=X $S=VP3
  1285. [4]4;
  1286.  
  1287. [REDRAWALL]redrawall;
  1288. [REGENALL]regenall;
  1289. [VPORTSET](nl "" "/cci/ucssetup");
  1290. **VP2 3
  1291.  
  1292. [Horizont]H $S=X $S=VPORTS
  1293. [Vertical]V $S=X $S=VPORTS
  1294. **VP3 3
  1295.  
  1296. [Horizont]H $S=X $S=VPORTS
  1297. [Vertical]V $S=X $S=VPORTS
  1298. [Above]A $S=X $S=VPORTS
  1299. [Below]B $S=X $S=VPORTS
  1300. [Left]L $S=X $S=VPORTS
  1301. [Right]R $S=X $S=VPORTS
  1302. **VIEW 3
  1303. [VIEW:]'VIEW;
  1304. [?]?;
  1305.  
  1306. [Delete]'VIEW ? 'VIEW D;
  1307. [Save]'VIEW ? 'VIEW S;
  1308. [Window]'view Win;
  1309. [Restore]'VIEW ? 'VIEW R;
  1310.  
  1311. [V R all]'view r all;
  1312. [V R 1]'view r 1;
  1313. [V R 2]'view r 2;
  1314. [V R 3]'view r 3;
  1315. [V R 4]'view r 4;
  1316.  
  1317. [RESTlisp](if (null sdscrn)(setq sdscrn "Y" scrtog 't))(if sdscrn (setq vwlist (gettable "VIEW" ""))(setq vwlist '("")))(princ) +
  1318. (if (not (member nil vwlist))(LAYERS "R" vwlist)(PRINC " No Views Saved"))(if scrtog (setq sdscrn nil scrtog nil))(PRINC);
  1319. [VIEWSET](nl "" "/cci/views");
  1320. **LINE 2
  1321. [LINE:]^C^CLINE;
  1322. [PTLINE](nl "" "/cci/ptline");
  1323. [DLINE](nl c:dl "/cci/dline") dl;
  1324. [MLINE](nl c:ml "/cci/mline") ml;
  1325. [DOUBLE](nl "" "/cci/dblline");
  1326. [SYMBOL]$S=X $S=INSYM $I=IINSYM $I=*
  1327. [LINETEXT](nl "" "/cci/instext");
  1328.  
  1329. [ @ ]@\
  1330. [ < ]<\
  1331. [continue]^C^CLINE;;
  1332. [close]Close;
  1333. [undo]Undo;
  1334.  
  1335. [end-end]endp \endp;
  1336. [end-mid]endp \midp;
  1337. [mid-mid]midp \midp;
  1338. [LINELAYR]$s=x $s=setlinel
  1339. **setlinel 3
  1340. [set to]
  1341. [line]
  1342. [layer]
  1343.  
  1344. [MEDIUM]$s=x $s=line (setq med1v (getstring (strcat " Layer for Med lines <" medv ">: "))) \(if (/= med1v "")(setq medv med1v)) LAYER m !medv  LINE;
  1345. [HEAVY]$s=x $s=line (setq heavy1v (getstring (strcat " Layer for Heavy lines <" heavyv ">: "))) \(if (/= heavy1v "")(setq heavyv heavy1v)) LAYER m !heavyv  LINE;
  1346. [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;
  1347. [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;
  1348. [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;
  1349. [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;
  1350. [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;
  1351. [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;
  1352. **3DFACE 3
  1353. [3DFACE:]^C^C3DFACE;
  1354.  
  1355. [.x].X;
  1356. [.y].Y;
  1357. [.z].Z;
  1358. [.xy].XY;
  1359. [.xz].XZ;
  1360. [.yz].YZ;
  1361.  
  1362. [Invisibl](princ "Use before the FIRST endpoint of an edge. Results show when done.")(princ);Invis;
  1363.  
  1364. [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);
  1365. [EDGEHIDE](nl c:edge "/cci/edge") edge;
  1366. [CH FACES](nl c:chface "/cci/chface") chface;
  1367. **3DOBJECT 3
  1368. [ 3d]
  1369. [objects]
  1370.  
  1371. [BOX mesh](PRINC "Loading TORUS ")(nl c:torus "/cci/3d") box;
  1372. [WEDGE](PRINC "Loading WEDGE ")(nl c:torus "/cci/3d") wedge;
  1373. [PYRAMID](PRINC "Loading PYRAMID ")(nl c:pyramid "/cci/3d") pyramid;
  1374. [CONE](PRINC "Loading CONE ")(nl c:torus "/cci/3d") cone;
  1375. [DOME](PRINC "Loading DOME ")(nl c:torus "/cci/3d") dome;
  1376. [DISH](PRINC "Loading DISH ")(nl c:torus "/cci/3d") dish;
  1377. [MESH](PRINC "Loading MESH ")(nl c:torus "/cci/3d") mesh;
  1378. [SPHERE](PRINC "Loading SPHERE ")(nl c:torus "/cci/3d") sphere;
  1379. [TORUS](PRINC "Loading TORUS ")(nl c:torus "/cci/3d") torus;
  1380. [TUBE](PRINC "Loading 3DTUBE ")(nl c:3dtube "/cci/3dtube") 3dtube;
  1381. [polyTUBE](nl c:tube "/cci/tube") tube;
  1382. [BOX face](princ "Loading 3DCUBE ")(nl c:3dcube "/cci/3dcube") 3dcube;
  1383. **3DLISP 3
  1384. [3d]
  1385. [special]
  1386.  
  1387. [HOLESLOT](nl c:hole "/cci/hole") hole;
  1388. [PROJECT](nl c:project "/cci/project") project;
  1389. [FPLOT](nl fplot "/cci/fplot");
  1390. [3D MIDPT](nl 3dmid "/cci/3dmid")(3dmid) \
  1391. [REF ZANG](nl zangoff "/cci/zangoff")(zangoff) \\\
  1392. [REFZDIST](nl zdistoff "/cci/zdistoff")(zdistoff) \\\
  1393. [ZANG](nl zang "/cci/zang")(zang) \\
  1394. [ZDIST](nl zdist "/cci/zdist")(zdist) \\
  1395. **3D 3
  1396. [3DPOLY:]^C^C$S=X $S=3DPOLY 3DPOLY;
  1397. [3DFACE:]^C^C$S=X $S=3DFACE 3DFACE;
  1398. [3DSURF]$s=x $s=3dsurf
  1399. [3DOBJECT]$S=X $S=3DOBJECT
  1400. [SPECIAL]$S=X $S=3DLISP
  1401.  
  1402. [ASHADE](nl c:scene "/cci/ashade") $S=X $S=ASHADE
  1403.  
  1404. [VPOINT:]$s=x $s=vpoint
  1405. [VP ROT]vpoint rot;
  1406. [VP PLAN]VPOINT 0,0,1;
  1407.  
  1408. [HIDE:]HIDE;
  1409. [laHIDDEN](PRINC "Loading LAYERH ")(nl "" "/cci/layerh");
  1410. **3DTHICK 3
  1411. [3d thick]
  1412. [ elev]
  1413.  
  1414. ['ELEV]'SETVAR ELEVATION;
  1415. ['THICK]'SETVAR THICKNESS;
  1416.  
  1417. [PICKELEV](nl "" "/cci/setelev");
  1418. [PICKTHIC](nl "" "/cci/setthick");
  1419.  
  1420. [CHG ELEV](nl "" "/cci/chelev");
  1421. [CHGTHICK](nl "" "/cci/chthick");
  1422. **3DSURF 3
  1423. [3d surf]
  1424.  
  1425. [EDGSURF:]^C^CEDGESURF;
  1426. [REVSURF:]^C^CREVSURF;
  1427. [RULSURF:]^C^CRULESURF;
  1428. [TABSURF:]^C^CTABSURF;
  1429.  
  1430. [Surftb1:]'SETVAR SURFTAB1 
  1431. [Surftb2:]'SETVAR SURFTAB2
  1432.  
  1433. [3DMESH:]^C^C3DMESH;
  1434. **3DPOLY 3
  1435. [3DPOLY:]^C^C3DPOLY;
  1436.      
  1437. [Close]close;
  1438. [Undo]undo;
  1439. [.x].x;
  1440. [.y].y;
  1441. [.z].z;
  1442. [.xy].xy;
  1443. [.xz].xz;
  1444. [.yz].yz;
  1445.  
  1446. [CONTROLS]$I=IPOLY $I=*
  1447. **VPOINT 3
  1448. [VPOINT:]^C^CVPOINT;
  1449. [*icon*]^c^c$s=x $s=vp3d $i=i3dviews $i=*
  1450.  
  1451. [rotate]^C^CVPOINT R;
  1452. [angle]^C^C$s=x $s=vp3d VPOINT R;;
  1453.  
  1454. [REAR]^C^C$s=x $s=vp3d VPOINT R;<<90;
  1455. [LEFTrear]^C^C$s=x $s=vp3d VPOINT R;<<135;
  1456. [RITErear]^C^C$s=x $s=vp3d VPOINT R;<<45;
  1457.  
  1458. [LEFT]^C^C$s=x $s=vp3d VPOINT R;<<180;
  1459. [PLAN]^C^Cvpoint 0,0,1;
  1460. [RIGHT]^C^C$s=x $s=vp3d VPOINT R;<<0;
  1461.  
  1462. [FRONT]^C^C$s=x $s=vp3d VPOINT R;<<270;
  1463. [LEFTfrnt]^C^C$s=x $s=vp3d VPOINT R;<<225;
  1464. [RITEfrnt]^C^C$s=x $s=vp3d VPOINT R;<<315;
  1465. **VP3D 3
  1466. [ vpoint]
  1467. [ angle]
  1468. [    +90 ]<<90;$s= $s=
  1469. [    +80 ]<<80;$s= $s=
  1470. [    +60 ]<<60;$s= $s=
  1471. [    +45 ]<<45;$s= $s=
  1472. [    +30 ]<<30;$s= $s=
  1473. [    +10 ]<<10;$s= $s=
  1474. [    + 5 ]<<5;$s= $s=
  1475. [      0 ]<<0;$s= $s=
  1476. [    - 5 ]<<-5;$s= $s=
  1477. [    -10 ]<<-10;$s= $s=
  1478. [    -30 ]<<-30;$s= $s=
  1479. [    -45 ]<<-45;$s= $s=
  1480. [    -60 ]<<-60;$s= $s=
  1481. [    -80 ]<<-80;$s= $s=
  1482. [    -90 ]<<-90;$s= $s=
  1483. **ASHADE 3
  1484. [ASHADE]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade $i=ias $i=*
  1485.  
  1486. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT;
  1487. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA;
  1488.  
  1489. [SCENE:]^C^CSCENE;
  1490. [FILMROL:]^C^CFILMROLL;
  1491.  
  1492. [CAMVIEW:]^C^CCAMVIEW;
  1493.  
  1494. [AFLIX]^C^C(nl c:shadetype "/cci/aflix");
  1495. [SHADETYP]^C^C(nl c:shadetype "/cci/aflix") shadetype;
  1496. [WALKTHRU]^C^C(nl c:shadetype "/cci/aflix") walkthrough;
  1497. [ANIMLENS]^C^C(nl c:shadetype "/cci/aflix") animlens;
  1498. [ANIMATE]^C^C(nl c:shadetype "/cci/aflix") animate;
  1499. [BUTTON]^C^C(nl c:shadetype "/cci/aflix") Button;
  1500. **LIGHTS 3
  1501. [LIGHT:]^C^CLIGHT;
  1502.  
  1503. [Point]p;
  1504. [Directed]d;
  1505.  
  1506. [Filters]
  1507. .x
  1508. .y
  1509. .z
  1510. .xy
  1511. .xz
  1512. .yz
  1513.  
  1514. [CAMVIEW:]^C^CCAMVIEW;
  1515. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1516. [ACTION]$S=X $S=ACTION
  1517. **CAMERA 3
  1518. [CAMERA:]^C^CCAMERA;
  1519.  
  1520. [Filters]
  1521. .x
  1522. .y
  1523. .z
  1524. .xy
  1525. .xz
  1526. .yz
  1527.  
  1528.  
  1529.  
  1530. [CAMVIEW:]^C^CCAMVIEW;
  1531. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT;
  1532. [ACTION]$S=X $S=ACTION
  1533. **ACTION 3
  1534. [ACTION]^C^C$S=X $S=ACTION
  1535.  
  1536. [CAMVIEW:]^C^CCAMVIEW;
  1537. [SCENE:]^C^CSCENE;
  1538. [FILMROL:]^C^CFILMROLL;
  1539. **PLINE 3
  1540. [PLINE:]^C^CPLINE;
  1541.  
  1542. [Arc]ARC $S=PARC
  1543. [close]Cl;
  1544. [length]Len;
  1545. [undo]Un;
  1546. [width]Wid;
  1547. [halfwid]Half;
  1548.  
  1549. [DONUT:]donut;
  1550. [FILL ON]'SETVAR FILLMODE 1;
  1551. [FILL OFF]'SETVAR FILLMODE 0;
  1552.  
  1553. [SavWidth](nl "" "/cci/widthsav");
  1554. [UseWidth](princ "Draw pline with previously saved width ... ")(princ);pline \wid !pwid1 !pwid1
  1555. [POLYWID](nl "" "/cci/polywid");
  1556. [SPIRAL](nl c:snake "/cci/snake") snake;
  1557. **PARC 3
  1558. [polyarc]
  1559.  
  1560. [angle]$S=X $S=PARCANG An;
  1561. [CEnter]$S=X $S=PARCEN CE;
  1562. [tanDir]DIR \DRAG;
  1563. [Radius]$S=X $S=PARCRAD Rad;
  1564. [2nd PT]S \DRAG;
  1565. [CLose]$S=X $S=PLINE CLOSE;
  1566.  
  1567. [undo]Un;
  1568.  
  1569. [contline]$S=X $S=PLINE L;
  1570.  
  1571. [PLINE:]$S=X $S=PLINE ^C^CPLINE;
  1572. **PARCANG 3
  1573. [angle]
  1574.  
  1575. [center]Ce drag $S=X $S=PARC
  1576. [radius]Rad \ $S=X $S=PARC
  1577. [drag]drag \ $S=X $S=PARC
  1578. **PARCEN 3
  1579. [center]
  1580.  
  1581. [angle]Ang drag $S=X $S=PARC
  1582. [length]Len drag $S=X $S=PARC
  1583. [drag]drag \ $S=X $S=PARC
  1584. **PARCRAD 3
  1585. [radius]
  1586.  
  1587. [angle]Ang \drag $S=X $S=PARC
  1588. [drag]drag \ $S=X $S=PARC
  1589. **OFFSET 3
  1590. [OFFSET:]^C^COFFSET;
  1591.  
  1592. [Through]Thr;
  1593. **ARC 3
  1594. [arc]
  1595. [*icon*]$i=iarc $i=*
  1596.  
  1597. [3-point:]^C^CARC \\DRAG
  1598. [S,C,E:]^C^CARC \C \DRAG
  1599. [S,C,A:]^C^CARC \C \A DRAG
  1600. [S,C,L:]^C^CARC \C \L DRAG
  1601. [S,E,A:]^C^CARC \E \A;
  1602. [S,E,R:]^C^CARC \E \R;
  1603. [S,E,D:]^C^CARC \E \D DRAG
  1604. [C,S,E:]^C^CARC C \\DRAG
  1605. [C,S,A:]^C^CARC C \\A DRAG
  1606. [C,S,L:]^C^CARC C \\L DRAG
  1607. [CONTIN:]^C^CARC ;DRAG
  1608. **popARC 3
  1609. [ARC]
  1610. [*icon*]$i=iarc $i=*
  1611.  
  1612. [3-point:]*^C^CARC \\DRAG
  1613. [S,C,E:]*^C^CARC \C \DRAG
  1614. [S,C,A:]*^C^CARC \C \A DRAG
  1615. [S,C,L:]*^C^CARC \C \L DRAG
  1616. [S,E,A:]*^C^CARC \E \A
  1617. [S,E,R:]*^C^CARC \E \R
  1618. [S,E,D:]*^C^CARC \E \D DRAG
  1619. [C,S,E:]*^C^CARC C \\DRAG
  1620. [C,S,A:]*^C^CARC C \\A DRAG
  1621. [C,S,L:]*^C^CARC C \\L DRAG
  1622. [CONTIN:]*^C^CARC ;DRAG
  1623. **popCIRCL 3
  1624. [CIRCLE]
  1625.  
  1626. [CEN,RAD:]*^C^CCIRCLE \DRAG
  1627. [CEN,DIA:]*^C^CCIRCLE \D
  1628. [2 POINT:]*^C^CCIRCLE 2P \DRAG
  1629. [3 POINT:]*^C^CCIRCLE 3P \\DRAG
  1630. [TTR:]*^C^CCIRCLE TTR
  1631. **CIRCLE 3
  1632. [circle]
  1633. [*icon*]$i=icircle $i=*
  1634.  
  1635. [CEN,RAD:]^C^CCIRCLE \DRAG
  1636. [CEN,DIA:]^C^CCIRCLE \D;
  1637. [2 POINT:]^C^CCIRCLE 2P \DRAG
  1638. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  1639. [TTR:]^C^CCIRCLE TTR;
  1640. [TTT]CIRCLE 3P TAN \TAN \TAN;
  1641.  
  1642. [CONCEN]CIRCLE CEN \DRAG;
  1643. [MULT CCR](nl "" "/cci/concentr");
  1644. [MULT CCD](nl "" "/cci/concentd");
  1645. [CENTLINE](nl c:circentl "/cci/circentl") CIRCENTL;
  1646. **ELLIPSE 3
  1647. [ELLIPSE:]^C^CELLIPSE;
  1648.  
  1649. [Center]ce;
  1650. [Rotation]Rot;
  1651. [Iso]Iso;
  1652. [Diameter]Dia;
  1653. **POLYGON 3
  1654. [POLYGON:]^C^CPOLYGON;
  1655.  
  1656. [Edge]ED;
  1657. [I-scribe]I;
  1658. [C-scribe]C;
  1659. **SHAPE 3
  1660. [SHAPE:]^C^CSHAPE;
  1661. [?]?;
  1662.  
  1663. [LOAD:]^C^CLOAD;
  1664. [?]?;
  1665. **SKETCH 3
  1666. [SKETCH:]^C^CSKETCH;
  1667.  
  1668. Connect
  1669. Erase
  1670. Record
  1671.  
  1672. [eXit]x
  1673. Quit
  1674.  
  1675. [------]
  1676. [SKPOLY:]'SETVAR SKPOLY 1;
  1677. [SKLINE:]'SETVAR SKPOLY 0;
  1678. [SKINC:]'SETVAR SKETCHINC;
  1679. [------]
  1680. [JOINMORE](nl "" "/cci/joinmore");
  1681. **SOLID 3
  1682. [SOLID:]^C^CSOLID;
  1683.  
  1684. [FILL ON]'SETVAR FILLMODE 1;
  1685. [FILL OFF]'SETVAR FILLMODE 0;
  1686. **POINT 3
  1687. [POINT:]^C^CPOINT;
  1688. [MULITPLE]*point;
  1689.  
  1690. [.x].X;
  1691. [.y].Y;
  1692. [.z].Z;
  1693. [.xy].XY;
  1694. [.xz].XZ;
  1695. [.yz].YZ;
  1696.  
  1697. [complex]
  1698. [points]
  1699. [example:]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW POINT;
  1700.  
  1701. [Pdmode:]'SETVAR PDMODE \POINT;
  1702. [Pdsize:]'SETVAR PDSIZE \POINT;
  1703. **HATCH 3
  1704. [HATCH:]^C^CHATCH;
  1705. [*icon*]$i=ihatch1 $i=*
  1706. [?]?;
  1707.  
  1708. [u]U;
  1709. [u,o]U,O;
  1710. [u,i]U,I;
  1711. [Yes]Yes;
  1712. [Window]Win;
  1713. [Last]Last;
  1714. [Previous]Pre;
  1715. [Crossing]Cr;
  1716. [Remove]Re;
  1717. [Add]Add;
  1718. [Undo]Un;
  1719.  
  1720. [HATFACE](nl "" "/cci/hatface");
  1721. **LIST 3
  1722. [LIST:]^C^CLIST;
  1723.  
  1724. [Window]Win;
  1725. [Last]Last;
  1726. [Previous]Pre;
  1727. [Crossing]Cr;
  1728. [Remove]Re;
  1729. [Add]Add;
  1730. [Undo]Un;
  1731. **AREA 3
  1732. [AREA:]^C^CAREA;
  1733. [Add]ADD;
  1734. [Subtract]Sub;
  1735. [Entity]Ent;
  1736.  
  1737. [set snap]
  1738. [ END](setvar "osmode" 1);
  1739. [ NEAR](setvar "osmode" 512);
  1740.  
  1741. [ NONE](setvar "osmode" 0);
  1742.  
  1743. [AREA TXT](nl "" "/cci/areatext");
  1744. [AREADRAW](nl "" "/cci/areadraw");
  1745. [AREAPICK](nl "" "/cci/areapick");
  1746. [AREAent]area ent;
  1747. **DIST 3
  1748. [DIST:]^C^CDIST;
  1749.  
  1750. [DISTMORE](nl "" "/cci/distmore");
  1751. [DISTTEXT](nl "" "/cci/disttext");
  1752. [DISTCALC](nl "" "/cci/distcalc");
  1753. **TEXTSETUP1 2
  1754. TXT
  1755. MONOTXT
  1756. SIMPLEX
  1757. MSIMPLEX
  1758. DIM
  1759. HAND1
  1760. ROMANS
  1761. ROMAND
  1762. OUTLINE
  1763. BOLD
  1764. TIMES
  1765. TIMESOUT
  1766. COMPLEX
  1767. ITALIC
  1768. ROMANC
  1769. ITALICC
  1770. ROMANT
  1771. ITALICT
  1772. GOTHICE
  1773. SYMAP
  1774. **TEXT 2
  1775. [TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2 TEXT;
  1776. [Center]ce;
  1777. Middle
  1778. Right
  1779. Align
  1780. Fit
  1781. Style
  1782.  
  1783. [TEXTMORE](nl "" "/cci/textmore");
  1784. [TEXTCOPY](nl "" "/cci/textcopy");
  1785. [PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
  1786. [CHARARAY](nl "" "/cci/chararay");
  1787. [LEADTEXT]$S=X $S=BALLOON
  1788. [OVERLINE](nl "" "/cci/linetext");
  1789. [ARCTEXT](nl "" "/cci/arctext");
  1790. [IMPORT](nl "" "/cci/import");
  1791. [EXPORT](nl "" "/cci/export");
  1792. [TEXTSCR]$s=x $s=textscript
  1793. **TEXTSCRIPT 3
  1794. [text]
  1795. [scripts]
  1796.  
  1797. [1]SCRIPT (dd "/cci/s1");
  1798. [2]SCRIPT (dd "/cci/s2");
  1799. [3]SCRIPT (dd "/cci/s3");
  1800. [4]SCRIPT (dd "/cci/s4");
  1801. [5]SCRIPT (dd "/cci/s5");
  1802.  
  1803. [EDIT SCR](nl "" "/cci/edtext")(text1);
  1804. **F1 2
  1805. Txt
  1806. Monotxt
  1807. Simplex
  1808. Msimplex
  1809. Dim
  1810. Hand1
  1811. Outline
  1812. Bold
  1813. Times
  1814. Timesout
  1815. Complex
  1816. Cyrillic
  1817. Cyriltlc
  1818. Greekc
  1819. Greeks
  1820.  
  1821. [STYLE]$S=X $S=style
  1822. [next]$s=x $s=F2
  1823. **F2 2
  1824. Gothice
  1825. Gothicg
  1826. Gothici
  1827. Italicc
  1828. Italict
  1829. Romanc
  1830. Romand
  1831. Romans
  1832. Romant
  1833. Scriptc
  1834. Scripts
  1835. Syastro
  1836. Symap
  1837. Symath
  1838. Symeteo
  1839. Symusic
  1840. [STYLE]$S=X $S=style
  1841. **STYLE 2
  1842. [STYLE:]^C^CSTYLE;
  1843. [?]?;
  1844. [example:]vslide (dd "/cci/cci(fonts)");STYLE \\\\\\\redraw;
  1845.  
  1846. [Fonts]$S=X $S=F1
  1847. [*icon*]$i=ifonts1 $i=*
  1848.  
  1849. [1]SCRIPT (dd "/cci/s1");STYLE  \ \;;;;
  1850. [2]SCRIPT (dd "/cci/s2");STYLE  \ \;;;;
  1851. [3]SCRIPT (dd "/cci/s3");STYLE  \ \;;;;
  1852. [4]SCRIPT (dd "/cci/s4");STYLE  \ \;;;;
  1853. [5]SCRIPT (dd "/cci/s5");STYLE  \ \;;;;
  1854.  
  1855. [SIDEPICK](nl c:pstyles "/cci/pstyles") pstyles;
  1856. [STYLECHG](nl textchg "/cci/stylechg")(stylechg);
  1857. [PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
  1858. [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);
  1859. [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)))
  1860. **DTEXT 2
  1861. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2 dtext;
  1862. [Center]ce;
  1863. Middle
  1864. Right
  1865. Align
  1866. Fit
  1867. Style
  1868.  
  1869. [TEXTMORE](nl "" "/cci/textmore");
  1870. [TEXTCOPY](nl "" "/cci/textcopy");
  1871. [PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
  1872. [CHARARAY](nl "" "/cci/chararay");
  1873. [LEADTEXT]$S=X $S=BALLOON
  1874. [OVERLINE](nl "" "/cci/linetext");
  1875. [ARCTEXT](nl "" "/cci/arctext");
  1876. [IMPORT](nl "" "/cci/import");
  1877. [EXPORT](nl "" "/cci/export");
  1878. [TEXTSCR]$s=x $s=textscript
  1879. **AXIS 3
  1880. [AXIS:]^C^CAXIS;
  1881.  
  1882. [axs=snap]SNAP;
  1883.  
  1884. [ON]ON;
  1885. [OFF]OFF;
  1886. [Aspect]A;
  1887. **END 3
  1888. END ?
  1889.  
  1890. [Yes]^C^CEND;
  1891. [No]$S=S
  1892. **QUIT 3
  1893. QUIT ?
  1894.  
  1895. [Yes]^C^CQUIT Y;
  1896. [No]$S=S
  1897. **VAR1 2
  1898. [example]vslide (dd "/cci/cci(dimvar)");(princ " Hit any key to continue ")(princ)(grread);redraw dim;
  1899. [*icon*]$i=idimtog $i=*
  1900. [scale]'setvar dimscale;
  1901. [arr size]'setvar DIMASZ;
  1902. [tik size]'setvar DIMTSZ;
  1903. [txt size]'setvar DIMTXT;
  1904. [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);
  1905. [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);
  1906. [exttog](nl "" "/cci/dimext");
  1907. [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);
  1908. [block]$i=idimpoint $i=*
  1909. [block1]$i=idimpoint1 $i=*
  1910. [block2]$i=idimpoint2 $i=*
  1911. [assoc](if (= (getvar "dimaso") 0)(PROGN (setvar "dimaso" 1)(PRINC " Associative dim is ON "))(progn (setvar "dimaso" 0)(PRINC " Associative dim is OFF ")))(princ);
  1912. [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);
  1913. [dimcentr]'setvar DIMCEN;
  1914. [next]$S=X $S=VAR2
  1915. [DimMENU]$S=X $S=DIM
  1916. **VAR2 2
  1917. [toleranc](if (= (getvar "dimtol") 0)(PROGN (setvar "dimtol" 1)(PRINC " Dim tolerances are activated "))(progn (setvar "dimtol" 0)(PRINC " Dim tolerances are deactivated ")))(princ);
  1918. [limits](if (= (getvar "dimlim") 0)(PROGN (setvar "dimlim" 1)(PRINC " Dim Limits are activated "))(progn (setvar "dimlim" 0)(PRINC " Dim Limits are deactivated ")))(princ);
  1919. [set +]'setvar DIMTP;
  1920. [set -]'setvar DIMTM;
  1921. [extoffst]'setvar DIMEXO;
  1922. [dimexe]'setvar DIMEXE;
  1923. [dimdli]'setvar DIMDLI;
  1924. [dimdle]'setvar DIMDLE;
  1925. [roundoff]'setvar DIMRND;
  1926. [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);
  1927. [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);
  1928. [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);
  1929. [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);
  1930. [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);
  1931. [dimtvp]'SETVAR DIMTVP;
  1932. [next]$S=X $S=VAR3
  1933. [previous]$S=X $S=VAR1
  1934. [DimMENU]$S=X $S=DIM
  1935. **VAR3 2
  1936. [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);
  1937. [zerosupp]setvar dimzin;$i=idimzin $i=* 
  1938. [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);
  1939. [altsfact]'setvar DIMALTF;
  1940. [alt deci]'setvar DIMALTD;
  1941. [len fact]'setvar DIMLFAC;
  1942. [post str]DIM DIMPOST;
  1943. [alt post]DIM DIMAPOST;
  1944.  
  1945. [previous]$S=X $S=VAR2
  1946. [DimMENU]$S=X $S=DIM
  1947. **FORMAT 3
  1948. [assocdim]
  1949. [  ON](setvar "DIMASO" 1)(princ " Associative Dimensioning ON ")(princ);
  1950. [  OFF](setvar "DIMASO" 0)(princ " Associative Dimensioning OFF ")(princ);
  1951.  
  1952. [HOMETEXT]HOMETEXT;
  1953. [UPDATE]UPDATE;
  1954. [NEWTEXT]NEWTEXT;
  1955. [UPDATmor](nl dimupd "/cci/dimasupd")(dimupd);
  1956.  
  1957. [Window]Win;
  1958. [Last]Last;
  1959. [Previous]Pre;
  1960. [Crossing]Cr;
  1961. [Remove]Re;
  1962. [Add]Add;
  1963. [Undo]Un;
  1964. [DimMENU]$S=X $S=DIM
  1965. **LINETYPE 3
  1966. [LINETYP:]^C^CLINETYPE;
  1967. [?]LINETYPE ?;
  1968. [example:]VSLIDE (dd "/cci/cci(linetype)");LINETYPE \REDRAW LINETYPE;
  1969.  
  1970. [Load]Load;
  1971. [Create]Create;
  1972. [Set]S $S=CHLT \$S=
  1973.  
  1974. [Yes]Yes;
  1975. [No]No;
  1976. **LIMITS 3
  1977. [LIMITS:]^C^CLIMITS;
  1978.  
  1979. [On]ON;
  1980. [Off]OFF;
  1981. **SNAP 3
  1982. [SNAP:]^C^CSNAP;
  1983.  
  1984. [ON]ON;
  1985. [OFF]OFF;
  1986. [Aspect]ASPECT;
  1987. [Rotate]snap rotate;$i=isnaprot $i=*
  1988.  
  1989. [STANDARD]SNAP S S   R 0,0 0;
  1990. [ISO]SNAP S I ;
  1991. [ISOTOGGL];
  1992. [ALLSNAP](nl "" "/cci/allsnap");
  1993.  
  1994. [SNAPSET](if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=msnapset"))(progn (menucmd "s=x")(menucmd "s=snapset"))) 'setvar snapunit;
  1995. **SNAPSET 3
  1996. ['SNAPSET]'SETVAR SNAPUNIT;
  1997.  
  1998. [1/64].015625,.015625;$s= $s=
  1999. [1/32].03125,.03125;$s= $s=
  2000. [1/16].0625,.0625;$s= $s=
  2001. [1/8].125,.125;$s= $s=
  2002. [1/4].25,.25;$s= $s=
  2003. [1/2].5,.5;$s= $s=
  2004. [3/4].75,.75;$s= $s=
  2005. [ 1 ]1,1;$s= $s=
  2006. [ 2 ]2,2;$s= $s=
  2007. [ 3 ]3,3;$s= $s=
  2008. [ 4 ]4,4;$s= $s=
  2009. [ 6 ]6,6;$s= $s=
  2010. [ 8 ]8,8;$s= $s=
  2011. [ 10 ]10,10;$s= $s=
  2012. [ 1' ]12,12;$s= $s=
  2013. [ 2' ]24,24;$s= $s=
  2014. [ 4' ]48,48;$s= $s=
  2015. **MSNAPSET 3
  2016. ['SNAPSET]'SETVAR SNAPUNIT;
  2017.  
  2018. [10.00]10.0,10.0;$s= $s=
  2019. [5.000]5.00,5.00;$s= $s=
  2020. [2.000]2.00,2.00;$s= $s=
  2021. [1.000]1.00,1.00;$s= $s=
  2022. [ .500].500,.500;$s= $s=
  2023. [ .200].200,.200;$s= $s=
  2024. [ .100].100,.100;$s= $s=
  2025. [ .075].075,.075;$s= $s=
  2026. [ .050].050,.050;$s= $s=
  2027. [ .020].020,.020;$s= $s=
  2028. [ .010].010,.010;$s= $s=
  2029. [ .005].005,.005;$s= $s=
  2030. [ .001].001,.001;$s= $s=
  2031. [ .0005].0005,.0005;$s= $s=
  2032. **TABLET 3
  2033. [TABLET:]^C^CTABLET;
  2034.  
  2035. [cal]CAL;
  2036. [config]VSLIDE (dd "/cci/cci(tab)");TABLET CFG 4 25 9 11 9 9 13 25 7 Y;REDRAW;
  2037. [re-confg]VSLIDE (dd "/cci/cci(tab)");TABLET cfg 4 y 25 9 11 9 9 13 25 7 y;REDRAW;
  2038. [ON]ON;
  2039. [OFF]OFF;
  2040. [Yes]Yes;
  2041. [No]No;
  2042. **OSNAPC 3
  2043. [OSNAP:]^C^COSNAP;
  2044.  
  2045. [CENter]CENTER,\
  2046. [ENDpoint]ENDPOINT,\
  2047. [INSert]INSERT,\
  2048. [INTersec]INTERSEC,\
  2049. [MIDpoint]MIDPOINT,\
  2050. [NEArest]NEAREST,\
  2051. [NODe]NODE,\
  2052. [PERpend]PERPEND,\
  2053. [QUAdrant]QUADRANT,\
  2054. [TANgent]TANGENT,\
  2055.  
  2056. [None]OSNAP NONE $S= $S=
  2057. [Quick,]QUICK,^Z
  2058. **DRAGMODE 3
  2059. [DRAGMODE]^C^CDRAGMODE;
  2060.  
  2061. [ON]ON $S=S
  2062. [OFF]OFF $S=S
  2063. [Auto]Auto $S=S
  2064. **GRID 3
  2065. [GRID:]^C^CGRID;
  2066. [grd=snap]SNAP;
  2067. [Aspect]Aspect;
  2068. [1/16].0625;
  2069. [1/8].125;
  2070. [1/4].25;
  2071. [1/2].5;
  2072. [ 1 ]1;
  2073. [ 2 ]2;
  2074. [ 4 ]4;
  2075. [ 6 ]6;
  2076. [ 8 ]8;
  2077. [ 10 ]10;
  2078. [ 12 ]12;
  2079. [ 2']24;
  2080. [ 5']60;
  2081. [ 10']120;
  2082. **GRIDM 3
  2083. [GRID:]^C^CGRID;
  2084. [grd=snap]SNAP;
  2085. [Aspect]Aspect;
  2086. [10.00]10.0;
  2087. [5.000]5.00;
  2088. [2.000]2.00;
  2089. [1.000]1.00;
  2090. [ .500].500;
  2091. [ .200].200;
  2092. [ .100].100;
  2093. [ .075].075;
  2094. [ .050].050;
  2095. [ .020].020;
  2096. [ .010].010;
  2097. [ .005].005;
  2098. [ .001].001;
  2099. [ .0005].0005;
  2100.  
  2101. **SETVAR 3
  2102. [SETVAR:]^C^CSETVAR;
  2103. [?]?;
  2104.  
  2105. ['SETVAR]'SETVAR;
  2106. [AFLAG]'SETVAR AFLAGS;
  2107. [BLIPMODE]'SETVAR BLIPMODE;
  2108. [DRAGMODE]'SETVAR DRAGMODE;
  2109. [ELEV]'SETVAR ELEVATION;
  2110. [EXPERT]'SETVAR EXPERT;
  2111. [LTSCALE]'SETVAR LTSCALE;
  2112. [MIRRTEXT]'SETVAR MIRRTEXT;
  2113. [PDMODE]'SETVAR PDMODE;
  2114. [PDSIZE]'SETVAR PDSIZE;
  2115. [THICKN]'SETVAR THICKNESS;
  2116.  
  2117. **QTEXT 3
  2118. [QTEXT:]^C^CQTEXT;
  2119.  
  2120. [ON]ON;
  2121. [OFF]OFF;
  2122. [REGEN:]REGEN;
  2123. **VIEWRES 3
  2124. [VIEWRES:]^C^CVIEWRES;
  2125.  
  2126. [No]No;
  2127. [Yes]Yes;
  2128.  
  2129. 100
  2130. 500
  2131. 750
  2132. 1000
  2133.  
  2134. [RGNAUTO:]^C^CREGENAUTO;
  2135. **APERTURE 3
  2136. [select]
  2137. [ size]
  2138.  
  2139. [1]1;
  2140. [2]2;
  2141. [3]3;
  2142. [4]4;
  2143. [5]5;
  2144. [6]6;
  2145. [7]7;
  2146. [8]8;
  2147. [9]9;
  2148. [10]10;
  2149. [15]15;
  2150. **ARRAY 3
  2151. [ARRAY:]^C^CARRAY;
  2152. [ANGARRAY](nl "" "/cci/angarray");
  2153. [3DARRAY](nl c:3darray "/cci/3darray") 3darray;
  2154. [3DANGARR](nl c:3dangarr "/cci/3dangarr") 3dangarr;
  2155.  
  2156. [Auto]auto;
  2157. [Window]Win;
  2158. [Last]Last;
  2159. [Previous]Pre;
  2160. [Crossing]Cr;
  2161. [Remove]Re;
  2162. [Add]Add;
  2163. [Undo]Un;
  2164.  
  2165. [Rectang]Rectang;
  2166. [Polar]Polar;
  2167. [Circular]Cir;
  2168. **ROTATE 3
  2169. [ROTATE:]^C^CROTATE;
  2170. [3DROTATE](nl c:3drotate "/cci/3drotate") 3drotate;
  2171. [AXROT](nl c:axrot "/cci/axrot") axrot;
  2172.  
  2173. [Auto]auto;
  2174. [Window]Win;
  2175. [Last]Last;
  2176. [Previous]Pre;
  2177. [Crossing]Cr;
  2178. [Remove]Re;
  2179. [Add]Add;
  2180. [Undo]Un;
  2181.  
  2182. [Referenc]R;
  2183.  
  2184. [MOVE-ROT](nl c:mr "/cci/moverot") mr;
  2185. [ROT-MOVE](nl c:rm "/cci/rotmove") rm;
  2186. **SELECT 3
  2187. [SELECT:]^C^CSELECT;
  2188.  
  2189. [Auto]auto;
  2190. [Single]Single;
  2191. [Window]Win;
  2192. [Last]Last;
  2193. [Previous]Pre;
  2194. [Crossing]Cr;
  2195. [Remove]Re;
  2196. [Add]Add;
  2197. [Undo]Un;
  2198. **SCALE 3
  2199. [SCALE:]^C^CSCALE;
  2200.  
  2201. [Auto]auto;
  2202. [Single]Single;
  2203. [Window]Win;
  2204. [Last]Last;
  2205. [Previous]Pre;
  2206. [Crossing]Cr;
  2207. [Remove]Re;
  2208. [Add]Add;
  2209. [Undo]Un;
  2210.  
  2211. [Referenc]Ref;
  2212.  
  2213. [BLKSCALE](nl "" "/cci/blkscale");
  2214. **BREAK 3
  2215. [BREAK:]^C^CBREAK;
  2216.  
  2217. [BREAK F]^C^CBREAK \F;
  2218. [BREAK @0]^C^CBREAK \F \@;
  2219. [BRKLOOP](nl "" "/cci/brkloop");
  2220. **MOVE 3
  2221. [MOVE:]^C^CMOVE auto;
  2222.  
  2223. [Window]Win;
  2224. [Last]Last;
  2225. [Previous]Pre;
  2226. [Crossing]Cr;
  2227.  
  2228. [end-end]endp \endp;
  2229. [end-mid]endp \midp;
  2230. [mid-mid]midp \midp;
  2231.  
  2232. [MOVE-ROT](nl c:mr "/cci/moverot") mr;
  2233. [ROT-MOVE](nl c:rm "/cci/rotmove") rm;
  2234. [MOVEOBJ]mo;
  2235. **COPY 3
  2236. [COPY:]^C^CCOPY auto;
  2237.  
  2238. [Multiple]Mult;
  2239. [Window]Win;
  2240. [Last]Last;
  2241. [Previous]Pre;
  2242. [Crossing]Cr;
  2243.  
  2244. [end-end]endp \endp;
  2245. [end-mid]endp \midp;
  2246. [mid-mid]midp \midp;
  2247.  
  2248. [COPY-ROT](nl c:cr "/cci/copyrot") cr;
  2249. [ROT-COPY](nl c:rc "/cci/rotcopy") rc;
  2250. **UNDO 3
  2251. [UNDO:]^C^CUNDO;
  2252.  
  2253. [Back 1]^C^CUNDO 1;
  2254.  
  2255. [Auto]Auto;
  2256. [Back]Back;
  2257. [End]En;
  2258. [Group]Gr;
  2259. [Mark]Mark;
  2260. [Control]$S=UNDOC Control;
  2261.  
  2262. [Yes]Yes;
  2263. [No]No;
  2264.  
  2265. [REDO:]REDO;
  2266. **UNDOC 11
  2267. [All]All;
  2268. [None]None;
  2269. [One]One;
  2270. **ERASE 3
  2271. [ERASE:]^C^CERASE auto;
  2272.  
  2273. [Auto]auto;
  2274. [Single]Single;
  2275. [Window]Win;
  2276. [Last]Last;
  2277. [Previous]Pre;
  2278. [Crossing]Cr;
  2279. [Remove]Re;
  2280. [Add]Add;
  2281. [Undo]Un;
  2282.  
  2283. [OOPS:]^C^COOPS;
  2284. [ERASER](nl "" "/cci/eraser");
  2285. [ERASEOUT](nl "" "/cci/eraseout");
  2286. [ERASENT](nl "" "/cci/eraseent");
  2287. [DELAYER](nl "" "/cci/dellayr")(dellayr);
  2288. **P0 2
  2289. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  2290. [Last]Last;
  2291. [Yes]Yes;
  2292. [No]No;
  2293. [Close]Close;
  2294. [Open]Open;
  2295. [Join]Join;
  2296. [Width]Wid;
  2297. [Ed Vrtx]Ed $s=x $S=PVERTED
  2298. [Spline]spline;
  2299. [Fit Curv]Fit;
  2300. [Decurve]Dec;
  2301. [Undo]U;
  2302. [eXit]X $S=S
  2303. [SavWidth](nl "" "/cci/widthsav");
  2304. [UseWidth]w (princ (rtos pwid1))(princ) !pwid1
  2305. [PolyVars]$S=X $S=PVARS $i=ipoly $i=*
  2306. [Polywid](nl "" "/cci/polywid");
  2307. **P8 3
  2308. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  2309.  
  2310. [Last]Last;
  2311. [Close]Close;
  2312. [Open]Open;
  2313. [Ed Vrtx]Ed $s=x $S=3DPVERTED
  2314. [Spline]spline;
  2315. [Decurve]Dec;
  2316. [Undo]U;
  2317. [eXit]X $S=S
  2318.  
  2319. [PolyVars]$S=X $S=PVARS $i=ipoly $i=*
  2320. **P16 3
  2321. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  2322.  
  2323. [Ed Vrtx]E $S=X $S=3DMVERTED
  2324. [Smooth]smooth;
  2325. [Desmooth]desmooth;
  2326. [Mclose]mclose;
  2327. [Nclose]nclose;
  2328. [Mopen]mopen;
  2329. [Nopen]nopen;
  2330. [Undo]U;
  2331. [eXit]^C^C$S=X $S=S 
  2332.  
  2333. [PolyVars]$S=X $S=PVARS $i=ipoly $i=*
  2334. **PVARS 3
  2335. [Polyvars]$i=ipoly $i=*
  2336.  
  2337. [SPLframe]'SETVAR SPLFRAME
  2338. [ On]1
  2339. [ Off]0
  2340. [SPLsegs]'SETVAR SPLINESEGS
  2341. [SPLtype]'SETVAR SPLINETYPE
  2342. [ Quad]5
  2343. [ Cubic]6
  2344. [SURFtype]'SETVAR SURFTYPE
  2345. [ Quad]5
  2346. [ Cubic]6
  2347. [ Bezier]8
  2348. [UDensity]'SETVAR SURFU
  2349. [VDensity]'SETVAR SURFV
  2350.  
  2351. **PVERTED 3
  2352. [ed vrtx]
  2353.  
  2354. [next]Next;
  2355. [previous]Pre;
  2356. [break]Break;
  2357. [insert]Insert;
  2358. [move]Move;
  2359. [straight]Str;
  2360. [width]Wid;
  2361. [tangent]Tang;
  2362. [go]Go;
  2363. [regen]Regen;
  2364. [undo]X U $S=X $S=P0
  2365. [eXit]X $S=X $S=P0
  2366. **3DPVERTED 3
  2367. [ed vrtx]
  2368.  
  2369. [next]Next;
  2370. [previous]Pre;
  2371. [break]Break;
  2372. [insert]Insert;
  2373. [move]Move;
  2374. [straight]Str;
  2375. [regen]Regen;
  2376. [eXit]X $S=X $S=P8
  2377. **3DMVERTED 3
  2378. [ed vrtx]
  2379.  
  2380. [next]Next;
  2381. [previous]Pre;
  2382. [Left]left;
  2383. [Right]right;
  2384. [Up]up;
  2385. [Down]down;
  2386. [move]Move;
  2387. [regen]Regen;
  2388. [eXit]X $S=X $S=P16
  2389. **TRIM 3
  2390. [TRIM:]^C^CTRIM;
  2391.  
  2392. [Auto]auto;
  2393. [Single]Single;
  2394. [Window]Win;
  2395. [Last]Last;
  2396. [Previous]Pre;
  2397. [Crossing]Cr;
  2398. [Remove]Re;
  2399. [Add]Add;
  2400. [Undo]Un;
  2401.  
  2402. [LINETRIM](nl "" "/cci/linetrim");
  2403. [ERASEOUT](nl "" "/cci/eraseout");
  2404. **ATTEXT 3
  2405. [ATTEXT:]^C^CATTEXT;
  2406. [CDF]CDF;
  2407. [SDF]SDF;
  2408. [DXF]DXF;
  2409. [ENTITIES]ENTITIES;
  2410.  
  2411. [BILLMAT](setq temp (strcase (getstring " Enter template file (extension .txt assumed) <temp>: ")))(if (= temp "")(setq temp "TEMP"))(nl billmat "/cci/billmat")(billmat temp);
  2412. [TAMLLIB](nl tamllib "/cci/tamllib")(tamllib);
  2413. [TEMPLAT](nl "" "/cci/tplate");
  2414. **SLIDES 3
  2415. [MSLIDE:]^C^CMSLIDE;
  2416.  
  2417. [Yes]Yes;
  2418. [No]No;
  2419.  
  2420. [VSLIDE:]^C^CVSLIDE;
  2421. [SLIDSHOW](nl "" "/cci/slidshow");
  2422. **SCRIPT 3
  2423. [SCRIPT:]^C^CSCRIPT;
  2424.  
  2425. [DELAY:]DELAY;
  2426. [RESUME:]RESUME;
  2427. [RSCRIPT:]RSCRIPT;
  2428.  
  2429. [USER 1]script (dd "/custom/user1");
  2430. [USER 2]script (dd "/custom/user2");
  2431. [USER 3]script (dd "/custom/user3");
  2432. [USER 4]script (dd "/custom/user4");
  2433. [USER 5]script (dd "/custom/user5");
  2434. [USER 6]script (dd "/custom/user6");
  2435. [USER 7]script (dd "/custom/user7");
  2436. [USER 8]script (dd "/custom/user8");
  2437.  
  2438. [LASCRIPT](nl "" "/cci/lascript");
  2439. **PURGE 3
  2440. [PURGE:]^C^CPURGE;
  2441. [Blocks]Block;
  2442. [LAyers]LAy;
  2443. [LTypes]LTy;
  2444. [STyles]STy;
  2445. [SHapes]SHa;
  2446. [All]All;
  2447.  
  2448. [Yes]Yes;
  2449. [No]No;
  2450. **RENAME 3
  2451. [RENAME:]^C^CRENAME;
  2452. [Blocks]Block;
  2453. [LAyers]LAy;
  2454. [LTypes]LTy;
  2455. [Styles]Sty;
  2456. [View]View;
  2457.  
  2458. [Ucs]ucs;
  2459. [VPort]VPORT;
  2460.  
  2461. [Yes]Yes;
  2462. [No]No;
  2463. **DXF 3
  2464. [DXFIN:]^C^CDXFIN;
  2465.  
  2466. [DXFOUT:]^C^CDXFOUT;
  2467. [16]16;
  2468. [ENTITIES]ENTITIES;
  2469.  
  2470. [Window]Win;
  2471. [Last]Last;
  2472. [Previous]Pre;
  2473. [Crossing]Cr;
  2474. [Remove]Re;
  2475. [Add]Add;
  2476. [Undo]Un;
  2477.  
  2478. [DXBIN:]^C^CDXBIN;
  2479.  
  2480. [IGESIN:]^C^CIGESIN;
  2481. [IGESOUT:]^C^CIGESOUT;
  2482. **EXTEND 3
  2483. [EXTEND:]^C^CEXTEND;
  2484.  
  2485. [Auto]auto;
  2486. [Single]Single;
  2487. [Window]Win;
  2488. [Last]Last;
  2489. [Previous]Pre;
  2490. [Crossing]Cr;
  2491. [Remove]Re;
  2492. [Add]Add;
  2493. [Undo]Un;
  2494. **STRETCH 3
  2495. [STRETCH:]^C^CSTRETCH C;
  2496.  
  2497. [Auto]auto;
  2498. [Single]Single;
  2499. [Window]Win;
  2500. [Last]Last;
  2501. [Previous]Pre;
  2502. [Crossing]Cr;
  2503. [Remove]Re;
  2504. [Add]Add;
  2505. [Undo]Un;
  2506.  
  2507. [ST2DIM](nl "" "/cci/st2dim");
  2508. [ST REMOV]str;
  2509. **MIRROR 3
  2510. [MIRROR:]^C^CMIRROR auto;
  2511.  
  2512. [Auto]auto;
  2513. [Single]Single;
  2514. [Window]Win;
  2515. [Last]Last;
  2516. [Previous]Pre;
  2517. [Crossing]Cr;
  2518. [Remove]Re;
  2519. [Add]Add;
  2520. [Undo]Un;
  2521.  
  2522. [Yes]Yes;
  2523. [No]No;
  2524. [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)))
  2525. **FILLET 2
  2526. [FILLET]FILLET;
  2527. [ Pline]fillet p;
  2528.  
  2529. [0]FILLET R 0 FILLET;
  2530. [1/64]FILLET R .015625 FILLET;
  2531. [1/32]FILLET R .03125 FILLET;
  2532. [1/16]FILLET R .0625 FILLET;
  2533. [1/8]FILLET R .125 FILLET;
  2534. [1/4]FILLET R .25 FILLET;
  2535. [1/2]FILLET R .5 FILLET;
  2536. [1"]FILLET R 1 FILLET;
  2537. [2"]FILLET R 2 FILLET;
  2538. [6"]FILLET R 6 FILLET;
  2539. [1']FILLET R 12 FILLET;
  2540. [2']FILLET R 24 FILLET;
  2541. [PICK RAD](nl "" "/cci/fradpick")(PRINC);
  2542. [RECALL R]FILLET R !FILLRAD FILLET;
  2543. [SAVE R](princ "SAVING RADIUS ")(SETQ FILLRAD (GETVAR "FILLETRAD"))(PRINC);
  2544. **MFILLET 2
  2545. [FILLET]FILLET;
  2546. [10.00]FILLET R 10.0;FILLET;
  2547. [5.000]FILLET R 5.00;FILLET;
  2548. [2.000]FILLET R 2.00;FILLET;
  2549. [1.000]FILLET R 1.00;FILLET;
  2550. [ .500]FILLET R .500;FILLET;
  2551. [ .200]FILLET R .200;FILLET;
  2552. [ .100]FILLET R .100;FILLET;
  2553. [ .075]FILLET R .075;FILLET;
  2554. [ .050]FILLET R .050;FILLET;
  2555. [ .020]FILLET R .020;FILLET;
  2556. [ .010]FILLET R .010;FILLET;
  2557. [ .005]FILLET R .005;FILLET;
  2558. [ .001]FILLET R .001;FILLET;
  2559. [ 0]FILLET R 0 FILLET;
  2560. [PICK RAD](nl "" "/cci/fradpick")(PRINC);
  2561. [RECALL R]FILLET R !FILLRAD FILLET;
  2562. [SAVE R](PRINC "SAVING RADIUS ")(SETQ FILLRAD (GETVAR "FILLETRAD"))(PRINC);
  2563. **CHAMFER 3
  2564. [CHAMFER:]^C^CCHAMFER;
  2565. [distance]CHAMFER D \\CHAMFER;
  2566. [polyline]CHAMFER P;
  2567.  
  2568. [ 0]CHAMFER D 0 0 CHAMFER;
  2569. [1/64]CHAMFER D .015625 .015625 CHAMFER;
  2570. [1/32]CHAMFER D .03125 .03125 CHAMFER;
  2571. [1/16]CHAMFER D .0625 .0625 CHAMFER;
  2572. [1/8]CHAMFER D .125 .125 CHAMFER;
  2573. [1/4]CHAMFER D .25 .25 CHAMFER;
  2574. [1/2]CHAMFER D .5 .5 CHAMFER;
  2575. [1"]CHAMFER D 1 1 CHAMFER;
  2576. [2"]CHAMFER D 2 2 CHAMFER;
  2577. [6"]CHAMFER D 6 6 CHAMFER;
  2578. [1']CHAMFER D 12 12 CHAMFER;
  2579.  
  2580. [RECALL D]CHAMFER D !CHAMDST1 !CHAMDST2 CHAMFER;
  2581. [SAVE D](PRINC "SAVING CHAMFERS ")(setq chamdst1 (getvar "chamfera") chamdst2 (getvar "chamferb"))(PRINC);
  2582. **MCHAMFER 3
  2583. [CHAMFER:]^C^CCHAMFER;
  2584. [distance]CHAMFER D \\CHAMFER;
  2585. [polyline]CHAMFER P;
  2586. [10.00]CHAMFER D 10.0;;CHAMFER;
  2587. [5.000]CHAMFER D 5.00;;CHAMFER;
  2588. [2.000]CHAMFER D 2.00;;CHAMFER;
  2589. [1.000]CHAMFER D 1.00;;CHAMFER;
  2590. [ .500]CHAMFER D .500;;CHAMFER;
  2591. [ .100]CHAMFER D .100;;CHAMFER;
  2592. [ .075]CHAMFER D .075;;CHAMFER;
  2593. [ .050]CHAMFER D .050;;CHAMFER;
  2594. [ .020]CHAMFER D .020;;CHAMFER;
  2595. [ .010]CHAMFER D .010;;CHAMFER;
  2596. [ .005]CHAMFER D .005;;CHAMFER;
  2597. [ .001]CHAMFER D .001;;CHAMFER;
  2598. [ .0005]CHAMFER D .000;;CHAMFER;
  2599. [ 0]CHAMFER D 0 0 CHAMFER;
  2600. [RECALL D]CHAMFER D !CHAMDST1 !CHAMDST2 CHAMFER;
  2601. [SAVE D](PRINC "SAVING CHAMFERS ")(setq chamdst1 (getvar "chamfera") chamdst2 (getvar "chamferb"))(PRINC);
  2602. **DIVIDE 3
  2603. [DIVIDE:]^C^CDIVIDE;
  2604.  
  2605. [Block]Block;
  2606. [Yes]Yes;
  2607. [No]No;
  2608.  
  2609. [SETPOINT]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW DIVIDE;
  2610. [PDMODE 0]'SETVAR PDMODE 0
  2611.  
  2612. [DIVCOPY](nl c:dc "/cci/divcopy") dc;
  2613. **MEASURE 3
  2614. [MEASURE:]^C^CMEASURE;
  2615.  
  2616. [Block]Block;
  2617. [Yes]Yes;
  2618. [No]No;
  2619.  
  2620. [SETPOINT]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW MEASURE;
  2621. [PDMODE 0]'SETVAR PDMODE 0
  2622. **EXPLODE 3
  2623. [EXPLODE:]^C^CEXPLODE;
  2624.  
  2625. [LEXPLODE](nl c:lexplode "/cci/lexplode") lexplode;
  2626. [POLYEXP](nl "" "/cci/polyexp");
  2627. **CHANGE 2
  2628. [CHANGE:]^C^CCHANGE auto;
  2629. [Window]Win;
  2630. [Last]Last;
  2631. [Previous]Pre;
  2632. [Crossing]Cr;
  2633. [Remove]Re;
  2634. [Add]Add;
  2635. [Undo]Un;
  2636.  
  2637. [Color]PROP COLOR $s=x $S=CHCOLOR \$S= $s=
  2638. [Elev]PROP ELEV;
  2639. [Layer]PROP La;
  2640. [LType]PROP LT $s=x $S=CHLT \$S= $s=
  2641. [Thicknes]PROP THICKNESS;
  2642. [TEXT]$S=X $S=CHANGETXT
  2643. [BLOCK]$S=X $S=CHGBLK
  2644. [CHCOLOR](nl "" "/cci/chcolor");
  2645. [CHLAYER](if (/= sdscrn "Y")(nl "" "/cci/chlay")(nl "" "/cci/chlays"))(princ) chlay;
  2646. **CHPROP 3
  2647. [CHPROP:]^C^CCHPROP;
  2648.  
  2649. [Window]Win;
  2650. [Last]Last;
  2651. [Previous]Pre;
  2652. [Crossing]Cr;
  2653.  
  2654. [Color]PROP COLOR $S=CHCOLOR \$S=X $S=CHPROP
  2655. [LAyer]PROP LA;
  2656. [LType]PROP LT $S=CHLT \$S=X $S=CHPROP
  2657. [Thicknes]PROP THICKNESS;
  2658. **CHANGETXT 3
  2659. [--------]
  2660. [all at]
  2661. [ once]
  2662.  
  2663. [TEXTCHG](nl textchg "/cci/textchg")(textchg);
  2664. [TXTOUTIN](nl "" "/cci/txtoutin");
  2665.  
  2666. [--------]
  2667. [one at a]
  2668. [ time]
  2669.  
  2670. [STYLE](SETQ TEMP "S")(nl textmod "/cci/textmod")(TEXTMOD);
  2671. [HEIGHT](SETQ TEMP "H")(nl textmod "/cci/textmod")(TEXTMOD);
  2672. [ANGLE](SETQ TEMP "A")(nl textmod "/cci/textmod")(TEXTMOD);
  2673. [TEXT](SETQ TEMP "T")(nl textmod "/cci/textmod")(TEXTMOD);
  2674.  
  2675. [EDITTEXT](nl c:chgtext "/cci/chgtext") chgtext;
  2676. **CHGBLK 3
  2677. [blocks]
  2678. [ only]
  2679.  
  2680. [MOVE]CHANGE \  \;
  2681. [ROTATE]CHANGE \   \
  2682. [MOVE-ROT]CHANGE \ ;
  2683. [ROT-MOVE]CHANGE \   \ P   \;
  2684.  
  2685. [COPY]CB
  2686.  
  2687. [BLKscale](nl "" "/cci/blkscale");
  2688. [BLKrot](nl angblk "/cci/angblk")(angblk);
  2689. [XYZscale](nl xyzblk "/cci/xyzblk")(xyzblk);
  2690. [REDEFINE](nl redfblk "/cci/redfblk")(redfblk);
  2691. [REPLACE](nl "" "/cci/replblk");
  2692. [BSWAP](nl "" "/cci/bswap");
  2693. **CHCOLOR 3
  2694. [color]
  2695.  
  2696. [bylayer]BYLAYER;
  2697. [byblock]BYBLOCK;
  2698.  
  2699. [red]RED;
  2700. [yellow]YELLOW;
  2701. [green]GREEN;
  2702. [cyan]CYAN;
  2703. [blue]BLUE;
  2704. [magenta]MAGENTA;
  2705. [white]WHITE;
  2706.  
  2707. [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;
  2708. **CHLT 3
  2709. [ltype]
  2710.  
  2711. [bylayer]BYLAYER;
  2712. [byblock]BYBLOCK;
  2713.  
  2714. [contin.]CONTINUOUS;
  2715. [dashed]DASHED;
  2716. [hidden]HIDDEN;
  2717. [center]CENTER;
  2718. [phantom]PHANTOM;
  2719. [dot]DOT;
  2720. [dashdot]DASHDOT;
  2721. [border]BORDER;
  2722. **COLOR 3
  2723. [COLOR:]^C^CCOLOR;
  2724.  
  2725. [bylayer]BYLAYER;
  2726. [byblock]BYBLOCK;
  2727.  
  2728. [red]RED;
  2729. [yellow]YELLOW;
  2730. [green]GREEN;
  2731. [cyan]CYAN;
  2732. [blue]BLUE;
  2733. [magenta]MAGENTA;
  2734. [white]WHITE;
  2735.  
  2736. [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;
  2737. **ATTEDIT 3
  2738. [ATTEDIT:]^C^CATTEDIT;
  2739.  
  2740. [TXTVAL 1]*ATTEDIT     \ V  \;
  2741. [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  \;
  2742. [ANGLE0 1]*ATTEDIT     \ A 0  
  2743. [ANGLE0 W]ATTEDIT     W \\AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 +
  2744. 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 +
  2745. 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 
  2746. [ATT move]*ATTEDIT     \ P \ 
  2747. [ANG0 M 1]*ATTEDIT     \ A 0 P \ 
  2748. [ANG0 M W]ATTEDIT     W \\AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \+
  2749. 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 \+
  2750. 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 \
  2751. [Height]HEI;
  2752. [Angle]ANG;
  2753. [Layer]Lay;
  2754. [Color]$S=X $S=ATTCOLOR C;
  2755. [Style]Style;
  2756. [Next]Next;
  2757. [DDATTE]ddatte;
  2758. [NUMSHIFT](nl "" "/cci/numshift");
  2759. **ATTCOLOR 3
  2760. [color] 
  2761.  
  2762. [red]RED $S= $S=
  2763. [yellow]YELLOW $S= $S=
  2764. [green]GREEN $S= $S=
  2765. [cyan]CYAN $S= $S=
  2766. [blue]BLUE $S= $S=
  2767. [magenta]MAGENTA $S= $S=
  2768. [white]WHITE $S= $S=
  2769. **UCS1 2
  2770. [UCS:]^C^CUCS;
  2771. [DDUCS:]^C^CDDUCS
  2772. [UCSsetup](nl "" "/cci/ucssetup");
  2773. [Presets]^C^C$i=iucs $i=*
  2774. [Del]del;
  2775. [World]world;
  2776. [Previous]prev;
  2777. [New]New;
  2778. [Restore]restore;
  2779.  
  2780. [3P]3p;
  2781. [XRot]x;
  2782. [Yrot]y;
  2783. [Zrot]z;
  2784. [View]view;
  2785. [RENAME:]^C^CRename UCS;
  2786. [?]?;
  2787. **UCSICON 3
  2788. [UCSICON:]^C^CUCSICON;
  2789.  
  2790. [ON]on;
  2791. [OFF]off;
  2792.  
  2793. [All]all;
  2794. [Origin]origin;
  2795. [Noorigin]noorigin;
  2796. **PLAN 3
  2797. [PLAN:]^C^CPLAN;
  2798.  
  2799. [UCS]ucs;
  2800. [World]world;
  2801.  
  2802. ['Follow]'SETVAR UCSFOLLOW
  2803. **HANDLE 3
  2804. [HANDLES:]^C^CHANDLES;
  2805.  
  2806. [ON]ON;
  2807. [DESTROY]DESTROY;
  2808.  
  2809. [Status]Stat;
  2810. **MUNITS 2
  2811.  
  2812. [unit    ]
  2813. [type   ]
  2814.  
  2815.  
  2816. [SCIENTFC]1;
  2817.  
  2818. [DECIMAL ]2;
  2819.  
  2820. [ENGINRNG]3;
  2821.  
  2822.  
  2823.  
  2824.  
  2825.  
  2826.  
  2827.  
  2828.  
  2829.  
  2830. **MU2 2
  2831. [Metric  ]
  2832. [Decimal ]
  2833.  
  2834. [ 1:5000 ]5000.0;
  2835. [ 1:2000 ]2000.0;
  2836. [ 1:1000 ]1000.0;
  2837. [ 1:500  ]500.0;
  2838. [ 1:200  ]200.0;
  2839.  
  2840. [ 1:100  ]100.0;
  2841. [ 1:75   ]75.0;
  2842. [ 1:50   ]50.0;
  2843. [ 1:20   ]20.0;
  2844. [ 1:10   ]10.0;
  2845. [ 1:5    ]5.0;
  2846. [ 1:2    ]2.0;
  2847. [  FULL  ]1.0;
  2848.  
  2849. [OTHER  >]0;
  2850. **MU3 2
  2851.  
  2852. [enginrng]
  2853. [scale   ]
  2854.  
  2855.  
  2856. [ 1:50000]50000.0;
  2857. [ 1:20000]20000.0;
  2858. [ 1:10000]10000.0;
  2859. [ 1:7500 ]7500.0;
  2860.  
  2861. [ 1:5000 ]5000.0;
  2862. [ 1:2000 ]2000.0;
  2863. [ 1:1000 ]1000.0;
  2864. [ 1:500  ]500.0;
  2865. [ 1:200  ]200.0;
  2866.  
  2867.  
  2868. [OTHER  >]0;
  2869.  
  2870.  
  2871. **MP1 2
  2872. [plotter]
  2873. [ type ]
  2874.  
  2875. [calcomp]
  2876. [ 1043]2;$S=METRIC
  2877.  
  2878. [hewlett]
  2879. [packard]
  2880. [ 7470]3;$S=METRIC
  2881. [ 7475]3;$S=METRIC
  2882. [ 7585]4;$S=METRIC
  2883.  
  2884. [houston]
  2885. [instrum]
  2886. [DMP41/51]5;$S=METRIC
  2887. [DMP42/52]5;$S=METRIC
  2888.  
  2889. [NONE]0;$S=METRIC
  2890. [OTHER]0;$S=MTERIC
  2891. **UNITS 2
  2892.  
  2893. [unit    ]
  2894. [type   ]
  2895.  
  2896.  
  2897. [SCIENTFC]1;
  2898.  
  2899. [DECIMAL ]2;
  2900.  
  2901. [ENGINRNG]3;
  2902.  
  2903. [ARCHTECT]4;
  2904.  
  2905. [METRIC  ]5;
  2906.  
  2907.  
  2908.  
  2909.  
  2910.  
  2911.  
  2912. **U1 2
  2913.  
  2914. [scientfc]
  2915. [scale   ]
  2916.  
  2917.  
  2918. [4 TIMES ]4.0;
  2919.  
  2920. [2 TIMES ]2.0;
  2921.  
  2922. [FULL    ]1.0;
  2923.  
  2924. [HALF    ]0.5;
  2925.  
  2926. [QUARTER ]0.25;
  2927.  
  2928. [OTHER   ]0;
  2929.  
  2930.  
  2931.  
  2932.  
  2933. **U2 2
  2934. [decimal ]
  2935. [scale   ]
  2936.  
  2937. [8 TIMES ]0.125;
  2938.  
  2939. [4 TIMES ]0.25;
  2940.  
  2941. [2 TIMES ]0.5;
  2942.  
  2943. [FULL    ]1.0;
  2944.  
  2945. [ 3/4    ]1.5;
  2946.  
  2947. [ 1/2    ]2.0;
  2948.  
  2949. [ 1/4    ]4.0;
  2950.  
  2951. [ 1/8    ]8.0;
  2952.  
  2953. [OTHER  >]0;
  2954. **U3 2
  2955.  
  2956. [enginrng]
  2957. [scale   ]
  2958.  
  2959. [1"=10'  ]120.0;
  2960. [1"=20'  ]240.0;
  2961.  
  2962. [1"=30'  ]360.0;
  2963. [1"=40'  ]480.0;
  2964.  
  2965. [1"=50'  ]600.0;
  2966. [1"=60'  ]720.0;
  2967.  
  2968. [1"=80'  ]960.0;
  2969. [1"=100' ]1200.0;
  2970. [1"=200' ]2400.0;
  2971. [1"=300' ]3600.0;
  2972.  
  2973. [OTHER  >]0;
  2974.  
  2975. **U4 2
  2976. [archtect]
  2977. [1/64"=1']768.0;
  2978. [1/40"=1']480.0;
  2979. [1/32"=1']384.0;
  2980. [1/20"=1']240.0;
  2981. [1/16"=1']192.0;
  2982. [3/32"=1']128.0;
  2983. [ 1/8"=1']96.0;
  2984. [3/16"=1']64.0;
  2985. [ 1/4"=1']48.0;
  2986. [ 3/8"=1']32.0;
  2987. [ 1/2"=1']24.0;
  2988. [ 3/4"=1']16.0;
  2989. [   1"=1']12.0;
  2990. [1-1/2"=1]8.0;
  2991. [   3"=1']4.0;
  2992. [   6"=1']2.0;
  2993. [  FULL  ]1.0;
  2994. [1"=n']$S=X $S=U3
  2995. [OTHER  >]0;
  2996. **U5 2
  2997.  
  2998. [metric  ]
  2999.  
  3000. [ 1:5000 ]5000.0;
  3001. [ 1:2000 ]2000.0;
  3002. [ 1:1000 ]1000.0;
  3003. [ 1:500  ]500.0;
  3004. [ 1:200  ]200.0;
  3005.  
  3006. [ 1:100  ]100.0;
  3007. [ 1:75   ]75.0;
  3008. [ 1:50   ]50.0;
  3009. [ 1:20   ]20.0;
  3010. [ 1:10   ]10.0;
  3011. [ 1:5    ]5.0;
  3012. [  FULL  ]1.0;
  3013.  
  3014. [OTHER  >]0;
  3015.  
  3016.  
  3017. **P1 2
  3018. [plotter]
  3019. [ type ]
  3020.  
  3021. [calcomp]
  3022. [ 1043]2;$S=P2
  3023.  
  3024. [hewlett]
  3025. [packard]
  3026. [ 7470]3;$S=P3
  3027. [ 7475]3;$S=P3
  3028. [ 7585]4;$S=P4
  3029. [Draftpro]4;$S=p4
  3030.  
  3031. [houston]
  3032. [instrum]
  3033. [DMP41/51]5;$S=P5
  3034. [DMP42/52]5;$S=P5
  3035.  
  3036. [NONE]0;$S=ENGLISH
  3037.  
  3038. **P2 2
  3039. [ calcomp]
  3040. [  1043]
  3041. [ sheet  ]
  3042. [ size   ]
  3043.  
  3044.  
  3045. [A-8x10.5]10.5 8.0;
  3046. [B- 10x16]16.0 10.0;
  3047. [C- 16x21]21.0 16.0;
  3048. [D- 21X33]33.0 21.0;
  3049. [E- 33x43]43.0 33.0;
  3050.  
  3051. [36x64.5]64.5 36.0;
  3052.  
  3053.  
  3054. [OTHER  >]0 0;
  3055.  
  3056.  
  3057.  
  3058. **P3 2
  3059. [ h p ]
  3060.  
  3061. [ sheet  ]
  3062. [ size   ]
  3063.  
  3064. [ 7470]
  3065. [A-7.5x10]10.125 7.775;
  3066.  
  3067.  
  3068. [ 7475]
  3069. [A-8x10.5]10.125 7.775;
  3070. [B- 10x16]16.29 10.15;
  3071.  
  3072.  
  3073. [OTHER  >]0 0;
  3074.  
  3075.  
  3076.  
  3077.  
  3078. **P4 2
  3079.  
  3080. [ h p]
  3081.  
  3082. [ sheet  ]
  3083. [ size   ]
  3084.  
  3085.  
  3086. [A-8x10.5]10.5 8.0;
  3087. [B- 10x16]16.0 10.0;
  3088. [C- 16x21]21.0 16.0;
  3089. [D- 21X33]33.0 21.0;
  3090. [E- 33x43]43.0 33.0;
  3091.  
  3092. [35x44.7]44.72 35.31;
  3093.  
  3094.  
  3095. [OTHER  >]0 0;
  3096.  
  3097.  
  3098.  
  3099. **P5 2
  3100. [  h i  ]
  3101. [sht size]
  3102. [41 - 51]
  3103. [A-8.5x11]11.0 8.5;
  3104. [B- 11x17]17.0 11.0;
  3105. [C- 16x21]21.0 16.0;
  3106. [D- 20X32]32.0 20.0;
  3107. [42 ]
  3108. [A-8.5x11]11.0 8.5;
  3109. [B- 11x17]17.0 11.0;
  3110. [C- 16x21]21.0 16.0;
  3111. [D- 21x31]31.0 21.5;
  3112. [52 ]
  3113. [A-8.5x11]11.0 8.5;
  3114. [B- 11x17]17.0 11.0;
  3115. [C- 16x21]21.0 16.0;
  3116. [D- 21x33]33.0 21.0;
  3117. [21.5x34]34.0 21.5;
  3118. [OTHER  >]0 0;
  3119.  
  3120. **ENGLISH 2
  3121.  
  3122. [ sheet  ]
  3123. [ size   ]
  3124.  
  3125.  
  3126. [A-8.5x11]11.0 8.5;
  3127. [B- 11x17]17.0 11.0;
  3128. [C- 22x34]34.0 22.0;
  3129. [   18x24]24.0 18.0;
  3130.  
  3131. [D- 24X36]36.0 24.0;
  3132. [   30x42]42.0 30.0;
  3133.  
  3134. [E- 36x42]42.0 36.0;
  3135.  
  3136.  
  3137. [OTHER  >]0 0;
  3138.  
  3139.  
  3140. **METRIC 2
  3141.  
  3142.  
  3143. [ sheet  ]
  3144. [ size   ]
  3145.  
  3146.  
  3147. [1189x841]1189.0 841.0;
  3148. [1000x707]1000.0 707.0;
  3149. [ 841x594]841.0 594.0;
  3150.  
  3151. [ 594x420]594.0 420.0;
  3152. [ 420x297]420.0 297.0;
  3153. [ 297x210]297.0 210.0;
  3154.  
  3155.  
  3156. [OTHER  >]0 0;
  3157.  
  3158.  
  3159.  
  3160.  
  3161.  
  3162. **EXCOMDS 3
  3163. [external]
  3164. [commands]
  3165.  
  3166. [CATALOG]CAT;
  3167. [DEL:]DEL;
  3168. [DIR:]DIR;
  3169. [EDIT:]ED;
  3170. [SH:]SH;
  3171. [SHELL:]SHELL;
  3172. [TYPE:]TY;
  3173. **LISP 3
  3174. [LISPLOAD]lsp;
  3175. [SAVE pt1](SETQ PT1 (GETPOINT "Digitize point to save: "));
  3176. [SAVE pt2](SETQ PT2 (GETPOINT "Digitize point to save: "));
  3177. [USE  pt1]!PT1;
  3178. [USE  pt2]!PT2;
  3179.  
  3180. [ENTLIST](nl entss "/cci/entlist")(entss);
  3181. [XYDATA](nl "" "/cci/xydata");
  3182. [MAKENEW](nl "" "/cci/makenew");
  3183. [GLUE](nl "" "/cci/glue");
  3184. [JOINMORE](nl "" "/cci/joinmore");
  3185. [SLOPE](nl "" "/cci/slope");
  3186. [ANGCALC](nl c:angcalc "/cci/angcalc") angcalc;
  3187. [LIBRARY](nl "" "/cci/library");
  3188. [ALLSNAP](nl "" "/cci/allsnap");
  3189. **ENTLIST
  3190. [entity]
  3191. [ types]
  3192.  
  3193. [LINE]LINE;
  3194. [ARC]ARC;
  3195. [CIRCLE]CIRCLE;
  3196. [POLYLINE]POLYLINE;
  3197. [POINT]POINT;
  3198. [SOLID]SOLID;
  3199. [TEXT]TEXT;
  3200. [BLOCK]INSERT;
  3201. [INSERT]INSERT;
  3202. [DIM]DIMENSION;
  3203. [3DFACE]3DFACE;
  3204.  
  3205. **TIME 3
  3206. [TIME]TIME;
  3207.  
  3208. [TIMEMGR](nl timelog "/cci/time")(timelog):
  3209. [TIMEMOD](nl "" "/cci/timemod");
  3210.  
  3211. [DRAWMAN](nl c:login "/cci/drawman");
  3212. [ LOGON](nl c:login "/cci/drawman") logon;
  3213. [ LOGOUT](nl c:login "/cci/drawman") logout;
  3214. [ END](nl c:login "/cci/drawman") end;
  3215. [ RLIST](nl c:login "/cci/drawman") rlist;
  3216. [ FINGER](nl c:login "/cci/drawman") finger;
  3217. [ SELUSER](nl c:login "/cci/drawman") seluser;
  3218. [ SELECO](nl c:login "/cci/drawman") seleco;
  3219. **BALLOON 2
  3220. [BALLOON](nl c:balloon "/cci/balloon") balloon;
  3221. [*icon*]$s=x $s=balloon $i=iballoon $i=*
  3222.  
  3223. [LEADER](nl c:leadr "/cci/leadr") leadr;
  3224. [ARCLEAD](nl c:arclead "/cci/arclead") arclead;
  3225. [LOOPLEAD](nl c:looplead "/cci/looplead") looplead;
  3226. [LEADTEXT](nl c:leadtext "/cci/leadtext") leadtext;
  3227. [LEADDTXT](nl c:leaddtxt "/cci/leaddtxt") leaddtxt;
  3228.  
  3229. [set vars]
  3230. [ARROWS](princ "Pointer type set to ARROWS ")(SETQ BUBTYP "A")(princ);
  3231. [DOTS](princ "Pointer type set to DOTS ")(SETQ BUBTYP "D")(princ);
  3232. [TICKS](princ "Pointer type set to TICKS ")(SETQ BUBTYP "T")(princ);
  3233. [NONE](princ "Pointer type set to NONE ")(SETQ BUBTYP "N")(princ);
  3234. [reset]
  3235. [TXTSTYLE](setq bubsty nil)(princ " RESETTING TEXT STYLE ")(princ);
  3236. [ARSIZE](setq asize nil)(PRINC " RESETTING ARROW SIZE ")(PRINC);
  3237. [SYM SIZE](setq bbub nil)(PRINC " RESETTING SYMBOL SIZE ")(PRINC);
  3238. **INSYM 3
  3239. [symbol]
  3240. [*icon*]$i=iinsym $i=*
  3241.  
  3242. [--/--](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);
  3243. [--//--](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);
  3244. [--///--](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);
  3245. [--|--](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);
  3246. [--||--](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);
  3247. [--|||--](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);
  3248. [--\--](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);
  3249. [--\\--](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);
  3250. [--\\\--](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);
  3251. [-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);
  3252. [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);
  3253. [BALLOON](SETQ insfl (strcat drive "/cci/ballsym") ANG 0 attfl "Y" ATTNO 1 BREAKT T BREAK "Y" insflt T)(nl "" "/cci/symbol")(PRINC);
  3254. [OTHER](nl "" "/cci/symbol");
  3255. [RESETSIZ](princ "Resetting SYMBOL size ")(setq size1 nil ang nil)(princ);
  3256. **CALCULATOR 3
  3257. [Calc](nl calc "/cci/calc")(calc);
  3258.  
  3259. [Mem] M 
  3260. [Recl]R 
  3261. [x2] SQ  
  3262. [Sqrt] SR  
  3263. [Clear] C 
  3264.  
  3265. [ /] / 
  3266. [ *] * 
  3267. [ -] - 
  3268. [ +] + 
  3269.  
  3270. [= (done)] = 
  3271. ***TABLET1
  3272. [A1]
  3273. [A2]
  3274. [A3]
  3275. [A4]
  3276. [A5]
  3277. [A6]
  3278. [A7]
  3279. [A8]
  3280. [A9]
  3281. [A10]
  3282. [A11]
  3283. [A12]
  3284. [A13]
  3285. [A14]
  3286. [A15]
  3287. [A16]
  3288. [A17]
  3289. [A18]
  3290. [A19]
  3291. [A20]
  3292. [A21]
  3293. [A22]
  3294. [A23]
  3295. [A24]
  3296. [A25]
  3297. [B1]
  3298. [B2]
  3299. [B3]
  3300. [B4]
  3301. [B5]
  3302. [B6]
  3303. [B7]
  3304. [B8]
  3305. [B9]
  3306. [B10]
  3307. [B11]
  3308. [B12]
  3309. [B13]
  3310. [B14]
  3311. [B15]
  3312. [B16]
  3313. [B17]
  3314. [B18]
  3315. [B19]
  3316. [B20]
  3317. [B21]
  3318. [B22]
  3319. [B23]
  3320. [B24]
  3321. [B25]
  3322. [C1]
  3323. [C2]
  3324. [C3]
  3325. [C4]
  3326. [C5]
  3327. [C6]
  3328. [C7]
  3329. [C8]
  3330. [C9]
  3331. [C10]
  3332. [C11]
  3333. [C12]
  3334. [C13]
  3335. [C14]
  3336. [C15]
  3337. [C16]
  3338. [C17]
  3339. [C18]
  3340. [C19]
  3341. [C20]
  3342. [C21]
  3343. [C22]
  3344. [C23]
  3345. [C24]
  3346. [C25]
  3347. [D1]
  3348. [D2]
  3349. [D3]
  3350. [D4]
  3351. [D5]
  3352. [D6]
  3353. [D7]
  3354. [D8]
  3355. [D9]
  3356. [D10]
  3357. [D11]
  3358. [D12]
  3359. [D13]
  3360. [D14]
  3361. [D15]
  3362. [D16]
  3363. [D17]
  3364. [D18]
  3365. [D19]
  3366. [D20]
  3367. [D21]
  3368. [D22]
  3369. [D23]
  3370. [D24]
  3371. [D25]
  3372. [E1]
  3373. [E2]
  3374. [E3]
  3375. [E4]
  3376. [E5]
  3377. [E6]
  3378. [E7]
  3379. [E8]
  3380. [E9]
  3381. [E10]
  3382. [E11]
  3383. [E12]
  3384. [E13]
  3385. [E14]
  3386. [E15]
  3387. [E16]
  3388. [E17]
  3389. [E18]
  3390. [E19]
  3391. [E20]
  3392. [E21]
  3393. [E22]
  3394. [E23]
  3395. [E24]
  3396. [E25]
  3397. [F1]
  3398. [F2]
  3399. [F3]
  3400. [F4]
  3401. [F5]
  3402. [F6]
  3403. [F7]
  3404. [F8]
  3405. [F9]
  3406. [F10]
  3407. [F11]
  3408. [F12]
  3409. [F13]
  3410. [F14]
  3411. [F15]
  3412. [F16]
  3413. [F17]
  3414. [F18]
  3415. [F19]
  3416. [F20]
  3417. [F21]
  3418. [F22]
  3419. [F23]
  3420. [F24]
  3421. [F25]
  3422. [G1]
  3423. [G2]
  3424. [G3]
  3425. [G4]
  3426. [G5]
  3427. [G6]
  3428. [G7]
  3429. [G8]
  3430. [G9]
  3431. [G10]
  3432. [G11]
  3433. [G12]
  3434. [G13]
  3435. [G14]
  3436. [G15]
  3437. [G16]
  3438. [G17]
  3439. [G18]
  3440. [G19]
  3441. [G20]
  3442. [G21]
  3443. [G22]
  3444. [G23]
  3445. [G24]
  3446. [G25]
  3447. [H1]
  3448. [H2]
  3449. [H3]
  3450. [H4]
  3451. [H5]
  3452. [H6]
  3453. [H7]
  3454. [H8]
  3455. [H9]
  3456. [H10]
  3457. [H11]
  3458. [H12]
  3459. [H13]
  3460. [H14]
  3461. [H15]
  3462. [H16]
  3463. [H17]
  3464. [H18]
  3465. [H19]
  3466. [H20]
  3467. [H22]
  3468. [H21]
  3469. [H23]
  3470. [H24]
  3471. [H25]
  3472. [I1]$s=x $s=3d
  3473. [I2]$s=x $s=3d
  3474. [I3]$s=x $s=3d
  3475. [I4]$s=x $s=3d
  3476. [I5]$s=x $s=3d
  3477. [I6]$s=x $s=3d
  3478. [I7]
  3479. [I8]
  3480. [I9]$s=x $s=ds
  3481. [I10]$s=x $s=dr
  3482. [I11]
  3483. [I12]
  3484. [I13]
  3485. [I14]
  3486. [I15]
  3487. [I16]
  3488. [I17]
  3489. [I18]
  3490. [I19]
  3491. [I20]
  3492. [I21]
  3493. [I22]
  3494. [I23]
  3495. [I24](nl calc "/cci/calc")(calc);
  3496. [I25](nl calc "/cci/calc")(calc);
  3497.  
  3498. ***TABLET2
  3499. [J1]hide;
  3500. [J2]vpoint;;
  3501. [J3]$s=x $s=3dthick
  3502. [J4]^C^C$s=x $s=ucs1 ucs;
  3503. [J5]^C^Cucs prev;
  3504. [J6]^C^Cucs view;
  3505. [J7]
  3506. [J8]
  3507. [J9]'zoom w;
  3508. [JI0]^c^c$s=x $s=line line;
  3509. [J11](nl zooma "/cci/zooma")(zooma);
  3510. [K1]$s=x $s=vp3d $i=i3dviews $i=*
  3511. [K2](nl c:cone "/cci/3d") $s=x $s=3dobject $i=i3dobjects $i=*
  3512. [K3]$s=x $s=3dlisp
  3513. [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);
  3514. [K5]^c^c$s=x $s=ucsicon ucsicon;
  3515. [K6]plan;
  3516. [K7]
  3517. [K8]
  3518. [K9]'zoom c;
  3519. [K10]^c^c$s=x $s=pline pline;
  3520. [K11]'redraw;
  3521. [L1]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade light;
  3522. [L2]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade camera;
  3523. [L3]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade scene;
  3524. [L4]$s=x $s=3dface 3dface;
  3525. [L5]$s=x $s=3dsurf $i=isurf $i=*
  3526. [L6]$s=x $s=3dpoly 3dpoly;
  3527. [L7]
  3528. [L8](nl off "/cci/off")(off) \
  3529. [L9]'zoom d;
  3530. [L10]^c^c$s=x $s=arc
  3531. [L11]'redraw;
  3532. [M1]$s=x $s=view
  3533. [M2]$s=x $s=view
  3534. [M3]$s=x $s=view
  3535. [M4]$s=x $s=view
  3536. [M5]$s=x $s=view
  3537. [M6]$s=x $s=view
  3538. [M7]$s=x $s=view
  3539. [M8](nl mid "/cci/mid")(mid) \
  3540. [M9]'zoom a;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  3541. [M10]^C^C$S=X $S=CIRCLE circle;
  3542. [M11]'redraw;
  3543. [N1]'view ? 'view s;
  3544. [N2]'view ? 'view r;
  3545. [N3](nl "" "/cci/views")(princ "Setup Completed ")(princ);
  3546. [N4]'view r 1;
  3547. [N5]'view r 2;
  3548. [N6]'zoom 2x;
  3549. [M7]
  3550. [N8](nl int "/cci/int")(int) \
  3551. [N9]'zoom p;
  3552. [N10]^c^c$s=x $s=ellipse ellipse;
  3553. [N11]'redraw;
  3554. [O1]^C^C$s=x $s=vports $i=ivporti $i=*
  3555. [O2](nl "" "/cci/zmscale");
  3556. [O3]'view r all;
  3557. [O4]'view r 3;
  3558. [O5]'view r 4;
  3559. [O6]'zoom .5x;
  3560. [O7]
  3561. [O8].x @;
  3562. [O9]'zoom e;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  3563. [O10]^c^c$s=x $s=polygon polygon;
  3564. [O11]'redraw;
  3565. [P1]$s=x $s=block
  3566. [P2]$s=x $s=block
  3567. [P3]$s=x $s=attcontrol
  3568. [P4]$s=x $s=layer
  3569. [P5]$s=x $s=layer
  3570. [P6]$s=x $s=layer
  3571. [P7]
  3572. [P8].y @;
  3573. [P9]'zoom;
  3574. [P10]^c^c$s=x $s=point point;
  3575. [P11]'redraw;
  3576. [Q1]$s=x $s=block block;
  3577. [Q2]$s=x $s=insert insert;
  3578. [Q3]$s=x $s=attdef attdef;
  3579. [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);
  3580. [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);
  3581. [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);
  3582. [Q7]
  3583. [Q8].z @;
  3584. [Q9]'pan;
  3585. [Q10]$s=x $s=sketch sketch;
  3586. [Q11]'redraw;
  3587. [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)))
  3588. [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) +
  3589. (if (not (member nil bklist))(LAYERS "B" bklist)(princ "No BLOCKS Found"))(if scrtog (setq sdsrcn nil scrtog nil))(princ);
  3590. [R3]$s=x $s=attedit attedit;
  3591. [R4](nl "" "/cci/layerset");
  3592. [R5](nl "" "/cci/layerfrz");
  3593. [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);
  3594. [R7]
  3595. [R8]
  3596. [R9](nl "" "/cci/zoomin");
  3597. [R10]^c^c$s=x $s=hatch hatch;
  3598. [R11]redrawall;
  3599. ***TABLET3
  3600.  
  3601.  
  3602.  
  3603. 135;
  3604. 135;
  3605. 90;
  3606. 90;
  3607. 45;
  3608. 45;
  3609.  
  3610.  
  3611.  
  3612. 180;
  3613. 180;
  3614. <
  3615. <
  3616. 0;
  3617. 0;
  3618.  
  3619.  
  3620.  
  3621. 225;
  3622. 225;
  3623. 270;
  3624. 270;
  3625. 315;
  3626. 315;
  3627.  
  3628.  
  3629.  
  3634. (nl at-angle "/cci/at-angle")(at-angle);
  3635. (nl at-angle "/cci/at-angle")(at-angle);
  3636.  
  3637.  
  3638.  
  3639. 7/8;
  3640. 7/8;
  3641. /16
  3642. /16
  3643. /32
  3644. /32
  3645.  
  3646.  
  3647.  
  3648. 1/2
  3649. 1/2
  3650. 5/8
  3651. 5/8
  3652. 3/4
  3653. 3/4
  3654.  
  3655.  
  3656.  
  3657. 1/8
  3658. 1/8
  3659. 1/4
  3660. 1/4
  3661. 3/8
  3662. 3/8
  3663.  
  3664.  
  3665.  
  3666. -
  3667. -
  3668. /
  3669. /
  3670. x
  3671. x
  3672.  
  3673.  
  3674.  
  3675. @
  3676. @
  3677. '
  3678. '
  3679. "
  3680. "
  3681.  
  3682.  
  3683.  
  3684. 7
  3685. 7
  3686. 8
  3687. 8
  3688. 9
  3689. 9
  3690.  
  3691.  
  3692.  
  3693. 4
  3694. 4
  3695. 5
  3696. 5
  3697. 6
  3698. 6
  3699.  
  3700.  
  3701.  
  3702. 1
  3703. 1
  3704. 2
  3705. 2
  3706. 3
  3707. 3
  3708.  
  3709.  
  3710.  
  3711. 0
  3712. 0
  3713. .
  3714. .
  3715. ,
  3716. ,
  3717. ***TABLET4
  3718. [S1]$s=x $s=inq
  3719. [S2]$s=x $s=inq
  3720. [S3]$s=x $s=inq
  3721. [S4]$s=x $s=inq
  3722. [S5]$s=x $s=inq
  3723. [S6]$s=x $s=inq
  3724. [S7]
  3725. [S8]$s=x $s=style style;
  3726. [S9]$s=x $s=text ^c^c$t4=text1 $t4=text2 text;
  3727. [S10]$s=x $s=dtext ^c^c$t4=dtext1 $t4=dtext2 dtext;
  3728. [S11]
  3729. [S12]$s=x $s=osnapc
  3730. [S13]$s=x $s=osnapc
  3731. [S14]$s=x $s=osnapc
  3732. [S15]$s=x $s=osnapc
  3733. [S16]$s=x $s=osnapc
  3734. [S17]$s=x $s=osnapc
  3735. [S18]$s=x $s=osnapc
  3736. [S19]$s=x $s=osnapc
  3737. [S20]$s=x $s=osnapc
  3738. [S21]$s=x $s=osnapc
  3739. [S22]$s=x $s=osnapc
  3740. [S23]
  3741. [S24]$s=x $s=ut
  3742. [S25]$s=x $s=ut
  3743. [T1]$s=x $s=time
  3744. [T2]^c^cid;
  3745. [T3]status;
  3746. [T4]^c^c$s=x $s=list list;
  3747. [T5]^c^c$s=x $s=dist dist;
  3748. [T6]^c^c$s=x $s=area area;
  3749. [T7]
  3750. [T8]$s=x $s=text ^c^ctext;
  3751. [T9]$s=x $s=text ^c^ctext c;
  3752. [T10]$s=x $s=text ^c^ctext r;
  3753. [T11]
  3754. [T12]none;
  3755. [T13]cent;
  3756. [T14]endp;
  3757. [T15]ins;
  3758. [T16]int;
  3759. [T17]mid;
  3760. [T18]near;
  3761. [T19]node;
  3762. [T20]perp;
  3763. [T21]quad;
  3764. [T22]tan;
  3765. [T23]
  3766. [T24](setq usecnt 0);(princ);save;
  3767. [T25]$s=x $s=purge purge;
  3768. [U1]$s=x $s=dim (lays dimlayv) dim;
  3769. [U2]$s=x $s=dim (lays dimlayv) dim;
  3770. [U3]$s=x $s=dim (lays dimlayv) dim;
  3771. [U4]$s=x $s=dim (lays dimlayv) dim1;
  3772. [U5]$s=x $s=dim (lays dimlayv) dim1;
  3773. [U6]$s=x $s=dim (lays dimlayv) dim1;
  3774. [U7]
  3775. [U8]$s=x $s=text ^c^ctext a;
  3776. [U9]$s=x $s=text ^c^ctext m;
  3777. [U10]$s=x $s=text ^c^ctext f;
  3778. [U11]
  3779. [U12]
  3780. [U13]$s=x $s=undo undo;
  3781. [U14]redo;
  3782. [U15](ssget "w" (getvar "extmin")(getvar "extmax"));
  3783. [U16]M;
  3784. [U17]W;
  3785. [U18]L;
  3786. [U19]P;
  3787. [U20]C;
  3788. [U21]R;
  3789. [U22]A;
  3790. [U23]
  3791. [U24](nl "" "/cci/end")(end);
  3792. [U25]$s=x $s=quit quit;
  3793. [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);
  3794. [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);
  3795. [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);
  3796. [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);
  3797. [V5]dim dimzin $i=idimzin $i=*
  3798. [V6]$s=x $s=format
  3799. [V7]
  3800. [V8]$s=x $s=set
  3801. [V9]$s=x $s=set
  3802. [V10]$s=x $s=set
  3803. [V11]
  3804. [V12]$s=x $s=ed
  3805. [V13]$s=x $s=ed
  3806. [V14]$s=x $s=ed
  3807. [V15]$s=x $s=ed
  3808. [V16]$s=x $s=ed
  3809. [V17]$s=x $s=ed
  3810. [V18]$s=x $s=ed
  3811. [V19]$s=x $s=ed
  3812. [V20]$s=x $s=ed
  3813. [V21]$s=x $s=ed
  3814. [V22]$s=x $s=ed
  3815. [V23]
  3816. [V24]files;
  3817. [V25]$s=x $s=attext
  3818. [W1](nl "" "/cci/dimext");
  3819. [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);
  3820. [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);
  3821. [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);
  3822. [W5]^c^cdim dimtp;
  3823. [W6]dim dimtm;
  3824. [W7]
  3825. [W8]$s=x $s=style style;
  3826. [W9]$i=isnaprot $i=*
  3827. [W10](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);grid;
  3828. [W11]
  3829. [W12]^c^c$s=x $s=scale scale auto;
  3830. [W13]^c^c$s=x $s=rotate rotate auto;
  3831. [W14]^c^c$s=x $s=offset offset;
  3832. [W15]^c^c$s=x $s=move move auto;
  3833. [W16]^c^c$s=x $s=erase e;
  3834. [W17]^cel;
  3835. [W18]oops;
  3836. [W19]^C^C(nl c:peditm "/cci/peditm") peditm;
  3837. [W20]$s=x $s=explode explode;
  3838. [W21]$s=x $s=array array auto;
  3839. [W22]$s=x $s=divide divide;
  3840. [W23]
  3841. [W24]^c^c$s=x $s=plot
  3842. [W25]$s=x $s=slides
  3843. [X1]$s=x $s=var1
  3844. [X2]$s=x $s=dim $i=iballoon $i=*
  3845. [X3]^c^c$s=x $s=dimlinear dim base;
  3846. [X4]^c^c$s=x $s=dimlinear dim contin;
  3847. [X5]^c^c$s=x $s=dimlinear dim vert;
  3848. [X6]^c^c$s=x $s=dimlinear dim horiz;
  3849. [X7]
  3850. [X8](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))(progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))
  3851. [X9]$s=x $s=set2
  3852. [X10](if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=msnapset"))(progn (menucmd "s=x")(menucmd "s=snapset"))) 'setvar snapunit;
  3853. [X11]
  3854. [X12]^c^c$s=x $s=mirror mirror auto;
  3855. [X13]^c^cbk;
  3856. [X14]^c^c$s=x $s=break break \f \@;
  3857. [X15]^c^c$s=x $s=copy copy auto;
  3858. [X16]^c^c$s=x $s=extend extend;
  3859. [X17]^c^cst;
  3860. [X18]^c^c$s=x $s=trim trim auto;
  3861. [X19]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mfillet"))(progn (menucmd "s=x")(menucmd "s=fillet"))) fillet;r 0;;
  3862. [X20]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mfillet"))(progn (menucmd "s=x")(menucmd "s=fillet"))) fillet;
  3863. [X21]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mchamfer"))(progn (menucmd "s=x")(menucmd "s=chamfer"))) chamfer;
  3864. [X22]$s=x $s=measure measure;
  3865. [X23]
  3866. [X24]$s=x $s=script script;
  3867. [X25]menu menu;
  3868. [Y1]$s=x $s=dim dim center;
  3869. [Y2]$s=x $s=dim dim radius;
  3870. [Y3]$s=x $s=dim dim diameter;
  3871. [Y4]$s=x $s=dim dim angular;
  3872. [Y5]^c^c$s=x $s=dimlinear dim rotated;
  3873. [Y6]^c^c$s=x $s=dimlinear dim aligned;
  3874. [Y7]
  3875. [Y8](if (= (getvar "lunits") 2)(progn (setvar "lunits" 4)(prompt "Units Architectural")(princ))(progn (setvar "lunits" 2)(prompt "Units Decimal")(princ)))
  3876. [Y9](if (= (getvar "highlight") 1)(progn (setvar "highlight" 0)(prompt "Highlight OFF")(princ))(progn (setvar "highlight" 1)(prompt "Highlight ON")(princ)))
  3877. [Y10]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
  3878. [Y11]
  3879. [Y12]^c^c$s=x $s=change change auto;
  3880. [Y13]$s=x $s=chgblk
  3881. [Y14](if (/= sdscrn "Y")(nl "" "/cci/chlay")(nl "" "/cci/chlays"))(princ) chlay;
  3882. [Y15]select auto \change p  e;
  3883. [Y16]$s=x $s=chprop select auto \chprop;p;;
  3884. [Y17]$s=x $s=changetxt select auto \change p  ;
  3885. [Y18](nl c:chgtext "/cci/chgtext") chgtext;
  3886. [Y19](nl "" "/cci/fradpick");
  3887. [Y20]$s=x $s=copy select auto \copy p  m;
  3888. [Y21](nl "" "/cci/glue");
  3889. [Y22](nl ssx "/cci/ssx")(ssx);
  3890. [Y23]
  3891. [Y24]$s=x $s=excomds
  3892. [Y25]$s=x $s=dxf
  3893. **DTEXT1 33
  3894. $s=x $s=dtext ^c^cdtext;
  3895. $s=x $s=dtext ^c^cdtext c;
  3896. $s=x $s=dtext ^c^cdtext r;
  3897. **DTEXT2 58
  3898. $s=x $s=dtext ^c^cdtext a;
  3899. $s=x $s=dtext ^c^cdtext m;
  3900. $s=x $s=dtext ^c^cdtext f;
  3901. **TEXT1 33
  3902. $s=x $s=text ^c^ctext;
  3903. $s=x $s=text ^c^ctext c;
  3904. $s=x $s=text ^c^ctext r;
  3905. **TEXT2 58
  3906. $s=x $s=text ^c^ctext a;
  3907. $s=x $s=text ^c^ctext m;
  3908. $s=x $s=text ^c^ctext f;
  3909.