Jason Aller Floppy Collection/190.img/AA2.ZIP/ARCHP/ARCH.MNU

Text File | 1989-12-20 | 257.3 KB | 7,239 lines

autoARCH R10.3 12/19/89
***BUTTONS
;
endp,int,mid,cen;\

^B
^O
^G
^D
^E
^T
***AUX1
;
$p1=*
^C
^B
^O
^G
^D
^E
^T
***POP1
**pop1
[Tools]
[OSNAP set]^c^c$p1= $p1=* osnap \
[ENDpoint]endpoint;
[MIDpoint]midpoint;
[INTersec]intersec;
[NEArest]nearest;
[CENter]center;
[INSert]insert;
[NODe]node;
[PERpend]perpend;
[QUAdrant]quadrant;
[TANgent]tangen;
[NONE]none;
[Filters    >]$p1=filters $p1=*
[~--]
[match](nl ssx "/cci/ssx")(ssx)
[reference](nl off "/cci/off")(off) \
[mid 2 point](nl mid "/cci/mid")(mid) \
[intersection](nl int "/cci/int")(int) \
[fraction](nl midway "/cci/midway")(midway) \
[double ref](nl offway "/cci/offway")(offway) \
[inters ref](nl refint "/cci/refint")(refint) \

**filters
[Filters]
[.X   ].x;
[.Y   ].y;
[.Z   ].z;
[.XY  ].xy;
[.XZ  ].xz;
[.YZ  ].yz;
[Hold x].x @;
[Hold y].y @;
[Hold z].z @;
[Tools >]$p1= $p1=*

**lisptool
[Lisp-Tools]
[ENDpoint]endpoint;
[MIDpoint]midpoint;
[INTersec]intersec;
[NEArest]nearest;
[CENter]center;
[INSert]insert;
[PERpend]perpend;
[QUAdrant]quadrant;
[TANgent]tangen;
[Filters         >]$p1=filters $p1=*
[ reference    R]r
[ mid 2 point  M]m
[ intersection I]i
[ fraction     F]f
[ polar        P]p
[ double ref   RR]rr
[ inters ref   IR]ir
[ midpoint ref MR]mr
[ calculator   CAL]cal

***POP2
**pop2
[Draw]
[Line]$s=x $s=line line;
[Arc            >]^C^C$s=x $s=arc arc;
[Circle         >]^C^C$s=x $s=circle circle;
[Polyline]^C^C$s=x $s=pline pline;
[Solid]^c^c$s=x $s=solid solid;
[Ellipse]^c^c$s=x $s=ellipse ellipse;
[Donut]donut;
[Polygon]^c^c$s=x $s=polygon polygon;
[Point]$s=x $s=point point;
[Box](nl "" "/cci/box");
[Slot](nl "" "/cci/slot");
[Insert]^C^C$s=x $s=insert insert;
[Minsert]^C^C$s=x $s=minsert minsert;
[Attrib define]$s=x $s=attdef attdef;
[Dim            >]$s=x $s=dim $i=idim1 $i=*
[Text]^C^C$s=x $s=text $t4=text1 $t4=text2 text;
[Dtext]^C^C$s=x $s=dtext $t4=dtext1 $t4=dtext2 dtext;
[Style]$s=x $s=style style;
[Fonts          >]$i=ifonts1 $i=*
[Hatch          >]^C^C$i=ihatch1 $i=*
[3D             >]$s=x $s=3d $p2=i3d $p2=*

**i3d
[3D  ]
[3D Objects   >](nl c:cone "/cci/3d") $s=x $s=3dobject $i=i3dobjects $i=*
[3D Lisp      >]$s=x $s=3dlisp $i=i3dobjects1 $i=*
[3Dface]$s=x $s=3dface 3dface;
[3Dpoly]$s=x $s=3dpoly 3dpoly;
[3D Surfaces  >]$s=x $s=3dsurf $i=isurf $i=*
[~--]
[midpt](nl 3dmid "/cci/3dmid")(3dmid) \
[ref zang](nl zangoff "/cci/zangoff")(zangoff) \\\
[refzdist](nl zdistoff "/cci/zdistoff")(zdistoff) \\\
[zang](nl zang "/cci/zang")(zang) \\
[zdist](nl zdist "/cci/zdist")(zdist) \\
['elev]'setvar elevation;
['thick]'setvar thickness;
[chg elev](nl "" "/cci/chelev");
[chgthick](nl "" "/cci/chthick");
[pick-set elev](nl "" "/cci/setelev");
[pick-setthick](nl "" "/cci/setthick");
[HIDE:]HIDE;
[layer HIDDEN](PRINC "Loading LAYERH ")(nl "" "/cci/layerh");
[~--]
[DRAW         >]$p2=pop2 $p2=*

**wall
[Wall]
[Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);$p2=wall $p2=*
[~--]
[Exterior Wall](nl c:wallext "/archp/wallext") wallext;
[         Simple](nl c:wallexts "/archp/wallexts") wallexts;
[         3L Mas](nl c:wallextm "/archp/wallextm") wallextm;
[         4L Mas](nl c:wallmas "/archp/wallmas") wallmas;
[         Corner](nl c:wallcnte "/archp/wallcnte") wallcnte;
[Interior Wall](nl c:wallint "/archp/wallint") wallint;
[         Simple](nl c:wallints "/archp/wallints") wallints;
[         Double](nl c:wallintd "/archp/wallintd") wallintd;
[         Corner](nl c:wallcnti "/archp/wallcnti") wallcnti;
[~--]
[Wall Line](nl c:walline "/archp/wallline") walline;
[Low Wall](nl c:walllow "/archp/walllow") walllow;
[Poly-Wall](nl c:wallpoly "/archp/wallpoly") wallpoly;
[~--]
[Foundation     >]$p2=pfwall $p2=*
[Building       >]$i=ibuild $i=*
[Controls       >]$p2=pvar $p2=*
[Wall Misc      >]$p2=pclean $p2=*

**pvar
[Wall]
[Layermod Wall](set 'temp 'WALLV)(nl "" "/cci/layermod");
[         Masonry](set 'temp 'WALLMV)(nl "" "/cci/layermod");
[         Foundation](set 'temp 'FNDV)(nl "" "/cci/layermod");
[         Footing](set 'temp 'FNDDV)(nl "" "/cci/layermod");
[Thicknes Wall](princ "Resetting WALL thickness ")(setq wallth nil)(post)(princ);
[         Masonry](princ "Resetting Masonry WALL thickness ")(setq mwalth nil)(post)(princ);
[         Foundation](princ "Resetting FOUNDATION WALL thickness ")(setq fndthk nil)(post)(princ);
[         Footing](princ "Resetting FOOTING thickness ")(setq fndfth nil)(post)(princ);
[Height   Wall](princ "Resetting WALL height ")(setq wallht nil)(post)(princ);
[         Low wall](princ "Resetting LOW WALL height ")(setq walllw nil)(post)(princ);
[         Foundation](princ "Resetting FOUNDATION WALL hight ")(setq fndht nil)(post)(princ);
[         Footing](princ "Resetting FOOTING hight ")(setq fndfht nil)(post)(princ);
[Max wall reset](princ "Resetting MAX WALL ")(setq maxwal nil)(post)(PRINC);
[Air gap](princ "Resetting AIR GAP width ")(setq airwdt nil)(post)(princ);
[Center line toggle](if (or (null cent)(= cent "N"))(progn (princ " Center lines ON ")(setq cent "Y"))(progn (princ " Center lines OFF ")(setq cent "N")))(princ);
[~--]
[Partition         >]$p2=wall $p2=*
[Foundation        >]$p2=pfwall $p2=*
[Building          >]$i=ibuild $i=*
[Wall Misc         >]$p2=pclean $p2=*

**pfwall
[Wall]
[Foundation Walls]
[Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);$p2=pfwall $p2=*
[Linetype reset](princ " Resetting FOOTING LINETYPE TO")(if (null fndltp)(progn (princ " CONTINUOUS")(command "layer" "l" "continuous" fnddv "")(setq fndltp t))(progn (princ " DASHED")(command "layer" "l" "dashed" fnddv "")(setq fndltp nil)))(nl zooma "/cci/zooma")(zooma);
[~--]
[Exterior Foundation](nl c:fndwalle "/archp/fndwalle") fndwalle;
[         Combination](nl c:fndwall "/archp/fndwall") fndwall;
[Interior Foundation](nl c:fndwalli "/archp/fndwalli") fndwalli;
[         Combination](nl c:fndwallc "/archp/fndwallc") fndwallc;
[~--]
[Partition           >]$p2=wall $p2=*
[Building            >]$i=ibuild $i=*
[Controls            >]$p2=pvar $p2=*
[Wall Misc           >]$p2=pclean $p2=*

**pclean
[Wall]
[Cross fix](nl c:cross "/archp/crossfix") cross;
[T fix](nl c:butt "/archp/buttfix") butt;
[Corner fix](nl c:corn "/archp/cornfix") corn;
[Cap fix](nl "" "/archp/capfix");
[Wall break](defun c:wb ()(nl wallbrk "/archp/wallbrk");(setq wfunk "A" wfunk1 't)(wallbrk wfunk))(princ) wb;
[Insulation](nl "" "/archp/insulate");
[Closet shelf](nl "" "/archp/closet");
[Wall area](nl "" "/archp/paint");
[Wall dimension](setq lalist (gettable "layer" ""))(nl c:walldim "/archp/walldim") walldim;
[Wall hatch](nl "" "/archp/hatwall");
[Wall Fillet](nl c:wallfilt "/archp/wallfilt") wallfilt;
[Wall to roof](nl c:wltoroof "/archp/wltoroof") wltoroof;
[Doubler](nl "" "/archp/doubler");
[Draw elevation](nl elevatin "/archp/elevatin")(elevatin);
[Draw section](nl crossect "/archp/crossect")(crossect);
[~--]
[Partition     >]$p2=wall $p2=*
[Foundation    >]$p2=pfwall $p2=*
[Building      >]$i=ibuild $i=*
[Controls      >]$p2=pvar $p2=*

***POP3
**pop3
[Edit]
[Erase]^C^C$s=x $s=erase erase auto;
[Move]^C^C$s=x $s=move move auto;
[Copy]^C^C$s=x $s=copy copy auto;
[Array]$s=x $s=array select auto \array p  ;
[Change]^C^C$S=X $s=change change auto;
[Edit text](nl c:chgtext "/cci/chgtext") chgtext;
[Break]$s=x $s=break bk;
[Explode]$s=x $s=explode explode;
[Fillet]$s=x $s=fillet fillet;
[Chamfer]^c^c$s=x $s=chamfer chamfer;
[Mirror]$s=x $s=mirror mirror auto;
[Offset]^c^c$s=x $s=offset offset;
[Trim]^C^C$S=X $s=trim trim;
[Extend]^C^C$S=X $s=extend extend;
[Stretch]^C^C$S=X $s=stretch stretch crossing;
[Scale]$s=x $s=scale scale auto;
[Rotate]$s=x $s=rotate rotate auto;
[Divide]$s=x $s=divide divide;
[Measure]$s=x $s=measure measure;
[Edit Polylines]^C^C(nl c:peditm "/cci/peditm") peditm;
[Attribute edit]$s=x $s=attedit attedit;

**pdoor
[Doors]
[Reset all variables](nl "" "/archp/doorcln");$p3=*
[Door height](princ "Resetting DOOR height ")(setq doorht nil)(princ);$p3=*
[Door width](princ " Resetting Door Width ")(setq doorwd nil)(princ);$p3=*
[Max wall reset](princ "Resetting MAX WALL ")(setq maxwal nil)(princ);$p3=*
[Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);$p3=*
[Layermod Door](set 'temp 'DOORV)(nl "" "/cci/layermod");\$p3=*
[Layermod Doorno](set 'temp 'DOORNOV)(nl "" "/cci/layermod");\$p3=*
[Break Exists](princ "EXISTING BREAK ")(setq doorfk "I")(princ);$p3=*
[Break Choose lines](princ "BREAK CHOOSE ")(setq doorfk "A")(princ);$p3=*
[Break All lines](princ "BREAK ALL ")(setq doorfk "1")(princ);$p3=*
[Door with 1 window](princ "Door with 1 Side Light ")(setq wind1 'T)(princ);$p3=*
[Door with 2 windows](princ "Door with 2 Side Lights ")(setq wind1 'T wind2 'T)(princ);$p3=*
[Sill](nl sillside "/archp/sillside")(nl "" "/archp/drsill");
[Jamb](if (/= jambd "Y")(progn (setq jambd "Y")(princ "JAMBS INCLUDED ")(nl "" "/archp/jambd"))(progn (setq jambd "N")(princ "JAMBS NOT INCLUDED ")))(princ);$p3=*
[Undo Door](nl "" "/cci/partout");
[3d Door swap](nl "" "/archp/doorelev");
[Door Schedule](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/door"));
[~--]
[Place INTERIOR doors >]$p3=pdoor1 $p3=*
[Place EXTERIOR doors >]$p3=pdoor2 $p3=*

**pdoor1
[Doors]
[Interior]
[90 single](setq doortp "90s")(nl c:door "/archp/door") door;
[90 double](setq doortp "90d")(nl c:door "/archp/door") door;
[90 double Egress](setq doortp "90deg")(nl c:door "/archp/door") door;
[45 single](setq doortp "45s")(nl c:door "/archp/door") door;
[45 double](setq doortp "45d")(nl c:door "/archp/door") door;
[45 double Egress](setq doortp "45deg")(nl c:door "/archp/door") door;
[180 single](setq doortp "180s")(nl c:door "/archp/door") door;
[180 double](setq doortp "180d")(nl c:door "/archp/door") door;
[Existing single](setq doortp "exs")(nl c:door "/archp/door") door;
[Existing double](setq doortp "exd")(nl c:door "/archp/door") door;
[Sliding single](setq doortp "sls")(nl c:door "/archp/door") door;
[Sliding double](setq doortp "sld")(nl c:door "/archp/door") door;
[Bi-folding single](setq doortp "bis")(nl c:door "/archp/door") door;
[Bi-folding double](setq doortp "bid")(nl c:door "/archp/door") door;
[2-way single](setq doortp "2ws")(nl c:door "/archp/door") door;
[2-way double](setq doortp "2wd")(nl c:door "/archp/door") door;
[Flex single](setq doortp "fx1s")(nl c:door "/archp/door") door;
[Flex double](setq doortp "fx2s")(nl c:door "/archp/door") door;
[~--]
[Place EXTERIOR doors >]$p3=pdoor2 $p3=*
[Door Root menu       >]$p3=pdoor $p3=*

**pdoor2
[Doors]
[Exterior]
[90 single](setq doortp "90s")(nl c:door "/archp/door") door;
[90 double](setq doortp "90d")(nl c:door "/archp/door") door;
[90 double Egress](setq doortp "90deg")(nl c:door "/archp/door") door;
[45 single](setq doortp "45s")(nl c:door "/archp/door") door;
[45 double](setq doortp "45d")(nl c:door "/archp/door") door;
[45 double Egress](setq doortp "45deg")(nl c:door "/archp/door") door;
[180 single](setq doortp "180s")(nl c:door "/archp/door") door;
[180 double](setq doortp "180d")(nl c:door "/archp/door") door;
[Existing single](setq doortp "exs")(nl c:door "/archp/door") door;
[Existing double](setq doortp "exd")(nl c:door "/archp/door") door;
[Sliding single](setq doortp "sls")(nl c:door "/archp/door") door;
[Sliding double](setq doortp "sld")(nl c:door "/archp/door") door;
[2-way single](setq doortp "2ws")(nl c:door "/archp/door") door;
[2-way double](setq doortp "2wd")(nl c:door "/archp/door") door;
[Revolving](setq doortp "rev")(nl c:door "/archp/door") door;
[Garage](setq doortp "gd")(nl c:door "/archp/door") door;
[~--]
[Place INTERIOR doors >]$p3=pdoor1 $p3=*
[Doors Root menu      >]$p3=pdoor $p3=*

***POP4
**pop4
[Display]
[Zoom Window]'zoom w;
[     Previous]'zoom p;
[     Center]'zoom c;
[     In]'zoom 2x;
[     Out]'zoom .5x;
[     Dynamic]'zoom d;
[Pan]'pan;
[View]$s=x $s=view 'view;
[View setup](nl "" "/cci/views");
[V R all]'view r all;
[V R 1]'view r 1;
[V R 2]'view r 2;
[V R 3]'view r 3;
[V R 4]'view r 4;
[Vpoint 3D        >]^c^c$s=x $s=vp3d $i=i3dviews $i=*
[~--]
[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);
[~--]
[Plan View (UCS)]^C^Cplan;;
[Plan View (World)]^C^Cplan wo;
[Set Viewports    >]^c^c$s=x $s=vports $i=ivporti $i=*

**pwindow
[Window]
[Layermod Window](set 'temp 'WINDV)(nl "" "/cci/layermod");
[Reset all variables](nl "" "/archp/windcln");$p4=*
[Reset window 2](princ " Resetting Window type 2 ")(setq wndtp1 nil)(princ);$p4=*
[Reset window 3](princ " Resetting Window type 3 ")(setq wndtp2 nil)(princ);$p4=*
[Set Top of Window](setq temp (getdist (strcat " Top of window elevation <"(rtos (getvar "userr3"))">: ")));\(if temp (setvar "userr3" temp));
[Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);$p4=*
[Break Exist](princ " WINDOW BREAK EXISTS ")(setq windfk "I")(princ);$p4=*
[Break Choose lines](princ " CHOOSE wall LINES NOT to BREAK ")(setq windfk "1")(princ);$p4=*
[Break All lines](princ " WINDOW BREAK ALL ")(setq windfk "2")(princ);$p4=*
[Sill](nl sillside "/archp/sillside")(nl "" "/archp/sill");
[Mullion](nl "" "/archp/mullion");
[Jamb](if (/= jambw "Y")(progn (setq jambw "Y")(princ " JAMBS INCLUDED ")(nl "" "/archp/jamb"))(progn (setq jambw "N")(princ " JAMBS NOT INCLUDED ")))(princ);$p4=*
[Window elevation](nl "" "/archp/windelev");
[Undo window](nl "" "/cci/partout");
[~--]
[Place Bow window](nl wallbrk "/archp/wallbrk")(setq windfk "2")(nl "" "/archp/bow")(bow);$p4=*
[Place Bay window](nl "" "/archp/windbay")(nl "" "/archp/windfin3")(princ " Pick WINDOW 1 2 OR 3 ")(princ);$p4=*
[Place Curtain Wall](nl "" "/archp/curtain");
[Place 1 window](setq wind1 nil wind2 nil)(princ " Loading WINDOW 1 ")(nl c:window "/archp/window")(nl wallbrk "/archp/wallbrk")(nl hingloc "/archp/hingloc")(nl insonly "/archp/insonly")(nl windfin "/archp/windfin") window;
[Place 2 windows](setq wind1 'T wind2 nil)(princ " Loading WINDOW 2 ")(nl c:window "/archp/window")(nl wallbrk "/archp/wallbrk")(nl hingloc "/archp/hingloc")(nl insonly "/archp/insonly")(nl windfin1 "/archp/windfin1") window;
[Place 3 windows](setq wind1 'T wind2 'T)(princ " Loading WINDOW 3 ")(nl c:window "/archp/window")(nl wallbrk "/archp/wallbrk")(nl hingloc "/archp/hingloc")(nl insonly "/archp/insonly")(nl windfin2 "/archp/windfin2") window;

***POP5
**pop5
[Modes]
[Drawing Aids      >]'ddrmodes
[Entity Creation   >]'ddemodes
[Modify Layer      >]'ddlmodes
[Layer side screen >]$s=x $s=layer
[Modify Attributes >]ddatte;
[~--]
[UCS Dialogue      >]^C^C$S=X $s=ucs1 dducs
[UCS Presets       >]^C^C$S=X $s=ucs1 $i=iucs $i=*
[UCS Icon option   >]$s=x $s=ucsicon $i=iucs1 $i=*
[UCS commands      >]$s=x $s=ucs1 $i=iucs2 $i=*
[UCS Previous]^C^cucs p;
[~--]
[Set Vports & UCS](nl "" "/cci/ucssetup");
[Viewports         >]^c^c$s=x $s=vports $i=ivporti $i=*

**plevel
[Levels]
[3d Level setup](nl "" "/archp/3dinfo");
[Modify Level list](nl "" "/archp/laylevel");
[Load Level list](nl "" "/archp/levellay");
[Make drawing type](nl "" "/archp/leveljob");
[Use drawing type](nl "" "/archp/leveltyp");
[~--]
[Level Move](nl "" "/archp/levmove");
[Level Copy](nl "" "/archp/levcopy");
[Level Array](nl "" "/archp/levarray");
[Level Delete](nl "" "/archp/leveldel");
[Level 2 File](nl "" "/archp/levelmod");
[Level Reference](nl "" "/archp/levelref");
[Level Set](nl "" "/archp/levelset");
[~--]
[level layer ON](nl lalevel "/archp/lalevel")(lalevel "ON");
[            OFF](nl lalevel "/archp/lalevel")(lalevel "OFF");
[            FREEZE](nl lalevel "/archp/lalevel")(lalevel "FREEZE");
[            THAW](nl lalevel "/archp/lalevel")(lalevel "THAW");
[3d Status](nl "" "/archp/3dstat");
[3d symbols on/off](if (/= (getvar "useri4") 0)(progn (setvar "useri4" 0)(princ " 3D symbol insertion is OFF "))(progn (setvar "useri4" 1)(princ " 3D symbol insertion is ON ")))(princ);
[2d to 3d](nl "" "/archp/2dto3d");

***POP6
**pop6
[Misc]
[Block]$s=x $s=block block;
[Wblock]$s=x $s=wblock wblock;
[Makeblks](nl makeblk "/cci/makeblk")(makeblk);
[Userblocks         >]$i=userblk $i=*
[Attext & schedules >]$s=x $s=attext
[~--]
[Time               >]$s=x $s=time
[Status]status;
[Id]id;
[List]list;
[Dist]$s=x $s=dist dist;
[Area]$s=x $s=area area;
[Help]'help;
[~--]
[Undo]$s=x $s=undo undo;
[Redo]redo;
[Oops]oops;
[~--]
[Lisp               >]$s=x $s=lisp
[Balloon & Leaders  >]$s=x $s=balloon $i=iballoon $i=*
[Ashade             >]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade $i=ias $i=*

**pmisc
[Misc]
[Appliances         >]$s=x $s=appl $i=iappl $i=*
[Breaks             >]$s=x $s=breaks $i=ibreaks $i=*
[Callouts           >]$p7=pcall $p7=*
[Ceiling            >]$s=x $s=ceiling $i=iceiling $i=*
[Ceiling Misc       >]$s=x $s=ceilmisc $i=iceilmisc $i=*
[Electrical symbols >]$p7=pelec $p7=*
[Fireplace          >]$s=x $s=firepl $i=ifirepl $i=*
[Furniture symbols  >]$p7=pfurn $p7=*
[HVAC               >](if metric (progn (menucmd "s=x")(menucmd "s=hvacm")(menucmd "i=ihvacm")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=hvac")(menucmd "i=ihvac")(menucmd "i=*")))(princ);
[Kitchen Cabinets   >](if metric (progn (menucmd "i=ikitcabm")(menucmd "i=*"))(progn (menucmd "i=ikitcab")(menucmd "i=*")))(princ);
[Plumbing symbols   >]$p7=pplumb $p7=*
[Roof               >]$s=x $s=roof $i=iroof $i=*
[Schedule           >]$s=x $s=schedule
[Shadow](nl "" "/archp/shadow");
[Site symbols       >]$p7=psite $p7=*
[Space planning     >]$p7=pspace $p7=*
[Stairs             >]$p7=pstair $p7=*
[Structural         >]$p7=pstruct $p7=*
[Walk through](nl c:walk "/archp/walk");walk;
[Walk polyline](nl c:walkpoly "/archp/walkpoly");walkpoly;
[Setting            >]$p7=pop7 $p7=*

***POP7
**pop7
[Setting]
[Snap]$s=x $s=snap snap;
[Snap set]$s=x $s=snapset 'setvar snapunit
[Grid](if metric (progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);grid;
[Axis]$s=x $s=axis axis;
[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);
[Settings           >]$s=x $s=set2
[Attrib control     >]$s=x $s=attcontrol
[Aperture & pickbox]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
[~--]
[Toggle Snap]
[       Ortho]
[       Coords]
[       Iso]
[       Tablet]
[Blips](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))(progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))
[High light](if (= (getvar "highlight") 1)(progn (setvar "highlight" 0)(prompt "Highlight OFF")(princ))(progn (setvar "highlight" 1)(prompt "Highlight ON")(princ)))
[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)))

**pstair
[Stairs]
[~--]
[Layermod stair](set 'temp 'stairv)(nl "" "/cci/layermod");
[Stringer reset](setq ststr nil)(princ " Resetting stair Stringer ")(princ);
[Stair type reset](setq startp nil)(princ " Resetting stair Type ")(princ);
[Handrail reset](setq sthdrl nil)(princ " Resetting stair Handrails ")(princ);
[Baluster reset](setq balist nil)(princ " Resetting stair Balusters ")(princ);
[Arrow reset](setq sthdar nil)(princ " Resetting stair directional Arrow ")(princ);
[Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
[~--]
[Stair calculator](nl "" "/archp/stair");
[Spiral](nl "" "/archp/spiral");
[Vertical Cut](nl "" "/archp/stairct");
[Vertical](if (/= (getvar "useri1") 0)(nl "" "/archp/stairv3")(nl "" "/archp/stairv"));
[L shaped](if (/= (getvar "useri1") 0)(nl "" "/archp/stairl3")(nl "" "/archp/stairl"));
[U shaped](if (/= (getvar "useri1") 0)(nl "" "/archp/stairu3")(nl "" "/archp/stairu"));
[Escalator](nl "" "/archp/stairesc");
[Elevator](nl "" "/archp/stairel");

**pspace
[Space]
[~--]
[Layermod space](set 'temp 'SPACEV)(nl "" "/cci/layermod");
[~--]
[Space](nl "" "/archp/space");
[Space divide](nl "" "/archp/spacediv");
[Space shape](nl "" "/archp/spaceshp");
[Space circle](nl "" "/archp/spacecir");
[Space wall](nl "" "/archp/spacelin");
[Space list](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/space"));
[FIX big](nl "" "/archp/spaceara");
[FIX small](nl "" "/archp/spaceupd");
[Edit space](nl "" "/archp/spacedit");
[Delete space](nl "" "/archp/spacedel");
[Doubler](nl "" "/archp/doubler");
[Cross fix](nl c:cross "/archp/crossfix") cross;

**pcall
[Callouts]
[Room           >]$s=x $s=callout
[Room Area      >]$s=x $s=roomarea
[Interior       >]$s=x $s=interior
[Detail         >]$s=x $s=detail $i=idetail $i=*
[Section        >]$s=x $s=sectionsym $i=isection $i=*
[Arrows         >]$s=x $s=arrows $i=arrows $i=*
[Columns        >]$s=x $s=colins $i=icolins $i=*
[~--]
[Window](lays windnov) insert (dd "/arch/windnum") scale !scale1;
[Door](lays doornov) insert (dd "/arch/doornum") scale !scale1;
[Equipement](lays symbolv) insert (dd "/arch/equip") scale !scale1;
[Line Break](nl insertbk "/cci/insertbk")(insertbk "/arch/break" (* scalem 12)"C")(princ);
[Revision](lays symbolv) insert (dd "/arch/revno") scale !scale1;
[Revision 1](lays symbolv) insert (dd "/arch/revno1") scale !scale1;
[Construction](lays symbolv) insert (dd "/arch/const") scale !scale1;
[Demolition note](lays symbolv) insert (dd "/arch/demo") scale !scale1;
[~--]
[Layermod Windno](set 'temp 'WINDNOV)(nl "" "/cci/layermod");
[Layermod Doorno](set 'temp 'DOORNOV)(nl "" "/cci/layermod");
[Layermod Symbol](set 'temp 'symbolv)(nl "" "/cci/layermod");

**psite
[Site]
[~--]
[Layermod site](set 'temp 'sitev)(nl "" "/cci/layermod");
[~--]
[North           >]$s=x $s=north $i=inorth $i=*
[Elevation Marker]insert (dd "/arch/eltarget") \
[Barscale        >]$s=x $s=barscale
[--WORD--        >]$s=x $s=word
[Linetypes       >]$s=x $s=linesite $i=ilinesite $i=*
[Trees           >]$S=x $s=treepln $i=itreepln $i=*
[Vehicles        >]$s=x $s=vehicles $i=ivehicles $i=*
[Drainage        >]$s=x $s=drainage $i=idrainage $i=*
[Utilitys        >]$s=x $s=siteutil $i=isiteutil $i=*
[Parking         >]$s=x $s=parking $i=iparking $i=*
[Handicapped     >]$s=x $s=handicap $i=ihandicap $i=*
[COGO            >]$s=x $s=cogo
[Site lighting   >]$s=x $s=sitelight $i=isitelight $i=*
[Miscellaneous   >]$s=x $s=sitemisc $i=isitemisc $i=*

**pstruct
[Struct]
[~--]
[Steel         >]$s=x $s=struct $i=istruct $i=*
[Metal stud    >](if metric (progn (menucmd "s=x")(menucmd "s=metalstudm")(menucmd "i=imetalstudm")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=metalstud")(menucmd "i=imetalstud")(menucmd "i=*")))(princ);
[Masonry       >]$s=x $s=masonry $i=imasonry $i=*
[Wood          >]$s=x $s=wood $i=iwood $i=*
[Concrete      >]$s=x $s=conc $i=iconc $i=*
[Rebars        >]$s=x $s=rebars $i=irebars $i=*
[Const details >]$s=x $s=consdet $i=iconsdet $i=*
[Misc details  >]$s=x $s=detmisc $i=idetmisc $i=*
[Columns       >]$s=x $s=colins $i=icolins $i=*

**pplumb
[Plumb]
[~--]
[Layermod fixture](set 'temp 'FIXTV)(nl "" "/cci/layermod");
[~--]
[Toilets        >]$s=x $s=toilet $i=itoilet $i=*
[Urinals        >]$s=x $s=urinal $i=iurinal $i=*
[Lavatory       >](if metric (progn (menucmd "s=x")(menucmd "s=lavm")(menucmd "i=ilav")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=lav")(menucmd "i=ilav")(menucmd "i=*")))(princ);
[Bathtubs       >](if metric (progn (menucmd "s=x")(menucmd "s=tubm")(menucmd "i=itub")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=tub")(menucmd "i=itub")(menucmd "i=*")))(princ);
[Showers        >]$s=x $s=shower $i=ishower $i=*
[Sinks          >](if metric (progn (menucmd "s=x")(menucmd "s=sinkm")(menucmd "i=isink")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=sink")(menucmd "i=isink")(menucmd "i=*")))(princ);
[Misc plumbing  >]$S=x $s=plumbmisc $i=iplumbmisc $i=

**pelec
[Elec]
[~--]
[Layermod electrical](set 'temp 'elecv)(nl "" "/cci/layermod");
[~--]
[Fluorescent lights  >](if metric (progn (menucmd "s=x")(menucmd "s=fluorm")(menucmd "i=ifluor")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=fluor")(menucmd "i=ifluor")(menucmd "i=*")))(princ);
[Incandescent lights >]$s=x $s=eleclite $i=ieleclite $i=*
[Outlets             >]$s=x $s=elecout $i=ielecout $i=*
[Switches            >]$s=x $s=elecswit $i=ielecswit $i=*
[Telephone           >]$s=x $s=electel $i=ielectel $i=*
[Emergency           >]$s=x $s=elecemer $i=ielecemer $i=*
[Track lighting      >]$s=x $s=electrack $i=ielectrack $i=*
[Misc electric       >]$s=x $s=elecmisc $i=ielecmisc $i=*

**pfurn
[Furn]
[~--]
[Layermod furniture](set 'temp 'FURNV)(nl "" "/cci/layermod");
[~--]
[Chairs           >]$s=x $s=chair $i=ichair $i=*
[Tables           >]$s=x $s=table $i=itabler $i=*
[Desk             >]$s=x $s=desk $i=idesk $i=*
[Sofa             >]$s=x $s=sofa $i=isofa $i=*
[Beds             >]$s=x $s=bed $i=ibed $i=*
[Office equipment >]$s=x $s=office $i=ioffice $i=*
[File cabinets    >](if metric (progn (menucmd "s=x")(menucmd "s=filecabm")(menucmd "i=ifilecabm")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=filecab")(menucmd "i=ifilecab")(menucmd "i=*")))(princ);
[Bookcase         >]$s=x $s=bookcase $i=ibookcase $i=*
[Lamp             >]$s=x $s=lamp $i=ilamp $i=*
[Plants           >]$s=x $s=plants $i=iplants $i=*
[3D misc          >]$s=x $s=3dmisc $i=i3dmisc $i=*
[Misc furniture   >]$s=x $s=furnmisc $i=ifurnmisc $i=*

***POP8
**pop8
[Util]
[Save]^C^CSave;
[End]^C^C(nl "" "/cci/end")(end);
[Quit]^C^c$s=x $s=quit quit;
[~--]
[Plot             >]^C^c$s=x $s=plot
[~--]
[Daystamp](nl "" "/cci/daystamp");
[Dxf / Iges       >]$s=x $s=dxf
[Edit text file]ws;
[List text file]ty;
[Files]files;
[Purge]$s=x $s=purge purge;
[Rename]$s=x $s=rename rename;
[Script           >]$s=x $s=script
[Shell (external) >]$S=X $S=EXCOMDS
[Slides           >]$s=x $s=slides

***pop9
**pop9
[Menus]
[autoARCH pull-down]$p1=pop1 $p2=wall $p3=pdoor $p4=pwindow $p5=plevel $p6=pmisc $p9=parch $p10=pop10
[ACAD     pull-down]$p1=pop1 $p2=pop2 $p3=pop3 $p4=pop4 $p5=pop5 $p6=pop6 $p7=pop7 $p8=pop8 $p9=pop9 $p10=pop10
[Menu of menus    >]menu menu;

**parch
[Menus]
[ draw]$p10=pop2 $p10=*
[ edit]$p10=pop3 $p10=*
[ display]$p10=pop4 $p10=*
[ modes]$p10=pop5 $p10=*
[ misc]$p10=pop6 $p10=*
[~--]
[autoARCH pull-down]$p1=pop1 $p2=wall $p3=pdoor $p4=pwindow $p5=plevel $p6=pmisc $p9=parch $p10=pop10
[ACAD     pull-down]$p1=pop1 $p2=pop2 $p3=pop3 $p4=pop4 $p5=pop5 $p6=pop6 $p7=pop7 $p8=pop8 $p9=pop9 $p10=pop10
[Menu of menus    >]menu menu;

***pop10
**pop10

***icon
**ias
[Select Ashade Command]
[acad(camera)]^c^c$s=x $s=camera camera;
[acad(camview)]^c^c$s=x $s=ashade camview;
[acad(point)]^C^c$s=x $s=lights light \p;
[acad(directed)]^c^c$s=x $s=lights light \d;
[acad(scene)]^C^c$s=x $s=action scene;
[acad(filmroll)]^c^c$s=x $s=action filmroll;
[ Cancel]

**ipoly
[Set Polymesh & Polyline Variables]
[acad(pmq)]'setvar surftype 5
[acad(pmc)]'setvar surftype 6
[acad(pmb)]'setvar surftype 8
[acad(plq)]'setvar splinetype 5
[acad(plc)]'setvar splinetype 6
[ Set SPLINESEGS]'setvar splinesegs \
[ Set SPLFRAME]'setvar splframe \
[ Set DENSITY]'setvar surfu \'setvar surfv \
[ Exit]$s= $s=

**iucs
[User Coordinate System Options]
[ Set to World]^C^Cucs world
[acad(left)]^c^cP(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@0,-1,0 @0,0,1;
[ Set to Screen]^C^Cucs view
[acad(top)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@1,0,0 @0,1,0;
[acad(front)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@1,0,0 @0,0,1;
[acad(bottom)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@1,0,0 @0,-1,0;
[acad(back)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@-1,0,0 @0,0,1;
[acad(right)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@0,1,0 @0,0,1;
[ Cancel]

**iucs1
[User Coordinate System Icon Options]
[ On]^C^Cucsicon on;
[ Off]^c^cucsicon off;
[ Noorign]^C^Cucsicon n;
[ Orign]^c^cucsicon or;
[ All]^c^cucsicon all;$i=iucs1 $i=*
[ Cancel]

**iucs2
[User Coordinate System sub-commands]
[ Origin]ucs orgin;
[ ZAxis]ucs za;
[ 3point]ucs 3point;
[ Entity]ucs ent;
[ View]ucs view;
[ X]ucs x;
[ Y]ucs y;
[ Z]ucs z;
[ Previous]ucs prev;
[ Restore]ucs restore;
[ Save]ucs save;
[ Delete]ucs delete;
[ ?]ucs ?;
[ World]ucs world;
[ UCS Presets]^C^C$S=X $S=ucs1 $i=iucs $i=*
[ Cancel]

**i3dviews
[Select View Direction]
[acad(ul)]^c^cvpoint r;<<135;
[acad(l)]^c^cvpoint r;<<180;
[acad(ll)]^c^cvpoint r;<<225;
[acad(user)]$i=* $s= $s=
[acad(u)]^c^cvpoint r;<<90;
[acad(p)]^c^cvpoint 0,0,1;$s= $s=
[acad(lo)]^c^cvpoint r;<<270;
[acad(user)]$i=* $s= $s=
[acad(ur)]^c^cvpoint r;<<45;
[acad(r)]^c^cvpoint r;<<0;
[acad(lr)]^c^cvpoint r;<<315;
[acad(user)]$i=* $s= $s=
[acad(t)]vpoint; $s= $s=
[acad(h)]hide;
[ Cancel]$s= $s= ^c^c

**i3dobjects
[3D Objects and 3D Surface Commands]
[acad(box3d)]^c^cbox;
[acad(wedge)]wedge;
[acad(pyramid)]pyramid;
[acad(cone)]^c^ccone;
[acad(dome)]^c^cdome;
[acad(dish)]^c^cdish;
[acad(mesh)]mesh;
[acad(sphere)]^c^csphere;
[acad(torus)]^c^ctorus;
[acad(3dtube)](nl c:3dtube "/cci/3dtube") 3dtube;
[cciacad(polytube)](nl c:tube "/cci/tube") tube;
[cciacad(cube)](nl c:3dcube "/cci/3dcube") 3dcube;
[ Cancel]

**isurf
[3D Surface Commands]
[acad(rev)]^c^c$s=x $s=3d revsurf
[acad(surftab1)]'setvar surftab1 \$i=*
[acad(surftab2)]'setvar surftab2 \$i=*
[acad(rul)]^c^c$s=x $s=3d rulesurf
[acad(edg)]^c^c$s=x $s=3d edgesurf
[acad(mesh)]3dmesh;
[acad(tab)]^c^c$s=x $s=3d tabsurf
[ Cancel]

**i3dobjects1
[Select 3D Lisp]
[ Axis Rotate](nl c:axrot "/cci/axrot") axrot;
[ Change Face](nl c:chface "/cci/chface") chface;
[ Edge 3dface](nl c:edge "/cci/edge") edge;
[ Fplot](nl fplot "/cci/fplot");
[ Hole/Slot](nl c:hole "/cci/hole") hole;
[ Project](nl c:project "/cci/project") project;
[acad(3darray)](nl c:3darray "/cci/3darray") 3darray;
[ 3d Angular array)](nl c:3dangarr "/cci/3dangarr") 3dangarr;
[ 3d Rotate](nl c:3drotate "/cci/3drotate") 3drotate;
[ Cancel]

**ifonts1
[Select Text Font]
[acad(romans)]^c^cstyle romans romans
[acad(romanc)]^c^cstyle romanc romanc
[acad(italicc)]^c^cstyle italicc italicc
[acad(romand)]^c^cstyle romand romand
[acad(romant)]^c^cstyle romant romant
[acad(italict)]^c^cstyle italict italict
[acad(monotxt)]^c^cstyle monotxt monotxt
[ Next]$i=ifonts2 $i=*
[ Cancel]

**ifonts2
[Select Text Font]
[acad(gothice)]^c^cstyle gothice gothice
[acad(greeks)]^c^cstyle greeks greeks
[acad(scripts)]^c^cstyle scripts scripts
[acad(gothicg)]^c^cstyle gothicg gothicg
[acad(greekc)]^c^cstyle greekc greekc
[acad(scriptc)]^c^cstyle scriptc scriptc
[acad(gothici)]^c^cstyle gothici gothici
[ Next]$i=ifonts3 $i=*
[ Cancel]

**ifonts3
[Select Text Font]
[acad(syastro)]^c^cstyle syastro syastro
[acad(symath)]^c^cstyle symath symath
[acad(symusic)]^c^cstyle symusic symusic
[acad(symap)]^c^cstyle symap symap
[acad(symeteo)]^c^cstyle symeteo symeteo
[acad(txt)]^c^cstyle txt txt
[acad(user)]
[ Begining]$i=ifonts1 $i=*
[ Cancel]

**ihatch1
[Select Hatch Pattern]
[ Previous/User]^c^chatch
[acad(ansi31)]^c^chatch ansi31
[acad(ansi32)]^c^chatch ansi32
[acad(ansi34)]^c^chatch ansi34
[acad(ansi35)]^c^chatch ansi35
[acad(ansi33)]^c^chatch ansi33
[acad(ansi36)]^c^chatch ansi36
[acad(ansi37)]^c^chatch ansi37
[acad(ansi38)]^c^chatch ansi38
[acad(box)]^c^chatch box
[acad(brass)]^c^chatch brass
[acad(brick)]^c^chatch brick
[acad(clay)]^c^chatch clay
[acad(cork)]^c^chatch cork
[ Next]$i=ihatch2 $i=*
[ Cancel]

**ihatch2
[Select Hatch Pattern]
[acad(cross)]^c^chatch cross
[acad(dash)]^c^chatch dash
[acad(dolmit)]^c^chatch dolmit
[acad(dots)]^c^chatch dots
[acad(earth)]^c^chatch earth
[acad(escher)]^c^chatch escher
[acad(flex)]^c^chatch flex
[acad(grass)]^c^chatch grass
[acad(grate)]^c^chatch grate
[acad(hex)]^c^chatch hex
[acad(honey)]^c^chatch honey
[acad(hound)]^c^chatch hound
[acad(insul)]^c^chatch insul
[acad(line)]^c^chatch line
[ Next]$i=ihatch3 $i=*
[ Cancel]

**ihatch3
[Select Hatch Pattern]
[acad(mudst)]^c^chatch mudst
[acad(net)]^c^chatch net
[acad(net3)]^c^chatch net3
[acad(plast)]^c^chatch plast
[acad(plasti)]^c^chatch plasti
[acad(sacncr)]^c^chatch sacncr
[acad(square)]^c^chatch square
[acad(stars)]^c^chatch stars
[acad(steel)]^c^chatch steel
[acad(swamp)]^c^chatch swamp
[acad(trans)]^c^chatch trans
[acad(triang)]^c^chatch triang
[acad(zigzag)]^c^chatch zigzag
[acad(angle)]^c^chatch angle
[ Beginning]$i=ihatch1 $i=*
[ Cancel]

**ivporti
[Viewport Settings (Current is dominant)]
[acad(vp1)]^c^cvports;si
[acad(vp3v)]^c^cvports;si;;3;v
[acad(vp3h)]^c^cvports;si;;3;h
[acad(vp4)]^c^cvports;si;;4
[acad(vp2v)]^c^cvports;si;;2;v
[acad(vp3r)]^c^cvports;si;;3;r
[acad(vp3l)]^c^cvports;si;;3;l
[acad(vp4l)]^c^cundo;m;(setq m:g (getvar "gridmode"));setvar;gridmode;0;+
vports;si;;2;;(setvar "cvport" (car (cadr (vports))))(princ);;2;;;j;;+
(car (cadr (vports)));(setvar "cvport" (car (cadr (vports))))(princ)+
;;3;h;(setvar "gridmode" m:g)(princ);zoom;a;(setvar "cvport"+
(car (cadddr (vports))))(setvar "gridmode" m:g)(princ);zoom;a;+
(setvar "cvport" (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);+
zoom;a;(setvar "cvport" (car (cadddr (vports))))(setvar "gridmode" m:g)+
(princ);zoom;a;undo;e;
[acad(vp2h)]^c^cvports;si;;2;h
[acad(vp3a)]^c^cvports;si;;3;a;
[acad(vp3b)]^c^cvports;si;;3;b;
[ Vport Setup](nl "" "/cci/ucssetup");
[ Join Viewports]^c^cvports;j
[ List/Restore]^C^cvports;?;vports r;
[ Save Viewports]vports;s;
[ Cancel]

**icircle
[Circle]
[cciacad(cirr)]^c^ccircle \drag
[cciacad(cird)]^c^ccircle \d;
[cciacad(cir2pt)]^c^ccircle 2p \drag
[cciacad(cir3pt)]^c^ccircle 3p \\drag
[cciacad(cirttr)]^c^ccircle ttr;
[cciacad(cirttt)]circle 3p tan \tan \tan;
[cciacad(circon)]circle cen \drag;
[cciacad(circonr)](nl "" "/cci/concentr");
[cciacad(circond)](nl "" "/cci/concentd");
[cciacad(circent)](nl c:circentl "/cci/circentl") circentl;
[ Cancel]

**iarc
[Arc]
[cciacad(arc3pt)]^c^carc \\drag
[cciacad(arcsce)]^c^carc \c \drag
[cciacad(arcsca)]^c^carc \c \a drag
[cciacad(arcscl)]^c^carc \c \l drag
[ contin]^c^carc ;drag
[cciacad(arccse)]^c^carc c \\drag
[cciacad(arccsa)]^c^carc c \\a drag
[cciacad(arccsl)]^c^carc c \\l drag
[ cancel]
[cciacad(arcsea)]^c^carc \e \a;
[cciacad(arcser)]^c^carc \e \r;
[cciacad(arcsed)]^c^carc \e \d drag

**isnaprot
[Snap Rotate]
[cciacad(snapiso)]snap s i ;
[cciacad(snapnorm)]snap s s   r 0,0 0;
[cciacad(snap60)]snap s s   r 0,0 60;
[ @ +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);
[cciacad(snapleft)]isoplane left;
[cciacad(snap15)]snap s s   r 0,0 15;
[cciacad(snap75)]snap s s   r 0,0 75;
[ @ -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);
[cciacad(snaprigh)]isoplane right;
[cciacad(snap30)]snap s s   r 0,0 30;
[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);
[ pickset](nl "" "/cci/rotsnap");
[cciacad(snaptop)]isoplane top;
[cciacad(snap45)]snap s s   r 0,0 45;
[ Other](initget 1)(setq temp (getangle " Enter angle: "))(setvar "snapang" temp)(princ);
[ cancel]

**idimpoint
[Set Both Point Types]
[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 .;
[cciacad(dimarr2)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr2") dim dimasz \dimtsz 0 dimblk dimarr2;
[cciacad(dimarr3)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr3") dim dimasz \dimtsz 0 dimblk dimarr3;
[cciacad(dimarr4)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr4") dim dimasz \dimtsz 0 dimblk dimarr4;
[cciacad(dimarr5)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr5") dim dimasz \dimtsz 0 dimblk dimarr5;
[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;
[cciacad(dimdot)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimdot") dim dimasz \dimtsz 0 dimblk dimdot;
[cciacad(dimdot2)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimdot2") dim dimasz \dimtsz 0 dimblk dimdot2;
[cciacad(dimtck)]^c^c(setvar "dimsah" 0)(if (equal (getvar "dimtsz") 0.0 0.001)(setvar "dimtsz" 0.125))(princ) dim dimtsz;
[cciacad(dimtick)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimtick") dim dimasz \dimtsz 0 dimblk dimtick;
[ None]dim dimasz 0 dimtsz 0;
[ Cancel]

**idimpoint1
[Set First Point type]
[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 .;
[cciacad(dimarr2)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr2") dim dimasz \dimtsz 0 dimblk1 dimarr2;
[cciacad(dimarr3)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr3") dim dimasz \dimtsz 0 dimblk1 dimarr3;
[cciacad(dimarr4)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr4") dim dimasz \dimtsz 0 dimblk1 dimarr4;
[cciacad(dimarr5)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr5") dim dimasz \dimtsz 0 dimblk1 dimarr5;
[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;
[cciacad(dimdot)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimdot") dim dimasz \dimtsz 0 dimblk1 dimdot;
[cciacad(dimtck)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtck") dim dimasz \dimtsz 0 dimblk1 dimtck;
[cciacad(dimtick)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtick") dim dimasz \dimtsz 0 dimblk1 dimtick;
[ None](setvar "dimsah" 1) dim dimblk1 . dimasz 0 dimtsz 0;
[ Cancel]

**idimpoint2
[Set Second Point type]
[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 .;
[cciacad(dimarr2)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr2") dim dimasz \dimtsz 0 dimblk2 dimarr2;
[cciacad(dimarr3)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr3") dim dimasz \dimtsz 0 dimblk2 dimarr3;
[cciacad(dimarr4)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr4") dim dimasz \dimtsz 0 dimblk2 dimarr4;
[cciacad(dimarr5)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr5") dim dimasz \dimtsz 0 dimblk2 dimarr5;
[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;
[cciacad(dimdot)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimdot") dim dimasz \dimtsz 0 dimblk2 dimdot;
[cciacad(dimtck)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtck") dim dimasz \dimtsz 0 dimblk2 dimtck;
[cciacad(dimtick)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtick") dim dimasz \dimtsz 0 dimblk2 dimtick;
[ None](setvar "dimsah" 1) dim dimblk2 . dimasz 0 dimtsz 0;
[ Cancel]

**idimzin
[Suppress Dimension Zero]
[cciacad(dimzin12)]12;
[cciacad(dimzin1)]1;
[cciacad(dimzin10)]10;
[cciacad(dimzin7)]7;

**idim1
[Dimensioning]
[cciacad(dimhorz)]^c^c$s=x $s=dimlinear dim horiz;
[cciacad(dimvert)]^c^c$s=x $s=dimlinear dim vert;
[cciacad(dimcont)]^c^c$s=x $s=dimlinear dim contin;
[cciacad(dimbase)]^c^c$s=x $s=dimlinear dim base;
[cciacad(dimalig)]^c^c$s=x $s=dimlinear dim aligned;
[cciacad(dimrot)]^c^c$s=x $s=dimlinear dim rotated;
[ Update]dim update;
[ Newtext]dim newtext;
[cciacad(dimdia)]$s=x $s=dim dim diameter;
[cciacad(dimrad)]$s=x $s=dim dim radius;
[cciacad(dimcent)]$s=x $s=dim dim center;
[cciacad(dimang)]$s=x $s=dim dim angular;
[cciacad(dimlead)]$s=x $s=dim $i=iballoon $i=*
[ Toggles]$s=x $s=var1 $i=idimtog $i=*
[ Status]^c^c$s=x $s=dim dim status;
[ Cancel]

**idimtog
[Dimension Toggles]
[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);
[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);
[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);
[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);
[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);
[cciacad(dimzins)]setvar dimzin;$i=idimzin $i=*
[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);
[ Extensions](nl "" "/cci/dimext");
[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);
[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);
[ set +]^c^cdim dimtp;
[ set -]dim dimtm;
[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);
[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);
[ Dimaltf]'setvar DIMALTF;
[ Cancel]

**iinsym
[Insert Symbol in a Line]
[ Other](nl "" "/cci/symbol");
[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");
[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");
[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");
[ Reset size](princ "Resetting SYMBOL size ")(setq size1 nil ang nil)(princ);$i=iinsym $i=*
[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");
[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");
[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");
[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");
[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");
[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");
[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");
[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");
[cciacad(lineball)](setq insfl (strcat drive "/cci/ballsym") ang 0 attfl "Y" attno 1 breakt t break "Y" insflt t)(princ) (nl "" "/cci/symbol");
[ Cancel]

**iballoon
[Custom Balloons and Leaders]
[ AutoCad Leader]dim leader;
[cciacad(balloon)](nl c:balloon "/cci/balloon") balloon;
[cciacad(leader)](nl c:leadr "/cci/leadr") leadr;
[cciacad(arclead)](nl c:arclead "/cci/arclead") arclead;
[cciacad(looplead)](nl c:looplead "/cci/looplead") looplead;
[cciacad(leadtext)](nl c:leadtext "/cci/leadtext") leadtext;
[cciacad(leaddtxt)](nl c:leaddtxt "/cci/leaddtxt") leaddtxt;
[cciacad(leadarro)](princ "pointer type set to arrows ")(setq bubtyp "A")(princ);$i=iballoon $i=*
[cciacad(leaddots)](princ "pointer type set to dots ")(setq bubtyp "D")(princ);$i=iballoon $i=*
[cciacad(leadtick)](princ "pointer type set to ticks ")(setq bubtyp "T")(princ);$i=iballoon $i=*
[cciacad(leadnone)](princ "pointer type set to none ")(setq bubtyp "N")(princ);$i=iballoon $i=*
[ text style](setq bubsty nil)(princ " RESETTING TEXT STYLE ")(princ);$i=iballoon $i=*
[ pointer size](setq asize nil)(princ " RESETTING POINTER SIZE ")(princ);$i=iballoon $i=*
[ balloon size](setq bbub nil)(princ " RESETTING BALLOON SIZE ")(princ);$i=iballoon $i=*
[ Cancel]

**userblk
[Userblocks]
[acadcci(block1)]insert (dd "/custom/block1");
[acadcci(block2)]insert (dd "/custom/block2");
[acadcci(block3)]insert (dd "/custom/block3");
[acadcci(block4)]insert (dd "/custom/block4");
[acadcci(block5)]insert (dd "/custom/block5");
[acadcci(block6)]insert (dd "/custom/block6");
[acadcci(block7)]insert (dd "/custom/block7");
[acadcci(block8)]insert (dd "/custom/block8");
[acadcci(block9)]insert (dd "/custom/block9");
[acadcci(block10)]insert (dd "/custom/block10");
[acadcci(block11)]insert (dd "/custom/block11");
[acadcci(block12)]insert (dd "/custom/block12");
[acadcci(block13)]insert (dd "/custom/block13");
[acadcci(block14)]insert (dd "/custom/block14");
[ Next]$i=userblk1 $i=*
[ Cancel]

**userblk1
[Userblocks]
[acadcci(block15)]insert (dd "/custom/block15");
[acadcci(block16)]insert (dd "/custom/block16");
[acadcci(block17)]insert (dd "/custom/block17");
[acadcci(block18)]insert (dd "/custom/block18");
[acadcci(block19)]insert (dd "/custom/block19");
[acadcci(block20)]insert (dd "/custom/block20");
[acadcci(block21)]insert (dd "/custom/block21");
[acadcci(block22)]insert (dd "/custom/block22");
[acadcci(block23)]insert (dd "/custom/block23");
[acadcci(block24)]insert (dd "/custom/block24");
[acadcci(block25)]insert (dd "/custom/block25");
[acadcci(block26)]insert (dd "/custom/block26");
[acadcci(block27)]insert (dd "/custom/block27");
[acadcci(block28)]insert (dd "/custom/block28");
[ Last]$i=userblk $i=*
[ Cancel]

**insulate
[ Insulation Pattern]
[autoarch(insulate)]insulat;
[autoarch(insulxm)]insulxm;
[autoarch(insulx)]insulx;
[autoarch(insuline)]insuline;
[autoarch(insulang)]insulang;
[autoarch(insusold)]insusold;

**ibuild
[Building outlines]
[autoarch(building)](setq bldtyp "S")(nl "" "/archp/building");
[autoarch(fndbuild)](setq bldtyp "S")(nl "" "/archp/fndbuild");
[autoarch(bldcombo)](setq bldtyp "S")(nl "" "/archp/bldcombo");
[ Layer MOD WALL](set 'temp 'WALLV)(nl "" "/cci/layermod");
[autoarch(buildc)](setq bldtyp "C")(nl "" "/archp/building");
[autoarch(fndbldc)](setq bldtyp "C")(nl "" "/archp/fndbuild");
[autoarch(bldcc)](setq bldtyp "C")(nl "" "/archp/bldcombo");
[ Layer MOD FND](set 'temp 'FNDV)(nl "" "/cci/layermod");
[ Layer MOD FOOT](set 'temp 'FNDDV)(nl "" "/cci/layermod");
[ Cancel]

**door3
[Door Types]
[ 90 Sgl]90s;
[ 90 Dbl]90d;
[ 90 DblEg]90deg;
[ 45 Sgl]45s;
[ 45 Dbl]45d;
[ 45 DblEg]45deg;
[ EXISTsgl]exs;
[ EXISTdbl]exd;
[ SLIDEsgl]sls;
[ SLIDEdbl]sld;
[ BIFOLD S]bis;
[ BIFOLD D]bid;
[ 2WAY S]2ws;
[ 2WAY D]2wd;
[ REVOLV]rev;
[ Cancel]

**idoorel
[Door Replacement options]
[autoarch(door1)]3ddoor1;
[autoarch(door2)]3ddoor2;
[autoarch(door3)]3ddoor3;
[autoarch(door4)]3ddoor4;
[autoarch(door5)]3ddoor5;
[autoarch(door6)]3ddoor6;
[autoarch(door7)]3ddoor7;

**idoorel1
[Door Accesories]
[autoarch(doorknob)]doorknob;
[autoarch(doorknb1)]doorknb1;
[autoarch(doorknb2)]doorknb2;
[autoarch(doorknb3)]doorknb3;
[autoarch(doorknb4)]doorknb4;
[autoarch(doorknb5)]doorknb5;
[autoarch(doorknb6)]doorknb6;
[autoarch(doorknb7)]doorknb7;
[ None];

**iwindtype
[window types]
[ Single p]sp;
[ Double]dp;
[ Casement]ct;
[ Sliding]gl;

**iwindtypee
[Elevation Window types]
[ Fixed Glass]fixed;
[ Double Hung]double;
[ Casement]casement;
[ Sliding]sliding;
[ Awning]awning;

**inorth
[North arrows]
[autoarch(north)](lays symbolv) insert (dd "/arch/north") scale !scale1;
[autoarch(north1)](lays symbolv) insert (dd "/arch/north1") scale !scale1;
[autoarch(north2)](lays symbolv) insert (dd "/arch/north2") scale !scale1;
[autoarch(north3)](lays symbolv) insert (dd "/arch/north3") scale !scale1;
[autoarch(north4)](lays symbolv) insert (dd "/arch/north4") scale !scale1;
[autoarch(north5)](lays symbolv) insert (dd "/arch/north5") scale !scale1;
[ Cancel]

**itreepln
[Trees 1]
[autoarch(tree1)](lays sitev) insert (dd3 "/tree1") \\
[autoarch(tree2)](lays sitev) insert (dd3 "/tree2") \\
[autoarch(tree3)](lays sitev) insert (dd3 "/tree3") \\
[autoarch(tree4)](lays sitev) insert (dd3 "/tree4") \\
[autoarch(tree5)](lays sitev) insert (dd3 "/tree5") \\
[autoarch(treea)](lays sitev) insert (dd3 "/treea") \\
[autoarch(treeb)](lays sitev) insert (dd3 "/treeb") \\
[autoarch(treec)](lays sitev) insert (dd3 "/treec") \\
[autoarch(treed)](lays sitev) insert (dd3 "/treed") \\
[autoarch(treee)](lays sitev) insert (dd3 "/treee") \\
[autoarch(treef)](lays sitev) insert (dd3 "/treef") \\
[autoarch(treeg)](lays sitev) insert (dd3 "/treeg") \\
[autoarch(treeh)](lays sitev) insert (dd3 "/treeh") \\
[autoarch(treei)](lays sitev) insert (dd3 "/treei") \\
[ next]$i=itreepln1 $i=*
[ Cancel]

**itreepln1
[Trees 2]
[autoarch(treej)](lays sitev) insert (dd3 "/treej") \\
[autoarch(treek)](lays sitev) insert (dd3 "/treek") \\
[autoarch(treel)](lays sitev) insert (dd3 "/treel") \\
[autoarch(treem)](lays sitev) insert (dd3 "/treem") \\
[autoarch(treen)](lays sitev) insert (dd3 "/treen") \\
[autoarch(treeo)](lays sitev) insert (dd3 "/treeo") \\
[autoarch(treep)](lays sitev) insert (dd3 "/treep") \\
[autoarch(treeq)](lays sitev) insert (dd3 "/treeq") \\
[autoarch(treer)](lays sitev) insert (dd3 "/treer") \\
[autoarch(trees)](lays sitev) insert (dd3 "/trees") \\
[autoarch(treet)](lays sitev) insert (dd3 "/treet") \\
[autoarch(treeu)](lays sitev) insert (dd3 "/treeu") \\
[autoarch(treev)](lays sitev) insert (dd3 "/treev") \\
[autoarch(treey)](lays sitev) insert (dd3 "/treey") \\
[autoarch(treez)](lays sitev) insert (dd3 "/treez") \\
[ last]$i=itreepln $i=*

**itreepln2
[Hedges]
[autoarch(treew)](lays sitev) insert (dd3 "/treew") \\
[autoarch(treex)](lays sitev) insert (dd3 "/treex") \\
[autoarch(hedge)](lays sitev) insert (dd3 "/hedge") \\
[autoarch(rock)](lays sitev) insert (dd3 "/rock") \\
[ Tree 1]$i=itreepln $i=*
[ Tree 2]$i=itreepln1 $i=*
[ Cancel]

**ihandicap
[Handicap]
[autoarch(handisym)](lays sitev) insert (dd "/arch/handisym") \\
[autoarch(wchairp)](lays sitev) insert (dd3 "/wchairp") scale !scaleb \
[autoarch(handicrb)](nl "" "/archp/handicrb");
[ Cancel]

**ilinesite
[Site Linetypes]
[autoarch(sitecust)](nl "" "/cci/symbol");
[autoarch(railroad)](princ "Loading RAILROAD ")(setq insfl (strcat drive "/cci/line190") ANG 0 attfl "N" angt t insflt t breakt t break "N" angtpt t angtp "A")(nl "" "/cci/symbol");
[autoarch(fence)](princ "Loading FENCE ")(setq insfl (strcat drive "/cci/linex") ang 0 attfl "N" angt t insflt t breakt t break "N" angtp "A" angtpt t)(nl "" "/cci/symbol");
[autoarch(stonewal)](lays sitev) insert (dd "/arch/stone") \\
[autoarch(boundary)]$s=x $s=line layer m boundary l boundary   line;
[autoarch(setback)]$s=x $s=line layer m setback l dashed   line;
[autoarch(stream)]$s=x $s=line layer m stream l stream   line;
[ Cancel]

**isiteutil
[Site Utilties]
[autoarch(stelp)](lays sitev) insert (dd "/arch/stelp") scale !scale1;
[autoarch(stelpb)](lays sitev) insert (dd "/arch/stelpb") scale !scale1;
[autoarch(sltp)](lays sitev) insert (dd "/arch/sltp") scale !scale1;
[autoarch(spowp)](lays sitev) insert (dd "/arch/spowp") scale !scale1;
[autoarch(shydrant)](lays sitev) insert (dd "/arch/shydrant") scale !scale1;
[autoarch(sfirecon)](lays sitev) insert (dd "/arch/sfirecon") scale !scale1;
[autoarch(gasvalv)](lays sitev) insert (dd "/arch/gasvalv") scale !scale1;
[autoarch(sh2ovalv)](lays sitev) insert (dd "/arch/sh2ovalv") scale !scale1;
[autoarch(strndfrm)](lays sitev) insert (dd "/arch/strndfrm") scale !scale1;
[autoarch(GASmeter)](princ "Loading GASMETER ")(setq insfl (strcat drive "/cci/balloon") ang 0 attfl "N" angt t insflt t breakt t break "Y" angtpt t angtp "C" attno 1 val1 "G")(nl "" "/cci/symbol");
[autoarch(H2Ometer)](princ "Loading H2OMETER ")(setq insfl (strcat drive "/cci/balloon") ang 0 attfl "N" angt t insflt t breakt t break "Y" angtpt t angtp "C" attno 1 val1 "W")(nl "" "/cci/symbol");
[ Cancel]

**isitemisc
[Miscellaneous Site]
[autoarch(strash)](lays sitev) insert (dd "/arch/strash") scale !scale1;
[autoarch(sbridge)](lays sitev) insert (dd "/arch/sbridge") \\
[autoarch(sip)](lays sitev) insert (dd "/arch/sip") \\
[autoarch(sconcmon)](lays sitev) insert (dd "/arch/sconcmon") \\
[ Cancel]

**isitelight
[Site Lights]
[autoarch(e-lpole1)](lays sitev);insert (dd "/arch2d/e-lpole1") scale !scaleb \
[autoarch(e-lpole2)](lays sitev);insert (dd "/arch2d/e-lpole2") scale !scaleb \
[autoarch(e-lpole3)](lays sitev);insert (dd "/arch2d/e-lpole3") scale !scaleb \
[autoarch(e-lpole4)](lays sitev);insert (dd "/arch2d/e-lpole4") scale !scaleb \
[ Cancel]

**ivehicles
[Vehicles]
[autoarch(vcssdp)](lays sitev) insert (dd3 "/vcssdp") scale !scaleb \
[autoarch(vcmsdp)](lays sitev) insert (dd3 "/vcmsdp") scale !scaleb \
[autoarch(vcmstp)](lays sitev) insert (dd3 "/vcmstp") scale !scaleb \
[autoarch(vclsdp)](lays sitev) insert (dd3 "/vclsdp") scale !scaleb \
[autoarch(vtanp)](lays sitev) insert (dd3 "/vtvanp") scale !scaleb \
[autoarch(vt18bp)](lays sitev) insert (dd3 "/vt18bp") scale !scaleb \
[autoarch(vt24bp)](lays sitev) insert (dd3 "/vt24bp") scale !scaleb \
[autoarch(vt28bp)](lays sitev) insert (dd3 "/vt28bp") scale !scaleb \
[autoarch(vbusschl)](lays sitev) insert (dd3 "/vbusschl") scale !scaleb \
[autoarch(vbusmtro)](lays sitev) insert (dd3 "/vbusmtro") scale !scaleb \
[ Big Trucks]$i=ivehicles1 $i=*
[ Cancel]

**ivehicles1
[Big Trucks]
[autoarch(vtt50p)](lays sitev) insert (dd3 "/vtt50p") scale !scaleb \
[autoarch(vtt55p)](lays sitev) insert (dd3 "/vtt55p") scale !scaleb \
[autoarch(vtt60p)](lays sitev) insert (dd3 "/vtt60p") scale !scaleb \
[autoarch(vtt65p)](lays sitev) insert (dd3 "/vtt65p") scale !scaleb \
[autoarch(vttr50p)](lays sitev) insert (dd3 "/vttr50p") scale !scaleb \
[autoarch(vttr55p)](lays sitev) insert (dd3 "/vttr55p") scale !scaleb \
[autoarch(vttr60p)](lays sitev) insert (dd3 "/vttr60p") scale !scaleb \
[autoarch(vttr65p)](lays sitev) insert (dd3 "/vttr65p") scale !scaleb \
[ Cars & Vans]$i=ivehicles $i=*
[ Cancel]

**idrainage
[Drainage]
[autoarch(catchbsn)](lays sitev) insert (dd "/arch/catchbsn") scale !scale1;
[autoarch(manhole)](lays sitev) insert (dd "/arch/manhole") scale !scale1;
[autoarch(curbinlt)](lays sitev) insert (dd "/arch/curbinlt") scale !scale1;
[ Cancel]

**iparking
[Parking lot symbols]
[autoarch(arrows)](lays sitev) insert (dd "/arch/arrows") \\
[autoarch(arr2way)](lays sitev) insert (dd "/arch/arr2way") \\
[autoarch(arrowl)](lays sitev) insert (dd "/arch/arrowl") \\
[autoarch(arrowr)](lays sitev) insert (dd "/arch/arrowr") \\
[autoarch(arrstrl)](lays sitev) insert (dd "/arch/arrstrl") \\
[autoarch(arrstrr)](lays sitev) insert (dd "/arch/arrstrr") \\
[autoarch(handisym)](lays sitev) insert (dd "/arch/handisym") \\
[autoarch(snopark)](lays sitev) insert (dd "/arch/snopark") scale !scale1;
[autoarch(snoenter)](lays sitev) insert (dd "/arch/snoenter") scale !scaleb \
[autoarch(sexit)](lays sitev) insert (dd "/arch/sexit") scale !scaleb \
[autoarch(parking1)]$i=iparking1 $i=*
[ Cancel]

**iparking1
[Parking lot layout]
[autoarch(parking)](nl parking "/archp/parking")(parking);
[autoarch(parkg10)](lays sitev) insert (dd "/arch/parkg10") scale !scaleb \
[autoarch(parkg15)](lays sitev) insert (dd "/arch/parkg15") scale !scaleb \
[autoarch(parkg20)](lays sitev) insert (dd "/arch/parkg20") scale !scaleb \
[autoarch(parks10)](lays sitev) insert (dd "/arch/parks10") scale !scaleb \
[autoarch(parks15)](lays sitev) insert (dd "/arch/parks15") scale !scaleb \
[autoarch(parks20)](lays sitev) insert (dd "/arch/parks20") scale !scaleb \
[autoarch(parkd10)](lays sitev) insert (dd "/arch/parkd10") scale !scaleb \
[autoarch(parkd15)](lays sitev) insert (dd "/arch/parkd15") scale !scaleb \
[autoarch(parkd20)](lays sitev) insert (dd "/arch/parkd20") scale !scaleb \
[autoarch(parksyms)]$i=iparking $i=*
[ Cancel]

**iappl
[Appliances]
[autoarch(range)](lays fixtv) insert (dd3 "/range") scale !scaleb \
[autoarch(oven)](lays fixtv) insert (dd3 "/oven") scale !scaleb \
[autoarch(ref1)](lays fixtv) insert (dd3 "/ref1") scale !scaleb \
[autoarch(ref2)](lays fixtv) insert (dd3 "/ref2") scale !scaleb \
[autoarch(ref3)](lays fixtv) insert (dd3 "/ref3") scale !scaleb \
[autoarch(dishwash)](lays fixtv) insert (dd3 "/dishwash") scale !scaleb \
[autoarch(wash)](lays fixtv) insert (dd3 "/washer") scale !scaleb \
[autoarch(dryer)](lays fixtv) insert (dd3 "/dryer") scale !scaleb \
[autoarch(micro)](lays fixtv) insert (dd3 "/micro") scale !scaleb \
[autoarch(toaster)](lays fixtv) insert (dd3 "/toaster") scale !scaleb \
[ fan]^c^cinsert (dd "/arch2d/upthe");
[ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
[ Cancel]

**iroof
[Roof layout]
[ ROOFGABL](nl c:roofgab "/archp/roofgab") roofgab;
[ ROOFSHED](nl c:roofshed "/archp/roofshed") roofshed;
[ ROOFHIP](nl c:hip "/archp/hiproof") hip;
[ 1/2 GABL](nl c:roof "/archp/roof") roof;
[ just HIP](nl c:roofhip "/archp/roofhip") roofhip;
[ 3pt int](nl c:3ptroof "/archp/3ptroof") 3ptroof;
[ ROOFJOIN](nl c:4ptroof "/archp/4ptroof") 4ptroof;
[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);
[cciacad(snapnorm)](setvar "snapang" 0)(princ) 'redraw;
[ Roof hatch]$i=iroofh $i=*
[ Cancel]

**iroofh
[ Roof hatch patterns]
[ Hatch Face or poly](nl "" "/archp/hatfacer");
[autoarch(shingle1)]hatch shingle1 (* scalem 12);
[autoarch(shakes1)]hatch shakes1 (* scalem 12);
[autoarch(shakes2)]hatch shakes2 (* scalem 12);
[autoarch(troof2)]hatch spantile (* scalem 12);
[ Cancel]

**ichair
[Chairs]
[autoarch(chair1)](lays furnv) insert (dd3 "/chair1") scale !scaleb \
[autoarch(chair2)](lays furnv) insert (dd3 "/chair2") scale !scaleb \
[autoarch(chair3)](lays furnv) insert (dd3 "/chair3") scale !scaleb \
[autoarch(chair4)](lays furnv) insert (dd3 "/chair4") scale !scaleb \
[autoarch(chair5)](lays furnv) insert (dd3 "/chair5") scale !scaleb \
[autoarch(chair6)](lays furnv) insert (dd3 "/chair6") scale !scaleb \
[autoarch(chair7)](lays furnv) insert (dd3 "/chair7") scale !scaleb \
[autoarch(chair8)](lays furnv) insert (dd3 "/chair8") scale !scaleb \
[autoarch(chair9)](lays furnv) insert (dd3 "/chair9") scale !scaleb \
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**itabler
[Rectangular tables]
[autoarch(ftabllsp)](lays furnv) (nl "" "/archp/tabler");
[autoarch(tablcsqr)](lays furnv) (nl "" "/archp/table");
[autoarch(table3)](lays furnv) insert (dd3 "/table3") scale !scaleb \
[autoarch(tablcoff)](lays furnv) insert (dd3 "/tablcoff") scale !scaleb \
[autoarch(tablcomp)](lays furnv) insert (dd3 "/tablcomp") scale !scaleb \
[autoarch(fconf8)](lays furnv) insert (dd3 "/fconf8") scale !scaleb \
[autoarch(fconf10)](lays furnv) insert (dd3 "/fconf10") scale !scaleb \
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**itablec
[Circular tables]
[autoarch(tablcrnd)](lays furnv) (nl "" "/archp/table");
[autoarch(ftablrnd)](lays furnv) (nl "" "/archp/tablec");
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**idesk
[Desks]
[autoarch(desk1)](lays furnv) insert (dd3 "/desk1") scale !scaleb \
[autoarch(desk2)](lays furnv) insert (dd3 "/desk2") scale !scaleb \
[autoarch(desk3)](lays furnv) insert (dd3 "/desk3") scale !scaleb \
[autoarch(desk4)](lays furnv) insert (dd3 "/desk4") scale !scaleb \
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**isofa
[Sofa]
[autoarch(sofa1)](lays furnv) insert (dd3 "/sofa1") scale !scaleb \
[autoarch(sofa2)](lays furnv) insert (dd3 "/sofa2") scale !scaleb \
[autoarch(sofa3)](lays furnv) insert (dd3 "/sofa3") scale !scaleb \
[autoarch(sofa4)](lays furnv) insert (dd3 "/sofa4") scale !scaleb \
[autoarch(sofa5)](lays furnv) insert (dd3 "/sofa5") scale !scaleb \
[autoarch(sofa6)](lays furnv) insert (dd3 "/sofa6") scale !scaleb \
[autoarch(sofa7)](lays furnv) insert (dd3 "/sofa7") scale !scaleb \
[autoarch(sofa8)](lays furnv) insert (dd3 "/sofa8") scale !scaleb \
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**ibed
[Beds]
[autoarch(bedtwin)](lays furnv) insert (dd3 "/bedtwin") scale !scaleb \
[autoarch(beddoubl)](lays furnv) insert (dd3 "/beddoubl") scale !scaleb \
[autoarch(bedqueen)](lays furnv) insert (dd3 "/bedqueen") scale !scaleb \
[autoarch(bedking)](lays furnv) insert (dd3 "/bedking") scale !scaleb \
[autoarch(bedhosp)](lays furnv) insert (dd3 "/bedhosp") scale !scaleb \
[autoarch(bedbunk)](lays furnv) insert (dd3 "/bedbunk") scale !scaleb \
[autoarch(bedcrib)](lays furnv) insert (dd3 "/bedcrib") scale !scaleb \
[autoarch(bed3-4)](lays furnv) insert (dd3 "/bed3-4") scale !scaleb \
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**ioffice
[Office equipment]
[autoarch(fnphone)](lays furnv) insert (dd3 "/fnphone") scale !scaleb \
[autoarch(fncomp)](lays furnv) insert (dd3 "/fncomp") scale !scaleb \
[autoarch(typewrit)](lays furnv) insert (dd3 "/typewrit") scale !scaleb \
[autoarch(copier1)](lays furnv) insert (dd3 "/copier1") scale !scaleb \
[autoarch(copier2)](lays furnv) insert (dd3 "/copier2") scale !scaleb \
[autoarch(copier3)](lays furnv) insert (dd3 "/copier3") scale !scaleb \
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**ifilecab
[File cabinets]
[autoarch(fc15x22a)](lays furnv) insert (dd3 "/fc15x22a") scale !scaleb \
[autoarch(fc15x27)](lays furnv) $i=ifc15x27 $i=*
[autoarch(fc18x27)](lays furnv) $i=ifc18x27 $i=*
[autoarch(fc30x18)](lays furnv) $i=ifc30x18 $i=*
[autoarch(fc36x18)](lays furnv) $i=ifc36x18 $i=*
[autoarch(fc42x18)](lays furnv) $i=ifc42x18 $i=*
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**ifilecabm
[File cabinets]
[autoarch(fc15x22a)](lays furnv) insert (dd3 "/fc15x22a") scale !scaleb \
[autoarch(fc15x27)](lays furnv) $i=ifc15x27 $i=*
[autoarch(fc18x27)](lays furnv) $i=ifc18x27 $i=*
[autoarch(fc30x18)](lays furnv) $i=ifc30x18m $i=*
[autoarch(fc36x18)](lays furnv) $i=ifc36x18m $i=*
[autoarch(fc42x18)](lays furnv) $i=ifc42x18m $i=*
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**ifc15x27
[Letter Size File]
[ 2 drawer]insert (dd3 "/fc15x27a") scale !scaleb \
[ 4 drawer]insert (dd3 "/fc15x27b") scale !scaleb \
[ 5 drawer]insert (dd3 "/fc15x27c") scale !scaleb \
[ Cancel]

**ifc18x27
[Legal Size File]
[ 2 drawer]insert (dd3 "/fc18x27a") scale !scaleb \
[ 4 drawer]insert (dd3 "/fc18x27b") scale !scaleb \
[ 5 drawer]insert (dd3 "/fc18x27c") scale !scaleb \
[ Cancel]

**ifc30x18
[30" Lateral File]
[ 2 drawer]insert (dd3 "/fc30x18a") scale !scaleb \
[ 3 drawer]insert (dd3 "/fc30x18b") scale !scaleb \
[ 4 drawer]insert (dd3 "/fc30x18c") scale !scaleb \
[ 5 drawer]insert (dd3 "/fc30x18d") scale !scaleb \
[ Cancel]

**ifc30x18m
[0.75 Lateral File]
[ 2 drawer]insert (dd3 "/fc30x18a") scale !scaleb \
[ 3 drawer]insert (dd3 "/fc30x18b") scale !scaleb \
[ 4 drawer]insert (dd3 "/fc30x18c") scale !scaleb \
[ 5 drawer]insert (dd3 "/fc30x18d") scale !scaleb \
[ Cancel]

**ifc36x18
[36" Lateral File]
[ 2 drawer]insert (dd3 "/fc36x18a") scale !scaleb \
[ 3 drawer]insert (dd3 "/fc36x18b") scale !scaleb \
[ 4 drawer]insert (dd3 "/fc36x18c") scale !scaleb \
[ 5 drawer]insert (dd3 "/fc36x18d") scale !scaleb \
[ Cancel]

**ifc36x18m
[0.9 Lateral File]
[ 2 drawer]insert (dd3 "/fc36x18a") scale !scaleb \
[ 3 drawer]insert (dd3 "/fc36x18b") scale !scaleb \
[ 4 drawer]insert (dd3 "/fc36x18c") scale !scaleb \
[ 5 drawer]insert (dd3 "/fc36x18d") scale !scaleb \
[ Cancel]

**ifc42x18
[42" Lateral File]
[ 2 drawer]insert (dd3 "/fc42x18a") scale !scaleb \
[ 3 drawer]insert (dd3 "/fc42x18b") scale !scaleb \
[ 4 drawer]insert (dd3 "/fc42x18c") scale !scaleb \
[ 5 drawer]insert (dd3 "/fc42x18d") scale !scaleb \
[ Cancel]

**ifc42x18m
[1.05 Lateral File]
[ 2 drawer]insert (dd3 "/fc42x18a") scale !scaleb \
[ 3 drawer]insert (dd3 "/fc42x18b") scale !scaleb \
[ 4 drawer]insert (dd3 "/fc42x18c") scale !scaleb \
[ 5 drawer]insert (dd3 "/fc42x18d") scale !scaleb \
[ Cancel]

**ibookcase
[Book Cases]
[autoarch(fncase1)](lays furnv) insert (dd3 "/fncase1") scale !scaleb \
[autoarch(fncase2)](lays furnv) insert (dd3 "/fncase2") scale !scaleb \
[autoarch(fncase3)](lays furnv) insert (dd3 "/fncase3") scale !scaleb \
[autoarch(fncase4)](lays furnv) insert (dd3 "/fncase4") scale !scaleb \
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**ilamp
[Lamps]
[autoarch(fndlmp1)](lays furnv) insert (dd3 "/fndlmp1") scale !scaleb \
[autoarch(fnflmp1)](lays furnv) insert (dd3 "/fnflmp1") scale !scaleb \
[autoarch(fnflmp2)](lays furnv) insert (dd3 "/fnflmp2") scale !scaleb \
[autoarch(fntlmp1)](lays furnv) insert (dd3 "/fntlmp1") scale !scaleb \
[autoarch(fntlmp2)](lays furnv) insert (dd3 "/fntlmp2") scale !scaleb \
[autoarch(fntlmp3)](lays furnv) insert (dd3 "/fntlmp3") scale !scaleb \
[ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
[ Cancel]

**istruct
[Struct Steel shapes]
[ WELDING](nl "" "/archp/weld");
[ I BEAM](nl "" "/archp/ibeam");
[ T BEAM](nl "" "/archp/stee");
[ C CHANNL](nl "" "/archp/channel");
[ ANGLE](nl "" "/archp/sangle");
[ PIPE](nl "" "/archp/spipe");
[ TUBE](nl "" "/archp/stube");
[ Cancel]

**imasonry
[Masonry details]
[autoarch(masblk1)]insert (dd "/archd/mpa10808") scale !scaleb;
[autoarch(masblk2)]^c^cinsert (dd "/archd/mpa20808") scale !scaleb;
[autoarch(masblk3)]^c^cinsert (dd "/archd/mpa30808") scale !scaleb;
[autoarch(masblk10)]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk1m"))(progn (menucmd "s=x")(menucmd "s=masblk1")))(princ);(setq temp "mea1")(princ);
[autoarch(masblk4)]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa1")(princ);
[autoarch(masblk5)]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa2")(princ);
[autoarch(masblk6)]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa3")(princ);
[autoarch(masblk11)]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk3m"))(progn (menucmd "s=x")(menucmd "s=masblk3")))(princ);(setq temp "mj")(princ);
[autoarch(masblk7)]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr1")(princ);
[autoarch(masblk8)]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr2")(princ);
[autoarch(masblk9)]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr3")(princ);
[autoarch(masblk12)]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk1m"))(progn (menucmd "s=x")(menucmd "s=masblk1")))(princ);(setq temp "mer1")(princ);
[autoarch(mashatgo)]^c^c$i=imashat $i=*
[ Cancel ]^C^C

**imashat
[Masonry hatch patterns (true size)]
[autoarch(mashat1A)]^C^Chatch mblocks
[autoarch(mashat2A)]^C^Chatch msblocks
[autoarch(mashat3A)]^C^Chatch mrblocks
[ - ]
[autoarch(mashat1B)]^C^Chatch mblockc
[autoarch(mashat2B)]^C^Chatch msblockc
[autoarch(mashat3B)]^C^Chatch mrblockc
[ - ]
[autoarch(sbbricks)]^C^Chatch sbbricks
[autoarch(rbbricks)]^C^Chatch rbbricks
[autoarch(fbbricks)]^C^Chatch fbbricks
[ Last]^C^C$i=imasonry $i=*
[autoarch(sbbrickc)]^C^Chatch sbbrickc
[autoarch(rbbrickc)]^C^Chatch rbbrickc
[autoarch(fbbrickc)]^C^Chatch fbbrickc
[ Cancel ]^C^C

**iwood
[Wood details]
[ 3D Woodbeam](nl "" "/archp/swood");
[autoarch(woodsec)]^C^C(if metric (progn (menucmd "s=x")(menucmd "s=woodsectm"))(progn (menucmd "s=x")(menucmd "s=woodsect")))(princ);(nl "" "/archp/woodsec");
[autoarch(woodside)]^C^C(if metric (progn (menucmd "s=x")(menucmd "s=woodelevm"))(progn (menucmd "s=x")(menucmd "s=woodelev")))(princ);(nl "" "/archp/woodside");
[autoarch(woodhat8)]^C^Chatch wood8 \\\
[autoarch(woodhat2)]^C^Chatch wood2 \\\
[autoarch(woodhat3)]^C^Chatch wood3 \\\
[autoarch(woodhat4)]^C^Chatch wood4 \\\
[ Hatch Wall](nl "" "/archp/hatwall");
[ Cancel ]^C^C

**imetalstud
[Metal Studs]
[autoarch(mstud1)]^C^C$s=x $s=metalstud (nl metstud "/archp/metstud")(metstud "stud1");
[autoarch(mstud2)]^C^C$s=x $s=metalstud (nl metstud "/archp/metstud")(metstud "stud2");
[autoarch(mstud3)]^C^C$s=x $s=metalstud (nl metstud "/archp/metstud")(metstud "stud3");
[autoarch(mstud4)]^C^C$s=x $s=metalstud (nl metstud "/archp/metstud")(metstud "stud4");
[autoarch(mstud158)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud158") scale !scaleb \
[autoarch(mstud258)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud258") scale !scaleb \
[autoarch(mstud31)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud3") scale !scaleb \
[autoarch(mstud358)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud358") scale !scaleb \
[autoarch(mstud6)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud6") scale !scaleb \
[autoarch(mfurr)]^C^C$s=x $s=metalstud insert (dd "/archd/mfurr") scale !scaleb \
[autoarch(mrun158)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun158") scale !scaleb \
[autoarch(mrun258)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun258") scale !scaleb \
[autoarch(mrun3)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun3") scale !scaleb \
[autoarch(mrun358)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun358") scale !scaleb \
[autoarch(mrun6)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun6") scale !scaleb \
[ Cancel ]^C^C

**imetalstudm
[Metal Studs]
[autoarch(mstud1)]^C^C$s=x $s=metalstudm (nl metstud "/archp/metstud")(metstud "stud1");
[autoarch(mstud2)]^C^C$s=x $s=metalstudm (nl metstud "/archp/metstud")(metstud "stud2");
[autoarch(mstud3)]^C^C$s=x $s=metalstudm (nl metstud "/archp/metstud")(metstud "stud3");
[autoarch(mstud4)]^C^C$s=x $s=metalstudm (nl metstud "/archp/metstud")(metstud "stud4");
[autoarch(mstud158)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud158") scale !scaleb \
[autoarch(mstud258)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud258") scale !scaleb \
[autoarch(mstud31)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud3") scale !scaleb \
[autoarch(mstud358)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud358") scale !scaleb \
[autoarch(mstud6)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud6") scale !scaleb \
[autoarch(mfurr)]^C^C$s=x $s=metalstudm insert (dd "/archd/mfurr") scale !scaleb \
[autoarch(mrun158)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun158") scale !scaleb \
[autoarch(mrun258)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun258") scale !scaleb \
[autoarch(mrun3)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun3") scale !scaleb \
[autoarch(mrun358)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun358") scale !scaleb \
[autoarch(mrun6)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun6") scale !scaleb \
[ Cancel ]^C^C

**imetalbuck
[Metal Stud Door Bucks]
[autoarch(dwbuck25)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck25") scale !scaleb \
[autoarch(dwbuck3)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck3") scale !scaleb \
[autoarch(dwbuck35)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck35") scale !scaleb \
[autoarch(dwbuck55)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck55") scale !scaleb \
[autoarch(dwbuck6)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck6") scale !scaleb \
[ Cancel ]^C^C

**imetalbuckm
[Metal Stud Door Bucks]
[autoarch(dwbuck25)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck25") scale !scaleb \
[autoarch(dwbuck3)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck3") scale !scaleb \
[autoarch(dwbuck35)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck35") scale !scaleb \
[autoarch(dwbuck55)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck55") scale !scaleb \
[autoarch(dwbuck6)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck6") scale !scaleb \
[ Cancel ]^C^C

**iconc
[Concrete details]
[autoarch(concbeam)]^C^C(nl "" "/archp/cbeam")
[autoarch(concslab)]^C^C(nl "" "/archp/cslab")
[autoarch(concwall)]^C^C(nl "" "/archp/footing")
[ _ ]
[autoarch(conchat1)]^C^Chatch conc
[autoarch(concpat1)]^C^Cinsert (dd "/archd/conc");
[autoarch(conchat2)]^C^Chatch stipple
[ _ ]
[autoarch(jtctrl)]^C^C(nl "" "/archp/cjoint") y;n;n;
[autoarch(jtfrmd)]^C^C(nl "" "/archp/cjoint") n;y;n;
[autoarch(jtexpn)]^C^C(nl "" "/archp/cjoint") n;n;y;
[ Cancel ]^C^C

**irebars
[Rebar details]
[autoarch(rebar1a)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");1A;
[autoarch(rebarl)]^c^c$s=x $s=rbarline
[autoarch(rebare)]^c^c$s=x $s=rbarend
[ - ]
[autoarch(rebar2a)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2A;
[autoarch(rebar2b)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2B;
[autoarch(rebar2c)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2C;
[autoarch(rebar2d)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2D;
[autoarch(rebar3a)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3A;
[autoarch(rebar3b)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3B;
[autoarch(rebar3c)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3C;
[autoarch(rebar3d)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3D;
[autoarch(rebar4a)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4A;
[autoarch(rebar4b)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4B;
[autoarch(rebar4c)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4C;
[ Cancel ]^C^C

**icallout
[Callouts]
[ ROOMAREA](nl "" "/archp/roomarea");
[ NEW AREA](nl "" "/archp/areanew");
[ ROOM SML](lays symbolv) insert (dd "/arch/rmno1") scale !scale1;
[ ROOM BIG](lays symbolv) insert (dd "/arch/rmno1") scale (* scale1 1.333333);
[ multiROOM sml](lays symbolv) insert (dd "/arch/rmno2") scale !scale1;
[ multiROOM big](lays symbolv) insert (dd "/arch/rmno2") scale (* scale1 1.333333);
[ CASEWORK](nl "" "/archp/casecall");
[ SEATING ](nl "" "/archp/seatcall");
[ FURNITUR](nl "" "/archp/furncall");
[ DEMONOTE](lays symbolv) insert (dd "/arch/demo") scale !scale1;
[ cancel]

**icolins
[Column Grid Layout]
[autoarch(columnno)](lays columnv) insert (dd "/arch/colnum") scale !scale1;
[autoarch(colinsrt)](nl "" "/archp/colinsrt");
[autoarch(colgrid)](nl "" "/archp/colgrid");
[autoarch(colrectc)](lays columnv) insert (dd "/cci/rectangc");
[autoarch(colround)](lays columnv) circle;
[autoarch(colibeam)](lays columnv) (nl "" "/archp/ibeam");
[ LayMod Column](set 'temp 'columnv)(nl "" "/cci/layermod");
[ LayMod Colgrid](set 'temp 'colgridv)(nl "" "/cci/layermod");
[ Cancel]

**idetail
[Detail Symbols]
[autoarch(detail1)](lays symbolv) insert (dd "/arch/detail1") scale !scale1;
[autoarch(detail2)](lays symbolv) insert (dd "/arch/detail2") scale !scale1;
[autoarch(detail3)](lays symbolv) insert (dd "/arch/detail3") scale !scale1;
[autoarch(ballead)](nl "" "/archp/ballead");ballead;
[autoarch(detailt)](pre)(lays symbolv) insert (dd "/arch/detailt") scale !scale1 rotate 0 \\\\\line (polar (getvar "lastpoint")(dtr 0)(* scale1 (if metric 0.3 24.0))) \;copy l  (strcat "0,-" (rtos (* scale (if metric 0.001 0.03125)) 2 6))  (post)(princ);
[ Cancel]

**isection
[Section Symbols]
[autoarch(secsym1)](lays symbolv) insert (dd "/arch/detail1") scale !scale1 \\\insert (dd "/arch/detail-a") @0,0 !scale1  \
[autoarch(secsym2)](lays symbolv) insert (dd "/arch/detail2") scale !scale1 \\\\insert (dd "/arch/detail-a") @0,0 !scale1  \
[autoarch(secsym3)](lays symbolv) insert (dd "/arch/detail3") scale !scale1 \\\\\insert (dd "/arch/detail-a") @0,0 !scale1  \
[ Cancel]

**ifluor
[Fluorescent Fixtures]
[autoarch(e-fl1x4)](lays elecv) insert (dd "/arch/e-fl1x4") scale !scaleb \
[autoarch(e-fl1x8)](lays elecv) insert (dd "/arch/e-fl1x8") scale !scaleb \
[autoarch(e-fl2x2)](lays elecv) insert (dd "/arch/e-fl2x2") scale !scaleb \
[autoarch(e-fl2x4)](lays elecv) insert (dd "/arch/e-fl2x4") scale !scaleb \
[autoarch(e-fl1x4n)](lays elecv) insert (dd "/arch/e-fl1x4n") scale !scaleb \
[autoarch(e-fl1x8n)](lays elecv) insert (dd "/arch/e-fl1x8n") scale !scaleb \
[autoarch(e-fl2x2n)](lays elecv) insert (dd "/arch/e-fl2x2n") scale !scaleb \
[autoarch(e-fl2x4n)](lays elecv) insert (dd "/arch/e-fl2x4n") scale !scaleb \
[autoarch(e-fl1x4e)](lays elecv) insert (dd "/arch/e-fl1x4e") scale !scaleb \
[autoarch(e-fl1x8e)](lays elecv) insert (dd "/arch/e-fl1x8e") scale !scaleb \
[autoarch(e-fl2x2e)](lays elecv) insert (dd "/arch/e-fl2x2e") scale !scaleb \
[autoarch(e-fl2x4e)](lays elecv) insert (dd "/arch/e-fl2x4e") scale !scaleb \
[ OTHER](lays elecv);(nl symins "/cci/symins")(symins "/arch/e-fluor");
[ Cancel]

**ieleclite
[Incandescent Fixtures]
[autoarch(e-l1)](lays elecv) insert (dd "/arch/e-l1") scale !scale1;
[autoarch(e-lw)](lays elecv) insert (dd "/arch/e-lw") scale !scale1;
[autoarch(e-lwem)](lays elecv) insert (dd "/arch/e-lwem") scale !scale1;
[autoarch(e-l2)](lays elecv) insert (dd "/arch/e-l2") scale !scale1;
[autoarch(e-l2em)](lays elecv) insert (dd "/arch/e-l2em") scale !scale1;
[autoarch(e-exit1)](lays elecv) insert (dd "/arch/e-exit1") scale !scale1;
[autoarch(e-exit2)](lays elecv) insert (dd "/arch/e-exit2") scale !scale1;
[ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
[ Cancel]

**ielectrack
[Track lighting]
[autoarch(e-track3)](lays elecv) insert (dd "/arch2d/e-track3") scale !scaleb \
[autoarch(e-track4)](lays elecv) insert (dd "/arch2d/e-track4") scale !scaleb \
[autoarch(e-track6)](lays elecv) insert (dd "/arch2d/e-track6") scale !scaleb \
[autoarch(e-track8)](lays elecv) insert (dd "/arch2d/e-track8") scale !scaleb \
[autoarch(e-track1)](lays elecv) insert (dd "/arch2d/e-track1") scale !scaleb \
[autoarch(e-track2)](lays elecv) insert (dd "/arch2d/e-track2") scale !scaleb \
[ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
[ Cancel]

**ielecout
[Electric Outlets]
[autoarch(e-single)](lays elecv) insert (dd "/arch/e-single") scale !scale1;
[autoarch(e-duplex)](lays elecv) insert (dd "/arch/e-duplex") scale !scale1;
[autoarch(e-dupspl)](lays elecv) insert (dd "/arch/e-dupspl") scale !scale1;
[autoarch(e-220r)](lays elecv) insert (dd "/arch/e-220r") scale !scale1;
[autoarch(e-quadr)](lays elecv) insert (dd "/arch/e-quadr") scale !scale1;
[ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
[ Cancel]

**ielecswit
[Electric Switches]
[autoarch(e-sw1)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\1;
[autoarch(e-sw2)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\2;
[autoarch(e-sw3)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\3;
[autoarch(e-sw4)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\4;
[autoarch(e-swothr)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\\
[ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
[ Cancel]

**ielectel
[Telephone]
[autoarch(e-tele)](lays elecv) insert (dd "/arch/e-tele") scale !scale1;
[autoarch(e-tele2)](lays elecv) insert (dd "/arch/e-tele2") scale !scale1 \\\(arh);
[ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
[ Cancel]

**ielecemer
[Electric Emergency]
[autoarch(e-emer1)](lays elecv) insert (dd "/arch/e-emer1") scale !scale1;
[autoarch(e-emsqr1)](lays elecv)(nl symins "/cci/symins")(symins "/arch/e-emsqr1");
[autoarch(e-emsqr)](lays elecv)(nl symins "/cci/symins")(symins "/arch/e-emsqr");
[ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
[ Cancel]

**ielecmisc
[Miscellaneous Electric]
[autoarch(e-junct)](lays elecv) insert (dd "/arch/e-junct") scale !scale1;
[autoarch(e-bell)](lays elecv) insert (dd "/arch/e-bell") scale !scale1;
[autoarch(e-buzzer)](lays elecv) insert (dd "/arch/e-buzzer") scale !scale1;
[autoarch(e-horn)](lays elecv) insert (dd "/arch/e-horn") scale !scale1;
[autoarch(e-dimmer)](lays elecv) insert (dd "/arch/e-dimmer") scale !scale1;
[autoarch(e-strman)](lays elecv) insert (dd "/arch/e-strman") scale !scale1;
[autoarch(e-strmag)](lays elecv) insert (dd "/arch/e-strmag") scale !scale1;
[autoarch(e-strcom)](lays elecv) insert (dd "/arch/e-strcom") scale !scale1;
[autoarch(e-cirbrk)](lays elecv) insert (dd "/arch/e-cirbrk") scale !scale1;
[autoarch(e-jnctsp)](lays elecv) insert (dd "/arch/e-jnctsp") scale !scale1;
[autoarch(e-thermo)](lays elecv) insert (dd "/arch/e-thermo") scale !scale1;
[autoarch(e-panelb)](lays elecv) insert (dd "/arch/e-panelb") scale !scale1;
[autoarch(e-motor)](lays elecv) insert (dd "/arch/e-motor") scale !scale1;
[autoarch(e-tv)](lays elecv) insert (dd "/arch/e-tv") scale !scale1;
[autoarch(e-speakr)](lays elecv) insert (dd "/arch/e-speakr") scale !scale1;
[ Cancel]

**iplumbmisc
[Misc plumb]
[autoarch(fldrain)](lays fixtv) insert (dd "/arch/fldrain") scale !scale1;
[autoarch(flcleano)](lays fixtv) insert (dd "/arch/flcleano") scale !scale1;
[autoarch(showerh)](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \
[autoarch(hwheater)](lays fixtv) insert (dd3 "/hwheater") scale !scale1;
[autoarch(plumvent)]^C^Cinsert (dd "/arch2d/upthe");
[ Cancel]

**itoilet
[Toilets]
[autoarch(toilet1)](lays fixtv) insert (dd3 "/toilet1") scale !scaleb \
[autoarch(toilet2)](lays fixtv) insert (dd3 "/toilet2") scale !scaleb \
[autoarch(toilet3)](lays fixtv) insert (dd3 "/toilet3") scale !scaleb \
[autoarch(toilet4)](lays fixtv) insert (dd3 "/toilet4") scale !scaleb \
[autoarch(toilet5)](lays fixtv) insert (dd3 "/toilet5") scale !scaleb \
[autoarch(toilet6)](lays fixtv) insert (dd3 "/toilet6") scale !scaleb \
[autoarch(toiletm)](nl "" "/archp/toilstal");
[ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(PRINC);\$i=itoilet $i=*
[ Cancel]

**itoilet1
[Toilets]
[autoarch(toilet1)]toilet1;
[autoarch(toilet2)]toilet2;
[autoarch(toilet3)]toilet3;
[autoarch(toilet4)]toilet4;
[autoarch(toilet5)]toilet5;
[autoarch(toilet6)]toilet6;

**iurinal
[Urinals]
[autoarch(urinal1)](lays fixtv) insert (dd3 "/urinal1") scale !scaleb \
[autoarch(urinal2)](lays fixtv) insert (dd3 "/urinal2") scale !scaleb \
[autoarch(urinalm)](nl "" "/archp/urinstal");
[ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(PRINC);\$i=iurinal $i=*
[ Cancel]

**iurinal1
[Urinals]
[autoarch(urinal1)]urinal1;
[autoarch(urinal2)]urinal2;

**ilav
[Lavatory]
[autoarch(w-lav)](lays fixtv) insert (dd3 "/w-lav") scale !scaleb \
[autoarch(w-lav1)](lays fixtv) insert (dd3 "/w-lav1") scale !scaleb \
[autoarch(w-lav2)](lays fixtv) insert (dd3 "/w-lav2") scale !scaleb \
[autoarch(w-sink)](lays fixtv) insert (dd3 "/w-sink") scale !scaleb \
[autoarch(lav4)](lays fixtv) insert (dd3 "/lav4") scale !scaleb \
[autoarch(c-lav)](lays fixtv) insert (dd3 "/c-lav") scale !scaleb \
[autoarch(lav)](lays fixtv) insert (dd3 "/lav") scale !scaleb \
[autoarch(lav1)](lays fixtv) insert (dd3 "/lav1") scale !scaleb \
[autoarch(lav2)](lays fixtv) insert (dd3 "/lav2") scale !scaleb \
[autoarch(lav3)](lays fixtv) insert (dd3 "/lav3") scale !scaleb \
[autoarch(vanity)](lays fixtv) insert (dd3 "/vanity") scale !scaleb \
[autoarch(lavm)](nl "" "/archp/lavmulti");
[ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(princ);\$i=ilav $i=*
[ Cancel]

**ilavm1
[Lav's]
[autoarch(lavm1)]lavm1;
[autoarch(lavm2)]lavm2;
[autoarch(lavm3)]lavm3;

**itub
[Tubs]
[autoarch(tub3042)](lays fixtv) insert (dd3 "/tub3042") scale !scaleb \
[autoarch(tub3048)](lays fixtv) insert (dd3 "/tub3048") scale !scaleb \
[autoarch(tub3054)](lays fixtv) insert (dd3 "/tub3054") scale !scaleb \
[autoarch(tub3060)](lays fixtv) insert (dd3 "/tub3060") scale !scaleb \
[autoarch(tub3254)](lays fixtv) insert (dd3 "/tub3254") scale !scaleb \
[autoarch(tub3260)](lays fixtv) insert (dd3 "/tub3260") scale !scaleb \
[autoarch(tub3266)](lays fixtv) insert (dd3 "/tub3266") scale !scaleb \
[autoarch(tub2)](lays fixtv) insert (dd3 "/tub2") scale !scaleb \
[autoarch(tub3)](lays fixtv) insert (dd3 "/tub3") scale !scaleb \
[autoarch(shwrhead)](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \
[autoarch(twlrack)](lays fixtv) insert (dd3 "/twlrack") scale !scaleb \
[ curtain](lays fixtv) insert (dd "/arch3d/tubcurt") scale !scaleb \
[ door](lays fixtv) insert (dd "/arch3d/tubdoor") scale !scaleb \
[ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(princ);\$i=itub $i=*
[ Cancel]

**ishower
[Shower]
[autoarch(shower)](lays fixtv) (setq x (getdist "length in inches: ")) \(setq y (getreal "enter width <=length>: ")) \(if (null y)(setq y x))(princ) insert (dd "/arch2d/shower") xscale !x yscale !y \\
[autoarch(twlrack)](lays fixtv) insert (dd "/arch3d/twlrack") scale !scaleb .xy \\
[autoarch(shwrhead)](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \\
[autoarch(showerst)](lays fixtv) insert (dd3 "/shwrstal") scale !scaleb \\
[ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(princ);
[ Cancel]

**isink
[Sinks]
[autoarch(sinktrpl)](lays fixtv) insert (dd3 "/sinktrpl") scale !scaleb \
[autoarch(sinkdbl1)](lays fixtv) insert (dd3 "/sinkdbl1") scale !scaleb \
[autoarch(sink2421)](lays fixtv) insert (dd3 "/sink2421") scale !scaleb \
[autoarch(u-sink)](lays fixtv) insert (dd3 "/u-sink") scale !scaleb \
[autoarch(s-sink)](lays fixtv) insert (dd3 "/s-sink") scale !scaleb \
[autoarch(scr-sink)](lays fixtv) insert (dd3 "/scr-sink") scale !scaleb \
[autoarch(clinic2)](lays fixtv) insert (dd3 "/clinic2") scale !scaleb \
[ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(princ);\$i=isink $i=*
[ Cancel]

**ifirepl
[Fire place and chimney]
[autoarch(fireplac)](nl "" "/archp/fireplac");
[ chimney]
[ Cancel]

**iplants
[Plants]
[autoarch(plant1)](lays furnv) insert (dd3 "/plant1") scale !scaleb \
[autoarch(plant2)](lays furnv) insert (dd3 "/plant2") scale !scaleb \
[autoarch(plant3)](lays furnv) insert (dd3 "/plant3") scale !scaleb \
[ Cancel]

**ikitcab
[Kitchen Cabinets]
[autoarch(kitbase)]$i=ikitbase $i=*
[autoarch(kitbased)]$i=ikitbased $i=*
[autoarch(kitbaset)]$i=ikitbaset $i=*
[autoarch(kitw12)]$i=ikitw12 $i=*
[autoarch(kitw15)]$i=ikitw15 $i=*
[autoarch(kitw18)]$i=ikitw18 $i=*
[autoarch(kitw24)]$i=ikitw24 $i=*
[autoarch(kitw30)]$i=ikitw30 $i=*
[autoarch(kitcorn)]$i=ikitcorn $i=*
[autoarch(kithand)]$i=ikithand $i=*
[autoarch(kitdoor)]$i=ikitdoor $i=*
[ Cancel]

**ikitcabm
[Kitchen Cabinets]
[autoarch(kitbase)]$i=ikitbasem $i=*
[autoarch(kitbased)]$i=ikitbasedm $i=*
[autoarch(kitbaset)]$i=ikitbasetm $i=*
[autoarch(kitw12)]$i=ikitw12m $i=*
[autoarch(kitw15)]$i=ikitw15m $i=*
[autoarch(kitw18)]$i=ikitw18m $i=*
[autoarch(kitw24)]$i=ikitw24m $i=*
[autoarch(kitw30)]$i=ikitw30m $i=*
[autoarch(kitcorn)]$i=ikitcornm $i=*
[autoarch(kithand)]$i=ikithandm $i=*
[autoarch(kitdoor)]$i=ikitdoorm $i=*
[ Cancel]

**ikitbase
[Kitchen Cabinet bases]
[ 9" Wide]insert (dd3 "/cb9") scale !scaleb \\$i=ikitbase $i=*
[ 12" Wide]insert (dd3 "/cb12") scale !scaleb \\$i=ikitbase $i=*
[ 15" Wide]insert (dd3 "/cb15") scale !scaleb \\$i=ikitbase $i=*
[ 18" Wide]insert (dd3 "/cb18") scale !scaleb \\$i=ikitbase $i=*
[ 21" Wide]insert (dd3 "/cb21") scale !scaleb \\$i=ikitbase $i=*
[ 24" Wide]insert (dd3 "/cb24") scale !scaleb \\$i=ikitbase $i=*
[ 27" Wide]insert (dd3 "/cb27") scale !scaleb \\$i=ikitbase $i=*
[ 30" Wide]insert (dd3 "/cb30") scale !scaleb \\$i=ikitbase $i=*
[ 33" Wide]insert (dd3 "/cb33") scale !scaleb \\$i=ikitbase $i=*
[ 36" Wide]insert (dd3 "/cb36") scale !scaleb \\$i=ikitbase $i=*
[ 39" Wide]insert (dd3 "/cb39") scale !scaleb \\$i=ikitbase $i=*
[ 42" Wide]insert (dd3 "/cb42") scale !scaleb \\$i=ikitbase $i=*
[ 48" Wide]insert (dd3 "/cb48") scale !scaleb \\$i=ikitbase $i=*
[ Cabinet menu]$i=ikitcab $i=*
[ Cancel]

**ikitbasem
[Kitchen Cabinet bases]
[ 0.225 Wide]insert (dd3 "/cb9") scale !scaleb \\$i=ikitbasem $i=*
[ 0.300 Wide]insert (dd3 "/cb12") scale !scaleb \\$i=ikitbasem $i=*
[ 0.375 Wide]insert (dd3 "/cb15") scale !scaleb \\$i=ikitbasem $i=*
[ 0.450 Wide]insert (dd3 "/cb18") scale !scaleb \\$i=ikitbasem $i=*
[ 0.525 Wide]insert (dd3 "/cb21") scale !scaleb \\$i=ikitbasem $i=*
[ 0.600 Wide]insert (dd3 "/cb24") scale !scaleb \\$i=ikitbasem $i=*
[ 0.675 Wide]insert (dd3 "/cb27") scale !scaleb \\$i=ikitbasem $i=*
[ 0.750 Wide]insert (dd3 "/cb30") scale !scaleb \\$i=ikitbasem $i=*
[ 0.825 Wide]insert (dd3 "/cb33") scale !scaleb \\$i=ikitbasem $i=*
[ 0.900 Wide]insert (dd3 "/cb36") scale !scaleb \\$i=ikitbasem $i=*
[ 0.975 Wide]insert (dd3 "/cb39") scale !scaleb \\$i=ikitbasem $i=*
[ 1.050 Wide]insert (dd3 "/cb42") scale !scaleb \\$i=ikitbasem $i=*
[ 1.200 Wide]insert (dd3 "/cb48") scale !scaleb \\$i=ikitbasem $i=*
[ Cabinet menu]$i=ikitcabm $i=*
[ Cancel]

**ikitbaset
[Kitchen tall cabnets]
[ 18" Wide]insert (dd3 "/ct18S") scale !scaleb \\$i=ikitcab $i=*
[ 24" Wide]insert (dd3 "/ct24S") scale !scaleb \\$i=ikitcab $i=*
[ 24" Wide oven]insert (dd3 "/ctO24") scale !scaleb \\$i=ikitcab $i=*
[ 30" Wide oven]insert (dd3 "/ctO30") scale !scaleb \\$i=ikitcab $i=*
[ 36" Wide oven]insert (dd3 "/ctO36") scale !scaleb \\$i=ikitcab $i=*
[ 30" Wide]insert (dd3 "/ct30") scale !scaleb \\$i=ikitcab $i=*
[ 36" Wide]insert (dd3 "/ct36") scale !scaleb \\$i=ikitcab $i=*
[ 48" Wide]insert (dd3 "/ct48") scale !scaleb \\$i=ikitcab $i=*
[ Cancel]

**ikitbasetm
[Kitchen tall cabnets]
[ 0.450 Wide]insert (dd3 "/ct18S") scale !scaleb \\$i=ikitcabm $i=*
[ 0.600 Wide]insert (dd3 "/ct24S") scale !scaleb \\$i=ikitcabm $i=*
[ 0.600 Wide oven]insert (dd3 "/ctO24") scale !scaleb \\$i=ikitcabm $i=*
[ 0.750 Wide oven]insert (dd3 "/ctO30") scale !scaleb \\$i=ikitcabm $i=*
[ 0.900 Wide oven]insert (dd3 "/ctO36") scale !scaleb \\$i=ikitcabm $i=*
[ 0.750 Wide]insert (dd3 "/ct30") scale !scaleb \\$i=ikitcabm $i=*
[ 0.900 Wide]insert (dd3 "/ct36") scale !scaleb \\$i=ikitcabm $i=*
[ 1.200 Wide]insert (dd3 "/ct48") scale !scaleb \\$i=ikitcabm $i=*
[ Cancel]

**ikitbased
[Kitchen cabinets base with drawers]
[ 9" Wide]insert (dd3 "/cd9") scale !scaleb \\$i=ikitcab $i=*
[ 12" Wide]insert (dd3 "/cd12") scale !scaleb \\$i=ikitcab $i=*
[ 15" Wide]insert (dd3 "/cd15") scale !scaleb \\$i=ikitcab $i=*
[ 18" Wide]insert (dd3 "/cd18") scale !scaleb \\$i=ikitcab $i=*
[ 21" Wide]insert (dd3 "/cd21") scale !scaleb \\$i=ikitcab $i=*
[ 24" Wide]insert (dd3 "/cd24") scale !scaleb \\$i=ikitcab $i=*
[ 30" Wide]insert (dd3 "/cd30") scale !scaleb \\$i=ikitcab $i=*
[ 36" Wide]insert (dd3 "/cd36") scale !scaleb \\$i=ikitcab $i=*
[ 42" Wide]insert (dd3 "/cd42") scale !scaleb \\$i=ikitcab $i=*
[ 48" Wide]insert (dd3 "/cd48") scale !scaleb \\$i=ikitcab $i=*
[ Cancel]

**ikitbasedm
[Kitchen cabinets base with drawers]
[ 0.225 Wide]insert (dd3 "/cd9") scale !scaleb \\$i=ikitcabm $i=*
[ 0.300 Wide]insert (dd3 "/cd12") scale !scaleb \\$i=ikitcabm $i=*
[ 0.375 Wide]insert (dd3 "/cd15") scale !scaleb \\$i=ikitcabm $i=*
[ 0.450 Wide]insert (dd3 "/cd18") scale !scaleb \\$i=ikitcabm $i=*
[ 0.525 Wide]insert (dd3 "/cd21") scale !scaleb \\$i=ikitcabm $i=*
[ 0.600 Wide]insert (dd3 "/cd24") scale !scaleb \\$i=ikitcabm $i=*
[ 0.750 Wide]insert (dd3 "/cd30") scale !scaleb \\$i=ikitcabm $i=*
[ 0.900 Wide]insert (dd3 "/cd36") scale !scaleb \\$i=ikitcabm $i=*
[ 1.050 Wide]insert (dd3 "/cd42") scale !scaleb \\$i=ikitcabm $i=*
[ 1.200 Wide]insert (dd3 "/cd48") scale !scaleb \\$i=ikitcabm $i=*
[ Cancel]

**ikitcorn
[Kitchen Corner cabinets]
[ Base]Insert (dd3 "/ccbase") scale !scaleb \
[ Wall 18" Wide]insert (dd3 "/cc18") scale !scaleb \\$i=ikitcab $i=*
[ Wall 24" Wide]insert (dd3 "/cc24") scale !scaleb \\$i=ikitcab $i=*
[ Wall 30" Wide]insert (dd3 "/cc30") scale !scaleb \\$i=ikitcab $i=*
[ Cancel]

**ikitcornm
[Kitchen Corner cabinets]
[ Base]Insert (dd3 "/ccbase") scale !scaleb \
[ Wall 0.450 Wide]insert (dd3 "/cc18") scale !scaleb \\$i=ikitcabm $i=*
[ Wall 0.600 Wide]insert (dd3 "/cc24") scale !scaleb \\$i=ikitcabm $i=*
[ Wall 0.750 Wide]insert (dd3 "/cc30") scale !scaleb \\$i=ikitcabm $i=*
[ Cancel]

**ikitw12
[Kitchen 12" high wall cabinets]
[ 30" Wide]insert (dd3 "/cw1230") scale !scaleb \\$i=ikitw12 $i=*
[ 33" Wide]insert (dd3 "/cw1233") scale !scaleb \\$i=ikitw12 $i=*
[ 36" Wide]insert (dd3 "/cw1236") scale !scaleb \\$i=ikitw12 $i=*
[ 39" Wide]insert (dd3 "/cw1239") scale !scaleb \\$i=ikitw12 $i=*
[ Cabinet menu]$i=ikitcab $i=*
[ Cancel]

**ikitw12m
[Kitchen 0.3 high wall cabinets]
[ 0.750 Wide]insert (dd3 "/cw1230") scale !scaleb \\$i=ikitw12m $i=*
[ 0.825 Wide]insert (dd3 "/cw1233") scale !scaleb \\$i=ikitw12m $i=*
[ 0.900 Wide]insert (dd3 "/cw1236") scale !scaleb \\$i=ikitw12m $i=*
[ 0.975 Wide]insert (dd3 "/cw1239") scale !scaleb \\$i=ikitw12m $i=*
[ Cabinet menu]$i=ikitcabm $i=*
[ Cancel]

**ikitw15
[Kitchen 15" high wall cabinets]
[ 30" Wide]insert (dd3 "/cw1530") scale !scaleb \\$i=ikitw15 $i=*
[ 33" Wide]insert (dd3 "/cw1533") scale !scaleb \\$i=ikitw15 $i=*
[ 36" Wide]insert (dd3 "/cw1536") scale !scaleb \\$i=ikitw15 $i=*
[ 39" Wide]insert (dd3 "/cw1539") scale !scaleb \\$i=ikitw15 $i=*
[ Cabinet menu]$i=ikitcab $i=*
[ Cancel]

**ikitw15m
[Kitchen 0.375 high wall cabinets]
[ 0.750 Wide]insert (dd3 "/cw1530") scale !scaleb \\$i=ikitw15m $i=*
[ 0.825 Wide]insert (dd3 "/cw1533") scale !scaleb \\$i=ikitw15m $i=*
[ 0.900 Wide]insert (dd3 "/cw1536") scale !scaleb \\$i=ikitw15m $i=*
[ 0.975 Wide]insert (dd3 "/cw1539") scale !scaleb \\$i=ikitw15m $i=*
[ Cabinet menu]$i=ikitcabm $i=*
[ Cancel]

**ikitw18
[Kitchen 18" high wall cabinets]
[ 24" Wide]insert (dd3 "/cw1824") scale !scaleb \\$i=ikitw18 $i=*
[ 27" Wide]insert (dd3 "/cw1827") scale !scaleb \\$i=ikitw18 $i=*
[ 30" Wide]insert (dd3 "/cw1830") scale !scaleb \\$i=ikitw18 $i=*
[ 33" Wide]insert (dd3 "/cw1833") scale !scaleb \\$i=ikitw18 $i=*
[ 36" Wide]insert (dd3 "/cw1836") scale !scaleb \\$i=ikitw18 $i=*
[ 39" Wide]insert (dd3 "/cw1839") scale !scaleb \\$i=ikitw18 $i=*
[ 42" Wide]insert (dd3 "/cw1842") scale !scaleb \\$i=ikitw18 $i=*
[ 48" Wide]insert (dd3 "/cw1848") scale !scaleb \\$i=ikitw18 $i=*
[ Cabinet menu]$i=ikitcab $i=*
[ Cancel]

**ikitw18m
[Kitchen 0.450 high wall cabinets]
[ 0.600 Wide]insert (dd3 "/cw1824") scale !scaleb \\$i=ikitw18m $i=*
[ 0.675 Wide]insert (dd3 "/cw1827") scale !scaleb \\$i=ikitw18m $i=*
[ 0.750 Wide]insert (dd3 "/cw1830") scale !scaleb \\$i=ikitw18m $i=*
[ 0.825 Wide]insert (dd3 "/cw1833") scale !scaleb \\$i=ikitw18m $i=*
[ 0.900 Wide]insert (dd3 "/cw1836") scale !scaleb \\$i=ikitw18m $i=*
[ 0.975 Wide]insert (dd3 "/cw1839") scale !scaleb \\$i=ikitw18m $i=*
[ 1.050 Wide]insert (dd3 "/cw1842") scale !scaleb \\$i=ikitw18m $i=*
[ 1.200 Wide]insert (dd3 "/cw1848") scale !scaleb \\$i=ikitw18m $i=*
[ Cabinet menu]$i=ikitcabm $i=*
[ Cancel]

**ikitw24
[Kitchen 24 3/4" high wall cabinets]
[ 24" Wide]insert (dd3 "/cw2424") scale !scaleb \\$i=ikitw24 $i=*
[ 27" Wide]insert (dd3 "/cw2427") scale !scaleb \\$i=ikitw24 $i=*
[ 30" Wide]insert (dd3 "/cw2430") scale !scaleb \\$i=ikitw24 $i=*
[ 33" Wide]insert (dd3 "/cw2433") scale !scaleb \\$i=ikitw24 $i=*
[ 36" Wide]insert (dd3 "/cw2436") scale !scaleb \\$i=ikitw24 $i=*
[ 39" Wide]insert (dd3 "/cw2439") scale !scaleb \\$i=ikitw24 $i=*
[ 42" Wide]insert (dd3 "/cw2442") scale !scaleb \\$i=ikitw24 $i=*
[ 48" Wide]insert (dd3 "/cw2448") scale !scaleb \\$i=ikitw24 $i=*
[ Cabinet menu]$i=ikitcab $i=*
[ Cancel]

**ikitw24m
[Kitchen 0.6188 high wall cabinets]
[ 0.600 Wide]insert (dd3 "/cw2424") scale !scaleb \\$i=ikitw24m $i=*
[ 0.675 Wide]insert (dd3 "/cw2427") scale !scaleb \\$i=ikitw24m $i=*
[ 0.750 Wide]insert (dd3 "/cw2430") scale !scaleb \\$i=ikitw24m $i=*
[ 0.825 Wide]insert (dd3 "/cw2433") scale !scaleb \\$i=ikitw24m $i=*
[ 0.900 Wide]insert (dd3 "/cw2436") scale !scaleb \\$i=ikitw24m $i=*
[ 0.975 Wide]insert (dd3 "/cw2439") scale !scaleb \\$i=ikitw24m $i=*
[ 1.050 Wide]insert (dd3 "/cw2442") scale !scaleb \\$i=ikitw24m $i=*
[ 1.200 Wide]insert (dd3 "/cw2448") scale !scaleb \\$i=ikitw24m $i=*
[ Cabinet menu]$i=ikitcabm $i=*
[ Cancel]

**ikitw30
[Kitchen 30" high wall cabinets]
[ 9" Wide]insert (dd3 "/cw309") scale !scaleb \\$i=ikitw30 $i=*
[ 12" Wide]insert (dd3 "/cw3012") scale !scaleb \\$i=ikitw30 $i=*
[ 15" Wide]insert (dd3 "/cw3015") scale !scaleb \\$i=ikitw30 $i=*
[ 18" Wide]insert (dd3 "/cw3018") scale !scaleb \\$i=ikitw30 $i=*
[ 21" Wide]insert (dd3 "/cw3021") scale !scaleb \\$i=ikitw30 $i=*
[ 24" Wide]insert (dd3 "/cw3024") scale !scaleb \\$i=ikitw30 $i=*
[ 27" Wide]insert (dd3 "/cw3027") scale !scaleb \\$i=ikitw30 $i=*
[ 30" Wide]insert (dd3 "/cw3030") scale !scaleb \\$i=ikitw30 $i=*
[ 33" Wide]insert (dd3 "/cw3033") scale !scaleb \\$i=ikitw30 $i=*
[ 36" Wide]insert (dd3 "/cw3036") scale !scaleb \\$i=ikitw30 $i=*
[ 39" Wide]insert (dd3 "/cw3039") scale !scaleb \\$i=ikitw30 $i=*
[ 42" Wide]insert (dd3 "/cw3042") scale !scaleb \\$i=ikitw30 $i=*
[ 48" Wide]insert (dd3 "/cw3048") scale !scaleb \\$i=ikitw30 $i=*
[ Cabinet menu]$i=ikitcab $i=*
[ Cancel]

**ikitw30m
[Kitchen 30" high wall cabinets]
[ 9" Wide]insert (dd3 "/cw309") scale !scaleb \\$i=ikitw30 $i=*
[ 12" Wide]insert (dd3 "/cw3012") scale !scaleb \\$i=ikitw30 $i=*
[ 15" Wide]insert (dd3 "/cw3015") scale !scaleb \\$i=ikitw30 $i=*
[ 18" Wide]insert (dd3 "/cw3018") scale !scaleb \\$i=ikitw30 $i=*
[ 21" Wide]insert (dd3 "/cw3021") scale !scaleb \\$i=ikitw30 $i=*
[ 24" Wide]insert (dd3 "/cw3024") scale !scaleb \\$i=ikitw30 $i=*
[ 27" Wide]insert (dd3 "/cw3027") scale !scaleb \\$i=ikitw30 $i=*
[ 30" Wide]insert (dd3 "/cw3030") scale !scaleb \\$i=ikitw30 $i=*
[ 33" Wide]insert (dd3 "/cw3033") scale !scaleb \\$i=ikitw30 $i=*
[ 36" Wide]insert (dd3 "/cw3036") scale !scaleb \\$i=ikitw30 $i=*
[ 39" Wide]insert (dd3 "/cw3039") scale !scaleb \\$i=ikitw30 $i=*
[ 42" Wide]insert (dd3 "/cw3042") scale !scaleb \\$i=ikitw30 $i=*
[ 48" Wide]insert (dd3 "/cw3048") scale !scaleb \\$i=ikitw30 $i=*
[ Cabinet menu]$i=ikitcab $i=*
[ Cancel]

**ikithand
[Redefine Kitchen cabinet handles]
[autoarch(cabhand)]insert (strcat "cabhand=" (dd "/arch3d/cabhand"));(nl zooma "/cci/zooma")(zooma);
[autoarch(cabhand1)]insert (strcat "cabhand=" (dd "/arch3d/cabhand1"));(nl zooma "/cci/zooma")(zooma);
[autoarch(cabhand2)]insert (strcat "cabhand=" (dd "/arch3d/cabhand2"));(nl zooma "/cci/zooma")(zooma);
[autoarch(cabhand3)]insert (strcat "cabhand=" (dd "/arch3d/cabhand3"));(nl zooma "/cci/zooma")(zooma);
[autoarch(cabhand4)]insert (strcat "cabhand=" (dd "/arch3d/cabhand4"));(nl zooma "/cci/zooma")(zooma);
[ Cancel]

**ikitdoor
[Redefine Kitchen cabinet doors]
[autoarch(cabdoor0)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor0"));(nl zooma "/cci/zooma")(zooma);
[autoarch(cabdoor1)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor1"));(nl zooma "/cci/zooma")(zooma);
[autoarch(cabdoor2)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor2"));(nl zooma "/cci/zooma")(zooma);
[autoarch(cabdoor3)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor3"));(nl zooma "/cci/zooma")(zooma);
[autoarch(cabdoor4)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor4"));(nl zooma "/cci/zooma")(zooma);
[ Cancel]

**iconsdet
[Typical Details]
[ wood]insert (dd "/archd/wooddet") scale !scaleb \;
[ steel]insert (dd "/archd/steeldet") scale !scaleb \;
[ masonry]insert (dd "/archd/masdet") scale !scaleb \;
[ door]insert (dd "/archd/doordet") scale !scaleb \;
[ window]insert (dd "/archd/winddet") scale !scaleb \;
[ Cancel]

**i3dmisc
[Miscellaneous 3D objects]
[autoarch(goblet)]insert (dd "/arch3d/goblet") scale !scaleb \
[autoarch(plate)]insert (dd "/arch3d/plate") scale !scaleb \
[autoarch(saucer)]insert (dd "/arch3d/saucer") scale !scaleb \
[autoarch(book1)]insert (dd "/arch3d/book1") scale !scaleb \
[autoarch(book2)]insert (dd "/arch3d/book2") scale !scaleb \
[autoarch(book3)]insert (dd "/arch3d/book3") scale !scaleb \
[autoarch(picture1)]insert (dd "/arch3d/picture1") scale !scaleb \
[autoarch(picture2)]insert (dd "/arch3d/picture2") scale !scaleb \
[autoarch(picture3)]insert (dd "/arch3d/picture3") scale !scaleb \
[autoarch(mirror)]insert (dd "/arch3d/mirror") scale !scaleb \
[autoarch(vase)]insert (dd "/arch3d/vase") scale !scaleb \
[ Cancel]

**ifurnmisc
[Miscellaneous Furniture]
[autoarch(piano)]insert (dd3 "/piano") scale !scaleb \
[autoarch(dresser1)]insert (dd3 "/dresser1") scale !scaleb \
[autoarch(dresser2)]insert (dd3 "/dresser2") scale !scaleb \
[autoarch(tvconsol)]insert (dd3 "/tvconsol") scale !scaleb \
[autoarch(tv-port)]insert (dd3 "/tv-port") scale !scaleb \
[autoarch(stereo)]insert (dd3 "/stereo") scale !scaleb \
[autoarch(stspkr)]insert (dd3 "/stspkr") scale !scaleb \
[ Cancel]

**idetmisc
[Miscellaneous Detail symbols]
[autoarch(ancbolt)]insert (dd "/archd/ancbolt") scale !scaleb \
[autoarch(ground)]insert (dd "/archd/ground") scale !scaleb \
[autoarch(gravel)]^C^Chatch gravl1;
[autoarch(earth)]^C^Chatch earth;
[autoarch(earth2)]^C^Chatch earth2;
[autoarch(glass)]^C^Chatch glass;
[autoarch(screen)]^C^Chatch screen;
[autoarch(octagon)]^C^Chatch octagon;
[ Cancel]

**iarrows
[Arrow symbols]
[autoarch(arrow)]insert (dd "/arch/arrow") scale !scale1;
[autoarch(arrow1)]insert (dd "/arch/arrow1") scale !scale1;
[autoarch(arrow2)]insert (dd "/arch/arrow2") scale !scale1;
[autoarch(arrow3)]insert (dd "/arch/arrow3") scale !scale1;
[autoarch(arrow4)]insert (dd "/arch/arrow4") scale !scale1;
[autoarch(arrow7)]insert (dd "/arch/arrow7") scale !scale1;
[autoarch(arrow5)]insert (dd "/arch/arrow5") scale !scale1;
[autoarch(arrow6)]insert (dd "/arch/arrow6") scale !scale1;
[ Cancel]

**iceiling
[Ceiling Grid Programs]
[autoarch(ceilgrid)](nl "" "/archp/ceilgrid");
[autoarch(ceilhat)](nl "" "/archp/ceilhat");
[autoarch(ceilhatp)](nl "" "/archp/ceilhatp");
[ Pick polyline](nl "" "/archp/ceilpick");
[ Cancel]

**iceilmisc
[Misc Ceiling]
[autoarch(cfan42)](lays ceilv) insert (dd3 "/cfan42") scale !scaleb \
[autoarch(cfan48)](lays ceilv) insert (dd3 "/cfan48") scale !scaleb \
[autoarch(e-exit1)](lays elecv) insert (dd "/arch/e-exit1") scale !scale1;
[ Cancel]

**ihvac
[HVAC ]
[ 2X2 acc](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
[ 2X4 acc](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
[ OTHER acc](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
[ 2X2 supp](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
[ 2X4 supp](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
[ OTHER supp](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
[ 2X2 ret](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
[ 2X4 ret](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
[ OTHER ret](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
[ Cancel]

**ihvacm
[HVAC ]
[ .6 X .6 acc](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
[ .6 X 1.2 acc](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
[ OTHER acc](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
[ .6 X .6 supp](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
[ .6 X 1.2 supp](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
[ OTHER supp](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
[ .6 X .6 ret](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
[ .6 X 1.2 ret](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
[ OTHER ret](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
[ Cancel]

**ibreaks
[Breaks]
[cciacad(break1)]insert (dd "/cci/break") scale !scale1 \\
[cciacad(break2)](nl "" "/cci/lbreak");
[cciacad(lbreak2)](nl insertbk "/cci/insertbk")(insertbk "/cci/break2" (* scalem 12) "C")(princ);
[cciacad(break3)](nl "" "/cci/pbreak");
[cciacad(break4)](nl "" "/cci/pbreak2");
[cciacad(break5)](nl "" "/cci/rectline");
[cciacad(break6)](nl "" "/cci/rndline");
[ Cancel]^C^C

***SCREEN
**S
[autoARCH]$s=x $s=s

[WALLmenu]$s=x $s=wlmenu
[FND menu]$s=x $s=fndmenu
[SPACEpln]$s=x $s=space
[DOORS]$s=x $s=door
[WINDOW]$s=x $s=window
[CALLOUTS]$s=x $s=call
[SITE sym]$s=x $s=site
[STAIR]$s=x $s=stair
[FURNITR]$s=x $s=furn
[APPLIANC]$s=x $s=appl
[ELEC sym]$s=x $s=elec
[PLUMBsym]$s=x $s=plumb
[STRUCTRL]$s=x $s=structural
[ROOF]$s=x $s=roof
[CEILING]$s=x $s=ceiling
[LEVEL]$s=x $s=level
[SCHEDULE]$s=x $s=schedule
[SETUP](if metric (progn (menucmd "s=x")(menucmd "s=setupm"))(progn (menucmd "s=x")(menucmd "s=setup")))(princ);
[ACAD]$s=x $s=acad
**ACAD 2

[SETUP](if metric (progn (menucmd "s=x")(menucmd "s=setupm"))(progn (menucmd "s=x")(menucmd "s=setup")))(princ);
[3D]$S=X $S=3D
[BLOCKS]$S=X $S=BL
[BALLOON]$s=x $s=balloon
[DIM:]$S=X $S=DIM ^C^CDIM;
[DISPLAY]$S=X $S=DS
[DRAW]$S=X $S=DR
[TEXT:]^C^C$s=x $s=text $t4=text1 $t4=text2 text;
[DTEXT:]^C^C$s=x $s=dtext $t4=dtext1 $t4=dtext2 dtext;
[EDIT]$S=X $S=ED
[INQUIRY]$S=X $S=INQ
[LAYER:]$S=X $S=LAYER ^C^CLAYER;
[LISP]$s=x $s=lisp
[SAVE:]^C^C(SETQ USECOUNT 0) SAVE;
[SETTINGS]$S=X $S=SET2
[UCS:]$S=X $S=UCS1 ^C^CUCS;
[UTILITY]$S=X $S=UT
[ASHADE]^C^C(nl c:scene "/cci/ashade")(princ) $s=x $s=ashade $i=ias $i=*
**X 2


















[ LAST  ]$s= $s=
[ ACAD]$s=x $s=acad
**HEADER
[autoARCH]$s=x $s=s

**WALK 3
[HIDE]h;

[FORWARD]mf;
[BACKWARD]mb;
[LEFT]ml;
[RIGHT]mr;
[+ STEP]co;
[- STEP]ci;

[step UP]su;
[stepDOWN]sd;
[turnLEFT]tl;
[trnRIGHT]tr;
[+ ANGLE]ao;
[- ANGLE]ai;
[look UP]lu;
[lookDOWN]ld;
**LEVEL 2
[3D SETUP](nl "" "/archp/3dinfo");
[LISTMOD](nl "" "/archp/laylevel");
[LISTLOAD](nl "" "/archp/levellay");
[MAKETYPE](nl "" "/archp/leveljob");
[USE TYPE](nl "" "/archp/leveltyp");
[LEVMOVE](nl "" "/archp/levmove");
[LEVCOPY](nl "" "/archp/levcopy");
[LEVARRAY](nl "" "/archp/levarray");
[LEVELDEL](nl "" "/archp/leveldel");
[LEV2FILE](nl "" "/archp/levelmod");
[LEVELREF](nl "" "/archp/levelref");
[LEVELSET](nl "" "/archp/levelset");
[LEV ON](nl lalevel "/archp/lalevel")(lalevel "ON");
[ OFF](nl lalevel "/archp/lalevel")(lalevel "OFF");
[ FREEZE](nl lalevel "/archp/lalevel")(lalevel "FREEZE");
[ THAW](nl lalevel "/archp/lalevel")(lalevel "THAW");
[2D TO 3D](nl "" "/archp/2dto3d");
[3Don/off](if (/= (getvar "useri4") 0)(progn (setvar "useri4" 0)(princ " 3D symbol insertion is OFF "))(progn (setvar "useri4" 1)(princ " 3D symbol insertion is ON ")))(princ);
**BUILD 3
[building]$i=ibuild $i=*
[outlines]$i=ibuild $i=*

[simple]
[ARCHWALL](setq bldtyp "S")(nl "" "/archp/building");
[FNDWALL](setq bldtyp "S")(nl "" "/archp/fndbuild");
[COMBO](setq bldtyp "S")(nl "" "/archp/bldcombo");

[complex]
[ARCHWALL](setq bldtyp "C")(nl "" "/archp/building");
[FNDWALL](setq bldtyp "C")(nl "" "/archp/fndbuild");
[COMBO](setq bldtyp "C")(nl "" "/archp/bldcombo");
**FNDMENU 2
[foundtn](princ " No Icon Available ")(princ);
[EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
[LTreset](princ " Resetting FOOTING LINETYPE TO")(if (null fndltp)(progn (princ " CONTINUOUS")(command "layer" "l" "continuous" fnddv "")(setq fndltp t))(progn (princ " DASHED")(command "layer" "l" "dashed" fnddv "")(setq fndltp nil)))(nl zooma "/cci/zooma")(zooma);

[EXTERIOR](nl c:fndwalle "/archp/fndwalle") FNDWALLE;
[   COMBO](nl c:fndwall "/archp/fndwall") FNDWALL;

[INTERIOR](nl c:fndwalli "/archp/fndwalli") FNDWALLI;
[   COMBO](nl c:fndwallc "/archp/fndwallc") FNDWALLC;

[CONTROLS]$s=x $s=wallvar
[BUILDING]$s=x $s=build $i=ibuild $i=*
[MISCWALL]$s=x $s=miscwall
[WALLmenu]$s=x $s=wlmenu
**WLMENU 2
[wallmenu](princ " No Icon Available ")(princ);
[EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);

[EXTERIOR](nl c:wallext "/archp/wallext") wallext;
[  SIMPLE](nl c:wallexts "/archp/wallexts") wallexts;
[  3L MAS](nl c:wallextm "/archp/wallextm") wallextm;
[  4L MAS](nl c:wallmas "/archp/wallmas") wallmas;
[  CORNER](nl c:wallcnte "/archp/wallcnte") wallcnte;
[INTERIOR](nl c:wallint "/archp/wallint") wallint;
[  SIMPLE](nl c:wallints "/archp/wallints") wallints;
[  DOUBLE](nl c:wallintd "/archp/wallintd") wallintd;
[  CORNER](nl c:wallcnti "/archp/wallcnti") wallcnti;
[WALLINE](nl c:walline "/archp/wallline") walline;
[LOW WALL](nl c:walllow "/archp/walllow") walllow;
[POLYWALL](nl c:wallpoly "/archp/wallpoly") wallpoly;
[CONTROLS]$s=x $s=wallvar
[BUILDING]$s=x $s=build $i=ibuild $i=*
[MISCWALL]$s=x $s=miscwall
**miscwall 2
[miscwall](princ " No Icon Available ")(princ);
[CROSSFIX](nl c:cross "/archp/crossfix") cross;
[T FIX](nl c:butt "/archp/buttfix") butt;
[CORNFIX](nl c:corn "/archp/cornfix") corn;
[CAPFIX](nl "" "/archp/capfix");
[WALLBRK](defun c:wb ()(nl wallbrk "/archp/wallbrk");(setq wfunk "A" wfunk1 't)(wallbrk wfunk))(princ) wb;
[INSULATE](nl "" "/archp/insulate");
[CLOSET](nl "" "/archp/closet");
[WALLAREA](nl "" "/archp/paint");
[WALL DIM](setq lalist (gettable "layer" ""))(nl c:walldim "/archp/walldim") walldim;
[WALLHAT](nl "" "/archp/hatwall");
[W FILLET](nl c:wallfilt "/archp/wallfilt") wallfilt;
[WLTOROOF](nl c:wltoroof "/archp/wltoroof") wltoroof;
[DOUBLER](nl "" "/archp/doubler");
[ELEVATIN](nl elevatin "/archp/elevatin")(elevatin);
[SECTION](nl crossect "/archp/crossect")(crossect);
[CONTROLS]$s=x $s=wallvar
[BUILDING]$s=x $s=build $i=ibuild $i=*
**wallvar 3
[wallvari](princ " No Icon Available ")(princ);
[lmodWALL](set 'temp 'WALLV)(nl "" "/cci/layermod");
[ MASONRY](set 'temp 'WALLMV)(nl "" "/cci/layermod");
[ FND](set 'temp 'FNDV)(nl "" "/cci/layermod");
[ FOOTING](set 'temp 'FNDDV)(nl "" "/cci/layermod");
[thckWALL](princ "Resetting WALL thickness ")(setq wallth nil)(post)(princ);
[ MASONRY](princ "Resetting Masonry WALL thickness ")(setq mwalth nil)(post)(princ);
[ FND](princ "Resetting FOUNDATION WALL thickness ")(setq fndthk nil)(post)(princ);
[ FOOTING](princ "Resetting FOOTING thickness ")(setq fndfth nil)(post)(princ);
[hgt WALL](princ "Resetting WALL height ")(setq wallht nil)(post)(princ);
[ LOWWALL](princ "Resetting LOW WALL height ")(setq walllw nil)(post)(princ);
[ FND](princ "Resetting FOUNDATION WALL hight ")(setq fndht nil)(post)(princ);
[ FOOTING](princ "Resetting FOOTING hight ")(setq fndfht nil)(post)(princ);
[MXWLrset](princ "Resetting MAX WALL ")(setq maxwal nil)(post)(PRINC);
[AIR GAP](princ "Resetting AIR GAP width ")(setq airwdt nil)(post)(princ);
[CENTLINE](if (or (null cent)(= cent "N"))(progn (princ " Center lines ON ")(setq cent "Y"))(progn (princ " Center lines OFF ")(setq cent "N")))(princ);
**SPACE 3
[ space](princ " No Icon Available ")(princ);
[LAYERMOD](set 'temp 'SPACEV)(nl "" "/cci/layermod");

[SPACE](nl "" "/archp/space");
[SPACEdiv](nl "" "/archp/spacediv");
[SPACEshp](nl "" "/archp/spaceshp");
[SPACEcir](nl "" "/archp/spacecir");
[SPACEwal](nl "" "/archp/spacelin");
[SPACElst](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/space"));

[FIXbig](nl "" "/archp/spaceara");
[FIXsmall](nl "" "/archp/spaceupd");
[EDITspac](nl "" "/archp/spacedit");
[DELETE](nl "" "/archp/spacedel");

[DOUBLER](nl "" "/archp/doubler");
[CROSSFIX](nl c:cross "/archp/crossfix") cross;
**INSULAT 3
[insulate](princ " No Icon Available ")(princ);

[LAYERMOD](set 'temp 'INSULV)(nl "" "/cci/layermod");


[INSULATE]insulat;

[########]insulxm;

[XXXXXXXX]insulx;

[||||||||]insuline;

[////////]insulang;

[SOLID]insulold;
**SCHEDULE 3
[SCHEDULE](princ " No Icon Available ")(princ);

[DOOR](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/door"));
[WINDOW](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/window"));
[FURNITUR](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/furnitur"));
[CASEWORK](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/casework"));
[SEATING ](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/seating"));
[ROOM](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/room"));

[OTHER](setq temp (strcase (getstring " Enter template file (extension .txt assumed) <temp>: ")))(if (= temp "")(setq temp "TEMP"))(nl billmat "/cci/billmat")(billmat temp);

[TAMLLIB](nl tamllib "/cci/tamllib")(tamllib);
[TEMPLAT](nl "" "/cci/tplate");
[FINISH](nl finish "/archp/finish")(finish (strcat drive "/arch/finish"));
[ABBREV](nl abbrev "/cci/abbrev")(abbrev (strcat drive "/arch/aabbrev.txt"));
**DOOR 2
[RESET](nl "" "/archp/doorcln");
[DOORhgt](princ "Resetting DOOR hight ")(setq doorht nil)(princ);
[DOORwdth](princ " Resetting Door Width ")(setq doorwd nil)(princ);
[MXWLrset](princ "Resetting MAX WALL ")(setq maxwal nil)(princ);
[EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
[LMODdoor](set 'temp 'DOORV)(nl "" "/cci/layermod");
[LMdoorno](set 'temp 'DOORNOV)(nl "" "/cci/layermod");
[BK EXIST](princ "EXISTING BREAK ")(setq doorfk "I")(princ);
[BKCHOOSE](princ "BREAK CHOOSE ")(setq doorfk "A")(princ);
[BK ALL](princ "BREAK ALL ")(setq doorfk "1")(princ);
[SILL](nl sillside "/archp/sillside")(nl "" "/archp/drsill");
[JAMB](if (/= jambd "Y")(progn (setq jambd "Y")(princ "JAMBS INCLUDED ")(nl "" "/archp/jambd"))(progn (setq jambd "N")(princ "JAMBS NOT INCLUDED ")))(princ);
[WINDOW 1](princ "Door with 1 Side Light ")(setq wind1 'T)(princ);
[WINDOW 2](princ "Door with 2 Side Lights ")(setq wind1 'T wind2 'T)(princ);
[UNDODOOR](nl "" "/cci/partout");
[SCHEDULE](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/door"));
[INTERIOR]$s=x $s=door1
[EXTERIOR]$s=x $s=door2
**DOOR1 2
[90 Sgl](setq doortp "90s")(nl c:door "/archp/door") door;
[90 Dbl](setq doortp "90d")(nl c:door "/archp/door") door;
[90 DblEg](setq doortp "90deg")(nl c:door "/archp/door") door;
[45 Sgl](setq doortp "45s")(nl c:door "/archp/door") door;
[45 Dbl](setq doortp "45d")(nl c:door "/archp/door") door;
[45 DblEg](setq doortp "45deg")(nl c:door "/archp/door") door;
[180 Sl](setq doortp "180s")(nl c:door "/archp/door") door;
[180 Dbl](setq doortp "180d")(nl c:door "/archp/door") door;
[EXISTsgl](setq doortp "exs")(nl c:door "/archp/door") door;
[EXISTdbl](setq doortp "exd")(nl c:door "/archp/door") door;
[SLIDEsgl](setq doortp "sls")(nl c:door "/archp/door") door;
[SLIDEdbl](setq doortp "sld")(nl c:door "/archp/door") door;
[BIFOLD S](setq doortp "bis")(nl c:door "/archp/door") door;
[BIFOLD D](setq doortp "bid")(nl c:door "/archp/door") door;
[2WAY S](setq doortp "2ws")(nl c:door "/archp/door") door;
[2WAY D](setq doortp "2wd")(nl c:door "/archp/door") door;
[FLEX S](setq doortp "fx1s")(nl c:door "/archp/door") door;
[FLEX D](setq doortp "fx2s")(nl c:door "/archp/door") door;
**DOOR2 2
[exterior](princ " No Icon Available ")(princ);
[WINDOW 1](princ "Door with 1 window ")(setq wind1 't)(princ);
[WINDOW 2](princ "Door with 2 window2 ")(setq wind1 't wind2 't)(princ);
[90 Sgl](setq doortp "90s")(nl c:door "/archp/door") door;
[90 Dbl](setq doortp "90d")(nl c:door "/archp/door") door;
[90 DblEg](setq doortp "90deg")(nl c:door "/archp/door") door;
[45 Sgl](setq doortp "45s")(nl c:door "/archp/door") door;
[45 Dbl](setq doortp "45d")(nl c:door "/archp/door") door;
[45 DblEg](setq doortp "45deg")(nl c:door "/archp/door") door;
[180 Sl](setq doortp "180s")(nl c:door "/archp/door") door;
[180 Dbl](setq doortp "180d")(nl c:door "/archp/door") door;
[EXISTsgl](setq doortp "exs")(nl c:door "/archp/door") door;
[EXISTdbl](setq doortp "exd")(nl c:door "/archp/door") door;
[SLIDEsgl](setq doortp "sls")(nl c:door "/archp/door") door;
[SLIDEdbl](setq doortp "sld")(nl c:door "/archp/door") door;
[REVOLV](setq doortp "rev")(nl c:door "/archp/door") door;
[GARAGE](setq doortp "gd")(nl c:door "/archp/door") door;
**DOOR3 2
[90 Sgl]90s;
[90 Dbl]90d;
[90 DblEg]90deg;
[45 Sgl]45s;
[45 Dbl]45d;
[45 DblEg]45deg;
[180 Sgl]180s;
[180 Dbl]180d;
[EXISTsgl]exs;
[EXISTdbl]exd;
[SLIDEsgl]sls;
[SLIDEdbl]sld;
[BIFOLD S]bis;
[BIFOLD D]bid;
[2WAY S]2ws;
[2WAY D]2wd;
[FLEX S]fx1s;
[FLEX D]fx2d;
[REVOLV]rev;
[GARAGE]gd;
**WINDOW 2
[LMWINDOW](set 'temp 'WINDV)(nl "" "/cci/layermod");
[RESET](nl "" "/archp/windcln");
[reset 2](princ " Resetting Window type 2 ")(setq wndtp1 nil)(princ);
[reset 3](princ " Resetting Window type 3 ")(setq wndtp2 nil)(princ);
[set TOP](setq temp (getdist (strcat " Top of window elevation <"(rtos (getvar "userr3"))">: ")));\(if temp (setvar "userr3" temp));
[EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
[BK EXIST](princ " WINDOW BREAK EXISTS ")(setq windfk "I")(princ);
[BRKCHOSE](princ " CHOOSE wall LINES NOT to BREAK ")(setq windfk "1")(princ);
[BRK ALL](princ " WINDOW BREAK ALL ")(setq windfk "2")(princ);
[MULLION](nl "" "/archp/mullion");
[JAMB](if (/= jambw "Y")(progn (setq jambw "Y")(princ " JAMBS INCLUDED ")(nl "" "/archp/jamb"))(progn (setq jambw "N")(princ " JAMBS NOT INCLUDED ")))(princ);
[UNDOWIND](nl "" "/cci/partout");
[BOW](nl wallbrk "/archp/wallbrk")(setq windfk "2")(nl "" "/archp/bow")(bow);
[BAY](nl "" "/archp/windbay")(nl "" "/archp/windfin3")(princ " Pick WINDOW 1 2 OR 3 ")(princ);
[CURTAINW](nl "" "/archp/curtain");
[WIND 1](setq wind1 nil wind2 nil)(princ " Loading WINDOW 1 ")(nl c:window "/archp/window")(nl wallbrk "/archp/wallbrk")(nl hingloc "/archp/hingloc")(nl insonly "/archp/insonly")(nl windfin "/archp/windfin") window;
[WIND 2](setq wind1 'T wind2 nil)(princ " Loading WINDOW 2 ")(nl c:window "/archp/window")(nl wallbrk "/archp/wallbrk")(nl hingloc "/archp/hingloc")(nl insonly "/archp/insonly")(nl windfin1 "/archp/windfin1") window;
[WIND 3](setq wind1 'T wind2 'T)(princ " Loading WINDOW 3 ")(nl c:window "/archp/window")(nl wallbrk "/archp/wallbrk")(nl hingloc "/archp/hingloc")(nl insonly "/archp/insonly")(nl windfin2 "/archp/windfin2") window;
**WINDTYPE 3
[window]
[ types]

[SINGLE P]sp;

[DOUBLE]dp;

[CASEMENT]ct;

[SLIDING]gl;

**WINDTYPEE 3
[window]
[ types]

[FIXED GL]fixed;

[DOUBLE H]double;

[CASEMENT]casement;

[SLIDING]sliding;

[AWNING]awning;

**STAIR 3
[stairs](princ " No Icon Available ")(princ);
[LAYERMOD](set 'temp 'STAIRV)(nl "" "/cci/layermod");
[STRINGER](setq ststr nil)(princ " Resetting stair Stringer ")(princ);
[TYPE](setq startp nil)(princ " Resetting stair Type ")(princ);
[HANDRAIL](setq sthdrl nil)(princ " Resetting stair Handrails ")(princ);
[BALUSTER](setq balist nil)(princ " Resetting stair Balusters ")(princ);
[ARROW](setq sthdar nil)(princ " Resetting stair directional Arrow ")(princ);
[EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);

[STAIRS](nl "" "/archp/stair");
[SPIRAL](nl "" "/archp/spiral");
[VERT CUT](nl "" "/archp/stairct");
[VERTICAL](if (/= (getvar "useri1") 0)(nl "" "/archp/stairv3")(nl "" "/archp/stairv"));
[L SHAPED](if (/= (getvar "useri1") 0)(nl "" "/archp/stairl3")(nl "" "/archp/stairl"));
[U SHAPED](if (/= (getvar "useri1") 0)(nl "" "/archp/stairu3")(nl "" "/archp/stairu"));
[ESCLATOR](nl "" "/archp/stairesc");
[ELEVATOR](nl "" "/archp/stairel");
**ROOF 3
[roof]$i=iroof $i=*
[GABLE](nl c:roofgab "/archp/roofgab") roofgab;
[SHED](nl c:roofshed "/archp/roofshed") roofshed;
[HIP](nl c:hip "/archp/hiproof") hip;
[1 side]
[1/2 GABL](nl c:roof "/archp/roof") roof;
[just_HIP](nl c:roofhip "/archp/roofhip") roofhip;

[3pt int](nl c:3ptroof "/archp/3ptroof") 3ptroof;
[ROOFJOIN](nl c:4ptroof "/archp/4ptroof") 4ptroof;

[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);
[SNAPnorm](setvar "snapang" 0)(princ) 'redraw;
[in-line]
[@3DSLOPE](nl roofpit "/archp/roofpit")(roofpit) \\\\\
[@2DSLOPE](nl roofpit1 "/archp/roofpit1")(roofpit1) \\\\\
[HATCH]$i=iroofh $i=*
**firepl 3
[fireplac]$i=ifirepl $i=*

[CUSTOM](nl "" "/archp/fireplac");
**SITE 3
[site pln](princ " No Icon Available ")(princ);
[LAYERMOD](set 'temp 'sitev)(nl "" "/cci/layermod");

[NORTH]$s=x $s=north
[ELEV MKR]insert (dd "/arch/eltarget") \
[BARSCALE]$s=x $s=barscale
[--WORD--]$s=x $s=word
[LINETYPE]$s=x $s=linesite
[TREES]$S=x $s=treepln
[VEHICLE]$s=x $s=vehicles
[DRAINAGE]$s=x $s=drainage
[UTILITYS]$s=x $s=siteutil
[PARKING]$s=x $s=parking
[HANDICAP]$s=x $s=handicap
[COGO]$s=x $s=cogo
[SITELITE]$s=x $s=sitelight
[MISC]$S=X $s=sitemisc
**PAINT 3
[calculat]
[ sq.ft.]

[PAINT]paint;

[BRICKS]bricks;

[WL PAPER]paper;
**BARSCALE 3
[barscale](princ " No Icon Available ")(princ);

[1/16"=1'](lays symbolv) insert (dd "/arch/barsc16") scale !scale1;
[ 1/8"=1'](lays symbolv) insert (dd "/arch/barsc8") scale !scale1;
[ 1/4"=1'](lays symbolv) insert (dd "/arch/barsc4") scale !scale1;
[ 3/8"=1'](lays symbolv) insert (dd "/arch/barsc3-8") scale !scale1;
[ 1/2"=1'](lays symbolv) insert (dd "/arch/barsc2") scale !scale1;
[ 3/4"=1'](lays symbolv) insert (dd "/arch/barsc3-4") scale !scale1;
[   1"=1'](lays symbolv) insert (dd "/arch/barsc1") scale !scale1;
[1-1/2"=1](lays symbolv) insert (dd "/arch/barsc1-2") scale !scale1;
[   3"=1'](lays symbolv) insert (dd "/arch/barsc3") scale !scale1;
[OTHER 1](lays symbolv) (setq angl1 (getangle " enter insertion angle <0>: ")) \(princ)(if (null angl1)(setq angl1 0))(princ) insert (dd "/arch/barscale") drag \12  (rtd angl1) (setq bartyp 1)(nl "" "/archp/barscale");
[OTHER 2](lays symbolv) (setq angl1 (getangle " enter insertion angle <0>: ")) \(princ)(if (null angl1)(setq angl1 0))(princ) insert (dd "/arch/barscal1") drag \12  (rtd angl1) (setq bartyp 2)(nl "" "/archp/barscale");
**NORTH 3
[north]$i=inorth $i=*
[arrows]$i=inorth $i=*

[NORTH](lays symbolv) insert (dd "/arch/north") scale !scale1;
[NORTH1](lays symbolv) insert (dd "/arch/north1") scale !scale1;
[NORTH2](lays symbolv) insert (dd "/arch/north2") scale !scale1;
[NORTH3](lays symbolv) insert (dd "/arch/north3") scale !scale1;
[NORTH4](lays symbolv) insert (dd "/arch/north4") scale !scale1;
[NORTH5](lays symbolv) insert (dd "/arch/north5") scale !scale1;
**WORD 3
[word](princ " No Icon Available ")(princ);

[???](princ " Enter text: ")(nl "" "/cci/instext")(princ) 1-8;;\
[SAN](nl "" "/cci/instext")(princ) 1-8;;SAN;;
[STM](nl "" "/cci/instext")(princ) 1-8;;STM;;
[G](nl "" "/cci/instext")(princ) 1-8;;G;;
[GAS](nl "" "/cci/instext")(princ) 1-8;;GAS;;
[W](nl "" "/cci/instext")(princ) 1-8;;W;;
[S](nl "" "/cci/instext")(princ) 1-8;;S;;
[T](nl "" "/cci/instext")(princ) 1-8;;T;;
[E](nl "" "/cci/instext")(princ) 1-8;;E;;
[C](nl "" "/cci/instext")(princ) 1-8;;C;;
[PL](nl "" "/cci/instext")(princ) 1-8;;PL;;
[R/W](nl "" "/cci/instext")(princ) 1-8;;R/W;;
[CL](nl "" "/cci/instext")(princ) 1-8;;CL;;
[EM](nl "" "/cci/instext")(princ) 1-8;;EM;;
**treepln 3
[Trees 1]$i=itreepln $i=*
[TREE1](lays sitev) insert (dd3 "/tree1") \\
[TREE2](lays sitev) insert (dd3 "/tree2") \\
[TREE3](lays sitev) insert (dd3 "/tree3") \\
[TREE4](lays sitev) insert (dd3 "/tree4") \\
[TREE5](lays sitev) insert (dd3 "/tree5") \\
[TREEA](lays sitev) insert (dd3 "/treea") \\
[TREEB](lays sitev) insert (dd3 "/treeb") \\
[TREEC](lays sitev) insert (dd3 "/treec") \\
[TREED](lays sitev) insert (dd3 "/treed") \\
[TREEE](lays sitev) insert (dd3 "/treee") \\
[TREEF](lays sitev) insert (dd3 "/treef") \\
[TREEG](lays sitev) insert (dd3 "/treeg") \\
[TREEH](lays sitev) insert (dd3 "/treeh") \\
[TREEI](lays sitev) insert (dd3 "/treei") \\
[TREEJ](lays sitev) insert (dd3 "/treej") \\
[ tree 2]$s=x $s=treepln1
**treepln1 3
[Trees 2]$i=itreepln1 $i=*
[TREEK](lays sitev) insert (dd3 "/treek") \\
[TREEL](lays sitev) insert (dd3 "/treel") \\
[TREEM](lays sitev) insert (dd3 "/treem") \\
[TREEN](lays sitev) insert (dd3 "/treen") \\
[TREEO](lays sitev) insert (dd3 "/treeo") \\
[TREEP](lays sitev) insert (dd3 "/treep") \\
[TREEQ](lays sitev) insert (dd3 "/treeq") \\
[TREER](lays sitev) insert (dd3 "/treer") \\
[TREES](lays sitev) insert (dd3 "/trees") \\
[TREET](lays sitev) insert (dd3 "/treet") \\
[TREEU](lays sitev) insert (dd3 "/treeu") \\
[TREEV](lays sitev) insert (dd3 "/treev") \\
[TREEY](lays sitev) insert (dd3 "/treey") \\
[TREEZ](lays sitev) insert (dd3 "/treez") \\
[ tree 1]$s=x $s=treepln
[ hedge]$s=x $s=treepln2
**treepln2 3
[hedge]$i=itreepln2 $i=*

[TREEW](lays sitev) insert (dd3 "/treew") \\
[TREEX](lays sitev) insert (dd3 "/treex") \\
[HEDGE](lays sitev) insert (dd3 "/hedge") \\
[ROCK](lays sitev) insert (dd3 "/rock") \\

[ tree 1]$s=x $s=treepln
[ tree 2]$s=x $s=treepln1
**HANDICAP 3
[handicap]$i=ihandicap $i=*

[SYMBOL](lays sitev) insert (dd "/arch/handisym") \\
[WH CHAIR](lays sitev) insert (dd "/arch/wchairp") scale !scaleb \
[CURB CUT](nl "" "/archp/handicrb");
**LINESITE 3
[linesite]$i=ilinesite $i=*

[OTHER](nl "" "/cci/symbol");

[RAILROAD](princ "Loading RAILROAD ")(setq insfl (strcat drive "/cci/line190") ANG 0 attfl "N" angt t insflt t breakt t break "N" angtpt T angtp "A")(nl "" "/cci/symbol");
[FENCE](princ "Loading FENCE ")(setq insfl (strcat drive "/cci/linex") ang 0 attfl "n" angt t insflt t breakt t break "N" angtp "A" angtpt T)(nl "" "/cci/symbol");
[STONE wl](lays sitev) insert (dd "/arch/stone") \\
[BOUNDARY]$s=x $s=line layer m boundary l boundary   line;
[SETBACK]$s=x $s=line layer m setback l dashed   line;
[STREAM]$s=x $s=line layer m stream l stream   line;
**SITEUTIL 3
[site]$i=isiteutil $i=*
[utilties]$i=isiteutil $i=*

[TEL POLE](lays sitev) insert (dd "/arch/stelp") scale !scale1;
[TEL POLb](lays sitev) insert (dd "/arch/stelpb") scale !scale1;
[LIT POLE](lays sitev) insert (dd "/arch/sltp") scale !scale1;
[POW POLE](lays sitev) insert (dd "/arch/spowp") scale !scale1;

[HYDRANT](lays sitev) insert (dd "/arch/shydrant") scale !scale1;
[FIRE CON](lays sitev) insert (dd "/arch/sfirecon") scale !scale1;
[GAS VALV](lays sitev) insert (dd "/arch/gasvalv") scale !scale1;
[H2O VALV](lays sitev) insert (dd "/arch/sh2ovalv") scale !scale1;
[TRNSFORM](lays sitev) insert (dd "/arch/strndfrm") scale !scale1;
[GASmeter](princ "Loading GASMETER ")(setq insfl (strcat drive "/cci/balloon") ang 0 attfl "N" angt t insflt t breakt t break "Y" angtpt T angtp "C" attno 1 val1 "G")(nl "" "/cci/symbol");
[H2Ometer](princ "Loading H2OMETER ")(setq insfl (strcat drive "/cci/balloon") ang 0 attfl "N" angt t insflt t breakt t break "Y" angtpt T angtp "C" attno 1 val1 "W")(nl "" "/cci/symbol");
**COGO 3
[Cogo](princ " No Icon Available ")(princ);

[BEARING](nl "" "/archp/bearing");
[DLINE](nl c:dl "/cci/dline") dl;
**SITEMISC 2
[miscsite]$i=isitemisc $i=*

[TRASH](lays sitev) insert (dd "/arch/strash") scale !scale1;
[BRIDGE](lays sitev) insert (dd "/arch/sbridge") \\
[IRON PIN](lays sitev) insert (dd "/arch/sip") \\
[CONC MON](lays sitev) insert (dd "/arch/sconcmon") \\
**VEHICLES 3
[vehicles]$i=ivehicles $i=*

[SM CAR](lays sitev) insert (dd3 "/vcssdp") scale !scaleb \
[MD CAR](lays sitev) insert (dd3 "/vcmsdp") scale !scaleb \
[STwagon](lays sitev) insert (dd3 "/vcmstp") scale !scaleb \
[LG CAR](lays sitev) insert (dd3 "/vclsdp") scale !scaleb \
[VAN](lays sitev) insert (dd3 "/vtvanp") scale !scaleb \
[SM TRUCK](lays sitev) insert (dd3 "/vt18bp") scale !scaleb \
[MD TRUCK](lays sitev) insert (dd3 "/vt24bp") scale !scaleb \
[LG TRUCK](lays sitev) insert (dd3 "/vt28bp") scale !scaleb \
[SCH BUS](lays sitev) insert (dd3 "/vbusschl") scale !scaleb \
[METROBUS](lays sitev) insert (dd3 "/vbusmtro") scale !scaleb \

[Trucks]$s=x $s=vehicles1
**VEHICLES1 3
[trucks]$i=vehicles1 $i=*

[TRAILR50](lays sitev) insert (dd3 "/vtt50p") scale !scaleb \
[TRAILR55](lays sitev) insert (dd3 "/vtt55p") scale !scaleb \
[TRAILR60](lays sitev) insert (dd3 "/vtt60p") scale !scaleb \
[TRAILR65](lays sitev) insert (dd3 "/vtt65p") scale !scaleb \
[MTRAIL50](lays sitev) insert (dd3 "/vttr50p") scale !scaleb \
[MTRAIL55](lays sitev) insert (dd3 "/vttr55p") scale !scaleb \
[MTRAIL60](lays sitev) insert (dd3 "/vttr60p") scale !scaleb \
[MTRAIL65](lays sitev) insert (dd3 "/vttr65p") scale !scaleb \

[Cars]$s=x $s=vehicles
**DRAINAGE 3
[drainage]$i=idrainage $i=*

[CATCHBSN](lays sitev) insert (dd "/arch/catchbsn") scale !scale1;
[MANHOLE](lays sitev) insert (dd "/arch/manhole") scale !scale1;
[CURBINLT](lays sitev) insert (dd "/arch/curbinlt") scale !scale1;
**SITELIGHT 3
[site]
[light]

[1](lays sitev);insert (dd "/arch2d/e-lpole1") scale !scaleb \
[2](lays sitev);insert (dd "/arch2d/e-lpole2") scale !scaleb \
[3](lays sitev);insert (dd "/arch2d/e-lpole3") scale !scaleb \
[4](lays sitev);insert (dd "/arch2d/e-lpole4") scale !scaleb \
**PARKING 3
[parking]$i=iparking $i=*
[  lot]$i=iparking $i=*
[symbols]$i=iparking $i=*

[AROW STR](lays sitev) insert (dd "/arch/arrows") \\
[ARROW 2W](lays sitev) insert (dd "/arch/arr2way") \\
[AROW C L](lays sitev) insert (dd "/arch/arrowl") \\
[AROW C R](lays sitev) insert (dd "/arch/arrowr") \\
[AROW S L](lays sitev) insert (dd "/arch/arrstrl") \\
[AROW S R](lays sitev) insert (dd "/arch/arrstrr") \\
[HANDICAP](lays sitev) insert (dd "/arch/handisym") \\
[NO PARK](lays sitev) insert (dd "/arch/snopark") scale !scale1;
[NO ENTER](lays sitev) insert (dd "/arch/snoenter") \\;
[EXIT](lays sitev) insert (dd "/arch/sexit") \\;

[LAYOUT]$s=x $s=parking1
**PARKING1 3
[layout]$i=iparking1 $i=*
[CUSTOM](nl parking "/archp/parking")(parking);

[open]
[10 ROW](lays sitev) insert (dd "/arch/parkg10") scale !scaleb \
[15 ROW](lays sitev) insert (dd "/arch/parkg15") scale !scaleb \
[20 ROW](lays sitev) insert (dd "/arch/parkg20") scale !scaleb \
[single]
[10 ROW](lays sitev) insert (dd "/arch/parks10") scale !scaleb \
[15 ROW](lays sitev) insert (dd "/arch/parks15") scale !scaleb \
[20 ROW](lays sitev) insert (dd "/arch/parks20") scale !scaleb \
[double]
[10 ROW](lays sitev) insert (dd "/arch/parkd10") scale !scaleb \
[15 ROW](lays sitev) insert (dd "/arch/parkd15") scale !scaleb \
[20 ROW](lays sitev) insert (dd "/arch/parkd20") scale !scaleb \

[SYMBOLS]$s=x $s=parking
**APPL 3
[applianc]$i=iappl $i=*

[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[RANGE](lays fixtv) insert (dd3 "/range") scale !scaleb \
[OVEN](lays fixtv) insert (dd3 "/oven") scale !scaleb \
[REF1](lays fixtv) insert (dd3 "/ref1") scale !scaleb \
[REF2](lays fixtv) insert (dd3 "/ref2") scale !scaleb \
[REF3](lays fixtv) insert (dd3 "/ref3") scale !scaleb \
[DISHWASH](lays fixtv) insert (dd3 "/dishwash") scale !scaleb \
[WASH](lays fixtv) insert (dd3 "/washer") scale !scaleb \
[DRYER](lays fixtv) insert (dd3 "/dryer") scale !scaleb \
[MICRO](lays fixtv) insert (dd3 "/micro") scale !scaleb \
[TOASTER](lays fixtv) insert (dd3 "/toaster") scale !scaleb \
[FAN]^C^Cinsert (dd "/arch2d/upthe");
[CABINETS](if metric (progn (menucmd "i=ikitcabm")(menucmd "i=*"))(progn (menucmd "i=ikitcab")(menucmd "i=*")))(princ);
**FURN 2
[furnitur](princ " No Icon Available ")(princ);

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[CHAIRS]$s=x $s=chair
[TABLES]$s=x $s=table
[DESK]$s=x $s=desk
[SOFA]$s=x $s=sofa
[BEDS]$s=x $s=bed
[OFFICEeq]$s=x $s=office
[FILECAB](if metric (progn (menucmd "s=x")(menucmd "s=filecabm"))(progn (menucmd "s=x")(menucmd "s=filecab")))(princ);
[BOOKCASE]$s=x $s=bookcase
[LAMP]$s=x $s=lamp
[PLANTS]$s=x $s=plants
[3D MISC]$s=x $s=3dmisc
[MISC]$s=x $s=furnmisc
**CHAIR 3
[chairs]$i=ichair $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[CHAIR 1](lays furnv) insert (dd3 "/chair1") scale !scaleb \
[CHAIR 2](lays furnv) insert (dd3 "/chair2") scale !scaleb \
[CHAIR 3](lays furnv) insert (dd3 "/chair3") scale !scaleb \
[CHAIR 4](lays furnv) insert (dd3 "/chair4") scale !scaleb \
[CHAIR 5](lays furnv) insert (dd3 "/chair5") scale !scaleb \
[CHAIR 6](lays furnv) insert (dd3 "/chair6") scale !scaleb \
[CHAIR 7](lays furnv) insert (dd3 "/chair7") scale !scaleb \
[CHAIR 8](lays furnv) insert (dd3 "/chair8") scale !scaleb \
[CHAIR 9](lays furnv) insert (dd3 "/chair9") scale !scaleb \
**CHAIRINS 3
[chairs]

[CHAIR1]chair1;
[CHAIR2]chair2;
[CHAIR3]chair3;
[CHAIR4]chair4;
[CHAIR5]chair5;
[CHAIR6]chair6;
[CHAIR7]chair7;
[CHAIR8]chair8;
[CHAIR9]chair9;
**TABLE 3
[tables]$i=itabler $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[table &]$i=itabler $i=*
[CHAIRS](nl "" "/archp/table");

[RECTANG](lays furnv) (nl "" "/archp/tabler");
[TABLE3](lays furnv) insert (dd3 "/table3") scale !scaleb \
[COFFEE](lays furnv) insert (dd3 "/tablcoff") scale !scaleb \
[COMP](lays furnv) insert (dd3 "/tablcomp") scale !scaleb \
[BOAT 8](lays furnv) insert (dd3 "/fconf8") scale !scaleb \
[BOAT 10](lays furnv) insert (dd3 "/fconf10") scale !scaleb \

[table]$i=itablec $i=*
[ROUND](lays furnv) (nl "" "/archp/tablec");
**DESK 3
[desks]$i=idesk $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[DESK 1](lays furnv) insert (dd3 "/desk1") scale !scaleb \
[DESK 2](lays furnv) insert (dd3 "/desk2") scale !scaleb \
[DESK 3](lays furnv) insert (dd3 "/desk3") scale !scaleb \
[DESK 4](lays furnv) insert (dd3 "/desk4") scale !scaleb \
**SOFA 3
[sofa]$i=isofa $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[SOFA1](lays furnv) insert (dd3 "/sofa1") scale !scaleb \
[SOFA2](lays furnv) insert (dd3 "/sofa2") scale !scaleb \
[SOFA3](lays furnv) insert (dd3 "/sofa3") scale !scaleb \
[SOFA4](lays furnv) insert (dd3 "/sofa4") scale !scaleb \

[modular]
[END 1](lays furnv) insert (dd3 "/sofa5") scale !scaleb \
[MID 1](lays furnv) insert (dd3 "/sofa6") scale !scaleb \
[END 2](lays furnv) insert (dd3 "/sofa7") scale !scaleb \
[MID 2](lays furnv) insert (dd3 "/sofa8") scale !scaleb \
**BED 3
[beds]$i=ibed $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[TWIN](lays furnv) insert (dd3 "/bedtwin") scale !scaleb \
[DOUBLE](lays furnv) insert (dd3 "/beddoubl") scale !scaleb \
[QUEEN](lays furnv) insert (dd3 "/bedqueen") scale !scaleb \
[KING](lays furnv) insert (dd3 "/bedking") scale !scaleb \

[HOSPITAL](lays furnv) insert (dd3 "/bedhosp") scale !scaleb \
[BUNK BED](lays furnv) insert (dd3 "/bedbunk") scale !scaleb \
[CRIB](lays furnv) insert (dd3 "/bedcrib") scale !scaleb \
[3/4](lays furnv) insert (dd3 "/bed3-4") scale !scaleb \
**OFFICE 3
[office]$i=ioffice $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[PHONE](lays furnv) insert (dd3 "/fnphone") scale !scaleb \
[FNCOMP](lays furnv) insert (dd3 "/fncomp") scale !scaleb \
[TYPEWRIT](lays furnv) insert (dd3 "/typewrit") scale !scaleb \
[COPIER1](lays furnv) insert (dd3 "/copier1") scale !scaleb \
[COPIER2](lays furnv) insert (dd3 "/copier2") scale !scaleb \
[COPIER3](lays furnv) insert (dd3 "/copier3") scale !scaleb \
**FILECAB 3
[file cab]$i=ifilecab $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[15x22](lays furnv) insert (dd3 "/fc15x22a") scale !scaleb \
[15x27](lays furnv) $s=x $s=fc15x27 $i=ifc15x27 $i=*
[18x27](lays furnv) $s=x $s=fc18x27 $i=ifc18x27 $i=*
[30x18](lays furnv) $s=x $s=fc30x18 $i=ifc30x18 $i=*
[36x18](lays furnv) $s=x $s=fc36x18 $i=ifc36x18 $i=*
[42x18](lays furnv) $s=x $s=fc42x18 $i=ifc42x18 $i=*
**FILECABM 3
[file cab]$i=ifilecabm $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[375x550](lays furnv) insert (dd3 "/fc15x22a") scale !scaleb \
[375x675](lays furnv) $s=x $s=fc15x27 $i=ifc15x27 $i=*
[450x675](lays furnv) $s=x $s=fc18x27 $i=ifc18x27 $i=*
[750x450](lays furnv) $s=x $s=fc30x18m $i=ifc30x18m $i=*
[900x450](lays furnv) $s=x $s=fc36x18m $i=ifc36x18m $i=*
[1.05x450](lays furnv) $s=x $s=fc42x18m $i=ifc42x18m $i=*
**fc15x27 3
[letter]$i=ifc15x27 $i=*

[2 drawer]insert (dd3 "/fc15x27a") scale !scaleb \
[4 drawer]insert (dd3 "/fc15x27b") scale !scaleb \
[5 drawer]insert (dd3 "/fc15x27c") scale !scaleb \
**fc18x27 3
[legal]$i=ifc18x27 $i=*

[2 drawer]insert (dd3 "/fc18x27a") scale !scaleb \
[4 drawer]insert (dd3 "/fc18x27b") scale !scaleb \
[5 drawer]insert (dd3 "/fc18x27c") scale !scaleb \
**fc30x18 3
[30laterl]$i=fc30x18 $i=*

[2 drawer]insert (dd3 "/fc30x18a") scale !scaleb \
[3 drawer]insert (dd3 "/fc30x18b") scale !scaleb \
[4 drawer]insert (dd3 "/fc30x18c") scale !scaleb \
[5 drawer]insert (dd3 "/fc30x18d") scale !scaleb \
**fc30x18m 3
[75laterl]$i=fc30x18 $i=*

[2 drawer]insert (dd3 "/fc30x18a") scale !scaleb \
[3 drawer]insert (dd3 "/fc30x18b") scale !scaleb \
[4 drawer]insert (dd3 "/fc30x18c") scale !scaleb \
[5 drawer]insert (dd3 "/fc30x18d") scale !scaleb \
**fc36x18 3
[36laterl]$i=ifc36x18 $i=*

[2 drawer]insert (dd3 "/fc36x18a") scale !scaleb \
[3 drawer]insert (dd3 "/fc36x18b") scale !scaleb \
[4 drawer]insert (dd3 "/fc36x18c") scale !scaleb \
[5 drawer]insert (dd3 "/fc36x18d") scale !scaleb \
**fc36x18m 3
[.9laterl]$i=ifc36x18 $i=*

[2 drawer]insert (dd3 "/fc36x18a") scale !scaleb \
[3 drawer]insert (dd3 "/fc36x18b") scale !scaleb \
[4 drawer]insert (dd3 "/fc36x18c") scale !scaleb \
[5 drawer]insert (dd3 "/fc36x18d") scale !scaleb \

**fc42x18 3
[42laterl]$i=ifc42x18 $i=*

[2 drawer]insert (dd3 "/fc42x18a") scale !scaleb \
[3 drawer]insert (dd3 "/fc42x18b") scale !scaleb \
[4 drawer]insert (dd3 "/fc42x18c") scale !scaleb \
[5 drawer]insert (dd3 "/fc42x18d") scale !scaleb \
**fc42x18m 3
[1.05latl]$i=ifc42x18 $i=*

[2 drawer]insert (dd3 "/fc42x18a") scale !scaleb \
[3 drawer]insert (dd3 "/fc42x18b") scale !scaleb \
[4 drawer]insert (dd3 "/fc42x18c") scale !scaleb \
[5 drawer]insert (dd3 "/fc42x18d") scale !scaleb \
**bookcase 3
[bookcase]$i=ibookcase $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[CASE1](lays furnv) insert (dd3 "/fncase1") scale !scaleb \
[CASE2](lays furnv) insert (dd3 "/fncase2") scale !scaleb \
[CASE3](lays furnv) insert (dd3 "/fncase3") scale !scaleb \
[CASE4](lays furnv) insert (dd3 "/fncase4") scale !scaleb \
**lamp 3
[lamps]$i=ilamps $i=*

[LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");

[D LAMP1](lays furnv) insert (dd3 "/fndlmp1") scale !scaleb \
[F LAMP1](lays furnv) insert (dd3 "/fnflmp1") scale !scaleb \
[F LAMP2](lays furnv) insert (dd3 "/fnflmp2") scale !scaleb \
[T LAMP1](lays furnv) insert (dd3 "/fntlmp1") scale !scaleb \
[T LAMP2](lays furnv) insert (dd3 "/fntlmp2") scale !scaleb \
[T LAMP3](lays furnv) insert (dd3 "/fntlmp3") scale !scaleb \
**plants 3
[plants]$i=iplants $i=*

[PLANT1](lays furnv) insert (dd3 "/plant1") scale !scaleb \
[PLANT2](lays furnv) insert (dd3 "/plant2") scale !scaleb \
[PLANT3](lays furnv) insert (dd3 "/plant3") scale !scaleb \
**3dmisc 3
[3d misc]$i=i3dmisc $i=*

[GOBLET]insert (dd "/arch3d/goblet") scale !scaleb \
[PLATE]insert (dd "/arch3d/plate") scale !scaleb \
[SAUCER]insert (dd "/arch3d/saucer") scale !scaleb \
[BOOK1]insert (dd "/arch3d/book1") scale !scaleb \
[BOOK2]insert (dd "/arch3d/book2") scale !scaleb \
[BOOK3]insert (dd "/arch3d/book3") scale !scaleb \
[PICTURE1]insert (dd "/arch3d/picture1") scale !scaleb \
[PICTURE2]insert (dd "/arch3d/picture2") scale !scaleb \
[PICTURE3]insert (dd "/arch3d/picture3") scale !scaleb \
[MIRROR]insert (dd "/arch3d/mirror") scale !scaleb \
[VASE]insert (dd "/arch3d/vase") scale !scaleb \
**furnmisc 3
[furnmisc]$i=ifurnmisc $i=*

[PIANO](lays furnv) insert (dd3 "/piano") scale !scaleb \
[DRESSER1](lays furnv) insert (dd3 "/dresser1") scale !scaleb \
[DRESSER2](lays furnv) insert (dd3 "/dresser2") scale !scaleb \
[TVCONSOL](lays furnv) insert (dd3 "/tvconsol") scale !scaleb \
[TV-PORT](lays furnv) insert (dd3 "/tv-port") scale !scaleb \
[STEREO](lays furnv) insert (dd3 "/stereo") scale !scaleb \
[STSPKR](lays furnv) insert (dd3 "/stspkr") scale !scaleb \
**PLUMB 3
[ plumb](princ " No Icon Available ")(princ);
[fixtures](princ " No Icon Available ")(princ);

[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[TOILETS]$s=x $s=toilet
[URINALS]$s=x $s=urinal
[WALL LAV](if metric (progn (menucmd "s=x")(menucmd "s=lavm"))(progn (menucmd "s=x")(menucmd "s=lav")))(princ);
[BATH LAV](if metric (progn (menucmd "s=x")(menucmd "s=lavm"))(progn (menucmd "s=x")(menucmd "s=lav")))(princ);
[BATHTUBS](if metric (progn (menucmd "s=x")(menucmd "s=tubm"))(progn (menucmd "s=x")(menucmd "s=tub")))(princ);
[SHOWER]$s=x $s=shower
[SINKS](if metric (progn (menucmd "s=x")(menucmd "s=sinkm"))(progn (menucmd "s=x")(menucmd "s=sink")))(princ);
[MISC]$S=x $s=plumbmisc
**PLUMBMISC 3
[misc]$i=iplumbmisc $i=*
[plumb]$i=iplumbmisc $i=*

[FLDRAIN](lays fixtv) insert (dd "/arch/fldrain") scale !scale1;
[FL C OUT](lays fixtv) insert (dd "/arch/flcleano") scale !scale1;
[SHWRHEAD](lays fixtv) insert (dd3 "/shwrhead") scale !scale1;
[HWHEATER](lays fixtv) insert (dd3 "/hwheater") scale !scale1;
[VENT]^C^Cinsert (dd "/arch2d/upthe");
**TOILET 3
[toilets]$i=itoilet $i=*

[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[TOILET 1](lays fixtv) insert (dd3 "/toilet1") scale !scaleb \
[TOILET 2](lays fixtv) insert (dd3 "/toilet2") scale !scaleb \
[TOILET 3](lays fixtv) insert (dd3 "/toilet3") scale !scaleb \
[TOILET 4](lays fixtv) insert (dd3 "/toilet4") scale !scaleb \
[TOILET 5](lays fixtv) insert (dd3 "/toilet5") scale !scaleb \
[TOILET 6](lays fixtv) insert (dd3 "/toilet6") scale !scaleb \

[MULTSTAL](nl "" "/archp/toilstal");
**urinal 3
[urinal]$i=iurinal $i=*

[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[URINAL1](lays fixtv) insert (dd3 "/urinal1") scale !scaleb \
[URINAL2](lays fixtv) insert (dd3 "/urinal2") scale !scaleb \

[MULTURIN](nl "" "/archp/urinstal");
**LAV 3
[lavatory]$i=ilav $i=*
[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[wall]
[15 X 19](lays fixtv) insert (dd3 "/w-lav") scale !scaleb \
[15 X 19](lays fixtv) insert (dd3 "/w-lav1") scale !scaleb \
[18 X 22](lays fixtv) insert (dd3 "/w-lav2") scale !scaleb \
[18 X 20](lays fixtv) insert (dd3 "/w-sink") scale !scaleb \
[15 X 15](lays fixtv) insert (dd3 "/lav4") scale !scaleb \
[19 X 21](lays fixtv) insert (dd3 "/c-lav") scale !scaleb \
[bath rm]
[19 X 16](lays fixtv) insert (dd3 "/lav") scale !scaleb \
[18 DIA ](lays fixtv) insert (dd3 "/lav1") scale !scaleb \
[18 X 20](lays fixtv) insert (dd3 "/lav2") scale !scaleb \
[17 X 21](lays fixtv) insert (dd3 "/lav3") scale !scaleb \
[VANITY](lays fixty) insert (dd3 "/vanity") scale !scaleb \
[MULT LAV](nl "" "/archp/lavmulti");
**LAVM 3
[lavatory]$i=ilav $i=*
[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[wall]
[.38X.48](lays fixtv) insert (dd3 "/w-lav") scale !scaleb \
[.38X.48](lays fixtv) insert (dd3 "/w-lav1") scale !scaleb \
[.45X.55](lays fixtv) insert (dd3 "/w-lav2") scale !scaleb \
[.45X.50](lays fixtv) insert (dd3 "/w-sink") scale !scaleb \
[.38X.38](lays fixtv) insert (dd3 "/lav4") scale !scaleb \
[.48X.53](lays fixtv) insert (dd3 "/c-lav") scale !scaleb \
[bath rm]
[.48X.40](lays fixtv) insert (dd3 "/lav") scale !scaleb \
[.45 DIA](lays fixtv) insert (dd3 "/lav1") scale !scaleb \
[.45X.50](lays fixtv) insert (dd3 "/lav2") scale !scaleb \
[.43X.53](lays fixtv) insert (dd3 "/lav3") scale !scaleb \
[VANITY](lays fixty) insert (dd3 "/vanity") scale !scaleb \
[MULT LAV](nl "" "/archp/lavmulti");
**TUB 3
[tubs]$i=itub $i=*

[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[30 X 42](lays fixtv) insert (dd3 "/tub3042") scale !scaleb \
[30 X 48](lays fixtv) insert (dd3 "/tub3048") scale !scaleb \
[30 X 54](lays fixtv) insert (dd3 "/tub3054") scale !scaleb \
[30 X 60](lays fixtv) insert (dd3 "/tub3060") scale !scaleb \
[32 X 54](lays fixtv) insert (dd3 "/tub3254") scale !scaleb \
[32 X 60](lays fixtv) insert (dd3 "/tub3260") scale !scaleb \
[32 X 66](lays fixtv) insert (dd3 "/tub3266") scale !scaleb \
[TUB2](lays fixtv) insert (dd3 "/tub2") scale !scaleb \
[TUB3](LAys fixtv) insert (dd3 "/tub3") scale !scaleb \
[SHWRHEAD](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \
[TWLRACK](lays fixtv) insert (dd3 "/twlrack") scale !scaleb \
[CURTAIN](lays fixtv) insert (dd "/arch3d/tubcurt") scale !scaleb \
[DOOR](lays fixtv) insert (dd "/arch3d/tubdoor") scale !scaleb \
**TUBM 3
[tubs]$i=itub $i=*

[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[.76X1.07](lays fixtv) insert (dd3 "/tub3042") scale !scaleb \
[.76X1.20](lays fixtv) insert (dd3 "/tub3048") scale !scaleb \
[.76X1.37](lays fixtv) insert (dd3 "/tub3054") scale !scaleb \
[.76X1.52](lays fixtv) insert (dd3 "/tub3060") scale !scaleb \
[.81X1.37](lays fixtv) insert (dd3 "/tub3254") scale !scaleb \
[.81X1.67](lays fixtv) insert (dd3 "/tub3260") scale !scaleb \
[TUB2](lays fixtv) insert (dd3 "/tub2") scale !scaleb \
[TUB3](LAys fixtv) insert (dd3 "/tub3") scale !scaleb \
[SHWRHEAD](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \
[TWLRACK](lays fixtv) insert (dd3 "/twlrack") scale !scaleb \
[CURTAIN](lays fixtv) insert (dd "/arch3d/tubcurt") scale !scaleb \
[DOOR](lays fixtv) insert (dd "/arch3d/tubdoor") scale !scaleb \
**SHOWER 3
[shower]$i=ishower $i=*

[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[RECTANG](lays fixtv);(nl symins "/cci/symins")(symins "/arch2d/shower");
[STALL](lays fixtv) insert (dd3 "/shwrstal") scale !scaleb \\

[TWLRACK](lays fixtv) insert (dd "/arch3d/twlrack") scale !scaleb .xy \\
[SHWRHEAD](lays fixtv) insert (dd3 "/shwrhead") scale !scale1;
**SINK 3
[sinks]$i=isink $i=*
[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[triple]
[44 X 22](lays fixtv) insert (dd3 "/sinktrpl") scale !scaleb \
[double]
[33 X 22](lays fixtv) insert (dd3 "/sinkdbl1") scale !scaleb \
[single]
[24 X 21](lays fixtv) insert (dd3 "/sink2421") scale !scaleb \
[u-sink]
[18 X 24](lays fixtv) insert (dd3 "/u-sink") scale !scaleb \
[service]
[20 X 24](lays fixtv) insert (dd3 "/s-sink") scale !scaleb \
[scr-sink]
[22 X 30](lays fixtv) insert (dd3 "/scr-sink") scale !scaleb \
[clinic]
[20 X 28](lays fixtv) insert (dd3 "/clinic2") scale !scaleb \
**SINKM 3
[sinks]$i=isink $i=*
[LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");

[triple]
[1.12X.56](lays fixtv) insert (dd3 "/sinktrpl") scale !scaleb \
[double]
[.84X.55](lays fixtv) insert (dd3 "/sinkdbl1") scale !scaleb \
[single]
[.61X.53](lays fixtv) insert (dd3 "/sink2421") scale !scaleb \
[u-sink]
[.45X.60](lays fixtv) insert (dd3 "/u-sink") scale !scaleb \
[service]
[.50X.60](lays fixtv) insert (dd3 "/s-sink") scale !scaleb \
[scr-sin]
[.55X.76](lays fixtv) insert (dd3 "/scr-sink") scale !scaleb \
[clinic]
[.50X.71](lays fixtv) insert (dd3 "/clinic2") scale !scaleb \
**CALL 2
[callouts](princ " No Icon Available ")(princ);
[ROOMCALL]$s=x $s=callout
[ROOMAREA]$s=x $s=roomarea
[INTERIOR]$s=x $s=interior
[DETAIL]$s=x $s=detail
[SECTION]$s=x $s=sectionsym
[ARROWS]$s=x $s=arrows
[WINDOW](lays windnov) insert (dd "/arch/windnum") scale !scale1;
[DOOR](lays doornov) insert (dd "/arch/doornum") scale !scale1;
[EQUIPMNT](lays symbolv) insert (dd "/arch/equip") scale !scale1;
[BREAKS]$s=x $s=breaks $i=ibreaks $i=*
[REVISON](lays symbolv) insert (dd "/arch/revno") scale !scale1;
[REVISN1](lays symbolv) insert (dd "/arch/revno1") scale !scale1;
[CONSTR](lays symbolv) insert (dd "/arch/const") scale !scale1;
[DEMONOTE](lays symbolv) insert (dd "/arch/demo") scale !scale1;
[LMWINDNO](set 'temp 'WINDNOV)(nl "" "/cci/layermod");
[LMDOORNO](set 'temp 'DOORNOV)(nl "" "/cci/layermod");
[LMSYMBOL](set 'temp 'symbolv)(nl "" "/cci/layermod");
**CALLOUT 3
[callouts](princ " No Icon Available ")(princ);
[ROOMAREA]$s=x $s=roomarea

[CASEWORK](nl "" "/archp/casecall");
[SEATING ](nl "" "/archp/seatcall");
[FURNITUR](nl "" "/archp/furncall");

[ROOM SML](lays symbolv) insert (dd "/arch/rmno1") scale !scale1;
[ROOM BIG](lays symbolv) insert (dd "/arch/rmno1") scale (* scale1 1.333333);
[multtext]
[ROOM SML](lays symbolv) insert (dd "/arch/rmno2") scale !scale1;
[ROOM BIG](lays symbolv) insert (dd "/arch/rmno2") scale (* scale1 1.333333);
**ROOMAREA 3
[roomarea](princ " No Icon Available ")(princ);

[PlaceTAG](nl "" "/archp/roomarea");

[Pickinfo](nl c:rminfo "/archp/roomplus");rminfo
[By Dept ](nl c:rminfo "/archp/roomplus");seldept
[By Use  ](nl c:rminfo "/archp/roomplus");seluse
[Area fix](nl c:rminfo "/archp/roomplus");rupdate
[DeptArea](nl c:rminfo "/archp/roomplus");deptarea
[Link fix](nl c:rminfo "/archp/roomplus");linkfix

[HATCH RM]hatch \\\p;

[--------]
[noHandle](princ " Use next item for Areas without handles ")(princ);
[NEW AREA](nl "" "/archp/areanew");
**INTERIOR 3
[Interior](princ " No Icon Available ")(princ);
[symbols](princ " No Icon Available ")(princ);

[ELEVTION](lays symbolv) insert (dd "/arch/intelev") scale !scale1 \ \\(setq pt1 (getvar "lastpoint"))(nl "" "/archp/intelev");
[ELV FILL](setq pt1 nil)(nl "" "/archp/intelev");

[--------]
[*finish*]
[ WALL](lays symbolv) insert (dd "/arch/finwall") scale !scale1;
[ CEILING](lays symbolv) insert (dd "/arch/finceil") scale !scale1;
[ FLOOR](lays symbolv) insert (dd "/arch/finfloor") scale !scale1;
[ BASE](lays symbolv) insert (dd "/arch/finbase") scale !scale1;
[ COMBO](lays symbolv) insert (dd "/arch/fincall") scale !scale1;
**BREAKS 3
[BREAKS]$i=ibreaks $i=*

[LINEend]insert (dd "/cci/break") scale !scale1 \\
[LINEbrk1](nl "" "/cci/lbreak");
[LINEbrk2](nl insertbk "/cci/insertbk")(insertbk "/cci/break2" (* scalem 12)"C")(princ);
[DBLbrk1](nl "" "/cci/pbreak");
[DBLbrk2](nl "" "/cci/pbreak2");
[DBLbrk3](nl "" "/cci/rectline");
[DBLbrk4](nl "" "/cci/rndline");
**DETAIL 3
[detail]$i=idetail $i=*
[symbols]$i=idetail $i=*

[1 TEXTLN](lays symbolv) insert (dd "/arch/detail1") scale !scale1;
[2 TEXTLN](lays symbolv) insert (dd "/arch/detail2") scale !scale1;
[3 TEXTLN](lays symbolv) insert (dd "/arch/detail3") scale !scale1;

[LEADER](nl "" "/archp/ballead");ballead;
[TITLE](pre)(lays symbolv) insert (dd "/arch/detailt") scale !scale1 rotate 0 \\\\\line (polar (getvar "lastpoint")(dtr 0)(* scale1 (if metric 0.3 24.0))) \;copy l  (strcat "0,-" (rtos (* scale (if metric 0.001 0.03125)) 2 6))  (post)(princ);
**SECTIONSYM 3
[section]$i=isection $i=*
[symbols]$i=isection $i=*

[1 TEXTLN](lays symbolv) insert (dd "/arch/detail1") scale !scale1 \\\insert (dd "/arch/detail-a") @0,0 !scale1  \
[2 TEXTLN](lays symbolv) insert (dd "/arch/detail2") scale !scale1 \\\\insert (dd "/arch/detail-a") @0,0 !scale1  \
[3 TEXTLN](lays symbolv) insert (dd "/arch/detail3") scale !scale1 \\\\\insert (dd "/arch/detail-a") @0,0 !scale1  \
**arrows 3
[arrows]$i=iarrows $i=*

[ARROW]insert (dd "/arch/arrow") scale !scale1;
[ARROW1]insert (dd "/arch/arrow1") scale !scale1;
[ARROW2]insert (dd "/arch/arrow2") scale !scale1;
[ARROW3]insert (dd "/arch/arrow3") scale !scale1;
[ARROW4]insert (dd "/arch/arrow4") scale !scale1;
[ARROW7]insert (dd "/arch/arrow7") scale !scale1;
[ARROW5]insert (dd "/arch/arrow5") scale !scale1;
[ARROW6]insert (dd "/arch/arrow6") scale !scale1;
**consdet 3
[details]$i=iconsdet $i=*

[WOOD]insert (dd "/archd/wooddet") scale !scaleb \;
[STEEL]insert (dd "/archd/steeldet") scale !scaleb \;
[MASONRY]insert (dd "/archd/masdet") scale !scaleb \;
[DOOR]insert (dd "/archd/doordet") scale !scaleb \;
[WINDOW]insert (dd "/archd/winddet") scale !scaleb \;
**HVAC 3
[access]$i=ihvac $i=*
[2X2](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
[2X4](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");

[supply]$i=ihvac $i=*
[2X2](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
[2X4](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");

[return]$i=ihvac $i=*
[2X2](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
[2X4](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
**HVACM 3
[access]$i=ihvacm $i=*
[.6X.6](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
[.2X1.2](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");

[supply]$i=ihvacm $i=*
[.6X.6](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
[.2X1.2](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");

[return]$i=ihvacm $i=*
[.6X.6](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
[.2X1.2](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
**HVACACC 3
[access](princ " No Icon Available ")(princ);
[2X2](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
[2X4](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
**HVACSUP 3
[supply](princ " No Icon Available ")(princ);
[2X2](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
[2X4](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
**HVACRET 3
[return](princ " No Icon Available ")(princ);
[2X2](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
[2X4](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
**HVACACCM 3
[access](princ " No Icon Available ")(princ);
[.6X.6](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
[.2X1.2](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
**HVACSUPM 3
[supply](princ " No Icon Available ")(princ);
[.6X.6](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
[.2X1.2](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
**HVACRETM 3
[return](princ " No Icon Available ")(princ);
[.6X.6](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
[.2X1.2](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
[OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
**ELEC 3
[elec](princ " No Icon Available ")(princ);

[LMODELEC](set 'temp 'elecv)(nl "" "/cci/layermod");

[FLUOR](if metric (progn (menucmd "s=x")(menucmd "s=fluorm"))(progn (menucmd "s=x")(menucmd "s=fluor")))(princ);
[INCANDST]$s=x $s=eleclite

[OUTLETS]$s=x $s=elecout
[SWITCHS]$s=x $s=elecswit
[PHONE]$s=x $s=electel
[EMERGCY]$s=x $s=elecemer
[TRACK]$s=x $s=eletrack
[MISC]$s=x $s=elecmisc
**FLUOR 3
[fluor]$i=ifluor $i=*
[light]$i=ifluor $i=*

[1X4](lays elecv) insert (dd "/arch/e-fl1x4") scale !scaleb \
[1X4NIGHT](lays elecv) insert (dd "/arch/e-fl1x4n") scale !scaleb \
[1X4EMERG](lays elecv) insert (dd "/arch/e-fl1x4e") scale !scaleb \
[2X2](lays elecv) insert (dd "/arch/e-fl2x2") scale !scaleb \
[2X2NIGHT](lays elecv) insert (dd "/arch/e-fl2x2n") scale !scaleb \
[2X2EMERG](lays elecv) insert (dd "/arch/e-fl2x2e") scale !scaleb \
[1X8](lays elecv) insert (dd "/arch/e-fl1x8") scale !scaleb \
[1X8NIGHT](lays elecv) insert (dd "/arch/e-fl1x8n") scale !scaleb \
[1X8EMERG](lays elecv) insert (dd "/arch/e-fl1x8e") scale !scaleb \
[2X4](lays elecv) insert (dd "/arch/e-fl2x4") scale !scaleb \
[2X4NIGHT](lays elecv) insert (dd "/arch/e-fl2x4n") scale !scaleb \
[2X4EMERG](lays elecv) insert (dd "/arch/e-fl2x4e") scale !scaleb \

[OTHER](lays elecv);(nl symins "/cci/symins")(symins "/arch/e-fluor");
**FLUORM 3
[fluor]$i=ifluor $i=*
[light]$i=ifluor $i=*

[.3X1.2](lays elecv) insert (dd "/arch/e-fl1x4") scale !scaleb \
[3X1.2NHT](lays elecv) insert (dd "/arch/e-fl1x4n") scale !scaleb \
[3X1.2EMG](lays elecv) insert (dd "/arch/e-fl1x4e") scale !scaleb \
[.6X.6](lays elecv) insert (dd "/arch/e-fl2x2") scale !scaleb \
[6X6NIGHT](lays elecv) insert (dd "/arch/e-fl2x2n") scale !scaleb \
[6X6EMERG](lays elecv) insert (dd "/arch/e-fl2x2e") scale !scaleb \
[.3X2.4](lays elecv) insert (dd "/arch/e-fl1x8") scale !scaleb \
[3X2.4NHT](lays elecv) insert (dd "/arch/e-fl1x8n") scale !scaleb \
[3X2.4EMG](lays elecv) insert (dd "/arch/e-fl1x8e") scale !scaleb \
[.6X1.2](lays elecv) insert (dd "/arch/e-fl2x4") scale !scaleb \
[6X1.2NHT](lays elecv) insert (dd "/arch/e-fl2x4n") scale !scaleb \
[6X1.2EMG](lays elecv) insert (dd "/arch/e-fl2x4e") scale !scaleb \

[OTHER](lays elecv);(nl symins "/cci/symins")(symins "/arch/e-fluor");
**eleclite 3
[incandst]$i=ieleclite $i=*

[LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");

[LIGHT 1](lays elecv) insert (dd "/arch/e-l1") scale !scale1;
[WALL](lays elecv) insert (dd "/arch/e-lw") scale !scale1;
[WALL EM](lays elecv) insert (dd "/arch/e-lwem") scale !scale1;
[LIGHT 2](lays elecv) insert (dd "/arch/e-l2") scale !scale1;
[L2 EM](lays elecv) insert (dd "/arch/e-l2em") scale !scale1;
[EXIT 1](lays elecv) insert (dd "/arch/e-exit1") scale !scale1;
[EXIT 2](lays elecv) insert (dd "/arch/e-exit2") scale !scale1;
**elecout 3
[outlets]$i=ielecout $i=*

[LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");

[SINGLE](lays elecv) insert (dd "/arch/e-single") scale !scale1;
[DUPLEX](lays elecv) insert (dd "/arch/e-duplex") scale !scale1;
[DUPSPL](lays elecv) insert (dd "/arch/e-dupspl") scale !scale1;
[220](lays elecv) insert (dd "/arch/e-220r") scale !scale1;
[QUAD](lays elecv) insert (dd "/arch/e-quadr") scale !scale1;
**elecswit 3
[switches]$i=ielecswit $i=*

[LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");

[1 WAY](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\1;
[2 WAY](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\2;
[3 WAY](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\3;
[4 WAY](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\4;
[OTHER](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\\
**electel 3
[phone]$i=ielectel $i=*

[LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");

[TELE 1](lays elecv) insert (dd "/arch/e-tele") scale !scale1;
[TELE 2](lays elecv) insert (dd "/arch/e-tele2") scale !scale1 \\\(ARH);
**elecemer 3
[emergncy]$i=ielecemer $i=*

[LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");

[EMER1](lays elecv) insert (dd "/arch/e-emer1") scale !scale1;
[EMSQR1](lays elecv)(nl symins "/cci/symins")(symins "/arch/e-emsqr1");
[EMSQR](lays elecv)(nl symins "/cci/symins")(symins "/arch/e-emsqr");
**electrack 3
[track]$i=ielectrack $i=*
[lighting]$i=ielectrack $i=*

[LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");

[ 3'](lays elecv) insert (dd "/arch2d/e-track3") scale !scaleb \
[ 4'](lays elecv) insert (dd "/arch2d/e-track4") scale !scaleb \
[ 6'](lays elecv) insert (dd "/arch2d/e-track6") scale !scaleb \
[ 8'](lays elecv) insert (dd "/arch2d/e-track8") scale !scaleb \
[ 10'](lays elecv) insert (dd "/arch2d/e-track1") scale !scaleb \
[ 12'](lays elecv) insert (dd "/arch2d/e-track2") scale !scaleb \
**ELECMISC 3
[miscelec]$i=ielecmisc $i=*
[LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
[JUNC BOX](lays elecv) insert (dd "/arch/e-junct") scale !scale1;
[BELL](lays elecv) insert (dd "/arch/e-bell") scale !scale1;
[BUZZER](lays elecv) insert (dd "/arch/e-buzzer") scale !scale1;
[HORN](lays elecv) insert (dd "/arch/e-horn") scale !scale1;
[DIMMER](lays elecv) insert (dd "/arch/e-dimmer") scale !scale1;
[STARTMAN](lays elecv) insert (dd "/arch/e-strman") scale !scale1;
[STARTMAG](lays elecv) insert (dd "/arch/e-strmag") scale !scale1;
[STARTCOM](lays elecv) insert (dd "/arch/e-strcom") scale !scale1;
[CIRCUITB](lays elecv) insert (dd "/arch/e-cirbrk") scale !scale1;
[JUNCTSP](lays elecv) insert (dd "/arch/e-jnctsp") scale !scale1;
[THERMOST](lays elecv) insert (dd "/arch/e-thermo") scale !scale1;
[PANEL BD](lays elecv) insert (dd "/arch/e-panelb") scale !scale1;
[MOTOR](lays elecv) insert (dd "/arch/e-motor") scale !scale1;
[TV](lays elecv) insert (dd "/arch/e-tv") scale !scale1;
[SPEAKER](lays elecv) insert (dd "/arch/e-speakr") scale !scale1;
**structural 3
[struct](princ " No Icon Available ")(princ);

[STEEL]$s=x $s=struct
[METSTUD](if metric (progn (menucmd "s=x")(menucmd "s=metalstudm")(menucmd "i=imetalstudm")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=metalstud")(menucmd "i=imetalstud")(menucmd "i=*")))(princ);
[MASONRY]$s=x $s=masonry
[WOOD]$s=x $s=wood
[CONCRETE]$s=x $s=conc
[REBARS]$s=x $s=rebars
[CONSDET]$s=x $s=consdet
[DETMISC]$s=x $s=detmisc
[COLUMNS]$s=x $s=colins
**STRUCT 3
[struct]$i=istruct $i=*
[shapes]$i=istruct $i=*

[WELDING](nl "" "/archp/weld");

[I BEAM](nl "" "/archp/ibeam");
[T BEAM](nl "" "/archp/stee");
[C CHANNL](nl "" "/archp/channel");
[ANGLE](nl "" "/archp/sangle");
[PIPE](nl "" "/archp/spipe");
[TUBE](nl "" "/archp/stube");
**MASONRY 3
[masonry]$i=imasonry $i=*

[MASBLK1]insert (dd "/archd/mpa10808") scale !scaleb;
[MASBLK2]^c^cinsert (dd "/archd/mpa20808") scale !scaleb;
[MASBLK3]^c^cinsert (dd "/archd/mpa30808") scale !scaleb;
[MASBLK4]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa1")(princ);
[MASBLK5]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa2")(princ);
[MASBLK6]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa3")(princ);
[MASBLK7]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr1")(princ);
[MASBLK8]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr2")(princ);
[MASBLK9]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr3")(princ);
[MASBLK10]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk1m"))(progn (menucmd "s=x")(menucmd "s=masblk1")))(princ);(setq temp "mea1")(princ);
[MASBLK11]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk1m"))(progn (menucmd "s=x")(menucmd "s=masblk1")))(princ);(setq temp "mer1")(princ);

[JOINTtyp]^c^c(if metric (progn (menucmd "s=x")(menucmd "s=masblk3m"))(progn (menucmd "s=x")(menucmd "s=masblk3")))(princ);$s=x $s=masblk3 (setq temp "mj")(princ);

[HATCH]^C^C$i=imashat $i=*
**MASBLK1 3
[masonry]
[ 4 x 8]insert (dd (strcat "/archd/" temp "0408"));\!scaleb;;
[ 6 x 8]insert (dd (strcat "/archd/" temp "0608"));\!scaleb;;
[ 8 x 8]insert (dd (strcat "/archd/" temp "0808"));\!scaleb;;
[10 x 8]insert (dd (strcat "/archd/" temp "1008"));\!scaleb;;
[12 x 8]insert (dd (strcat "/archd/" temp "1208"));\!scaleb;;
**MASBLK1M 3
[masonry]
[ .1 x .2 ]insert (dd (strcat "/archd/" temp "0408"));\!scaleb;;
[ .15 x .2]insert (dd (strcat "/archd/" temp "0608"));\!scaleb;;
[ .2 x .2 ]insert (dd (strcat "/archd/" temp "0808"));\!scaleb;;
[ .25 x .2]insert (dd (strcat "/archd/" temp "1008"));\!scaleb;;
[ .3 x .2 ]insert (dd (strcat "/archd/" temp "1208"));\!scaleb;;
**MASBLK2 3
[masonry]
[ 4 x 16]insert (dd (strcat "/archd/" temp "0416"));\!scaleb;;
[ 6 x 16]insert (dd (strcat "/archd/" temp "0616"));\!scaleb;;
[ 8 x 16]insert (dd (strcat "/archd/" temp "0816"));\!scaleb;;
[10 x 16]insert (dd (strcat "/archd/" temp "1016"));\!scaleb;;
[12 x 16]insert (dd (strcat "/archd/" temp "1216"));\!scaleb;;
**MASBLK2M 3
[masonry]
[ .1 x .4 ]insert (dd (strcat "/archd/" temp "0416"));\!scaleb;;
[ .15 x .4]insert (dd (strcat "/archd/" temp "0616"));\!scaleb;;
[ .2 x .4 ]insert (dd (strcat "/archd/" temp "0816"));\!scaleb;;
[ .25 x .4]insert (dd (strcat "/archd/" temp "1016"));\!scaleb;;
[ .3 x .4 ]insert (dd (strcat "/archd/" temp "1216"));\!scaleb;;
**MASBLK3 3
[masonry]
[ joint]
[8-FLUSH]insert (dd (strcat "/archd/" temp "08flsh"));\!scaleb;;
[8-RODDED]insert (dd (strcat "/archd/" temp "08rodd"));\!scaleb;;
[8-STRIKE]insert (dd (strcat "/archd/" temp "08strk"));\!scaleb;;
[8-BATTRD]insert (dd (strcat "/archd/" temp "08batr"));\!scaleb;;
[8-SETBAK]insert (dd (strcat "/archd/" temp "08stbk"));\!scaleb;;
[8-VEE]insert (dd (strcat "/archd/" temp "08vee"));\!scaleb;;
**MASBLK3M 3
[masonry]
[ joint]
[.2FLUSH]insert (dd (strcat "/archd/" temp "08flsh"));\!scaleb;;
[.2RODDED]insert (dd (strcat "/archd/" temp "08rodd"));\!scaleb;;
[.2STRIKE]insert (dd (strcat "/archd/" temp "08strk"));\!scaleb;;
[.2BATTRD]insert (dd (strcat "/archd/" temp "08batr"));\!scaleb;;
[.2SETBAK]insert (dd (strcat "/archd/" temp "08stbk"));\!scaleb;;
[.2VEE]insert (dd (strcat "/archd/" temp "08vee"));\!scaleb;;
**WOOD 3
[wood det]$i=iwood $i=*

[WOODBEAM](nl "" "/archp/swood");
[WOODSECT]^C^C(if metric (progn (menucmd "s=x")(menucmd "s=woodsectm"))(progn (menucmd "s=x")(menucmd "s=woodsect")))(princ);(nl "" "/archp/woodsec");
[WOODSIDE]^C^C(if metric (progn (menucmd "s=x")(menucmd "s=woodelevm"))(progn (menucmd "s=x")(menucmd "s=woodelev")))(princ);(nl "" "/archp/woodside");

[hatches]
[WOOD 2]^C^Chatch wood2 \\\
[WOOD 3]^C^Chatch wood3 \\\
[WOOD 4]^C^Chatch wood4 \\\
[WOOD 8]^C^Chatch wood8 \\\

[HATWALL](nl "" "/archp/hatwall");
**WOODSECT 3
[nominal]
[sections]
[ 2 X 4  ]1.5;3.5;$s= $s=
[ 2 X 6  ]1.5;5.5;$s= $s=
[ 2 X 8  ]1.5;7.25;$s= $s=
[ 2 X 10 ]1.5;9.25;$s= $s=
[ 2 X 12 ]1.5;11.25;$s= $s=
[ 4 X 4  ]3.5;3.5;$s= $s=
[ 4 X 6  ]3.5;5.5;$s= $s=
[ 4 X 8  ]3.5;7.25;$s= $s=
[ 4 X 10 ]3.5;9.25;$s= $s=
[ 4 X 12 ]3.5;11.25;$s= $s=

[ OTHER  ]^C^C(setq tempa (getreal "Enter thickness: "));\(setq tempb (getreal "Enter width: "));\(nl "" "/archp/woodsec");!tempa;!tempb;
**WOODSECTM 3
[nominal]
[sections]
[.05x.1]0.05;.1;$s= $s=
[.05x.15].05;.15;$s= $s=
[.05x.2].05;.2;$s= $s=
[.05x.25].05;.25;$s= $s=
[.05x.3].05;.3;$s= $s=
[.1x.1].1;.1;$s= $s=
[.1x.15].1;.15;$s= $s=
[.1x.2].1;.2;$s= $s=
[.1x.25].1;.25;$s= $s=
[.1x.3].1;.3;$s= $s=

[ OTHER  ]^C^C(setq tempa (getreal "Enter thickness: "));\(setq tempb (getreal "Enter width: "));\(nl "" "/archp/woodsec");!tempa;!tempb;
**WOODELEV 3
[nominal]
[size]
[ 2 ]1.5;$s= $s=
[ 4 ]3.5;$s= $s=
[ 6 ]5.5;$s= $s=
[ 8 ]7.25;$s= $s=
[ 10]9.25;$s= $s=
[ 12]11.25;$s= $s=
**WOODELEVM 3
[nominal]
[size]
[ 0.05].05;$s= $s=
[ 0.1 ].1;$s= $s=
[ 0.15]0.15;$s= $s=
[ 0.2].2;$s= $s=
[ 0.25].25;$s= $s=
[ 0.3].3;$s= $s=
**metalstud 2
[metstuds]$i=imetalstud $i=*
[ Stud 1]^C^C(nl metstud "/archp/metstud")(metstud "stud1");
[ Stud 2]^C^C(nl metstud "/archp/metstud")(metstud "stud2");
[ Stud 3]^C^C(nl metstud "/archp/metstud")(metstud "stud3");
[ Stud 4]^C^C(nl metstud "/archp/metstud")(metstud "stud4");

[ 1-5/8]^C^Cinsert (dd "/archd/mstud158") scale !scaleb \
[ 2-5/8]^C^Cinsert (dd "/archd/mstud258") scale !scaleb \
[ 3]^C^Cinsert (dd "/archd/mstud3") scale !scaleb \
[ 3-5/8]^C^Cinsert (dd "/archd/mstud358") scale !scaleb \
[ 6]^C^Cinsert (dd "/archd/mstud6") scale !scaleb \
[FURRING]^C^Cinsert (dd "/archd/mfurr") scale !scaleb \
[RUN1-5/8]^C^Cinsert (dd "/archd/mrun158") scale !scaleb \
[ 2-5/8]^C^Cinsert (dd "/archd/mrun258") scale !scaleb \
[ 3]^C^Cinsert (dd "/archd/mrun3") scale !scaleb \
[ 3-5/8]^C^Cinsert (dd "/archd/mrun358") scale !scaleb \
[ 6]^C^Cinsert (dd "/archd/mrun6") scale !scaleb \
[DOORBUCK]$s=x $s=metalbuck $i=imetalbuck $i=*
**metalbuck 3
[ door]$i=imetalbuck $i=*
[ bucks]

[ 2-5/8]^C^Cinsert (dd "/archd/dwbuck25") scale !scaleb \
[ 3]^C^Cinsert (dd "/archd/dwbuck3") scale !scaleb \
[ 3-1/2]^C^Cinsert (dd "/archd/dwbuck35") scale !scaleb \
[ 5-1/2]^C^Cinsert (dd "/archd/dwbuck55") scale !scaleb \
[ 6]^C^Cinsert (dd "/archd/dwbuck6") scale !scaleb \
**metalstudm 2
[metstuds]$i=imetalstudm $i=*
[ Stud 1]^C^C(nl metstud "/archp/metstud")(metstud "stud1");
[ Stud 2]^C^C(nl metstud "/archp/metstud")(metstud "stud2");
[ Stud 3]^C^C(nl metstud "/archp/metstud")(metstud "stud3");
[ Stud 4]^C^C(nl metstud "/archp/metstud")(metstud "stud4");

[ 0.0413]^C^Cinsert (dd "/archd/mstud158") scale !scaleb \
[ 0.0667]^C^Cinsert (dd "/archd/mstud258") scale !scaleb \
[ 0.0762]^C^Cinsert (dd "/archd/mstud3") scale !scaleb \
[ 0.0921]^C^Cinsert (dd "/archd/mstud358") scale !scaleb \
[ 0.1524]^C^Cinsert (dd "/archd/mstud6") scale !scaleb \
[FURRING]^C^Cinsert (dd "/archd/mfurr") scale !scaleb \
[RUN.0413]^C^Cinsert (dd "/archd/mrun158") scale !scaleb \
[ 0.0667]^C^Cinsert (dd "/archd/mrun258") scale !scaleb \
[ 0.0762]^C^Cinsert (dd "/archd/mrun3") scale !scaleb \
[ 0.0921]^C^Cinsert (dd "/archd/mrun358") scale !scaleb \
[ 0.1524]^C^Cinsert (dd "/archd/mrun6") scale !scaleb \
[DOORBUCK]$s=x $s=metalbuckm $i=imetalbuckm $i=*
**metalbuckm 3
[ door]$i=imetalbuckm $i=*
[ bucks]

[ 0.0667]^C^Cinsert (dd "/archd/dwbuck25") scale !scaleb \
[ 0.0762]^C^Cinsert (dd "/archd/dwbuck3") scale !scaleb \
[ 0.0889]^C^Cinsert (dd "/archd/dwbuck35") scale !scaleb \
[ 0.1397]^C^Cinsert (dd "/archd/dwbuck55") scale !scaleb \
[ 0.1524]^C^Cinsert (dd "/archd/dwbuck6") scale !scaleb \
**CONC 3
[concrete]$i=icono $i=*

[CONCBEAM]^C^C(nl "" "/archp/cbeam");
[CONCSLAB]^C^C(nl "" "/archp/cslab");
[CONCWALL]^C^C(nl "" "/archp/footing");

[HATCH1]^C^Chatch conc;
[HATCH2]^C^Chatch stipple

[CONCPATN]^C^Cinsert (dd "/archd/conc");
[CONCPAT1]INSERT (dd "/arch/concrete") \\

[joint]
[CENTERD]^C^C(nl "" "/archp/cjoint") y;n;n;
[FRMD]^C^C(nl "" "/archp/cjoint") n;y;n;
[EXPANTN]^C^C(nl "" "/archp/cjoint") n;n;y;
**rebars 3
[rebar]$i=irebars $i=*
[RBARLINE]^C^c$s=x $s=rbarline
[RBARBEND]^C^c$s=x $s=rbarend

[details]
[1A]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");1A;
[2A]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2A;
[2B]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2B;
[2C]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2C;
[2D]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2D;
[3A]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3A;
[3B]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3B;
[3C]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3C;
[3D]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3D;
[4A]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4A;
[4B]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4B;
[4C]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4C;
**RBAREND 3
[rebar](princ " No Icon Available ")(princ);
[ ends](princ " No Icon Available ")(princ);

[ #3  ]insert (dd "/cci/dot") scale (* scalem 0.375) \;
[ #4  ]insert (dd "/cci/dot") scale (* scalem 0.5) \;
[ #5  ]insert (dd "/cci/dot") scale (* scalem 0.625) \;
[ #6  ]insert (dd "/cci/dot") scale (* scalem 0.75) \;
[ #7  ]insert (dd "/cci/dot") scale (* scalem 0.875) \;
[ #8  ]insert (dd "/cci/dot") scale (* scalem 1) \;
[ #9  ]insert (dd "/cci/dot") scale (* scalem 1.125) \;
[ #10 ]insert (dd "/cci/dot") scale (* scalem 1.25) \;
[ #11 ]insert (dd "/cci/dot") scale (* scalem 1.375) \;
[ #12 ]insert (dd "/cci/dot") scale (* scalem 1.5) \;
[ #13 ]insert (dd "/cci/dot") scale (* scalem 1.625) \;
[ #14 ]insert (dd "/cci/dot") scale (* scalem 1.75) \;

[LINES]^C^C$s=x $s=rbarline
**RBARLINE 3
[rebar](princ " No Icon Available ")(princ);
[lines](princ " No Icon Available ")(princ);

[ #3  ]pline \w (* scalem 0.375) ;
[ #4  ]pline \w (* scalem 0.5) ;
[ #5  ]pline \w (* scalem 0.625) ;
[ #6  ]pline \w (* scalem 0.75) ;
[ #7  ]pline \w (* scalem 0.875) ;
[ #8  ]pline \w (* scalem 1) ;
[ #9  ]pline \w (* scalem 1.125) ;
[ #10 ]pline \w (* scalem 1.25) ;
[ #11 ]pline \w (* scalem 1.375) ;
[ #12 ]pline \w (* scalem 1.5) ;
[ #13 ]pline \w (* scalem 1.625) ;
[ #14 ]pline \w (* scalem 1.75) ;

[BEND]^C^C(nl "" "/archp/rbarbend");
[ENDS]^C^c$s=x $s=rbarend
**REBARRAD 3
[radius]
[size]
[ 0.0]0.0;
[ 1.0](* scalem 1.0);
[ 2.0](* scalem 2.0);
[ 3.0](* scalem 3.0);
[ 4.0](* scalem 4.0);

[bar]
[size]
[  3]3;
[  4]4;
[  5]5;
[  6]6;
[  7]7;
[  8]8;
**detmisc 3
[misc det]$i=idetmisc $i=*

[ANCBOLT]insert (dd "/archd/ancbolt") scale !scaleb \
[GROUND]insert (dd "/archd/ground") scale !scaleb \

[hatchs]
[GRAVEL]^C^Chatch gravl1;
[EARTH]^C^Chatch earth;
[EARTH 2]^C^Chatch earth2;
[GLASS]^C^Chatch glass;
[SCREEN]^C^Chatch screen;
[OCTAGON]^C^Chatch octagon;
**sprink 3
[sprinklr](princ " No Icon Available ")(princ);

[HEAD](lays "spk") INSERT (dd "/arch/sprinkle") scale !scale1;

[PIPETEXT](nl "" "/archp/sprink");

[SPRNKtag](nl "" "/archp/spkcall") spkcall;
**colins 3
[column]$i=icolins $i=*
[grid lay]$i=icolins $i=*

[LMODCOLM](set 'temp 'columnv)(nl "" "/cci/layermod");
[LMODGRID](set 'temp 'colgridv)(nl "" "/cci/layermod");

[COL NUM](lays columnv) insert (dd "/arch/colnum") scale !scale1;
[BUBINSRT](nl "" "/archp/colinsrt");
[COLGRID](nl "" "/archp/colgrid");

[RECTANG](lays columnv) insert (dd "/cci/rectangc");
[ROUND](lays columnv) circle;
[IBEAM](lays columnv) (nl "" "/archp/ibeam");
**CEILING 3
[ceiling]$i=iceiling $i=*

[LMODCEIL](set 'temp 'ceilv)(nl "" "/cci/layermod");

[SIMPLE](nl "" "/archp/ceilgrid");
[DRAW](nl "" "/archp/ceilhat");
[PICK](nl "" "/archp/ceilhatp");
[POLYLINE](nl "" "/archp/ceilpick");

[SPEAKER](lays ceilv) insert (dd "/arch/speaker") scale !scale1;
[SMOKEDET](lays ceilv) insert (dd "/arch/smoke") scale !scale1;
[SPRNKLER]$s=x $s=sprink
[HVAC](if metric (progn (menucmd "s=x")(menucmd "s=hvacm"))(progn (menucmd "s=x")(menucmd "s=hvac")))(princ);
[CEILMISC]$s=x $s=ceilmisc
**ceilmisc 3
[misc]$i=iceilmisc $i=*
[ceiling]$i=iceilmisc $i=*

[ FAN 42](lays ceilv) insert (dd3 "/cfan42") scale !scaleb \
[ FAN 48](lays ceilv) insert (dd3 "/cfan48") scale !scaleb \
[ EXIT](lays elecv) insert (dd "/arch/e-exit1") scale !scale1;
**DIM 2
[LAYERMOD](set 'temp 'DIMLAYV)(nl "" "/cci/layermod")(lays dimlayv);
[DIM:]^C^C$i=idim1 $i=* dim;
[DIM1:]^C^CDIM1;
[DIMCHK](nl "" "/cci/dimchk");
[DATUM](nl c:ddim "/cci/datumdim") DDIM;
[ST2DIM](nl "" "/cci/st2dim");
[Linear]$S=X $S=DIMLINEAR
[AssocDIM]$S=X $S=FORMAT
[Angular]ANG;
[Diametr]DIAM;
[Radius]RAD;
[Center]CENTER;
[Leader]$i=iballoon $i=*
[Dim Vars]$S=X $S=VAR1
[Redraw]'REDRAW;
[Status]STAT;
[Undo]UNDO;
[Style]STYLE;
**SETUP 3
[SETUP](nl "" "/cci/setupnew");

[edit]
[scripts]
[TEXT SCR](nl "" "/cci/edtext")(text1);
[DIM SCR](nl "" "/cci/eddim")(dim1);
[LAY SCR](nl "" "/cci/edlay");

[reload]
[LAYERS](nl "" "/cci/chglayer")(layer1 "/cci/layers.txt");
[redefine]
[ SCALE](nl "" "/cci/chgsize")(chgscale);

[TABLET]$S=X $S=TABLET ^C^CTABLET;
**SETUPM 3
[SETUP](nl "" "/cci/setupnew");

[UNITBASE]^C^C(nl "" "/cci/unitbase")(unitbase);

[edit]
[scripts]
[TEXT SCR](nl "" "/cci/edtext")(text1);
[DIM SCR](nl "" "/cci/eddim")(dim1);
[LAY SCR](nl "" "/cci/edlay");

[reload]
[LAYERS](nl "" "/cci/chglayer")(layer1);
[redefine]
[ SCALE](nl "" "/cci/chgsize")(chgscale);

[TABLET]$S=X $S=TABLET ^C^CTABLET;
**CHGTEXT
[ED TEXT](nl c:chgtext "/cci/chgtext") chgtext;

[ <--]
[ -->]

[DELETE>]
[<DELETE]

[INSERT]

[EXIT]
**PLOT 2
[PLOT    ]PLOT;
[PRPLOT  ]PRPLOT;
[--------]
[  plot  ]
[ scripts]

[1](nl "" "/cci/plot") plot1
[2](nl "" "/cci/plot") plot2
[3](nl "" "/cci/plot") plot3
[4](nl "" "/cci/plot") plot4
[5](nl "" "/cci/plot") plot5
[Other](nl "" "/cci/plot") OTHER

[SAMEplot]script (strcat drive "/cci/plottemp");
[--------]
[MAKEBOX](nl "" "/cci/plotbox1");
[USEBOX](nl "" "/cci/plotbox2");
[PLOTMORE](nl "" "/cci/plotmore");
**PLOT1 3

[ plot]
[ scale]
[--------]

[AUTO]AUTO
[SELECT]SELECT

[--------]
**BL 3
[ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF;
[BASE:]^C^CBASE;
[BLOCK:]$S=X $S=BLOCK ^C^CBLOCK;
[INSERT:]$S=X $S=INSERT ^C^CINSERT;
[MINSERT:]$S=X $S=INSERT ^C^CMINSERT;
[WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK;

[ATT CONT]$s=x $s=attcontrol
[EXTRACT]$s=x $s=attext
**DS 3
[ATTDISP:]$S=X $S=ATTCONTROL ^C^CATTDISP;
[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);
[LAYREGEN](nl laregen "/cci/laregen")(laregen "");
[PAN:]'PAN;
[PLAN:]$S=X $S=PLAN ^C^CPLAN;
[REDRAW:]'REDRAW;
[REDRALL:]'REDRAWALL;
[REGEN:](nl zooma "/cci/zooma")(zooma);
[REGNALL:]^C^CREGENALL;
[RGNAUTO:]^C^CREGENAUTO;
[VIEW:]$S=X $S=VIEW 'VIEW;
[VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES;
[VPOINT:]$S=X $S=VPOINT VPOINT;
[VPORTS:]$S=X $S=VPORTS VPORTS;
[ZOOM:]$S=X $S=ZOOM 'ZOOM;
**DR 3
[ARC]$S=X $S=ARC
[BOX](nl "" "/cci/box");
[CIRCLE]$S=X $S=CIRCLE
[DONUT:]^C^CDONUT;
[ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE;
[HATCH:]$S=X $S=HATCH ^C^CHATCH;
[LINE:]$S=X $S=LINE ^C^CLINE;
[PLINE:]$S=X $S=PLINE ^C^CPLINE;
[POINT:]$S=X $S=POINT ^C^CPOINT;
[POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON;
[SHAPE:]$S=X $S=SHAPE ^C^CSHAPE;
[SKETCH:]$S=X $S=SKETCH ^C^CSKETCH;
[SLOT](nl "" "/cci/slot");
[SOLID:]$S=X $S=SOLID ^C^CSOLID;
**ED 3
[ARRAY:]$S=X $S=ARRAY ^C^CARRAY;
[ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT;
[DDATTE:]^C^CDDATTE;
[BREAK:]$S=X $S=BREAK ^C^CBREAK;
[CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER;
[CHANGE:]$S=X $S=CHANGE ^C^CCHANGE;
[CHPROP:]$S=X $S=CHPROP ^C^CCHPROP;
[COPY:]$S=X $S=COPY ^CCOPY;
[DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE;
[ERASE:]$S=X $S=ERASE ^C^CERASE;
[EXPLODE:]$s=x $s=explode ^C^CEXPLODE;
[EXTEND:]$S=X $S=EXTEND ^C^CEXTEND;
[FILLET:]$S=X $S=FILLET ^C^CFILLET;
[MEASURE:]$S=X $S=MEASURE ^C^CMEASURE;

[next]$S=X $S=ED2
**ED2 3
[MIRROR:]$S=X $S=MIRROR ^C^CMIRROR;
[MOVE:]$S=X $S=MOVE ^C^CMOVE;
[OFFSET:]$S=X $S=OFFSET OFFSET;
[PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
[ROTATE:]$S=X $S=ROTATE ^C^CROTATE;
[SELECT:]$S=X $S=SELECT SELECT;
[SCALE:]$S=X $S=SCALE ^C^CSCALE;
[STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C;
[TRIM:]$S=X $S=TRIM ^C^CTRIM;
[UNDO:]$S=X $S=UNDO ^C^CUNDO;




[previous]$S=X $S=ED
**INQ 3
[AREA:]$S=X $S=AREA ^C^CAREA;
[DBLIST:]^CDBLIST;
[DIST:]$S=X $S=DIST ^C^CDIST;
[HELP:]HELP;
[ID:]^C^CID;
[LIST:]$S=X $S=LIST ^C^CLIST;
[STATUS:]^C^CSTATUS;
[TIME]$s=x $s=time
**SET 3
[APERTURE]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
[COLOR:]$S=X $S=COLOR ^C^CCOLOR;
[COORDS];
[ELEV:]$S=X $S=3dthick ^C^CELEV;
[GRID:](if metric (progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);^C^CGRID;
[HANDLES:]$S=X $S=HANDLE ^C^CHANDLES;
[LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE;
[LTSCALE:]^C^CLTSCALE;
[ORTHO]
[STYLE:]$S=X $S=STYLE ^C^CSTYLE;
[UCS:]$S=X $S=UCS1 ^C^CUCS
[UCSICON:]$S=X $S=UCSICON ^C^CUCSICON
[VPORTS:]$S=X $S=VPORTS ^C^CVPORTS

[more]$S=X $S=SET2
**SET2 2
[ATRIBUTE]$S=X $S=ATTCONTROL
[AXIS:]$S=X $S=AXIS ^C^CAXIS;
[BLIPS](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))+
(progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))(PRINC);
[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);
[LIMITS:]^C^CLIMITS;
[OSNAP:]$S=X $S=OSNAPC ^C^COSNAP;
[SETVAR:]$S=X $S=SETVAR ^C^CSETVAR;
[SNAP:]$S=X $S=SNAP ^C^CSNAP;
[TABLET:]$S=X $S=TABLET ^C^CTABLET;
[UNITS:]^CUNITS;

[DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE;
[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);
[REGNAUTO](if (= (getvar "regenmode") 1)(progn (setvar "regenmode" 0)(prompt "Regenauto OFF")(princ))(progn (setvar "regenmode" 1)(prompt "Regenauto ON")(princ)))
[VIEWRES:]$S=X $S=VIEWRES VIEWRES Y;
[more]$S=X $S=SET
**UT 2
[SAVE]save;
[END]$S=X $S=END
[QUIT]$S=X $S=QUIT

[PLOT]^C^C$S=X $S=PLOT

[ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT;
[DAYSTAMP](nl "" "/cci/daystamp");
[DXF/IGES]$S=X $S=DXF;
[Editfile]ws;
[Listfile]ty;
[FILES:]^C^CFILES;
[MENU:]^C^CMENU MENU;
[PURGE:]$S=X $S=PURGE ^C^CPURGE;
[RENAME:]$S=X $S=RENAME ^C^CRENAME;
[SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT;
[SHELL]$S=X $S=EXCOMDS
[SLIDES]$S=X $S=SLIDES
**OSNAP 3
[CENter]CENTER $S= $S=
[ENDpoint]ENDPOINT $S= $S=
[INSert]INSERT $S= $S=
[INTersec]INTERSEC $S= $S=
[MIDpoint]MIDPOINT $S= $S=
[NEArest]NEAREST $S= $S=
[NODe]NODE $S= $S=
[PERpend]PERPEND $S= $S=
[QUAdrant]QUADRANT $S= $S=
[TANgent]TANGENT $S= $S=

[Quick,]QUICK,^Z

[NONE]NONE $S= $S=
**OSNAPB 3
[CENter]CENTER $S=
[ENDpoint]ENDPOINT $S=
[INSert]INSERT $S=
[INTersec]INTERSEC $S=
[MIDpoint]MIDPOINT $S=
[NEArest]NEAREST $S=
[NODe]NODE $S=
[PERpend]PERPEND $S=
[QUAdrant]QUADRANT $S=
[QUICK,]QUICK,^Z
[TANgent]TANGENT $S=
[NONE]NONE $S=
[REF PT](nl off "/cci/off")(off) \ $S=
[U:]^C^CU $S=
[REDO:]^C^CREDO $S=
[REDRAW:]^C^CREDRAW (savechk);$S=
['SETVAR]'SETVAR $S=
[  HELP  ]$S= 'help
**BLOCK 3
[BLOCK:]^C^CBLOCK;
[?]BLOCK ?;

[Auto]auto;
[Single]Single;
[Window]Win;
[Last]Las;
[Previous]Pr;
[Crossing]Cr;
[Remove]Re;
[Add]Ad;
[Yes]Yes;

[OOPS]^C^COOPS;
[BASE]base;
["RAW"MOD]$s=x $s=attrawmod
[Makeblks](nl makeblk "/cci/makeblk")(makeblk);
**INSERT 3
[INSERT:]^C^CINSERT;
[MINSERT:]^C^CMINSERT;
[ ?]INSERT ?;
[ *]*

[ corner]CORNER;
[ xyz]XYZ;
[ Scale]scale;
[ Xscale]xscale;
[ Yscale]yscale;
[ Zscale]zscale;
[ Rotate]rota;
[PRELIM]$s=x $s=prelim

[PICKBLK]cb;
[ATT CONT]$s=x $s=attcontrol
[Userblks]$i=userblk $i=*
**PRELIM 3
[prelim]

[PScale]Pscale;
[PXscale]Pxscale;
[PYscale]Pyscale;
[PZscale]Pzscale;
[PRotate]Prota;
**WBLOCK 3
[WBLOCK:]^C^Cw;
[*]*

[Auto]auto;
[Single]Single;
[Window]Win;
[Last]Las;
[Previous]Pr;
[Crossing]Cr;
[Remove]Re;
[Add]Ad;

[OOPS]^C^COOPS;
[BASE]base;
["RAW"MOD]$s=x $s=attrawmod
[Makeblks](nl makeblk "/cci/makeblk")(makeblk);
**DIMLINEAR 3
[DIM:]^C^CDIM;
[DIM1:]^C^CDIM1;
[Horiz]HORIZ;
[Vrtical]VERT;
[Aligned]ALI;
[Rotated]ROT;
[Baselin]BASE;
[Continu]CONT;
[Hometext]HOMETEXT;
[Update]UPDATE;
[Newtext]NEWTEXT;
[SCRIPT 1]SCRIPT (dd "/cci/dim1");
[SCRIPT 2]SCRIPT (dd "/cci/dim2");
[DimVARS]$s=x $s=var1
[DimMENU]$S=X $S=DIM
[AssocDIM]$S=X $S=FORMAT
**ATTDEF 3
[ATTDEF:]^C^CATTDEF;

[Invis]Inv;
[Constant]CONSTANT;
[Verify]Ver;
[Preset]preset;

[Aligned]Ali;
[Centered]Ce;
[Fit]Fit;
[Middle]Mi;
[Right]Ri;
[Style]Sty;

["RAW"MOD]$s=x $s=attrawmod
**ATTCONTROL 3
[atribute]
[controls]

[DIALOG ](if (= (getvar "ATTDIA") 0)(PROGN (setvar "ATTDIA" 1)(PRINC " Dialog box for attribute entry. "))(progn (setvar "ATTDIA" 0)(PRINC " Normal attribute prompts. ")))(princ);
[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);
[ATTDISP:]^C^CATTDISP;
[ normal]Nor;
[ ON]ON;
[ OFF]OFF;

["RAW"MOD]$s=x $s=attrawmod
[EXTRACT]$s=x $s=attext
**ATTRAWMOD 3
[ change ]
[ "raw"  ]
[attribut]
[   to...]

[NORMAL  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 0) (assoc 70 temp) temp))(princ);
[INVISIBL](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 1) (assoc 70 temp) temp))(princ);
[CONSTANT](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 2) (assoc 70 temp) temp))(princ);
[VERIFY  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 4) (assoc 70 temp) temp))(princ);
[PRESET  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 8) (assoc 70 temp) temp))(princ);
[INVCONST](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 3) (assoc 70 temp) temp))(princ);
[INVVERFY](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 5) (assoc 70 temp) temp))(princ);
[INVPRSET](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 9) (assoc 70 temp) temp))(princ);
[BLANK<>](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 1 "") (assoc 1 temp) temp))(princ);
**LAYER 2
[LAYER:]^C^CLAYER;
[?]LAYER ? * ;
[Make]$S=X $S=LAYER LAYER M;
[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);
[New]layer new;
[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);
[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);
[Pick OFF](nl "" "/cci/layeroff");
[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);
[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);
[Color]LAYER COLOR $S=X $S=LACOLOR \$S=X $S=LAYER
[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=
[Ltype]LAYER LTYPE $S=X $S=LALT \$S=X $S=LAYER
[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) +
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=
[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);
[LAYREGEN](nl laregen "/cci/laregen")(laregen "");
[LASCRIPT](nl "" "/cci/lascript");
[SET 0]layer s 0;;
**LACOLOR 3
[COLOR]

[red]RED;
[yellow]YELLOW;
[green]GREEN;
[cyan]CYAN;
[blue]BLUE;
[magenta]MAGENTA;
[white]WHITE;
[8]8;
[9]9;
[10]10;
[11]11;
[12]12;
[13]13;
[14]14;
[15]15;
**LALT 3
[linetype]

[contin.]CONTINUOUS;
[dashed]DASHED;
[hidden]HIDDEN;
[center]CENTER;
[phantom]PHANTOM;
[dot]DOT;
[dashdot]dashdot;
[border]border;
[divide]divide;
**ZOOM 3
[ZOOM:]'ZOOM;

[All]All;(princ " HINT: VIEW Restore ALL is faster " )(princ);
[Center]Center;
[Dynamic]Dyn;
[Extents]Ext;(princ " HINT: VIEW Restore ALL is faster " )(princ);
[Left]Left;
[Previous]Pre;
[Window]Win;
[In]2x;
[Out].5x;

[Yes]YES;
[No]NO;

[ZOOMIN](nl "" "/cci/zoomin");
[ZMSCALE](nl "" "/cci/zmscale");
**DVIEW 3
[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);

[Single]Single;
[Window]Win;
[Last]Las;
[Previous]Pr;
[Crossing]Cr;
[Remove]Re;
[Add]Ad;

[USEHOUSE]^C^CDVIEW;;

[ Dview ]$S=X $S=DVIEW1
[Options]$S=X $S=DVIEW1
**DVIEW1 3
[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);
[options]

[Points]points;
[Camera]camera;
[Target]target;
[Distance]distance;
[Twist]twist;
[Pan]pan;
[Zoom]zoom;
[Clip]Clip $S=X $S=DVIEW2
[OFF]off;
[Hide]hide;
[Undo]undo;

[Exit]Exit $S=X $S=S
**DVIEW2 3
[clipping]

[ Back]Back \$S=X $S=DVIEW1

[ON]On $S=X $S=DVIEW1
[OFF]Off $S=X $S=DVIEW1

[ Front]Front \$S=X $S=DVIEW1

[ON]On $S=X $S=DVIEW1
[OFF]Off $S=X $S=DVIEW1
[Eye]Eye $S=X $S=DVIEW1
**VPORTS 3
[VPORTS:]^C^CVPORTS;
[*icon*]$i=ivporti $i=*

[Save]sav;
[Restore]restore;
[Delete]delete;
[Join]join;
[SIngle]si;
[?]?;

[2]2 $S=X $S=VP2
[3]3 $S=X $S=VP3
[4]4;

[REDRAWALL]redrawall;
[REGENALL]regenall;
[VPORTSET](nl "" "/cci/ucssetup");
**VP2 3

[Horizont]H $S=X $S=VPORTS
[Vertical]V $S=X $S=VPORTS
**VP3 3

[Horizont]H $S=X $S=VPORTS
[Vertical]V $S=X $S=VPORTS
[Above]A $S=X $S=VPORTS
[Below]B $S=X $S=VPORTS
[Left]L $S=X $S=VPORTS
[Right]R $S=X $S=VPORTS
**VIEW 3
[VIEW:]'VIEW;
[?]?;

[Delete]'VIEW ? 'VIEW D;
[Save]'VIEW ? 'VIEW S;
[Window]'view Win;
[Restore]'VIEW ? 'VIEW R;

[V R all]'view r all;
[V R 1]'view r 1;
[V R 2]'view r 2;
[V R 3]'view r 3;
[V R 4]'view r 4;

[RESTlisp](if (null sdscrn)(setq sdscrn "Y" scrtog 't))(if sdscrn (setq vwlist (gettable "VIEW" ""))(setq vwlist '("")))(princ) +
(if (not (member nil vwlist))(LAYERS "R" vwlist)(PRINC " No Views Saved"))(if scrtog (setq sdscrn nil scrtog nil))(PRINC);
[VIEWSET](nl "" "/cci/views");
**LINE 2
[LINE:]^C^CLINE;
[PTLINE](nl "" "/cci/ptline");
[DLINE](nl c:dl "/cci/dline") dl;
[MLINE](nl c:ml "/cci/mline") ml;
[DOUBLE](nl "" "/cci/dblline");
[SYMBOL]$S=X $S=INSYM $I=IINSYM $I=*
[LINETEXT](nl "" "/cci/instext");

[ @ ]@\
[ < ]<\
[continue]^C^CLINE;;
[close]Close;
[undo]Undo;

[end-end]endp \endp;
[end-mid]endp \midp;
[mid-mid]midp \midp;
[LINELAYR]$s=x $s=setlinel
**setlinel 3
[set to]
[line]
[layer]

[MEDIUM]$s=x $s=line (setq med1v (getstring (strcat " Layer for Med lines <" medv ">: "))) \(if (/= med1v "")(setq medv med1v)) LAYER m !medv  LINE;
[HEAVY]$s=x $s=line (setq heavy1v (getstring (strcat " Layer for Heavy lines <" heavyv ">: "))) \(if (/= heavy1v "")(setq heavyv heavy1v)) LAYER m !heavyv  LINE;
[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;
[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;
[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;
[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;
[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;
[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;
**3DFACE 3
[3DFACE:]^C^C3DFACE;

[.x].X;
[.y].Y;
[.z].Z;
[.xy].XY;
[.xz].XZ;
[.yz].YZ;

[Invisibl](princ "Use before the FIRST endpoint of an edge. Results show when done.")(princ);Invis;

[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);
[EDGEHIDE](nl c:edge "/cci/edge") edge;
[CH FACES](nl c:chface "/cci/chface") chface;
**3DOBJECT 3
[ 3d]
[objects]

[BOX mesh](PRINC "Loading TORUS ")(nl c:torus "/cci/3d") box;
[WEDGE](PRINC "Loading WEDGE ")(nl c:torus "/cci/3d") wedge;
[PYRAMID](PRINC "Loading PYRAMID ")(nl c:pyramid "/cci/3d") pyramid;
[CONE](PRINC "Loading CONE ")(nl c:torus "/cci/3d") cone;
[DOME](PRINC "Loading DOME ")(nl c:torus "/cci/3d") dome;
[DISH](PRINC "Loading DISH ")(nl c:torus "/cci/3d") dish;
[MESH](PRINC "Loading MESH ")(nl c:torus "/cci/3d") mesh;
[SPHERE](PRINC "Loading SPHERE ")(nl c:torus "/cci/3d") sphere;
[TORUS](PRINC "Loading TORUS ")(nl c:torus "/cci/3d") torus;
[TUBE](PRINC "Loading 3DTUBE ")(nl c:3dtube "/cci/3dtube") 3dtube;
[polyTUBE](nl c:tube "/cci/tube") tube;
[BOX face](princ "Loading 3DCUBE ")(nl c:3dcube "/cci/3dcube") 3dcube;
**3DLISP 3
[3d]
[special]

[HOLESLOT](nl c:hole "/cci/hole") hole;
[PROJECT](nl c:project "/cci/project") project;
[FPLOT](nl fplot "/cci/fplot");
[3D MIDPT](nl 3dmid "/cci/3dmid")(3dmid) \
[REF ZANG](nl zangoff "/cci/zangoff")(zangoff) \\\
[REFZDIST](nl zdistoff "/cci/zdistoff")(zdistoff) \\\
[ZANG](nl zang "/cci/zang")(zang) \\
[ZDIST](nl zdist "/cci/zdist")(zdist) \\
**3D 3
[3DPOLY:]^C^C$S=X $S=3DPOLY 3DPOLY;
[3DFACE:]^C^C$S=X $S=3DFACE 3DFACE;
[3DSURF]$s=x $s=3dsurf
[3DOBJECT]$S=X $S=3DOBJECT
[SPECIAL]$S=X $S=3DLISP

[ASHADE](nl c:scene "/cci/ashade") $S=X $S=ASHADE

[VPOINT:]$s=x $s=vpoint
[VP ROT]vpoint rot;
[VP PLAN]VPOINT 0,0,1;

[HIDE:]HIDE;
[laHIDDEN](PRINC "Loading LAYERH ")(nl "" "/cci/layerh");
**3DTHICK 3
[3d thick]
[ elev]

['ELEV]'SETVAR ELEVATION;
['THICK]'SETVAR THICKNESS;

[PICKELEV](nl "" "/cci/setelev");
[PICKTHIC](nl "" "/cci/setthick");

[CHG ELEV](nl "" "/cci/chelev");
[CHGTHICK](nl "" "/cci/chthick");
**3DSURF 3
[3d surf]

[EDGSURF:]^C^CEDGESURF;
[REVSURF:]^C^CREVSURF;
[RULSURF:]^C^CRULESURF;
[TABSURF:]^C^CTABSURF;

[Surftb1:]'SETVAR SURFTAB1
[Surftb2:]'SETVAR SURFTAB2

[3DMESH:]^C^C3DMESH;
**3DPOLY 3
[3DPOLY:]^C^C3DPOLY;

[Close]close;
[Undo]undo;
[.x].x;
[.y].y;
[.z].z;
[.xy].xy;
[.xz].xz;
[.yz].yz;

[CONTROLS]$I=IPOLY $I=*
**VPOINT 3
[VPOINT:]^C^CVPOINT;
[*icon*]^c^c$s=x $s=vp3d $i=i3dviews $i=*

[rotate]^C^CVPOINT R;
[angle]^C^C$s=x $s=vp3d VPOINT R;;

[REAR]^C^C$s=x $s=vp3d VPOINT R;<<90;
[LEFTrear]^C^C$s=x $s=vp3d VPOINT R;<<135;
[RITErear]^C^C$s=x $s=vp3d VPOINT R;<<45;

[LEFT]^C^C$s=x $s=vp3d VPOINT R;<<180;
[PLAN]^C^Cvpoint 0,0,1;
[RIGHT]^C^C$s=x $s=vp3d VPOINT R;<<0;

[FRONT]^C^C$s=x $s=vp3d VPOINT R;<<270;
[LEFTfrnt]^C^C$s=x $s=vp3d VPOINT R;<<225;
[RITEfrnt]^C^C$s=x $s=vp3d VPOINT R;<<315;
**VP3D 3
[ vpoint]
[ angle]
[    +90 ]<<90;$s= $s=
[    +80 ]<<80;$s= $s=
[    +60 ]<<60;$s= $s=
[    +45 ]<<45;$s= $s=
[    +30 ]<<30;$s= $s=
[    +10 ]<<10;$s= $s=
[    + 5 ]<<5;$s= $s=
[      0 ]<<0;$s= $s=
[    - 5 ]<<-5;$s= $s=
[    -10 ]<<-10;$s= $s=
[    -30 ]<<-30;$s= $s=
[    -45 ]<<-45;$s= $s=
[    -60 ]<<-60;$s= $s=
[    -80 ]<<-80;$s= $s=
[    -90 ]<<-90;$s= $s=
**ASHADE 3
[ASHADE]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade $i=ias $i=*

[LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT;
[CAMERA:]^C^C$S=X $S=CAMERA CAMERA;

[SCENE:]^C^CSCENE;
[FILMROL:]^C^CFILMROLL;

[CAMVIEW:]^C^CCAMVIEW;

[AFLIX]^C^C(nl c:shadetype "/cci/aflix");
[SHADETYP]^C^C(nl c:shadetype "/cci/aflix") shadetype;
[WALKTHRU]^C^C(nl c:shadetype "/cci/aflix") walkthrough;
[ANIMLENS]^C^C(nl c:shadetype "/cci/aflix") animlens;
[ANIMATE]^C^C(nl c:shadetype "/cci/aflix") animate;
[BUTTON]^C^C(nl c:shadetype "/cci/aflix") Button;
**LIGHTS 3
[LIGHT:]^C^CLIGHT;

[Point]p;
[Directed]d;

[Filters]
.x
.y
.z
.xy
.xz
.yz

[CAMVIEW:]^C^CCAMVIEW;
[CAMERA:]^C^C$S=X $S=CAMERA CAMERA
[ACTION]$S=X $S=ACTION
**CAMERA 3
[CAMERA:]^C^CCAMERA;

[Filters]
.x
.y
.z
.xy
.xz
.yz



[CAMVIEW:]^C^CCAMVIEW;
[LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT;
[ACTION]$S=X $S=ACTION
**ACTION 3
[ACTION]^C^C$S=X $S=ACTION

[CAMVIEW:]^C^CCAMVIEW;
[SCENE:]^C^CSCENE;
[FILMROL:]^C^CFILMROLL;
**PLINE 3
[PLINE:]^C^CPLINE;

[Arc]ARC $S=PARC
[close]Cl;
[length]Len;
[undo]Un;
[width]Wid;
[halfwid]Half;

[DONUT:]donut;
[FILL ON]'SETVAR FILLMODE 1;
[FILL OFF]'SETVAR FILLMODE 0;

[SavWidth](nl "" "/cci/widthsav");
[UseWidth](princ "Draw pline with previously saved width ... ")(princ);pline \wid !pwid1 !pwid1
[POLYWID](nl "" "/cci/polywid");
[SPIRAL](nl c:snake "/cci/snake") snake;
**PARC 3
[polyarc]

[angle]$S=X $S=PARCANG An;
[CEnter]$S=X $S=PARCEN CE;
[tanDir]DIR \DRAG;
[Radius]$S=X $S=PARCRAD Rad;
[2nd PT]S \DRAG;
[CLose]$S=X $S=PLINE CLOSE;

[undo]Un;

[contline]$S=X $S=PLINE L;

[PLINE:]$S=X $S=PLINE ^C^CPLINE;
**PARCANG 3
[angle]

[center]Ce drag $S=X $S=PARC
[radius]Rad \ $S=X $S=PARC
[drag]drag \ $S=X $S=PARC
**PARCEN 3
[center]

[angle]Ang drag $S=X $S=PARC
[length]Len drag $S=X $S=PARC
[drag]drag \ $S=X $S=PARC
**PARCRAD 3
[radius]

[angle]Ang \drag $S=X $S=PARC
[drag]drag \ $S=X $S=PARC
**OFFSET 3
[OFFSET:]^C^COFFSET;

[Through]Thr;
**ARC 3
[arc]
[*icon*]$i=iarc $i=*

[3-point:]^C^CARC \\DRAG
[S,C,E:]^C^CARC \C \DRAG
[S,C,A:]^C^CARC \C \A DRAG
[S,C,L:]^C^CARC \C \L DRAG
[S,E,A:]^C^CARC \E \A;
[S,E,R:]^C^CARC \E \R;
[S,E,D:]^C^CARC \E \D DRAG
[C,S,E:]^C^CARC C \\DRAG
[C,S,A:]^C^CARC C \\A DRAG
[C,S,L:]^C^CARC C \\L DRAG
[CONTIN:]^C^CARC ;DRAG
**popARC 3
[ARC]
[*icon*]$i=iarc $i=*

[3-point:]*^C^CARC \\DRAG
[S,C,E:]*^C^CARC \C \DRAG
[S,C,A:]*^C^CARC \C \A DRAG
[S,C,L:]*^C^CARC \C \L DRAG
[S,E,A:]*^C^CARC \E \A
[S,E,R:]*^C^CARC \E \R
[S,E,D:]*^C^CARC \E \D DRAG
[C,S,E:]*^C^CARC C \\DRAG
[C,S,A:]*^C^CARC C \\A DRAG
[C,S,L:]*^C^CARC C \\L DRAG
[CONTIN:]*^C^CARC ;DRAG
**popCIRCL 3
[CIRCLE]

[CEN,RAD:]*^C^CCIRCLE \DRAG
[CEN,DIA:]*^C^CCIRCLE \D
[2 POINT:]*^C^CCIRCLE 2P \DRAG
[3 POINT:]*^C^CCIRCLE 3P \\DRAG
[TTR:]*^C^CCIRCLE TTR
**CIRCLE 3
[circle]
[*icon*]$i=icircle $i=*

[CEN,RAD:]^C^CCIRCLE \DRAG
[CEN,DIA:]^C^CCIRCLE \D;
[2 POINT:]^C^CCIRCLE 2P \DRAG
[3 POINT:]^C^CCIRCLE 3P \\DRAG
[TTR:]^C^CCIRCLE TTR;
[TTT]CIRCLE 3P TAN \TAN \TAN;

[CONCEN]CIRCLE CEN \DRAG;
[MULT CCR](nl "" "/cci/concentr");
[MULT CCD](nl "" "/cci/concentd");
[CENTLINE](nl c:circentl "/cci/circentl") CIRCENTL;
**ELLIPSE 3
[ELLIPSE:]^C^CELLIPSE;

[Center]ce;
[Rotation]Rot;
[Iso]Iso;
[Diameter]Dia;
**POLYGON 3
[POLYGON:]^C^CPOLYGON;

[Edge]ED;
[I-scribe]I;
[C-scribe]C;
**SHAPE 3
[SHAPE:]^C^CSHAPE;
[?]?;

[LOAD:]^C^CLOAD;
[?]?;
**SKETCH 3
[SKETCH:]^C^CSKETCH;

Connect
Erase
Record

[eXit]x
Quit

[------]
[SKPOLY:]'SETVAR SKPOLY 1;
[SKLINE:]'SETVAR SKPOLY 0;
[SKINC:]'SETVAR SKETCHINC;
[------]
[JOINMORE](nl "" "/cci/joinmore");
**SOLID 3
[SOLID:]^C^CSOLID;

[FILL ON]'SETVAR FILLMODE 1;
[FILL OFF]'SETVAR FILLMODE 0;
**POINT 3
[POINT:]^C^CPOINT;
[MULITPLE]*point;

[.x].X;
[.y].Y;
[.z].Z;
[.xy].XY;
[.xz].XZ;
[.yz].YZ;

[complex]
[points]
[example:]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW POINT;

[Pdmode:]'SETVAR PDMODE \POINT;
[Pdsize:]'SETVAR PDSIZE \POINT;
**HATCH 3
[HATCH:]^C^CHATCH;
[*icon*]$i=ihatch1 $i=*
[?]?;

[u]U;
[u,o]U,O;
[u,i]U,I;
[Yes]Yes;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[HATFACE](nl "" "/cci/hatface");
**LIST 3
[LIST:]^C^CLIST;

[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;
**AREA 3
[AREA:]^C^CAREA;
[Add]ADD;
[Subtract]Sub;
[Entity]Ent;

[set snap]
[ END](setvar "osmode" 1);
[ NEAR](setvar "osmode" 512);

[ NONE](setvar "osmode" 0);

[AREA TXT](nl "" "/cci/areatext");
[AREADRAW](nl "" "/cci/areadraw");
[AREAPICK](nl "" "/cci/areapick");
[AREAent]area ent;
**DIST 3
[DIST:]^C^CDIST;

[DISTMORE](nl "" "/cci/distmore");
[DISTTEXT](nl "" "/cci/disttext");
[DISTCALC](nl "" "/cci/distcalc");
**TEXTSETUP1 2
TXT
MONOTXT
SIMPLEX
MSIMPLEX
DIM
HAND1
ROMANS
ROMAND
OUTLINE
BOLD
TIMES
TIMESOUT
COMPLEX
ITALIC
ROMANC
ITALICC
ROMANT
ITALICT
GOTHICE
SYMAP
**TEXTSETUP 3
[ text]
[styles]

[1/16]1-16;
[3/32]3-32;
[1/8]1-8;
[5/32]5-32;
[3/16]3-16;
[1/4]1-4;
[5/16]5-16;
[3/8]3-8;
[1/2]1-2;
[3/4]3-4;
[1]1;


[OTHER]0;


**MTEXTSETUP 3
[ TEXT]
[Height]

[006]006;
[008]008;
[012]012;
[018]018;
[025]025;
[035]035;
[050]050;
[070]070;
[100]100;
[140]140;
[200]200;


[OTHER]0;


**TEXT 2
[TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2 TEXT;
[Center]ce;
Middle
Right
Align
Fit
Style

[TEXTMORE](nl "" "/cci/textmore");
[TEXTCOPY](nl "" "/cci/textcopy");
[PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
[CHARARAY](nl "" "/cci/chararay");
[LEADTEXT]$S=X $S=BALLOON
[OVERLINE](nl "" "/cci/linetext");
[ARCTEXT](nl "" "/cci/arctext");
[IMPORT](nl "" "/cci/import");
[EXPORT](nl "" "/cci/export");
[TEXTSCR]$s=x $s=textscript
**TEXTSCRIPT 3
[text]
[scripts]

[1]SCRIPT (dd "/cci/s1");
[2]SCRIPT (dd "/cci/s2");
[3]SCRIPT (dd "/cci/s3");
[4]SCRIPT (dd "/cci/s4");
[5]SCRIPT (dd "/cci/s5");

[EDIT SCR](nl "" "/cci/edtext")(text1);
**F1 2
Txt
Monotxt
Simplex
Msimplex
Dim
Hand1
Outline
Bold
Times
Timesout
Complex
Cyrillic
Cyriltlc
Greekc
Greeks

[STYLE]$S=X $S=style
[next]$s=x $s=F2
**F2 2
Gothice
Gothicg
Gothici
Italicc
Italict
Romanc
Romand
Romans
Romant
Scriptc
Scripts
Syastro
Symap
Symath
Symeteo
Symusic
[STYLE]$S=X $S=style
**STYLE 2
[STYLE:]^C^CSTYLE;
[?]?;
[example:]vslide (dd "/cci/cci(fonts)");STYLE \\\\\\\redraw;

[Fonts]$S=X $S=F1
[*icon*]$i=ifonts1 $i=*

[1]SCRIPT (dd "/cci/s1");STYLE  \ \;;;;
[2]SCRIPT (dd "/cci/s2");STYLE  \ \;;;;
[3]SCRIPT (dd "/cci/s3");STYLE  \ \;;;;
[4]SCRIPT (dd "/cci/s4");STYLE  \ \;;;;
[5]SCRIPT (dd "/cci/s5");STYLE  \ \;;;;

[SIDEPICK](nl c:pstyles "/cci/pstyles") pstyles;
[STYLECHG](nl textchg "/cci/stylechg")(stylechg);
[PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
[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);
[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)))
**DTEXT 2
[DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2 dtext;
[Center]ce;
Middle
Right
Align
Fit
Style

[TEXTMORE](nl "" "/cci/textmore");
[TEXTCOPY](nl "" "/cci/textcopy");
[PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
[CHARARAY](nl "" "/cci/chararay");
[LEADTEXT]$S=X $S=BALLOON
[OVERLINE](nl "" "/cci/linetext");
[ARCTEXT](nl "" "/cci/arctext");
[IMPORT](nl "" "/cci/import");
[EXPORT](nl "" "/cci/export");
[TEXTSCR]$s=x $s=textscript
**AXIS 3
[AXIS:]^C^CAXIS;

[axs=snap]SNAP;

[ON]ON;
[OFF]OFF;
[Aspect]A;
**END 3
END ?

[Yes]^C^CEND;
[No]$S=S
**QUIT 3
QUIT ?

[Yes]^C^CQUIT Y;
[No]$S=S
**VAR1 2
[example]vslide (dd "/cci/cci(dimvar)");(princ " Hit any key to continue ")(princ)(grread);redraw dim;
[*icon*]$i=idimtog $i=*
[scale]'setvar dimscale;
[arr size]'setvar DIMASZ;
[tik size]'setvar DIMTSZ;
[txt size]'setvar DIMTXT;
[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);
[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);
[exttog](nl "" "/cci/dimext");
[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);
[block]$i=idimpoint $i=*
[block1]$i=idimpoint1 $i=*
[block2]$i=idimpoint2 $i=*
[assoc](if (= (getvar "dimaso") 0)(PROGN (setvar "dimaso" 1)(PRINC " Associative dim is ON "))(progn (setvar "dimaso" 0)(PRINC " Associative dim is OFF ")))(princ);
[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);
[dimcentr]'setvar DIMCEN;
[next]$S=X $S=VAR2
[DimMENU]$S=X $S=DIM
**VAR2 2
[toleranc](if (= (getvar "dimtol") 0)(PROGN (setvar "dimtol" 1)(PRINC " Dim tolerances are activated "))(progn (setvar "dimtol" 0)(PRINC " Dim tolerances are deactivated ")))(princ);
[limits](if (= (getvar "dimlim") 0)(PROGN (setvar "dimlim" 1)(PRINC " Dim Limits are activated "))(progn (setvar "dimlim" 0)(PRINC " Dim Limits are deactivated ")))(princ);
[set +]'setvar DIMTP;
[set -]'setvar DIMTM;
[extoffst]'setvar DIMEXO;
[dimexe]'setvar DIMEXE;
[dimdli]'setvar DIMDLI;
[dimdle]'setvar DIMDLE;
[roundoff]'setvar DIMRND;
[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);
[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);
[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);
[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);
[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);
[dimtvp]'SETVAR DIMTVP;
[next]$S=X $S=VAR3
[previous]$S=X $S=VAR1
[DimMENU]$S=X $S=DIM
**VAR3 2
[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);
[zerosupp]setvar dimzin;$i=idimzin $i=*
[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);
[altsfact]'setvar DIMALTF;
[alt deci]'setvar DIMALTD;
[len fact]'setvar DIMLFAC;
[post str]DIM DIMPOST;
[alt post]DIM DIMAPOST;

[previous]$S=X $S=VAR2
[DimMENU]$S=X $S=DIM
**FORMAT 3
[assocdim]
[  ON](setvar "DIMASO" 1)(princ " Associative Dimensioning ON ")(princ);
[  OFF](setvar "DIMASO" 0)(princ " Associative Dimensioning OFF ")(princ);

[HOMETEXT]HOMETEXT;
[UPDATE]UPDATE;
[NEWTEXT]NEWTEXT;
[UPDATmor](nl dimupd "/cci/dimasupd")(dimupd);

[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;
[DimMENU]$S=X $S=DIM
**LINETYPE 3
[LINETYP:]^C^CLINETYPE;
[?]LINETYPE ?;
[example:]VSLIDE (dd "/cci/cci(linetype)");LINETYPE \REDRAW LINETYPE;

[Load]Load;
[Create]Create;
[Set]S $S=CHLT \$S=

[Yes]Yes;
[No]No;
**LIMITS 3
[LIMITS:]^C^CLIMITS;

[On]ON;
[Off]OFF;
**SNAP 3
[SNAP:]^C^CSNAP;

[ON]ON;
[OFF]OFF;
[Aspect]ASPECT;
[Rotate]snap rotate;$i=isnaprot $i=*

[STANDARD]SNAP S S   R 0,0 0;
[ISO]SNAP S I ;
[ISOTOGGL];
[ALLSNAP](nl "" "/cci/allsnap");

[SNAPSET]$s=x $s=snapset 'setvar snapunit
**SNAPSET 3
['SNAPSET]'SETVAR SNAPUNIT;

[1/64].015625,.015625;$s= $s=
[1/32].03125,.03125;$s= $s=
[1/16].0625,.0625;$s= $s=
[1/8].125,.125;$s= $s=
[1/4].25,.25;$s= $s=
[1/2].5,.5;$s= $s=
[3/4].75,.75;$s= $s=
[ 1 ]1,1;$s= $s=
[ 2 ]2,2;$s= $s=
[ 3 ]3,3;$s= $s=
[ 4 ]4,4;$s= $s=
[ 6 ]6,6;$s= $s=
[ 8 ]8,8;$s= $s=
[ 10 ]10,10;$s= $s=
[ 1' ]12,12;$s= $s=
[ 2' ]24,24;$s= $s=
[ 4' ]48,48;$s= $s=
**MSNAPSET 3
['SNAPSET]'SETVAR SNAPUNIT;

[10.00]10.0,10.0;$s= $s=
[5.000]5.00,5.00;$s= $s=
[2.000]2.00,2.00;$s= $s=
[1.000]1.00,1.00;$s= $s=
[ .500].500,.500;$s= $s=
[ .200].200,.200;$s= $s=
[ .100].100,.100;$s= $s=
[ .075].075,.075;$s= $s=
[ .050].050,.050;$s= $s=
[ .020].020,.020;$s= $s=
[ .010].010,.010;$s= $s=
[ .005].005,.005;$s= $s=
[ .001].001,.001;$s= $s=
[ .0005].0005,.0005;$s= $s=
**TABLET 3
[TABLET:]^C^CTABLET;

[cal]CAL;
[config]VSLIDE (dd "/cci/cci(tab)");TABLET CFG 4 25 9 11 9 9 13 25 7 Y;REDRAW;
[re-confg]VSLIDE (dd "/cci/cci(tab)");TABLET cfg 4 y 25 9 11 9 9 13 25 7 y;REDRAW;
[ON]ON;
[OFF]OFF;
[Yes]Yes;
[No]No;
**OSNAPC 3
[OSNAP:]^C^COSNAP;

[CENter]CENTER,\
[ENDpoint]ENDPOINT,\
[INSert]INSERT,\
[INTersec]INTERSEC,\
[MIDpoint]MIDPOINT,\
[NEArest]NEAREST,\
[NODe]NODE,\
[PERpend]PERPEND,\
[QUAdrant]QUADRANT,\
[TANgent]TANGENT,\

[None]OSNAP NONE $S= $S=
[Quick,]QUICK,^Z
**DRAGMODE 3
[DRAGMODE]^C^CDRAGMODE;

[ON]ON $S=S
[OFF]OFF $S=S
[Auto]Auto $S=S
**GRID 3
[GRID:]^C^CGRID;
[grd=snap]SNAP;
[Aspect]Aspect;
[1/16].0625;
[1/8].125;
[1/4].25;
[1/2].5;
[ 1 ]1;
[ 2 ]2;
[ 4 ]4;
[ 6 ]6;
[ 8 ]8;
[ 10 ]10;
[ 12 ]12;
[ 2']24;
[ 5']60;
[ 10']120;
**GRIDM 3
[GRID:]^C^CGRID;
[grd=snap]SNAP;
[Aspect]Aspect;
[10.00]10.0;
[5.000]5.00;
[2.000]2.00;
[1.000]1.00;
[ .500].500;
[ .200].200;
[ .100].100;
[ .075].075;
[ .050].050;
[ .020].020;
[ .010].010;
[ .005].005;
[ .001].001;
[ .0005].0005;

**SETVAR 3
[SETVAR:]^C^CSETVAR;
[?]?;

['SETVAR]'SETVAR;
[AFLAG]'SETVAR AFLAGS;
[BLIPMODE]'SETVAR BLIPMODE;
[DRAGMODE]'SETVAR DRAGMODE;
[ELEV]'SETVAR ELEVATION;
[EXPERT]'SETVAR EXPERT;
[LTSCALE]'SETVAR LTSCALE;
[MIRRTEXT]'SETVAR MIRRTEXT;
[PDMODE]'SETVAR PDMODE;
[PDSIZE]'SETVAR PDSIZE;
[THICKN]'SETVAR THICKNESS;

**QTEXT 3
[QTEXT:]^C^CQTEXT;

[ON]ON;
[OFF]OFF;
[REGEN:]REGEN;
**VIEWRES 3
[VIEWRES:]^C^CVIEWRES;

[No]No;
[Yes]Yes;

100
500
750
1000

[RGNAUTO:]^C^CREGENAUTO;
**APERTURE 3
[select]
[ size]

[1]1;
[2]2;
[3]3;
[4]4;
[5]5;
[6]6;
[7]7;
[8]8;
[9]9;
[10]10;
[15]15;
**ARRAY 3
[ARRAY:]^C^CARRAY;
[ANGARRAY](nl "" "/cci/angarray");
[3DARRAY](nl c:3darray "/cci/3darray") 3darray;
[3DANGARR](nl c:3dangarr "/cci/3dangarr") 3dangarr;

[Auto]auto;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[Rectang]Rectang;
[Polar]Polar;
[Circular]Cir;
**ROTATE 3
[ROTATE:]^C^CROTATE;
[3DROTATE](nl c:3drotate "/cci/3drotate") 3drotate;
[AXROT](nl c:axrot "/cci/axrot") axrot;

[Auto]auto;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[Referenc]R;

[MOVE-ROT](nl c:mr "/cci/moverot") mr;
[ROT-MOVE](nl c:rm "/cci/rotmove") rm;
**SELECT 3
[SELECT:]^C^CSELECT;

[Auto]auto;
[Single]Single;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;
**SCALE 3
[SCALE:]^C^CSCALE;

[Auto]auto;
[Single]Single;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[Referenc]Ref;

[BLKSCALE](nl "" "/cci/blkscale");
**BREAK 3
[BREAK:]^C^CBREAK;

[BREAK F]^C^CBREAK \F;
[BREAK @0]^C^CBREAK \F \@;
[BRKLOOP](nl "" "/cci/brkloop");
**MOVE 3
[MOVE:]^C^CMOVE auto;

[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;

[end-end]endp \endp;
[end-mid]endp \midp;
[mid-mid]midp \midp;

[MOVE-ROT](nl c:mr "/cci/moverot") mr;
[ROT-MOVE](nl c:rm "/cci/rotmove") rm;
[MOVEOBJ]mo;
**COPY 3
[COPY:]^C^CCOPY auto;

[Multiple]Mult;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;

[end-end]endp \endp;
[end-mid]endp \midp;
[mid-mid]midp \midp;

[COPY-ROT](nl c:cr "/cci/copyrot") cr;
[ROT-COPY](nl c:rc "/cci/rotcopy") rc;
**UNDO 3
[UNDO:]^C^CUNDO;

[Back 1]^C^CUNDO 1;

[Auto]Auto;
[Back]Back;
[End]En;
[Group]Gr;
[Mark]Mark;
[Control]$S=UNDOC Control;

[Yes]Yes;
[No]No;

[REDO:]REDO;
**UNDOC 11
[All]All;
[None]None;
[One]One;
**ERASE 3
[ERASE:]^C^CERASE auto;

[Auto]auto;
[Single]Single;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[OOPS:]^C^COOPS;
[ERASER](nl "" "/cci/eraser");
[ERASEOUT](nl "" "/cci/eraseout");
[ERASENT](nl "" "/cci/eraseent");
[DELAYER](nl "" "/cci/dellayr")(dellayr);
**P0 2
[PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
[Last]Last;
[Yes]Yes;
[No]No;
[Close]Close;
[Open]Open;
[Join]Join;
[Width]Wid;
[Ed Vrtx]Ed $s=x $S=PVERTED
[Spline]spline;
[Fit Curv]Fit;
[Decurve]Dec;
[Undo]U;
[eXit]X $S=S
[SavWidth](nl "" "/cci/widthsav");
[UseWidth]w (princ (rtos pwid1))(princ) !pwid1
[PolyVars]$S=X $S=PVARS $i=ipoly $i=*
[Polywid](nl "" "/cci/polywid");
**P8 3
[PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;

[Last]Last;
[Close]Close;
[Open]Open;
[Ed Vrtx]Ed $s=x $S=3DPVERTED
[Spline]spline;
[Decurve]Dec;
[Undo]U;
[eXit]X $S=S

[PolyVars]$S=X $S=PVARS $i=ipoly $i=*
**P16 3
[PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;

[Ed Vrtx]E $S=X $S=3DMVERTED
[Smooth]smooth;
[Desmooth]desmooth;
[Mclose]mclose;
[Nclose]nclose;
[Mopen]mopen;
[Nopen]nopen;
[Undo]U;
[eXit]^C^C$S=X $S=S

[PolyVars]$S=X $S=PVARS $i=ipoly $i=*
**PVARS 3
[Polyvars]$i=ipoly $i=*

[SPLframe]'SETVAR SPLFRAME
[ On]1
[ Off]0
[SPLsegs]'SETVAR SPLINESEGS
[SPLtype]'SETVAR SPLINETYPE
[ Quad]5
[ Cubic]6
[SURFtype]'SETVAR SURFTYPE
[ Quad]5
[ Cubic]6
[ Bezier]8
[UDensity]'SETVAR SURFU
[VDensity]'SETVAR SURFV

**PVERTED 3
[ed vrtx]

[next]Next;
[previous]Pre;
[break]Break;
[insert]Insert;
[move]Move;
[straight]Str;
[width]Wid;
[tangent]Tang;
[go]Go;
[regen]Regen;
[undo]X U $S=X $S=P0
[eXit]X $S=X $S=P0
**3DPVERTED 3
[ed vrtx]

[next]Next;
[previous]Pre;
[break]Break;
[insert]Insert;
[move]Move;
[straight]Str;
[regen]Regen;
[eXit]X $S=X $S=P8
**3DMVERTED 3
[ed vrtx]

[next]Next;
[previous]Pre;
[Left]left;
[Right]right;
[Up]up;
[Down]down;
[move]Move;
[regen]Regen;
[eXit]X $S=X $S=P16
**TRIM 3
[TRIM:]^C^CTRIM;

[Auto]auto;
[Single]Single;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[LINETRIM](nl "" "/cci/linetrim");
[ERASEOUT](nl "" "/cci/eraseout");
**ATTEXT 3
[ATTEXT:]^C^CATTEXT;
[CDF]CDF;
[SDF]SDF;
[DXF]DXF;
[ENTITIES]ENTITIES;

[BILLMAT](setq temp (strcase (getstring " Enter template file (extension .txt assumed) <temp>: ")))(if (= temp "")(setq temp "TEMP"))(nl billmat "/cci/billmat")(billmat temp);
[TAMLLIB](nl tamllib "/cci/tamllib")(tamllib);
[TEMPLAT](nl "" "/cci/tplate");
**SLIDES 3
[MSLIDE:]^C^CMSLIDE;

[Yes]Yes;
[No]No;

[VSLIDE:]^C^CVSLIDE;
[SLIDSHOW](nl "" "/cci/slidshow");
**SCRIPT 3
[SCRIPT:]^C^CSCRIPT;

[DELAY:]DELAY;
[RESUME:]RESUME;
[RSCRIPT:]RSCRIPT;

[USER 1]script (dd "/custom/user1");
[USER 2]script (dd "/custom/user2");
[USER 3]script (dd "/custom/user3");
[USER 4]script (dd "/custom/user4");
[USER 5]script (dd "/custom/user5");
[USER 6]script (dd "/custom/user6");
[USER 7]script (dd "/custom/user7");
[USER 8]script (dd "/custom/user8");

[LASCRIPT](nl "" "/cci/lascript");
**PURGE 3
[PURGE:]^C^CPURGE;
[Blocks]Block;
[LAyers]LAy;
[LTypes]LTy;
[STyles]STy;
[SHapes]SHa;
[All]All;

[Yes]Yes;
[No]No;
**RENAME 3
[RENAME:]^C^CRENAME;
[Blocks]Block;
[LAyers]LAy;
[LTypes]LTy;
[Styles]Sty;
[View]View;

[Ucs]ucs;
[VPort]VPORT;

[Yes]Yes;
[No]No;
**DXF 3
[DXFIN:]^C^CDXFIN;

[DXFOUT:]^C^CDXFOUT;
[16]16;
[ENTITIES]ENTITIES;

[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[DXBIN:]^C^CDXBIN;

[IGESIN:]^C^CIGESIN;
[IGESOUT:]^C^CIGESOUT;
**EXTEND 3
[EXTEND:]^C^CEXTEND;

[Auto]auto;
[Single]Single;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;
**STRETCH 3
[STRETCH:]^C^CSTRETCH C;

[Auto]auto;
[Single]Single;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[ST2DIM](nl "" "/cci/st2dim");
[ST REMOV]str;
**MIRROR 3
[MIRROR:]^C^CMIRROR auto;

[Auto]auto;
[Single]Single;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[Yes]Yes;
[No]No;
[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)))
**FILLET 2
[FILLET]FILLET;
[ Pline]fillet p;

[0]FILLET R 0 FILLET;
[1/64]FILLET R .015625 FILLET;
[1/32]FILLET R .03125 FILLET;
[1/16]FILLET R .0625 FILLET;
[1/8]FILLET R .125 FILLET;
[1/4]FILLET R .25 FILLET;
[1/2]FILLET R .5 FILLET;
[1"]FILLET R 1 FILLET;
[2"]FILLET R 2 FILLET;
[6"]FILLET R 6 FILLET;
[1']FILLET R 12 FILLET;
[2']FILLET R 24 FILLET;
[PICK RAD](nl "" "/cci/fradpick")(PRINC);
[RECALL R]FILLET R !FILLRAD FILLET;
[SAVE R](princ "SAVING RADIUS ")(SETQ FILLRAD (GETVAR "FILLETRAD"))(PRINC);
**MFILLET 2
[FILLET]FILLET;
[10.00]FILLET R 10.0;FILLET;
[5.000]FILLET R 5.00;FILLET;
[2.000]FILLET R 2.00;FILLET;
[1.000]FILLET R 1.00;FILLET;
[ .500]FILLET R .500;FILLET;
[ .200]FILLET R .200;FILLET;
[ .100]FILLET R .100;FILLET;
[ .075]FILLET R .075;FILLET;
[ .050]FILLET R .050;FILLET;
[ .020]FILLET R .020;FILLET;
[ .010]FILLET R .010;FILLET;
[ .005]FILLET R .005;FILLET;
[ .001]FILLET R .001;FILLET;
[ 0]FILLET R 0 FILLET;
[PICK RAD](nl "" "/cci/fradpick")(PRINC);
[RECALL R]FILLET R !FILLRAD FILLET;
[SAVE R](PRINC "SAVING RADIUS ")(SETQ FILLRAD (GETVAR "FILLETRAD"))(PRINC);
**CHAMFER 3
[CHAMFER:]^C^CCHAMFER;
[distance]CHAMFER D \\CHAMFER;
[polyline]CHAMFER P;

[ 0]CHAMFER D 0 0 CHAMFER;
[1/64]CHAMFER D .015625 .015625 CHAMFER;
[1/32]CHAMFER D .03125 .03125 CHAMFER;
[1/16]CHAMFER D .0625 .0625 CHAMFER;
[1/8]CHAMFER D .125 .125 CHAMFER;
[1/4]CHAMFER D .25 .25 CHAMFER;
[1/2]CHAMFER D .5 .5 CHAMFER;
[1"]CHAMFER D 1 1 CHAMFER;
[2"]CHAMFER D 2 2 CHAMFER;
[6"]CHAMFER D 6 6 CHAMFER;
[1']CHAMFER D 12 12 CHAMFER;

[RECALL D]CHAMFER D !CHAMDST1 !CHAMDST2 CHAMFER;
[SAVE D](PRINC "SAVING CHAMFERS ")(setq chamdst1 (getvar "chamfera") chamdst2 (getvar "chamferb"))(PRINC);
**MCHAMFER 3
[CHAMFER:]^C^CCHAMFER;
[distance]CHAMFER D \\CHAMFER;
[polyline]CHAMFER P;
[10.00]CHAMFER D 10.0;;CHAMFER;
[5.000]CHAMFER D 5.00;;CHAMFER;
[2.000]CHAMFER D 2.00;;CHAMFER;
[1.000]CHAMFER D 1.00;;CHAMFER;
[ .500]CHAMFER D .500;;CHAMFER;
[ .100]CHAMFER D .100;;CHAMFER;
[ .075]CHAMFER D .075;;CHAMFER;
[ .050]CHAMFER D .050;;CHAMFER;
[ .020]CHAMFER D .020;;CHAMFER;
[ .010]CHAMFER D .010;;CHAMFER;
[ .005]CHAMFER D .005;;CHAMFER;
[ .001]CHAMFER D .001;;CHAMFER;
[ .0005]CHAMFER D .000;;CHAMFER;
[ 0]CHAMFER D 0 0 CHAMFER;
[RECALL D]CHAMFER D !CHAMDST1 !CHAMDST2 CHAMFER;
[SAVE D](PRINC "SAVING CHAMFERS ")(setq chamdst1 (getvar "chamfera") chamdst2 (getvar "chamferb"))(PRINC);
**DIVIDE 3
[DIVIDE:]^C^CDIVIDE;

[Block]Block;
[Yes]Yes;
[No]No;

[SETPOINT]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW DIVIDE;
[PDMODE 0]'SETVAR PDMODE 0

[DIVCOPY](nl c:dc "/cci/divcopy") dc;
**MEASURE 3
[MEASURE:]^C^CMEASURE;

[Block]Block;
[Yes]Yes;
[No]No;

[SETPOINT]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW MEASURE;
[PDMODE 0]'SETVAR PDMODE 0
**EXPLODE 3
[EXPLODE:]^C^CEXPLODE;

[LEXPLODE](nl c:lexplode "/cci/lexplode") lexplode;
[POLYEXP](nl "" "/cci/polyexp");
**CHANGE 2
[CHANGE:]^C^CCHANGE auto;
[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;
[Remove]Re;
[Add]Add;
[Undo]Un;

[Color]PROP COLOR $s=x $S=CHCOLOR \$S= $s=
[Elev]PROP ELEV;
[Layer]PROP La;
[LType]PROP LT $s=x $S=CHLT \$S= $s=
[Thicknes]PROP THICKNESS;
[TEXT]$S=X $S=CHANGETXT
[BLOCK]$S=X $S=CHGBLK
[CHCOLOR](nl "" "/cci/chcolor");
[CHLAYER](if (/= sdscrn "Y")(nl "" "/cci/chlay")(nl "" "/cci/chlays"))(princ) chlay;
**CHPROP 3
[CHPROP:]^C^CCHPROP;

[Window]Win;
[Last]Last;
[Previous]Pre;
[Crossing]Cr;

[Color]PROP COLOR $S=CHCOLOR \$S=X $S=CHPROP
[LAyer]PROP LA;
[LType]PROP LT $S=CHLT \$S=X $S=CHPROP
[Thicknes]PROP THICKNESS;
**CHANGETXT 3
[--------]
[all at]
[ once]

[TEXTCHG](nl textchg "/cci/textchg")(textchg);
[TXTOUTIN](nl "" "/cci/txtoutin");

[--------]
[one at a]
[ time]

[STYLE](SETQ TEMP "S")(nl textmod "/cci/textmod")(TEXTMOD);
[HEIGHT](SETQ TEMP "H")(nl textmod "/cci/textmod")(TEXTMOD);
[ANGLE](SETQ TEMP "A")(nl textmod "/cci/textmod")(TEXTMOD);
[TEXT](SETQ TEMP "T")(nl textmod "/cci/textmod")(TEXTMOD);

[EDITTEXT](nl c:chgtext "/cci/chgtext") chgtext;
**CHGBLK 3
[blocks]
[ only]

[MOVE]CHANGE \  \;
[ROTATE]CHANGE \   \
[MOVE-ROT]CHANGE \ ;
[ROT-MOVE]CHANGE \   \ P   \;

[COPY]CB

[BLKscale](nl "" "/cci/blkscale");
[BLKrot](nl angblk "/cci/angblk")(angblk);
[XYZscale](nl xyzblk "/cci/xyzblk")(xyzblk);
[REDEFINE](nl redfblk "/cci/redfblk")(redfblk);
[REPLACE](nl "" "/cci/replblk");
[BSWAP](nl "" "/cci/bswap");
**CHCOLOR 3
[color]

[bylayer]BYLAYER;
[byblock]BYBLOCK;

[red]RED;
[yellow]YELLOW;
[green]GREEN;
[cyan]CYAN;
[blue]BLUE;
[magenta]MAGENTA;
[white]WHITE;

[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;
**CHLT 3
[ltype]

[bylayer]BYLAYER;
[byblock]BYBLOCK;

[contin.]CONTINUOUS;
[dashed]DASHED;
[hidden]HIDDEN;
[center]CENTER;
[phantom]PHANTOM;
[dot]DOT;
[dashdot]DASHDOT;
[border]BORDER;
**COLOR 3
[COLOR:]^C^CCOLOR;

[bylayer]BYLAYER;
[byblock]BYBLOCK;

[red]RED;
[yellow]YELLOW;
[green]GREEN;
[cyan]CYAN;
[blue]BLUE;
[magenta]MAGENTA;
[white]WHITE;

[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;
**ATTEDIT 3
[ATTEDIT:]^C^CATTEDIT;

[TXTVAL 1]*ATTEDIT     \ V  \;
[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  \;
[ANGLE0 1]*ATTEDIT     \ A 0
[ANGLE0 W]ATTEDIT     W \\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 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 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0
[ATT move]*ATTEDIT     \ P \
[ANG0 M 1]*ATTEDIT     \ A 0 P \
[ANG0 M W]ATTEDIT     W \\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 \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 \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \
[Height]HEI;
[Angle]ANG;
[Layer]Lay;
[Color]$S=X $S=ATTCOLOR C;
[Style]Style;
[Next]Next;
[DDATTE]ddatte;
[NUMSHIFT](nl "" "/cci/numshift");
**ATTCOLOR 3
[color]

[red]RED $S= $S=
[yellow]YELLOW $S= $S=
[green]GREEN $S= $S=
[cyan]CYAN $S= $S=
[blue]BLUE $S= $S=
[magenta]MAGENTA $S= $S=
[white]WHITE $S= $S=
**UCS1 2
[UCS:]^C^CUCS;
[DDUCS:]^C^CDDUCS
[UCSsetup](nl "" "/cci/ucssetup");
[Presets]^C^C$i=iucs $i=*
[Del]del;
[World]world;
[Previous]prev;
[New]New;
[Restore]restore;

[3P]3p;
[XRot]x;
[Yrot]y;
[Zrot]z;
[View]view;
[RENAME:]^C^CRename UCS;
[?]?;
**UCSICON 3
[UCSICON:]^C^CUCSICON;

[ON]on;
[OFF]off;

[All]all;
[Origin]origin;
[Noorigin]noorigin;
**PLAN 3
[PLAN:]^C^CPLAN;

[UCS]ucs;
[World]world;

['Follow]'SETVAR UCSFOLLOW
**HANDLE 3
[HANDLES:]^C^CHANDLES;

[ON]ON;
[DESTROY]DESTROY;

[Status]Stat;
**MUNITS 2

[unit    ]
[type   ]


[SCIENTFC]1;

[DECIMAL ]2;

[ENGINRNG]3;









**MU2 2
[Metric  ]
[Decimal ]

[ 1:5000 ]5000.0;
[ 1:2000 ]2000.0;
[ 1:1000 ]1000.0;
[ 1:500  ]500.0;
[ 1:200  ]200.0;

[ 1:100  ]100.0;
[ 1:75   ]75.0;
[ 1:50   ]50.0;
[ 1:20   ]20.0;
[ 1:10   ]10.0;
[ 1:5    ]5.0;
[ 1:2    ]2.0;
[  FULL  ]1.0;

[OTHER  >]0;
**MU3 2

[enginrng]
[scale   ]


[ 1:50000]50000.0;
[ 1:20000]20000.0;
[ 1:10000]10000.0;
[ 1:7500 ]7500.0;

[ 1:5000 ]5000.0;
[ 1:2000 ]2000.0;
[ 1:1000 ]1000.0;
[ 1:500  ]500.0;
[ 1:200  ]200.0;


[OTHER  >]0;


**MP1 2
[plotter]
[ type ]

[calcomp]
[ 1043]2;$S=METRIC

[hewlett]
[packard]
[ 7470]3;$S=METRIC
[ 7475]3;$S=METRIC
[ 7585]4;$S=METRIC

[houston]
[instrum]
[DMP41/51]5;$S=METRIC
[DMP42/52]5;$S=METRIC

[NONE]0;$S=METRIC
[OTHER]0;$S=MTERIC
**UNITS 2

[unit    ]
[type   ]


[SCIENTFC]1;

[DECIMAL ]2;

[ENGINRNG]3;

[ARCHTECT]4;

[METRIC  ]5;






**U1 2

[scientfc]
[scale   ]


[4 TIMES ]4.0;

[2 TIMES ]2.0;

[FULL    ]1.0;

[HALF    ]0.5;

[QUARTER ]0.25;

[OTHER   ]0;




**U2 2
[decimal ]
[scale   ]

[8 TIMES ]0.125;

[4 TIMES ]0.25;

[2 TIMES ]0.5;

[FULL    ]1.0;

[ 3/4    ]1.5;

[ 1/2    ]2.0;

[ 1/4    ]4.0;

[ 1/8    ]8.0;

[OTHER  >]0;
**U3 2

[enginrng]
[scale   ]

[1"=10'  ]120.0;
[1"=20'  ]240.0;

[1"=30'  ]360.0;
[1"=40'  ]480.0;

[1"=50'  ]600.0;
[1"=60'  ]720.0;

[1"=80'  ]960.0;
[1"=100' ]1200.0;
[1"=200' ]2400.0;
[1"=300' ]3600.0;

[OTHER  >]0;

**U4 2
[archtect]
[1/64"=1']768.0;
[1/40"=1']480.0;
[1/32"=1']384.0;
[1/20"=1']240.0;
[1/16"=1']192.0;
[3/32"=1']128.0;
[ 1/8"=1']96.0;
[3/16"=1']64.0;
[ 1/4"=1']48.0;
[ 3/8"=1']32.0;
[ 1/2"=1']24.0;
[ 3/4"=1']16.0;
[   1"=1']12.0;
[1-1/2"=1]8.0;
[   3"=1']4.0;
[   6"=1']2.0;
[  FULL  ]1.0;
[1"=n']$S=X $S=U3
[OTHER  >]0;
**U5 2

[metric  ]

[ 1:5000 ]5000.0;
[ 1:2000 ]2000.0;
[ 1:1000 ]1000.0;
[ 1:500  ]500.0;
[ 1:200  ]200.0;

[ 1:100  ]100.0;
[ 1:75   ]75.0;
[ 1:50   ]50.0;
[ 1:20   ]20.0;
[ 1:10   ]10.0;
[ 1:5    ]5.0;
[  FULL  ]1.0;

[OTHER  >]0;


**P1 2
[plotter]
[ type ]

[calcomp]
[ 1043]2;$S=P2

[hewlett]
[packard]
[ 7470]3;$S=P3
[ 7475]3;$S=P3
[ 7585]4;$S=P4
[Draftpro]4;$S=p4

[houston]
[instrum]
[DMP41/51]5;$S=P5
[DMP42/52]5;$S=P5

[NONE]0;$S=ENGLISH

**P2 2
[ calcomp]
[  1043]
[ sheet  ]
[ size   ]


[A-8x10.5]10.5 8.0;
[B- 10x16]16.0 10.0;
[C- 16x21]21.0 16.0;
[D- 21X33]33.0 21.0;
[E- 33x43]43.0 33.0;

[36x64.5]64.5 36.0;


[OTHER  >]0 0;



**P3 2
[ h p ]

[ sheet  ]
[ size   ]

[ 7470]
[A-7.5x10]10.125 7.775;


[ 7475]
[A-8x10.5]10.125 7.775;
[B- 10x16]16.29 10.15;


[OTHER  >]0 0;




**P4 2

[ h p]

[ sheet  ]
[ size   ]


[A-8x10.5]10.5 8.0;
[B- 10x16]16.0 10.0;
[C- 16x21]21.0 16.0;
[D- 21X33]33.0 21.0;
[E- 33x43]43.0 33.0;

[35x44.7]44.72 35.31;


[OTHER  >]0 0;



**P5 2
[  h i  ]
[sht size]
[41 - 51]
[A-8.5x11]11.0 8.5;
[B- 11x17]17.0 11.0;
[C- 16x21]21.0 16.0;
[D- 20X32]32.0 20.0;
[42 ]
[A-8.5x11]11.0 8.5;
[B- 11x17]17.0 11.0;
[C- 16x21]21.0 16.0;
[D- 21x31]31.0 21.5;
[52 ]
[A-8.5x11]11.0 8.5;
[B- 11x17]17.0 11.0;
[C- 16x21]21.0 16.0;
[D- 21x33]33.0 21.0;
[21.5x34]34.0 21.5;
[OTHER  >]0 0;

**ENGLISH 2

[ sheet  ]
[ size   ]


[A-8.5x11]11.0 8.5;
[B- 11x17]17.0 11.0;
[C- 22x34]34.0 22.0;
[   18x24]24.0 18.0;

[D- 24X36]36.0 24.0;
[   30x42]42.0 30.0;

[E- 36x42]42.0 36.0;


[OTHER  >]0 0;


**METRIC 2


[ sheet  ]
[ size   ]


[1189x841]1189.0 841.0;
[1000x707]1000.0 707.0;
[ 841x594]841.0 594.0;

[ 594x420]594.0 420.0;
[ 420x297]420.0 297.0;
[ 297x210]297.0 210.0;


[OTHER  >]0 0;





**EXCOMDS 3
[external]
[commands]

[CATALOG]CATALOG;
[DEL:]DEL;
[DIR:]DIR;
[EDIT:]EDIT;
[SH:]SH;
[SHELL:]SHELL;
[TYPE:]TY;
**LISP 3
[LISPLOAD]lsp;
[SAVE pt1](SETQ PT1 (GETPOINT "Digitize point to save: "));
[SAVE pt2](SETQ PT2 (GETPOINT "Digitize point to save: "));
[USE  pt1]!PT1;
[USE  pt2]!PT2;

[ENTLIST](nl entss "/cci/entlist")(entss);
[XYDATA](nl "" "/cci/xydata");
[MAKENEW](nl "" "/cci/makenew");
[GLUE](nl "" "/cci/glue");
[JOINMORE](nl "" "/cci/joinmore");
[SLOPE](nl "" "/cci/slope");
[ANGCALC](nl c:angcalc "/cci/angcalc");
[LIBRARY](nl "" "/cci/library");
[ALLSNAP](nl "" "/cci/allsnap");
**ENTLIST
[entity]
[ types]

[LINE]LINE;
[ARC]ARC;
[CIRCLE]CIRCLE;
[POLYLINE]POLYLINE;
[POINT]POINT;
[SOLID]SOLID;
[TEXT]TEXT;
[BLOCK]INSERT;
[INSERT]INSERT;
[DIM]DIMENSION;
[3DFACE]3DFACE;

**TIME 3
[TIME]TIME;

[TIMEMGR](nl timelog "/cci/time")(timelog):
[TIMEMOD](nl "" "/cci/timemod");

[DRAWMAN](nl c:login "/cci/drawman");
[ LOGON](nl c:login "/cci/drawman") logon;
[ LOGOUT](nl c:login "/cci/drawman") logout;
[ END](nl c:login "/cci/drawman") end;
[ RLIST](nl c:login "/cci/drawman") rlist;
[ FINGER](nl c:login "/cci/drawman") finger;
[ SELUSER](nl c:login "/cci/drawman") seluser;
[ SELECO](nl c:login "/cci/drawman") seleco;
**BALLOON 2
[BALLOON](nl c:balloon "/cci/balloon") balloon;
[*icon*]$s=x $s=balloon $i=iballoon $i=*

[LEADER](nl c:leadr "/cci/leadr") leadr;
[ARCLEAD](nl c:arclead "/cci/arclead") arclead;
[LOOPLEAD](nl c:looplead "/cci/looplead") looplead;
[LEADTEXT](nl c:leadtext "/cci/leadtext") leadtext;
[LEADDTXT](nl c:leaddtxt "/cci/leaddtxt") leaddtxt;

[set vars]
[ARROWS](princ "Pointer type set to ARROWS ")(SETQ BUBTYP "A")(princ);
[DOTS](princ "Pointer type set to DOTS ")(SETQ BUBTYP "D")(princ);
[TICKS](princ "Pointer type set to TICKS ")(SETQ BUBTYP "T")(princ);
[NONE](princ "Pointer type set to NONE ")(SETQ BUBTYP "N")(princ);
[reset]
[TXTSTYLE](setq bubsty nil)(princ " RESETTING TEXT STYLE ")(princ);
[ARSIZE](setq asize nil)(PRINC " RESETTING ARROW SIZE ")(PRINC);
[SYM SIZE](setq bbub nil)(PRINC " RESETTING SYMBOL SIZE ")(PRINC);
**INSYM 3
[symbol]
[*icon*]$i=iinsym $i=*

[--/--](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);
[--//--](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);
[--///--](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);
[--|--](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);
[--||--](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);
[--|||--](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);
[--\--](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);
[--\\--](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);
[--\\\--](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);
[-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);
[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);
[BALLOON](SETQ insfl (strcat drive "/cci/ballsym") ANG 0 attfl "Y" ATTNO 1 BREAKT T BREAK "Y" insflt T)(nl "" "/cci/symbol")(PRINC);
[OTHER](nl "" "/cci/symbol");
[RESETSIZ](princ "Resetting SYMBOL size ")(setq size1 nil ang nil)(princ);
**CALCULATOR 3
[Calc](nl calc "/cci/calc")(calc);

[Mem] M 
[Recl]R 
[x2] SQ  
[Sqrt] SR  
[Clear] C 

[ /] / 
[ *] * 
[ -] - 
[ +] + 

[= (done)] = 
***TABLET1
[A1](nl c:wallext "/archp/wallext") wallext;
[A2](nl c:wallext "/archp/wallext") wallext;
[A3](nl c:wallint "/archp/wallint") wallint;
[A4](nl c:wallint "/archp/wallint") wallint;
[A5]
[A6](setq doortp "90s")(nl c:door "/archp/door") door;
[A7](setq doortp "45s")(nl c:door "/archp/door") door;
[A8](setq doortp "2ws")(nl c:door "/archp/door") door;
[A9]
[A10](princ " WINDOWS set to SINGLE PANE ... ")(setq windtp "sp")(princ);
[A11](princ " WINDOWS set to CASEMENT ... ")(setq windtp "ct")(princ);
[A12]
[A13]$s=x $s=detail $i=idetail $i=*
[A14](lays windv) insert (dd "/arch/windnum") scale !scale1;
[A15]$s=x $s=north $i=inorth $i=*
[A16]$s=x $s=treepln $i=itreepln $i=*
[A17]$s=x $s=stair (nl "" "/archp/stair");
[A18]$s=x $s=chair $i=ichair $i=*
[A19]$s=x $s=appl $i=iappl $i=*
[A20]$s=x $s=elecout $i=ielecout $i=*
[A21]$s=x $s=toilet $i=itoilet $i=*
[A22](if metric (progn (menucmd "s=x")(menucmd "s=hvacsupm"))(progn (menucmd "s=x")(menucmd "s=hvacsup")))(princ);(lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
[A23]$s=x $s=struct $i=istruct $i=*
[A24]script (dd "/cci/s1");
[A25]script (dd "/custom/user1");
[B1](nl c:wallextm "/archp/wallextm") wallextm;
[B2](nl c:wallmas "/archp/wallmas") wallmas;
[B3](nl c:fndwalle "/archp/fndwalle") fndwalle;
[B4](nl c:fndwalli "/archp/fndwalli") fndwalli;
[B5]
[B6](setq doortp "180s")(nl c:door "/archp/door") door;
[B7](setq doortp "90d")(nl c:door "/archp/door") door;
[B8](setq doortp "90deg")(nl c:door "/archp/door") door;
[B9]
[B10](princ "WINDOWS set to SLIDING ... ")(setq windtp "gl")(princ);
[B11](nl sillside "/archp/sillside")(nl "" "/archp/sill");
[B12]
[B13](lays symbolv) insert (dd "/arch/equip") scale !scale1;
[B14](lays doornov) insert (dd "/arch/doornum") scale !scale1;
[B15](lays symbolv) insert (dd "/arch/eltarget") scale !scale1 \ line @0,0 .y @ \ dtext;
[B16]$s=x $s=treepln2 $i=itreepln2 $i=*
[B17]$s=x $s=stair (nl "" "/archp/stairct");
[B18]$s=x $s=sofa $i=isofa $i=*
[B19]$s=x $s=bed $i=ibed $i=*
[B20]$s=x $s=elecswit $i=ielecswit $i=*
[B21]$s=x $s=urinal $i=iurinal $i=*
[B22](if metric (progn (menucmd "s=x")(menucmd "s=hvacretm"))(progn (menucmd "s=x")(menucmd "s=hvacret")))(princ);(lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
[B23](if metric (progn (menucmd "s=x")(menucmd "s=metalstudm")(menucmd "i=imetalstudm")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=metalstud")(menucmd "i=imetalstud")(menucmd "i=*")))(princ);
[B24]script (dd "/cci/s2");
[B25]script (dd "/custom/user2");
[C1](nl "" "/archp/doubler");
[C2](nl "" "/archp/doubler");
[C3]$s=x $s=build $i=ibuild $i=*
[C4]$s=x $s=build $i=ibuild $i=*
[C5]
[C6](setq doortp "45d")(nl c:door "/archp/door") door;
[C7](setq doortp "45deg")(nl c:door "/archp/door") door;
[C8](setq doortp "2wd")(nl c:door "/archp/door") door;
[C9]
[C10](nl wallbrk "/archp/wallbrk")(nl "" "/archp/bow")(bow);
[C11]$s=x $s=window (nl "" "/archp/windbay")(nl "" "/archp/windfin3")(princ "pick windows 1 2 or 3 ")(princ);
[C12]
[C13](lays symbolv) $s=x $s=arrows $i=iarrows $i=*
[C14]$s=x $s=callout
[C15]$s=x $s=word
[C16]$s=x $s=cogo
[C17]$s=x $s=stair (if (/= (getvar "useri1") 0)(nl "" "/archp/stairv3")(nl "" "/archp/stairv"));
[C18]$s=x $s=tabler $i=itabler $i=*
[C19]$s=x $s=tablec $i=itablec $i=*
[C20]$s=x $s=eleclite $i=ieleclite $i=*
[C21](if metric (progn (menucmd "s=x")(menucmd "s=lavm")(menucmd "i=ilav")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=lav")(menucmd "i=ilav")(menucmd "i=*")))(princ);
[C22](if metric (progn (menucmd "s=x")(menucmd "s=hvacaccm"))(progn (menucmd "s=x")(menucmd "s=hvacacc")))(princ);(lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
[C23]$s=x $s=masonry $i=imasonry $i=*
[C24]script (dd "/cci/s3");
[C25]script (dd "/custom/user3");
[D1](nl c:cross "/archp/crossfix") cross;
[D2](nl c:butt "/archp/buttfix") butt;
[D3](nl c:corn "/archp/cornfix") corn;
[D4](defun c:wb ()(nl wallbrk "/archp/wallbrk")(setq wfunk "A" wfunk1 'T)(wallbrk wfunk))(princ) wb;
[D5]
[D6](setq doortp "bis")(nl c:door "/archp/door") door;
[D7](setq doortp "bid")(nl c:door "/archp/door") door;
[D8](setq doortp "rev")(nl c:door "/archp/door") door;
[D9]
[D10](princ "1 line WINDOW ")(setq wdline "1")(princ);
[D11](princ "2 line WINDOW ")(setq wdline "2")(princ);
[D12]
[D13]$s=x $s=sectionsym $i=isection $i=*
[D14]$s=x $s=balloon $i=iballoon $i=*
[D15]$s=x $s=linesite $i=ilinesite $i=*
[D16]$s=x $s=handicap $i=ihandicap $i=*
[D17]$s=x $s=stair (if (/= (getvar "useri1") 0)(nl "" "/archp/stairl3")(nl "" "/archp/stairl"));
[D18]$s=x $s=desk $i=idesk $i=*
[D19]$s=x $s=office $i=ioffice $i=*
[D20]$s=x $s=electrack $i=ielectrack $i=*
[D21](if metric (progn (menucmd "s=x")(menucmd "s=sinkm")(menucmd "i=isink")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=sink")(menucmd "i=isink")(menucmd "i=*")))(princ);
[D22](lays ceilv) insert (dd "/arch/smoke") scale !scale1;
[D23]$s=x $s=wood $i=iwood $i=*
[D24]script (dd "/cci/s4");
[D25]script (dd "/custom/user4");
[E1](nl "" "/archp/capfix");
[E2](nl "" "/archp/insulate");
[E3](nl "" "/archp/paint");
[E4](setq lalist (gettable "layer" ""))(nl c:walldim "/archp/walldim") walldim;
[E5]
[E6](setq doortp "sls")(nl c:door "/archp/door") door;
[E7](setq doortp "sld")(nl c:door "/archp/door") door;
[E8](setq doortp "gd")(nl c:door "/archp/door") door;
[E9]
[E10](princ "Loading CURTAIN WALL ")(nl "" "/archp/curtain");
[E11](nl "" "/archp/mullion");
[E12]
[E13](lays symbolv) insert (dd "/arch/eltarget") scale !scale1;
[E14]$s=x $s=colins $i=icolins $i=*
[E15]$s=x $s=siteutil $i=isiteutil $i=*
[E16]$s=x $s=vehicles $i=ivehicles $i=*
[E17]$s=x $s=stair (if (/= (getvar "useri1") 0)(nl "" "/archp/stairu3")(nl "" "/archp/stairu"));
[E18](if metric (progn (menucmd "s=x")(menucmd "s=filecabm")(menucmd "i=ifilecabm")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=filecab")(menucmd "i=ifilecab")(menucmd "i=*")))(princ);
[E19]$s=x $s=plants $i=iplants $i=*
[E20](if metric (progn (menucmd "s=x")(menucmd "s=fluorm")(menucmd "i=ifluor")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=fluor")(menucmd "i=ifluor")(menucmd "i=*")))(princ);
[E21]$s=x $s=shower $i=ishower $i=*
[E22]$s=x $s=sprink
[E23]$s=x $s=conc $i=iconc $i=*
[E24]script (dd "/cci/s5");
[E25]script (dd "/custom/user5");
[F1]$s=x $s=roof $i=iroof $i=*
[F2]$s=x $s=firepl $i=ifirepl $i=*
[F3](nl shadow "/archp/shadow");
[F4](nl c:walk "/archp/walk") walk;
[F5]
[F6](setq doortp "fx1s")(nl c:door "/archp/door") door;
[F7](setq doortp "fx2s")(nl c:door "/archp/door") door;
[F8](nl sillside "/archp/sillside")(nl "" "/archp/drsill");
[F9]
[F10]$s=x $s=window (setq wind1 nil wind2 nil)(princ) (princ "Loading WINDOW 1 ")(nl wallbrk "/archp/wallbrk")(nl hingloc "/archp/hingloc")(nl insonly "/archp/insonly")(nl windfin "/archp/windfin")(nl c:window "/archp/window") window;
[F11]$s=x $s=window (setq wind1 't wind2 nil)(princ) (princ "Loading WINDOW 2 ")(nl wallbrk "/archp/wallbrk")(nl hingloc "/archp/hingloc")(nl insonly "/archp/insonly")(nl windfin1 "/archp/windfin1")(nl c:window "/archp/window") window;
[F12]
[F13]$s=x $s=breaks $i=ibreaks $i=*
[F14]$s=x $s=interior (lays symbolv) insert (dd "/arch/intelev") scale !scale1 \\\\(setq pt1 (getvar "lastpoint"))(princ)(nl "" "/archp/intelev");
[F15]$s=x $s=sitelight $i=isitelight $i=*
[F16]$s=x $s=parking1 $i=iparking1 $i=*
[F17]$s=x $s=stair (nl "" "/archp/stairesc");
[F18]$s=x $s=bookcase $i=ibookcase $i=*
[F19](if metric (progn (menucmd "i=ikitcabm")(menucmd "i=*"))(progn (menucmd "i=ikitcab")(menucmd "i=*")))(princ);
[F20]$s=x $s=elecemer $i=ielecemer $i=*
[F21](if metric (progn (menucmd "s=x")(menucmd "s=tubm")(menucmd "i=itub")(menucmd "i=*"))(progn (menucmd "s=x")(menucmd "s=tub")(menucmd "i=itub")(menucmd "i=*")))(princ);
[F22](lays ceilv) insert (dd "/arch/speaker") scale !scale1;
[F23]$s=x $s=rebars $i=irebars $i=*
[F24]script (dd "/cci/dim1");
[F25]script (dd "/custom/user6");
[G1]
[G2]
[G3]
[G4]
[G5]
[G6](setq doortp "exs")(nl c:door "/archp/door") door;
[G7](setq doortp "exd")(nl c:door "/archp/door") door;
[G8](nl "" "/archp/doorelev");
[G9]
[G10]$s=x $s=window (setq wind1 't wind2 't)(princ) (princ "Loading WINDOW 3 ")(nl wallbrk "/archp/wallbrk")(nl hingloc "/archp/hingloc")(nl insonly "/archp/insonly")(nl windfin2 "/archp/windfin2")(nl c:window "/archp/window") window;
[G11](nl "" "/archp/windelev") windelev;
[G12]
[G13](lays symbolv) insert (dd "/arch/revno") scale !scale1;
[G14](lays symbolv) insert (dd "/arch/revno1") scale !scale1;
[G15]$s=x $s=drainage $i=idrainage $i=*
[G16]$s=x $s=parking $i=iparking $i=*
[G17](nl "" "/archp/stairel");
[G18]$s=x $s=lamp $i=ilamp $i=*
[G19]$s=x $s=3dmisc $i=i3dmisc $i=*
[G20]$s=x $s=electel $i=ielectel $i=*
[G21](lays fixtv) insert (dd3 "/hwheater") scale !scale1;
[G22]$s=x $s=ceiling $i=iceiling $i=*
[G23]$s=x $s=consdet $i=iconsdet $i=*
[G24]script (dd "/cci/dim2");
[G25]script (dd "/custom/user7");
[H1]$s=x $s=space (nl "" "/archp/space");
[H2]$s=x $s=space (nl "" "/archp/spacediv");
[H3]$s=x $s=space (nl "" "/archp/spacelin");
[H4]$s=x $s=space (nl billmat "/cci/billmat")(billmat (strcat drive "/arch/space"));
[H5]
[H6](princ "Door with 1 Side Light ")(setq wind1 'T)(princ);
[H7](princ "Door with 2 Side Lights ")(setq wind1 'T wind2 'T)(princ);
[H8]$s=x $s=door
[H9]
[H10](princ "Resetting WINDOW variables ")(nl "" "/archp/windcln")(princ);
[H11]$s=x $s=window
[H12]
[H13]$s=x $s=schedule
[H14](lays symbolv) insert (dd "/arch/const") scale !scale1;
[H15]$s=x $s=barscale
[H16]$s=x $s=sitemisc $i=isitemisc $i=*
[H17](nl "" "/archp/spiral");
[H18](nl "" "/archp/2dto3d");
[H19]$s=x $s=furnmisc $i=ifurnmisc $i=*
[H20]$s=x $s=elecmisc $i=ielecmisc $i=*
[H21]$s=x $s=plumbmisc $i=iplumbmisc $i=*
[H22]$s=x $s=ceilmisc $i=iceilmisc $i=*
[H23]$s=x $s=detmisc $i=idetmisc $i=*
[H24](nl "" "/cci/lascript");
[H25]script (dd "/custom/user8");
[I1]$s=x $s=3d
[I2]$s=x $s=3d
[I3]$s=x $s=3d
[I4]$s=x $s=3d
[I5]$s=x $s=3d
[I6]$s=x $s=3d
[I7]
[I8]
[I9]$s=x $s=ds
[I10]$s=x $s=dr
[I11]
[I12]
[I13]
[I14]
[I15]
[I16]
[I17]
[I18]
[I19]
[I20]
[I21]
[I22]
[I23]
[I24](nl calc "/cci/calc")(calc);
[I25](nl calc "/cci/calc")(calc);
***TABLET2
[J1]hide;
[J2]vpoint;;
[J3]$s=x $s=3dthick
[J4]^C^C$s=x $s=ucs1 ucs;
[J5]^C^Cucs prev;
[J6]^C^Cucs view;
[J7]
[J8]
[J9]'zoom w;
[JI0]^c^c$s=x $s=line line;
[J11](nl zooma "/cci/zooma")(zooma);
[K1]$s=x $s=vp3d $i=i3dviews $i=*
[K2](nl c:cone "/cci/3d") $s=x $s=3dobject $i=i3dobjects $i=*
[K3]$s=x $s=3dlisp
[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);
[K5]^c^c$s=x $s=ucsicon ucsicon;
[K6]plan;
[K7]
[K8]
[K9]'zoom c;
[K10]^c^c$s=x $s=pline pline;
[K11]'redraw;
[L1]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade light;
[L2]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade camera;
[L3]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade scene;
[L4]$s=x $s=3dface 3dface;
[L5]$s=x $s=3dsurf $i=isurf $i=*
[L6]$s=x $s=3dpoly 3dpoly;
[L7]
[L8](nl off "/cci/off")(off) \
[L9]'zoom d;
[L10]^c^c$s=x $s=arc
[L11]'redraw;
[M1]$s=x $s=view
[M2]$s=x $s=view
[M3]$s=x $s=view
[M4]$s=x $s=view
[M5]$s=x $s=view
[M6]$s=x $s=view
[M7]$s=x $s=view
[M8](nl mid "/cci/mid")(mid) \
[M9]'zoom a;(princ " HINT: VIEW Restore ALL is faster " )(princ);
[M10]^C^C$S=X $S=CIRCLE circle;
[M11]'redraw;
[N1]'view ? 'view s;
[N2]'view ? 'view r;
[N3](nl "" "/cci/views")(princ "Setup Completed ")(princ);
[N4]'view r 1;
[N5]'view r 2;
[N6]'zoom 2x;
[M7]
[N8](nl int "/cci/int")(int) \
[N9]'zoom p;
[N10]^c^c$s=x $s=ellipse ellipse;
[N11]'redraw;
[O1]^C^C$s=x $s=vports $i=ivporti $i=*
[O2](nl "" "/cci/zmscale");
[O3]'view r all;
[O4]'view r 3;
[O5]'view r 4;
[O6]'zoom .5x;
[O7]
[O8].x @;
[O9]'zoom e;(princ " HINT: VIEW Restore ALL is faster " )(princ);
[O10]^c^c$s=x $s=polygon polygon;
[O11]'redraw;
[P1]$s=x $s=block
[P2]$s=x $s=block
[P3]$s=x $s=attcontrol
[P4]$s=x $s=layer
[P5]$s=x $s=layer
[P6]$s=x $s=layer
[P7]
[P8].y @;
[P9]'zoom;
[P10]^c^c$s=x $s=point point;
[P11]'redraw;
[Q1]$s=x $s=block block;
[Q2]$s=x $s=insert insert;
[Q3]$s=x $s=attdef attdef;
[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);
[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);
[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);
[Q7]
[Q8].z @;
[Q9]'pan;
[Q10]$s=x $s=sketch sketch;
[Q11]'redraw;
[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)))
[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) +
(if (not (member nil bklist))(LAYERS "B" bklist)(princ "No BLOCKS Found"))(if scrtog (setq sdsrcn nil scrtog nil))(princ);
[R3]$s=x $s=attedit attedit;
[R4](nl "" "/cci/layerset");
[R5](nl "" "/cci/layerfrz");
[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);
[R7]
[R8]
[R9](nl "" "/cci/zoomin");
[R10]^c^c$s=x $s=hatch hatch;
[R11]redrawall;
***TABLET3



135;
135;
90;
90;
45;
45;



180;
180;
<
<
0;
0;



225;
225;
270;
270;
315;
315;







(nl at-angle "/cci/at-angle")(at-angle);
(nl at-angle "/cci/at-angle")(at-angle);



7/8;
7/8;
/16
/16
/32
/32



1/2
1/2
5/8
5/8
3/4
3/4



1/8
1/8
1/4
1/4
3/8
3/8



-
-
/
/
x
x



@
@
'
'
"
"



7
7
8
8
9
9



4
4
5
5
6
6



1
1
2
2
3
3



0
0
.
.
,
,
***TABLET4
[S1]$s=x $s=inq
[S2]$s=x $s=inq
[S3]$s=x $s=inq
[S4]$s=x $s=inq
[S5]$s=x $s=inq
[S6]$s=x $s=inq
[S7]
[S8]$s=x $s=style style;
[S9]$s=x $s=text ^c^c$t4=text1 $t4=text2 text;
[S10]$s=x $s=dtext ^c^c$t4=dtext1 $t4=dtext2 dtext;
[S11]
[S12]$s=x $s=osnapc
[S13]$s=x $s=osnapc
[S14]$s=x $s=osnapc
[S15]$s=x $s=osnapc
[S16]$s=x $s=osnapc
[S17]$s=x $s=osnapc
[S18]$s=x $s=osnapc
[S19]$s=x $s=osnapc
[S20]$s=x $s=osnapc
[S21]$s=x $s=osnapc
[S22]$s=x $s=osnapc
[S23]
[S24]$s=x $s=ut
[S25]$s=x $s=ut
[T1]$s=x $s=time
[T2]^c^cid;
[T3]status;
[T4]^c^c$s=x $s=list list;
[T5]^c^c$s=x $s=dist dist;
[T6]^c^c$s=x $s=area area;
[T7]
[T8]$s=x $s=text ^c^ctext;
[T9]$s=x $s=text ^c^ctext c;
[T10]$s=x $s=text ^c^ctext r;
[T11]
[T12]none;
[T13]cent;
[T14]endp;
[T15]ins;
[T16]int;
[T17]mid;
[T18]near;
[T19]node;
[T20]perp;
[T21]quad;
[T22]tan;
[T23]
[T24](setq usecnt 0);(princ);save;
[T25]$s=x $s=purge purge;
[U1]$s=x $s=dim (lays dimlayv) dim;
[U2]$s=x $s=dim (lays dimlayv) dim;
[U3]$s=x $s=dim (lays dimlayv) dim;
[U4]$s=x $s=dim (lays dimlayv) dim1;
[U5]$s=x $s=dim (lays dimlayv) dim1;
[U6]$s=x $s=dim (lays dimlayv) dim1;
[U7]
[U8]$s=x $s=text ^c^ctext a;
[U9]$s=x $s=text ^c^ctext m;
[U10]$s=x $s=text ^c^ctext f;
[U11]
[U12]
[U13]$s=x $s=undo undo;
[U14]redo;
[U15](ssget "w" (getvar "extmin")(getvar "extmax"));
[U16]M;
[U17]W;
[U18]L;
[U19]P;
[U20]C;
[U21]R;
[U22]A;
[U23]
[U24](nl "" "/cci/end")(end);
[U25]$s=x $s=quit quit;
[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);
[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);
[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);
[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);
[V5]dim dimzin $i=idimzin $i=*
[V6]$s=x $s=format
[V7]
[V8]$s=x $s=set
[V9]$s=x $s=set
[V10]$s=x $s=set
[V11]
[V12]$s=x $s=ed
[V13]$s=x $s=ed
[V14]$s=x $s=ed
[V15]$s=x $s=ed
[V16]$s=x $s=ed
[V17]$s=x $s=ed
[V18]$s=x $s=ed
[V19]$s=x $s=ed
[V20]$s=x $s=ed
[V21]$s=x $s=ed
[V22]$s=x $s=ed
[V23]
[V24]files;
[V25]$s=x $s=attext
[W1](nl "" "/cci/dimext");
[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);
[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);
[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);
[W5]^c^cdim dimtp;
[W6]dim dimtm;
[W7]
[W8]$s=x $s=style style;
[W9]$i=isnaprot $i=*
[W10](if metric (progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);grid;
[W11]
[W12]^c^c$s=x $s=scale scale auto;
[W13]^c^c$s=x $s=rotate rotate auto;
[W14]^c^c$s=x $s=offset offset;
[W15]^c^c$s=x $s=move move auto;
[W16]^c^c$s=x $s=erase e;
[W17]^cel;
[W18]oops;
[W19]^C^C(nl c:peditm "/cci/peditm") peditm;
[W20]$s=x $s=explode explode;
[W21]$s=x $s=array select auto \array p  ;
[W22]$s=x $s=divide divide;
[W23]
[W24]^c^c$s=x $s=plot
[W25]$s=x $s=slides
[X1]$s=x $s=var1
[X2]$s=x $s=dim $i=iballoon $i=*
[X3]^c^c$s=x $s=dimlinear dim base;
[X4]^c^c$s=x $s=dimlinear dim contin;
[X5]^c^c$s=x $s=dimlinear dim vert;
[X6]^c^c$s=x $s=dimlinear dim horiz;
[X7]
[X8](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))(progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))
[X9]$s=x $s=set2
[X10]$s=x $s=snapset 'setvar snapunit
[X11]
[X12]^c^c$s=x $s=mirror mirror auto;
[X13]^c^cbk;
[X14]^c^c$s=x $s=break break \f \@;
[X15]^c^c$s=x $s=copy copy auto;
[X16]^c^c$s=x $s=extend extend;
[X17]^c^cst;
[X18]^c^c$s=x $s=trim trim auto;
[X19]^c^c$s=x $s=fillet fillet r 0;;
[X20]^c^c$s=x $s=fillet fillet;
[X21]^c^c$s=x $s=chamfer chamfer;
[X22]$s=x $s=measure measure;
[X23]
[X24]$s=x $s=script script;
[X25]menu menu;
[Y1]$s=x $s=dim dim center;
[Y2]$s=x $s=dim dim radius;
[Y3]$s=x $s=dim dim diameter;
[Y4]$s=x $s=dim dim angular;
[Y5]^c^c$s=x $s=dimlinear dim rotated;
[Y6]^c^c$s=x $s=dimlinear dim aligned;
[Y7]
[Y8](if (= (getvar "lunits") 2)(progn (setvar "lunits" 4)(prompt "Units Architectural")(princ))(progn (setvar "lunits" 2)(prompt "Units Decimal")(princ)))
[Y9](if (= (getvar "highlight") 1)(progn (setvar "highlight" 0)(prompt "Highlight OFF")(princ))(progn (setvar "highlight" 1)(prompt "Highlight ON")(princ)))
[Y10]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
[Y11]
[Y12]^c^c$s=x $s=change change auto;
[Y13]$s=x $s=chgblk
[Y14](if (/= sdscrn "Y")(nl "" "/cci/chlay")(nl "" "/cci/chlays"))(princ) chlay;
[Y15]select auto \change p  e;
[Y16]$s=x $s=chprop select auto \chprop;p;;
[Y17]$s=x $s=changetxt select auto \change p  ;
[Y18](nl c:chgtext "/cci/chgtext") chgtext;
[Y19](nl "" "/cci/fradpick");
[Y20]$s=x $s=copy select auto \copy p  m;
[Y21](nl "" "/cci/glue");
[Y22](nl ssx "/cci/ssx")(ssx);
[Y23]
[Y24]$s=x $s=excomds
[Y25]$s=x $s=dxf
**DTEXT1 33
$s=x $s=dtext ^c^cdtext;
$s=x $s=dtext ^c^cdtext c;
$s=x $s=dtext ^c^cdtext r;
**DTEXT2 58
$s=x $s=dtext ^c^cdtext a;
$s=x $s=dtext ^c^cdtext m;
$s=x $s=dtext ^c^cdtext f;
**TEXT1 33
$s=x $s=text ^c^ctext;
$s=x $s=text ^c^ctext c;
$s=x $s=text ^c^ctext r;
**TEXT2 58
$s=x $s=text ^c^ctext a;
$s=x $s=text ^c^ctext m;
$s=x $s=text ^c^ctext f;