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