home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 193.img / AAUPGRD1.ZIP / AUTOARCH / ARCH.MNU < prev    next >
Text File  |  1990-03-14  |  266KB  |  7,205 lines
  1. autoARCH R10.3 3/14/90
  2. ***BUTTONS
  3. ;
  4. endp,int,mid,cen;\
  5. 
  6. ^B
  7. ^O
  8. ^G
  9. ^D
  10. ^E
  11. ^T
  12. ***AUX1
  13. ;
  14. $p1=*
  15. ^C
  16. ^B
  17. ^O
  18. ^G
  19. ^D
  20. ^E
  21. ^T
  22. ***POP1
  23. **pop1
  24. [Tools]
  25. [OSNAP set]^c^c$p1=pop1 $p1=* osnap \
  26. [ENDpoint]endpoint;
  27. [MIDpoint]midpoint;
  28. [INTersec]intersec;
  29. [NEArest]nearest;
  30. [CENter]center;
  31. [INSert]insert;
  32. [NODe]node;
  33. [PERpend]perpend;
  34. [QUAdrant]quadrant;
  35. [TANgent]tangen;
  36. [NONE]none;
  37. [Filters    >]$p1=filters $p1=*
  38. [~--]
  39. [match](nl ssx "/cci/ssx")(ssx)
  40. [reference](nl off "/cci/off")(off) \
  41. [mid 2 point](nl mid "/cci/mid")(mid) \
  42. [intersection](nl int "/cci/int")(int) \
  43. [fraction](nl midway "/cci/midway")(midway) \
  44. [double ref](nl offway "/cci/offway")(offway) \
  45. [inters ref](nl refint "/cci/refint")(refint) \
  46.  
  47. **filters
  48. [Filters]
  49. [.X   ].x;
  50. [.Y   ].y;
  51. [.Z   ].z;
  52. [.XY  ].xy;
  53. [.XZ  ].xz;
  54. [.YZ  ].yz;
  55. [Hold x].x @;
  56. [Hold y].y @;
  57. [Hold z].z @;
  58. [Tools >]$p1= $p1=*
  59.  
  60. **lisptool
  61. [Lisp-Tools]
  62. [ENDpoint]endpoint;
  63. [MIDpoint]midpoint;
  64. [INTersec]intersec;
  65. [NEArest]nearest;
  66. [CENter]center;
  67. [INSert]insert;
  68. [PERpend]perpend;
  69. [QUAdrant]quadrant;
  70. [TANgent]tangen;
  71. [Filters         >]$p1=filters $p1=*
  72. [ reference    R]r
  73. [ mid 2 point  M]m
  74. [ intersection I]i
  75. [ fraction     F]f
  76. [ polar        P]p
  77. [ double ref   RR]rr
  78. [ inters ref   IR]ir
  79. [ midpoint ref MR]mr
  80. [ calculator   CAL]cal
  81.  
  82. ***POP2
  83. **pop2
  84. [Draw]
  85. [Line]$s=x $s=line line;
  86. [Arc            >]^C^C$s=x $s=arc arc;
  87. [Circle         >]^C^C$s=x $s=circle circle;
  88. [Polyline]^C^C$s=x $s=pline pline;
  89. [Solid]^c^c$s=x $s=solid solid;
  90. [Ellipse]^c^c$s=x $s=ellipse ellipse;
  91. [Donut]donut;
  92. [Polygon]^c^c$s=x $s=polygon polygon;
  93. [Point]$s=x $s=point point;
  94. [Box](nl "" "/cci/box");
  95. [Slot](nl "" "/cci/slot");
  96. [Insert]^C^C$s=x $s=insert insert;
  97. [Minsert]^C^C$s=x $s=minsert minsert;
  98. [Attrib define]$s=x $s=attdef attdef;
  99. [Dim            >]$s=x $s=dim $i=idim1 $i=*
  100. [Text]^C^C$s=x $s=text $t4=text1 $t4=text2 text;
  101. [Dtext]^C^C$s=x $s=dtext $t4=dtext1 $t4=dtext2 dtext;
  102. [Style]$s=x $s=style style;
  103. [Fonts          >]$i=ifonts1 $i=*
  104. [Hatch          >]^C^C$i=ihatch1 $i=*
  105. [3D             >]$s=x $s=3d $p2=i3d $p2=*
  106.  
  107. **i3d
  108. [3D  ]
  109. [3D Objects   >](nl c:cone "/cci/3d") $s=x $s=3dobject $i=i3dobjects $i=*
  110. [3D Lisp      >]$s=x $s=3dlisp $i=i3dobjects1 $i=*
  111. [3Dface]$s=x $s=3dface 3dface;
  112. [3Dpoly]$s=x $s=3dpoly 3dpoly;
  113. [3D Surfaces  >]$s=x $s=3dsurf $i=isurf $i=*
  114. [~--]
  115. [midpt](nl 3dmid "/cci/3dmid")(3dmid) \
  116. [ref zang](nl zangoff "/cci/zangoff")(zangoff) \\\
  117. [refzdist](nl zdistoff "/cci/zdistoff")(zdistoff) \\\
  118. [zang](nl zang "/cci/zang")(zang) \\
  119. [zdist](nl zdist "/cci/zdist")(zdist) \\
  120. ['elev]'setvar elevation;
  121. ['thick]'setvar thickness;
  122. [chg elev](nl "" "/cci/chelev");
  123. [chgthick](nl "" "/cci/chthick");
  124. [pick-set elev](nl "" "/cci/setelev");
  125. [pick-setthick](nl "" "/cci/setthick");
  126. [HIDE:]HIDE;
  127. [layer HIDDEN](PRINC "Loading LAYERH ")(nl "" "/cci/layerh");
  128. [~--]
  129. [DRAW         >]$p2=pop2 $p2=*
  130.  
  131. **wall
  132. [Wall]
  133. [Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);$p2=wall $p2=*
  134. [~--]
  135. [Exterior Wall](nl c:wallext "/archp/wallext") wallext;
  136. [         Simple](nl c:wallexts "/archp/wallexts") wallexts;
  137. [         3L Mas](nl c:wallextm "/archp/wallextm") wallextm;
  138. [         4L Mas](nl c:wallmas "/archp/wallmas") wallmas;
  139. [         Corner](nl c:wallcnte "/archp/wallcnte") wallcnte;
  140. [Interior Wall](nl c:wallint "/archp/wallint") wallint;
  141. [         Simple](nl c:wallints "/archp/wallints") wallints;
  142. [         Double](nl c:wallintd "/archp/wallintd") wallintd;
  143. [         Corner](nl c:wallcnti "/archp/wallcnti") wallcnti;
  144. [~--]
  145. [Wall Line](nl c:walline "/archp/wallline") walline;
  146. [Low Wall](nl c:walllow "/archp/walllow") walllow;
  147. [Poly-Wall](nl c:wallpoly "/archp/wallpoly") wallpoly;
  148. [~--]
  149. [Foundation     >]$p2=pfwall $p2=*
  150. [Building       >]$i=ibuild $i=*
  151. [Controls       >]$p2=pvar $p2=*
  152. [Wall Misc      >]$p2=pclean $p2=*
  153.  
  154. **pvar
  155. [Wall]
  156. [Layermod Wall](set 'temp 'WALLV)(nl "" "/cci/layermod");
  157. [         Masonry](set 'temp 'WALLMV)(nl "" "/cci/layermod");
  158. [         Foundation](set 'temp 'FNDV)(nl "" "/cci/layermod");
  159. [         Footing](set 'temp 'FNDDV)(nl "" "/cci/layermod");
  160. [Thicknes Wall](princ "Resetting WALL thickness ")(setq wallth nil)(post)(princ);
  161. [         Masonry](princ "Resetting Masonry WALL thickness ")(setq mwalth nil)(post)(princ);
  162. [         Foundation](princ "Resetting FOUNDATION WALL thickness ")(setq fndthk nil)(post)(princ);
  163. [         Footing](princ "Resetting FOOTING thickness ")(setq fndfth nil)(post)(princ);
  164. [Height   Wall](princ "Resetting WALL height ")(setq wallht nil)(post)(princ);
  165. [         Low wall](princ "Resetting LOW WALL height ")(setq walllw nil)(post)(princ);
  166. [         Foundation](princ "Resetting FOUNDATION WALL height ")(setq fndht nil)(post)(princ);
  167. [         Footing](princ "Resetting FOOTING height ")(setq fndfht nil)(post)(princ);
  168. [Max wall reset](princ "Resetting MAX WALL ")(setq maxwal nil)(post)(PRINC);
  169. [Air gap](princ "Resetting AIR GAP width ")(setq airwdt nil)(post)(princ);
  170. [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);
  171. [~--]
  172. [Partition         >]$p2=wall $p2=*
  173. [Foundation        >]$p2=pfwall $p2=*
  174. [Building          >]$i=ibuild $i=*
  175. [Wall Misc         >]$p2=pclean $p2=*
  176.  
  177. **pfwall
  178. [Wall]
  179. [Foundation Walls]
  180. [Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);$p2=pfwall $p2=*
  181. [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);
  182. [~--]
  183. [Exterior Foundation](nl c:fndwalle "/archp/fndwalle") fndwalle;
  184. [         Combination](nl c:fndwall "/archp/fndwall") fndwall;
  185. [Interior Foundation](nl c:fndwalli "/archp/fndwalli") fndwalli;
  186. [         Combination](nl c:fndwallc "/archp/fndwallc") fndwallc;
  187. [~--]
  188. [Partition           >]$p2=wall $p2=*
  189. [Building            >]$i=ibuild $i=*
  190. [Controls            >]$p2=pvar $p2=*
  191. [Wall Misc           >]$p2=pclean $p2=*
  192.  
  193. **pclean
  194. [Wall]
  195. [Cross fix](nl c:cross "/archp/crossfix") cross;
  196. [T fix](nl c:butt "/archp/buttfix") butt;
  197. [Corner fix](nl c:corn "/archp/cornfix") corn;
  198. [Cap fix](nl "" "/archp/capfix");
  199. [Wall break](defun c:wb ()(nl wallbrk "/archp/wallbrk");(setq wfunk "A" wfunk1 't)(wallbrk wfunk))(princ) wb;
  200. [Insulation](nl "" "/archp/insulate");
  201. [Closet shelf](nl "" "/archp/closet");
  202. [Wall area](nl "" "/archp/paint");
  203. [Wall dimension](setq lalist (gettable "layer" ""))(nl c:walldim "/archp/walldim") walldim;
  204. [Wall hatch](nl "" "/archp/hatwall");
  205. [Wall Fillet](nl c:wallfilt "/archp/wallfilt") wallfilt;
  206. [Wall to roof](nl c:wltoroof "/archp/wltoroof") wltoroof;
  207. [Doubler](nl "" "/archp/doubler");
  208. [Draw elevation](nl elevatin "/archp/elevatin")(elevatin);
  209. [Draw section](nl crossect "/archp/crossect")(crossect);
  210. [~--]
  211. [Partition     >]$p2=wall $p2=*
  212. [Foundation    >]$p2=pfwall $p2=*
  213. [Building      >]$i=ibuild $i=*
  214. [Controls      >]$p2=pvar $p2=*
  215.  
  216. ***POP3
  217. **pop3
  218. [Edit]
  219. [Erase]^C^C$s=x $s=erase erase auto;
  220. [Move]^C^C$s=x $s=move move auto;
  221. [Copy]^C^C$s=x $s=copy copy auto;
  222. [Array]$s=x $s=array array auto;
  223. [Change]^C^C$S=X $s=change change auto;
  224. [Edit text](nl c:chgtext "/cci/chgtext") chgtext;
  225. [Break]$s=x $s=break bk;
  226. [Explode]$s=x $s=explode explode;
  227. [Fillet]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mfillet"))(progn (menucmd "s=x")(menucmd "s=fillet"))) fillet;
  228. [Chamfer]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mchamfer"))(progn (menucmd "s=x")(menucmd "s=chamfer"))) chamfer;
  229. [Mirror]$s=x $s=mirror mirror auto;
  230. [Offset]^c^c$s=x $s=offset offset;
  231. [Trim]^C^C$S=X $s=trim trim;
  232. [Extend]^C^C$S=X $s=extend extend;
  233. [Stretch]^C^C$S=X $s=stretch stretch crossing;
  234. [Scale]$s=x $s=scale scale auto;
  235. [Rotate]$s=x $s=rotate rotate auto;
  236. [Divide]$s=x $s=divide divide;
  237. [Measure]$s=x $s=measure measure;
  238. [Edit Polylines]^C^C(nl c:peditm "/cci/peditm") peditm;
  239. [Attribute edit]$s=x $s=attedit attedit;
  240.  
  241. **pdoor
  242. [Doors]
  243. [Reset all variables](nl "" "/archp/doorcln");$p3=*
  244. [Door height](princ "Resetting DOOR height ")(setq doorht nil)(princ);$p3=*
  245. [Door width](princ " Resetting Door Width ")(setq doorwd nil)(princ);$p3=*
  246. [Max wall reset](princ "Resetting MAX WALL ")(setq maxwal nil)(princ);$p3=*
  247. [Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);$p3=*
  248. [Layermod Door](set 'temp 'DOORV)(nl "" "/cci/layermod");\$p3=*
  249. [Layermod Doorno](set 'temp 'DOORNOV)(nl "" "/cci/layermod");\$p3=*
  250. [Break Exists](princ "EXISTING BREAK ")(setq doorfk "I")(princ);$p3=*
  251. [Break Choose lines](princ "BREAK CHOOSE ")(setq doorfk "A")(princ);$p3=*
  252. [Break All lines](princ "BREAK ALL ")(setq doorfk "1")(princ);$p3=*
  253. [Door with 1 window](princ "Door with 1 Side Light ")(setq wind1 'T)(princ);$p3=*
  254. [Door with 2 windows](princ "Door with 2 Side Lights ")(setq wind1 'T wind2 'T)(princ);$p3=*
  255. [Sill](nl sillside "/archp/sillside")(nl "" "/archp/drsill");
  256. [Jamb](if (/= jambd "Y")(progn (setq jambd "Y")(princ "JAMBS INCLUDED ")(nl "" "/archp/jambd"))(progn (setq jambd "N")(princ "JAMBS NOT INCLUDED ")))(princ);$p3=*
  257. [Undo Door](nl "" "/cci/partout");
  258. [3d Door swap](nl "" "/archp/doorelev");
  259. [Door Schedule](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/door"));
  260. [~--]
  261. [Place INTERIOR doors >]$p3=pdoor1 $p3=*
  262. [Place EXTERIOR doors >]$p3=pdoor2 $p3=*
  263.  
  264. **pdoor1
  265. [Doors]
  266. [Interior]
  267. [90 single](setq doortp "90s")(nl c:door "/archp/door") door;
  268. [90 double](setq doortp "90d")(nl c:door "/archp/door") door;
  269. [90 double Egress](setq doortp "90deg")(nl c:door "/archp/door") door;
  270. [45 single](setq doortp "45s")(nl c:door "/archp/door") door;
  271. [45 double](setq doortp "45d")(nl c:door "/archp/door") door;
  272. [45 double Egress](setq doortp "45deg")(nl c:door "/archp/door") door;
  273. [180 single](setq doortp "180s")(nl c:door "/archp/door") door;
  274. [180 double](setq doortp "180d")(nl c:door "/archp/door") door;
  275. [Existing single](setq doortp "exs")(nl c:door "/archp/door") door;
  276. [Existing double](setq doortp "exd")(nl c:door "/archp/door") door;
  277. [Sliding single](setq doortp "sls")(nl c:door "/archp/door") door;
  278. [Sliding double](setq doortp "sld")(nl c:door "/archp/door") door;
  279. [Bi-folding single](setq doortp "bis")(nl c:door "/archp/door") door;
  280. [Bi-folding double](setq doortp "bid")(nl c:door "/archp/door") door;
  281. [2-way single](setq doortp "2ws")(nl c:door "/archp/door") door;
  282. [2-way double](setq doortp "2wd")(nl c:door "/archp/door") door;
  283. [Flex single](setq doortp "fx1s")(nl c:door "/archp/door") door;
  284. [Flex double](setq doortp "fx2s")(nl c:door "/archp/door") door;
  285. [~--]
  286. [Place EXTERIOR doors >]$p3=pdoor2 $p3=*
  287. [Door Root menu       >]$p3=pdoor $p3=*
  288.  
  289. **pdoor2
  290. [Doors]
  291. [Exterior]
  292. [90 single](setq doortp "90s")(nl c:door "/archp/door") door;
  293. [90 double](setq doortp "90d")(nl c:door "/archp/door") door;
  294. [90 double Egress](setq doortp "90deg")(nl c:door "/archp/door") door;
  295. [45 single](setq doortp "45s")(nl c:door "/archp/door") door;
  296. [45 double](setq doortp "45d")(nl c:door "/archp/door") door;
  297. [45 double Egress](setq doortp "45deg")(nl c:door "/archp/door") door;
  298. [180 single](setq doortp "180s")(nl c:door "/archp/door") door;
  299. [180 double](setq doortp "180d")(nl c:door "/archp/door") door;
  300. [Existing single](setq doortp "exs")(nl c:door "/archp/door") door;
  301. [Existing double](setq doortp "exd")(nl c:door "/archp/door") door;
  302. [Sliding single](setq doortp "sls")(nl c:door "/archp/door") door;
  303. [Sliding double](setq doortp "sld")(nl c:door "/archp/door") door;
  304. [2-way single](setq doortp "2ws")(nl c:door "/archp/door") door;
  305. [2-way double](setq doortp "2wd")(nl c:door "/archp/door") door;
  306. [Revolving](setq doortp "rev")(nl c:door "/archp/door") door;
  307. [Garage](setq doortp "gd")(nl c:door "/archp/door") door;
  308. [~--]
  309. [Place INTERIOR doors >]$p3=pdoor1 $p3=*
  310. [Doors Root menu      >]$p3=pdoor $p3=*
  311.  
  312. ***POP4
  313. **pop4
  314. [Display]
  315. [Zoom Window]'zoom w;
  316. [     Previous]'zoom p;
  317. [     Center]'zoom c;
  318. [     In]'zoom 2x;
  319. [     Out]'zoom .5x;
  320. [     Dynamic]'zoom d;
  321. [Pan]'pan;
  322. [View]$s=x $s=view 'view;
  323. [View setup](nl "" "/cci/views");
  324. [V R all]'view r all;
  325. [V R 1]'view r 1;
  326. [V R 2]'view r 2;
  327. [V R 3]'view r 3;
  328. [V R 4]'view r 4;
  329. [Vpoint 3D        >]^c^c$s=x $s=vp3d $i=i3dviews $i=*
  330. [~--]
  331. [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);
  332. [~--]
  333. [Plan View (UCS)]^C^Cplan;;
  334. [Plan View (World)]^C^Cplan wo;
  335. [Set Viewports    >]^c^c$s=x $s=vports $i=ivporti $i=*
  336.  
  337. **pwindow
  338. [Window]
  339. [Layermod Window](set 'temp 'WINDV)(nl "" "/cci/layermod");
  340. [Reset all variables](nl "" "/archp/windcln");$p4=*
  341. [Reset window 2](princ " Resetting Window type 2 ")(setq wndtp1 nil)(princ);$p4=*
  342. [Reset window 3](princ " Resetting Window type 3 ")(setq wndtp2 nil)(princ);$p4=*
  343. [Set Top of Window](setq temp (getdist (strcat " Top of window elevation <"(rtos (getvar "userr3"))">: ")));\(if temp (setvar "userr3" temp));
  344. [Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);$p4=*
  345. [Break Exist](princ " WINDOW BREAK EXISTS ")(setq windfk "I")(princ);$p4=*
  346. [Break Choose lines](princ " CHOOSE wall LINES NOT to BREAK ")(setq windfk "1")(princ);$p4=*
  347. [Break All lines](princ " WINDOW BREAK ALL ")(setq windfk "2")(princ);$p4=*
  348. [Sill](nl sillside "/archp/sillside")(nl "" "/archp/sill");
  349. [Mullion](nl "" "/archp/mullion");
  350. [Jamb](if (/= jambw "Y")(progn (setq jambw "Y")(princ " JAMBS INCLUDED ")(nl "" "/archp/jamb"))(progn (setq jambw "N")(princ " JAMBS NOT INCLUDED ")))(princ);$p4=*
  351. [Window elevation](nl "" "/archp/windelev");
  352. [Undo window](nl "" "/cci/partout");
  353. [~--]
  354. [Place Bow window](nl wallbrk "/archp/wallbrk")(setq windfk "2")(nl "" "/archp/bow")(bow);$p4=*
  355. [Place Bay window](nl "" "/archp/windbay")(nl "" "/archp/windfin3")(princ " Pick WINDOW 1 2 OR 3 ")(princ);$p4=*
  356. [Place Curtain Wall](nl "" "/archp/curtain");
  357. [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;
  358. [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;
  359. [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;
  360.  
  361. ***POP5
  362. **pop5
  363. [Modes]
  364. [Drawing Aids      >]'ddrmodes
  365. [Entity Creation   >]'ddemodes
  366. [Modify Layer      >]'ddlmodes
  367. [Layer side screen >]$s=x $s=layer
  368. [Modify Attributes >]ddatte;
  369. [~--]
  370. [UCS Dialogue      >]^C^C$S=X $s=ucs1 dducs
  371. [UCS Presets       >]^C^C$S=X $s=ucs1 $i=iucs $i=*
  372. [UCS Icon option   >]$s=x $s=ucsicon $i=iucs1 $i=*
  373. [UCS commands      >]$s=x $s=ucs1 $i=iucs2 $i=*
  374. [UCS Previous]^C^cucs p;
  375. [~--]
  376. [Set Vports & UCS](nl "" "/cci/ucssetup");
  377. [Viewports         >]^c^c$s=x $s=vports $i=ivporti $i=*
  378.  
  379. **plevel
  380. [Levels]
  381. [3d Level setup](nl "" "/archp/3dinfo");
  382. [Modify Level list](nl "" "/archp/laylevel");
  383. [Load Level list](nl "" "/archp/levellay");
  384. [Make drawing type](nl "" "/archp/leveljob");
  385. [Use drawing type](nl "" "/archp/leveltyp");
  386. [~--]
  387. [Level Move](nl "" "/archp/levmove");
  388. [Level Copy](nl "" "/archp/levcopy");
  389. [Level Array](nl "" "/archp/levarray");
  390. [Level Delete](nl "" "/archp/leveldel");
  391. [Level 2 File](nl "" "/archp/levelmod");
  392. [Level Reference](nl "" "/archp/levelref");
  393. [Level Set](nl "" "/archp/levelset");
  394. [~--]
  395. [level layer ON](nl lalevel "/archp/lalevel")(lalevel "ON");
  396. [            OFF](nl lalevel "/archp/lalevel")(lalevel "OFF");
  397. [            FREEZE](nl lalevel "/archp/lalevel")(lalevel "FREEZE");
  398. [            THAW](nl lalevel "/archp/lalevel")(lalevel "THAW");
  399. [3d Status](nl "" "/archp/3dstat");
  400. [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);
  401. [2d to 3d](nl "" "/archp/2dto3d");
  402.  
  403. ***POP6
  404. **pop6
  405. [Misc]
  406. [Block]$s=x $s=block block;
  407. [Wblock]$s=x $s=wblock wblock;
  408. [Makeblks](nl makeblk "/cci/makeblk")(makeblk);
  409. [Userblocks         >]$i=userblk $i=*
  410. [Attext & schedules >]$s=x $s=attext
  411. [~--]
  412. [Time               >]$s=x $s=time
  413. [Status]status;
  414. [Id]id;
  415. [List]list;
  416. [Dist]$s=x $s=dist dist;
  417. [Area]$s=x $s=area area;
  418. [Help]'help;
  419. [~--]
  420. [Undo]$s=x $s=undo undo;
  421. [Redo]redo;
  422. [Oops]oops;
  423. [~--]
  424. [Lisp               >]$s=x $s=lisp
  425. [Balloon & Leaders  >]$s=x $s=balloon $i=iballoon $i=*
  426. [Ashade             >]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade $i=ias $i=*
  427.  
  428. **pmisc
  429. [Misc]
  430. [Appliances         >]$s=x $s=appl $i=iappl $i=*
  431. [Breaks             >]$s=x $s=breaks $i=ibreaks $i=*
  432. [Callouts           >]$p7=pcall $p7=*
  433. [Ceiling            >]$s=x $s=ceiling $i=iceiling $i=*
  434. [Ceiling Misc       >]$s=x $s=ceilmisc $i=iceilmisc $i=*
  435. [Electrical symbols >]$p7=pelec $p7=*
  436. [Fireplace          >]$s=x $s=firepl $i=ifirepl $i=*
  437. [Furniture symbols  >]$p7=pfurn $p7=*
  438. [HVAC               >](if (and metric (not (equal scaleb 40. 0.001)))(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);
  439. [Kitchen Cabinets   >](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "i=ikitcabm")(menucmd "i=*"))(progn (menucmd "i=ikitcab")(menucmd "i=*")))(princ);
  440. [Plumbing symbols   >]$p7=pplumb $p7=*
  441. [Roof               >]$s=x $s=roof $i=iroof $i=*
  442. [Schedule           >]$s=x $s=schedule
  443. [Shadow](nl "" "/archp/shadow");
  444. [Site symbols       >]$p7=psite $p7=*
  445. [Space planning     >]$p7=pspace $p7=*
  446. [Stairs             >]$p7=pstair $p7=*
  447. [Structural         >]$p7=pstruct $p7=*
  448. [Walk through](nl c:walk "/archp/walk");walk;
  449. [Walk polyline](nl c:walkpoly "/archp/walkpoly");walkpoly;
  450. [Setting            >]$p7=pop7 $p7=*
  451.  
  452. ***POP7
  453. **pop7
  454. [Setting]
  455. [Snap]$s=x $s=snap snap;
  456. [Snap set](if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=msnapset"))(progn (menucmd "s=x")(menucmd "s=snapset"))) 'setvar snapunit
  457. [Grid](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);grid;
  458. [Axis]$s=x $s=axis axis;
  459. [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);
  460. [Settings           >]$s=x $s=set2
  461. [Attrib control     >]$s=x $s=attcontrol
  462. [Aperture & pickbox]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
  463. [~--]
  464. [Toggle Snap]
  465. [       Ortho]
  466. [       Coords]
  467. [       Iso]
  468. [       Tablet]
  469. [Blips](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))(progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))
  470. [High light](if (= (getvar "highlight") 1)(progn (setvar "highlight" 0)(prompt "Highlight OFF")(princ))(progn (setvar "highlight" 1)(prompt "Highlight ON")(princ)))
  471. [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)))
  472.  
  473. **pstair
  474. [Stairs]
  475. [~--]
  476. [Layermod stair](set 'temp 'stairv)(nl "" "/cci/layermod");
  477. [Stringer reset](setq ststr nil)(princ " Resetting stair Stringer ")(princ);
  478. [Stair type reset](setq startp nil)(princ " Resetting stair Type ")(princ);
  479. [Handrail reset](setq sthdrl nil)(princ " Resetting stair Handrails ")(princ);
  480. [Baluster reset](setq balist nil)(princ " Resetting stair Balusters ")(princ);
  481. [Arrow reset](setq sthdar nil)(princ " Resetting stair directional Arrow ")(princ);
  482. [Expert](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
  483. [~--]
  484. [Stair calculator](nl "" "/archp/stair");
  485. [Spiral](nl "" "/archp/spiral");
  486. [Vertical Cut](nl "" "/archp/stairct");
  487. [Vertical](if (/= (getvar "useri1") 0)(nl "" "/archp/stairv3")(nl "" "/archp/stairv"));
  488. [L shaped](if (/= (getvar "useri1") 0)(nl "" "/archp/stairl3")(nl "" "/archp/stairl"));
  489. [U shaped](if (/= (getvar "useri1") 0)(nl "" "/archp/stairu3")(nl "" "/archp/stairu"));
  490. [Escalator](nl "" "/archp/stairesc");
  491. [Elevator](nl "" "/archp/stairel");
  492.  
  493. **pspace
  494. [Space]
  495. [~--]
  496. [Layermod space](set 'temp 'SPACEV)(nl "" "/cci/layermod");
  497. [~--]
  498. [Space](nl "" "/archp/space");
  499. [Space divide](nl "" "/archp/spacediv");
  500. [Space shape](nl "" "/archp/spaceshp");
  501. [Space circle](nl "" "/archp/spacecir");
  502. [Space wall](nl "" "/archp/spacelin");
  503. [Space list](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/space"));
  504. [FIX big](nl "" "/archp/spaceara");
  505. [FIX small](nl "" "/archp/spaceupd");
  506. [Edit space](nl "" "/archp/spacedit");
  507. [Delete space](nl "" "/archp/spacedel");
  508. [Doubler](nl "" "/archp/doubler");
  509. [Cross fix](nl c:cross "/archp/crossfix") cross;
  510.  
  511. **pcall
  512. [Callouts]
  513. [Room           >]$s=x $s=callout
  514. [Room Area      >]$s=x $s=roomarea
  515. [Interior       >]$s=x $s=interior
  516. [Detail         >]$s=x $s=detail $i=idetail $i=*
  517. [Section        >]$s=x $s=sectionsym $i=isection $i=*
  518. [Arrows         >]$s=x $s=arrows $i=arrows $i=*
  519. [Columns        >]$s=x $s=colins $i=icolins $i=*
  520. [~--]
  521. [Window](lays windnov) insert (dd "/arch/windnum") scale !scale1;
  522. [Door](lays doornov) insert (dd "/arch/doornum") scale !scale1;
  523. [Equipement](lays symbolv) insert (dd "/arch/equip") scale !scale1;
  524. [Line Break](nl insertbk "/cci/insertbk")(insertbk "/cci/break2" 12 "C")(princ);
  525. [Revision](lays symbolv) insert (dd "/arch/revno") scale !scale1;
  526. [Revision 1](lays symbolv) insert (dd "/arch/revno1") scale !scale1;
  527. [Construction](lays symbolv) insert (dd "/arch/const") scale !scale1;
  528. [Demolition note](lays symbolv) insert (dd "/arch/demo") scale !scale1;
  529. [~--]
  530. [Layermod Windno](set 'temp 'WINDNOV)(nl "" "/cci/layermod");
  531. [Layermod Doorno](set 'temp 'DOORNOV)(nl "" "/cci/layermod");
  532. [Layermod Symbol](set 'temp 'symbolv)(nl "" "/cci/layermod");
  533.  
  534. **psite
  535. [Site]
  536. [~--]
  537. [Layermod site](set 'temp 'sitev)(nl "" "/cci/layermod");
  538. [~--]
  539. [North           >]$s=x $s=north $i=inorth $i=*
  540. [Elevation Marker]insert (dd "/arch/eltarget") \  
  541. [Barscale        >]$s=x $s=barscale
  542. [--WORD--        >]$s=x $s=word
  543. [Linetypes       >]$s=x $s=linesite $i=ilinesite $i=*
  544. [Trees           >]$S=x $s=treepln $i=itreepln $i=*
  545. [Vehicles        >]$s=x $s=vehicles $i=ivehicles $i=*
  546. [Drainage        >]$s=x $s=drainage $i=idrainage $i=*
  547. [Utilitys        >]$s=x $s=siteutil $i=isiteutil $i=*
  548. [Parking         >]$s=x $s=parking $i=iparking $i=*
  549. [Handicapped     >]$s=x $s=handicap $i=ihandicap $i=*
  550. [COGO            >]$s=x $s=cogo
  551. [Site lighting   >]$s=x $s=sitelight $i=isitelight $i=*
  552. [Miscellaneous   >]$s=x $s=sitemisc $i=isitemisc $i=*
  553.  
  554. **pstruct
  555. [Struct]
  556. [~--]
  557. [Steel         >]$s=x $s=struct $i=istruct $i=*
  558. [Metal stud    >](if (and metric (not (equal scaleb 40. 0.001)))(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);
  559. [Masonry       >]$s=x $s=masonry $i=imasonry $i=*
  560. [Wood          >]$s=x $s=wood $i=iwood $i=*
  561. [Concrete      >]$s=x $s=conc $i=iconc $i=*
  562. [Rebars        >]$s=x $s=rebars $i=irebars $i=*
  563. [Const details >]$s=x $s=consdet $i=iconsdet $i=*
  564. [Misc details  >]$s=x $s=detmisc $i=idetmisc $i=*
  565. [Columns       >]$s=x $s=colins $i=icolins $i=*
  566.  
  567. **pplumb
  568. [Plumb]
  569. [~--]
  570. [Layermod fixture](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  571. [~--]
  572. [Toilets        >]$s=x $s=toilet $i=itoilet $i=*
  573. [Urinals        >]$s=x $s=urinal $i=iurinal $i=*
  574. [Lavatory       >](if (and metric (not (equal scaleb 40. 0.001)))(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);
  575. [Bathtubs       >](if (and metric (not (equal scaleb 40. 0.001)))(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);
  576. [Showers        >]$s=x $s=shower $i=ishower $i=*
  577. [Sinks          >](if (and metric (not (equal scaleb 40. 0.001)))(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);
  578. [Misc plumbing  >]$S=x $s=plumbmisc $i=iplumbmisc $i=
  579.  
  580. **pelec
  581. [Elec]
  582. [~--]
  583. [Layermod electrical](set 'temp 'elecv)(nl "" "/cci/layermod");
  584. [~--]
  585. [Fluorescent lights  >](if (and metric (not (equal scaleb 40. 0.001)))(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);
  586. [Incandescent lights >]$s=x $s=eleclite $i=ieleclite $i=*
  587. [Outlets             >]$s=x $s=elecout $i=ielecout $i=*
  588. [Switches            >]$s=x $s=elecswit $i=ielecswit $i=*
  589. [Telephone           >]$s=x $s=electel $i=ielectel $i=*
  590. [Emergency           >]$s=x $s=elecemer $i=ielecemer $i=*
  591. [Track lighting      >]$s=x $s=electrack $i=ielectrack $i=*
  592. [Misc electric       >]$s=x $s=elecmisc $i=ielecmisc $i=*
  593.  
  594. **pfurn
  595. [Furn]
  596. [~--]
  597. [Layermod furniture](set 'temp 'FURNV)(nl "" "/cci/layermod");
  598. [~--]
  599. [Chairs           >]$s=x $s=chair $i=ichair $i=*
  600. [Tables           >]$s=x $s=table $i=itabler $i=*
  601. [Desk             >]$s=x $s=desk $i=idesk $i=*
  602. [Sofa             >]$s=x $s=sofa $i=isofa $i=*
  603. [Beds             >]$s=x $s=bed $i=ibed $i=*
  604. [Office equipment >]$s=x $s=office $i=ioffice $i=*
  605. [File cabinets    >](if (and metric (not (equal scaleb 40. 0.001)))(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);
  606. [Bookcase         >]$s=x $s=bookcase $i=ibookcase $i=*
  607. [Lamp             >]$s=x $s=lamp $i=ilamp $i=*
  608. [Plants           >]$s=x $s=plants $i=iplants $i=*
  609. [3D misc          >]$s=x $s=3dmisc $i=i3dmisc $i=*
  610. [Misc furniture   >]$s=x $s=furnmisc $i=ifurnmisc $i=*
  611.  
  612. ***POP8
  613. **pop8
  614. [Util]
  615. [Save]^C^CSave;
  616. [End]^C^C(nl "" "/cci/end")(end);
  617. [Quit]^C^c$s=x $s=quit quit;
  618. [~--]
  619. [Plot             >]^C^c$s=x $s=plot
  620. [~--]
  621. [Daystamp](nl "" "/cci/daystamp");
  622. [Dxf / Iges       >]$s=x $s=dxf
  623. [Edit text file]ws;
  624. [List text file]ty;
  625. [Files]files;
  626. [Purge]$s=x $s=purge purge;
  627. [Rename]$s=x $s=rename rename;
  628. [Script           >]$s=x $s=script
  629. [Shell (external) >]$S=X $S=EXCOMDS
  630. [Slides           >]$s=x $s=slides
  631.  
  632. ***pop9
  633. **pop9
  634. [Menus]
  635. [autoARCH pull-down]$p1=pop1 $p2=wall $p3=pdoor $p4=pwindow $p5=plevel $p6=pmisc $p9=parch $p10=pop10
  636. [ACAD     pull-down]$p1=pop1 $p2=pop2 $p3=pop3 $p4=pop4 $p5=pop5 $p6=pop6 $p7=pop7 $p8=pop8 $p9=pop9 $p10=pop10
  637. [Menu of menus    >]menu menu;
  638.  
  639. **parch
  640. [Menus]
  641. [ draw]$p10=pop2 $p10=*
  642. [ edit]$p10=pop3 $p10=*
  643. [ display]$p10=pop4 $p10=*
  644. [ modes]$p10=pop5 $p10=*
  645. [ misc]$p10=pop6 $p10=*
  646. [~--]
  647. [autoARCH pull-down]$p1=pop1 $p2=wall $p3=pdoor $p4=pwindow $p5=plevel $p6=pmisc $p9=parch $p10=pop10
  648. [ACAD     pull-down]$p1=pop1 $p2=pop2 $p3=pop3 $p4=pop4 $p5=pop5 $p6=pop6 $p7=pop7 $p8=pop8 $p9=pop9 $p10=pop10
  649. [Menu of menus    >]menu menu;
  650.  
  651. ***pop10
  652. **pop10
  653.  
  654. ***icon
  655. **ias
  656. [Select Ashade Command]
  657. [acad(camera)]^c^c$s=x $s=camera camera;
  658. [acad(camview)]^c^c$s=x $s=ashade camview;
  659. [acad(point)]^C^c$s=x $s=lights light \p;
  660. [acad(directed)]^c^c$s=x $s=lights light \d;
  661. [acad(scene)]^C^c$s=x $s=action scene;
  662. [acad(filmroll)]^c^c$s=x $s=action filmroll;
  663. [ Cancel]
  664.  
  665. **ipoly
  666. [Set Polymesh & Polyline Variables]
  667. [acad(pmq)]'setvar surftype 5
  668. [acad(pmc)]'setvar surftype 6
  669. [acad(pmb)]'setvar surftype 8
  670. [acad(plq)]'setvar splinetype 5
  671. [acad(plc)]'setvar splinetype 6
  672. [ Set SPLINESEGS]'setvar splinesegs \
  673. [ Set SPLFRAME]'setvar splframe \
  674. [ Set DENSITY]'setvar surfu \'setvar surfv \
  675. [ Exit]$s= $s=
  676.  
  677. **iucs
  678. [User Coordinate System Options]
  679. [ Set to World]^C^Cucs world
  680. [acad(left)]^c^cP(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@0,-1,0 @0,0,1;
  681. [ Set to Screen]^C^Cucs view
  682. [acad(top)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@1,0,0 @0,1,0;
  683. [acad(front)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@1,0,0 @0,0,1;
  684. [acad(bottom)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@1,0,0 @0,-1,0;
  685. [acad(back)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@-1,0,0 @0,0,1;
  686. [acad(right)]^c^c(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) ucs 3p \@0,1,0 @0,0,1;
  687. [ Cancel]
  688.  
  689. **iucs1
  690. [User Coordinate System Icon Options]
  691. [ On]^C^Cucsicon on;
  692. [ Off]^c^cucsicon off;
  693. [ Noorign]^C^Cucsicon n;
  694. [ Orign]^c^cucsicon or;
  695. [ All]^c^cucsicon all;$i=iucs1 $i=*
  696. [ Cancel]
  697.  
  698. **iucs2
  699. [User Coordinate System sub-commands]
  700. [ Origin]ucs orgin;
  701. [ ZAxis]ucs za;
  702. [ 3point]ucs 3point;
  703. [ Entity]ucs ent;
  704. [ View]ucs view;
  705. [ X]ucs x;
  706. [ Y]ucs y;
  707. [ Z]ucs z;
  708. [ Previous]ucs prev;
  709. [ Restore]ucs restore;
  710. [ Save]ucs save;
  711. [ Delete]ucs delete;
  712. [ ?]ucs ?;
  713. [ World]ucs world;
  714. [ UCS Presets]^C^C$S=X $S=ucs1 $i=iucs $i=*
  715. [ Cancel]
  716.  
  717. **i3dviews
  718. [Select View Direction]
  719. [acad(ul)]^c^cvpoint r;<<135;
  720. [acad(l)]^c^cvpoint r;<<180;
  721. [acad(ll)]^c^cvpoint r;<<225;
  722. [acad(user)]$i=* $s= $s=
  723. [acad(u)]^c^cvpoint r;<<90;
  724. [acad(p)]^c^cvpoint 0,0,1;$s= $s=
  725. [acad(lo)]^c^cvpoint r;<<270;
  726. [acad(user)]$i=* $s= $s=
  727. [acad(ur)]^c^cvpoint r;<<45;
  728. [acad(r)]^c^cvpoint r;<<0;
  729. [acad(lr)]^c^cvpoint r;<<315;
  730. [acad(user)]$i=* $s= $s=
  731. [acad(t)]vpoint; $s= $s=
  732. [acad(h)]hide;
  733. [ Cancel]$s= $s= ^c^c
  734.  
  735. **i3dobjects
  736. [3D Objects and 3D Surface Commands]
  737. [acad(box3d)]^c^cbox;
  738. [acad(wedge)]wedge;
  739. [acad(pyramid)]pyramid;
  740. [acad(cone)]^c^ccone;
  741. [acad(dome)]^c^cdome;
  742. [acad(dish)]^c^cdish;
  743. [acad(mesh)]mesh;
  744. [acad(sphere)]^c^csphere;
  745. [acad(torus)]^c^ctorus;
  746. [acad(3dtube)](nl c:3dtube "/cci/3dtube") 3dtube;
  747. [cciacad(polytube)](nl c:tube "/cci/tube") tube;
  748. [cciacad(cube)](nl c:3dcube "/cci/3dcube") 3dcube;
  749. [ Cancel]
  750.  
  751. **isurf
  752. [3D Surface Commands]
  753. [acad(rev)]^c^c$s=x $s=3d revsurf
  754. [acad(surftab1)]'setvar surftab1 \$i=*
  755. [acad(surftab2)]'setvar surftab2 \$i=*
  756. [acad(rul)]^c^c$s=x $s=3d rulesurf
  757. [acad(edg)]^c^c$s=x $s=3d edgesurf
  758. [acad(mesh)]3dmesh;
  759. [acad(tab)]^c^c$s=x $s=3d tabsurf
  760. [ Cancel]
  761.  
  762. **i3dobjects1 
  763. [Select 3D Lisp]
  764. [ Axis Rotate](nl c:axrot "/cci/axrot") axrot;
  765. [ Change Face](nl c:chface "/cci/chface") chface;
  766. [ Edge 3dface](nl c:edge "/cci/edge") edge;
  767. [ Fplot](nl fplot "/cci/fplot");
  768. [ Hole/Slot](nl c:hole "/cci/hole") hole;
  769. [ Project](nl c:project "/cci/project") project;
  770. [acad(3darray)](nl c:3darray "/cci/3darray") 3darray;
  771. [ 3d Angular array)](nl c:3dangarr "/cci/3dangarr") 3dangarr;
  772. [ 3d Rotate](nl c:3drotate "/cci/3drotate") 3drotate;
  773. [ Cancel]
  774.  
  775. **ifonts1
  776. [Select Text Font]
  777. [acad(romans)]^c^cstyle romans romans
  778. [acad(romanc)]^c^cstyle romanc romanc
  779. [acad(italicc)]^c^cstyle italicc italicc
  780. [acad(romand)]^c^cstyle romand romand
  781. [acad(romant)]^c^cstyle romant romant
  782. [acad(italict)]^c^cstyle italict italict
  783. [acad(monotxt)]^c^cstyle monotxt monotxt
  784. [ Next]$i=ifonts2 $i=*
  785. [ Cancel]
  786.  
  787. **ifonts2
  788. [Select Text Font]
  789. [acad(gothice)]^c^cstyle gothice gothice
  790. [acad(greeks)]^c^cstyle greeks greeks
  791. [acad(scripts)]^c^cstyle scripts scripts
  792. [acad(gothicg)]^c^cstyle gothicg gothicg
  793. [acad(greekc)]^c^cstyle greekc greekc
  794. [acad(scriptc)]^c^cstyle scriptc scriptc
  795. [acad(gothici)]^c^cstyle gothici gothici
  796. [ Next]$i=ifonts3 $i=*
  797. [ Cancel]
  798.  
  799. **ifonts3
  800. [Select Text Font]
  801. [acad(syastro)]^c^cstyle syastro syastro
  802. [acad(symath)]^c^cstyle symath symath
  803. [acad(symusic)]^c^cstyle symusic symusic
  804. [acad(symap)]^c^cstyle symap symap
  805. [acad(symeteo)]^c^cstyle symeteo symeteo
  806. [acad(txt)]^c^cstyle txt txt
  807. [acad(user)]
  808. [ Begining]$i=ifonts1 $i=*
  809. [ Cancel]
  810.  
  811. **ihatch1
  812. [Select Hatch Pattern]
  813. [ Previous/User]^c^chatch
  814. [acad(ansi31)]^c^chatch ansi31
  815. [acad(ansi32)]^c^chatch ansi32
  816. [acad(ansi34)]^c^chatch ansi34
  817. [acad(ansi35)]^c^chatch ansi35
  818. [acad(ansi33)]^c^chatch ansi33
  819. [acad(ansi36)]^c^chatch ansi36
  820. [acad(ansi37)]^c^chatch ansi37
  821. [acad(ansi38)]^c^chatch ansi38
  822. [acad(box)]^c^chatch box
  823. [acad(brass)]^c^chatch brass
  824. [acad(brick)]^c^chatch brick
  825. [acad(clay)]^c^chatch clay
  826. [acad(cork)]^c^chatch cork
  827. [ Next]$i=ihatch2 $i=*
  828. [ Cancel]
  829.  
  830. **ihatch2
  831. [Select Hatch Pattern]
  832. [acad(cross)]^c^chatch cross
  833. [acad(dash)]^c^chatch dash
  834. [acad(dolmit)]^c^chatch dolmit
  835. [acad(dots)]^c^chatch dots
  836. [acad(earth)]^c^chatch earth 
  837. [acad(escher)]^c^chatch escher
  838. [acad(flex)]^c^chatch flex
  839. [acad(grass)]^c^chatch grass
  840. [acad(grate)]^c^chatch grate
  841. [acad(hex)]^c^chatch hex
  842. [acad(honey)]^c^chatch honey
  843. [acad(hound)]^c^chatch hound
  844. [acad(insul)]^c^chatch insul
  845. [acad(line)]^c^chatch line
  846. [ Next]$i=ihatch3 $i=*
  847. [ Cancel]
  848.  
  849. **ihatch3
  850. [Select Hatch Pattern]
  851. [acad(mudst)]^c^chatch mudst
  852. [acad(net)]^c^chatch net
  853. [acad(net3)]^c^chatch net3
  854. [acad(plast)]^c^chatch plast
  855. [acad(plasti)]^c^chatch plasti
  856. [acad(sacncr)]^c^chatch sacncr
  857. [acad(square)]^c^chatch square
  858. [acad(stars)]^c^chatch stars
  859. [acad(steel)]^c^chatch steel
  860. [acad(swamp)]^c^chatch swamp
  861. [acad(trans)]^c^chatch trans
  862. [acad(triang)]^c^chatch triang
  863. [acad(zigzag)]^c^chatch zigzag
  864. [acad(angle)]^c^chatch angle
  865. [ Beginning]$i=ihatch1 $i=*
  866. [ Cancel]
  867.  
  868. **ivporti
  869. [Viewport Settings (Current is dominant)]
  870. [acad(vp1)]^c^cvports;si
  871. [acad(vp3v)]^c^cvports;si;;3;v
  872. [acad(vp3h)]^c^cvports;si;;3;h
  873. [acad(vp4)]^c^cvports;si;;4
  874. [acad(vp2v)]^c^cvports;si;;2;v
  875. [acad(vp3r)]^c^cvports;si;;3;r
  876. [acad(vp3l)]^c^cvports;si;;3;l
  877. [acad(vp4l)]^c^cundo;m;(setq m:g (getvar "gridmode"));setvar;gridmode;0;+
  878. vports;si;;2;;(setvar "cvport" (car (cadr (vports))))(princ);;2;;;j;;+
  879. (car (cadr (vports)));(setvar "cvport" (car (cadr (vports))))(princ)+
  880. ;;3;h;(setvar "gridmode" m:g)(princ);zoom;a;(setvar "cvport"+
  881. (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);zoom;a;+
  882. (setvar "cvport" (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);+
  883. zoom;a;(setvar "cvport" (car (cadddr (vports))))(setvar "gridmode" m:g)+
  884. (princ);zoom;a;undo;e;
  885. [acad(vp2h)]^c^cvports;si;;2;h
  886. [acad(vp3a)]^c^cvports;si;;3;a;
  887. [acad(vp3b)]^c^cvports;si;;3;b;
  888. [ Vport Setup](nl "" "/cci/ucssetup");
  889. [ Join Viewports]^c^cvports;j
  890. [ List/Restore]^C^cvports;?;vports r;
  891. [ Save Viewports]vports;s;
  892. [ Cancel]
  893.  
  894. **icircle
  895. [Circle]
  896. [cciacad(cirr)]^c^ccircle \drag
  897. [cciacad(cird)]^c^ccircle \d;
  898. [cciacad(cir2pt)]^c^ccircle 2p \drag
  899. [cciacad(cir3pt)]^c^ccircle 3p \\drag
  900. [cciacad(cirttr)]^c^ccircle ttr;
  901. [cciacad(cirttt)]circle 3p tan \tan \tan;
  902. [cciacad(circon)]circle cen \drag;
  903. [cciacad(circonr)](nl "" "/cci/concentr");
  904. [cciacad(circond)](nl "" "/cci/concentd");
  905. [cciacad(circent)](nl c:circentl "/cci/circentl") circentl;
  906. [ Cancel]
  907.  
  908. **iarc
  909. [Arc]
  910. [cciacad(arc3pt)]^c^carc \\drag
  911. [cciacad(arcsce)]^c^carc \c \drag
  912. [cciacad(arcsca)]^c^carc \c \a drag
  913. [cciacad(arcscl)]^c^carc \c \l drag
  914. [ contin]^c^carc ;drag
  915. [cciacad(arccse)]^c^carc c \\drag
  916. [cciacad(arccsa)]^c^carc c \\a drag
  917. [cciacad(arccsl)]^c^carc c \\l drag
  918. [ cancel]
  919. [cciacad(arcsea)]^c^carc \e \a;
  920. [cciacad(arcser)]^c^carc \e \r;
  921. [cciacad(arcsed)]^c^carc \e \d drag
  922.  
  923. **isnaprot
  924. [Snap Rotate]
  925. [cciacad(snapiso)]snap s i ;
  926. [cciacad(snapnorm)]snap s s   r 0,0 0;
  927. [cciacad(snap60)]snap s s   r 0,0 60;
  928. [ @ +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);
  929. [cciacad(snapleft)]isoplane left;
  930. [cciacad(snap15)]snap s s   r 0,0 15;
  931. [cciacad(snap75)]snap s s   r 0,0 75;
  932. [ @ -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);
  933. [cciacad(snaprigh)]isoplane right;
  934. [cciacad(snap30)]snap s s   r 0,0 30;
  935. [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);
  936. [ pickset](nl "" "/cci/rotsnap");
  937. [cciacad(snaptop)]isoplane top;
  938. [cciacad(snap45)]snap s s   r 0,0 45;
  939. [ Other](initget 1)(setq temp (getangle " Enter angle: "))(setvar "snapang" temp)(princ);
  940. [ cancel]
  941.  
  942. **idimpoint
  943. [Set Both Point Types]
  944. [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 .;
  945. [cciacad(dimarr2)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr2") dim dimasz \dimtsz 0 dimblk dimarr2;
  946. [cciacad(dimarr3)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr3") dim dimasz \dimtsz 0 dimblk dimarr3;
  947. [cciacad(dimarr4)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr4") dim dimasz \dimtsz 0 dimblk dimarr4;
  948. [cciacad(dimarr5)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimarr5") dim dimasz \dimtsz 0 dimblk dimarr5;
  949. [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;
  950. [cciacad(dimdot)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimdot") dim dimasz \dimtsz 0 dimblk dimdot;
  951. [cciacad(dimdot2)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimdot2") dim dimasz \dimtsz 0 dimblk dimdot2;
  952. [cciacad(dimtck)]^c^c(setvar "dimsah" 0)(if (equal (getvar "dimtsz") 0.0 0.001)(setvar "dimtsz" 0.125))(princ) dim dimtsz;
  953. [cciacad(dimtick)]^c^c(setvar "dimsah" 0)(nl dimblk "/cci/dimblk")(dimblk "dimtick") dim dimasz \dimtsz 0 dimblk dimtick;
  954. [ None]dim dimasz 0 dimtsz 0;
  955. [ Cancel]
  956.  
  957. **idimpoint1
  958. [Set First Point type]
  959. [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 .;
  960. [cciacad(dimarr2)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr2") dim dimasz \dimtsz 0 dimblk1 dimarr2;
  961. [cciacad(dimarr3)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr3") dim dimasz \dimtsz 0 dimblk1 dimarr3;
  962. [cciacad(dimarr4)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr4") dim dimasz \dimtsz 0 dimblk1 dimarr4;
  963. [cciacad(dimarr5)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr5") dim dimasz \dimtsz 0 dimblk1 dimarr5;
  964. [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;
  965. [cciacad(dimdot)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimdot") dim dimasz \dimtsz 0 dimblk1 dimdot;
  966. [cciacad(dimtck)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtck") dim dimasz \dimtsz 0 dimblk1 dimtck;
  967. [cciacad(dimtick)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtick") dim dimasz \dimtsz 0 dimblk1 dimtick;
  968. [ None](setvar "dimsah" 1) dim dimblk1 . dimasz 0 dimtsz 0;
  969. [ Cancel]
  970.  
  971. **idimpoint2
  972. [Set Second Point type]
  973. [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 .;
  974. [cciacad(dimarr2)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr2") dim dimasz \dimtsz 0 dimblk2 dimarr2;
  975. [cciacad(dimarr3)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr3") dim dimasz \dimtsz 0 dimblk2 dimarr3;
  976. [cciacad(dimarr4)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr4") dim dimasz \dimtsz 0 dimblk2 dimarr4;
  977. [cciacad(dimarr5)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimarr5") dim dimasz \dimtsz 0 dimblk2 dimarr5;
  978. [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;
  979. [cciacad(dimdot)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimdot") dim dimasz \dimtsz 0 dimblk2 dimdot;
  980. [cciacad(dimtck)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtck") dim dimasz \dimtsz 0 dimblk2 dimtck;
  981. [cciacad(dimtick)]^c^c(setvar "dimsah" 1)(nl dimblk "/cci/dimblk")(dimblk "dimtick") dim dimasz \dimtsz 0 dimblk2 dimtick;
  982. [ None](setvar "dimsah" 1) dim dimblk2 . dimasz 0 dimtsz 0;
  983. [ Cancel]
  984.  
  985. **idimzin
  986. [Suppress Dimension Zero]
  987. [cciacad(dimzin12)]12;
  988. [cciacad(dimzin1)]1;
  989. [cciacad(dimzin10)]10;
  990. [cciacad(dimzin7)]7;
  991.  
  992. **idim1
  993. [Dimensioning]
  994. [cciacad(dimhorz)]^c^c$s=x $s=dimlinear dim horiz;
  995. [cciacad(dimvert)]^c^c$s=x $s=dimlinear dim vert;
  996. [cciacad(dimcont)]^c^c$s=x $s=dimlinear dim contin;
  997. [cciacad(dimbase)]^c^c$s=x $s=dimlinear dim base;
  998. [cciacad(dimalig)]^c^c$s=x $s=dimlinear dim aligned;
  999. [cciacad(dimrot)]^c^c$s=x $s=dimlinear dim rotated;
  1000. [ Update]dim update;
  1001. [ Newtext]dim newtext;
  1002. [cciacad(dimdia)]$s=x $s=dim dim diameter;
  1003. [cciacad(dimrad)]$s=x $s=dim dim radius;
  1004. [cciacad(dimcent)]$s=x $s=dim dim center;
  1005. [cciacad(dimang)]$s=x $s=dim dim angular;
  1006. [cciacad(dimlead)]$s=x $s=dim $i=iballoon $i=*
  1007. [ Toggles]$s=x $s=var1 $i=idimtog $i=*
  1008. [ Status]^c^c$s=x $s=dim dim status;
  1009. [ Cancel]
  1010.  
  1011. **idimtog
  1012. [Dimension Toggles]
  1013. [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);
  1014. [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);
  1015. [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);
  1016. [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);
  1017. [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);
  1018. [cciacad(dimzins)]setvar dimzin;$i=idimzin $i=*
  1019. [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);
  1020. [ Extensions](nl "" "/cci/dimext");
  1021. [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);
  1022. [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);
  1023. [ set +]^c^cdim dimtp;
  1024. [ set -]dim dimtm;
  1025. [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);
  1026. [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);
  1027. [ Dimaltf]'setvar DIMALTF;
  1028. [ Cancel]
  1029.  
  1030. **iinsym
  1031. [Insert Symbol in a Line]
  1032. [ Other](nl "" "/cci/symbol");
  1033. [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");
  1034. [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");
  1035. [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");
  1036. [ Reset size](princ "Resetting SYMBOL size ")(setq size1 nil ang nil)(princ);$i=iinsym $i=*
  1037. [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");
  1038. [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");
  1039. [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");
  1040. [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");
  1041. [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");
  1042. [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");
  1043. [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");
  1044. [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");
  1045. [cciacad(lineball)](setq insfl (strcat drive "/cci/ballsym") ang 0 attfl "Y" attno 1 breakt t break "Y" insflt t)(princ) (nl "" "/cci/symbol");
  1046. [ Cancel]
  1047.  
  1048. **iballoon
  1049. [Custom Balloons and Leaders]
  1050. [ AutoCad Leader]dim leader;
  1051. [cciacad(balloon)](nl c:balloon "/cci/balloon") balloon;
  1052. [cciacad(leader)](nl c:leadr "/cci/leadr") leadr;
  1053. [cciacad(arclead)](nl c:arclead "/cci/arclead") arclead;
  1054. [cciacad(looplead)](nl c:looplead "/cci/looplead") looplead;
  1055. [cciacad(leadtext)](nl c:leadtext "/cci/leadtext") leadtext;
  1056. [cciacad(leaddtxt)](nl c:leaddtxt "/cci/leaddtxt") leaddtxt;
  1057. [cciacad(leadarro)](princ "pointer type set to arrows ")(setq bubtyp "A")(princ);$i=iballoon $i=*
  1058. [cciacad(leaddots)](princ "pointer type set to dots ")(setq bubtyp "D")(princ);$i=iballoon $i=*
  1059. [cciacad(leadtick)](princ "pointer type set to ticks ")(setq bubtyp "T")(princ);$i=iballoon $i=*
  1060. [cciacad(leadnone)](princ "pointer type set to none ")(setq bubtyp "N")(princ);$i=iballoon $i=*
  1061. [ text style](setq bubsty nil)(princ " RESETTING TEXT STYLE ")(princ);$i=iballoon $i=*
  1062. [ pointer size](setq asize nil)(princ " RESETTING POINTER SIZE ")(princ);$i=iballoon $i=*
  1063. [ balloon size](setq bbub nil)(princ " RESETTING BALLOON SIZE ")(princ);$i=iballoon $i=*
  1064. [ Cancel]
  1065.  
  1066. **userblk
  1067. [Userblocks]
  1068. [acadcci(block1)]insert (dd "/custom/block1");
  1069. [acadcci(block2)]insert (dd "/custom/block2");
  1070. [acadcci(block3)]insert (dd "/custom/block3");
  1071. [acadcci(block4)]insert (dd "/custom/block4");
  1072. [acadcci(block5)]insert (dd "/custom/block5");
  1073. [acadcci(block6)]insert (dd "/custom/block6");
  1074. [acadcci(block7)]insert (dd "/custom/block7");
  1075. [acadcci(block8)]insert (dd "/custom/block8");
  1076. [acadcci(block9)]insert (dd "/custom/block9");
  1077. [acadcci(block10)]insert (dd "/custom/block10");
  1078. [acadcci(block11)]insert (dd "/custom/block11");
  1079. [acadcci(block12)]insert (dd "/custom/block12");
  1080. [acadcci(block13)]insert (dd "/custom/block13");
  1081. [acadcci(block14)]insert (dd "/custom/block14");
  1082. [ Next]$i=userblk1 $i=*
  1083. [ Cancel]
  1084.  
  1085. **userblk1
  1086. [Userblocks]
  1087. [acadcci(block15)]insert (dd "/custom/block15");
  1088. [acadcci(block16)]insert (dd "/custom/block16");
  1089. [acadcci(block17)]insert (dd "/custom/block17");
  1090. [acadcci(block18)]insert (dd "/custom/block18");
  1091. [acadcci(block19)]insert (dd "/custom/block19");
  1092. [acadcci(block20)]insert (dd "/custom/block20");
  1093. [acadcci(block21)]insert (dd "/custom/block21");
  1094. [acadcci(block22)]insert (dd "/custom/block22");
  1095. [acadcci(block23)]insert (dd "/custom/block23");
  1096. [acadcci(block24)]insert (dd "/custom/block24");
  1097. [acadcci(block25)]insert (dd "/custom/block25");
  1098. [acadcci(block26)]insert (dd "/custom/block26");
  1099. [acadcci(block27)]insert (dd "/custom/block27");
  1100. [acadcci(block28)]insert (dd "/custom/block28");
  1101. [ Last]$i=userblk $i=*
  1102. [ Cancel]
  1103.  
  1104. **insulate
  1105. [ Insulation Pattern]
  1106. [autoarch(insulate)]insulat;
  1107. [autoarch(insulxm)]insulxm;
  1108. [autoarch(insulx)]insulx;
  1109. [autoarch(insuline)]insuline;
  1110. [autoarch(insulang)]insulang;
  1111. [autoarch(insusold)]insusold;
  1112.  
  1113. **ibuild
  1114. [Building outlines]
  1115. [autoarch(building)](setq bldtyp "S")(nl "" "/archp/building");
  1116. [autoarch(fndbuild)](setq bldtyp "S")(nl "" "/archp/fndbuild");
  1117. [autoarch(bldcombo)](setq bldtyp "S")(nl "" "/archp/bldcombo");
  1118. [ Layer MOD WALL](set 'temp 'WALLV)(nl "" "/cci/layermod");
  1119. [autoarch(buildc)](setq bldtyp "C")(nl "" "/archp/building");
  1120. [autoarch(fndbldc)](setq bldtyp "C")(nl "" "/archp/fndbuild");
  1121. [autoarch(bldcc)](setq bldtyp "C")(nl "" "/archp/bldcombo");
  1122. [ Layer MOD FND](set 'temp 'FNDV)(nl "" "/cci/layermod");
  1123. [ Layer MOD FOOT](set 'temp 'FNDDV)(nl "" "/cci/layermod");
  1124. [ Cancel]
  1125.  
  1126. **door3
  1127. [Door Types]
  1128. [ 90 Sgl]90s;
  1129. [ 90 Dbl]90d;
  1130. [ 90 DblEg]90deg;
  1131. [ 45 Sgl]45s;
  1132. [ 45 Dbl]45d;
  1133. [ 45 DblEg]45deg;
  1134. [ EXISTsgl]exs;
  1135. [ EXISTdbl]exd;
  1136. [ SLIDEsgl]sls;
  1137. [ SLIDEdbl]sld;
  1138. [ BIFOLD S]bis;
  1139. [ BIFOLD D]bid;
  1140. [ 2WAY S]2ws;
  1141. [ 2WAY D]2wd;
  1142. [ REVOLV]rev;
  1143. [ Cancel]
  1144.  
  1145. **idoorel
  1146. [Door Replacement options]
  1147. [autoarch(door1)]3ddoor1;
  1148. [autoarch(door2)]3ddoor2;
  1149. [autoarch(door3)]3ddoor3;
  1150. [autoarch(door4)]3ddoor4;
  1151. [autoarch(door5)]3ddoor5;
  1152. [autoarch(door6)]3ddoor6;
  1153. [autoarch(door7)]3ddoor7;
  1154.  
  1155. **idoorel1
  1156. [Door Accesories]
  1157. [autoarch(doorknob)]doorknob;
  1158. [autoarch(doorknb1)]doorknb1;
  1159. [autoarch(doorknb2)]doorknb2;
  1160. [autoarch(doorknb3)]doorknb3;
  1161. [autoarch(doorknb4)]doorknb4;
  1162. [autoarch(doorknb5)]doorknb5;
  1163. [autoarch(doorknb6)]doorknb6;
  1164. [autoarch(doorknb7)]doorknb7;
  1165. [ None];
  1166.  
  1167. **iwindtype
  1168. [window types]
  1169. [ Single p]sp;
  1170. [ Double]dp;
  1171. [ Casement]ct;
  1172. [ Sliding]gl;
  1173.  
  1174. **iwindtypee
  1175. [Elevation Window types]
  1176. [ Fixed Glass]fixed;
  1177. [ Double Hung]double;
  1178. [ Casement]casement;
  1179. [ Sliding]sliding;
  1180. [ Awning]awning;
  1181.  
  1182. **inorth
  1183. [North arrows]
  1184. [autoarch(north)](lays symbolv) insert (dd "/arch/north") scale !scale1;
  1185. [autoarch(north1)](lays symbolv) insert (dd "/arch/north1") scale !scale1;
  1186. [autoarch(north2)](lays symbolv) insert (dd "/arch/north2") scale !scale1;
  1187. [autoarch(north3)](lays symbolv) insert (dd "/arch/north3") scale !scale1;
  1188. [autoarch(north4)](lays symbolv) insert (dd "/arch/north4") scale !scale1;
  1189. [autoarch(north5)](lays symbolv) insert (dd "/arch/north5") scale !scale1;
  1190. [ Cancel]
  1191.  
  1192. **itreepln
  1193. [Trees 1]
  1194. [autoarch(tree1)](lays sitev) insert (dd3 "/tree1") \\
  1195. [autoarch(tree2)](lays sitev) insert (dd3 "/tree2") \\
  1196. [autoarch(tree3)](lays sitev) insert (dd3 "/tree3") \\
  1197. [autoarch(tree4)](lays sitev) insert (dd3 "/tree4") \\
  1198. [autoarch(tree5)](lays sitev) insert (dd3 "/tree5") \\
  1199. [autoarch(treea)](lays sitev) insert (dd3 "/treea") \\
  1200. [autoarch(treeb)](lays sitev) insert (dd3 "/treeb") \\
  1201. [autoarch(treec)](lays sitev) insert (dd3 "/treec") \\
  1202. [autoarch(treed)](lays sitev) insert (dd3 "/treed") \\
  1203. [autoarch(treee)](lays sitev) insert (dd3 "/treee") \\
  1204. [autoarch(treef)](lays sitev) insert (dd3 "/treef") \\
  1205. [autoarch(treeg)](lays sitev) insert (dd3 "/treeg") \\
  1206. [autoarch(treeh)](lays sitev) insert (dd3 "/treeh") \\
  1207. [autoarch(treei)](lays sitev) insert (dd3 "/treei") \\
  1208. [ next]$i=itreepln1 $i=*
  1209. [ Cancel]
  1210.  
  1211. **itreepln1
  1212. [Trees 2]
  1213. [autoarch(treej)](lays sitev) insert (dd3 "/treej") \\
  1214. [autoarch(treek)](lays sitev) insert (dd3 "/treek") \\
  1215. [autoarch(treel)](lays sitev) insert (dd3 "/treel") \\
  1216. [autoarch(treem)](lays sitev) insert (dd3 "/treem") \\
  1217. [autoarch(treen)](lays sitev) insert (dd3 "/treen") \\
  1218. [autoarch(treeo)](lays sitev) insert (dd3 "/treeo") \\
  1219. [autoarch(treep)](lays sitev) insert (dd3 "/treep") \\
  1220. [autoarch(treeq)](lays sitev) insert (dd3 "/treeq") \\
  1221. [autoarch(treer)](lays sitev) insert (dd3 "/treer") \\
  1222. [autoarch(trees)](lays sitev) insert (dd3 "/trees") \\
  1223. [autoarch(treet)](lays sitev) insert (dd3 "/treet") \\
  1224. [autoarch(treeu)](lays sitev) insert (dd3 "/treeu") \\
  1225. [autoarch(treev)](lays sitev) insert (dd3 "/treev") \\
  1226. [autoarch(treey)](lays sitev) insert (dd3 "/treey") \\
  1227. [autoarch(treez)](lays sitev) insert (dd3 "/treez") \\
  1228. [ last]$i=itreepln $i=*
  1229.  
  1230. **itreepln2
  1231. [Hedges]
  1232. [autoarch(treew)](lays sitev) insert (dd3 "/treew") \\
  1233. [autoarch(treex)](lays sitev) insert (dd3 "/treex") \\
  1234. [autoarch(hedge)](lays sitev) insert (dd3 "/hedge") \\
  1235. [autoarch(rock)](lays sitev) insert (dd3 "/rock") \\
  1236. [ Tree 1]$i=itreepln $i=*
  1237. [ Tree 2]$i=itreepln1 $i=*
  1238. [ Cancel]
  1239.  
  1240. **ihandicap
  1241. [Handicap]
  1242. [autoarch(handisym)](lays sitev) insert (dd "/arch/handisym") \\
  1243. [autoarch(wchairp)](lays sitev) insert (dd3 "/wchairp") scale !scaleb \
  1244. [autoarch(handicrb)](nl "" "/archp/handicrb");
  1245. [ Cancel]
  1246.  
  1247. **ilinesite
  1248. [Site Linetypes]
  1249. [autoarch(sitecust)](nl "" "/cci/symbol");
  1250. [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");
  1251. [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");
  1252. [autoarch(stonewal)](lays sitev) insert (dd "/arch/stone") \\
  1253. [autoarch(boundary)]$s=x $s=line layer m boundary l boundary   line;
  1254. [autoarch(setback)]$s=x $s=line layer m setback l dashed   line;
  1255. [autoarch(stream)]$s=x $s=line layer m stream l stream   line;
  1256. [ Cancel]
  1257.  
  1258. **isiteutil
  1259. [Site Utilties]
  1260. [autoarch(stelp)](lays sitev) insert (dd "/arch/stelp") scale !scale1;
  1261. [autoarch(stelpb)](lays sitev) insert (dd "/arch/stelpb") scale !scale1;
  1262. [autoarch(sltp)](lays sitev) insert (dd "/arch/sltp") scale !scale1;
  1263. [autoarch(spowp)](lays sitev) insert (dd "/arch/spowp") scale !scale1;
  1264. [autoarch(shydrant)](lays sitev) insert (dd "/arch/shydrant") scale !scale1;
  1265. [autoarch(sfirecon)](lays sitev) insert (dd "/arch/sfirecon") scale !scale1;
  1266. [autoarch(gasvalv)](lays sitev) insert (dd "/arch/gasvalv") scale !scale1;
  1267. [autoarch(sh2ovalv)](lays sitev) insert (dd "/arch/sh2ovalv") scale !scale1;
  1268. [autoarch(strndfrm)](lays sitev) insert (dd "/arch/strndfrm") scale !scale1;
  1269. [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");
  1270. [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");
  1271. [ Cancel]   
  1272.  
  1273. **isitemisc
  1274. [Miscellaneous Site]
  1275. [autoarch(strash)](lays sitev) insert (dd "/arch/strash") scale !scale1;
  1276. [autoarch(sbridge)](lays sitev) insert (dd "/arch/sbridge") \\
  1277. [autoarch(sip)](lays sitev) insert (dd "/arch/sip") \\
  1278. [autoarch(sconcmon)](lays sitev) insert (dd "/arch/sconcmon") \\
  1279. [ Cancel]
  1280.  
  1281. **isitelight
  1282. [Site Lights]
  1283. [autoarch(e-lpole1)](lays sitev);insert (dd "/arch2d/e-lpole1") scale !scaleb \
  1284. [autoarch(e-lpole2)](lays sitev);insert (dd "/arch2d/e-lpole2") scale !scaleb \
  1285. [autoarch(e-lpole3)](lays sitev);insert (dd "/arch2d/e-lpole3") scale !scaleb \
  1286. [autoarch(e-lpole4)](lays sitev);insert (dd "/arch2d/e-lpole4") scale !scaleb \
  1287. [ Cancel]
  1288.  
  1289. **ivehicles
  1290. [Vehicles]
  1291. [autoarch(vcssdp)](lays sitev) insert (dd3 "/vcssdp") scale !scaleb \
  1292. [autoarch(vcmsdp)](lays sitev) insert (dd3 "/vcmsdp") scale !scaleb \
  1293. [autoarch(vcmstp)](lays sitev) insert (dd3 "/vcmstp") scale !scaleb \
  1294. [autoarch(vclsdp)](lays sitev) insert (dd3 "/vclsdp") scale !scaleb \
  1295. [autoarch(vtanp)](lays sitev) insert (dd3 "/vtvanp") scale !scaleb \
  1296. [autoarch(vt18bp)](lays sitev) insert (dd3 "/vt18bp") scale !scaleb \
  1297. [autoarch(vt24bp)](lays sitev) insert (dd3 "/vt24bp") scale !scaleb \
  1298. [autoarch(vt28bp)](lays sitev) insert (dd3 "/vt28bp") scale !scaleb \
  1299. [autoarch(vbusschl)](lays sitev) insert (dd3 "/vbusschl") scale !scaleb \
  1300. [autoarch(vbusmtro)](lays sitev) insert (dd3 "/vbusmtro") scale !scaleb \
  1301. [ Big Trucks]$i=ivehicles1 $i=*
  1302. [ Cancel]
  1303.  
  1304. **ivehicles1
  1305. [Big Trucks]
  1306. [autoarch(vtt50p)](lays sitev) insert (dd3 "/vtt50p") scale !scaleb \
  1307. [autoarch(vtt55p)](lays sitev) insert (dd3 "/vtt55p") scale !scaleb \
  1308. [autoarch(vtt60p)](lays sitev) insert (dd3 "/vtt60p") scale !scaleb \
  1309. [autoarch(vtt65p)](lays sitev) insert (dd3 "/vtt65p") scale !scaleb \
  1310. [autoarch(vttr50p)](lays sitev) insert (dd3 "/vttr50p") scale !scaleb \
  1311. [autoarch(vttr55p)](lays sitev) insert (dd3 "/vttr55p") scale !scaleb \
  1312. [autoarch(vttr60p)](lays sitev) insert (dd3 "/vttr60p") scale !scaleb \
  1313. [autoarch(vttr65p)](lays sitev) insert (dd3 "/vttr65p") scale !scaleb \
  1314. [ Cars & Vans]$i=ivehicles $i=*
  1315. [ Cancel]
  1316.  
  1317. **idrainage
  1318. [Drainage]
  1319. [autoarch(catchbsn)](lays sitev) insert (dd "/arch/catchbsn") scale !scale1;
  1320. [autoarch(manhole)](lays sitev) insert (dd "/arch/manhole") scale !scale1;
  1321. [autoarch(curbinlt)](lays sitev) insert (dd "/arch/curbinlt") scale !scale1;
  1322. [ Cancel]
  1323.  
  1324. **iparking
  1325. [Parking lot symbols]
  1326. [autoarch(arrows)](lays sitev) insert (dd "/arch/arrows") \\
  1327. [autoarch(arr2way)](lays sitev) insert (dd "/arch/arr2way") \\
  1328. [autoarch(arrowl)](lays sitev) insert (dd "/arch/arrowl") \\
  1329. [autoarch(arrowr)](lays sitev) insert (dd "/arch/arrowr") \\
  1330. [autoarch(arrstrl)](lays sitev) insert (dd "/arch/arrstrl") \\
  1331. [autoarch(arrstrr)](lays sitev) insert (dd "/arch/arrstrr") \\
  1332. [autoarch(handisym)](lays sitev) insert (dd "/arch/handisym") \\
  1333. [autoarch(snopark)](lays sitev) insert (dd "/arch/snopark") scale !scale1;
  1334. [autoarch(snoenter)](lays sitev) insert (dd "/arch/snoenter") scale !scaleb \
  1335. [autoarch(sexit)](lays sitev) insert (dd "/arch/sexit") scale !scaleb \
  1336. [autoarch(parking1)]$i=iparking1 $i=*
  1337. [ Cancel]
  1338.  
  1339. **iparking1
  1340. [Parking lot layout]
  1341. [autoarch(parking)](nl parking "/archp/parking")(parking);
  1342. [autoarch(parkg10)](lays sitev) insert (dd "/arch/parkg10") scale !scaleb \
  1343. [autoarch(parkg15)](lays sitev) insert (dd "/arch/parkg15") scale !scaleb \
  1344. [autoarch(parkg20)](lays sitev) insert (dd "/arch/parkg20") scale !scaleb \
  1345. [autoarch(parks10)](lays sitev) insert (dd "/arch/parks10") scale !scaleb \
  1346. [autoarch(parks15)](lays sitev) insert (dd "/arch/parks15") scale !scaleb \
  1347. [autoarch(parks20)](lays sitev) insert (dd "/arch/parks20") scale !scaleb \
  1348. [autoarch(parkd10)](lays sitev) insert (dd "/arch/parkd10") scale !scaleb \
  1349. [autoarch(parkd15)](lays sitev) insert (dd "/arch/parkd15") scale !scaleb \
  1350. [autoarch(parkd20)](lays sitev) insert (dd "/arch/parkd20") scale !scaleb \
  1351. [autoarch(parksyms)]$i=iparking $i=*
  1352. [ Cancel]
  1353.  
  1354. **iappl
  1355. [Appliances]
  1356. [autoarch(range)](lays fixtv) insert (dd3 "/range") scale !scaleb \
  1357. [autoarch(oven)](lays fixtv) insert (dd3 "/oven") scale !scaleb \
  1358. [autoarch(ref1)](lays fixtv) insert (dd3 "/ref1") scale !scaleb \
  1359. [autoarch(ref2)](lays fixtv) insert (dd3 "/ref2") scale !scaleb \
  1360. [autoarch(ref3)](lays fixtv) insert (dd3 "/ref3") scale !scaleb \
  1361. [autoarch(dishwash)](lays fixtv) insert (dd3 "/dishwash") scale !scaleb \
  1362. [autoarch(wash)](lays fixtv) insert (dd3 "/washer") scale !scaleb \
  1363. [autoarch(dryer)](lays fixtv) insert (dd3 "/dryer") scale !scaleb \
  1364. [autoarch(micro)](lays fixtv) insert (dd3 "/micro") scale !scaleb \
  1365. [autoarch(toaster)](lays fixtv) insert (dd3 "/toaster") scale !scaleb \
  1366. [ fan]^c^cinsert (dd "/arch2d/upthe") scale !scale1;
  1367. [ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  1368. [ Cancel]
  1369.  
  1370. **iroof
  1371. [Roof layout]
  1372. [ ROOFGABL](nl c:roofgab "/archp/roofgab") roofgab;
  1373. [ ROOFSHED](nl c:roofshed "/archp/roofshed") roofshed;
  1374. [ ROOFHIP](nl c:hip "/archp/hiproof") hip;
  1375. [ 1/2 GABL](nl c:roof "/archp/roof") roof;
  1376. [ just HIP](nl c:roofhip "/archp/roofhip") roofhip;
  1377. [ 3pt int](nl c:3ptroof "/archp/3ptroof") 3ptroof;
  1378. [ ROOFJOIN](nl c:4ptroof "/archp/4ptroof") 4ptroof;
  1379. [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);
  1380. [cciacad(snapnorm)](setvar "snapang" 0)(princ) 'redraw;
  1381. [ Roof hatch]$i=iroofh $i=*
  1382. [ Cancel]
  1383.  
  1384. **iroofh
  1385. [ Roof hatch patterns]
  1386. [ Hatch Face or poly](nl "" "/archp/hatfacer");
  1387. [autoarch(shingle1)]hatch shingle1 (* scalem 12);
  1388. [autoarch(shakes1)]hatch shakes1 (* scalem 12);
  1389. [autoarch(shakes2)]hatch shakes2 (* scalem 12);
  1390. [autoarch(troof2)]hatch spantile (* scalem 12);
  1391. [ Cancel]
  1392.  
  1393. **ichair
  1394. [Chairs]
  1395. [autoarch(chair1)](lays furnv) insert (dd3 "/chair1") scale !scaleb \
  1396. [autoarch(chair2)](lays furnv) insert (dd3 "/chair2") scale !scaleb \
  1397. [autoarch(chair3)](lays furnv) insert (dd3 "/chair3") scale !scaleb \
  1398. [autoarch(chair4)](lays furnv) insert (dd3 "/chair4") scale !scaleb \
  1399. [autoarch(chair5)](lays furnv) insert (dd3 "/chair5") scale !scaleb \
  1400. [autoarch(chair6)](lays furnv) insert (dd3 "/chair6") scale !scaleb \
  1401. [autoarch(chair7)](lays furnv) insert (dd3 "/chair7") scale !scaleb \
  1402. [autoarch(chair8)](lays furnv) insert (dd3 "/chair8") scale !scaleb \
  1403. [autoarch(chair9)](lays furnv) insert (dd3 "/chair9") scale !scaleb \
  1404. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1405. [ Cancel]
  1406.  
  1407. **itabler
  1408. [Rectangular tables]
  1409. [autoarch(ftabllsp)](lays furnv) (nl "" "/archp/tabler");
  1410. [autoarch(tablcsqr)](lays furnv) (nl "" "/archp/table");
  1411. [autoarch(table3)](lays furnv) insert (dd3 "/table3") scale !scaleb \
  1412. [autoarch(tablcoff)](lays furnv) insert (dd3 "/tablcoff") scale !scaleb \
  1413. [autoarch(tablcomp)](lays furnv) insert (dd3 "/tablcomp") scale !scaleb \
  1414. [autoarch(fconf8)](lays furnv) insert (dd3 "/fconf8") scale !scaleb \
  1415. [autoarch(fconf10)](lays furnv) insert (dd3 "/fconf10") scale !scaleb \
  1416. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1417. [ Cancel]
  1418.  
  1419. **itablec
  1420. [Circular tables]
  1421. [autoarch(tablcrnd)](lays furnv) (nl "" "/archp/table");
  1422. [autoarch(ftablrnd)](lays furnv) (nl "" "/archp/tablec");
  1423. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1424. [ Cancel]
  1425.  
  1426. **idesk
  1427. [Desks]
  1428. [autoarch(desk1)](lays furnv) insert (dd3 "/desk1") scale !scaleb \
  1429. [autoarch(desk2)](lays furnv) insert (dd3 "/desk2") scale !scaleb \
  1430. [autoarch(desk3)](lays furnv) insert (dd3 "/desk3") scale !scaleb \
  1431. [autoarch(desk4)](lays furnv) insert (dd3 "/desk4") scale !scaleb \
  1432. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1433. [ Cancel]
  1434.  
  1435. **isofa
  1436. [Sofa]
  1437. [autoarch(sofa1)](lays furnv) insert (dd3 "/sofa1") scale !scaleb \
  1438. [autoarch(sofa2)](lays furnv) insert (dd3 "/sofa2") scale !scaleb \
  1439. [autoarch(sofa3)](lays furnv) insert (dd3 "/sofa3") scale !scaleb \
  1440. [autoarch(sofa4)](lays furnv) insert (dd3 "/sofa4") scale !scaleb \
  1441. [autoarch(sofa5)](lays furnv) insert (dd3 "/sofa5") scale !scaleb \
  1442. [autoarch(sofa6)](lays furnv) insert (dd3 "/sofa6") scale !scaleb \
  1443. [autoarch(sofa7)](lays furnv) insert (dd3 "/sofa7") scale !scaleb \
  1444. [autoarch(sofa8)](lays furnv) insert (dd3 "/sofa8") scale !scaleb \
  1445. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1446. [ Cancel]
  1447.  
  1448. **ibed
  1449. [Beds]
  1450. [autoarch(bedtwin)](lays furnv) insert (dd3 "/bedtwin") scale !scaleb \
  1451. [autoarch(beddoubl)](lays furnv) insert (dd3 "/beddoubl") scale !scaleb \
  1452. [autoarch(bedqueen)](lays furnv) insert (dd3 "/bedqueen") scale !scaleb \
  1453. [autoarch(bedking)](lays furnv) insert (dd3 "/bedking") scale !scaleb \
  1454. [autoarch(bedhosp)](lays furnv) insert (dd3 "/bedhosp") scale !scaleb \
  1455. [autoarch(bedbunk)](lays furnv) insert (dd3 "/bedbunk") scale !scaleb \
  1456. [autoarch(bedcrib)](lays furnv) insert (dd3 "/bedcrib") scale !scaleb \
  1457. [autoarch(bed3-4)](lays furnv) insert (dd3 "/bed3-4") scale !scaleb \
  1458. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1459. [ Cancel]
  1460.  
  1461. **ioffice
  1462. [Office equipment]
  1463. [autoarch(fnphone)](lays furnv) insert (dd3 "/fnphone") scale !scaleb \
  1464. [autoarch(fncomp)](lays furnv) insert (dd3 "/fncomp") scale !scaleb \
  1465. [autoarch(typewrit)](lays furnv) insert (dd3 "/typewrit") scale !scaleb \
  1466. [autoarch(copier1)](lays furnv) insert (dd3 "/copier1") scale !scaleb \
  1467. [autoarch(copier2)](lays furnv) insert (dd3 "/copier2") scale !scaleb \
  1468. [autoarch(copier3)](lays furnv) insert (dd3 "/copier3") scale !scaleb \
  1469. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1470. [ Cancel]
  1471.  
  1472. **ifilecab
  1473. [File cabinets]
  1474. [autoarch(fc15x22a)](lays furnv) insert (dd3 "/fc15x22a") scale !scaleb \
  1475. [autoarch(fc15x27)](lays furnv) $i=ifc15x27 $i=*
  1476. [autoarch(fc18x27)](lays furnv) $i=ifc18x27 $i=*
  1477. [autoarch(fc30x18)](lays furnv) $i=ifc30x18 $i=*
  1478. [autoarch(fc36x18)](lays furnv) $i=ifc36x18 $i=*
  1479. [autoarch(fc42x18)](lays furnv) $i=ifc42x18 $i=*
  1480. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1481. [ Cancel]
  1482.  
  1483. **ifilecabm
  1484. [File cabinets]
  1485. [autoarch(fc15x22a)](lays furnv) insert (dd3 "/fc15x22a") scale !scaleb \
  1486. [autoarch(fc15x27)](lays furnv) $i=ifc15x27 $i=*
  1487. [autoarch(fc18x27)](lays furnv) $i=ifc18x27 $i=*
  1488. [autoarch(fc30x18)](lays furnv) $i=ifc30x18m $i=*
  1489. [autoarch(fc36x18)](lays furnv) $i=ifc36x18m $i=*
  1490. [autoarch(fc42x18)](lays furnv) $i=ifc42x18m $i=*
  1491. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1492. [ Cancel]
  1493.  
  1494. **ifc15x27
  1495. [Letter Size File]
  1496. [ 2 drawer]insert (dd3 "/fc15x27a") scale !scaleb \
  1497. [ 4 drawer]insert (dd3 "/fc15x27b") scale !scaleb \
  1498. [ 5 drawer]insert (dd3 "/fc15x27c") scale !scaleb \
  1499. [ Cancel]
  1500.  
  1501. **ifc18x27
  1502. [Legal Size File]
  1503. [ 2 drawer]insert (dd3 "/fc18x27a") scale !scaleb \
  1504. [ 4 drawer]insert (dd3 "/fc18x27b") scale !scaleb \
  1505. [ 5 drawer]insert (dd3 "/fc18x27c") scale !scaleb \
  1506. [ Cancel]
  1507.  
  1508. **ifc30x18
  1509. [30" Lateral File]
  1510. [ 2 drawer]insert (dd3 "/fc30x18a") scale !scaleb \
  1511. [ 3 drawer]insert (dd3 "/fc30x18b") scale !scaleb \
  1512. [ 4 drawer]insert (dd3 "/fc30x18c") scale !scaleb \
  1513. [ 5 drawer]insert (dd3 "/fc30x18d") scale !scaleb \
  1514. [ Cancel]
  1515.  
  1516. **ifc30x18m
  1517. [0.75 Lateral File]
  1518. [ 2 drawer]insert (dd3 "/fc30x18a") scale !scaleb \
  1519. [ 3 drawer]insert (dd3 "/fc30x18b") scale !scaleb \
  1520. [ 4 drawer]insert (dd3 "/fc30x18c") scale !scaleb \
  1521. [ 5 drawer]insert (dd3 "/fc30x18d") scale !scaleb \
  1522. [ Cancel]
  1523.  
  1524. **ifc36x18
  1525. [36" Lateral File]
  1526. [ 2 drawer]insert (dd3 "/fc36x18a") scale !scaleb \
  1527. [ 3 drawer]insert (dd3 "/fc36x18b") scale !scaleb \
  1528. [ 4 drawer]insert (dd3 "/fc36x18c") scale !scaleb \
  1529. [ 5 drawer]insert (dd3 "/fc36x18d") scale !scaleb \
  1530. [ Cancel]
  1531.  
  1532. **ifc36x18m
  1533. [0.9 Lateral File]
  1534. [ 2 drawer]insert (dd3 "/fc36x18a") scale !scaleb \
  1535. [ 3 drawer]insert (dd3 "/fc36x18b") scale !scaleb \
  1536. [ 4 drawer]insert (dd3 "/fc36x18c") scale !scaleb \
  1537. [ 5 drawer]insert (dd3 "/fc36x18d") scale !scaleb \
  1538. [ Cancel]
  1539.  
  1540. **ifc42x18
  1541. [42" Lateral File]
  1542. [ 2 drawer]insert (dd3 "/fc42x18a") scale !scaleb \
  1543. [ 3 drawer]insert (dd3 "/fc42x18b") scale !scaleb \
  1544. [ 4 drawer]insert (dd3 "/fc42x18c") scale !scaleb \
  1545. [ 5 drawer]insert (dd3 "/fc42x18d") scale !scaleb \
  1546. [ Cancel]
  1547.  
  1548. **ifc42x18m
  1549. [1.05 Lateral File]
  1550. [ 2 drawer]insert (dd3 "/fc42x18a") scale !scaleb \
  1551. [ 3 drawer]insert (dd3 "/fc42x18b") scale !scaleb \
  1552. [ 4 drawer]insert (dd3 "/fc42x18c") scale !scaleb \
  1553. [ 5 drawer]insert (dd3 "/fc42x18d") scale !scaleb \
  1554. [ Cancel]
  1555.  
  1556. **ibookcase
  1557. [Book Cases]
  1558. [autoarch(fncase1)](lays furnv) insert (dd3 "/fncase1") scale !scaleb \
  1559. [autoarch(fncase2)](lays furnv) insert (dd3 "/fncase2") scale !scaleb \
  1560. [autoarch(fncase3)](lays furnv) insert (dd3 "/fncase3") scale !scaleb \
  1561. [autoarch(fncase4)](lays furnv) insert (dd3 "/fncase4") scale !scaleb \
  1562. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1563. [ Cancel]
  1564.  
  1565. **ilamp
  1566. [Lamps]
  1567. [autoarch(fndlmp1)](lays furnv) insert (dd3 "/fndlmp1") scale !scaleb \
  1568. [autoarch(fnflmp1)](lays furnv) insert (dd3 "/fnflmp1") scale !scaleb \
  1569. [autoarch(fnflmp2)](lays furnv) insert (dd3 "/fnflmp2") scale !scaleb \
  1570. [autoarch(fntlmp1)](lays furnv) insert (dd3 "/fntlmp1") scale !scaleb \
  1571. [autoarch(fntlmp2)](lays furnv) insert (dd3 "/fntlmp2") scale !scaleb \
  1572. [autoarch(fntlmp3)](lays furnv) insert (dd3 "/fntlmp3") scale !scaleb \
  1573. [ LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  1574. [ Cancel]
  1575.  
  1576. **istruct
  1577. [Struct Steel shapes]
  1578. [ WELDING](nl "" "/archp/weld");
  1579. [ I BEAM](nl "" "/archp/ibeam");
  1580. [ T BEAM](nl "" "/archp/stee");
  1581. [ C CHANNL](nl "" "/archp/channel");
  1582. [ ANGLE](nl "" "/archp/sangle");
  1583. [ PIPE](nl "" "/archp/spipe");
  1584. [ TUBE](nl "" "/archp/stube");
  1585. [ Cancel]
  1586.  
  1587. **imasonry
  1588. [Masonry details]
  1589. [autoarch(masblk1)]insert (dd "/archd/mpa10808") scale !scaleb;
  1590. [autoarch(masblk2)]^c^cinsert (dd "/archd/mpa20808") scale !scaleb;
  1591. [autoarch(masblk3)]^c^cinsert (dd "/archd/mpa30808") scale !scaleb;
  1592. [autoarch(masblk10)]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk1m"))(progn (menucmd "s=x")(menucmd "s=masblk1")))(princ);(setq temp "mea1")(princ);
  1593. [autoarch(masblk4)]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa1")(princ);
  1594. [autoarch(masblk5)]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa2")(princ);
  1595. [autoarch(masblk6)]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa3")(princ);
  1596. [autoarch(masblk11)]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk3m"))(progn (menucmd "s=x")(menucmd "s=masblk3")))(princ);(setq temp "mj")(princ);
  1597. [autoarch(masblk7)]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr1")(princ);
  1598. [autoarch(masblk8)]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr2")(princ);
  1599. [autoarch(masblk9)]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr3")(princ);
  1600. [autoarch(masblk12)]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk1m"))(progn (menucmd "s=x")(menucmd "s=masblk1")))(princ);(setq temp "mer1")(princ);
  1601. [autoarch(mashatgo)]^c^c$i=imashat $i=*
  1602. [ Cancel ]^C^C
  1603.  
  1604. **imashat
  1605. [Masonry hatch patterns (true size)]
  1606. [autoarch(mashat1A)]^C^Chatch mblocks
  1607. [autoarch(mashat2A)]^C^Chatch msblocks
  1608. [autoarch(mashat3A)]^C^Chatch mrblocks
  1609. [ - ]
  1610. [autoarch(mashat1B)]^C^Chatch mblockc
  1611. [autoarch(mashat2B)]^C^Chatch msblockc
  1612. [autoarch(mashat3B)]^C^Chatch mrblockc
  1613. [ - ]
  1614. [autoarch(sbbricks)]^C^Chatch sbbricks
  1615. [autoarch(rbbricks)]^C^Chatch rbbricks
  1616. [autoarch(fbbricks)]^C^Chatch fbbricks
  1617. [ Last]^C^C$i=imasonry $i=*
  1618. [autoarch(sbbrickc)]^C^Chatch sbbrickc
  1619. [autoarch(rbbrickc)]^C^Chatch rbbrickc
  1620. [autoarch(fbbrickc)]^C^Chatch fbbrickc
  1621. [ Cancel ]^C^C
  1622.  
  1623. **iwood
  1624. [Wood details]
  1625. [ 3D Woodbeam](nl "" "/archp/swood");
  1626. [autoarch(woodsec)]^C^C(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=woodsectm"))(progn (menucmd "s=x")(menucmd "s=woodsect")))(princ);(nl "" "/archp/woodsec");
  1627. [autoarch(woodside)]^C^C(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=woodelevm"))(progn (menucmd "s=x")(menucmd "s=woodelev")))(princ);(nl "" "/archp/woodside");
  1628. [autoarch(woodhat8)]^C^Chatch wood8 \\\
  1629. [autoarch(woodhat2)]^C^Chatch wood2 \\\
  1630. [autoarch(woodhat3)]^C^Chatch wood3 \\\
  1631. [autoarch(woodhat4)]^C^Chatch wood4 \\\
  1632. [ Hatch Wall](nl "" "/archp/hatwall");
  1633. [ Cancel ]^C^C
  1634.  
  1635. **imetalstud
  1636. [Metal Studs]
  1637. [autoarch(mstud1)]^C^C$s=x $s=metalstud (nl metstud "/archp/metstud")(metstud "stud1");
  1638. [autoarch(mstud2)]^C^C$s=x $s=metalstud (nl metstud "/archp/metstud")(metstud "stud2");
  1639. [autoarch(mstud3)]^C^C$s=x $s=metalstud (nl metstud "/archp/metstud")(metstud "stud3");
  1640. [autoarch(mstud4)]^C^C$s=x $s=metalstud (nl metstud "/archp/metstud")(metstud "stud4");
  1641. [autoarch(mstud158)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud158") scale !scaleb \
  1642. [autoarch(mstud258)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud258") scale !scaleb \
  1643. [autoarch(mstud31)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud3") scale !scaleb \
  1644. [autoarch(mstud358)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud358") scale !scaleb \
  1645. [autoarch(mstud6)]^C^C$s=x $s=metalstud insert (dd "/archd/mstud6") scale !scaleb \
  1646. [autoarch(mfurr)]^C^C$s=x $s=metalstud insert (dd "/archd/mfurr") scale !scaleb \
  1647. [autoarch(mrun158)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun158") scale !scaleb \
  1648. [autoarch(mrun258)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun258") scale !scaleb \
  1649. [autoarch(mrun3)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun3") scale !scaleb \
  1650. [autoarch(mrun358)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun358") scale !scaleb \
  1651. [autoarch(mrun6)]^C^C$s=x $s=metalstud insert (dd "/archd/mrun6") scale !scaleb \
  1652. [ Cancel ]^C^C
  1653.  
  1654. **imetalstudm
  1655. [Metal Studs]
  1656. [autoarch(mstud1)]^C^C$s=x $s=metalstudm (nl metstud "/archp/metstud")(metstud "stud1");
  1657. [autoarch(mstud2)]^C^C$s=x $s=metalstudm (nl metstud "/archp/metstud")(metstud "stud2");
  1658. [autoarch(mstud3)]^C^C$s=x $s=metalstudm (nl metstud "/archp/metstud")(metstud "stud3");
  1659. [autoarch(mstud4)]^C^C$s=x $s=metalstudm (nl metstud "/archp/metstud")(metstud "stud4");
  1660. [autoarch(mstud158)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud158") scale !scaleb \
  1661. [autoarch(mstud258)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud258") scale !scaleb \
  1662. [autoarch(mstud31)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud3") scale !scaleb \
  1663. [autoarch(mstud358)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud358") scale !scaleb \
  1664. [autoarch(mstud6)]^C^C$s=x $s=metalstudm insert (dd "/archd/mstud6") scale !scaleb \
  1665. [autoarch(mfurr)]^C^C$s=x $s=metalstudm insert (dd "/archd/mfurr") scale !scaleb \
  1666. [autoarch(mrun158)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun158") scale !scaleb \
  1667. [autoarch(mrun258)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun258") scale !scaleb \
  1668. [autoarch(mrun3)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun3") scale !scaleb \
  1669. [autoarch(mrun358)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun358") scale !scaleb \
  1670. [autoarch(mrun6)]^C^C$s=x $s=metalstudm insert (dd "/archd/mrun6") scale !scaleb \
  1671. [ Cancel ]^C^C
  1672.  
  1673. **imetalbuck
  1674. [Metal Stud Door Bucks]
  1675. [autoarch(dwbuck25)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck25") scale !scaleb \
  1676. [autoarch(dwbuck3)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck3") scale !scaleb \
  1677. [autoarch(dwbuck35)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck35") scale !scaleb \
  1678. [autoarch(dwbuck55)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck55") scale !scaleb \
  1679. [autoarch(dwbuck6)]^C^C$s=x $s=metalbuck insert (dd "/archd/dwbuck6") scale !scaleb \
  1680. [ Cancel ]^C^C
  1681.  
  1682. **imetalbuckm
  1683. [Metal Stud Door Bucks]
  1684. [autoarch(dwbuck25)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck25") scale !scaleb \
  1685. [autoarch(dwbuck3)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck3") scale !scaleb \
  1686. [autoarch(dwbuck35)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck35") scale !scaleb \
  1687. [autoarch(dwbuck55)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck55") scale !scaleb \
  1688. [autoarch(dwbuck6)]^C^C$s=x $s=metalbuckm insert (dd "/archd/dwbuck6") scale !scaleb \
  1689. [ Cancel ]^C^C
  1690.  
  1691. **iconc
  1692. [Concrete details]
  1693. [autoarch(concbeam)]^C^C(nl "" "/archp/cbeam")
  1694. [autoarch(concslab)]^C^C(nl "" "/archp/cslab")
  1695. [autoarch(concwall)]^C^C(nl "" "/archp/footing")
  1696. [ _ ]
  1697. [autoarch(conchat1)]^C^Chatch conc
  1698. [autoarch(concpat1)]^C^Cinsert (dd "/archd/conc");
  1699. [autoarch(conchat2)]^C^Chatch stipple
  1700. [ _ ]
  1701. [autoarch(jtctrl)]^C^C(nl "" "/archp/cjoint") y;n;n;
  1702. [autoarch(jtfrmd)]^C^C(nl "" "/archp/cjoint") n;y;n;
  1703. [autoarch(jtexpn)]^C^C(nl "" "/archp/cjoint") n;n;y;
  1704. [ Cancel ]^C^C
  1705.  
  1706. **irebars
  1707. [Rebar details]
  1708. [autoarch(rebar1a)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");1A;
  1709. [autoarch(rebarl)]^c^c$s=x $s=rbarline
  1710. [autoarch(rebare)]^c^c$s=x $s=rbarend
  1711. [ - ]
  1712. [autoarch(rebar2a)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2A;
  1713. [autoarch(rebar2b)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2B;
  1714. [autoarch(rebar2c)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2C;
  1715. [autoarch(rebar2d)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2D;
  1716. [autoarch(rebar3a)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3A;
  1717. [autoarch(rebar3b)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3B;
  1718. [autoarch(rebar3c)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3C;
  1719. [autoarch(rebar3d)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3D;
  1720. [autoarch(rebar4a)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4A;
  1721. [autoarch(rebar4b)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4B;
  1722. [autoarch(rebar4c)]^c^c$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4C;
  1723. [ Cancel ]^C^C
  1724.  
  1725. **icallout
  1726. [Callouts]
  1727. [ ROOMAREA](nl "" "/archp/roomarea");
  1728. [ NEW AREA](nl "" "/archp/areanew");
  1729. [ ROOM SML](lays symbolv) insert (dd "/arch/rmno1") scale !scale1;
  1730. [ ROOM BIG](lays symbolv) insert (dd "/arch/rmno1") scale (* scale1 1.333333);
  1731. [ multiROOM sml](lays symbolv) insert (dd "/arch/rmno2") scale !scale1;
  1732. [ multiROOM big](lays symbolv) insert (dd "/arch/rmno2") scale (* scale1 1.333333);
  1733. [ CASEWORK](nl "" "/archp/casecall");
  1734. [ SEATING ](nl "" "/archp/seatcall");
  1735. [ FURNITUR](nl "" "/archp/furncall");
  1736. [ DEMONOTE](lays symbolv) insert (dd "/arch/demo") scale !scale1;
  1737. [ cancel]
  1738.  
  1739. **icolins
  1740. [Column Grid Layout]
  1741. [autoarch(columnno)](lays columnv) insert (dd "/arch/colnum") scale !scale1;
  1742. [autoarch(colinsrt)](nl "" "/archp/colinsrt");
  1743. [autoarch(colgrid)](nl "" "/archp/colgrid");
  1744. [autoarch(colrectc)](lays columnv) insert (dd "/cci/rectangc");
  1745. [autoarch(colround)](lays columnv) circle;
  1746. [autoarch(colibeam)](lays columnv) (nl "" "/archp/ibeam");
  1747. [ LayMod Column](set 'temp 'columnv)(nl "" "/cci/layermod");
  1748. [ LayMod Colgrid](set 'temp 'colgridv)(nl "" "/cci/layermod");
  1749. [ Cancel]
  1750.  
  1751. **idetail
  1752. [Detail Symbols]
  1753. [autoarch(detail1)](lays symbolv) insert (dd "/arch/detail1") scale !scale1;
  1754. [autoarch(detail2)](lays symbolv) insert (dd "/arch/detail2") scale !scale1;
  1755. [autoarch(detail3)](lays symbolv) insert (dd "/arch/detail3") scale !scale1;
  1756. [autoarch(ballead)](nl "" "/archp/ballead");ballead;
  1757. [autoarch(detailt)](pre)(lays symbolv) insert (dd "/arch/detailt") scale !scale1 rotate 0 \\\\\line (polar (getvar "lastpoint")(dtr 0)(* scale1 (if (and metric (not (equal scaleb 40. 0.001)))0.3 24.0))) \;copy l  (strcat "0,-" (rtos (* scale (if (and metric (not (equal scaleb 40. 0.001)))0.001 0.03125)) 2 6))  (post)(princ);
  1758. [ Cancel]
  1759.  
  1760. **isection
  1761. [Section Symbols]
  1762. [autoarch(secsym1)](lays symbolv) insert (dd "/arch/detail1") scale !scale1 \\\insert (dd "/arch/detail-a") @0,0 !scale1  \
  1763. [autoarch(secsym2)](lays symbolv) insert (dd "/arch/detail2") scale !scale1 \\\\insert (dd "/arch/detail-a") @0,0 !scale1  \
  1764. [autoarch(secsym3)](lays symbolv) insert (dd "/arch/detail3") scale !scale1 \\\\\insert (dd "/arch/detail-a") @0,0 !scale1  \
  1765. [ Cancel]
  1766.  
  1767. **ifluor
  1768. [Fluorescent Fixtures]
  1769. [autoarch(e-fl1x4)](lays elecv) insert (dd "/arch/e-fl1x4") scale !scaleb \
  1770. [autoarch(e-fl1x8)](lays elecv) insert (dd "/arch/e-fl1x8") scale !scaleb \
  1771. [autoarch(e-fl2x2)](lays elecv) insert (dd "/arch/e-fl2x2") scale !scaleb \
  1772. [autoarch(e-fl2x4)](lays elecv) insert (dd "/arch/e-fl2x4") scale !scaleb \
  1773. [autoarch(e-fl1x4n)](lays elecv) insert (dd "/arch/e-fl1x4n") scale !scaleb \
  1774. [autoarch(e-fl1x8n)](lays elecv) insert (dd "/arch/e-fl1x8n") scale !scaleb \
  1775. [autoarch(e-fl2x2n)](lays elecv) insert (dd "/arch/e-fl2x2n") scale !scaleb \
  1776. [autoarch(e-fl2x4n)](lays elecv) insert (dd "/arch/e-fl2x4n") scale !scaleb \
  1777. [autoarch(e-fl1x4e)](lays elecv) insert (dd "/arch/e-fl1x4e") scale !scaleb \
  1778. [autoarch(e-fl1x8e)](lays elecv) insert (dd "/arch/e-fl1x8e") scale !scaleb \
  1779. [autoarch(e-fl2x2e)](lays elecv) insert (dd "/arch/e-fl2x2e") scale !scaleb \
  1780. [autoarch(e-fl2x4e)](lays elecv) insert (dd "/arch/e-fl2x4e") scale !scaleb \
  1781. [ OTHER](lays elecv);(nl symins "/cci/symins")(symins "/arch/e-fluor");
  1782. [ Cancel]
  1783.  
  1784. **ieleclite
  1785. [Incandescent Fixtures]
  1786. [autoarch(e-l1)](lays elecv) insert (dd "/arch/e-l1") scale !scale1;
  1787. [autoarch(e-lw)](lays elecv) insert (dd "/arch/e-lw") scale !scale1;
  1788. [autoarch(e-lwem)](lays elecv) insert (dd "/arch/e-lwem") scale !scale1;
  1789. [autoarch(e-l2)](lays elecv) insert (dd "/arch/e-l2") scale !scale1;
  1790. [autoarch(e-l2em)](lays elecv) insert (dd "/arch/e-l2em") scale !scale1;
  1791. [autoarch(e-exit1)](lays elecv) insert (dd "/arch/e-exit1") scale !scale1;
  1792. [autoarch(e-exit2)](lays elecv) insert (dd "/arch/e-exit2") scale !scale1;
  1793. [ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  1794. [ Cancel]
  1795.  
  1796. **ielectrack
  1797. [Track lighting]
  1798. [autoarch(e-track3)](lays elecv) insert (dd "/arch2d/e-track3") scale !scaleb \
  1799. [autoarch(e-track4)](lays elecv) insert (dd "/arch2d/e-track4") scale !scaleb \
  1800. [autoarch(e-track6)](lays elecv) insert (dd "/arch2d/e-track6") scale !scaleb \
  1801. [autoarch(e-track8)](lays elecv) insert (dd "/arch2d/e-track8") scale !scaleb \
  1802. [autoarch(e-track1)](lays elecv) insert (dd "/arch2d/e-track1") scale !scaleb \
  1803. [autoarch(e-track2)](lays elecv) insert (dd "/arch2d/e-track2") scale !scaleb \
  1804. [ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  1805. [ Cancel]
  1806.  
  1807. **ielecout
  1808. [Electric Outlets]
  1809. [autoarch(e-single)](lays elecv) insert (dd "/arch/e-single") scale !scale1;
  1810. [autoarch(e-duplex)](lays elecv) insert (dd "/arch/e-duplex") scale !scale1;
  1811. [autoarch(e-dupspl)](lays elecv) insert (dd "/arch/e-dupspl") scale !scale1;
  1812. [autoarch(e-220r)](lays elecv) insert (dd "/arch/e-220r") scale !scale1;
  1813. [autoarch(e-quadr)](lays elecv) insert (dd "/arch/e-quadr") scale !scale1;
  1814. [ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  1815. [ Cancel]
  1816.  
  1817. **ielecswit
  1818. [Electric Switches]
  1819. [autoarch(e-sw1)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\1;
  1820. [autoarch(e-sw2)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\2;
  1821. [autoarch(e-sw3)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\3;
  1822. [autoarch(e-sw4)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\4;
  1823. [autoarch(e-swothr)](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\\
  1824. [ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  1825. [ Cancel]
  1826.  
  1827. **ielectel
  1828. [Telephone]
  1829. [autoarch(e-tele)](lays elecv) insert (dd "/arch/e-tele") scale !scale1;
  1830. [autoarch(e-tele2)](lays elecv) insert (dd "/arch/e-tele2") scale !scale1 \\\(arh);
  1831. [ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  1832. [ Cancel]
  1833.  
  1834. **ielecemer
  1835. [Electric Emergency]
  1836. [autoarch(e-emer1)](lays elecv) insert (dd "/arch/e-emer1") scale !scale1;
  1837. [autoarch(e-emsqr1)](lays elecv)(nl symins "/cci/symins")(symins "/arch/e-emsqr1");
  1838. [autoarch(e-emsqr)](lays elecv)(nl symins "/cci/symins")(symins "/arch/e-emsqr");
  1839. [ LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  1840. [ Cancel]
  1841.  
  1842. **ielecmisc
  1843. [Miscellaneous Electric]
  1844. [autoarch(e-junct)](lays elecv) insert (dd "/arch/e-junct") scale !scale1;
  1845. [autoarch(e-bell)](lays elecv) insert (dd "/arch/e-bell") scale !scale1;
  1846. [autoarch(e-buzzer)](lays elecv) insert (dd "/arch/e-buzzer") scale !scale1;
  1847. [autoarch(e-horn)](lays elecv) insert (dd "/arch/e-horn") scale !scale1;
  1848. [autoarch(e-dimmer)](lays elecv) insert (dd "/arch/e-dimmer") scale !scale1;
  1849. [autoarch(e-strman)](lays elecv) insert (dd "/arch/e-strman") scale !scale1;
  1850. [autoarch(e-strmag)](lays elecv) insert (dd "/arch/e-strmag") scale !scale1;
  1851. [autoarch(e-strcom)](lays elecv) insert (dd "/arch/e-strcom") scale !scale1;
  1852. [autoarch(e-cirbrk)](lays elecv) insert (dd "/arch/e-cirbrk") scale !scale1;
  1853. [autoarch(e-jnctsp)](lays elecv) insert (dd "/arch/e-jnctsp") scale !scale1;
  1854. [autoarch(e-thermo)](lays elecv) insert (dd "/arch/e-thermo") scale !scale1;
  1855. [autoarch(e-panelb)](lays elecv) insert (dd "/arch/e-panelb") scale !scale1;
  1856. [autoarch(e-motor)](lays elecv) insert (dd "/arch/e-motor") scale !scale1;
  1857. [autoarch(e-tv)](lays elecv) insert (dd "/arch/e-tv") scale !scale1;
  1858. [autoarch(e-speakr)](lays elecv) insert (dd "/arch/e-speakr") scale !scale1;
  1859. [ Cancel]
  1860.  
  1861. **iplumbmisc
  1862. [Misc plumb]
  1863. [autoarch(fldrain)](lays fixtv) insert (dd "/arch/fldrain") scale !scale1;
  1864. [autoarch(flcleano)](lays fixtv) insert (dd "/arch/flcleano") scale !scale1;
  1865. [autoarch(showerh)](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \
  1866. [autoarch(hwheater)](lays fixtv) insert (dd3 "/hwheater") scale !scale1;
  1867. [autoarch(plumvent)]^C^Cinsert (dd "/arch2d/upthe") scale !scale1;
  1868. [ Cancel]
  1869.  
  1870. **itoilet
  1871. [Toilets]
  1872. [autoarch(toilet1)](lays fixtv) insert (dd3 "/toilet1") scale !scaleb \
  1873. [autoarch(toilet2)](lays fixtv) insert (dd3 "/toilet2") scale !scaleb \
  1874. [autoarch(toilet3)](lays fixtv) insert (dd3 "/toilet3") scale !scaleb \
  1875. [autoarch(toilet4)](lays fixtv) insert (dd3 "/toilet4") scale !scaleb \
  1876. [autoarch(toilet5)](lays fixtv) insert (dd3 "/toilet5") scale !scaleb \
  1877. [autoarch(toilet6)](lays fixtv) insert (dd3 "/toilet6") scale !scaleb \
  1878. [autoarch(toiletm)](nl "" "/archp/toilstal");
  1879. [ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(PRINC);\$i=itoilet $i=*
  1880. [ Cancel]
  1881.  
  1882. **itoilet1
  1883. [Toilets]
  1884. [autoarch(toilet1)]toilet1;
  1885. [autoarch(toilet2)]toilet2;
  1886. [autoarch(toilet3)]toilet3;
  1887. [autoarch(toilet4)]toilet4;
  1888. [autoarch(toilet5)]toilet5;
  1889. [autoarch(toilet6)]toilet6;
  1890.  
  1891. **iurinal
  1892. [Urinals]
  1893. [autoarch(urinal1)](lays fixtv) insert (dd3 "/urinal1") scale !scaleb \
  1894. [autoarch(urinal2)](lays fixtv) insert (dd3 "/urinal2") scale !scaleb \
  1895. [autoarch(urinalm)](nl "" "/archp/urinstal");
  1896. [ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(PRINC);\$i=iurinal $i=*
  1897. [ Cancel]
  1898.  
  1899. **iurinal1
  1900. [Urinals]
  1901. [autoarch(urinal1)]urinal1;
  1902. [autoarch(urinal2)]urinal2;
  1903.  
  1904. **ilav
  1905. [Lavatory]
  1906. [autoarch(w-lav)](lays fixtv) insert (dd3 "/w-lav") scale !scaleb \
  1907. [autoarch(w-lav1)](lays fixtv) insert (dd3 "/w-lav1") scale !scaleb \
  1908. [autoarch(w-lav2)](lays fixtv) insert (dd3 "/w-lav2") scale !scaleb \
  1909. [autoarch(w-sink)](lays fixtv) insert (dd3 "/w-sink") scale !scaleb \
  1910. [autoarch(lav4)](lays fixtv) insert (dd3 "/lav4") scale !scaleb \
  1911. [autoarch(c-lav)](lays fixtv) insert (dd3 "/c-lav") scale !scaleb \
  1912. [autoarch(lav)](lays fixtv) insert (dd3 "/lav") scale !scaleb \
  1913. [autoarch(lav1)](lays fixtv) insert (dd3 "/lav1") scale !scaleb \
  1914. [autoarch(lav2)](lays fixtv) insert (dd3 "/lav2") scale !scaleb \
  1915. [autoarch(lav3)](lays fixtv) insert (dd3 "/lav3") scale !scaleb \
  1916. [autoarch(vanity)](lays fixtv) insert (dd3 "/vanity") scale !scaleb \
  1917. [autoarch(lavm)](nl "" "/archp/lavmulti");
  1918. [ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(princ);\$i=ilav $i=*
  1919. [ Cancel]
  1920.  
  1921. **ilavm1
  1922. [Lav's]
  1923. [autoarch(lavm1)]lavm1;
  1924. [autoarch(lavm2)]lavm2;
  1925. [autoarch(lavm3)]lavm3;
  1926.  
  1927. **itub
  1928. [Tubs]
  1929. [autoarch(tub3042)](lays fixtv) insert (dd3 "/tub3042") scale !scaleb \
  1930. [autoarch(tub3048)](lays fixtv) insert (dd3 "/tub3048") scale !scaleb \
  1931. [autoarch(tub3054)](lays fixtv) insert (dd3 "/tub3054") scale !scaleb \
  1932. [autoarch(tub3060)](lays fixtv) insert (dd3 "/tub3060") scale !scaleb \
  1933. [autoarch(tub3254)](lays fixtv) insert (dd3 "/tub3254") scale !scaleb \
  1934. [autoarch(tub3260)](lays fixtv) insert (dd3 "/tub3260") scale !scaleb \
  1935. [autoarch(tub3266)](lays fixtv) insert (dd3 "/tub3266") scale !scaleb \
  1936. [autoarch(tub2)](lays fixtv) insert (dd3 "/tub2") scale !scaleb \
  1937. [autoarch(tub3)](lays fixtv) insert (dd3 "/tub3") scale !scaleb \
  1938. [autoarch(shwrhead)](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \
  1939. [autoarch(twlrack)](lays fixtv) insert (dd3 "/twlrack") scale !scaleb \
  1940. [ curtain](lays fixtv) insert (dd "/arch3d/tubcurt") scale !scaleb \
  1941. [ door](lays fixtv) insert (dd "/arch3d/tubdoor") scale !scaleb \
  1942. [ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(princ);\$i=itub $i=*
  1943. [ Cancel]
  1944.  
  1945. **ishower
  1946. [Shower]
  1947. [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 \\
  1948. [autoarch(twlrack)](lays fixtv) insert (dd "/arch3d/twlrack") scale !scaleb .xy \\
  1949. [autoarch(shwrhead)](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \\
  1950. [autoarch(showerst)](lays fixtv) insert (dd3 "/shwrstal") scale !scaleb \\
  1951. [ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(princ);
  1952. [ Cancel]
  1953.  
  1954. **isink
  1955. [Sinks]
  1956. [autoarch(sinktrpl)](lays fixtv) insert (dd3 "/sinktrpl") scale !scaleb \
  1957. [autoarch(sinkdbl1)](lays fixtv) insert (dd3 "/sinkdbl1") scale !scaleb \
  1958. [autoarch(sink2421)](lays fixtv) insert (dd3 "/sink2421") scale !scaleb \
  1959. [autoarch(u-sink)](lays fixtv) insert (dd3 "/u-sink") scale !scaleb \
  1960. [autoarch(s-sink)](lays fixtv) insert (dd3 "/s-sink") scale !scaleb \
  1961. [autoarch(scr-sink)](lays fixtv) insert (dd3 "/scr-sink") scale !scaleb \
  1962. [autoarch(clinic2)](lays fixtv) insert (dd3 "/clinic2") scale !scaleb \
  1963. [ LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod")(princ);\$i=isink $i=*
  1964. [ Cancel]
  1965.  
  1966. **ifirepl
  1967. [Fire place and chimney]
  1968. [autoarch(fireplac)](nl "" "/archp/fireplac");
  1969. [ chimney]
  1970. [ Cancel]
  1971.  
  1972. **iplants
  1973. [Plants]
  1974. [autoarch(plant1)](lays furnv) insert (dd3 "/plant1") scale !scaleb \
  1975. [autoarch(plant2)](lays furnv) insert (dd3 "/plant2") scale !scaleb \
  1976. [autoarch(plant3)](lays furnv) insert (dd3 "/plant3") scale !scaleb \
  1977. [ Cancel]
  1978.  
  1979. **ikitcab
  1980. [Kitchen Cabinets]
  1981. [autoarch(kitbase)]$i=ikitbase $i=*
  1982. [autoarch(kitbased)]$i=ikitbased $i=*
  1983. [autoarch(kitbaset)]$i=ikitbaset $i=*
  1984. [autoarch(kitw12)]$i=ikitw12 $i=*
  1985. [autoarch(kitw15)]$i=ikitw15 $i=*
  1986. [autoarch(kitw18)]$i=ikitw18 $i=*
  1987. [autoarch(kitw24)]$i=ikitw24 $i=*
  1988. [autoarch(kitw30)]$i=ikitw30 $i=*
  1989. [autoarch(kitcorn)]$i=ikitcorn $i=*
  1990. [autoarch(kithand)]$i=ikithand $i=*
  1991. [autoarch(kitdoor)]$i=ikitdoor $i=*
  1992. [ Cancel]
  1993.  
  1994. **ikitcabm
  1995. [Kitchen Cabinets]
  1996. [autoarch(kitbase)]$i=ikitbasem $i=*
  1997. [autoarch(kitbased)]$i=ikitbasedm $i=*
  1998. [autoarch(kitbaset)]$i=ikitbasetm $i=*
  1999. [autoarch(kitw12)]$i=ikitw12m $i=*
  2000. [autoarch(kitw15)]$i=ikitw15m $i=*
  2001. [autoarch(kitw18)]$i=ikitw18m $i=*
  2002. [autoarch(kitw24)]$i=ikitw24m $i=*
  2003. [autoarch(kitw30)]$i=ikitw30m $i=*
  2004. [autoarch(kitcorn)]$i=ikitcornm $i=*
  2005. [autoarch(kithand)]$i=ikithandm $i=*
  2006. [autoarch(kitdoor)]$i=ikitdoorm $i=*
  2007. [ Cancel]
  2008.  
  2009. **ikitbase
  2010. [Kitchen Cabinet bases]
  2011. [ 9" Wide]insert (dd3 "/cb9") scale !scaleb \\$i=ikitbase $i=*
  2012. [ 12" Wide]insert (dd3 "/cb12") scale !scaleb \\$i=ikitbase $i=*
  2013. [ 15" Wide]insert (dd3 "/cb15") scale !scaleb \\$i=ikitbase $i=*
  2014. [ 18" Wide]insert (dd3 "/cb18") scale !scaleb \\$i=ikitbase $i=*
  2015. [ 21" Wide]insert (dd3 "/cb21") scale !scaleb \\$i=ikitbase $i=*
  2016. [ 24" Wide]insert (dd3 "/cb24") scale !scaleb \\$i=ikitbase $i=*
  2017. [ 27" Wide]insert (dd3 "/cb27") scale !scaleb \\$i=ikitbase $i=*
  2018. [ 30" Wide]insert (dd3 "/cb30") scale !scaleb \\$i=ikitbase $i=*
  2019. [ 33" Wide]insert (dd3 "/cb33") scale !scaleb \\$i=ikitbase $i=*
  2020. [ 36" Wide]insert (dd3 "/cb36") scale !scaleb \\$i=ikitbase $i=*
  2021. [ 39" Wide]insert (dd3 "/cb39") scale !scaleb \\$i=ikitbase $i=*
  2022. [ 42" Wide]insert (dd3 "/cb42") scale !scaleb \\$i=ikitbase $i=*
  2023. [ 48" Wide]insert (dd3 "/cb48") scale !scaleb \\$i=ikitbase $i=*
  2024. [ Cabinet menu]$i=ikitcab $i=*
  2025. [ Cancel]
  2026.                  
  2027. **ikitbasem
  2028. [Kitchen Cabinet bases]
  2029. [ 0.225 Wide]insert (dd3 "/cb9") scale !scaleb \\$i=ikitbasem $i=*
  2030. [ 0.300 Wide]insert (dd3 "/cb12") scale !scaleb \\$i=ikitbasem $i=*
  2031. [ 0.375 Wide]insert (dd3 "/cb15") scale !scaleb \\$i=ikitbasem $i=*
  2032. [ 0.450 Wide]insert (dd3 "/cb18") scale !scaleb \\$i=ikitbasem $i=*
  2033. [ 0.525 Wide]insert (dd3 "/cb21") scale !scaleb \\$i=ikitbasem $i=*
  2034. [ 0.600 Wide]insert (dd3 "/cb24") scale !scaleb \\$i=ikitbasem $i=*
  2035. [ 0.675 Wide]insert (dd3 "/cb27") scale !scaleb \\$i=ikitbasem $i=*
  2036. [ 0.750 Wide]insert (dd3 "/cb30") scale !scaleb \\$i=ikitbasem $i=*
  2037. [ 0.825 Wide]insert (dd3 "/cb33") scale !scaleb \\$i=ikitbasem $i=*
  2038. [ 0.900 Wide]insert (dd3 "/cb36") scale !scaleb \\$i=ikitbasem $i=*
  2039. [ 0.975 Wide]insert (dd3 "/cb39") scale !scaleb \\$i=ikitbasem $i=*
  2040. [ 1.050 Wide]insert (dd3 "/cb42") scale !scaleb \\$i=ikitbasem $i=*
  2041. [ 1.200 Wide]insert (dd3 "/cb48") scale !scaleb \\$i=ikitbasem $i=*
  2042. [ Cabinet menu]$i=ikitcabm $i=*
  2043. [ Cancel]
  2044.  
  2045. **ikitbaset       
  2046. [Kitchen tall cabnets]
  2047. [ 18" Wide]insert (dd3 "/ct18S") scale !scaleb \\$i=ikitcab $i=*
  2048. [ 24" Wide]insert (dd3 "/ct24S") scale !scaleb \\$i=ikitcab $i=*
  2049. [ 24" Wide oven]insert (dd3 "/ctO24") scale !scaleb \\$i=ikitcab $i=*
  2050. [ 30" Wide oven]insert (dd3 "/ctO30") scale !scaleb \\$i=ikitcab $i=*
  2051. [ 36" Wide oven]insert (dd3 "/ctO36") scale !scaleb \\$i=ikitcab $i=*
  2052. [ 30" Wide]insert (dd3 "/ct30") scale !scaleb \\$i=ikitcab $i=*
  2053. [ 36" Wide]insert (dd3 "/ct36") scale !scaleb \\$i=ikitcab $i=*
  2054. [ 48" Wide]insert (dd3 "/ct48") scale !scaleb \\$i=ikitcab $i=*
  2055. [ Cancel]
  2056.  
  2057. **ikitbasetm       
  2058. [Kitchen tall cabnets]
  2059. [ 0.450 Wide]insert (dd3 "/ct18S") scale !scaleb \\$i=ikitcabm $i=*
  2060. [ 0.600 Wide]insert (dd3 "/ct24S") scale !scaleb \\$i=ikitcabm $i=*
  2061. [ 0.600 Wide oven]insert (dd3 "/ctO24") scale !scaleb \\$i=ikitcabm $i=*
  2062. [ 0.750 Wide oven]insert (dd3 "/ctO30") scale !scaleb \\$i=ikitcabm $i=*
  2063. [ 0.900 Wide oven]insert (dd3 "/ctO36") scale !scaleb \\$i=ikitcabm $i=*
  2064. [ 0.750 Wide]insert (dd3 "/ct30") scale !scaleb \\$i=ikitcabm $i=*
  2065. [ 0.900 Wide]insert (dd3 "/ct36") scale !scaleb \\$i=ikitcabm $i=*
  2066. [ 1.200 Wide]insert (dd3 "/ct48") scale !scaleb \\$i=ikitcabm $i=*
  2067. [ Cancel]
  2068.  
  2069. **ikitbased
  2070. [Kitchen cabinets base with drawers]
  2071. [ 9" Wide]insert (dd3 "/cd9") scale !scaleb \\$i=ikitcab $i=*
  2072. [ 12" Wide]insert (dd3 "/cd12") scale !scaleb \\$i=ikitcab $i=*
  2073. [ 15" Wide]insert (dd3 "/cd15") scale !scaleb \\$i=ikitcab $i=*
  2074. [ 18" Wide]insert (dd3 "/cd18") scale !scaleb \\$i=ikitcab $i=*
  2075. [ 21" Wide]insert (dd3 "/cd21") scale !scaleb \\$i=ikitcab $i=*
  2076. [ 24" Wide]insert (dd3 "/cd24") scale !scaleb \\$i=ikitcab $i=*
  2077. [ 30" Wide]insert (dd3 "/cd30") scale !scaleb \\$i=ikitcab $i=*
  2078. [ 36" Wide]insert (dd3 "/cd36") scale !scaleb \\$i=ikitcab $i=*
  2079. [ 42" Wide]insert (dd3 "/cd42") scale !scaleb \\$i=ikitcab $i=*
  2080. [ 48" Wide]insert (dd3 "/cd48") scale !scaleb \\$i=ikitcab $i=*
  2081. [ Cancel]
  2082.  
  2083. **ikitbasedm
  2084. [Kitchen cabinets base with drawers]
  2085. [ 0.225 Wide]insert (dd3 "/cd9") scale !scaleb \\$i=ikitcabm $i=*
  2086. [ 0.300 Wide]insert (dd3 "/cd12") scale !scaleb \\$i=ikitcabm $i=*
  2087. [ 0.375 Wide]insert (dd3 "/cd15") scale !scaleb \\$i=ikitcabm $i=*
  2088. [ 0.450 Wide]insert (dd3 "/cd18") scale !scaleb \\$i=ikitcabm $i=*
  2089. [ 0.525 Wide]insert (dd3 "/cd21") scale !scaleb \\$i=ikitcabm $i=*
  2090. [ 0.600 Wide]insert (dd3 "/cd24") scale !scaleb \\$i=ikitcabm $i=*
  2091. [ 0.750 Wide]insert (dd3 "/cd30") scale !scaleb \\$i=ikitcabm $i=*
  2092. [ 0.900 Wide]insert (dd3 "/cd36") scale !scaleb \\$i=ikitcabm $i=*
  2093. [ 1.050 Wide]insert (dd3 "/cd42") scale !scaleb \\$i=ikitcabm $i=*
  2094. [ 1.200 Wide]insert (dd3 "/cd48") scale !scaleb \\$i=ikitcabm $i=*
  2095. [ Cancel]
  2096.  
  2097. **ikitcorn
  2098. [Kitchen Corner cabinets]
  2099. [ Base]Insert (dd3 "/ccbase") scale !scaleb \
  2100. [ Wall 18" Wide]insert (dd3 "/cc18") scale !scaleb \\$i=ikitcab $i=*
  2101. [ Wall 24" Wide]insert (dd3 "/cc24") scale !scaleb \\$i=ikitcab $i=*
  2102. [ Wall 30" Wide]insert (dd3 "/cc30") scale !scaleb \\$i=ikitcab $i=*
  2103. [ Cancel]
  2104.  
  2105. **ikitcornm
  2106. [Kitchen Corner cabinets]
  2107. [ Base]Insert (dd3 "/ccbase") scale !scaleb \
  2108. [ Wall 0.450 Wide]insert (dd3 "/cc18") scale !scaleb \\$i=ikitcabm $i=*
  2109. [ Wall 0.600 Wide]insert (dd3 "/cc24") scale !scaleb \\$i=ikitcabm $i=*
  2110. [ Wall 0.750 Wide]insert (dd3 "/cc30") scale !scaleb \\$i=ikitcabm $i=*
  2111. [ Cancel]
  2112.  
  2113. **ikitw12
  2114. [Kitchen 12" high wall cabinets]
  2115. [ 30" Wide]insert (dd3 "/cw1230") scale !scaleb \\$i=ikitw12 $i=*
  2116. [ 33" Wide]insert (dd3 "/cw1233") scale !scaleb \\$i=ikitw12 $i=*
  2117. [ 36" Wide]insert (dd3 "/cw1236") scale !scaleb \\$i=ikitw12 $i=*
  2118. [ 39" Wide]insert (dd3 "/cw1239") scale !scaleb \\$i=ikitw12 $i=*
  2119. [ Cabinet menu]$i=ikitcab $i=*
  2120. [ Cancel]
  2121.  
  2122. **ikitw12m
  2123. [Kitchen 0.3 high wall cabinets]
  2124. [ 0.750 Wide]insert (dd3 "/cw1230") scale !scaleb \\$i=ikitw12m $i=*
  2125. [ 0.825 Wide]insert (dd3 "/cw1233") scale !scaleb \\$i=ikitw12m $i=*
  2126. [ 0.900 Wide]insert (dd3 "/cw1236") scale !scaleb \\$i=ikitw12m $i=*
  2127. [ 0.975 Wide]insert (dd3 "/cw1239") scale !scaleb \\$i=ikitw12m $i=*
  2128. [ Cabinet menu]$i=ikitcabm $i=*
  2129. [ Cancel]
  2130.  
  2131. **ikitw15
  2132. [Kitchen 15" high wall cabinets]
  2133. [ 30" Wide]insert (dd3 "/cw1530") scale !scaleb \\$i=ikitw15 $i=*
  2134. [ 33" Wide]insert (dd3 "/cw1533") scale !scaleb \\$i=ikitw15 $i=*
  2135. [ 36" Wide]insert (dd3 "/cw1536") scale !scaleb \\$i=ikitw15 $i=*
  2136. [ 39" Wide]insert (dd3 "/cw1539") scale !scaleb \\$i=ikitw15 $i=*
  2137. [ Cabinet menu]$i=ikitcab $i=*
  2138. [ Cancel]
  2139.  
  2140. **ikitw15m
  2141. [Kitchen 0.375 high wall cabinets]
  2142. [ 0.750 Wide]insert (dd3 "/cw1530") scale !scaleb \\$i=ikitw15m $i=*
  2143. [ 0.825 Wide]insert (dd3 "/cw1533") scale !scaleb \\$i=ikitw15m $i=*
  2144. [ 0.900 Wide]insert (dd3 "/cw1536") scale !scaleb \\$i=ikitw15m $i=*
  2145. [ 0.975 Wide]insert (dd3 "/cw1539") scale !scaleb \\$i=ikitw15m $i=*
  2146. [ Cabinet menu]$i=ikitcabm $i=*
  2147. [ Cancel]
  2148.  
  2149. **ikitw18
  2150. [Kitchen 18" high wall cabinets]
  2151. [ 24" Wide]insert (dd3 "/cw1824") scale !scaleb \\$i=ikitw18 $i=*
  2152. [ 27" Wide]insert (dd3 "/cw1827") scale !scaleb \\$i=ikitw18 $i=*
  2153. [ 30" Wide]insert (dd3 "/cw1830") scale !scaleb \\$i=ikitw18 $i=*
  2154. [ 33" Wide]insert (dd3 "/cw1833") scale !scaleb \\$i=ikitw18 $i=*
  2155. [ 36" Wide]insert (dd3 "/cw1836") scale !scaleb \\$i=ikitw18 $i=*
  2156. [ 39" Wide]insert (dd3 "/cw1839") scale !scaleb \\$i=ikitw18 $i=*
  2157. [ 42" Wide]insert (dd3 "/cw1842") scale !scaleb \\$i=ikitw18 $i=*
  2158. [ 48" Wide]insert (dd3 "/cw1848") scale !scaleb \\$i=ikitw18 $i=*
  2159. [ Cabinet menu]$i=ikitcab $i=*
  2160. [ Cancel]
  2161.  
  2162. **ikitw18m
  2163. [Kitchen 0.450 high wall cabinets]
  2164. [ 0.600 Wide]insert (dd3 "/cw1824") scale !scaleb \\$i=ikitw18m $i=*
  2165. [ 0.675 Wide]insert (dd3 "/cw1827") scale !scaleb \\$i=ikitw18m $i=*
  2166. [ 0.750 Wide]insert (dd3 "/cw1830") scale !scaleb \\$i=ikitw18m $i=*
  2167. [ 0.825 Wide]insert (dd3 "/cw1833") scale !scaleb \\$i=ikitw18m $i=*
  2168. [ 0.900 Wide]insert (dd3 "/cw1836") scale !scaleb \\$i=ikitw18m $i=*
  2169. [ 0.975 Wide]insert (dd3 "/cw1839") scale !scaleb \\$i=ikitw18m $i=*
  2170. [ 1.050 Wide]insert (dd3 "/cw1842") scale !scaleb \\$i=ikitw18m $i=*
  2171. [ 1.200 Wide]insert (dd3 "/cw1848") scale !scaleb \\$i=ikitw18m $i=*
  2172. [ Cabinet menu]$i=ikitcabm $i=*
  2173. [ Cancel]
  2174.  
  2175. **ikitw24
  2176. [Kitchen 24 3/4" high wall cabinets]
  2177. [ 24" Wide]insert (dd3 "/cw2424") scale !scaleb \\$i=ikitw24 $i=*
  2178. [ 27" Wide]insert (dd3 "/cw2427") scale !scaleb \\$i=ikitw24 $i=*
  2179. [ 30" Wide]insert (dd3 "/cw2430") scale !scaleb \\$i=ikitw24 $i=*
  2180. [ 33" Wide]insert (dd3 "/cw2433") scale !scaleb \\$i=ikitw24 $i=*
  2181. [ 36" Wide]insert (dd3 "/cw2436") scale !scaleb \\$i=ikitw24 $i=*
  2182. [ 39" Wide]insert (dd3 "/cw2439") scale !scaleb \\$i=ikitw24 $i=*
  2183. [ 42" Wide]insert (dd3 "/cw2442") scale !scaleb \\$i=ikitw24 $i=*
  2184. [ 48" Wide]insert (dd3 "/cw2448") scale !scaleb \\$i=ikitw24 $i=*
  2185. [ Cabinet menu]$i=ikitcab $i=*
  2186. [ Cancel]
  2187.  
  2188. **ikitw24m
  2189. [Kitchen 0.6188 high wall cabinets]
  2190. [ 0.600 Wide]insert (dd3 "/cw2424") scale !scaleb \\$i=ikitw24m $i=*
  2191. [ 0.675 Wide]insert (dd3 "/cw2427") scale !scaleb \\$i=ikitw24m $i=*
  2192. [ 0.750 Wide]insert (dd3 "/cw2430") scale !scaleb \\$i=ikitw24m $i=*
  2193. [ 0.825 Wide]insert (dd3 "/cw2433") scale !scaleb \\$i=ikitw24m $i=*
  2194. [ 0.900 Wide]insert (dd3 "/cw2436") scale !scaleb \\$i=ikitw24m $i=*
  2195. [ 0.975 Wide]insert (dd3 "/cw2439") scale !scaleb \\$i=ikitw24m $i=*
  2196. [ 1.050 Wide]insert (dd3 "/cw2442") scale !scaleb \\$i=ikitw24m $i=*
  2197. [ 1.200 Wide]insert (dd3 "/cw2448") scale !scaleb \\$i=ikitw24m $i=*
  2198. [ Cabinet menu]$i=ikitcabm $i=*
  2199. [ Cancel]
  2200.  
  2201. **ikitw30
  2202. [Kitchen 30" high wall cabinets]
  2203. [ 9" Wide]insert (dd3 "/cw309") scale !scaleb \\$i=ikitw30 $i=*
  2204. [ 12" Wide]insert (dd3 "/cw3012") scale !scaleb \\$i=ikitw30 $i=*
  2205. [ 15" Wide]insert (dd3 "/cw3015") scale !scaleb \\$i=ikitw30 $i=*
  2206. [ 18" Wide]insert (dd3 "/cw3018") scale !scaleb \\$i=ikitw30 $i=*
  2207. [ 21" Wide]insert (dd3 "/cw3021") scale !scaleb \\$i=ikitw30 $i=*
  2208. [ 24" Wide]insert (dd3 "/cw3024") scale !scaleb \\$i=ikitw30 $i=*
  2209. [ 27" Wide]insert (dd3 "/cw3027") scale !scaleb \\$i=ikitw30 $i=*
  2210. [ 30" Wide]insert (dd3 "/cw3030") scale !scaleb \\$i=ikitw30 $i=*
  2211. [ 33" Wide]insert (dd3 "/cw3033") scale !scaleb \\$i=ikitw30 $i=*
  2212. [ 36" Wide]insert (dd3 "/cw3036") scale !scaleb \\$i=ikitw30 $i=*
  2213. [ 39" Wide]insert (dd3 "/cw3039") scale !scaleb \\$i=ikitw30 $i=*
  2214. [ 42" Wide]insert (dd3 "/cw3042") scale !scaleb \\$i=ikitw30 $i=*
  2215. [ 48" Wide]insert (dd3 "/cw3048") scale !scaleb \\$i=ikitw30 $i=*
  2216. [ Cabinet menu]$i=ikitcab $i=*
  2217. [ Cancel]
  2218.  
  2219. **ikitw30m
  2220. [Kitchen 30" high wall cabinets]
  2221. [ 9" Wide]insert (dd3 "/cw309") scale !scaleb \\$i=ikitw30 $i=*
  2222. [ 12" Wide]insert (dd3 "/cw3012") scale !scaleb \\$i=ikitw30 $i=*
  2223. [ 15" Wide]insert (dd3 "/cw3015") scale !scaleb \\$i=ikitw30 $i=*
  2224. [ 18" Wide]insert (dd3 "/cw3018") scale !scaleb \\$i=ikitw30 $i=*
  2225. [ 21" Wide]insert (dd3 "/cw3021") scale !scaleb \\$i=ikitw30 $i=*
  2226. [ 24" Wide]insert (dd3 "/cw3024") scale !scaleb \\$i=ikitw30 $i=*
  2227. [ 27" Wide]insert (dd3 "/cw3027") scale !scaleb \\$i=ikitw30 $i=*
  2228. [ 30" Wide]insert (dd3 "/cw3030") scale !scaleb \\$i=ikitw30 $i=*
  2229. [ 33" Wide]insert (dd3 "/cw3033") scale !scaleb \\$i=ikitw30 $i=*
  2230. [ 36" Wide]insert (dd3 "/cw3036") scale !scaleb \\$i=ikitw30 $i=*
  2231. [ 39" Wide]insert (dd3 "/cw3039") scale !scaleb \\$i=ikitw30 $i=*
  2232. [ 42" Wide]insert (dd3 "/cw3042") scale !scaleb \\$i=ikitw30 $i=*
  2233. [ 48" Wide]insert (dd3 "/cw3048") scale !scaleb \\$i=ikitw30 $i=*
  2234. [ Cabinet menu]$i=ikitcab $i=*
  2235. [ Cancel]
  2236.  
  2237. **ikithand
  2238. [Redefine Kitchen cabinet handles]
  2239. [autoarch(cabhand)]insert (strcat "cabhand=" (dd "/arch3d/cabhand"));(nl zooma "/cci/zooma")(zooma);
  2240. [autoarch(cabhand1)]insert (strcat "cabhand=" (dd "/arch3d/cabhand1"));(nl zooma "/cci/zooma")(zooma);
  2241. [autoarch(cabhand2)]insert (strcat "cabhand=" (dd "/arch3d/cabhand2"));(nl zooma "/cci/zooma")(zooma);
  2242. [autoarch(cabhand3)]insert (strcat "cabhand=" (dd "/arch3d/cabhand3"));(nl zooma "/cci/zooma")(zooma);
  2243. [autoarch(cabhand4)]insert (strcat "cabhand=" (dd "/arch3d/cabhand4"));(nl zooma "/cci/zooma")(zooma);
  2244. [ Cancel]
  2245.  
  2246. **ikitdoor
  2247. [Redefine Kitchen cabinet doors]
  2248. [autoarch(cabdoor0)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor0"));(nl zooma "/cci/zooma")(zooma);
  2249. [autoarch(cabdoor1)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor1"));(nl zooma "/cci/zooma")(zooma);
  2250. [autoarch(cabdoor2)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor2"));(nl zooma "/cci/zooma")(zooma);
  2251. [autoarch(cabdoor3)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor3"));(nl zooma "/cci/zooma")(zooma);
  2252. [autoarch(cabdoor4)]insert (strcat "cabdoor1=" (dd "/arch3d/cabdoor4"));(nl zooma "/cci/zooma")(zooma);
  2253. [ Cancel]
  2254.  
  2255. **iconsdet
  2256. [Typical Details]
  2257. [ wood]insert (dd "/archd/wooddet") scale !scaleb \;
  2258. [ steel]insert (dd "/archd/steeldet") scale !scaleb \;
  2259. [ masonry]insert (dd "/archd/masdet") scale !scaleb \;
  2260. [ door]insert (dd "/archd/doordet") scale !scaleb \;
  2261. [ window]insert (dd "/archd/winddet") scale !scaleb \;
  2262. [ Cancel]
  2263.  
  2264. **i3dmisc
  2265. [Miscellaneous 3D objects]
  2266. [autoarch(goblet)]insert (dd "/arch3d/goblet") scale !scaleb \
  2267. [autoarch(plate)]insert (dd "/arch3d/plate") scale !scaleb \
  2268. [autoarch(saucer)]insert (dd "/arch3d/saucer") scale !scaleb \
  2269. [autoarch(book1)]insert (dd "/arch3d/book1") scale !scaleb \
  2270. [autoarch(book2)]insert (dd "/arch3d/book2") scale !scaleb \
  2271. [autoarch(book3)]insert (dd "/arch3d/book3") scale !scaleb \
  2272. [autoarch(picture1)]insert (dd "/arch3d/picture1") scale !scaleb \
  2273. [autoarch(picture2)]insert (dd "/arch3d/picture2") scale !scaleb \
  2274. [autoarch(picture3)]insert (dd "/arch3d/picture3") scale !scaleb \
  2275. [autoarch(mirror)]insert (dd "/arch3d/mirror") scale !scaleb \
  2276. [autoarch(vase)]insert (dd "/arch3d/vase") scale !scaleb \
  2277. [ Cancel]
  2278.  
  2279. **ifurnmisc
  2280. [Miscellaneous Furniture]
  2281. [autoarch(piano)]insert (dd3 "/piano") scale !scaleb \
  2282. [autoarch(dresser1)]insert (dd3 "/dresser1") scale !scaleb \
  2283. [autoarch(dresser2)]insert (dd3 "/dresser2") scale !scaleb \
  2284. [autoarch(tvconsol)]insert (dd3 "/tvconsol") scale !scaleb \
  2285. [autoarch(tv-port)]insert (dd3 "/tv-port") scale !scaleb \
  2286. [autoarch(stereo)]insert (dd3 "/stereo") scale !scaleb \
  2287. [autoarch(stspkr)]insert (dd3 "/stspkr") scale !scaleb \
  2288. [ Cancel]
  2289.  
  2290. **idetmisc
  2291. [Miscellaneous Detail symbols]
  2292. [autoarch(ancbolt)]insert (dd "/archd/ancbolt") scale !scaleb \
  2293. [autoarch(ground)]insert (dd "/archd/ground") scale !scaleb \
  2294. [autoarch(gravel)]^C^Chatch gravl1;
  2295. [autoarch(earth)]^C^Chatch earth;
  2296. [autoarch(earth2)]^C^Chatch earth2;
  2297. [autoarch(glass)]^C^Chatch glass;
  2298. [autoarch(screen)]^C^Chatch screen;
  2299. [autoarch(octagon)]^C^Chatch octagon;
  2300. [ Cancel]
  2301.  
  2302. **iarrows
  2303. [Arrow symbols]
  2304. [autoarch(arrow)]insert (dd "/arch/arrow") scale !scale1;
  2305. [autoarch(arrow1)]insert (dd "/arch/arrow1") scale !scale1;
  2306. [autoarch(arrow2)]insert (dd "/arch/arrow2") scale !scale1;
  2307. [autoarch(arrow3)]insert (dd "/arch/arrow3") scale !scale1;
  2308. [autoarch(arrow4)]insert (dd "/arch/arrow4") scale !scale1;
  2309. [autoarch(arrow7)]insert (dd "/arch/arrow7") scale !scale1;
  2310. [autoarch(arrow5)]insert (dd "/arch/arrow5") scale !scale1;
  2311. [autoarch(arrow6)]insert (dd "/arch/arrow6") scale !scale1;
  2312. [ Cancel]
  2313.  
  2314. **iceiling
  2315. [Ceiling Grid Programs]
  2316. [autoarch(ceilgrid)](nl "" "/archp/ceilgrid");
  2317. [autoarch(ceilhat)](nl "" "/archp/ceilhat");
  2318. [autoarch(ceilhatp)](nl "" "/archp/ceilhatp");
  2319. [ Pick polyline](nl "" "/archp/ceilpick");
  2320. [ Cancel]
  2321.  
  2322. **iceilmisc
  2323. [Misc Ceiling]
  2324. [autoarch(cfan42)](lays ceilv) insert (dd3 "/cfan42") scale !scaleb \
  2325. [autoarch(cfan48)](lays ceilv) insert (dd3 "/cfan48") scale !scaleb \
  2326. [autoarch(e-exit1)](lays elecv) insert (dd "/arch/e-exit1") scale !scale1;
  2327. [ Cancel]
  2328.  
  2329. **ihvac
  2330. [HVAC ]
  2331. [ 2X2 acc](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
  2332. [ 2X4 acc](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
  2333. [ OTHER acc](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
  2334. [ 2X2 supp](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
  2335. [ 2X4 supp](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
  2336. [ OTHER supp](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
  2337. [ 2X2 ret](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
  2338. [ 2X4 ret](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
  2339. [ OTHER ret](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
  2340. [ Cancel]
  2341.  
  2342. **ihvacm
  2343. [HVAC ]
  2344. [ .6 X .6 acc](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
  2345. [ .6 X 1.2 acc](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
  2346. [ OTHER acc](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
  2347. [ .6 X .6 supp](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
  2348. [ .6 X 1.2 supp](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
  2349. [ OTHER supp](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
  2350. [ .6 X .6 ret](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
  2351. [ .6 X 1.2 ret](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
  2352. [ OTHER ret](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
  2353. [ Cancel]
  2354.  
  2355. **ibreaks
  2356. [Breaks]
  2357. [cciacad(break1)]insert (dd "/cci/break") scale !scale1 \\
  2358. [cciacad(break2)](nl "" "/cci/lbreak");
  2359. [cciacad(lbreak2)](nl insertbk "/cci/insertbk")(insertbk "/cci/break2" 12 "C")(princ);
  2360. [cciacad(break3)](nl "" "/cci/pbreak");
  2361. [cciacad(break4)](nl "" "/cci/pbreak2");
  2362. [cciacad(break5)](nl "" "/cci/rectline");
  2363. [cciacad(break6)](nl "" "/cci/rndline");
  2364. [ Cancel]^C^C
  2365.  
  2366. ***SCREEN
  2367. **S
  2368. [autoARCH]$s=x $s=s
  2369.  
  2370. [WALLmenu]$s=x $s=wlmenu
  2371. [FND menu]$s=x $s=fndmenu
  2372. [SPACEpln]$s=x $s=space
  2373. [DOORS]$s=x $s=door
  2374. [WINDOW]$s=x $s=window
  2375. [CALLOUTS]$s=x $s=call
  2376. [SITE sym]$s=x $s=site
  2377. [STAIR]$s=x $s=stair
  2378. [FURNITR]$s=x $s=furn
  2379. [APPLIANC]$s=x $s=appl
  2380. [ELEC sym]$s=x $s=elec
  2381. [PLUMBsym]$s=x $s=plumb
  2382. [STRUCTRL]$s=x $s=structural
  2383. [ROOF]$s=x $s=roof
  2384. [CEILING]$s=x $s=ceiling
  2385. [LEVEL]$s=x $s=level
  2386. [SCHEDULE]$s=x $s=schedule
  2387. [SETUP](if metric (progn (menucmd "s=x")(menucmd "s=setupm"))(progn (menucmd "s=x")(menucmd "s=setup")))(princ);
  2388. [ACAD]$s=x $s=acad
  2389. **ACAD 2
  2390.  
  2391. [SETUP](if metric (progn (menucmd "s=x")(menucmd "s=setupm"))(progn (menucmd "s=x")(menucmd "s=setup")))(princ);
  2392. [3D]$S=X $S=3D
  2393. [BLOCKS]$S=X $S=BL 
  2394. [BALLOON]$s=x $s=balloon
  2395. [DIM:]$S=X $S=DIM ^C^CDIM;
  2396. [DISPLAY]$S=X $S=DS
  2397. [DRAW]$S=X $S=DR
  2398. [TEXT:]^C^C$s=x $s=text $t4=text1 $t4=text2 text;
  2399. [DTEXT:]^C^C$s=x $s=dtext $t4=dtext1 $t4=dtext2 dtext;
  2400. [EDIT]$S=X $S=ED
  2401. [INQUIRY]$S=X $S=INQ
  2402. [LAYER:]$S=X $S=LAYER ^C^CLAYER;
  2403. [LISP]$s=x $s=lisp
  2404. [SAVE:]^C^C(SETQ USECOUNT 0) SAVE;
  2405. [SETTINGS]$S=X $S=SET2
  2406. [UCS:]$S=X $S=UCS1 ^C^CUCS;
  2407. [UTILITY]$S=X $S=UT
  2408. [ASHADE]^C^C(nl c:scene "/cci/ashade")(princ) $s=x $s=ashade $i=ias $i=*
  2409. **X 2
  2410.  
  2411.  
  2412.  
  2413.  
  2414.  
  2415.  
  2416.  
  2417.  
  2418.  
  2419.  
  2420.  
  2421.  
  2422.  
  2423.  
  2424.  
  2425.  
  2426.  
  2427.  
  2428. [ LAST  ]$s= $s=
  2429. [ ACAD]$s=x $s=acad
  2430. **HEADER
  2431. [autoARCH]$s=x $s=s
  2432.  
  2433. **WALK 3
  2434. [HIDE]h;
  2435.  
  2436. [FORWARD]mf;
  2437. [BACKWARD]mb;
  2438. [LEFT]ml;
  2439. [RIGHT]mr;
  2440. [+ STEP]co;
  2441. [- STEP]ci;
  2442.  
  2443. [step UP]su;
  2444. [stepDOWN]sd;
  2445. [turnLEFT]tl;
  2446. [trnRIGHT]tr;
  2447. [+ ANGLE]ao;
  2448. [- ANGLE]ai;
  2449. [look UP]lu;
  2450. [lookDOWN]ld;
  2451. **LEVEL 2
  2452. [3D SETUP](nl "" "/archp/3dinfo");
  2453. [LISTMOD](nl "" "/archp/laylevel");
  2454. [LISTLOAD](nl "" "/archp/levellay");
  2455. [MAKETYPE](nl "" "/archp/leveljob");
  2456. [USE TYPE](nl "" "/archp/leveltyp");
  2457. [LEVMOVE](nl "" "/archp/levmove");
  2458. [LEVCOPY](nl "" "/archp/levcopy");
  2459. [LEVARRAY](nl "" "/archp/levarray");
  2460. [LEVELDEL](nl "" "/archp/leveldel");
  2461. [LEV2FILE](nl "" "/archp/levelmod");
  2462. [LEVELREF](nl "" "/archp/levelref");
  2463. [LEVELSET](nl "" "/archp/levelset");
  2464. [LEV ON](nl lalevel "/archp/lalevel")(lalevel "ON");
  2465. [ OFF](nl lalevel "/archp/lalevel")(lalevel "OFF");
  2466. [ FREEZE](nl lalevel "/archp/lalevel")(lalevel "FREEZE");
  2467. [ THAW](nl lalevel "/archp/lalevel")(lalevel "THAW");
  2468. [2D TO 3D](nl "" "/archp/2dto3d");
  2469. [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);
  2470. **BUILD 3
  2471. [building]$i=ibuild $i=*
  2472. [outlines]$i=ibuild $i=*
  2473.  
  2474. [simple]
  2475. [ARCHWALL](setq bldtyp "S")(nl "" "/archp/building");
  2476. [FNDWALL](setq bldtyp "S")(nl "" "/archp/fndbuild");
  2477. [COMBO](setq bldtyp "S")(nl "" "/archp/bldcombo");
  2478.  
  2479. [complex]
  2480. [ARCHWALL](setq bldtyp "C")(nl "" "/archp/building");
  2481. [FNDWALL](setq bldtyp "C")(nl "" "/archp/fndbuild");
  2482. [COMBO](setq bldtyp "C")(nl "" "/archp/bldcombo");
  2483. **FNDMENU 2
  2484. [foundtn](princ " No Icon Available ")(princ);
  2485. [EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
  2486. [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);
  2487.  
  2488. [EXTERIOR](nl c:fndwalle "/archp/fndwalle") FNDWALLE;
  2489. [   COMBO](nl c:fndwall "/archp/fndwall") FNDWALL;
  2490.  
  2491. [INTERIOR](nl c:fndwalli "/archp/fndwalli") FNDWALLI;
  2492. [   COMBO](nl c:fndwallc "/archp/fndwallc") FNDWALLC;
  2493.  
  2494. [CONTROLS]$s=x $s=wallvar
  2495. [BUILDING]$s=x $s=build $i=ibuild $i=*
  2496. [MISCWALL]$s=x $s=miscwall
  2497. [WALLmenu]$s=x $s=wlmenu
  2498. **WLMENU 2
  2499. [wallmenu](princ " No Icon Available ")(princ);
  2500. [EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
  2501.  
  2502. [EXTERIOR](nl c:wallext "/archp/wallext") wallext;
  2503. [  SIMPLE](nl c:wallexts "/archp/wallexts") wallexts;
  2504. [  3L MAS](nl c:wallextm "/archp/wallextm") wallextm;
  2505. [  4L MAS](nl c:wallmas "/archp/wallmas") wallmas;
  2506. [  CORNER](nl c:wallcnte "/archp/wallcnte") wallcnte;
  2507. [INTERIOR](nl c:wallint "/archp/wallint") wallint;
  2508. [  SIMPLE](nl c:wallints "/archp/wallints") wallints;
  2509. [  DOUBLE](nl c:wallintd "/archp/wallintd") wallintd;
  2510. [  CORNER](nl c:wallcnti "/archp/wallcnti") wallcnti;
  2511. [WALLINE](nl c:walline "/archp/wallline") walline;
  2512. [LOW WALL](nl c:walllow "/archp/walllow") walllow;
  2513. [POLYWALL](nl c:wallpoly "/archp/wallpoly") wallpoly;
  2514. [CONTROLS]$s=x $s=wallvar
  2515. [BUILDING]$s=x $s=build $i=ibuild $i=*
  2516. [MISCWALL]$s=x $s=miscwall
  2517. **miscwall 2
  2518. [miscwall](princ " No Icon Available ")(princ);
  2519. [CROSSFIX](nl c:cross "/archp/crossfix") cross;
  2520. [T FIX](nl c:butt "/archp/buttfix") butt;
  2521. [CORNFIX](nl c:corn "/archp/cornfix") corn;
  2522. [CAPFIX](nl "" "/archp/capfix");
  2523. [WALLBRK](defun c:wb ()(nl wallbrk "/archp/wallbrk");(setq wfunk "A" wfunk1 't)(wallbrk wfunk))(princ) wb;
  2524. [INSULATE](nl "" "/archp/insulate");
  2525. [CLOSET](nl "" "/archp/closet");
  2526. [WALLAREA](nl "" "/archp/paint");
  2527. [WALL DIM](setq lalist (gettable "layer" ""))(nl c:walldim "/archp/walldim") walldim;
  2528. [WALLHAT](nl "" "/archp/hatwall");
  2529. [W FILLET](nl c:wallfilt "/archp/wallfilt") wallfilt;
  2530. [WLTOROOF](nl c:wltoroof "/archp/wltoroof") wltoroof;
  2531. [DOUBLER](nl "" "/archp/doubler");
  2532. [ELEVATIN](nl elevatin "/archp/elevatin")(elevatin);
  2533. [SECTION](nl crossect "/archp/crossect")(crossect);
  2534. [CONTROLS]$s=x $s=wallvar
  2535. [BUILDING]$s=x $s=build $i=ibuild $i=*
  2536. **wallvar 3
  2537. [wallvari](princ " No Icon Available ")(princ);
  2538. [lmodWALL](set 'temp 'WALLV)(nl "" "/cci/layermod");
  2539. [ MASONRY](set 'temp 'WALLMV)(nl "" "/cci/layermod");
  2540. [ FND](set 'temp 'FNDV)(nl "" "/cci/layermod");
  2541. [ FOOTING](set 'temp 'FNDDV)(nl "" "/cci/layermod");
  2542. [thckWALL](princ "Resetting WALL thickness ")(setq wallth nil)(post)(princ);
  2543. [ MASONRY](princ "Resetting Masonry WALL thickness ")(setq mwalth nil)(post)(princ);
  2544. [ FND](princ "Resetting FOUNDATION WALL thickness ")(setq fndthk nil)(post)(princ);
  2545. [ FOOTING](princ "Resetting FOOTING thickness ")(setq fndfth nil)(post)(princ);
  2546. [hgt WALL](princ "Resetting WALL height ")(setq wallht nil)(post)(princ);
  2547. [ LOWWALL](princ "Resetting LOW WALL height ")(setq walllw nil)(post)(princ);
  2548. [ FND](princ "Resetting FOUNDATION WALL hight ")(setq fndht nil)(post)(princ);
  2549. [ FOOTING](princ "Resetting FOOTING hight ")(setq fndfht nil)(post)(princ);
  2550. [MXWLrset](princ "Resetting MAX WALL ")(setq maxwal nil)(post)(PRINC);
  2551. [AIR GAP](princ "Resetting AIR GAP width ")(setq airwdt nil)(post)(princ);
  2552. [CENTLINE](if (or (null cent)(= cent "N"))(progn (princ " Center lines ON ")(setq cent "Y"))(progn (princ " Center lines OFF ")(setq cent "N")))(princ);
  2553. **SPACE 3
  2554. [ space](princ " No Icon Available ")(princ);
  2555. [LAYERMOD](set 'temp 'SPACEV)(nl "" "/cci/layermod");
  2556.  
  2557. [SPACE](nl "" "/archp/space");
  2558. [SPACEdiv](nl "" "/archp/spacediv");
  2559. [SPACEshp](nl "" "/archp/spaceshp");
  2560. [SPACEcir](nl "" "/archp/spacecir");
  2561. [SPACEwal](nl "" "/archp/spacelin");
  2562. [SPACElst](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/space"));
  2563.  
  2564. [FIXbig](nl "" "/archp/spaceara");
  2565. [FIXsmall](nl "" "/archp/spaceupd");
  2566. [EDITspac](nl "" "/archp/spacedit");
  2567. [DELETE](nl "" "/archp/spacedel");
  2568.  
  2569. [DOUBLER](nl "" "/archp/doubler");
  2570. [CROSSFIX](nl c:cross "/archp/crossfix") cross;
  2571. **INSULAT 3
  2572. [insulate](princ " No Icon Available ")(princ);
  2573.  
  2574. [LAYERMOD](set 'temp 'INSULV)(nl "" "/cci/layermod");
  2575.  
  2576.  
  2577. [INSULATE]insulat;
  2578.  
  2579. [########]insulxm;
  2580.  
  2581. [XXXXXXXX]insulx;
  2582.  
  2583. [||||||||]insuline;
  2584.  
  2585. [////////]insulang;
  2586.  
  2587. [SOLID]insulold;
  2588. **SCHEDULE 3
  2589. [SCHEDULE](princ " No Icon Available ")(princ);
  2590.  
  2591. [DOOR](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/door"));
  2592. [WINDOW](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/window"));
  2593. [FURNITUR](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/furnitur"));
  2594. [CASEWORK](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/casework"));
  2595. [SEATING ](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/seating"));
  2596. [ROOM](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/room"));
  2597.  
  2598. [OTHER](setq temp (strcase (getstring " Enter template file (extension .txt assumed) <temp>: ")))(if (= temp "")(setq temp "TEMP"))(nl billmat "/cci/billmat")(billmat temp);
  2599.  
  2600. [TAMLLIB](nl tamllib "/cci/tamllib")(tamllib);
  2601. [TEMPLAT](nl "" "/cci/tplate");
  2602. [FINISH](nl finish "/archp/finish")(finish (strcat drive "/arch/finish"));
  2603. [ABBREV](nl abbrev "/cci/abbrev")(abbrev (strcat drive "/arch/aabbrev.txt"));
  2604. **DOOR 2
  2605. [RESET](nl "" "/archp/doorcln");
  2606. [DOORhgt](princ "Resetting DOOR hight ")(setq doorht nil)(princ);
  2607. [DOORwdth](princ " Resetting Door Width ")(setq doorwd nil)(princ);
  2608. [MXWLrset](princ "Resetting MAX WALL ")(setq maxwal nil)(princ);
  2609. [EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
  2610. [LMODdoor](set 'temp 'DOORV)(nl "" "/cci/layermod");
  2611. [LMdoorno](set 'temp 'DOORNOV)(nl "" "/cci/layermod");
  2612. [BK EXIST](princ "EXISTING BREAK ")(setq doorfk "I")(princ);
  2613. [BKCHOOSE](princ "BREAK CHOOSE ")(setq doorfk "A")(princ);
  2614. [BK ALL](princ "BREAK ALL ")(setq doorfk "1")(princ);
  2615. [SILL](nl sillside "/archp/sillside")(nl "" "/archp/drsill");
  2616. [JAMB](if (/= jambd "Y")(progn (setq jambd "Y")(princ "JAMBS INCLUDED ")(nl "" "/archp/jambd"))(progn (setq jambd "N")(princ "JAMBS NOT INCLUDED ")))(princ);
  2617. [WINDOW 1](princ "Door with 1 Side Light ")(setq wind1 'T)(princ);
  2618. [WINDOW 2](princ "Door with 2 Side Lights ")(setq wind1 'T wind2 'T)(princ);
  2619. [UNDODOOR](nl "" "/cci/partout");
  2620. [SCHEDULE](nl billmat "/cci/billmat")(billmat (strcat drive "/arch/door"));
  2621. [INTERIOR]$s=x $s=door1
  2622. [EXTERIOR]$s=x $s=door2
  2623. **DOOR1 2
  2624. [90 Sgl](setq doortp "90s")(nl c:door "/archp/door") door;
  2625. [90 Dbl](setq doortp "90d")(nl c:door "/archp/door") door;
  2626. [90 DblEg](setq doortp "90deg")(nl c:door "/archp/door") door;
  2627. [45 Sgl](setq doortp "45s")(nl c:door "/archp/door") door;
  2628. [45 Dbl](setq doortp "45d")(nl c:door "/archp/door") door;
  2629. [45 DblEg](setq doortp "45deg")(nl c:door "/archp/door") door;
  2630. [180 Sl](setq doortp "180s")(nl c:door "/archp/door") door;
  2631. [180 Dbl](setq doortp "180d")(nl c:door "/archp/door") door;
  2632. [EXISTsgl](setq doortp "exs")(nl c:door "/archp/door") door;
  2633. [EXISTdbl](setq doortp "exd")(nl c:door "/archp/door") door;
  2634. [SLIDEsgl](setq doortp "sls")(nl c:door "/archp/door") door;
  2635. [SLIDEdbl](setq doortp "sld")(nl c:door "/archp/door") door;
  2636. [BIFOLD S](setq doortp "bis")(nl c:door "/archp/door") door;
  2637. [BIFOLD D](setq doortp "bid")(nl c:door "/archp/door") door;
  2638. [2WAY S](setq doortp "2ws")(nl c:door "/archp/door") door;
  2639. [2WAY D](setq doortp "2wd")(nl c:door "/archp/door") door;
  2640. [FLEX S](setq doortp "fx1s")(nl c:door "/archp/door") door;
  2641. [FLEX D](setq doortp "fx2s")(nl c:door "/archp/door") door;
  2642. **DOOR2 2
  2643. [exterior](princ " No Icon Available ")(princ);
  2644. [WINDOW 1](princ "Door with 1 window ")(setq wind1 't)(princ);
  2645. [WINDOW 2](princ "Door with 2 window2 ")(setq wind1 't wind2 't)(princ);
  2646. [90 Sgl](setq doortp "90s")(nl c:door "/archp/door") door;
  2647. [90 Dbl](setq doortp "90d")(nl c:door "/archp/door") door;
  2648. [90 DblEg](setq doortp "90deg")(nl c:door "/archp/door") door;
  2649. [45 Sgl](setq doortp "45s")(nl c:door "/archp/door") door;
  2650. [45 Dbl](setq doortp "45d")(nl c:door "/archp/door") door;
  2651. [45 DblEg](setq doortp "45deg")(nl c:door "/archp/door") door;
  2652. [180 Sl](setq doortp "180s")(nl c:door "/archp/door") door;
  2653. [180 Dbl](setq doortp "180d")(nl c:door "/archp/door") door;
  2654. [EXISTsgl](setq doortp "exs")(nl c:door "/archp/door") door;
  2655. [EXISTdbl](setq doortp "exd")(nl c:door "/archp/door") door;
  2656. [SLIDEsgl](setq doortp "sls")(nl c:door "/archp/door") door;
  2657. [SLIDEdbl](setq doortp "sld")(nl c:door "/archp/door") door;
  2658. [REVOLV](setq doortp "rev")(nl c:door "/archp/door") door;
  2659. [GARAGE](setq doortp "gd")(nl c:door "/archp/door") door;
  2660. **DOOR3 2
  2661. [90 Sgl]90s;
  2662. [90 Dbl]90d;
  2663. [90 DblEg]90deg;
  2664. [45 Sgl]45s;
  2665. [45 Dbl]45d;
  2666. [45 DblEg]45deg;
  2667. [180 Sgl]180s;
  2668. [180 Dbl]180d;
  2669. [EXISTsgl]exs;
  2670. [EXISTdbl]exd;
  2671. [SLIDEsgl]sls;
  2672. [SLIDEdbl]sld;
  2673. [BIFOLD S]bis;
  2674. [BIFOLD D]bid;
  2675. [2WAY S]2ws;
  2676. [2WAY D]2wd;
  2677. [FLEX S]fx1s;
  2678. [FLEX D]fx2d;
  2679. [REVOLV]rev;
  2680. [GARAGE]gd;
  2681. **WINDOW 2
  2682. [LMWINDOW](set 'temp 'WINDV)(nl "" "/cci/layermod");
  2683. [RESET](nl "" "/archp/windcln");
  2684. [reset 2](princ " Resetting Window type 2 ")(setq wndtp1 nil)(princ);
  2685. [reset 3](princ " Resetting Window type 3 ")(setq wndtp2 nil)(princ);
  2686. [set TOP](setq temp (getdist (strcat " Top of window elevation <"(rtos (getvar "userr3"))">: ")));\(if temp (setvar "userr3" temp));
  2687. [EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
  2688. [BK EXIST](princ " WINDOW BREAK EXISTS ")(setq windfk "I")(princ);
  2689. [BRKCHOSE](princ " CHOOSE wall LINES NOT to BREAK ")(setq windfk "1")(princ);
  2690. [BRK ALL](princ " WINDOW BREAK ALL ")(setq windfk "2")(princ);
  2691. [MULLION](nl "" "/archp/mullion");
  2692. [JAMB](if (/= jambw "Y")(progn (setq jambw "Y")(princ " JAMBS INCLUDED ")(nl "" "/archp/jamb"))(progn (setq jambw "N")(princ " JAMBS NOT INCLUDED ")))(princ);
  2693. [UNDOWIND](nl "" "/cci/partout");
  2694. [BOW](nl wallbrk "/archp/wallbrk")(setq windfk "2")(nl "" "/archp/bow")(bow);
  2695. [BAY](nl "" "/archp/windbay")(nl "" "/archp/windfin3")(princ " Pick WINDOW 1 2 OR 3 ")(princ);
  2696. [CURTAINW](nl "" "/archp/curtain");
  2697. [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;
  2698. [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;
  2699. [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;
  2700. **WINDTYPE 3
  2701. [window]
  2702. [ types]
  2703.  
  2704. [SINGLE P]sp;
  2705.  
  2706. [DOUBLE]dp;
  2707.  
  2708. [CASEMENT]ct;
  2709.  
  2710. [SLIDING]gl;
  2711.  
  2712. **WINDTYPEE 3
  2713. [window]
  2714. [ types]
  2715.  
  2716. [FIXED GL]fixed;
  2717.  
  2718. [DOUBLE H]double;
  2719.  
  2720. [CASEMENT]casement;
  2721.  
  2722. [SLIDING]sliding;
  2723.  
  2724. [AWNING]awning;
  2725.  
  2726. **STAIR 3
  2727. [stairs](princ " No Icon Available ")(princ);
  2728. [LAYERMOD](set 'temp 'STAIRV)(nl "" "/cci/layermod");
  2729. [STRINGER](setq ststr nil)(princ " Resetting stair Stringer ")(princ);
  2730. [TYPE](setq startp nil)(princ " Resetting stair Type ")(princ);
  2731. [HANDRAIL](setq sthdrl nil)(princ " Resetting stair Handrails ")(princ);
  2732. [BALUSTER](setq balist nil)(princ " Resetting stair Balusters ")(princ);
  2733. [ARROW](setq sthdar nil)(princ " Resetting stair directional Arrow ")(princ);
  2734. [EXPERT](if (null expert)(progn(setq expert 't)(princ " Expert ON "))(progn(setq expert nil)(princ " Expert OFF ")))(post)(princ);
  2735.  
  2736. [STAIRS](nl "" "/archp/stair");
  2737. [SPIRAL](nl "" "/archp/spiral");
  2738. [VERT CUT](nl "" "/archp/stairct");
  2739. [VERTICAL](if (/= (getvar "useri1") 0)(nl "" "/archp/stairv3")(nl "" "/archp/stairv"));
  2740. [L SHAPED](if (/= (getvar "useri1") 0)(nl "" "/archp/stairl3")(nl "" "/archp/stairl"));
  2741. [U SHAPED](if (/= (getvar "useri1") 0)(nl "" "/archp/stairu3")(nl "" "/archp/stairu"));
  2742. [ESCLATOR](nl "" "/archp/stairesc");
  2743. [ELEVATOR](nl "" "/archp/stairel");
  2744. **ROOF 3
  2745. [roof]$i=iroof $i=*
  2746. [GABLE](nl c:roofgab "/archp/roofgab") roofgab;
  2747. [SHED](nl c:roofshed "/archp/roofshed") roofshed;
  2748. [HIP](nl c:hip "/archp/hiproof") hip;
  2749. [1 side]
  2750. [1/2 GABL](nl c:roof "/archp/roof") roof;
  2751. [just_HIP](nl c:roofhip "/archp/roofhip") roofhip;
  2752.  
  2753. [3pt int](nl c:3ptroof "/archp/3ptroof") 3ptroof;
  2754. [ROOFJOIN](nl c:4ptroof "/archp/4ptroof") 4ptroof;
  2755.  
  2756. [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);
  2757. [SNAPnorm](setvar "snapang" 0)(princ) 'redraw;
  2758. [in-line]
  2759. [@3DSLOPE](nl roofpit "/archp/roofpit")(roofpit) \\\\\
  2760. [@2DSLOPE](nl roofpit1 "/archp/roofpit1")(roofpit1) \\\\\
  2761. [HATCH]$i=iroofh $i=*
  2762. **firepl 3
  2763. [fireplac]$i=ifirepl $i=*
  2764.  
  2765. [CUSTOM](nl "" "/archp/fireplac");
  2766. **SITE 3
  2767. [site pln](princ " No Icon Available ")(princ);
  2768. [LAYERMOD](set 'temp 'sitev)(nl "" "/cci/layermod");
  2769.  
  2770. [NORTH]$s=x $s=north
  2771. [ELEV MKR]insert (dd "/arch/eltarget") \  
  2772. [BARSCALE]$s=x $s=barscale
  2773. [--WORD--]$s=x $s=word
  2774. [LINETYPE]$s=x $s=linesite
  2775. [TREES]$S=x $s=treepln
  2776. [VEHICLE]$s=x $s=vehicles
  2777. [DRAINAGE]$s=x $s=drainage
  2778. [UTILITYS]$s=x $s=siteutil
  2779. [PARKING]$s=x $s=parking
  2780. [HANDICAP]$s=x $s=handicap
  2781. [COGO]$s=x $s=cogo
  2782. [SITELITE]$s=x $s=sitelight
  2783. [MISC]$S=X $s=sitemisc
  2784. **PAINT 3
  2785. [calculat]
  2786. [ sq.ft.]
  2787.  
  2788. [PAINT]paint;
  2789.  
  2790. [BRICKS]bricks;
  2791.  
  2792. [WL PAPER]paper;
  2793. **BARSCALE 3
  2794. [barscale](princ " No Icon Available ")(princ);
  2795.  
  2796. [1/16"=1'](lays symbolv) insert (dd "/arch/barsc16") scale !scale1;
  2797. [ 1/8"=1'](lays symbolv) insert (dd "/arch/barsc8") scale !scale1;
  2798. [ 1/4"=1'](lays symbolv) insert (dd "/arch/barsc4") scale !scale1;
  2799. [ 3/8"=1'](lays symbolv) insert (dd "/arch/barsc3-8") scale !scale1;
  2800. [ 1/2"=1'](lays symbolv) insert (dd "/arch/barsc2") scale !scale1;
  2801. [ 3/4"=1'](lays symbolv) insert (dd "/arch/barsc3-4") scale !scale1;
  2802. [   1"=1'](lays symbolv) insert (dd "/arch/barsc1") scale !scale1;
  2803. [1-1/2"=1](lays symbolv) insert (dd "/arch/barsc1-2") scale !scale1;
  2804. [   3"=1'](lays symbolv) insert (dd "/arch/barsc3") scale !scale1;
  2805. [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");
  2806. [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");
  2807. **NORTH 3
  2808. [north]$i=inorth $i=*
  2809. [arrows]$i=inorth $i=*
  2810.  
  2811. [NORTH](lays symbolv) insert (dd "/arch/north") scale !scale1;
  2812. [NORTH1](lays symbolv) insert (dd "/arch/north1") scale !scale1;
  2813. [NORTH2](lays symbolv) insert (dd "/arch/north2") scale !scale1;
  2814. [NORTH3](lays symbolv) insert (dd "/arch/north3") scale !scale1;
  2815. [NORTH4](lays symbolv) insert (dd "/arch/north4") scale !scale1;
  2816. [NORTH5](lays symbolv) insert (dd "/arch/north5") scale !scale1;
  2817. **WORD 3
  2818. [word](princ " No Icon Available ")(princ);
  2819.  
  2820. [???](princ " Enter text: ")(nl "" "/cci/instext")(princ) 1-8;;\
  2821. [SAN](nl "" "/cci/instext")(princ) 1-8;;SAN;;
  2822. [STM](nl "" "/cci/instext")(princ) 1-8;;STM;;
  2823. [G](nl "" "/cci/instext")(princ) 1-8;;G;;
  2824. [GAS](nl "" "/cci/instext")(princ) 1-8;;GAS;;
  2825. [W](nl "" "/cci/instext")(princ) 1-8;;W;;
  2826. [S](nl "" "/cci/instext")(princ) 1-8;;S;;
  2827. [T](nl "" "/cci/instext")(princ) 1-8;;T;;
  2828. [E](nl "" "/cci/instext")(princ) 1-8;;E;;
  2829. [C](nl "" "/cci/instext")(princ) 1-8;;C;;
  2830. [PL](nl "" "/cci/instext")(princ) 1-8;;PL;;
  2831. [R/W](nl "" "/cci/instext")(princ) 1-8;;R/W;;
  2832. [CL](nl "" "/cci/instext")(princ) 1-8;;CL;;
  2833. [EM](nl "" "/cci/instext")(princ) 1-8;;EM;;
  2834. **treepln 3
  2835. [Trees 1]$i=itreepln $i=*
  2836. [TREE1](lays sitev) insert (dd3 "/tree1") \\
  2837. [TREE2](lays sitev) insert (dd3 "/tree2") \\
  2838. [TREE3](lays sitev) insert (dd3 "/tree3") \\
  2839. [TREE4](lays sitev) insert (dd3 "/tree4") \\
  2840. [TREE5](lays sitev) insert (dd3 "/tree5") \\
  2841. [TREEA](lays sitev) insert (dd3 "/treea") \\
  2842. [TREEB](lays sitev) insert (dd3 "/treeb") \\
  2843. [TREEC](lays sitev) insert (dd3 "/treec") \\
  2844. [TREED](lays sitev) insert (dd3 "/treed") \\
  2845. [TREEE](lays sitev) insert (dd3 "/treee") \\
  2846. [TREEF](lays sitev) insert (dd3 "/treef") \\
  2847. [TREEG](lays sitev) insert (dd3 "/treeg") \\
  2848. [TREEH](lays sitev) insert (dd3 "/treeh") \\
  2849. [TREEI](lays sitev) insert (dd3 "/treei") \\
  2850. [TREEJ](lays sitev) insert (dd3 "/treej") \\
  2851. [ tree 2]$s=x $s=treepln1
  2852. **treepln1 3
  2853. [Trees 2]$i=itreepln1 $i=*
  2854. [TREEK](lays sitev) insert (dd3 "/treek") \\
  2855. [TREEL](lays sitev) insert (dd3 "/treel") \\
  2856. [TREEM](lays sitev) insert (dd3 "/treem") \\
  2857. [TREEN](lays sitev) insert (dd3 "/treen") \\
  2858. [TREEO](lays sitev) insert (dd3 "/treeo") \\
  2859. [TREEP](lays sitev) insert (dd3 "/treep") \\
  2860. [TREEQ](lays sitev) insert (dd3 "/treeq") \\
  2861. [TREER](lays sitev) insert (dd3 "/treer") \\
  2862. [TREES](lays sitev) insert (dd3 "/trees") \\
  2863. [TREET](lays sitev) insert (dd3 "/treet") \\
  2864. [TREEU](lays sitev) insert (dd3 "/treeu") \\
  2865. [TREEV](lays sitev) insert (dd3 "/treev") \\
  2866. [TREEY](lays sitev) insert (dd3 "/treey") \\
  2867. [TREEZ](lays sitev) insert (dd3 "/treez") \\
  2868. [ tree 1]$s=x $s=treepln
  2869. [ hedge]$s=x $s=treepln2
  2870. **treepln2 3
  2871. [hedge]$i=itreepln2 $i=*
  2872.  
  2873. [TREEW](lays sitev) insert (dd3 "/treew") \\
  2874. [TREEX](lays sitev) insert (dd3 "/treex") \\
  2875. [HEDGE](lays sitev) insert (dd3 "/hedge") \\
  2876. [ROCK](lays sitev) insert (dd3 "/rock") \\
  2877.  
  2878. [ tree 1]$s=x $s=treepln
  2879. [ tree 2]$s=x $s=treepln1
  2880. **HANDICAP 3
  2881. [handicap]$i=ihandicap $i=*
  2882.  
  2883. [SYMBOL](lays sitev) insert (dd "/arch/handisym") \\
  2884. [WH CHAIR](lays sitev) insert (dd "/arch/wchairp") scale !scaleb \
  2885. [CURB CUT](nl "" "/archp/handicrb");
  2886. **LINESITE 3
  2887. [linesite]$i=ilinesite $i=*
  2888.  
  2889. [OTHER](nl "" "/cci/symbol");
  2890.  
  2891. [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");
  2892. [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");
  2893. [STONE wl](lays sitev) insert (dd "/arch/stone") \\
  2894. [BOUNDARY]$s=x $s=line layer m boundary l boundary   line;
  2895. [SETBACK]$s=x $s=line layer m setback l dashed   line;
  2896. [STREAM]$s=x $s=line layer m stream l stream   line;
  2897. **SITEUTIL 3
  2898. [site]$i=isiteutil $i=*
  2899. [utilties]$i=isiteutil $i=*
  2900.  
  2901. [TEL POLE](lays sitev) insert (dd "/arch/stelp") scale !scale1;
  2902. [TEL POLb](lays sitev) insert (dd "/arch/stelpb") scale !scale1;
  2903. [LIT POLE](lays sitev) insert (dd "/arch/sltp") scale !scale1;
  2904. [POW POLE](lays sitev) insert (dd "/arch/spowp") scale !scale1;
  2905.  
  2906. [HYDRANT](lays sitev) insert (dd "/arch/shydrant") scale !scale1;
  2907. [FIRE CON](lays sitev) insert (dd "/arch/sfirecon") scale !scale1;
  2908. [GAS VALV](lays sitev) insert (dd "/arch/gasvalv") scale !scale1;
  2909. [H2O VALV](lays sitev) insert (dd "/arch/sh2ovalv") scale !scale1;
  2910. [TRNSFORM](lays sitev) insert (dd "/arch/strndfrm") scale !scale1;
  2911. [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");
  2912. [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");
  2913. **COGO 3
  2914. [Cogo](princ " No Icon Available ")(princ);
  2915.  
  2916. [BEARING](nl "" "/archp/bearing");
  2917. [DLINE](nl c:dl "/cci/dline") dl;
  2918. **SITEMISC 2
  2919. [miscsite]$i=isitemisc $i=*
  2920.  
  2921. [TRASH](lays sitev) insert (dd "/arch/strash") scale !scale1;
  2922. [BRIDGE](lays sitev) insert (dd "/arch/sbridge") \\
  2923. [IRON PIN](lays sitev) insert (dd "/arch/sip") \\
  2924. [CONC MON](lays sitev) insert (dd "/arch/sconcmon") \\
  2925. **VEHICLES 3
  2926. [vehicles]$i=ivehicles $i=*
  2927.  
  2928. [SM CAR](lays sitev) insert (dd3 "/vcssdp") scale !scaleb \
  2929. [MD CAR](lays sitev) insert (dd3 "/vcmsdp") scale !scaleb \
  2930. [STwagon](lays sitev) insert (dd3 "/vcmstp") scale !scaleb \
  2931. [LG CAR](lays sitev) insert (dd3 "/vclsdp") scale !scaleb \
  2932. [VAN](lays sitev) insert (dd3 "/vtvanp") scale !scaleb \
  2933. [SM TRUCK](lays sitev) insert (dd3 "/vt18bp") scale !scaleb \
  2934. [MD TRUCK](lays sitev) insert (dd3 "/vt24bp") scale !scaleb \
  2935. [LG TRUCK](lays sitev) insert (dd3 "/vt28bp") scale !scaleb \
  2936. [SCH BUS](lays sitev) insert (dd3 "/vbusschl") scale !scaleb \
  2937. [METROBUS](lays sitev) insert (dd3 "/vbusmtro") scale !scaleb \
  2938.  
  2939. [Trucks]$s=x $s=vehicles1
  2940. **VEHICLES1 3
  2941. [trucks]$i=vehicles1 $i=*
  2942.  
  2943. [TRAILR50](lays sitev) insert (dd3 "/vtt50p") scale !scaleb \
  2944. [TRAILR55](lays sitev) insert (dd3 "/vtt55p") scale !scaleb \
  2945. [TRAILR60](lays sitev) insert (dd3 "/vtt60p") scale !scaleb \
  2946. [TRAILR65](lays sitev) insert (dd3 "/vtt65p") scale !scaleb \
  2947. [MTRAIL50](lays sitev) insert (dd3 "/vttr50p") scale !scaleb \
  2948. [MTRAIL55](lays sitev) insert (dd3 "/vttr55p") scale !scaleb \
  2949. [MTRAIL60](lays sitev) insert (dd3 "/vttr60p") scale !scaleb \
  2950. [MTRAIL65](lays sitev) insert (dd3 "/vttr65p") scale !scaleb \
  2951.  
  2952. [Cars]$s=x $s=vehicles
  2953. **DRAINAGE 3
  2954. [drainage]$i=idrainage $i=*
  2955.  
  2956. [CATCHBSN](lays sitev) insert (dd "/arch/catchbsn") scale !scale1;
  2957. [MANHOLE](lays sitev) insert (dd "/arch/manhole") scale !scale1;
  2958. [CURBINLT](lays sitev) insert (dd "/arch/curbinlt") scale !scale1;
  2959. **SITELIGHT 3
  2960. [site]
  2961. [light]
  2962.  
  2963. [1](lays sitev);insert (dd "/arch2d/e-lpole1") scale !scaleb \
  2964. [2](lays sitev);insert (dd "/arch2d/e-lpole2") scale !scaleb \
  2965. [3](lays sitev);insert (dd "/arch2d/e-lpole3") scale !scaleb \
  2966. [4](lays sitev);insert (dd "/arch2d/e-lpole4") scale !scaleb \
  2967. **PARKING 3
  2968. [parking]$i=iparking $i=*
  2969. [  lot]$i=iparking $i=*
  2970. [symbols]$i=iparking $i=*
  2971.  
  2972. [AROW STR](lays sitev) insert (dd "/arch/arrows") \\
  2973. [ARROW 2W](lays sitev) insert (dd "/arch/arr2way") \\
  2974. [AROW C L](lays sitev) insert (dd "/arch/arrowl") \\
  2975. [AROW C R](lays sitev) insert (dd "/arch/arrowr") \\
  2976. [AROW S L](lays sitev) insert (dd "/arch/arrstrl") \\
  2977. [AROW S R](lays sitev) insert (dd "/arch/arrstrr") \\
  2978. [HANDICAP](lays sitev) insert (dd "/arch/handisym") \\
  2979. [NO PARK](lays sitev) insert (dd "/arch/snopark") scale !scale1;
  2980. [NO ENTER](lays sitev) insert (dd "/arch/snoenter") \\;
  2981. [EXIT](lays sitev) insert (dd "/arch/sexit") \\;
  2982.  
  2983. [LAYOUT]$s=x $s=parking1
  2984. **PARKING1 3
  2985. [layout]$i=iparking1 $i=*
  2986. [CUSTOM](nl parking "/archp/parking")(parking);
  2987.  
  2988. [open]
  2989. [10 ROW](lays sitev) insert (dd "/arch/parkg10") scale !scaleb \
  2990. [15 ROW](lays sitev) insert (dd "/arch/parkg15") scale !scaleb \
  2991. [20 ROW](lays sitev) insert (dd "/arch/parkg20") scale !scaleb \
  2992. [single]
  2993. [10 ROW](lays sitev) insert (dd "/arch/parks10") scale !scaleb \
  2994. [15 ROW](lays sitev) insert (dd "/arch/parks15") scale !scaleb \
  2995. [20 ROW](lays sitev) insert (dd "/arch/parks20") scale !scaleb \
  2996. [double]
  2997. [10 ROW](lays sitev) insert (dd "/arch/parkd10") scale !scaleb \
  2998. [15 ROW](lays sitev) insert (dd "/arch/parkd15") scale !scaleb \
  2999. [20 ROW](lays sitev) insert (dd "/arch/parkd20") scale !scaleb \
  3000.  
  3001. [SYMBOLS]$s=x $s=parking
  3002. **APPL 3
  3003. [applianc]$i=iappl $i=*
  3004.  
  3005. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3006.  
  3007. [RANGE](lays fixtv) insert (dd3 "/range") scale !scaleb \
  3008. [OVEN](lays fixtv) insert (dd3 "/oven") scale !scaleb \
  3009. [REF1](lays fixtv) insert (dd3 "/ref1") scale !scaleb \
  3010. [REF2](lays fixtv) insert (dd3 "/ref2") scale !scaleb \
  3011. [REF3](lays fixtv) insert (dd3 "/ref3") scale !scaleb \
  3012. [DISHWASH](lays fixtv) insert (dd3 "/dishwash") scale !scaleb \
  3013. [WASH](lays fixtv) insert (dd3 "/washer") scale !scaleb \
  3014. [DRYER](lays fixtv) insert (dd3 "/dryer") scale !scaleb \
  3015. [MICRO](lays fixtv) insert (dd3 "/micro") scale !scaleb \
  3016. [TOASTER](lays fixtv) insert (dd3 "/toaster") scale !scaleb \
  3017. [FAN]^C^Cinsert (dd "/arch2d/upthe") scale !scale1;
  3018. [CABINETS](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "i=ikitcabm")(menucmd "i=*"))(progn (menucmd "i=ikitcab")(menucmd "i=*")))(princ);
  3019. **FURN 2
  3020. [furnitur](princ " No Icon Available ")(princ);
  3021.  
  3022. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3023.  
  3024. [CHAIRS]$s=x $s=chair
  3025. [TABLES]$s=x $s=table
  3026. [DESK]$s=x $s=desk
  3027. [SOFA]$s=x $s=sofa
  3028. [BEDS]$s=x $s=bed
  3029. [OFFICEeq]$s=x $s=office
  3030. [FILECAB](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=filecabm"))(progn (menucmd "s=x")(menucmd "s=filecab")))(princ);
  3031. [BOOKCASE]$s=x $s=bookcase
  3032. [LAMP]$s=x $s=lamp
  3033. [PLANTS]$s=x $s=plants
  3034. [3D MISC]$s=x $s=3dmisc
  3035. [MISC]$s=x $s=furnmisc
  3036. **CHAIR 3
  3037. [chairs]$i=ichair $i=*
  3038.  
  3039. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3040.  
  3041. [CHAIR 1](lays furnv) insert (dd3 "/chair1") scale !scaleb \
  3042. [CHAIR 2](lays furnv) insert (dd3 "/chair2") scale !scaleb \
  3043. [CHAIR 3](lays furnv) insert (dd3 "/chair3") scale !scaleb \
  3044. [CHAIR 4](lays furnv) insert (dd3 "/chair4") scale !scaleb \
  3045. [CHAIR 5](lays furnv) insert (dd3 "/chair5") scale !scaleb \
  3046. [CHAIR 6](lays furnv) insert (dd3 "/chair6") scale !scaleb \
  3047. [CHAIR 7](lays furnv) insert (dd3 "/chair7") scale !scaleb \
  3048. [CHAIR 8](lays furnv) insert (dd3 "/chair8") scale !scaleb \
  3049. [CHAIR 9](lays furnv) insert (dd3 "/chair9") scale !scaleb \
  3050. **CHAIRINS 3
  3051. [chairs]
  3052.  
  3053. [CHAIR1]chair1;
  3054. [CHAIR2]chair2;
  3055. [CHAIR3]chair3;
  3056. [CHAIR4]chair4;
  3057. [CHAIR5]chair5;
  3058. [CHAIR6]chair6;
  3059. [CHAIR7]chair7;
  3060. [CHAIR8]chair8;
  3061. [CHAIR9]chair9;
  3062. **TABLE 3
  3063. [tables]$i=itabler $i=*
  3064.  
  3065. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3066.  
  3067. [table &]$i=itabler $i=*
  3068. [CHAIRS](nl "" "/archp/table");
  3069.  
  3070. [RECTANG](lays furnv) (nl "" "/archp/tabler");
  3071. [TABLE3](lays furnv) insert (dd3 "/table3") scale !scaleb \
  3072. [COFFEE](lays furnv) insert (dd3 "/tablcoff") scale !scaleb \
  3073. [COMP](lays furnv) insert (dd3 "/tablcomp") scale !scaleb \
  3074. [BOAT 8](lays furnv) insert (dd3 "/fconf8") scale !scaleb \
  3075. [BOAT 10](lays furnv) insert (dd3 "/fconf10") scale !scaleb \
  3076.  
  3077. [table]$i=itablec $i=*
  3078. [ROUND](lays furnv) (nl "" "/archp/tablec");
  3079. **DESK 3
  3080. [desks]$i=idesk $i=*
  3081.  
  3082. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3083.  
  3084. [DESK 1](lays furnv) insert (dd3 "/desk1") scale !scaleb \
  3085. [DESK 2](lays furnv) insert (dd3 "/desk2") scale !scaleb \
  3086. [DESK 3](lays furnv) insert (dd3 "/desk3") scale !scaleb \
  3087. [DESK 4](lays furnv) insert (dd3 "/desk4") scale !scaleb \
  3088. **SOFA 3
  3089. [sofa]$i=isofa $i=*
  3090.  
  3091. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3092.  
  3093. [SOFA1](lays furnv) insert (dd3 "/sofa1") scale !scaleb \
  3094. [SOFA2](lays furnv) insert (dd3 "/sofa2") scale !scaleb \
  3095. [SOFA3](lays furnv) insert (dd3 "/sofa3") scale !scaleb \
  3096. [SOFA4](lays furnv) insert (dd3 "/sofa4") scale !scaleb \
  3097.  
  3098. [modular]
  3099. [END 1](lays furnv) insert (dd3 "/sofa5") scale !scaleb \
  3100. [MID 1](lays furnv) insert (dd3 "/sofa6") scale !scaleb \
  3101. [END 2](lays furnv) insert (dd3 "/sofa7") scale !scaleb \
  3102. [MID 2](lays furnv) insert (dd3 "/sofa8") scale !scaleb \
  3103. **BED 3
  3104. [beds]$i=ibed $i=*
  3105.  
  3106. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3107.  
  3108. [TWIN](lays furnv) insert (dd3 "/bedtwin") scale !scaleb \
  3109. [DOUBLE](lays furnv) insert (dd3 "/beddoubl") scale !scaleb \
  3110. [QUEEN](lays furnv) insert (dd3 "/bedqueen") scale !scaleb \
  3111. [KING](lays furnv) insert (dd3 "/bedking") scale !scaleb \
  3112.  
  3113. [HOSPITAL](lays furnv) insert (dd3 "/bedhosp") scale !scaleb \
  3114. [BUNK BED](lays furnv) insert (dd3 "/bedbunk") scale !scaleb \
  3115. [CRIB](lays furnv) insert (dd3 "/bedcrib") scale !scaleb \
  3116. [3/4](lays furnv) insert (dd3 "/bed3-4") scale !scaleb \
  3117. **OFFICE 3
  3118. [office]$i=ioffice $i=*
  3119.  
  3120. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3121.  
  3122. [PHONE](lays furnv) insert (dd3 "/fnphone") scale !scaleb \
  3123. [FNCOMP](lays furnv) insert (dd3 "/fncomp") scale !scaleb \
  3124. [TYPEWRIT](lays furnv) insert (dd3 "/typewrit") scale !scaleb \
  3125. [COPIER1](lays furnv) insert (dd3 "/copier1") scale !scaleb \
  3126. [COPIER2](lays furnv) insert (dd3 "/copier2") scale !scaleb \
  3127. [COPIER3](lays furnv) insert (dd3 "/copier3") scale !scaleb \
  3128. **FILECAB 3
  3129. [file cab]$i=ifilecab $i=*
  3130.  
  3131. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3132.  
  3133. [15x22](lays furnv) insert (dd3 "/fc15x22a") scale !scaleb \
  3134. [15x27](lays furnv) $s=x $s=fc15x27 $i=ifc15x27 $i=*
  3135. [18x27](lays furnv) $s=x $s=fc18x27 $i=ifc18x27 $i=*
  3136. [30x18](lays furnv) $s=x $s=fc30x18 $i=ifc30x18 $i=*
  3137. [36x18](lays furnv) $s=x $s=fc36x18 $i=ifc36x18 $i=*
  3138. [42x18](lays furnv) $s=x $s=fc42x18 $i=ifc42x18 $i=*
  3139. **FILECABM 3
  3140. [file cab]$i=ifilecabm $i=*
  3141.  
  3142. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3143.  
  3144. [375x550](lays furnv) insert (dd3 "/fc15x22a") scale !scaleb \
  3145. [375x675](lays furnv) $s=x $s=fc15x27 $i=ifc15x27 $i=*
  3146. [450x675](lays furnv) $s=x $s=fc18x27 $i=ifc18x27 $i=*
  3147. [750x450](lays furnv) $s=x $s=fc30x18m $i=ifc30x18m $i=*
  3148. [900x450](lays furnv) $s=x $s=fc36x18m $i=ifc36x18m $i=*
  3149. [1.05x450](lays furnv) $s=x $s=fc42x18m $i=ifc42x18m $i=*
  3150. **fc15x27 3
  3151. [letter]$i=ifc15x27 $i=*
  3152.  
  3153. [2 drawer]insert (dd3 "/fc15x27a") scale !scaleb \
  3154. [4 drawer]insert (dd3 "/fc15x27b") scale !scaleb \
  3155. [5 drawer]insert (dd3 "/fc15x27c") scale !scaleb \
  3156. **fc18x27 3
  3157. [legal]$i=ifc18x27 $i=*
  3158.  
  3159. [2 drawer]insert (dd3 "/fc18x27a") scale !scaleb \
  3160. [4 drawer]insert (dd3 "/fc18x27b") scale !scaleb \
  3161. [5 drawer]insert (dd3 "/fc18x27c") scale !scaleb \
  3162. **fc30x18 3
  3163. [30laterl]$i=fc30x18 $i=*
  3164.  
  3165. [2 drawer]insert (dd3 "/fc30x18a") scale !scaleb \
  3166. [3 drawer]insert (dd3 "/fc30x18b") scale !scaleb \
  3167. [4 drawer]insert (dd3 "/fc30x18c") scale !scaleb \
  3168. [5 drawer]insert (dd3 "/fc30x18d") scale !scaleb \
  3169. **fc30x18m 3
  3170. [75laterl]$i=fc30x18 $i=*
  3171.  
  3172. [2 drawer]insert (dd3 "/fc30x18a") scale !scaleb \
  3173. [3 drawer]insert (dd3 "/fc30x18b") scale !scaleb \
  3174. [4 drawer]insert (dd3 "/fc30x18c") scale !scaleb \
  3175. [5 drawer]insert (dd3 "/fc30x18d") scale !scaleb \
  3176. **fc36x18 3
  3177. [36laterl]$i=ifc36x18 $i=*
  3178.  
  3179. [2 drawer]insert (dd3 "/fc36x18a") scale !scaleb \
  3180. [3 drawer]insert (dd3 "/fc36x18b") scale !scaleb \
  3181. [4 drawer]insert (dd3 "/fc36x18c") scale !scaleb \
  3182. [5 drawer]insert (dd3 "/fc36x18d") scale !scaleb \
  3183. **fc36x18m 3
  3184. [.9laterl]$i=ifc36x18 $i=*
  3185.  
  3186. [2 drawer]insert (dd3 "/fc36x18a") scale !scaleb \
  3187. [3 drawer]insert (dd3 "/fc36x18b") scale !scaleb \
  3188. [4 drawer]insert (dd3 "/fc36x18c") scale !scaleb \
  3189. [5 drawer]insert (dd3 "/fc36x18d") scale !scaleb \
  3190.  
  3191. **fc42x18 3
  3192. [42laterl]$i=ifc42x18 $i=*
  3193.  
  3194. [2 drawer]insert (dd3 "/fc42x18a") scale !scaleb \
  3195. [3 drawer]insert (dd3 "/fc42x18b") scale !scaleb \
  3196. [4 drawer]insert (dd3 "/fc42x18c") scale !scaleb \
  3197. [5 drawer]insert (dd3 "/fc42x18d") scale !scaleb \
  3198. **fc42x18m 3
  3199. [1.05latl]$i=ifc42x18 $i=*
  3200.  
  3201. [2 drawer]insert (dd3 "/fc42x18a") scale !scaleb \
  3202. [3 drawer]insert (dd3 "/fc42x18b") scale !scaleb \
  3203. [4 drawer]insert (dd3 "/fc42x18c") scale !scaleb \
  3204. [5 drawer]insert (dd3 "/fc42x18d") scale !scaleb \
  3205. **bookcase 3
  3206. [bookcase]$i=ibookcase $i=*
  3207.  
  3208. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3209.  
  3210. [CASE1](lays furnv) insert (dd3 "/fncase1") scale !scaleb \
  3211. [CASE2](lays furnv) insert (dd3 "/fncase2") scale !scaleb \
  3212. [CASE3](lays furnv) insert (dd3 "/fncase3") scale !scaleb \
  3213. [CASE4](lays furnv) insert (dd3 "/fncase4") scale !scaleb \
  3214. **lamp 3
  3215. [lamps]$i=ilamps $i=*
  3216.  
  3217. [LAYERMOD](set 'temp 'FURNV)(nl "" "/cci/layermod");
  3218.  
  3219. [D LAMP1](lays furnv) insert (dd3 "/fndlmp1") scale !scaleb \
  3220. [F LAMP1](lays furnv) insert (dd3 "/fnflmp1") scale !scaleb \
  3221. [F LAMP2](lays furnv) insert (dd3 "/fnflmp2") scale !scaleb \
  3222. [T LAMP1](lays furnv) insert (dd3 "/fntlmp1") scale !scaleb \
  3223. [T LAMP2](lays furnv) insert (dd3 "/fntlmp2") scale !scaleb \
  3224. [T LAMP3](lays furnv) insert (dd3 "/fntlmp3") scale !scaleb \
  3225. **plants 3
  3226. [plants]$i=iplants $i=*
  3227.  
  3228. [PLANT1](lays furnv) insert (dd3 "/plant1") scale !scaleb \
  3229. [PLANT2](lays furnv) insert (dd3 "/plant2") scale !scaleb \
  3230. [PLANT3](lays furnv) insert (dd3 "/plant3") scale !scaleb \
  3231. **3dmisc 3
  3232. [3d misc]$i=i3dmisc $i=*
  3233.  
  3234. [GOBLET]insert (dd "/arch3d/goblet") scale !scaleb \
  3235. [PLATE]insert (dd "/arch3d/plate") scale !scaleb \
  3236. [SAUCER]insert (dd "/arch3d/saucer") scale !scaleb \
  3237. [BOOK1]insert (dd "/arch3d/book1") scale !scaleb \
  3238. [BOOK2]insert (dd "/arch3d/book2") scale !scaleb \
  3239. [BOOK3]insert (dd "/arch3d/book3") scale !scaleb \
  3240. [PICTURE1]insert (dd "/arch3d/picture1") scale !scaleb \
  3241. [PICTURE2]insert (dd "/arch3d/picture2") scale !scaleb \
  3242. [PICTURE3]insert (dd "/arch3d/picture3") scale !scaleb \
  3243. [MIRROR]insert (dd "/arch3d/mirror") scale !scaleb \
  3244. [VASE]insert (dd "/arch3d/vase") scale !scaleb \
  3245. **furnmisc 3
  3246. [furnmisc]$i=ifurnmisc $i=*
  3247.  
  3248. [PIANO](lays furnv) insert (dd3 "/piano") scale !scaleb \
  3249. [DRESSER1](lays furnv) insert (dd3 "/dresser1") scale !scaleb \
  3250. [DRESSER2](lays furnv) insert (dd3 "/dresser2") scale !scaleb \
  3251. [TVCONSOL](lays furnv) insert (dd3 "/tvconsol") scale !scaleb \
  3252. [TV-PORT](lays furnv) insert (dd3 "/tv-port") scale !scaleb \
  3253. [STEREO](lays furnv) insert (dd3 "/stereo") scale !scaleb \
  3254. [STSPKR](lays furnv) insert (dd3 "/stspkr") scale !scaleb \
  3255. **PLUMB 3
  3256. [ plumb](princ " No Icon Available ")(princ);
  3257. [fixtures](princ " No Icon Available ")(princ);
  3258.  
  3259. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3260.  
  3261. [TOILETS]$s=x $s=toilet
  3262. [URINALS]$s=x $s=urinal
  3263. [LAVATORY](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=lavm"))(progn (menucmd "s=x")(menucmd "s=lav")))(princ);
  3264. [BATHTUBS](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=tubm"))(progn (menucmd "s=x")(menucmd "s=tub")))(princ);
  3265. [SHOWER]$s=x $s=shower
  3266. [SINKS](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=sinkm"))(progn (menucmd "s=x")(menucmd "s=sink")))(princ);
  3267. [MISC]$S=x $s=plumbmisc
  3268. **PLUMBMISC 3
  3269. [misc]$i=iplumbmisc $i=*
  3270. [plumb]$i=iplumbmisc $i=*
  3271.  
  3272. [FLDRAIN](lays fixtv) insert (dd "/arch/fldrain") scale !scale1;
  3273. [FL C OUT](lays fixtv) insert (dd "/arch/flcleano") scale !scale1;
  3274. [SHWRHEAD](lays fixtv) insert (dd3 "/shwrhead") scale !scale1;
  3275. [HWHEATER](lays fixtv) insert (dd3 "/hwheater") scale !scale1;
  3276. [VENT]^C^Cinsert (dd "/arch2d/upthe") scale !scale1;
  3277. **TOILET 3
  3278. [toilets]$i=itoilet $i=*
  3279.  
  3280. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3281.  
  3282. [TOILET 1](lays fixtv) insert (dd3 "/toilet1") scale !scaleb \
  3283. [TOILET 2](lays fixtv) insert (dd3 "/toilet2") scale !scaleb \
  3284. [TOILET 3](lays fixtv) insert (dd3 "/toilet3") scale !scaleb \
  3285. [TOILET 4](lays fixtv) insert (dd3 "/toilet4") scale !scaleb \
  3286. [TOILET 5](lays fixtv) insert (dd3 "/toilet5") scale !scaleb \
  3287. [TOILET 6](lays fixtv) insert (dd3 "/toilet6") scale !scaleb \
  3288.  
  3289. [MULTSTAL](nl "" "/archp/toilstal");
  3290. **urinal 3
  3291. [urinal]$i=iurinal $i=*
  3292.  
  3293. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3294.  
  3295. [URINAL1](lays fixtv) insert (dd3 "/urinal1") scale !scaleb \
  3296. [URINAL2](lays fixtv) insert (dd3 "/urinal2") scale !scaleb \
  3297.  
  3298. [MULTURIN](nl "" "/archp/urinstal");
  3299. **LAV 3
  3300. [lavatory]$i=ilav $i=*
  3301. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3302.  
  3303. [wall]
  3304. [15 X 19](lays fixtv) insert (dd3 "/w-lav") scale !scaleb \
  3305. [15 X 19](lays fixtv) insert (dd3 "/w-lav1") scale !scaleb \
  3306. [18 X 22](lays fixtv) insert (dd3 "/w-lav2") scale !scaleb \
  3307. [18 X 20](lays fixtv) insert (dd3 "/w-sink") scale !scaleb \
  3308. [15 X 15](lays fixtv) insert (dd3 "/lav4") scale !scaleb \
  3309. [19 X 21](lays fixtv) insert (dd3 "/c-lav") scale !scaleb \
  3310. [bath rm]
  3311. [19 X 16](lays fixtv) insert (dd3 "/lav") scale !scaleb \
  3312. [18 DIA ](lays fixtv) insert (dd3 "/lav1") scale !scaleb \
  3313. [18 X 20](lays fixtv) insert (dd3 "/lav2") scale !scaleb \
  3314. [17 X 21](lays fixtv) insert (dd3 "/lav3") scale !scaleb \
  3315. [VANITY](lays fixty) insert (dd3 "/vanity") scale !scaleb \
  3316. [MULT LAV](nl "" "/archp/lavmulti");
  3317. **LAVM 3
  3318. [lavatory]$i=ilav $i=*
  3319. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3320.  
  3321. [wall]
  3322. [.38X.48](lays fixtv) insert (dd3 "/w-lav") scale !scaleb \
  3323. [.38X.48](lays fixtv) insert (dd3 "/w-lav1") scale !scaleb \
  3324. [.45X.55](lays fixtv) insert (dd3 "/w-lav2") scale !scaleb \
  3325. [.45X.50](lays fixtv) insert (dd3 "/w-sink") scale !scaleb \
  3326. [.38X.38](lays fixtv) insert (dd3 "/lav4") scale !scaleb \
  3327. [.48X.53](lays fixtv) insert (dd3 "/c-lav") scale !scaleb \
  3328. [bath rm]
  3329. [.48X.40](lays fixtv) insert (dd3 "/lav") scale !scaleb \
  3330. [.45 DIA](lays fixtv) insert (dd3 "/lav1") scale !scaleb \
  3331. [.45X.50](lays fixtv) insert (dd3 "/lav2") scale !scaleb \
  3332. [.43X.53](lays fixtv) insert (dd3 "/lav3") scale !scaleb \
  3333. [VANITY](lays fixty) insert (dd3 "/vanity") scale !scaleb \
  3334. [MULT LAV](nl "" "/archp/lavmulti");
  3335. **TUB 3
  3336. [tubs]$i=itub $i=*
  3337.  
  3338. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3339.  
  3340. [30 X 42](lays fixtv) insert (dd3 "/tub3042") scale !scaleb \
  3341. [30 X 48](lays fixtv) insert (dd3 "/tub3048") scale !scaleb \
  3342. [30 X 54](lays fixtv) insert (dd3 "/tub3054") scale !scaleb \
  3343. [30 X 60](lays fixtv) insert (dd3 "/tub3060") scale !scaleb \
  3344. [32 X 54](lays fixtv) insert (dd3 "/tub3254") scale !scaleb \
  3345. [32 X 60](lays fixtv) insert (dd3 "/tub3260") scale !scaleb \
  3346. [32 X 66](lays fixtv) insert (dd3 "/tub3266") scale !scaleb \
  3347. [TUB2](lays fixtv) insert (dd3 "/tub2") scale !scaleb \
  3348. [TUB3](LAys fixtv) insert (dd3 "/tub3") scale !scaleb \
  3349. [SHWRHEAD](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \
  3350. [TWLRACK](lays fixtv) insert (dd3 "/twlrack") scale !scaleb \
  3351. [CURTAIN](lays fixtv) insert (dd "/arch3d/tubcurt") scale !scaleb \
  3352. [DOOR](lays fixtv) insert (dd "/arch3d/tubdoor") scale !scaleb \
  3353. **TUBM 3
  3354. [tubs]$i=itub $i=*
  3355.  
  3356. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3357.  
  3358. [.76X1.07](lays fixtv) insert (dd3 "/tub3042") scale !scaleb \
  3359. [.76X1.20](lays fixtv) insert (dd3 "/tub3048") scale !scaleb \
  3360. [.76X1.37](lays fixtv) insert (dd3 "/tub3054") scale !scaleb \
  3361. [.76X1.52](lays fixtv) insert (dd3 "/tub3060") scale !scaleb \
  3362. [.81X1.37](lays fixtv) insert (dd3 "/tub3254") scale !scaleb \
  3363. [.81X1.67](lays fixtv) insert (dd3 "/tub3260") scale !scaleb \
  3364. [TUB2](lays fixtv) insert (dd3 "/tub2") scale !scaleb \
  3365. [TUB3](LAys fixtv) insert (dd3 "/tub3") scale !scaleb \
  3366. [SHWRHEAD](lays fixtv) insert (dd3 "/shwrhead") scale !scaleb \
  3367. [TWLRACK](lays fixtv) insert (dd3 "/twlrack") scale !scaleb \
  3368. [CURTAIN](lays fixtv) insert (dd "/arch3d/tubcurt") scale !scaleb \
  3369. [DOOR](lays fixtv) insert (dd "/arch3d/tubdoor") scale !scaleb \
  3370. **SHOWER 3
  3371. [shower]$i=ishower $i=*
  3372.  
  3373. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3374.  
  3375. [RECTANG](lays fixtv);(nl symins "/cci/symins")(symins "/arch2d/shower");
  3376. [STALL](lays fixtv) insert (dd3 "/shwrstal") scale !scaleb \\
  3377.  
  3378. [TWLRACK](lays fixtv) insert (dd "/arch3d/twlrack") scale !scaleb .xy \\
  3379. [SHWRHEAD](lays fixtv) insert (dd3 "/shwrhead") scale !scale1;
  3380. **SINK 3
  3381. [sinks]$i=isink $i=*
  3382. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3383.  
  3384. [triple]
  3385. [44 X 22](lays fixtv) insert (dd3 "/sinktrpl") scale !scaleb \
  3386. [double]
  3387. [33 X 22](lays fixtv) insert (dd3 "/sinkdbl1") scale !scaleb \
  3388. [single]
  3389. [24 X 21](lays fixtv) insert (dd3 "/sink2421") scale !scaleb \
  3390. [u-sink]
  3391. [18 X 24](lays fixtv) insert (dd3 "/u-sink") scale !scaleb \
  3392. [service]
  3393. [20 X 24](lays fixtv) insert (dd3 "/s-sink") scale !scaleb \
  3394. [scr-sink]
  3395. [22 X 30](lays fixtv) insert (dd3 "/scr-sink") scale !scaleb \
  3396. [clinic]
  3397. [20 X 28](lays fixtv) insert (dd3 "/clinic2") scale !scaleb \
  3398. **SINKM 3
  3399. [sinks]$i=isink $i=*
  3400. [LAYERMOD](set 'temp 'FIXTV)(nl "" "/cci/layermod");
  3401.  
  3402. [triple]
  3403. [1.12X.56](lays fixtv) insert (dd3 "/sinktrpl") scale !scaleb \
  3404. [double] 
  3405. [.84X.55](lays fixtv) insert (dd3 "/sinkdbl1") scale !scaleb \
  3406. [single] 
  3407. [.61X.53](lays fixtv) insert (dd3 "/sink2421") scale !scaleb \
  3408. [u-sink] 
  3409. [.45X.60](lays fixtv) insert (dd3 "/u-sink") scale !scaleb \
  3410. [service]
  3411. [.50X.60](lays fixtv) insert (dd3 "/s-sink") scale !scaleb \
  3412. [scr-sink]
  3413. [.55X.76](lays fixtv) insert (dd3 "/scr-sink") scale !scaleb \
  3414. [clinic] 
  3415. [.50X.71](lays fixtv) insert (dd3 "/clinic2") scale !scaleb \
  3416. **CALL 2
  3417. [callouts](princ " No Icon Available ")(princ);
  3418. [ROOMCALL]$s=x $s=callout
  3419. [ROOMAREA]$s=x $s=roomarea
  3420. [INTERIOR]$s=x $s=interior
  3421. [DETAIL]$s=x $s=detail
  3422. [SECTION]$s=x $s=sectionsym
  3423. [ARROWS]$s=x $s=arrows
  3424. [WINDOW](lays windnov) insert (dd "/arch/windnum") scale !scale1;
  3425. [DOOR](lays doornov) insert (dd "/arch/doornum") scale !scale1;
  3426. [EQUIPMNT](lays symbolv) insert (dd "/arch/equip") scale !scale1;
  3427. [BREAKS]$s=x $s=breaks $i=ibreaks $i=*
  3428. [REVISON](lays symbolv) insert (dd "/arch/revno") scale !scale1;
  3429. [REVISN1](lays symbolv) insert (dd "/arch/revno1") scale !scale1;
  3430. [CONSTR](lays symbolv) insert (dd "/arch/const") scale !scale1;
  3431. [DEMONOTE](lays symbolv) insert (dd "/arch/demo") scale !scale1;
  3432. [LMWINDNO](set 'temp 'WINDNOV)(nl "" "/cci/layermod");
  3433. [LMDOORNO](set 'temp 'DOORNOV)(nl "" "/cci/layermod");
  3434. [LMSYMBOL](set 'temp 'symbolv)(nl "" "/cci/layermod");
  3435. **CALLOUT 3
  3436. [callouts](princ " No Icon Available ")(princ);
  3437. [ROOMAREA]$s=x $s=roomarea
  3438.  
  3439. [CASEWORK](nl "" "/archp/casecall");
  3440. [SEATING ](nl "" "/archp/seatcall");
  3441. [FURNITUR](nl "" "/archp/furncall");
  3442.  
  3443. [ROOM SML](lays symbolv) insert (dd "/arch/rmno1") scale !scale1;
  3444. [ROOM BIG](lays symbolv) insert (dd "/arch/rmno1") scale (* scale1 1.333333);
  3445. [multtext]
  3446. [ROOM SML](lays symbolv) insert (dd "/arch/rmno2") scale !scale1;
  3447. [ROOM BIG](lays symbolv) insert (dd "/arch/rmno2") scale (* scale1 1.333333);
  3448. **ROOMAREA 3
  3449. [roomarea](princ " No Icon Available ")(princ);
  3450.  
  3451. [PlaceTAG](nl "" "/archp/roomarea");
  3452.  
  3453. [Pickinfo](nl c:rminfo "/archp/roomplus");rminfo
  3454. [By Dept ](nl c:rminfo "/archp/roomplus");seldept
  3455. [By Use  ](nl c:rminfo "/archp/roomplus");seluse
  3456. [Area fix](nl c:rminfo "/archp/roomplus");raupdate
  3457. [DeptArea](nl c:rminfo "/archp/roomplus");deptarea
  3458. [Link fix](nl c:rminfo "/archp/roomplus");linkfix
  3459.  
  3460. [HATCH RM]hatch \\\p;
  3461.  
  3462. [--------]
  3463. [noHandle](princ " Use next item for Areas without handles ")(princ);
  3464. [NEW AREA](nl "" "/archp/areanew");
  3465. **INTERIOR 3
  3466. [Interior](princ " No Icon Available ")(princ);
  3467. [symbols](princ " No Icon Available ")(princ);
  3468.  
  3469. [ELEVTION](lays symbolv) insert (dd "/arch/intelev") scale !scale1 \ \\(setq pt1 (getvar "lastpoint"))(nl "" "/archp/intelev");
  3470. [ELV FILL](setq pt1 nil)(nl "" "/archp/intelev");
  3471.  
  3472. [--------]
  3473. [*finish*]
  3474. [ WALL](lays symbolv) insert (dd "/arch/finwall") scale !scale1;
  3475. [ CEILING](lays symbolv) insert (dd "/arch/finceil") scale !scale1;
  3476. [ FLOOR](lays symbolv) insert (dd "/arch/finfloor") scale !scale1;
  3477. [ BASE](lays symbolv) insert (dd "/arch/finbase") scale !scale1;
  3478. [ COMBO](lays symbolv) insert (dd "/arch/fincall") scale !scale1;
  3479. **BREAKS 3
  3480. [BREAKS]$i=ibreaks $i=*
  3481.  
  3482. [LINEend]insert (dd "/cci/break") scale !scale1 \\
  3483. [LINEbrk1](nl "" "/cci/lbreak");
  3484. [LINEbrk2](nl insertbk "/cci/insertbk")(insertbk "/cci/break2" 12 "C")(princ);
  3485. [DBLbrk1](nl "" "/cci/pbreak");
  3486. [DBLbrk2](nl "" "/cci/pbreak2");
  3487. [DBLbrk3](nl "" "/cci/rectline");
  3488. [DBLbrk4](nl "" "/cci/rndline");
  3489. **DETAIL 3
  3490. [detail]$i=idetail $i=*
  3491. [symbols]$i=idetail $i=*
  3492.  
  3493. [1 TEXTLN](lays symbolv) insert (dd "/arch/detail1") scale !scale1;
  3494. [2 TEXTLN](lays symbolv) insert (dd "/arch/detail2") scale !scale1;
  3495. [3 TEXTLN](lays symbolv) insert (dd "/arch/detail3") scale !scale1;
  3496.  
  3497. [LEADER](nl "" "/archp/ballead");ballead;
  3498. [TITLE](pre)(lays symbolv) insert (dd "/arch/detailt") scale !scale1 rotate 0 \\\\\line (polar (getvar "lastpoint")(dtr 0)(* scale1 (if (and metric (not (equal scaleb 40. 0.001)))0.3 24.0))) \;copy l  (strcat "0,-" (rtos (* scale (if (and metric (not (equal scaleb 40. 0.001)))0.001 0.03125)) 2 6))  (post)(princ);
  3499. **SECTIONSYM 3
  3500. [section]$i=isection $i=*
  3501. [symbols]$i=isection $i=*
  3502.  
  3503. [1 TEXTLN](lays symbolv) insert (dd "/arch/detail1") scale !scale1 \\\insert (dd "/arch/detail-a") @0,0 !scale1  \
  3504. [2 TEXTLN](lays symbolv) insert (dd "/arch/detail2") scale !scale1 \\\\insert (dd "/arch/detail-a") @0,0 !scale1  \
  3505. [3 TEXTLN](lays symbolv) insert (dd "/arch/detail3") scale !scale1 \\\\\insert (dd "/arch/detail-a") @0,0 !scale1  \
  3506. **arrows 3
  3507. [arrows]$i=iarrows $i=*
  3508.  
  3509. [ARROW]insert (dd "/arch/arrow") scale !scale1;
  3510. [ARROW1]insert (dd "/arch/arrow1") scale !scale1;
  3511. [ARROW2]insert (dd "/arch/arrow2") scale !scale1;
  3512. [ARROW3]insert (dd "/arch/arrow3") scale !scale1;
  3513. [ARROW4]insert (dd "/arch/arrow4") scale !scale1;
  3514. [ARROW7]insert (dd "/arch/arrow7") scale !scale1;
  3515. [ARROW5]insert (dd "/arch/arrow5") scale !scale1;
  3516. [ARROW6]insert (dd "/arch/arrow6") scale !scale1;
  3517. **consdet 3
  3518. [details]$i=iconsdet $i=*
  3519.  
  3520. [WOOD]insert (dd "/archd/wooddet") scale !scaleb \;
  3521. [STEEL]insert (dd "/archd/steeldet") scale !scaleb \;
  3522. [MASONRY]insert (dd "/archd/masdet") scale !scaleb \;
  3523. [DOOR]insert (dd "/archd/doordet") scale !scaleb \;
  3524. [WINDOW]insert (dd "/archd/winddet") scale !scaleb \;
  3525. **HVAC 3
  3526. [access]$i=ihvac $i=*
  3527. [2X2](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
  3528. [2X4](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
  3529. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
  3530.  
  3531. [supply]$i=ihvac $i=*
  3532. [2X2](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
  3533. [2X4](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
  3534. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
  3535.  
  3536. [return]$i=ihvac $i=*
  3537. [2X2](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
  3538. [2X4](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
  3539. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
  3540. **HVACM 3
  3541. [access]$i=ihvacm $i=*
  3542. [.6X.6](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
  3543. [.6X1.2](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
  3544. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
  3545.  
  3546. [supply]$i=ihvacm $i=*
  3547. [.6X.6](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
  3548. [.6X1.2](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
  3549. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
  3550.  
  3551. [return]$i=ihvacm $i=*
  3552. [.6X.6](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
  3553. [.6X1.2](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
  3554. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
  3555. **HVACACC 3
  3556. [access](princ " No Icon Available ")(princ);
  3557. [2X2](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
  3558. [2X4](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
  3559. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
  3560. **HVACSUP 3
  3561. [supply](princ " No Icon Available ")(princ);
  3562. [2X2](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
  3563. [2X4](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
  3564. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
  3565. **HVACRET 3
  3566. [return](princ " No Icon Available ")(princ);
  3567. [2X2](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
  3568. [2X4](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
  3569. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
  3570. **HVACACCM 3
  3571. [access](princ " No Icon Available ")(princ);
  3572. [.6X.6](lays ceilv) insert (dd "/arch/acc2x2") scale !scaleb \
  3573. [.6X1.2](lays ceilv) insert (dd "/arch/acc2x4") scale !scaleb \
  3574. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
  3575. **HVACSUPM 3
  3576. [supply](princ " No Icon Available ")(princ);
  3577. [.6X.6](lays ceilv) insert (dd "/arch/sup2x2") scale !scaleb \
  3578. [.6X1.2](lays ceilv) insert (dd "/arch/sup2x4") scale !scaleb \
  3579. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
  3580. **HVACRETM 3
  3581. [return](princ " No Icon Available ")(princ);
  3582. [.6X.6](lays ceilv) insert (dd "/arch/ret2x2") scale !scaleb \
  3583. [.6X1.2](lays ceilv) insert (dd "/arch/ret2x4") scale !scaleb \
  3584. [OTHER](lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
  3585. **ELEC 3
  3586. [elec](princ " No Icon Available ")(princ);
  3587.  
  3588. [LMODELEC](set 'temp 'elecv)(nl "" "/cci/layermod");
  3589.  
  3590. [FLUOR](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=fluorm"))(progn (menucmd "s=x")(menucmd "s=fluor")))(princ);
  3591. [INCANDST]$s=x $s=eleclite
  3592.  
  3593. [OUTLETS]$s=x $s=elecout
  3594. [SWITCHS]$s=x $s=elecswit
  3595. [PHONE]$s=x $s=electel
  3596. [EMERGCY]$s=x $s=elecemer
  3597. [TRACK]$s=x $s=eletrack
  3598. [MISC]$s=x $s=elecmisc
  3599. **FLUOR 3
  3600. [fluor]$i=ifluor $i=*
  3601. [light]$i=ifluor $i=*
  3602.  
  3603. [1X4](lays elecv) insert (dd "/arch/e-fl1x4") scale !scaleb \
  3604. [1X4NIGHT](lays elecv) insert (dd "/arch/e-fl1x4n") scale !scaleb \
  3605. [1X4EMERG](lays elecv) insert (dd "/arch/e-fl1x4e") scale !scaleb \
  3606. [2X2](lays elecv) insert (dd "/arch/e-fl2x2") scale !scaleb \
  3607. [2X2NIGHT](lays elecv) insert (dd "/arch/e-fl2x2n") scale !scaleb \
  3608. [2X2EMERG](lays elecv) insert (dd "/arch/e-fl2x2e") scale !scaleb \
  3609. [1X8](lays elecv) insert (dd "/arch/e-fl1x8") scale !scaleb \
  3610. [1X8NIGHT](lays elecv) insert (dd "/arch/e-fl1x8n") scale !scaleb \
  3611. [1X8EMERG](lays elecv) insert (dd "/arch/e-fl1x8e") scale !scaleb \
  3612. [2X4](lays elecv) insert (dd "/arch/e-fl2x4") scale !scaleb \
  3613. [2X4NIGHT](lays elecv) insert (dd "/arch/e-fl2x4n") scale !scaleb \
  3614. [2X4EMERG](lays elecv) insert (dd "/arch/e-fl2x4e") scale !scaleb \
  3615.  
  3616. [OTHER](lays elecv);(nl symins "/cci/symins")(symins "/arch/e-fluor");
  3617. **FLUORM 3
  3618. [fluor]$i=ifluor $i=*
  3619. [light]$i=ifluor $i=*
  3620.  
  3621. [.3X1.2](lays elecv) insert (dd "/arch/e-fl1x4") scale !scaleb \
  3622. [3X1.2NHT](lays elecv) insert (dd "/arch/e-fl1x4n") scale !scaleb \
  3623. [3X1.2EMG](lays elecv) insert (dd "/arch/e-fl1x4e") scale !scaleb \
  3624. [.6X.6](lays elecv) insert (dd "/arch/e-fl2x2") scale !scaleb \
  3625. [6X6NIGHT](lays elecv) insert (dd "/arch/e-fl2x2n") scale !scaleb \
  3626. [6X6EMERG](lays elecv) insert (dd "/arch/e-fl2x2e") scale !scaleb \
  3627. [.3X2.4](lays elecv) insert (dd "/arch/e-fl1x8") scale !scaleb \
  3628. [3X2.4NHT](lays elecv) insert (dd "/arch/e-fl1x8n") scale !scaleb \
  3629. [3X2.4EMG](lays elecv) insert (dd "/arch/e-fl1x8e") scale !scaleb \
  3630. [.6X1.2](lays elecv) insert (dd "/arch/e-fl2x4") scale !scaleb \
  3631. [6X1.2NHT](lays elecv) insert (dd "/arch/e-fl2x4n") scale !scaleb \
  3632. [6X1.2EMG](lays elecv) insert (dd "/arch/e-fl2x4e") scale !scaleb \
  3633.  
  3634. [OTHER](lays elecv);(nl symins "/cci/symins")(symins "/arch/e-fluor");
  3635. **eleclite 3
  3636. [incandst]$i=ieleclite $i=*
  3637.  
  3638. [LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  3639.  
  3640. [LIGHT 1](lays elecv) insert (dd "/arch/e-l1") scale !scale1;
  3641. [WALL](lays elecv) insert (dd "/arch/e-lw") scale !scale1;
  3642. [WALL EM](lays elecv) insert (dd "/arch/e-lwem") scale !scale1;
  3643. [LIGHT 2](lays elecv) insert (dd "/arch/e-l2") scale !scale1;
  3644. [L2 EM](lays elecv) insert (dd "/arch/e-l2em") scale !scale1;
  3645. [EXIT 1](lays elecv) insert (dd "/arch/e-exit1") scale !scale1;
  3646. [EXIT 2](lays elecv) insert (dd "/arch/e-exit2") scale !scale1;
  3647. **elecout 3
  3648. [outlets]$i=ielecout $i=*
  3649.  
  3650. [LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  3651.  
  3652. [SINGLE](lays elecv) insert (dd "/arch/e-single") scale !scale1;
  3653. [DUPLEX](lays elecv) insert (dd "/arch/e-duplex") scale !scale1;
  3654. [DUPSPL](lays elecv) insert (dd "/arch/e-dupspl") scale !scale1;
  3655. [220](lays elecv) insert (dd "/arch/e-220r") scale !scale1;
  3656. [QUAD](lays elecv) insert (dd "/arch/e-quadr") scale !scale1;
  3657. **elecswit 3
  3658. [switches]$i=ielecswit $i=*
  3659.  
  3660. [LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  3661.  
  3662. [1 WAY](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\1;
  3663. [2 WAY](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\2;
  3664. [3 WAY](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\3;
  3665. [4 WAY](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\4;
  3666. [OTHER](lays elecv) insert (dd "/arch/e-switch") scale !scale1 \\\
  3667. **electel 3
  3668. [phone]$i=ielectel $i=*
  3669.  
  3670. [LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  3671.  
  3672. [TELE 1](lays elecv) insert (dd "/arch/e-tele") scale !scale1;
  3673. [TELE 2](lays elecv) insert (dd "/arch/e-tele2") scale !scale1 \\\(ARH);
  3674. **elecemer 3
  3675. [emergncy]$i=ielecemer $i=*
  3676.  
  3677. [LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  3678.  
  3679. [EMER1](lays elecv) insert (dd "/arch/e-emer1") scale !scale1;
  3680. [EMSQR1](lays elecv)(nl symins "/cci/symins")(symins "/arch/e-emsqr1");
  3681. [EMSQR](lays elecv)(nl symins "/cci/symins")(symins "/arch/e-emsqr");
  3682. **electrack 3
  3683. [track]$i=ielectrack $i=*
  3684. [lighting]$i=ielectrack $i=*
  3685.  
  3686. [LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  3687.  
  3688. [ 3'](lays elecv) insert (dd "/arch2d/e-track3") scale !scaleb \
  3689. [ 4'](lays elecv) insert (dd "/arch2d/e-track4") scale !scaleb \
  3690. [ 6'](lays elecv) insert (dd "/arch2d/e-track6") scale !scaleb \
  3691. [ 8'](lays elecv) insert (dd "/arch2d/e-track8") scale !scaleb \
  3692. [ 10'](lays elecv) insert (dd "/arch2d/e-track1") scale !scaleb \
  3693. [ 12'](lays elecv) insert (dd "/arch2d/e-track2") scale !scaleb \
  3694. **ELECMISC 3
  3695. [miscelec]$i=ielecmisc $i=*
  3696. [LAYERMOD](set 'temp 'ELECV)(nl "" "/cci/layermod");
  3697. [JUNC BOX](lays elecv) insert (dd "/arch/e-junct") scale !scale1;
  3698. [BELL](lays elecv) insert (dd "/arch/e-bell") scale !scale1;
  3699. [BUZZER](lays elecv) insert (dd "/arch/e-buzzer") scale !scale1;
  3700. [HORN](lays elecv) insert (dd "/arch/e-horn") scale !scale1;
  3701. [DIMMER](lays elecv) insert (dd "/arch/e-dimmer") scale !scale1;
  3702. [STARTMAN](lays elecv) insert (dd "/arch/e-strman") scale !scale1;
  3703. [STARTMAG](lays elecv) insert (dd "/arch/e-strmag") scale !scale1;
  3704. [STARTCOM](lays elecv) insert (dd "/arch/e-strcom") scale !scale1;
  3705. [CIRCUITB](lays elecv) insert (dd "/arch/e-cirbrk") scale !scale1;
  3706. [JUNCTSP](lays elecv) insert (dd "/arch/e-jnctsp") scale !scale1;
  3707. [THERMOST](lays elecv) insert (dd "/arch/e-thermo") scale !scale1;
  3708. [PANEL BD](lays elecv) insert (dd "/arch/e-panelb") scale !scale1;
  3709. [MOTOR](lays elecv) insert (dd "/arch/e-motor") scale !scale1;
  3710. [TV](lays elecv) insert (dd "/arch/e-tv") scale !scale1;
  3711. [SPEAKER](lays elecv) insert (dd "/arch/e-speakr") scale !scale1;
  3712. **structural 3
  3713. [struct](princ " No Icon Available ")(princ);
  3714.  
  3715. [STEEL]$s=x $s=struct
  3716. [METSTUD](if (and metric (not (equal scaleb 40. 0.001)))(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);
  3717. [MASONRY]$s=x $s=masonry
  3718. [WOOD]$s=x $s=wood
  3719. [CONCRETE]$s=x $s=conc
  3720. [REBARS]$s=x $s=rebars
  3721. [CONSDET]$s=x $s=consdet
  3722. [DETMISC]$s=x $s=detmisc
  3723. [COLUMNS]$s=x $s=colins
  3724. **STRUCT 3
  3725. [struct]$i=istruct $i=*
  3726. [shapes]$i=istruct $i=*
  3727.  
  3728. [WELDING](nl "" "/archp/weld");
  3729.  
  3730. [I BEAM](nl "" "/archp/ibeam");
  3731. [T BEAM](nl "" "/archp/stee");
  3732. [C CHANNL](nl "" "/archp/channel");
  3733. [ANGLE](nl "" "/archp/sangle");
  3734. [PIPE](nl "" "/archp/spipe");
  3735. [TUBE](nl "" "/archp/stube");
  3736. **MASONRY 3
  3737. [masonry]$i=imasonry $i=*
  3738.  
  3739. [MASBLK1]insert (dd "/archd/mpa10808") scale !scaleb;
  3740. [MASBLK2]^c^cinsert (dd "/archd/mpa20808") scale !scaleb;
  3741. [MASBLK3]^c^cinsert (dd "/archd/mpa30808") scale !scaleb;
  3742. [MASBLK4]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa1")(princ);
  3743. [MASBLK5]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa2")(princ);
  3744. [MASBLK6]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpa3")(princ);
  3745. [MASBLK7]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr1")(princ);
  3746. [MASBLK8]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr2")(princ);
  3747. [MASBLK9]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk2m"))(progn (menucmd "s=x")(menucmd "s=masblk2")))(princ);(setq temp "mpr3")(princ);
  3748. [MASBLK10]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk1m"))(progn (menucmd "s=x")(menucmd "s=masblk1")))(princ);(setq temp "mea1")(princ);
  3749. [MASBLK11]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk1m"))(progn (menucmd "s=x")(menucmd "s=masblk1")))(princ);(setq temp "mer1")(princ);
  3750.  
  3751. [JOINTtyp]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=masblk3m"))(progn (menucmd "s=x")(menucmd "s=masblk3")))(princ);$s=x $s=masblk3 (setq temp "mj")(princ);
  3752.  
  3753. [HATCH]^C^C$i=imashat $i=*
  3754. **MASBLK1 3
  3755. [masonry]
  3756. [ 4 x 8]insert (dd (strcat "/archd/" temp "0408"));\!scaleb;;
  3757. [ 6 x 8]insert (dd (strcat "/archd/" temp "0608"));\!scaleb;;
  3758. [ 8 x 8]insert (dd (strcat "/archd/" temp "0808"));\!scaleb;;
  3759. [10 x 8]insert (dd (strcat "/archd/" temp "1008"));\!scaleb;;
  3760. [12 x 8]insert (dd (strcat "/archd/" temp "1208"));\!scaleb;;
  3761. **MASBLK1M 3
  3762. [masonry]
  3763. [ .1 x .2 ]insert (dd (strcat "/archd/" temp "0408"));\!scaleb;;
  3764. [ .15 x .2]insert (dd (strcat "/archd/" temp "0608"));\!scaleb;;
  3765. [ .2 x .2 ]insert (dd (strcat "/archd/" temp "0808"));\!scaleb;;
  3766. [ .25 x .2]insert (dd (strcat "/archd/" temp "1008"));\!scaleb;;
  3767. [ .3 x .2 ]insert (dd (strcat "/archd/" temp "1208"));\!scaleb;;
  3768. **MASBLK2 3
  3769. [masonry]
  3770. [ 4 x 16]insert (dd (strcat "/archd/" temp "0416"));\!scaleb;;
  3771. [ 6 x 16]insert (dd (strcat "/archd/" temp "0616"));\!scaleb;;
  3772. [ 8 x 16]insert (dd (strcat "/archd/" temp "0816"));\!scaleb;;
  3773. [10 x 16]insert (dd (strcat "/archd/" temp "1016"));\!scaleb;;
  3774. [12 x 16]insert (dd (strcat "/archd/" temp "1216"));\!scaleb;;
  3775. **MASBLK2M 3
  3776. [masonry]
  3777. [ .1 x .4 ]insert (dd (strcat "/archd/" temp "0416"));\!scaleb;;
  3778. [ .15 x .4]insert (dd (strcat "/archd/" temp "0616"));\!scaleb;;
  3779. [ .2 x .4 ]insert (dd (strcat "/archd/" temp "0816"));\!scaleb;;
  3780. [ .25 x .4]insert (dd (strcat "/archd/" temp "1016"));\!scaleb;;
  3781. [ .3 x .4 ]insert (dd (strcat "/archd/" temp "1216"));\!scaleb;;
  3782. **MASBLK3 3
  3783. [masonry]
  3784. [ joint]
  3785. [8-FLUSH]insert (dd (strcat "/archd/" temp "08flsh"));\!scaleb;;
  3786. [8-RODDED]insert (dd (strcat "/archd/" temp "08rodd"));\!scaleb;;
  3787. [8-STRIKE]insert (dd (strcat "/archd/" temp "08strk"));\!scaleb;;
  3788. [8-BATTRD]insert (dd (strcat "/archd/" temp "08batr"));\!scaleb;;
  3789. [8-SETBAK]insert (dd (strcat "/archd/" temp "08stbk"));\!scaleb;;
  3790. [8-VEE]insert (dd (strcat "/archd/" temp "08vee"));\!scaleb;;
  3791. **MASBLK3M 3
  3792. [masonry]
  3793. [ joint]
  3794. [.2FLUSH]insert (dd (strcat "/archd/" temp "08flsh"));\!scaleb;;
  3795. [.2RODDED]insert (dd (strcat "/archd/" temp "08rodd"));\!scaleb;;
  3796. [.2STRIKE]insert (dd (strcat "/archd/" temp "08strk"));\!scaleb;;
  3797. [.2BATTRD]insert (dd (strcat "/archd/" temp "08batr"));\!scaleb;;
  3798. [.2SETBAK]insert (dd (strcat "/archd/" temp "08stbk"));\!scaleb;;
  3799. [.2VEE]insert (dd (strcat "/archd/" temp "08vee"));\!scaleb;;
  3800. **WOOD 3
  3801. [wood det]$i=iwood $i=*
  3802.  
  3803. [WOODBEAM](nl "" "/archp/swood");
  3804. [WOODSECT]^C^C(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=woodsectm"))(progn (menucmd "s=x")(menucmd "s=woodsect")))(princ);(nl "" "/archp/woodsec");
  3805. [WOODSIDE]^C^C(if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=woodelevm"))(progn (menucmd "s=x")(menucmd "s=woodelev")))(princ);(nl "" "/archp/woodside");
  3806.  
  3807. [hatches]
  3808. [WOOD 2]^C^Chatch wood2 \\\
  3809. [WOOD 3]^C^Chatch wood3 \\\
  3810. [WOOD 4]^C^Chatch wood4 \\\
  3811. [WOOD 8]^C^Chatch wood8 \\\
  3812.  
  3813. [HATWALL](nl "" "/archp/hatwall");
  3814. **WOODSECT 3
  3815. [nominal]
  3816. [sections]
  3817. [ 2 X 4  ]1.5;3.5;$s= $s=
  3818. [ 2 X 6  ]1.5;5.5;$s= $s=
  3819. [ 2 X 8  ]1.5;7.25;$s= $s=
  3820. [ 2 X 10 ]1.5;9.25;$s= $s=
  3821. [ 2 X 12 ]1.5;11.25;$s= $s=
  3822. [ 4 X 4  ]3.5;3.5;$s= $s=
  3823. [ 4 X 6  ]3.5;5.5;$s= $s=
  3824. [ 4 X 8  ]3.5;7.25;$s= $s=
  3825. [ 4 X 10 ]3.5;9.25;$s= $s=
  3826. [ 4 X 12 ]3.5;11.25;$s= $s=
  3827.  
  3828. [ OTHER  ]^C^C(setq tempa (getreal "Enter thickness: "));\(setq tempb (getreal "Enter width: "));\(nl "" "/archp/woodsec");!tempa;!tempb;
  3829. **WOODSECTM 3
  3830. [nominal]
  3831. [sections]
  3832. [.05x.1]0.05;.1;$s= $s=
  3833. [.05x.15].05;.15;$s= $s=
  3834. [.05x.2].05;.2;$s= $s=
  3835. [.05x.25].05;.25;$s= $s=
  3836. [.05x.3].05;.3;$s= $s=
  3837. [.1x.1].1;.1;$s= $s=
  3838. [.1x.15].1;.15;$s= $s=
  3839. [.1x.2].1;.2;$s= $s=
  3840. [.1x.25].1;.25;$s= $s=
  3841. [.1x.3].1;.3;$s= $s=
  3842.  
  3843. [ OTHER  ]^C^C(setq tempa (getreal "Enter thickness: "));\(setq tempb (getreal "Enter width: "));\(nl "" "/archp/woodsec");!tempa;!tempb;
  3844. **WOODELEV 3
  3845. [nominal]
  3846. [size]
  3847. [ 2 ]1.5;$s= $s=
  3848. [ 4 ]3.5;$s= $s=
  3849. [ 6 ]5.5;$s= $s=
  3850. [ 8 ]7.25;$s= $s=
  3851. [ 10]9.25;$s= $s=
  3852. [ 12]11.25;$s= $s=
  3853. **WOODELEVM 3
  3854. [nominal]
  3855. [size]
  3856. [ 0.05].05;$s= $s=
  3857. [ 0.1 ].1;$s= $s=
  3858. [ 0.15]0.15;$s= $s=
  3859. [ 0.2].2;$s= $s=
  3860. [ 0.25].25;$s= $s=
  3861. [ 0.3].3;$s= $s=
  3862. **metalstud 2
  3863. [metstuds]$i=imetalstud $i=*
  3864. [ Stud 1]^C^C(nl metstud "/archp/metstud")(metstud "stud1");
  3865. [ Stud 2]^C^C(nl metstud "/archp/metstud")(metstud "stud2");
  3866. [ Stud 3]^C^C(nl metstud "/archp/metstud")(metstud "stud3");
  3867. [ Stud 4]^C^C(nl metstud "/archp/metstud")(metstud "stud4");
  3868.  
  3869. [ 1-5/8]^C^Cinsert (dd "/archd/mstud158") scale !scaleb \
  3870. [ 2-5/8]^C^Cinsert (dd "/archd/mstud258") scale !scaleb \
  3871. [ 3]^C^Cinsert (dd "/archd/mstud3") scale !scaleb \
  3872. [ 3-5/8]^C^Cinsert (dd "/archd/mstud358") scale !scaleb \
  3873. [ 6]^C^Cinsert (dd "/archd/mstud6") scale !scaleb \
  3874. [FURRING]^C^Cinsert (dd "/archd/mfurr") scale !scaleb \
  3875. [RUN1-5/8]^C^Cinsert (dd "/archd/mrun158") scale !scaleb \
  3876. [ 2-5/8]^C^Cinsert (dd "/archd/mrun258") scale !scaleb \
  3877. [ 3]^C^Cinsert (dd "/archd/mrun3") scale !scaleb \
  3878. [ 3-5/8]^C^Cinsert (dd "/archd/mrun358") scale !scaleb \
  3879. [ 6]^C^Cinsert (dd "/archd/mrun6") scale !scaleb \
  3880. [DOORBUCK]$s=x $s=metalbuck $i=imetalbuck $i=*
  3881. **metalbuck 3
  3882. [ door]$i=imetalbuck $i=*
  3883. [ bucks]
  3884.  
  3885. [ 2-5/8]^C^Cinsert (dd "/archd/dwbuck25") scale !scaleb \
  3886. [ 3]^C^Cinsert (dd "/archd/dwbuck3") scale !scaleb \
  3887. [ 3-1/2]^C^Cinsert (dd "/archd/dwbuck35") scale !scaleb \
  3888. [ 5-1/2]^C^Cinsert (dd "/archd/dwbuck55") scale !scaleb \
  3889. [ 6]^C^Cinsert (dd "/archd/dwbuck6") scale !scaleb \
  3890. **metalstudm 2
  3891. [metstuds]$i=imetalstudm $i=*
  3892. [ Stud 1]^C^C(nl metstud "/archp/metstud")(metstud "stud1");
  3893. [ Stud 2]^C^C(nl metstud "/archp/metstud")(metstud "stud2");
  3894. [ Stud 3]^C^C(nl metstud "/archp/metstud")(metstud "stud3");
  3895. [ Stud 4]^C^C(nl metstud "/archp/metstud")(metstud "stud4");
  3896.  
  3897. [ 0.0413]^C^Cinsert (dd "/archd/mstud158") scale !scaleb \
  3898. [ 0.0667]^C^Cinsert (dd "/archd/mstud258") scale !scaleb \
  3899. [ 0.0762]^C^Cinsert (dd "/archd/mstud3") scale !scaleb \
  3900. [ 0.0921]^C^Cinsert (dd "/archd/mstud358") scale !scaleb \
  3901. [ 0.1524]^C^Cinsert (dd "/archd/mstud6") scale !scaleb \
  3902. [FURRING]^C^Cinsert (dd "/archd/mfurr") scale !scaleb \
  3903. [RUN.0413]^C^Cinsert (dd "/archd/mrun158") scale !scaleb \
  3904. [ 0.0667]^C^Cinsert (dd "/archd/mrun258") scale !scaleb \
  3905. [ 0.0762]^C^Cinsert (dd "/archd/mrun3") scale !scaleb \
  3906. [ 0.0921]^C^Cinsert (dd "/archd/mrun358") scale !scaleb \
  3907. [ 0.1524]^C^Cinsert (dd "/archd/mrun6") scale !scaleb \
  3908. [DOORBUCK]$s=x $s=metalbuckm $i=imetalbuckm $i=*
  3909. **metalbuckm 3
  3910. [ door]$i=imetalbuckm $i=*
  3911. [ bucks]
  3912.  
  3913. [ 0.0667]^C^Cinsert (dd "/archd/dwbuck25") scale !scaleb \
  3914. [ 0.0762]^C^Cinsert (dd "/archd/dwbuck3") scale !scaleb \
  3915. [ 0.0889]^C^Cinsert (dd "/archd/dwbuck35") scale !scaleb \
  3916. [ 0.1397]^C^Cinsert (dd "/archd/dwbuck55") scale !scaleb \
  3917. [ 0.1524]^C^Cinsert (dd "/archd/dwbuck6") scale !scaleb \
  3918. **CONC 3
  3919. [concrete]$i=icono $i=*
  3920.  
  3921. [CONCBEAM]^C^C(nl "" "/archp/cbeam");
  3922. [CONCSLAB]^C^C(nl "" "/archp/cslab");
  3923. [CONCWALL]^C^C(nl "" "/archp/footing");
  3924.  
  3925. [HATCH1]^C^Chatch conc;
  3926. [HATCH2]^C^Chatch stipple
  3927.  
  3928. [CONCPATN]^C^Cinsert (dd "/archd/conc");
  3929. [CONCPAT1]INSERT (dd "/arch/concrete") \\
  3930.  
  3931. [joint]
  3932. [CENTERD]^C^C(nl "" "/archp/cjoint") y;n;n;
  3933. [FRMD]^C^C(nl "" "/archp/cjoint") n;y;n;
  3934. [EXPANTN]^C^C(nl "" "/archp/cjoint") n;n;y;
  3935. **rebars 3
  3936. [rebar]$i=irebars $i=*
  3937. [RBARLINE]^C^c$s=x $s=rbarline
  3938. [RBARBEND]^C^c$s=x $s=rbarend
  3939.  
  3940. [details]
  3941. [1A]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");1A;
  3942. [2A]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2A;
  3943. [2B]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2B;
  3944. [2C]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2C;
  3945. [2D]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");2D;
  3946. [3A]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3A;
  3947. [3B]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3B;
  3948. [3C]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3C;
  3949. [3D]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");3D;
  3950. [4A]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4A;
  3951. [4B]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4B;
  3952. [4C]^C^C$s=x $s=rebarrad (nl "" "/archp/rbarstrp");4C;
  3953. **RBAREND 3
  3954. [rebar](princ " No Icon Available ")(princ);
  3955. [ ends](princ " No Icon Available ")(princ);
  3956.  
  3957. [ #3  ]insert (dd "/cci/dot") scale (* scalem 0.375) \;
  3958. [ #4  ]insert (dd "/cci/dot") scale (* scalem 0.5) \;
  3959. [ #5  ]insert (dd "/cci/dot") scale (* scalem 0.625) \;
  3960. [ #6  ]insert (dd "/cci/dot") scale (* scalem 0.75) \;
  3961. [ #7  ]insert (dd "/cci/dot") scale (* scalem 0.875) \;
  3962. [ #8  ]insert (dd "/cci/dot") scale (* scalem 1) \;
  3963. [ #9  ]insert (dd "/cci/dot") scale (* scalem 1.125) \;
  3964. [ #10 ]insert (dd "/cci/dot") scale (* scalem 1.25) \;
  3965. [ #11 ]insert (dd "/cci/dot") scale (* scalem 1.375) \;
  3966. [ #12 ]insert (dd "/cci/dot") scale (* scalem 1.5) \;
  3967. [ #13 ]insert (dd "/cci/dot") scale (* scalem 1.625) \;
  3968. [ #14 ]insert (dd "/cci/dot") scale (* scalem 1.75) \;
  3969.  
  3970. [LINES]^C^C$s=x $s=rbarline
  3971. **RBARLINE 3
  3972. [rebar](princ " No Icon Available ")(princ);
  3973. [lines](princ " No Icon Available ")(princ);
  3974.  
  3975. [ #3  ]pline \w (* scalem 0.375) ;
  3976. [ #4  ]pline \w (* scalem 0.5) ;
  3977. [ #5  ]pline \w (* scalem 0.625) ;
  3978. [ #6  ]pline \w (* scalem 0.75) ;
  3979. [ #7  ]pline \w (* scalem 0.875) ;
  3980. [ #8  ]pline \w (* scalem 1) ;
  3981. [ #9  ]pline \w (* scalem 1.125) ;
  3982. [ #10 ]pline \w (* scalem 1.25) ;
  3983. [ #11 ]pline \w (* scalem 1.375) ;
  3984. [ #12 ]pline \w (* scalem 1.5) ;
  3985. [ #13 ]pline \w (* scalem 1.625) ;
  3986. [ #14 ]pline \w (* scalem 1.75) ;
  3987.  
  3988. [BEND]^C^C(nl "" "/archp/rbarbend");
  3989. [ENDS]^C^c$s=x $s=rbarend
  3990. **REBARRAD 3
  3991. [radius]
  3992. [size]
  3993. [ 0.0]0.0;
  3994. [ 1.0](* scalem 1.0);
  3995. [ 2.0](* scalem 2.0);
  3996. [ 3.0](* scalem 3.0);
  3997. [ 4.0](* scalem 4.0);
  3998.  
  3999. [bar]
  4000. [size]
  4001. [  3]3;
  4002. [  4]4;
  4003. [  5]5;
  4004. [  6]6;
  4005. [  7]7;
  4006. [  8]8;
  4007. **detmisc 3
  4008. [misc det]$i=idetmisc $i=*
  4009.  
  4010. [ANCBOLT]insert (dd "/archd/ancbolt") scale !scaleb \
  4011. [GROUND]insert (dd "/archd/ground") scale !scaleb \
  4012.  
  4013. [hatchs]
  4014. [GRAVEL]^C^Chatch gravl1;
  4015. [EARTH]^C^Chatch earth;
  4016. [EARTH 2]^C^Chatch earth2;
  4017. [GLASS]^C^Chatch glass;
  4018. [SCREEN]^C^Chatch screen;
  4019. [OCTAGON]^C^Chatch octagon;
  4020. **sprink 3
  4021. [sprinklr](princ " No Icon Available ")(princ);
  4022.  
  4023. [HEAD](lays "spk") INSERT (dd "/arch/sprinkle") scale !scale1;
  4024.  
  4025. [PIPETEXT](nl "" "/archp/sprink");
  4026.  
  4027. [SPRNKtag](nl "" "/archp/spkcall") spkcall;
  4028. **colins 3
  4029. [column]$i=icolins $i=*
  4030. [grid lay]$i=icolins $i=*
  4031.  
  4032. [LMODCOLM](set 'temp 'columnv)(nl "" "/cci/layermod");
  4033. [LMODGRID](set 'temp 'colgridv)(nl "" "/cci/layermod");
  4034.  
  4035. [COL NUM](lays columnv) insert (dd "/arch/colnum") scale !scale1;
  4036. [BUBINSRT](nl "" "/archp/colinsrt");
  4037. [COLGRID](nl "" "/archp/colgrid");
  4038.  
  4039. [RECTANG](lays columnv) insert (dd "/cci/rectangc");
  4040. [ROUND](lays columnv) circle;
  4041. [IBEAM](lays columnv) (nl "" "/archp/ibeam");
  4042. **CEILING 3
  4043. [ceiling]$i=iceiling $i=*
  4044.  
  4045. [LMODCEIL](set 'temp 'ceilv)(nl "" "/cci/layermod");
  4046.  
  4047. [SIMPLE](nl "" "/archp/ceilgrid");
  4048. [DRAW](nl "" "/archp/ceilhat");
  4049. [PICK](nl "" "/archp/ceilhatp");
  4050. [POLYLINE](nl "" "/archp/ceilpick");
  4051.  
  4052. [SPEAKER](lays ceilv) insert (dd "/arch/speaker") scale !scale1;
  4053. [SMOKEDET](lays ceilv) insert (dd "/arch/smoke") scale !scale1;
  4054. [SPRNKLER]$s=x $s=sprink
  4055. [HVAC](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=hvacm"))(progn (menucmd "s=x")(menucmd "s=hvac")))(princ);
  4056. [CEILMISC]$s=x $s=ceilmisc
  4057. **ceilmisc 3
  4058. [misc]$i=iceilmisc $i=*
  4059. [ceiling]$i=iceilmisc $i=*
  4060.  
  4061. [ FAN 42](lays ceilv) insert (dd3 "/cfan42") scale !scaleb \
  4062. [ FAN 48](lays ceilv) insert (dd3 "/cfan48") scale !scaleb \
  4063. [ EXIT](lays elecv) insert (dd "/arch/e-exit1") scale !scale1;
  4064. **DIM 2
  4065. [LAYERMOD](set 'temp 'DIMLAYV)(nl "" "/cci/layermod")(lays dimlayv);
  4066. [DIM:]^C^C$i=idim1 $i=*
  4067. [DIM1:]^C^CDIM1;
  4068. [DIMCHK](nl "" "/cci/dimchk");
  4069. [DATUM](nl c:ddim "/cci/datumdim") DDIM;
  4070. [ST2DIM](nl "" "/cci/st2dim");
  4071. [Linear]$S=X $S=DIMLINEAR
  4072. [AssocDIM]$S=X $S=FORMAT
  4073. [Angular]ANG;
  4074. [Diametr]DIAM;
  4075. [Radius]RAD;
  4076. [Center]CENTER;
  4077. [Leader]$i=iballoon $i=*
  4078. [Dim Vars]$S=X $S=VAR1
  4079. [Redraw]'REDRAW;
  4080. [Status]STAT;
  4081. [Undo]UNDO;
  4082. [Style]STYLE;
  4083. **SETUP 2
  4084. [SETUP](nl "" "/cci/setupnew");
  4085.  
  4086. [edit]
  4087. [scripts]
  4088. [TEXT SCR](nl "" "/cci/edtext")(text1);
  4089. [DIM SCR](nl "" "/cci/eddim")(dim1);
  4090. [LAY SCR](nl "" "/cci/edlay");
  4091.  
  4092. [reload]
  4093. [LAYERS](nl "" "/cci/chglayer")(layer1 "/cci/layers.txt");
  4094. [redefine]
  4095. [ SCALE](nl "" "/cci/chgsize")(chgscale);
  4096.  
  4097. [TABLET]$S=X $S=TABLET ^C^CTABLET;
  4098.  
  4099. [layer]
  4100. [SWAP](nl "" "/cci/layswapb");
  4101. **SETUPM 2
  4102. [SETUP](nl "" "/cci/setupnew");
  4103.  
  4104. [UNITBASE]^C^C(nl "" "/cci/unitbase")(unitbase);
  4105.  
  4106. [edit]
  4107. [scripts]
  4108. [TEXT SCR](nl "" "/cci/edtext")(text1);
  4109. [DIM SCR](nl "" "/cci/eddim")(dim1);
  4110. [LAY SCR](nl "" "/cci/edlay");
  4111.  
  4112. [reload]
  4113. [LAYERS](nl "" "/cci/chglayer")(layer1 "/cci/layers.txt");
  4114. [redefine]
  4115. [ SCALE](nl "" "/cci/chgsize")(chgscale);
  4116.  
  4117. [TABLET]$S=X $S=TABLET ^C^CTABLET;
  4118.  
  4119. [layer]
  4120. [SWAP](nl "" "/cci/layswapb");
  4121. **CHGTEXT
  4122. [ED TEXT](nl c:chgtext "/cci/chgtext") chgtext;
  4123.  
  4124. [ <--]
  4125. [ -->]
  4126.  
  4127. [DELETE>]
  4128. [<DELETE]
  4129.  
  4130. [INSERT]
  4131.  
  4132. [EXIT]
  4133. **PLOT 2
  4134. [PLOT    ]PLOT;
  4135. [PRPLOT  ]PRPLOT;
  4136. [--------]
  4137. [  plot  ]
  4138. [ scripts]
  4139.  
  4140. [1](nl "" "/cci/plot") plot1
  4141. [2](nl "" "/cci/plot") plot2
  4142. [3](nl "" "/cci/plot") plot3
  4143. [4](nl "" "/cci/plot") plot4
  4144. [5](nl "" "/cci/plot") plot5
  4145. [Other](nl "" "/cci/plot") OTHER
  4146.  
  4147. [SAMEplot]script (strcat drive "/cci/plottemp");
  4148. [--------]
  4149. [MAKEBOX](nl "" "/cci/plotbox1");
  4150. [USEBOX](nl "" "/cci/plotbox2");
  4151. [PLOTMORE](nl "" "/cci/plotmore");
  4152. **PLOT1 3
  4153.  
  4154. [ plot]
  4155. [ scale]
  4156. [--------]
  4157.  
  4158. [AUTO]AUTO
  4159. [SELECT]SELECT
  4160.  
  4161. [--------]
  4162. **BL 3
  4163. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF;
  4164. [BASE:]^C^CBASE;
  4165. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK;
  4166. [INSERT:]$S=X $S=INSERT ^C^CINSERT;
  4167. [MINSERT:]$S=X $S=INSERT ^C^CMINSERT;
  4168. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK;
  4169.  
  4170. [ATT CONT]$s=x $s=attcontrol
  4171. [EXTRACT]$s=x $s=attext
  4172. **DS 3
  4173. [ATTDISP:]$S=X $S=ATTCONTROL ^C^CATTDISP;
  4174. [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);
  4175. [LAYREGEN](nl laregen "/cci/laregen")(laregen "");
  4176. [PAN:]'PAN;
  4177. [PLAN:]$S=X $S=PLAN ^C^CPLAN;
  4178. [REDRAW:]'REDRAW;
  4179. [REDRALL:]'REDRAWALL;
  4180. [REGEN:](nl zooma "/cci/zooma")(zooma);
  4181. [REGNALL:]^C^CREGENALL;
  4182. [RGNAUTO:]^C^CREGENAUTO;
  4183. [VIEW:]$S=X $S=VIEW 'VIEW;
  4184. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES;
  4185. [VPOINT:]$S=X $S=VPOINT VPOINT;
  4186. [VPORTS:]$S=X $S=VPORTS VPORTS;
  4187. [ZOOM:]$S=X $S=ZOOM 'ZOOM;
  4188. **DR 3
  4189. [ARC]$S=X $S=ARC
  4190. [BOX](nl "" "/cci/box");
  4191. [CIRCLE]$S=X $S=CIRCLE
  4192. [DONUT:]^C^CDONUT;
  4193. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE;
  4194. [HATCH:]$S=X $S=HATCH ^C^CHATCH;
  4195. [LINE:]$S=X $S=LINE ^C^CLINE;
  4196. [PLINE:]$S=X $S=PLINE ^C^CPLINE;
  4197. [POINT:]$S=X $S=POINT ^C^CPOINT;
  4198. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON;
  4199. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE;
  4200. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH;
  4201. [SLOT](nl "" "/cci/slot");
  4202. [SOLID:]$S=X $S=SOLID ^C^CSOLID;
  4203. **ED 3
  4204. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY;
  4205. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT;
  4206. [DDATTE:]^C^CDDATTE;
  4207. [BREAK:]$S=X $S=BREAK ^C^CBREAK;
  4208. [CHAMFER:]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mchamfer"))(progn (menucmd "s=x")(menucmd "s=chamfer"))) chamfer;
  4209. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE;
  4210. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP;
  4211. [COPY:]$S=X $S=COPY ^CCOPY;
  4212. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE;
  4213. [ERASE:]$S=X $S=ERASE ^C^CERASE;
  4214. [EXPLODE:]$s=x $s=explode ^C^CEXPLODE;
  4215. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND;
  4216. [FILLET:]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mfillet"))(progn (menucmd "s=x")(menucmd "s=fillet"))) fillet;
  4217. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE;
  4218.  
  4219. [next]$S=X $S=ED2
  4220. **ED2 3
  4221. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR;
  4222. [MOVE:]$S=X $S=MOVE ^C^CMOVE;
  4223. [OFFSET:]$S=X $S=OFFSET OFFSET;
  4224. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  4225. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE;
  4226. [SELECT:]$S=X $S=SELECT SELECT;
  4227. [SCALE:]$S=X $S=SCALE ^C^CSCALE;
  4228. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C;
  4229. [TRIM:]$S=X $S=TRIM ^C^CTRIM;
  4230. [UNDO:]$S=X $S=UNDO ^C^CUNDO;
  4231.  
  4232.  
  4233.  
  4234.  
  4235. [previous]$S=X $S=ED
  4236. **INQ 3
  4237. [AREA:]$S=X $S=AREA ^C^CAREA;
  4238. [DBLIST:]^CDBLIST;
  4239. [DIST:]$S=X $S=DIST ^C^CDIST;
  4240. [HELP:]HELP;
  4241. [ID:]^C^CID;
  4242. [LIST:]$S=X $S=LIST ^C^CLIST;
  4243. [STATUS:]^C^CSTATUS;
  4244. [TIME]$s=x $s=time
  4245. **SET 3
  4246. [APERTURE]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
  4247. [COLOR:]$S=X $S=COLOR ^C^CCOLOR;
  4248. [COORDS];
  4249. [ELEV:]$S=X $S=3dthick ^C^CELEV;
  4250. [GRID:](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);^C^CGRID;
  4251. [HANDLES:]$S=X $S=HANDLE ^C^CHANDLES;
  4252. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE;
  4253. [LTSCALE:]^C^CLTSCALE;
  4254. [ORTHO]
  4255. [STYLE:]$S=X $S=STYLE ^C^CSTYLE;
  4256. [UCS:]$S=X $S=UCS1 ^C^CUCS 
  4257. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON 
  4258. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  4259.  
  4260. [more]$S=X $S=SET2
  4261. **SET2 2
  4262. [ATRIBUTE]$S=X $S=ATTCONTROL
  4263. [AXIS:]$S=X $S=AXIS ^C^CAXIS;
  4264. [BLIPS](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))+
  4265. (progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))(PRINC);
  4266. [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);
  4267. [LIMITS:]^C^CLIMITS;
  4268. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP;
  4269. [SETVAR:]$S=X $S=SETVAR ^C^CSETVAR;
  4270. [SNAP:]$S=X $S=SNAP ^C^CSNAP;
  4271. [TABLET:]$S=X $S=TABLET ^C^CTABLET;
  4272. [UNITS:]^CUNITS;
  4273.  
  4274. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE;
  4275. [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);
  4276. [REGNAUTO](if (= (getvar "regenmode") 1)(progn (setvar "regenmode" 0)(prompt "Regenauto OFF")(princ))(progn (setvar "regenmode" 1)(prompt "Regenauto ON")(princ)))
  4277. [VIEWRES:]$S=X $S=VIEWRES VIEWRES Y;
  4278. [more]$S=X $S=SET
  4279. **UT 2
  4280. [SAVE]save;
  4281. [END]$S=X $S=END
  4282. [QUIT]$S=X $S=QUIT
  4283.  
  4284. [PLOT]^C^C$S=X $S=PLOT
  4285.  
  4286. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT;
  4287. [DAYSTAMP](nl "" "/cci/daystamp");
  4288. [DXF/IGES]$S=X $S=DXF;
  4289. [Editfile]ws;
  4290. [Listfile]ty;
  4291. [FILES:]^C^CFILES;
  4292. [MENU:]^C^CMENU MENU;
  4293. [PURGE:]$S=X $S=PURGE ^C^CPURGE;
  4294. [RENAME:]$S=X $S=RENAME ^C^CRENAME;
  4295. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT;
  4296. [SHELL]$S=X $S=EXCOMDS
  4297. [SLIDES]$S=X $S=SLIDES
  4298. **OSNAP 3
  4299. [CENter]CENTER $S= $S=
  4300. [ENDpoint]ENDPOINT $S= $S=
  4301. [INSert]INSERT $S= $S=
  4302. [INTersec]INTERSEC $S= $S=
  4303. [MIDpoint]MIDPOINT $S= $S=
  4304. [NEArest]NEAREST $S= $S=
  4305. [NODe]NODE $S= $S=
  4306. [PERpend]PERPEND $S= $S=
  4307. [QUAdrant]QUADRANT $S= $S=
  4308. [TANgent]TANGENT $S= $S=
  4309.  
  4310. [Quick,]QUICK,^Z
  4311.  
  4312. [NONE]NONE $S= $S=
  4313. **OSNAPB 3
  4314. [CENter]CENTER $S=
  4315. [ENDpoint]ENDPOINT $S=
  4316. [INSert]INSERT $S=
  4317. [INTersec]INTERSEC $S=
  4318. [MIDpoint]MIDPOINT $S=
  4319. [NEArest]NEAREST $S=
  4320. [NODe]NODE $S=
  4321. [PERpend]PERPEND $S=
  4322. [QUAdrant]QUADRANT $S=
  4323. [QUICK,]QUICK,^Z
  4324. [TANgent]TANGENT $S=
  4325. [NONE]NONE $S=
  4326. [REF PT](nl off "/cci/off")(off) \ $S=
  4327. [U:]^C^CU $S=
  4328. [REDO:]^C^CREDO $S=
  4329. [REDRAW:]^C^CREDRAW (savechk);$S=
  4330. ['SETVAR]'SETVAR $S=
  4331. [  HELP  ]$S= 'help 
  4332. **BLOCK 3
  4333. [BLOCK:]^C^CBLOCK;
  4334. [?]BLOCK ?;
  4335.  
  4336. [Auto]auto;
  4337. [Single]Single;
  4338. [Window]Win;
  4339. [Last]Las;
  4340. [Previous]Pr;
  4341. [Crossing]Cr;
  4342. [Remove]Re;
  4343. [Add]Ad;
  4344. [Yes]Yes;
  4345.  
  4346. [OOPS]^C^COOPS;
  4347. [BASE]base;
  4348. ["RAW"MOD]$s=x $s=attrawmod
  4349. [Makeblks](nl makeblk "/cci/makeblk")(makeblk);
  4350. **INSERT 3
  4351. [INSERT:]^C^CINSERT;
  4352. [MINSERT:]^C^CMINSERT;
  4353. [ ?]INSERT ?;
  4354. [ *]*
  4355.  
  4356. [ corner]CORNER;
  4357. [ xyz]XYZ;
  4358. [ Scale]scale;
  4359. [ Xscale]xscale;
  4360. [ Yscale]yscale;
  4361. [ Zscale]zscale;
  4362. [ Rotate]rota;
  4363. [PRELIM]$s=x $s=prelim
  4364.  
  4365. [PICKBLK]cb;
  4366. [ATT CONT]$s=x $s=attcontrol
  4367. [Userblks]$i=userblk $i=*
  4368. **PRELIM 3
  4369. [prelim]
  4370.  
  4371. [PScale]Pscale;
  4372. [PXscale]Pxscale;
  4373. [PYscale]Pyscale;
  4374. [PZscale]Pzscale;
  4375. [PRotate]Prota;
  4376. **WBLOCK 3
  4377. [WBLOCK:]^C^Cw;
  4378. [*]*
  4379.  
  4380. [Auto]auto;
  4381. [Single]Single;
  4382. [Window]Win;
  4383. [Last]Las;
  4384. [Previous]Pr;
  4385. [Crossing]Cr;
  4386. [Remove]Re;
  4387. [Add]Ad;
  4388.  
  4389. [OOPS]^C^COOPS;
  4390. [BASE]base;
  4391. ["RAW"MOD]$s=x $s=attrawmod
  4392. [Makeblks](nl makeblk "/cci/makeblk")(makeblk);
  4393. **DIMLINEAR 3
  4394. [DIM:]^C^CDIM;
  4395. [DIM1:]^C^CDIM1;
  4396. [Horiz]HORIZ;
  4397. [Vrtical]VERT;
  4398. [Aligned]ALI;
  4399. [Rotated]ROT;
  4400. [Baselin]BASE;
  4401. [Continu]CONT;
  4402. [Hometext]HOMETEXT;
  4403. [Update]UPDATE;
  4404. [Newtext]NEWTEXT;
  4405. [SCRIPT 1]SCRIPT (dd "/cci/dim1");
  4406. [SCRIPT 2]SCRIPT (dd "/cci/dim2");
  4407. [DimVARS]$s=x $s=var1
  4408. [DimMENU]$S=X $S=DIM
  4409. [AssocDIM]$S=X $S=FORMAT
  4410. **ATTDEF 3
  4411. [ATTDEF:]^C^CATTDEF;
  4412.  
  4413. [Invis]Inv;
  4414. [Constant]CONSTANT;
  4415. [Verify]Ver;
  4416. [Preset]preset;
  4417.  
  4418. [Aligned]Ali;
  4419. [Centered]Ce;
  4420. [Fit]Fit;
  4421. [Middle]Mi;
  4422. [Right]Ri;
  4423. [Style]Sty;
  4424.  
  4425. ["RAW"MOD]$s=x $s=attrawmod
  4426. **ATTCONTROL 3
  4427. [atribute]
  4428. [controls]
  4429.  
  4430. [DIALOG ](if (= (getvar "ATTDIA") 0)(PROGN (setvar "ATTDIA" 1)(PRINC " Dialog box for attribute entry. "))(progn (setvar "ATTDIA" 0)(PRINC " Normal attribute prompts. ")))(princ);
  4431. [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);
  4432. [ATTDISP:]^C^CATTDISP;
  4433. [ normal]Nor;
  4434. [ ON]ON;
  4435. [ OFF]OFF;
  4436.  
  4437. ["RAW"MOD]$s=x $s=attrawmod
  4438. [EXTRACT]$s=x $s=attext
  4439. **ATTRAWMOD 3
  4440. [ change ]
  4441. [ "raw"  ]
  4442. [attribut]
  4443. [   to...]
  4444.  
  4445. [NORMAL  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 0) (assoc 70 temp) temp))(princ);
  4446. [INVISIBL](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 1) (assoc 70 temp) temp))(princ);
  4447. [CONSTANT](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 2) (assoc 70 temp) temp))(princ);
  4448. [VERIFY  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 4) (assoc 70 temp) temp))(princ);
  4449. [PRESET  ](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 8) (assoc 70 temp) temp))(princ);
  4450. [INVCONST](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 3) (assoc 70 temp) temp))(princ);
  4451. [INVVERFY](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 5) (assoc 70 temp) temp))(princ);
  4452. [INVPRSET](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 70 9) (assoc 70 temp) temp))(princ);
  4453. [BLANK<>](setq temp (entget (car (entsel "Select attribute to change..."))))(princ);\(entmod (subst (cons 1 "") (assoc 1 temp) temp))(princ);
  4454. **LAYER 2
  4455. [LAYER:]^C^CLAYER;
  4456. [?]LAYER ? * ;
  4457. [Make]$S=X $S=LAYER LAYER M;
  4458. [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);
  4459. [New]layer new;
  4460. [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);
  4461. [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);
  4462. [Pick OFF](nl "" "/cci/layeroff");
  4463. [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);
  4464. [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);
  4465. [Color]LAYER COLOR $S=X $S=LACOLOR \$S=X $S=LAYER
  4466. [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=
  4467. [Ltype]LAYER LTYPE $S=X $S=LALT \$S=X $S=LAYER
  4468. [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) +
  4469. 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=
  4470. [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);
  4471. [LAYREGEN](nl laregen "/cci/laregen")(laregen "");
  4472. [LASCRIPT](nl "" "/cci/lascript");
  4473. [SET 0]layer s 0;;
  4474. **LACOLOR 3
  4475. [COLOR] 
  4476.  
  4477. [red]RED;
  4478. [yellow]YELLOW;
  4479. [green]GREEN;
  4480. [cyan]CYAN;
  4481. [blue]BLUE;
  4482. [magenta]MAGENTA;
  4483. [white]WHITE;
  4484. [8]8;
  4485. [9]9;
  4486. [10]10;
  4487. [11]11;
  4488. [12]12;
  4489. [13]13;
  4490. [14]14;
  4491. [15]15;
  4492. **LALT 3
  4493. [linetype]
  4494.  
  4495. [contin.]CONTINUOUS;
  4496. [dashed]DASHED;
  4497. [hidden]HIDDEN;
  4498. [center]CENTER;
  4499. [phantom]PHANTOM;
  4500. [dot]DOT;
  4501. [dashdot]dashdot;
  4502. [border]border;
  4503. [divide]divide;
  4504. **ZOOM 3
  4505. [ZOOM:]'ZOOM;
  4506.  
  4507. [All]All;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  4508. [Center]Center;
  4509. [Dynamic]Dyn;
  4510. [Extents]Ext;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  4511. [Left]Left;
  4512. [Previous]Pre;
  4513. [Window]Win;
  4514. [In]2x;
  4515. [Out].5x;
  4516.  
  4517. [Yes]YES;
  4518. [No]NO;
  4519.  
  4520. [ZOOMIN](nl "" "/cci/zoomin");
  4521. [ZMSCALE](nl "" "/cci/zmscale");
  4522. **DVIEW 3
  4523. [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);
  4524.  
  4525. [Single]Single;
  4526. [Window]Win;
  4527. [Last]Las;
  4528. [Previous]Pr;
  4529. [Crossing]Cr;
  4530. [Remove]Re;
  4531. [Add]Ad;
  4532.  
  4533. [MAKEsect](setq secflag nil)(princ);(nl "" "/cci/wsection");
  4534. [GOTOsect](setq secflag 't)(princ);(nl c:ss "/cci/wsection");ss 
  4535.  
  4536. [USEHOUSE]^C^CDVIEW;;
  4537. [ Dview ]$S=X $S=DVIEW1
  4538. [Options]$S=X $S=DVIEW1
  4539. **DVIEW1 3
  4540. [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);
  4541. [options]
  4542.  
  4543. [Points]points;
  4544. [Camera]camera;
  4545. [Target]target;
  4546. [Distance]distance;
  4547. [Twist]twist;
  4548. [Pan]pan;
  4549. [Zoom]zoom;
  4550. [Clip]Clip $S=X $S=DVIEW2
  4551. [OFF]off;
  4552. [Hide]hide;
  4553. [Undo]undo;
  4554.  
  4555. [Exit]Exit $S=X $S=S 
  4556. **DVIEW2 3
  4557. [clipping]
  4558.  
  4559. [ Back]Back \$S=X $S=DVIEW1
  4560.  
  4561. [ON]On $S=X $S=DVIEW1
  4562. [OFF]Off $S=X $S=DVIEW1
  4563.  
  4564. [ Front]Front \$S=X $S=DVIEW1
  4565.  
  4566. [ON]On $S=X $S=DVIEW1
  4567. [OFF]Off $S=X $S=DVIEW1
  4568. [Eye]Eye $S=X $S=DVIEW1
  4569. **VPORTS 3
  4570. [VPORTS:]^C^CVPORTS;
  4571. [*icon*]$i=ivporti $i=*
  4572.  
  4573. [Save]sav;
  4574. [Restore]restore;
  4575. [Delete]delete;
  4576. [Join]join;
  4577. [SIngle]si;
  4578. [?]?;
  4579.  
  4580. [2]2 $S=X $S=VP2
  4581. [3]3 $S=X $S=VP3
  4582. [4]4;
  4583.  
  4584. [REDRAWALL]redrawall;
  4585. [REGENALL]regenall;
  4586. [VPORTSET](nl "" "/cci/ucssetup");
  4587. **VP2 3
  4588.  
  4589. [Horizont]H $S=X $S=VPORTS
  4590. [Vertical]V $S=X $S=VPORTS
  4591. **VP3 3
  4592.  
  4593. [Horizont]H $S=X $S=VPORTS
  4594. [Vertical]V $S=X $S=VPORTS
  4595. [Above]A $S=X $S=VPORTS
  4596. [Below]B $S=X $S=VPORTS
  4597. [Left]L $S=X $S=VPORTS
  4598. [Right]R $S=X $S=VPORTS
  4599. **VIEW 3
  4600. [VIEW:]'VIEW;
  4601. [?]?;
  4602.  
  4603. [Delete]'VIEW ? 'VIEW D;
  4604. [Save]'VIEW ? 'VIEW S;
  4605. [Window]'view Win;
  4606. [Restore]'VIEW ? 'VIEW R;
  4607.  
  4608. [V R all]'view r all;
  4609. [V R 1]'view r 1;
  4610. [V R 2]'view r 2;
  4611. [V R 3]'view r 3;
  4612. [V R 4]'view r 4;
  4613.  
  4614. [RESTlisp](if (null sdscrn)(setq sdscrn "Y" scrtog 't))(if sdscrn (setq vwlist (gettable "VIEW" ""))(setq vwlist '("")))(princ) +
  4615. (if (not (member nil vwlist))(LAYERS "R" vwlist)(PRINC " No Views Saved"))(if scrtog (setq sdscrn nil scrtog nil))(PRINC);
  4616. [VIEWSET](nl "" "/cci/views");
  4617. **LINE 2
  4618. [LINE:]^C^CLINE;
  4619. [PTLINE](nl "" "/cci/ptline");
  4620. [DLINE](nl c:dl "/cci/dline") dl;
  4621. [MLINE](nl c:ml "/cci/mline") ml;
  4622. [DOUBLE](nl "" "/cci/dblline");
  4623. [SYMBOL]$S=X $S=INSYM $I=IINSYM $I=*
  4624. [LINETEXT](nl "" "/cci/instext");
  4625.  
  4626. [ @ ]@\
  4627. [ < ]<\
  4628. [continue]^C^CLINE;;
  4629. [close]Close;
  4630. [undo]Undo;
  4631.  
  4632. [end-end]endp \endp;
  4633. [end-mid]endp \midp;
  4634. [mid-mid]midp \midp;
  4635. [LINELAYR]$s=x $s=setlinel
  4636. **setlinel 3
  4637. [set to]
  4638. [line]
  4639. [layer]
  4640.  
  4641. [MEDIUM]$s=x $s=line (setq med1v (getstring (strcat " Layer for Med lines <" medv ">: "))) \(if (/= med1v "")(setq medv med1v)) LAYER m !medv  LINE;
  4642. [HEAVY]$s=x $s=line (setq heavy1v (getstring (strcat " Layer for Heavy lines <" heavyv ">: "))) \(if (/= heavy1v "")(setq heavyv heavy1v)) LAYER m !heavyv  LINE;
  4643. [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;
  4644. [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;
  4645. [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;
  4646. [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;
  4647. [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;
  4648. [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;
  4649. **3DFACE 3
  4650. [3DFACE:]^C^C3DFACE;
  4651.  
  4652. [.x].X;
  4653. [.y].Y;
  4654. [.z].Z;
  4655. [.xy].XY;
  4656. [.xz].XZ;
  4657. [.yz].YZ;
  4658.  
  4659. [Invisibl](princ "Use before the FIRST endpoint of an edge. Results show when done.")(princ);Invis;
  4660.  
  4661. [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);
  4662. [EDGEHIDE](nl c:edge "/cci/edge") edge;
  4663. [CH FACES](nl c:chface "/cci/chface") chface;
  4664. **3DOBJECT 3
  4665. [ 3d]
  4666. [objects]
  4667.  
  4668. [BOX mesh](PRINC "Loading TORUS ")(nl c:torus "/cci/3d") box;
  4669. [WEDGE](PRINC "Loading WEDGE ")(nl c:torus "/cci/3d") wedge;
  4670. [PYRAMID](PRINC "Loading PYRAMID ")(nl c:pyramid "/cci/3d") pyramid;
  4671. [CONE](PRINC "Loading CONE ")(nl c:torus "/cci/3d") cone;
  4672. [DOME](PRINC "Loading DOME ")(nl c:torus "/cci/3d") dome;
  4673. [DISH](PRINC "Loading DISH ")(nl c:torus "/cci/3d") dish;
  4674. [MESH](PRINC "Loading MESH ")(nl c:torus "/cci/3d") mesh;
  4675. [SPHERE](PRINC "Loading SPHERE ")(nl c:torus "/cci/3d") sphere;
  4676. [TORUS](PRINC "Loading TORUS ")(nl c:torus "/cci/3d") torus;
  4677. [TUBE](PRINC "Loading 3DTUBE ")(nl c:3dtube "/cci/3dtube") 3dtube;
  4678. [polyTUBE](nl c:tube "/cci/tube") tube;
  4679. [BOX face](princ "Loading 3DCUBE ")(nl c:3dcube "/cci/3dcube") 3dcube;
  4680. **3DLISP 3
  4681. [3d]
  4682. [special]
  4683.  
  4684. [HOLESLOT](nl c:hole "/cci/hole") hole;
  4685. [PROJECT](nl c:project "/cci/project") project;
  4686. [FPLOT](nl fplot "/cci/fplot");
  4687. [3D MIDPT](nl 3dmid "/cci/3dmid")(3dmid) \
  4688. [REF ZANG](nl zangoff "/cci/zangoff")(zangoff) \\\
  4689. [REFZDIST](nl zdistoff "/cci/zdistoff")(zdistoff) \\\
  4690. [ZANG](nl zang "/cci/zang")(zang) \\
  4691. [ZDIST](nl zdist "/cci/zdist")(zdist) \\
  4692. **3D 3
  4693. [3DPOLY:]^C^C$S=X $S=3DPOLY 3DPOLY;
  4694. [3DFACE:]^C^C$S=X $S=3DFACE 3DFACE;
  4695. [3DSURF]$s=x $s=3dsurf
  4696. [3DOBJECT]$S=X $S=3DOBJECT
  4697. [SPECIAL]$S=X $S=3DLISP
  4698.  
  4699. [ASHADE](nl c:scene "/cci/ashade") $S=X $S=ASHADE
  4700.  
  4701. [VPOINT:]$s=x $s=vpoint
  4702. [VP ROT]vpoint rot;
  4703. [VP PLAN]VPOINT 0,0,1;
  4704.  
  4705. [HIDE:]HIDE;
  4706. [laHIDDEN](PRINC "Loading LAYERH ")(nl "" "/cci/layerh");
  4707. **3DTHICK 3
  4708. [3d thick]
  4709. [ elev]
  4710.  
  4711. ['ELEV]'SETVAR ELEVATION;
  4712. ['THICK]'SETVAR THICKNESS;
  4713.  
  4714. [PICKELEV](nl "" "/cci/setelev");
  4715. [PICKTHIC](nl "" "/cci/setthick");
  4716.  
  4717. [CHG ELEV](nl "" "/cci/chelev");
  4718. [CHGTHICK](nl "" "/cci/chthick");
  4719. **3DSURF 3
  4720. [3d surf]
  4721.  
  4722. [EDGSURF:]^C^CEDGESURF;
  4723. [REVSURF:]^C^CREVSURF;
  4724. [RULSURF:]^C^CRULESURF;
  4725. [TABSURF:]^C^CTABSURF;
  4726.  
  4727. [Surftb1:]'SETVAR SURFTAB1 
  4728. [Surftb2:]'SETVAR SURFTAB2
  4729.  
  4730. [3DMESH:]^C^C3DMESH;
  4731. **3DPOLY 3
  4732. [3DPOLY:]^C^C3DPOLY;
  4733.      
  4734. [Close]close;
  4735. [Undo]undo;
  4736. [.x].x;
  4737. [.y].y;
  4738. [.z].z;
  4739. [.xy].xy;
  4740. [.xz].xz;
  4741. [.yz].yz;
  4742.  
  4743. [CONTROLS]$I=IPOLY $I=*
  4744. **VPOINT 3
  4745. [VPOINT:]^C^CVPOINT;
  4746. [*icon*]^c^c$s=x $s=vp3d $i=i3dviews $i=*
  4747.  
  4748. [rotate]^C^CVPOINT R;
  4749. [angle]^C^C$s=x $s=vp3d VPOINT R;;
  4750.  
  4751. [REAR]^C^C$s=x $s=vp3d VPOINT R;<<90;
  4752. [LEFTrear]^C^C$s=x $s=vp3d VPOINT R;<<135;
  4753. [RITErear]^C^C$s=x $s=vp3d VPOINT R;<<45;
  4754.  
  4755. [LEFT]^C^C$s=x $s=vp3d VPOINT R;<<180;
  4756. [PLAN]^C^Cvpoint 0,0,1;
  4757. [RIGHT]^C^C$s=x $s=vp3d VPOINT R;<<0;
  4758.  
  4759. [FRONT]^C^C$s=x $s=vp3d VPOINT R;<<270;
  4760. [LEFTfrnt]^C^C$s=x $s=vp3d VPOINT R;<<225;
  4761. [RITEfrnt]^C^C$s=x $s=vp3d VPOINT R;<<315;
  4762. **VP3D 3
  4763. [ vpoint]
  4764. [ angle]
  4765. [    +90 ]<<90;$s= $s=
  4766. [    +80 ]<<80;$s= $s=
  4767. [    +60 ]<<60;$s= $s=
  4768. [    +45 ]<<45;$s= $s=
  4769. [    +30 ]<<30;$s= $s=
  4770. [    +10 ]<<10;$s= $s=
  4771. [    + 5 ]<<5;$s= $s=
  4772. [      0 ]<<0;$s= $s=
  4773. [    - 5 ]<<-5;$s= $s=
  4774. [    -10 ]<<-10;$s= $s=
  4775. [    -30 ]<<-30;$s= $s=
  4776. [    -45 ]<<-45;$s= $s=
  4777. [    -60 ]<<-60;$s= $s=
  4778. [    -80 ]<<-80;$s= $s=
  4779. [    -90 ]<<-90;$s= $s=
  4780. **ASHADE 3
  4781. [ASHADE]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade $i=ias $i=*
  4782.  
  4783. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT;
  4784. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA;
  4785.  
  4786. [SCENE:]^C^CSCENE;
  4787. [FILMROL:]^C^CFILMROLL;
  4788.  
  4789. [CAMVIEW:]^C^CCAMVIEW;
  4790.  
  4791. [AFLIX]^C^C(nl c:shadetype "/cci/aflix");
  4792. [SHADETYP]^C^C(nl c:shadetype "/cci/aflix") shadetype;
  4793. [WALKTHRU]^C^C(nl c:shadetype "/cci/aflix") walkthrough;
  4794. [ANIMLENS]^C^C(nl c:shadetype "/cci/aflix") animlens;
  4795. [ANIMATE]^C^C(nl c:shadetype "/cci/aflix") animate;
  4796. [BUTTON]^C^C(nl c:shadetype "/cci/aflix") Button;
  4797. **LIGHTS 3
  4798. [LIGHT:]^C^CLIGHT;
  4799.  
  4800. [Point]p;
  4801. [Directed]d;
  4802.  
  4803. [Filters]
  4804. .x
  4805. .y
  4806. .z
  4807. .xy
  4808. .xz
  4809. .yz
  4810.  
  4811. [CAMVIEW:]^C^CCAMVIEW;
  4812. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  4813. [ACTION]$S=X $S=ACTION
  4814. **CAMERA 3
  4815. [CAMERA:]^C^CCAMERA;
  4816.  
  4817. [Filters]
  4818. .x
  4819. .y
  4820. .z
  4821. .xy
  4822. .xz
  4823. .yz
  4824.  
  4825.  
  4826.  
  4827. [CAMVIEW:]^C^CCAMVIEW;
  4828. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT;
  4829. [ACTION]$S=X $S=ACTION
  4830. **ACTION 3
  4831. [ACTION]^C^C$S=X $S=ACTION
  4832.  
  4833. [CAMVIEW:]^C^CCAMVIEW;
  4834. [SCENE:]^C^CSCENE;
  4835. [FILMROL:]^C^CFILMROLL;
  4836. **PLINE 3
  4837. [PLINE:]^C^CPLINE;
  4838.  
  4839. [Arc]ARC $S=PARC
  4840. [close]Cl;
  4841. [length]Len;
  4842. [undo]Un;
  4843. [width]Wid;
  4844. [halfwid]Half;
  4845.  
  4846. [DONUT:]donut;
  4847. [FILL ON]'SETVAR FILLMODE 1;
  4848. [FILL OFF]'SETVAR FILLMODE 0;
  4849.  
  4850. [SavWidth](nl "" "/cci/widthsav");
  4851. [UseWidth](princ "Draw pline with previously saved width ... ")(princ);pline \wid !pwid1 !pwid1
  4852. [POLYWID](nl "" "/cci/polywid");
  4853. [SPIRAL](nl c:snake "/cci/snake") snake;
  4854. **PARC 3
  4855. [polyarc]
  4856.  
  4857. [angle]$S=X $S=PARCANG An;
  4858. [CEnter]$S=X $S=PARCEN CE;
  4859. [tanDir]DIR \DRAG;
  4860. [Radius]$S=X $S=PARCRAD Rad;
  4861. [2nd PT]S \DRAG;
  4862. [CLose]$S=X $S=PLINE CLOSE;
  4863.  
  4864. [undo]Un;
  4865.  
  4866. [contline]$S=X $S=PLINE L;
  4867.  
  4868. [PLINE:]$S=X $S=PLINE ^C^CPLINE;
  4869. **PARCANG 3
  4870. [angle]
  4871.  
  4872. [center]Ce drag $S=X $S=PARC
  4873. [radius]Rad \ $S=X $S=PARC
  4874. [drag]drag \ $S=X $S=PARC
  4875. **PARCEN 3
  4876. [center]
  4877.  
  4878. [angle]Ang drag $S=X $S=PARC
  4879. [length]Len drag $S=X $S=PARC
  4880. [drag]drag \ $S=X $S=PARC
  4881. **PARCRAD 3
  4882. [radius]
  4883.  
  4884. [angle]Ang \drag $S=X $S=PARC
  4885. [drag]drag \ $S=X $S=PARC
  4886. **OFFSET 3
  4887. [OFFSET:]^C^COFFSET;
  4888.  
  4889. [Through]Thr;
  4890. **ARC 3
  4891. [arc]
  4892. [*icon*]$i=iarc $i=*
  4893.  
  4894. [3-point:]^C^CARC \\DRAG
  4895. [S,C,E:]^C^CARC \C \DRAG
  4896. [S,C,A:]^C^CARC \C \A DRAG
  4897. [S,C,L:]^C^CARC \C \L DRAG
  4898. [S,E,A:]^C^CARC \E \A;
  4899. [S,E,R:]^C^CARC \E \R;
  4900. [S,E,D:]^C^CARC \E \D DRAG
  4901. [C,S,E:]^C^CARC C \\DRAG
  4902. [C,S,A:]^C^CARC C \\A DRAG
  4903. [C,S,L:]^C^CARC C \\L DRAG
  4904. [CONTIN:]^C^CARC ;DRAG
  4905. **popARC 3
  4906. [ARC]
  4907. [*icon*]$i=iarc $i=*
  4908.  
  4909. [3-point:]*^C^CARC \\DRAG
  4910. [S,C,E:]*^C^CARC \C \DRAG
  4911. [S,C,A:]*^C^CARC \C \A DRAG
  4912. [S,C,L:]*^C^CARC \C \L DRAG
  4913. [S,E,A:]*^C^CARC \E \A
  4914. [S,E,R:]*^C^CARC \E \R
  4915. [S,E,D:]*^C^CARC \E \D DRAG
  4916. [C,S,E:]*^C^CARC C \\DRAG
  4917. [C,S,A:]*^C^CARC C \\A DRAG
  4918. [C,S,L:]*^C^CARC C \\L DRAG
  4919. [CONTIN:]*^C^CARC ;DRAG
  4920. **popCIRCL 3
  4921. [CIRCLE]
  4922.  
  4923. [CEN,RAD:]*^C^CCIRCLE \DRAG
  4924. [CEN,DIA:]*^C^CCIRCLE \D
  4925. [2 POINT:]*^C^CCIRCLE 2P \DRAG
  4926. [3 POINT:]*^C^CCIRCLE 3P \\DRAG
  4927. [TTR:]*^C^CCIRCLE TTR
  4928. **CIRCLE 3
  4929. [circle]
  4930. [*icon*]$i=icircle $i=*
  4931.  
  4932. [CEN,RAD:]^C^CCIRCLE \DRAG
  4933. [CEN,DIA:]^C^CCIRCLE \D;
  4934. [2 POINT:]^C^CCIRCLE 2P \DRAG
  4935. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  4936. [TTR:]^C^CCIRCLE TTR;
  4937. [TTT]CIRCLE 3P TAN \TAN \TAN;
  4938.  
  4939. [CONCEN]CIRCLE CEN \DRAG;
  4940. [MULT CCR](nl "" "/cci/concentr");
  4941. [MULT CCD](nl "" "/cci/concentd");
  4942. [CENTLINE](nl c:circentl "/cci/circentl") CIRCENTL;
  4943. **ELLIPSE 3
  4944. [ELLIPSE:]^C^CELLIPSE;
  4945.  
  4946. [Center]ce;
  4947. [Rotation]Rot;
  4948. [Iso]Iso;
  4949. [Diameter]Dia;
  4950. **POLYGON 3
  4951. [POLYGON:]^C^CPOLYGON;
  4952.  
  4953. [Edge]ED;
  4954. [I-scribe]I;
  4955. [C-scribe]C;
  4956. **SHAPE 3
  4957. [SHAPE:]^C^CSHAPE;
  4958. [?]?;
  4959.  
  4960. [LOAD:]^C^CLOAD;
  4961. [?]?;
  4962. **SKETCH 3
  4963. [SKETCH:]^C^CSKETCH;
  4964.  
  4965. Connect
  4966. Erase
  4967. Record
  4968.  
  4969. [eXit]x
  4970. Quit
  4971.  
  4972. [------]
  4973. [SKPOLY:]'SETVAR SKPOLY 1;
  4974. [SKLINE:]'SETVAR SKPOLY 0;
  4975. [SKINC:]'SETVAR SKETCHINC;
  4976. [------]
  4977. [JOINMORE](nl "" "/cci/joinmore");
  4978. **SOLID 3
  4979. [SOLID:]^C^CSOLID;
  4980.  
  4981. [FILL ON]'SETVAR FILLMODE 1;
  4982. [FILL OFF]'SETVAR FILLMODE 0;
  4983. **POINT 3
  4984. [POINT:]^C^CPOINT;
  4985. [MULITPLE]*point;
  4986.  
  4987. [.x].X;
  4988. [.y].Y;
  4989. [.z].Z;
  4990. [.xy].XY;
  4991. [.xz].XZ;
  4992. [.yz].YZ;
  4993.  
  4994. [complex]
  4995. [points]
  4996. [example:]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW POINT;
  4997.  
  4998. [Pdmode:]'SETVAR PDMODE \POINT;
  4999. [Pdsize:]'SETVAR PDSIZE \POINT;
  5000. **HATCH 3
  5001. [HATCH:]^C^CHATCH;
  5002. [*icon*]$i=ihatch1 $i=*
  5003. [?]?;
  5004.  
  5005. [u]U;
  5006. [u,o]U,O;
  5007. [u,i]U,I;
  5008. [Yes]Yes;
  5009. [Window]Win;
  5010. [Last]Last;
  5011. [Previous]Pre;
  5012. [Crossing]Cr;
  5013. [Remove]Re;
  5014. [Add]Add;
  5015. [Undo]Un;
  5016.  
  5017. [HATFACE](nl "" "/cci/hatface");
  5018. **LIST 3
  5019. [LIST:]^C^CLIST;
  5020.  
  5021. [Window]Win;
  5022. [Last]Last;
  5023. [Previous]Pre;
  5024. [Crossing]Cr;
  5025. [Remove]Re;
  5026. [Add]Add;
  5027. [Undo]Un;
  5028. **AREA 3
  5029. [AREA:]^C^CAREA;
  5030. [Add]ADD;
  5031. [Subtract]Sub;
  5032. [Entity]Ent;
  5033.  
  5034. [set snap]
  5035. [ END](setvar "osmode" 1);
  5036. [ NEAR](setvar "osmode" 512);
  5037.  
  5038. [ NONE](setvar "osmode" 0);
  5039.  
  5040. [AREA TXT](nl "" "/cci/areatext");
  5041. [AREADRAW](nl "" "/cci/areadraw");
  5042. [AREAPICK](nl "" "/cci/areapick");
  5043. [AREAent]area ent;
  5044. **DIST 3
  5045. [DIST:]^C^CDIST;
  5046.  
  5047. [DISTMORE](nl "" "/cci/distmore");
  5048. [DISTTEXT](nl "" "/cci/disttext");
  5049. [DISTCALC](nl "" "/cci/distcalc");
  5050. **TEXTSETUP1 2
  5051. TXT
  5052. MONOTXT
  5053. SIMPLEX
  5054. MSIMPLEX
  5055. DIM
  5056. HAND1
  5057. ROMANS
  5058. ROMAND
  5059. OUTLINE
  5060. BOLD
  5061. TIMES
  5062. TIMESOUT
  5063. COMPLEX
  5064. ITALIC
  5065. ROMANC
  5066. ITALICC
  5067. ROMANT
  5068. ITALICT
  5069. GOTHICE
  5070. SYMAP
  5071. **TEXT 2
  5072. [TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2 TEXT;
  5073. [Center]ce;
  5074. Middle
  5075. Right
  5076. Align
  5077. Fit
  5078. Style
  5079.  
  5080. [TEXTMORE](nl "" "/cci/textmore");
  5081. [TEXTCOPY](nl "" "/cci/textcopy");
  5082. [PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
  5083. [CHARARAY](nl "" "/cci/chararay");
  5084. [LEADTEXT]$S=X $S=BALLOON
  5085. [OVERLINE](nl "" "/cci/linetext");
  5086. [ARCTEXT](nl "" "/cci/arctext");
  5087. [IMPORT](nl "" "/cci/import");
  5088. [EXPORT](nl "" "/cci/export");
  5089. [TEXTSCR]$s=x $s=textscript
  5090. **TEXTSCRIPT 3
  5091. [text]
  5092. [scripts]
  5093.  
  5094. [1]SCRIPT (dd "/cci/s1");
  5095. [2]SCRIPT (dd "/cci/s2");
  5096. [3]SCRIPT (dd "/cci/s3");
  5097. [4]SCRIPT (dd "/cci/s4");
  5098. [5]SCRIPT (dd "/cci/s5");
  5099.  
  5100. [EDIT SCR](nl "" "/cci/edtext")(text1);
  5101. **F1 2
  5102. Txt
  5103. Monotxt
  5104. Simplex
  5105. Msimplex
  5106. Dim
  5107. Hand1
  5108. Outline
  5109. Bold
  5110. Times
  5111. Timesout
  5112. Complex
  5113. Cyrillic
  5114. Cyriltlc
  5115. Greekc
  5116. Greeks
  5117.  
  5118. [STYLE]$S=X $S=style
  5119. [next]$s=x $s=F2
  5120. **F2 2
  5121. Gothice
  5122. Gothicg
  5123. Gothici
  5124. Italicc
  5125. Italict
  5126. Romanc
  5127. Romand
  5128. Romans
  5129. Romant
  5130. Scriptc
  5131. Scripts
  5132. Syastro
  5133. Symap
  5134. Symath
  5135. Symeteo
  5136. Symusic
  5137. [STYLE]$S=X $S=style
  5138. **STYLE 2
  5139. [STYLE:]^C^CSTYLE;
  5140. [?]?;
  5141. [example:]vslide (dd "/cci/cci(fonts)");STYLE \\\\\\\redraw;
  5142.  
  5143. [Fonts]$S=X $S=F1
  5144. [*icon*]$i=ifonts1 $i=*
  5145.  
  5146. [1]SCRIPT (dd "/cci/s1");STYLE  \ \;;;;
  5147. [2]SCRIPT (dd "/cci/s2");STYLE  \ \;;;;
  5148. [3]SCRIPT (dd "/cci/s3");STYLE  \ \;;;;
  5149. [4]SCRIPT (dd "/cci/s4");STYLE  \ \;;;;
  5150. [5]SCRIPT (dd "/cci/s5");STYLE  \ \;;;;
  5151.  
  5152. [SIDEPICK](nl c:pstyles "/cci/pstyles") pstyles;
  5153. [STYLECHG](nl textchg "/cci/stylechg")(stylechg);
  5154. [PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
  5155. [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);
  5156. [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)))
  5157. **DTEXT 2
  5158. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2 dtext;
  5159. [Center]ce;
  5160. Middle
  5161. Right
  5162. Align
  5163. Fit
  5164. Style
  5165.  
  5166. [TEXTMORE](nl "" "/cci/textmore");
  5167. [TEXTCOPY](nl "" "/cci/textcopy");
  5168. [PICKSTYL](nl c:pstyle "/cci/pstyle") pstyle;
  5169. [CHARARAY](nl "" "/cci/chararay");
  5170. [LEADTEXT]$S=X $S=BALLOON
  5171. [OVERLINE](nl "" "/cci/linetext");
  5172. [ARCTEXT](nl "" "/cci/arctext");
  5173. [IMPORT](nl "" "/cci/import");
  5174. [EXPORT](nl "" "/cci/export");
  5175. [TEXTSCR]$s=x $s=textscript
  5176. **AXIS 3
  5177. [AXIS:]^C^CAXIS;
  5178.  
  5179. [axs=snap]SNAP;
  5180.  
  5181. [ON]ON;
  5182. [OFF]OFF;
  5183. [Aspect]A;
  5184. **END 3
  5185. END ?
  5186.  
  5187. [Yes]^C^CEND;
  5188. [No]$S=S
  5189. **QUIT 3
  5190. QUIT ?
  5191.  
  5192. [Yes]^C^CQUIT Y;
  5193. [No]$S=S
  5194. **VAR1 2
  5195. [example]vslide (dd "/cci/cci(dimvar)");(princ " Hit any key to continue ")(princ)(grread);redraw dim;
  5196. [*icon*]$i=idimtog $i=*
  5197. [scale]'setvar dimscale;
  5198. [arr size]'setvar DIMASZ;
  5199. [tik size]'setvar DIMTSZ;
  5200. [txt size]'setvar DIMTXT;
  5201. [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);
  5202. [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);
  5203. [exttog](nl "" "/cci/dimext");
  5204. [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);
  5205. [block]$i=idimpoint $i=*
  5206. [block1]$i=idimpoint1 $i=*
  5207. [block2]$i=idimpoint2 $i=*
  5208. [assoc](if (= (getvar "dimaso") 0)(PROGN (setvar "dimaso" 1)(PRINC " Associative dim is ON "))(progn (setvar "dimaso" 0)(PRINC " Associative dim is OFF ")))(princ);
  5209. [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);
  5210. [dimcentr]'setvar DIMCEN;
  5211. [next]$S=X $S=VAR2
  5212. [DimMENU]$S=X $S=DIM
  5213. **VAR2 2
  5214. [toleranc](if (= (getvar "dimtol") 0)(PROGN (setvar "dimtol" 1)(PRINC " Dim tolerances are activated "))(progn (setvar "dimtol" 0)(PRINC " Dim tolerances are deactivated ")))(princ);
  5215. [limits](if (= (getvar "dimlim") 0)(PROGN (setvar "dimlim" 1)(PRINC " Dim Limits are activated "))(progn (setvar "dimlim" 0)(PRINC " Dim Limits are deactivated ")))(princ);
  5216. [set +]'setvar DIMTP;
  5217. [set -]'setvar DIMTM;
  5218. [extoffst]'setvar DIMEXO;
  5219. [dimexe]'setvar DIMEXE;
  5220. [dimdli]'setvar DIMDLI;
  5221. [dimdle]'setvar DIMDLE;
  5222. [roundoff]'setvar DIMRND;
  5223. [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);
  5224. [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);
  5225. [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);
  5226. [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);
  5227. [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);
  5228. [dimtvp]'SETVAR DIMTVP;
  5229. [next]$S=X $S=VAR3
  5230. [previous]$S=X $S=VAR1
  5231. [DimMENU]$S=X $S=DIM
  5232. **VAR3 2
  5233. [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);
  5234. [zerosupp]setvar dimzin;$i=idimzin $i=* 
  5235. [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);
  5236. [altsfact]'setvar DIMALTF;
  5237. [alt deci]'setvar DIMALTD;
  5238. [len fact]'setvar DIMLFAC;
  5239. [post str]DIM DIMPOST;
  5240. [alt post]DIM DIMAPOST;
  5241.  
  5242. [previous]$S=X $S=VAR2
  5243. [DimMENU]$S=X $S=DIM
  5244. **FORMAT 3
  5245. [assocdim]
  5246. [  ON](setvar "DIMASO" 1)(princ " Associative Dimensioning ON ")(princ);
  5247. [  OFF](setvar "DIMASO" 0)(princ " Associative Dimensioning OFF ")(princ);
  5248.  
  5249. [HOMETEXT]HOMETEXT;
  5250. [UPDATE]UPDATE;
  5251. [NEWTEXT]NEWTEXT;
  5252. [UPDATmor](nl dimupd "/cci/dimasupd")(dimupd);
  5253.  
  5254. [Window]Win;
  5255. [Last]Last;
  5256. [Previous]Pre;
  5257. [Crossing]Cr;
  5258. [Remove]Re;
  5259. [Add]Add;
  5260. [Undo]Un;
  5261. [DimMENU]$S=X $S=DIM
  5262. **LINETYPE 3
  5263. [LINETYP:]^C^CLINETYPE;
  5264. [?]LINETYPE ?;
  5265. [example:]VSLIDE (dd "/cci/cci(linetype)");LINETYPE \REDRAW LINETYPE;
  5266.  
  5267. [Load]Load;
  5268. [Create]Create;
  5269. [Set]S $S=CHLT \$S=
  5270.  
  5271. [Yes]Yes;
  5272. [No]No;
  5273. **LIMITS 3
  5274. [LIMITS:]^C^CLIMITS;
  5275.  
  5276. [On]ON;
  5277. [Off]OFF;
  5278. **SNAP 3
  5279. [SNAP:]^C^CSNAP;
  5280.  
  5281. [ON]ON;
  5282. [OFF]OFF;
  5283. [Aspect]ASPECT;
  5284. [Rotate]snap rotate;$i=isnaprot $i=*
  5285.  
  5286. [STANDARD]SNAP S S   R 0,0 0;
  5287. [ISO]SNAP S I ;
  5288. [ISOTOGGL];
  5289. [ALLSNAP](nl "" "/cci/allsnap");
  5290.  
  5291. [SNAPSET](if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=msnapset"))(progn (menucmd "s=x")(menucmd "s=snapset"))) 'setvar snapunit;
  5292. **SNAPSET 3
  5293. ['SNAPSET]'SETVAR SNAPUNIT;
  5294.  
  5295. [1/64].015625,.015625;$s= $s=
  5296. [1/32].03125,.03125;$s= $s=
  5297. [1/16].0625,.0625;$s= $s=
  5298. [1/8].125,.125;$s= $s=
  5299. [1/4].25,.25;$s= $s=
  5300. [1/2].5,.5;$s= $s=
  5301. [3/4].75,.75;$s= $s=
  5302. [ 1 ]1,1;$s= $s=
  5303. [ 2 ]2,2;$s= $s=
  5304. [ 3 ]3,3;$s= $s=
  5305. [ 4 ]4,4;$s= $s=
  5306. [ 6 ]6,6;$s= $s=
  5307. [ 8 ]8,8;$s= $s=
  5308. [ 10 ]10,10;$s= $s=
  5309. [ 1' ]12,12;$s= $s=
  5310. [ 2' ]24,24;$s= $s=
  5311. [ 4' ]48,48;$s= $s=
  5312. **MSNAPSET 3
  5313. ['SNAPSET]'SETVAR SNAPUNIT;
  5314.  
  5315. [10.00]10.0,10.0;$s= $s=
  5316. [5.000]5.00,5.00;$s= $s=
  5317. [2.000]2.00,2.00;$s= $s=
  5318. [1.000]1.00,1.00;$s= $s=
  5319. [ .500].500,.500;$s= $s=
  5320. [ .200].200,.200;$s= $s=
  5321. [ .100].100,.100;$s= $s=
  5322. [ .075].075,.075;$s= $s=
  5323. [ .050].050,.050;$s= $s=
  5324. [ .020].020,.020;$s= $s=
  5325. [ .010].010,.010;$s= $s=
  5326. [ .005].005,.005;$s= $s=
  5327. [ .001].001,.001;$s= $s=
  5328. [ .0005].0005,.0005;$s= $s=
  5329. **TABLET 3
  5330. [TABLET:]^C^CTABLET;
  5331.  
  5332. [cal]CAL;
  5333. [config]VSLIDE (dd "/cci/cci(tab)");TABLET CFG 4 25 9 11 9 9 13 25 7 Y;REDRAW;
  5334. [re-confg]VSLIDE (dd "/cci/cci(tab)");TABLET cfg 4 y 25 9 11 9 9 13 25 7 y;REDRAW;
  5335. [ON]ON;
  5336. [OFF]OFF;
  5337. [Yes]Yes;
  5338. [No]No;
  5339. **OSNAPC 3
  5340. [OSNAP:]^C^COSNAP;
  5341.  
  5342. [CENter]CENTER,\
  5343. [ENDpoint]ENDPOINT,\
  5344. [INSert]INSERT,\
  5345. [INTersec]INTERSEC,\
  5346. [MIDpoint]MIDPOINT,\
  5347. [NEArest]NEAREST,\
  5348. [NODe]NODE,\
  5349. [PERpend]PERPEND,\
  5350. [QUAdrant]QUADRANT,\
  5351. [TANgent]TANGENT,\
  5352.  
  5353. [None]OSNAP NONE $S= $S=
  5354. [Quick,]QUICK,^Z
  5355. **DRAGMODE 3
  5356. [DRAGMODE]^C^CDRAGMODE;
  5357.  
  5358. [ON]ON $S=S
  5359. [OFF]OFF $S=S
  5360. [Auto]Auto $S=S
  5361. **GRID 3
  5362. [GRID:]^C^CGRID;
  5363. [grd=snap]SNAP;
  5364. [Aspect]Aspect;
  5365. [1/16].0625;
  5366. [1/8].125;
  5367. [1/4].25;
  5368. [1/2].5;
  5369. [ 1 ]1;
  5370. [ 2 ]2;
  5371. [ 4 ]4;
  5372. [ 6 ]6;
  5373. [ 8 ]8;
  5374. [ 10 ]10;
  5375. [ 12 ]12;
  5376. [ 2']24;
  5377. [ 5']60;
  5378. [ 10']120;
  5379. **GRIDM 3
  5380. [GRID:]^C^CGRID;
  5381. [grd=snap]SNAP;
  5382. [Aspect]Aspect;
  5383. [10.00]10.0;
  5384. [5.000]5.00;
  5385. [2.000]2.00;
  5386. [1.000]1.00;
  5387. [ .500].500;
  5388. [ .200].200;
  5389. [ .100].100;
  5390. [ .075].075;
  5391. [ .050].050;
  5392. [ .020].020;
  5393. [ .010].010;
  5394. [ .005].005;
  5395. [ .001].001;
  5396. [ .0005].0005;
  5397.  
  5398. **SETVAR 3
  5399. [SETVAR:]^C^CSETVAR;
  5400. [?]?;
  5401.  
  5402. ['SETVAR]'SETVAR;
  5403. [AFLAG]'SETVAR AFLAGS;
  5404. [BLIPMODE]'SETVAR BLIPMODE;
  5405. [DRAGMODE]'SETVAR DRAGMODE;
  5406. [ELEV]'SETVAR ELEVATION;
  5407. [EXPERT]'SETVAR EXPERT;
  5408. [LTSCALE]'SETVAR LTSCALE;
  5409. [MIRRTEXT]'SETVAR MIRRTEXT;
  5410. [PDMODE]'SETVAR PDMODE;
  5411. [PDSIZE]'SETVAR PDSIZE;
  5412. [THICKN]'SETVAR THICKNESS;
  5413.  
  5414. **QTEXT 3
  5415. [QTEXT:]^C^CQTEXT;
  5416.  
  5417. [ON]ON;
  5418. [OFF]OFF;
  5419. [REGEN:]REGEN;
  5420. **VIEWRES 3
  5421. [VIEWRES:]^C^CVIEWRES;
  5422.  
  5423. [No]No;
  5424. [Yes]Yes;
  5425.  
  5426. 100
  5427. 500
  5428. 750
  5429. 1000
  5430.  
  5431. [RGNAUTO:]^C^CREGENAUTO;
  5432. **APERTURE 3
  5433. [select]
  5434. [ size]
  5435.  
  5436. [1]1;
  5437. [2]2;
  5438. [3]3;
  5439. [4]4;
  5440. [5]5;
  5441. [6]6;
  5442. [7]7;
  5443. [8]8;
  5444. [9]9;
  5445. [10]10;
  5446. [15]15;
  5447. **ARRAY 3
  5448. [ARRAY:]^C^CARRAY;
  5449. [ANGARRAY](nl "" "/cci/angarray");
  5450. [3DARRAY](nl c:3darray "/cci/3darray") 3darray;
  5451. [3DANGARR](nl c:3dangarr "/cci/3dangarr") 3dangarr;
  5452.  
  5453. [Auto]auto;
  5454. [Window]Win;
  5455. [Last]Last;
  5456. [Previous]Pre;
  5457. [Crossing]Cr;
  5458. [Remove]Re;
  5459. [Add]Add;
  5460. [Undo]Un;
  5461.  
  5462. [Rectang]Rectang;
  5463. [Polar]Polar;
  5464. [Circular]Cir;
  5465. **ROTATE 3
  5466. [ROTATE:]^C^CROTATE;
  5467. [3DROTATE](nl c:3drotate "/cci/3drotate") 3drotate;
  5468. [AXROT](nl c:axrot "/cci/axrot") axrot;
  5469.  
  5470. [Auto]auto;
  5471. [Window]Win;
  5472. [Last]Last;
  5473. [Previous]Pre;
  5474. [Crossing]Cr;
  5475. [Remove]Re;
  5476. [Add]Add;
  5477. [Undo]Un;
  5478.  
  5479. [Referenc]R;
  5480.  
  5481. [MOVE-ROT](nl c:mr "/cci/moverot") mr;
  5482. [ROT-MOVE](nl c:rm "/cci/rotmove") rm;
  5483. **SELECT 3
  5484. [SELECT:]^C^CSELECT;
  5485.  
  5486. [Auto]auto;
  5487. [Single]Single;
  5488. [Window]Win;
  5489. [Last]Last;
  5490. [Previous]Pre;
  5491. [Crossing]Cr;
  5492. [Remove]Re;
  5493. [Add]Add;
  5494. [Undo]Un;
  5495. **SCALE 3
  5496. [SCALE:]^C^CSCALE;
  5497.  
  5498. [Auto]auto;
  5499. [Single]Single;
  5500. [Window]Win;
  5501. [Last]Last;
  5502. [Previous]Pre;
  5503. [Crossing]Cr;
  5504. [Remove]Re;
  5505. [Add]Add;
  5506. [Undo]Un;
  5507.  
  5508. [Referenc]Ref;
  5509.  
  5510. [BLKSCALE](nl "" "/cci/blkscale");
  5511. **BREAK 3
  5512. [BREAK:]^C^CBREAK;
  5513.  
  5514. [BREAK F]^C^CBREAK \F;
  5515. [BREAK @0]^C^CBREAK \F \@;
  5516. [BRKLOOP](nl "" "/cci/brkloop");
  5517. **MOVE 3
  5518. [MOVE:]^C^CMOVE auto;
  5519.  
  5520. [Window]Win;
  5521. [Last]Last;
  5522. [Previous]Pre;
  5523. [Crossing]Cr;
  5524.  
  5525. [end-end]endp \endp;
  5526. [end-mid]endp \midp;
  5527. [mid-mid]midp \midp;
  5528.  
  5529. [MOVE-ROT](nl c:mr "/cci/moverot") mr;
  5530. [ROT-MOVE](nl c:rm "/cci/rotmove") rm;
  5531. [MOVEOBJ]mo;
  5532. **COPY 3
  5533. [COPY:]^C^CCOPY auto;
  5534.  
  5535. [Multiple]Mult;
  5536. [Window]Win;
  5537. [Last]Last;
  5538. [Previous]Pre;
  5539. [Crossing]Cr;
  5540.  
  5541. [end-end]endp \endp;
  5542. [end-mid]endp \midp;
  5543. [mid-mid]midp \midp;
  5544.  
  5545. [COPY-ROT](nl c:cr "/cci/copyrot") cr;
  5546. [ROT-COPY](nl c:rc "/cci/rotcopy") rc;
  5547. **UNDO 3
  5548. [UNDO:]^C^CUNDO;
  5549.  
  5550. [Back 1]^C^CUNDO 1;
  5551.  
  5552. [Auto]Auto;
  5553. [Back]Back;
  5554. [End]En;
  5555. [Group]Gr;
  5556. [Mark]Mark;
  5557. [Control]$S=UNDOC Control;
  5558.  
  5559. [Yes]Yes;
  5560. [No]No;
  5561.  
  5562. [REDO:]REDO;
  5563. **UNDOC 11
  5564. [All]All;
  5565. [None]None;
  5566. [One]One;
  5567. **ERASE 3
  5568. [ERASE:]^C^CERASE auto;
  5569.  
  5570. [Auto]auto;
  5571. [Single]Single;
  5572. [Window]Win;
  5573. [Last]Last;
  5574. [Previous]Pre;
  5575. [Crossing]Cr;
  5576. [Remove]Re;
  5577. [Add]Add;
  5578. [Undo]Un;
  5579.  
  5580. [OOPS:]^C^COOPS;
  5581. [ERASER](nl "" "/cci/eraser");
  5582. [ERASEOUT](nl "" "/cci/eraseout");
  5583. [ERASENT](nl "" "/cci/eraseent");
  5584. [DELAYER](nl "" "/cci/dellayr")(dellayr);
  5585. **P0 2
  5586. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  5587. [Last]Last;
  5588. [Yes]Yes;
  5589. [No]No;
  5590. [Close]Close;
  5591. [Open]Open;
  5592. [Join]Join;
  5593. [Width]Wid;
  5594. [Ed Vrtx]Ed $s=x $S=PVERTED
  5595. [Spline]spline;
  5596. [Fit Curv]Fit;
  5597. [Decurve]Dec;
  5598. [Undo]U;
  5599. [eXit]X $S=S
  5600. [SavWidth](nl "" "/cci/widthsav");
  5601. [UseWidth]w (princ (rtos pwid1))(princ) !pwid1
  5602. [PolyVars]$S=X $S=PVARS $i=ipoly $i=*
  5603. [Polywid](nl "" "/cci/polywid");
  5604. **P8 3
  5605. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  5606.  
  5607. [Last]Last;
  5608. [Close]Close;
  5609. [Open]Open;
  5610. [Ed Vrtx]Ed $s=x $S=3DPVERTED
  5611. [Spline]spline;
  5612. [Decurve]Dec;
  5613. [Undo]U;
  5614. [eXit]X $S=S
  5615.  
  5616. [PolyVars]$S=X $S=PVARS $i=ipoly $i=*
  5617. **P16 3
  5618. [PEDIT:]^C^C(nl c:peditm "/cci/peditm") peditm;
  5619.  
  5620. [Ed Vrtx]E $S=X $S=3DMVERTED
  5621. [Smooth]smooth;
  5622. [Desmooth]desmooth;
  5623. [Mclose]mclose;
  5624. [Nclose]nclose;
  5625. [Mopen]mopen;
  5626. [Nopen]nopen;
  5627. [Undo]U;
  5628. [eXit]^C^C$S=X $S=S 
  5629.  
  5630. [PolyVars]$S=X $S=PVARS $i=ipoly $i=*
  5631. **PVARS 3
  5632. [Polyvars]$i=ipoly $i=*
  5633.  
  5634. [SPLframe]'SETVAR SPLFRAME
  5635. [ On]1
  5636. [ Off]0
  5637. [SPLsegs]'SETVAR SPLINESEGS
  5638. [SPLtype]'SETVAR SPLINETYPE
  5639. [ Quad]5
  5640. [ Cubic]6
  5641. [SURFtype]'SETVAR SURFTYPE
  5642. [ Quad]5
  5643. [ Cubic]6
  5644. [ Bezier]8
  5645. [UDensity]'SETVAR SURFU
  5646. [VDensity]'SETVAR SURFV
  5647.  
  5648. **PVERTED 3
  5649. [ed vrtx]
  5650.  
  5651. [next]Next;
  5652. [previous]Pre;
  5653. [break]Break;
  5654. [insert]Insert;
  5655. [move]Move;
  5656. [straight]Str;
  5657. [width]Wid;
  5658. [tangent]Tang;
  5659. [go]Go;
  5660. [regen]Regen;
  5661. [undo]X U $S=X $S=P0
  5662. [eXit]X $S=X $S=P0
  5663. **3DPVERTED 3
  5664. [ed vrtx]
  5665.  
  5666. [next]Next;
  5667. [previous]Pre;
  5668. [break]Break;
  5669. [insert]Insert;
  5670. [move]Move;
  5671. [straight]Str;
  5672. [regen]Regen;
  5673. [eXit]X $S=X $S=P8
  5674. **3DMVERTED 3
  5675. [ed vrtx]
  5676.  
  5677. [next]Next;
  5678. [previous]Pre;
  5679. [Left]left;
  5680. [Right]right;
  5681. [Up]up;
  5682. [Down]down;
  5683. [move]Move;
  5684. [regen]Regen;
  5685. [eXit]X $S=X $S=P16
  5686. **TRIM 3
  5687. [TRIM:]^C^CTRIM;
  5688.  
  5689. [Auto]auto;
  5690. [Single]Single;
  5691. [Window]Win;
  5692. [Last]Last;
  5693. [Previous]Pre;
  5694. [Crossing]Cr;
  5695. [Remove]Re;
  5696. [Add]Add;
  5697. [Undo]Un;
  5698.  
  5699. [LINETRIM](nl "" "/cci/linetrim");
  5700. [ERASEOUT](nl "" "/cci/eraseout");
  5701. **ATTEXT 3
  5702. [ATTEXT:]^C^CATTEXT;
  5703. [CDF]CDF;
  5704. [SDF]SDF;
  5705. [DXF]DXF;
  5706. [ENTITIES]ENTITIES;
  5707.  
  5708. [BILLMAT](setq temp (strcase (getstring " Enter template file (extension .txt assumed) <temp>: ")))(if (= temp "")(setq temp "TEMP"))(nl billmat "/cci/billmat")(billmat temp);
  5709. [TAMLLIB](nl tamllib "/cci/tamllib")(tamllib);
  5710. [TEMPLAT](nl "" "/cci/tplate");
  5711. **SLIDES 3
  5712. [MSLIDE:]^C^CMSLIDE;
  5713.  
  5714. [Yes]Yes;
  5715. [No]No;
  5716.  
  5717. [VSLIDE:]^C^CVSLIDE;
  5718. [SLIDSHOW](nl "" "/cci/slidshow");
  5719. **SCRIPT 3
  5720. [SCRIPT:]^C^CSCRIPT;
  5721.  
  5722. [DELAY:]DELAY;
  5723. [RESUME:]RESUME;
  5724. [RSCRIPT:]RSCRIPT;
  5725.  
  5726. [USER 1]script (dd "/custom/user1");
  5727. [USER 2]script (dd "/custom/user2");
  5728. [USER 3]script (dd "/custom/user3");
  5729. [USER 4]script (dd "/custom/user4");
  5730. [USER 5]script (dd "/custom/user5");
  5731. [USER 6]script (dd "/custom/user6");
  5732. [USER 7]script (dd "/custom/user7");
  5733. [USER 8]script (dd "/custom/user8");
  5734.  
  5735. [LASCRIPT](nl "" "/cci/lascript");
  5736. **PURGE 3
  5737. [PURGE:]^C^CPURGE;
  5738. [Blocks]Block;
  5739. [LAyers]LAy;
  5740. [LTypes]LTy;
  5741. [STyles]STy;
  5742. [SHapes]SHa;
  5743. [All]All;
  5744.  
  5745. [Yes]Yes;
  5746. [No]No;
  5747. **RENAME 3
  5748. [RENAME:]^C^CRENAME;
  5749. [Blocks]Block;
  5750. [LAyers]LAy;
  5751. [LTypes]LTy;
  5752. [Styles]Sty;
  5753. [View]View;
  5754.  
  5755. [Ucs]ucs;
  5756. [VPort]VPORT;
  5757.  
  5758. [Yes]Yes;
  5759. [No]No;
  5760. **DXF 3
  5761. [DXFIN:]^C^CDXFIN;
  5762.  
  5763. [DXFOUT:]^C^CDXFOUT;
  5764. [16]16;
  5765. [ENTITIES]ENTITIES;
  5766.  
  5767. [Window]Win;
  5768. [Last]Last;
  5769. [Previous]Pre;
  5770. [Crossing]Cr;
  5771. [Remove]Re;
  5772. [Add]Add;
  5773. [Undo]Un;
  5774.  
  5775. [DXBIN:]^C^CDXBIN;
  5776.  
  5777. [IGESIN:]^C^CIGESIN;
  5778. [IGESOUT:]^C^CIGESOUT;
  5779. **EXTEND 3
  5780. [EXTEND:]^C^CEXTEND;
  5781.  
  5782. [Auto]auto;
  5783. [Single]Single;
  5784. [Window]Win;
  5785. [Last]Last;
  5786. [Previous]Pre;
  5787. [Crossing]Cr;
  5788. [Remove]Re;
  5789. [Add]Add;
  5790. [Undo]Un;
  5791. **STRETCH 3
  5792. [STRETCH:]^C^CSTRETCH C;
  5793.  
  5794. [Auto]auto;
  5795. [Single]Single;
  5796. [Window]Win;
  5797. [Last]Last;
  5798. [Previous]Pre;
  5799. [Crossing]Cr;
  5800. [Remove]Re;
  5801. [Add]Add;
  5802. [Undo]Un;
  5803.  
  5804. [ST2DIM](nl "" "/cci/st2dim");
  5805. [ST REMOV]str;
  5806. **MIRROR 3
  5807. [MIRROR:]^C^CMIRROR auto;
  5808.  
  5809. [Auto]auto;
  5810. [Single]Single;
  5811. [Window]Win;
  5812. [Last]Last;
  5813. [Previous]Pre;
  5814. [Crossing]Cr;
  5815. [Remove]Re;
  5816. [Add]Add;
  5817. [Undo]Un;
  5818.  
  5819. [Yes]Yes;
  5820. [No]No;
  5821. [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)))
  5822. **FILLET 2
  5823. [FILLET]FILLET;
  5824. [ Pline]fillet p;
  5825.  
  5826. [0]FILLET R 0 FILLET;
  5827. [1/64]FILLET R .015625 FILLET;
  5828. [1/32]FILLET R .03125 FILLET;
  5829. [1/16]FILLET R .0625 FILLET;
  5830. [1/8]FILLET R .125 FILLET;
  5831. [1/4]FILLET R .25 FILLET;
  5832. [1/2]FILLET R .5 FILLET;
  5833. [1"]FILLET R 1 FILLET;
  5834. [2"]FILLET R 2 FILLET;
  5835. [6"]FILLET R 6 FILLET;
  5836. [1']FILLET R 12 FILLET;
  5837. [2']FILLET R 24 FILLET;
  5838. [PICK RAD](nl "" "/cci/fradpick")(PRINC);
  5839. [RECALL R]FILLET R !FILLRAD FILLET;
  5840. [SAVE R](princ "SAVING RADIUS ")(SETQ FILLRAD (GETVAR "FILLETRAD"))(PRINC);
  5841. **MFILLET 2
  5842. [FILLET]FILLET;
  5843. [10.00]FILLET R 10.0;FILLET;
  5844. [5.000]FILLET R 5.00;FILLET;
  5845. [2.000]FILLET R 2.00;FILLET;
  5846. [1.000]FILLET R 1.00;FILLET;
  5847. [ .500]FILLET R .500;FILLET;
  5848. [ .200]FILLET R .200;FILLET;
  5849. [ .100]FILLET R .100;FILLET;
  5850. [ .075]FILLET R .075;FILLET;
  5851. [ .050]FILLET R .050;FILLET;
  5852. [ .020]FILLET R .020;FILLET;
  5853. [ .010]FILLET R .010;FILLET;
  5854. [ .005]FILLET R .005;FILLET;
  5855. [ .001]FILLET R .001;FILLET;
  5856. [ 0]FILLET R 0 FILLET;
  5857. [PICK RAD](nl "" "/cci/fradpick")(PRINC);
  5858. [RECALL R]FILLET R !FILLRAD FILLET;
  5859. [SAVE R](PRINC "SAVING RADIUS ")(SETQ FILLRAD (GETVAR "FILLETRAD"))(PRINC);
  5860. **CHAMFER 3
  5861. [CHAMFER:]^C^CCHAMFER;
  5862. [distance]CHAMFER D \\CHAMFER;
  5863. [polyline]CHAMFER P;
  5864.  
  5865. [ 0]CHAMFER D 0 0 CHAMFER;
  5866. [1/64]CHAMFER D .015625 .015625 CHAMFER;
  5867. [1/32]CHAMFER D .03125 .03125 CHAMFER;
  5868. [1/16]CHAMFER D .0625 .0625 CHAMFER;
  5869. [1/8]CHAMFER D .125 .125 CHAMFER;
  5870. [1/4]CHAMFER D .25 .25 CHAMFER;
  5871. [1/2]CHAMFER D .5 .5 CHAMFER;
  5872. [1"]CHAMFER D 1 1 CHAMFER;
  5873. [2"]CHAMFER D 2 2 CHAMFER;
  5874. [6"]CHAMFER D 6 6 CHAMFER;
  5875. [1']CHAMFER D 12 12 CHAMFER;
  5876.  
  5877. [RECALL D]CHAMFER D !CHAMDST1 !CHAMDST2 CHAMFER;
  5878. [SAVE D](PRINC "SAVING CHAMFERS ")(setq chamdst1 (getvar "chamfera") chamdst2 (getvar "chamferb"))(PRINC);
  5879. **MCHAMFER 3
  5880. [CHAMFER:]^C^CCHAMFER;
  5881. [distance]CHAMFER D \\CHAMFER;
  5882. [polyline]CHAMFER P;
  5883. [10.00]CHAMFER D 10.0;;CHAMFER;
  5884. [5.000]CHAMFER D 5.00;;CHAMFER;
  5885. [2.000]CHAMFER D 2.00;;CHAMFER;
  5886. [1.000]CHAMFER D 1.00;;CHAMFER;
  5887. [ .500]CHAMFER D .500;;CHAMFER;
  5888. [ .100]CHAMFER D .100;;CHAMFER;
  5889. [ .075]CHAMFER D .075;;CHAMFER;
  5890. [ .050]CHAMFER D .050;;CHAMFER;
  5891. [ .020]CHAMFER D .020;;CHAMFER;
  5892. [ .010]CHAMFER D .010;;CHAMFER;
  5893. [ .005]CHAMFER D .005;;CHAMFER;
  5894. [ .001]CHAMFER D .001;;CHAMFER;
  5895. [ .0005]CHAMFER D .000;;CHAMFER;
  5896. [ 0]CHAMFER D 0 0 CHAMFER;
  5897. [RECALL D]CHAMFER D !CHAMDST1 !CHAMDST2 CHAMFER;
  5898. [SAVE D](PRINC "SAVING CHAMFERS ")(setq chamdst1 (getvar "chamfera") chamdst2 (getvar "chamferb"))(PRINC);
  5899. **DIVIDE 3
  5900. [DIVIDE:]^C^CDIVIDE;
  5901.  
  5902. [Block]Block;
  5903. [Yes]Yes;
  5904. [No]No;
  5905.  
  5906. [SETPOINT]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW DIVIDE;
  5907. [PDMODE 0]'SETVAR PDMODE 0
  5908.  
  5909. [DIVCOPY](nl c:dc "/cci/divcopy") dc;
  5910. **MEASURE 3
  5911. [MEASURE:]^C^CMEASURE;
  5912.  
  5913. [Block]Block;
  5914. [Yes]Yes;
  5915. [No]No;
  5916.  
  5917. [SETPOINT]^C^CVSLIDE (dd "/cci/cci(points)");'SETVAR PDMODE \REDRAW MEASURE;
  5918. [PDMODE 0]'SETVAR PDMODE 0
  5919. **EXPLODE 3
  5920. [EXPLODE:]^C^CEXPLODE;
  5921.  
  5922. [LEXPLODE](nl c:lexplode "/cci/lexplode") lexplode;
  5923. [POLYEXP](nl "" "/cci/polyexp");
  5924. **CHANGE 2
  5925. [CHANGE:]^C^CCHANGE auto;
  5926. [Window]Win;
  5927. [Last]Last;
  5928. [Previous]Pre;
  5929. [Crossing]Cr;
  5930. [Remove]Re;
  5931. [Add]Add;
  5932. [Undo]Un;
  5933.  
  5934. [Color]PROP COLOR $s=x $S=CHCOLOR \$S= $s=
  5935. [Elev]PROP ELEV;
  5936. [Layer]PROP La;
  5937. [LType]PROP LT $s=x $S=CHLT \$S= $s=
  5938. [Thicknes]PROP THICKNESS;
  5939. [TEXT]$S=X $S=CHANGETXT
  5940. [BLOCK]$S=X $S=CHGBLK
  5941. [CHCOLOR](nl "" "/cci/chcolor");
  5942. [CHLAYER](if (/= sdscrn "Y")(nl "" "/cci/chlay")(nl "" "/cci/chlays"))(princ) chlay;
  5943. **CHPROP 3
  5944. [CHPROP:]^C^CCHPROP;
  5945.  
  5946. [Window]Win;
  5947. [Last]Last;
  5948. [Previous]Pre;
  5949. [Crossing]Cr;
  5950.  
  5951. [Color]PROP COLOR $S=CHCOLOR \$S=X $S=CHPROP
  5952. [LAyer]PROP LA;
  5953. [LType]PROP LT $S=CHLT \$S=X $S=CHPROP
  5954. [Thicknes]PROP THICKNESS;
  5955. **CHANGETXT 3
  5956. [--------]
  5957. [all at]
  5958. [ once]
  5959.  
  5960. [TEXTCHG](nl textchg "/cci/textchg")(textchg);
  5961. [TXTOUTIN](nl "" "/cci/txtoutin");
  5962.  
  5963. [--------]
  5964. [one at a]
  5965. [ time]
  5966.  
  5967. [STYLE](SETQ TEMP "S")(nl textmod "/cci/textmod")(TEXTMOD);
  5968. [HEIGHT](SETQ TEMP "H")(nl textmod "/cci/textmod")(TEXTMOD);
  5969. [ANGLE](SETQ TEMP "A")(nl textmod "/cci/textmod")(TEXTMOD);
  5970. [TEXT](SETQ TEMP "T")(nl textmod "/cci/textmod")(TEXTMOD);
  5971.  
  5972. [EDITTEXT](nl c:chgtext "/cci/chgtext") chgtext;
  5973. **CHGBLK 3
  5974. [blocks]
  5975. [ only]
  5976.  
  5977. [MOVE]CHANGE \  \;
  5978. [ROTATE]CHANGE \   \
  5979. [MOVE-ROT]CHANGE \ ;
  5980. [ROT-MOVE]CHANGE \   \ P   \;
  5981.  
  5982. [COPY]CB
  5983.  
  5984. [BLKscale](nl "" "/cci/blkscale");
  5985. [BLKrot](nl angblk "/cci/angblk")(angblk);
  5986. [XYZscale](nl xyzblk "/cci/xyzblk")(xyzblk);
  5987. [REDEFINE](nl redfblk "/cci/redfblk")(redfblk);
  5988. [REPLACE](nl "" "/cci/replblk");
  5989. [BSWAP](nl "" "/cci/bswap");
  5990. **CHCOLOR 3
  5991. [color]
  5992.  
  5993. [bylayer]BYLAYER;
  5994. [byblock]BYBLOCK;
  5995.  
  5996. [red]RED;
  5997. [yellow]YELLOW;
  5998. [green]GREEN;
  5999. [cyan]CYAN;
  6000. [blue]BLUE;
  6001. [magenta]MAGENTA;
  6002. [white]WHITE;
  6003.  
  6004. [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;
  6005. **CHLT 3
  6006. [ltype]
  6007.  
  6008. [bylayer]BYLAYER;
  6009. [byblock]BYBLOCK;
  6010.  
  6011. [contin.]CONTINUOUS;
  6012. [dashed]DASHED;
  6013. [hidden]HIDDEN;
  6014. [center]CENTER;
  6015. [phantom]PHANTOM;
  6016. [dot]DOT;
  6017. [dashdot]DASHDOT;
  6018. [border]BORDER;
  6019. **COLOR 3
  6020. [COLOR:]^C^CCOLOR;
  6021.  
  6022. [bylayer]BYLAYER;
  6023. [byblock]BYBLOCK;
  6024.  
  6025. [red]RED;
  6026. [yellow]YELLOW;
  6027. [green]GREEN;
  6028. [cyan]CYAN;
  6029. [blue]BLUE;
  6030. [magenta]MAGENTA;
  6031. [white]WHITE;
  6032.  
  6033. [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;
  6034. **ATTEDIT 3
  6035. [ATTEDIT:]^C^CATTEDIT;
  6036.  
  6037. [TXTVAL 1]*ATTEDIT     \ V  \;
  6038. [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  \;
  6039. [ANGLE0 1]*ATTEDIT     \ A 0  
  6040. [ANGLE0 W]ATTEDIT     W \\AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 N AN 0 +
  6041. 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 +
  6042. 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 
  6043. [ATT move]*ATTEDIT     \ P \ 
  6044. [ANG0 M 1]*ATTEDIT     \ A 0 P \ 
  6045. [ANG0 M W]ATTEDIT     W \\AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \N AN 0 PO \+
  6046. 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 \+
  6047. 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 \
  6048. [Height]HEI;
  6049. [Angle]ANG;
  6050. [Layer]Lay;
  6051. [Color]$S=X $S=ATTCOLOR C;
  6052. [Style]Style;
  6053. [Next]Next;
  6054. [DDATTE]ddatte;
  6055. [NUMSHIFT](nl "" "/cci/numshift");
  6056. **ATTCOLOR 3
  6057. [color] 
  6058.  
  6059. [red]RED $S= $S=
  6060. [yellow]YELLOW $S= $S=
  6061. [green]GREEN $S= $S=
  6062. [cyan]CYAN $S= $S=
  6063. [blue]BLUE $S= $S=
  6064. [magenta]MAGENTA $S= $S=
  6065. [white]WHITE $S= $S=
  6066. **UCS1 2
  6067. [UCS:]^C^CUCS;
  6068. [DDUCS:]^C^CDDUCS
  6069. [UCSsetup](nl "" "/cci/ucssetup");
  6070. [Presets]^C^C$i=iucs $i=*
  6071. [Del]del;
  6072. [World]world;
  6073. [Previous]prev;
  6074. [New]New;
  6075. [Restore]restore;
  6076.  
  6077. [3P]3p;
  6078. [XRot]x;
  6079. [Yrot]y;
  6080. [Zrot]z;
  6081. [View]view;
  6082. [RENAME:]^C^CRename UCS;
  6083. [?]?;
  6084. **UCSICON 3
  6085. [UCSICON:]^C^CUCSICON;
  6086.  
  6087. [ON]on;
  6088. [OFF]off;
  6089.  
  6090. [All]all;
  6091. [Origin]origin;
  6092. [Noorigin]noorigin;
  6093. **PLAN 3
  6094. [PLAN:]^C^CPLAN;
  6095.  
  6096. [UCS]ucs;
  6097. [World]world;
  6098.  
  6099. ['Follow]'SETVAR UCSFOLLOW
  6100. **HANDLE 3
  6101. [HANDLES:]^C^CHANDLES;
  6102.  
  6103. [ON]ON;
  6104. [DESTROY]DESTROY;
  6105.  
  6106. [Status]Stat;
  6107. **MUNITS 2
  6108.  
  6109. [unit    ]
  6110. [type   ]
  6111.  
  6112.  
  6113. [SCIENTFC]1;
  6114.  
  6115. [DECIMAL ]2;
  6116.  
  6117. [ENGINRNG]3;
  6118.  
  6119.  
  6120.  
  6121.  
  6122.  
  6123.  
  6124.  
  6125.  
  6126.  
  6127. **MU2 2
  6128. [Metric  ]
  6129. [Decimal ]
  6130.  
  6131. [ 1:5000 ]5000.0;
  6132. [ 1:2000 ]2000.0;
  6133. [ 1:1000 ]1000.0;
  6134. [ 1:500  ]500.0;
  6135. [ 1:200  ]200.0;
  6136.  
  6137. [ 1:100  ]100.0;
  6138. [ 1:75   ]75.0;
  6139. [ 1:50   ]50.0;
  6140. [ 1:20   ]20.0;
  6141. [ 1:10   ]10.0;
  6142. [ 1:5    ]5.0;
  6143. [ 1:2    ]2.0;
  6144. [  FULL  ]1.0;
  6145.  
  6146. [OTHER  >]0;
  6147. **MU3 2
  6148.  
  6149. [enginrng]
  6150. [scale   ]
  6151.  
  6152.  
  6153. [ 1:50000]50000.0;
  6154. [ 1:20000]20000.0;
  6155. [ 1:10000]10000.0;
  6156. [ 1:7500 ]7500.0;
  6157.  
  6158. [ 1:5000 ]5000.0;
  6159. [ 1:2000 ]2000.0;
  6160. [ 1:1000 ]1000.0;
  6161. [ 1:500  ]500.0;
  6162. [ 1:200  ]200.0;
  6163.  
  6164.  
  6165. [OTHER  >]0;
  6166.  
  6167.  
  6168. **MP1 2
  6169. [plotter]
  6170. [ type ]
  6171.  
  6172. [calcomp]
  6173. [ 1043]2;$S=METRIC
  6174.  
  6175. [hewlett]
  6176. [packard]
  6177. [ 7470]3;$S=METRIC
  6178. [ 7475]3;$S=METRIC
  6179. [ 7585]4;$S=METRIC
  6180.  
  6181. [houston]
  6182. [instrum]
  6183. [DMP41/51]5;$S=METRIC
  6184. [DMP42/52]5;$S=METRIC
  6185.  
  6186. [NONE]0;$S=METRIC
  6187. [OTHER]0;$S=MTERIC
  6188. **UNITS 2
  6189.  
  6190. [unit    ]
  6191. [type   ]
  6192.  
  6193.  
  6194. [SCIENTFC]1;
  6195.  
  6196. [DECIMAL ]2;
  6197.  
  6198. [ENGINRNG]3;
  6199.  
  6200. [ARCHTECT]4;
  6201.  
  6202. [METRIC  ]5;
  6203.  
  6204.  
  6205.  
  6206.  
  6207.  
  6208.  
  6209. **U1 2
  6210.  
  6211. [scientfc]
  6212. [scale   ]
  6213.  
  6214.  
  6215. [4 TIMES ]4.0;
  6216.  
  6217. [2 TIMES ]2.0;
  6218.  
  6219. [FULL    ]1.0;
  6220.  
  6221. [HALF    ]0.5;
  6222.  
  6223. [QUARTER ]0.25;
  6224.  
  6225. [OTHER   ]0;
  6226.  
  6227.  
  6228.  
  6229.  
  6230. **U2 2
  6231. [decimal ]
  6232. [scale   ]
  6233.  
  6234. [8 TIMES ]0.125;
  6235.  
  6236. [4 TIMES ]0.25;
  6237.  
  6238. [2 TIMES ]0.5;
  6239.  
  6240. [FULL    ]1.0;
  6241.  
  6242. [ 3/4    ]1.5;
  6243.  
  6244. [ 1/2    ]2.0;
  6245.  
  6246. [ 1/4    ]4.0;
  6247.  
  6248. [ 1/8    ]8.0;
  6249.  
  6250. [OTHER  >]0;
  6251. **U3 2
  6252.  
  6253. [enginrng]
  6254. [scale   ]
  6255.  
  6256. [1"=10'  ]120.0;
  6257. [1"=20'  ]240.0;
  6258.  
  6259. [1"=30'  ]360.0;
  6260. [1"=40'  ]480.0;
  6261.  
  6262. [1"=50'  ]600.0;
  6263. [1"=60'  ]720.0;
  6264.  
  6265. [1"=80'  ]960.0;
  6266. [1"=100' ]1200.0;
  6267. [1"=200' ]2400.0;
  6268. [1"=300' ]3600.0;
  6269.  
  6270. [OTHER  >]0;
  6271.  
  6272. **U4 2
  6273. [archtect]
  6274. [1/64"=1']768.0;
  6275. [1/40"=1']480.0;
  6276. [1/32"=1']384.0;
  6277. [1/20"=1']240.0;
  6278. [1/16"=1']192.0;
  6279. [3/32"=1']128.0;
  6280. [ 1/8"=1']96.0;
  6281. [3/16"=1']64.0;
  6282. [ 1/4"=1']48.0;
  6283. [ 3/8"=1']32.0;
  6284. [ 1/2"=1']24.0;
  6285. [ 3/4"=1']16.0;
  6286. [   1"=1']12.0;
  6287. [1-1/2"=1]8.0;
  6288. [   3"=1']4.0;
  6289. [   6"=1']2.0;
  6290. [  FULL  ]1.0;
  6291. [1"=n']$S=X $S=U3
  6292. [OTHER  >]0;
  6293. **U5 2
  6294.  
  6295. [metric  ]
  6296.  
  6297. [ 1:5000 ]5000.0;
  6298. [ 1:2000 ]2000.0;
  6299. [ 1:1000 ]1000.0;
  6300. [ 1:500  ]500.0;
  6301. [ 1:200  ]200.0;
  6302.  
  6303. [ 1:100  ]100.0;
  6304. [ 1:75   ]75.0;
  6305. [ 1:50   ]50.0;
  6306. [ 1:20   ]20.0;
  6307. [ 1:10   ]10.0;
  6308. [ 1:5    ]5.0;
  6309. [  FULL  ]1.0;
  6310.  
  6311. [OTHER  >]0;
  6312.  
  6313.  
  6314. **P1 2
  6315. [plotter]
  6316. [ type ]
  6317.  
  6318. [calcomp]
  6319. [ 1043]2;$S=P2
  6320.  
  6321. [hewlett]
  6322. [packard]
  6323. [ 7470]3;$S=P3
  6324. [ 7475]3;$S=P3
  6325. [ 7585]4;$S=P4
  6326. [Draftpro]4;$S=p4
  6327.  
  6328. [houston]
  6329. [instrum]
  6330. [DMP41/51]5;$S=P5
  6331. [DMP42/52]5;$S=P5
  6332.  
  6333. [NONE]0;$S=ENGLISH
  6334.  
  6335. **P2 2
  6336. [ calcomp]
  6337. [  1043]
  6338. [ sheet  ]
  6339. [ size   ]
  6340.  
  6341.  
  6342. [A-8x10.5]10.5 8.0;
  6343. [B- 10x16]16.0 10.0;
  6344. [C- 16x21]21.0 16.0;
  6345. [D- 21X33]33.0 21.0;
  6346. [E- 33x43]43.0 33.0;
  6347.  
  6348. [36x64.5]64.5 36.0;
  6349.  
  6350.  
  6351. [OTHER  >]0 0;
  6352.  
  6353.  
  6354.  
  6355. **P3 2
  6356. [ h p ]
  6357.  
  6358. [ sheet  ]
  6359. [ size   ]
  6360.  
  6361. [ 7470]
  6362. [A-7.5x10]10.125 7.775;
  6363.  
  6364.  
  6365. [ 7475]
  6366. [A-8x10.5]10.125 7.775;
  6367. [B- 10x16]16.29 10.15;
  6368.  
  6369.  
  6370. [OTHER  >]0 0;
  6371.  
  6372.  
  6373.  
  6374.  
  6375. **P4 2
  6376.  
  6377. [ h p]
  6378.  
  6379. [ sheet  ]
  6380. [ size   ]
  6381.  
  6382.  
  6383. [A-8x10.5]10.5 8.0;
  6384. [B- 10x16]16.0 10.0;
  6385. [C- 16x21]21.0 16.0;
  6386. [D- 21X33]33.0 21.0;
  6387. [E- 33x43]43.0 33.0;
  6388.  
  6389. [35x44.7]44.72 35.31;
  6390.  
  6391.  
  6392. [OTHER  >]0 0;
  6393.  
  6394.  
  6395.  
  6396. **P5 2
  6397. [  h i  ]
  6398. [sht size]
  6399. [41 - 51]
  6400. [A-8.5x11]11.0 8.5;
  6401. [B- 11x17]17.0 11.0;
  6402. [C- 16x21]21.0 16.0;
  6403. [D- 20X32]32.0 20.0;
  6404. [42 ]
  6405. [A-8.5x11]11.0 8.5;
  6406. [B- 11x17]17.0 11.0;
  6407. [C- 16x21]21.0 16.0;
  6408. [D- 21x31]31.0 21.5;
  6409. [52 ]
  6410. [A-8.5x11]11.0 8.5;
  6411. [B- 11x17]17.0 11.0;
  6412. [C- 16x21]21.0 16.0;
  6413. [D- 21x33]33.0 21.0;
  6414. [21.5x34]34.0 21.5;
  6415. [OTHER  >]0 0;
  6416.  
  6417. **ENGLISH 2
  6418.  
  6419. [ sheet  ]
  6420. [ size   ]
  6421.  
  6422.  
  6423. [A-8.5x11]11.0 8.5;
  6424. [B- 11x17]17.0 11.0;
  6425. [C- 22x34]34.0 22.0;
  6426. [   18x24]24.0 18.0;
  6427.  
  6428. [D- 24X36]36.0 24.0;
  6429. [   30x42]42.0 30.0;
  6430.  
  6431. [E- 36x42]42.0 36.0;
  6432.  
  6433.  
  6434. [OTHER  >]0 0;
  6435.  
  6436.  
  6437. **METRIC 2
  6438.  
  6439.  
  6440. [ sheet  ]
  6441. [ size   ]
  6442.  
  6443.  
  6444. [1189x841]1189.0 841.0;
  6445. [1000x707]1000.0 707.0;
  6446. [ 841x594]841.0 594.0;
  6447.  
  6448. [ 594x420]594.0 420.0;
  6449. [ 420x297]420.0 297.0;
  6450. [ 297x210]297.0 210.0;
  6451.  
  6452.  
  6453. [OTHER  >]0 0;
  6454.  
  6455.  
  6456.  
  6457.  
  6458.  
  6459. **EXCOMDS 3
  6460. [external]
  6461. [commands]
  6462.  
  6463. [CATALOG]CAT;
  6464. [DEL:]DEL;
  6465. [DIR:]DIR;
  6466. [EDIT:]ED;
  6467. [SH:]SH;
  6468. [SHELL:]SHELL;
  6469. [TYPE:]TY;
  6470. **LISP 3
  6471. [LISPLOAD]lsp;
  6472. [SAVE pt1](SETQ PT1 (GETPOINT "Digitize point to save: "));
  6473. [SAVE pt2](SETQ PT2 (GETPOINT "Digitize point to save: "));
  6474. [USE  pt1]!PT1;
  6475. [USE  pt2]!PT2;
  6476.  
  6477. [ENTLIST](nl entss "/cci/entlist")(entss);
  6478. [XYDATA](nl "" "/cci/xydata");
  6479. [MAKENEW](nl "" "/cci/makenew");
  6480. [GLUE](nl "" "/cci/glue");
  6481. [JOINMORE](nl "" "/cci/joinmore");
  6482. [SLOPE](nl "" "/cci/slope");
  6483. [ANGCALC](nl c:angcalc "/cci/angcalc") angcalc;
  6484. [LIBRARY](nl "" "/cci/library");
  6485. [ALLSNAP](nl "" "/cci/allsnap");
  6486. **ENTLIST
  6487. [entity]
  6488. [ types]
  6489.  
  6490. [LINE]LINE;
  6491. [ARC]ARC;
  6492. [CIRCLE]CIRCLE;
  6493. [POLYLINE]POLYLINE;
  6494. [POINT]POINT;
  6495. [SOLID]SOLID;
  6496. [TEXT]TEXT;
  6497. [BLOCK]INSERT;
  6498. [INSERT]INSERT;
  6499. [DIM]DIMENSION;
  6500. [3DFACE]3DFACE;
  6501.  
  6502. **TIME 3
  6503. [TIME]TIME;
  6504.  
  6505. [TIMEMGR](nl timelog "/cci/time")(timelog):
  6506. [TIMEMOD](nl "" "/cci/timemod");
  6507.  
  6508. [DRAWMAN](nl c:login "/cci/drawman");
  6509. [ LOGON](nl c:login "/cci/drawman") logon;
  6510. [ LOGOUT](nl c:login "/cci/drawman") logout;
  6511. [ END](nl c:login "/cci/drawman") end;
  6512. [ RLIST](nl c:login "/cci/drawman") rlist;
  6513. [ FINGER](nl c:login "/cci/drawman") finger;
  6514. [ SELUSER](nl c:login "/cci/drawman") seluser;
  6515. [ SELECO](nl c:login "/cci/drawman") seleco;
  6516. **BALLOON 2
  6517. [BALLOON](nl c:balloon "/cci/balloon") balloon;
  6518. [*icon*]$s=x $s=balloon $i=iballoon $i=*
  6519.  
  6520. [LEADER](nl c:leadr "/cci/leadr") leadr;
  6521. [ARCLEAD](nl c:arclead "/cci/arclead") arclead;
  6522. [LOOPLEAD](nl c:looplead "/cci/looplead") looplead;
  6523. [LEADTEXT](nl c:leadtext "/cci/leadtext") leadtext;
  6524. [LEADDTXT](nl c:leaddtxt "/cci/leaddtxt") leaddtxt;
  6525.  
  6526. [set vars]
  6527. [ARROWS](princ "Pointer type set to ARROWS ")(SETQ BUBTYP "A")(princ);
  6528. [DOTS](princ "Pointer type set to DOTS ")(SETQ BUBTYP "D")(princ);
  6529. [TICKS](princ "Pointer type set to TICKS ")(SETQ BUBTYP "T")(princ);
  6530. [NONE](princ "Pointer type set to NONE ")(SETQ BUBTYP "N")(princ);
  6531. [reset]
  6532. [TXTSTYLE](setq bubsty nil)(princ " RESETTING TEXT STYLE ")(princ);
  6533. [ARSIZE](setq asize nil)(PRINC " RESETTING ARROW SIZE ")(PRINC);
  6534. [SYM SIZE](setq bbub nil)(PRINC " RESETTING SYMBOL SIZE ")(PRINC);
  6535. **INSYM 3
  6536. [symbol]
  6537. [*icon*]$i=iinsym $i=*
  6538.  
  6539. [--/--](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);
  6540. [--//--](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);
  6541. [--///--](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);
  6542. [--|--](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);
  6543. [--||--](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);
  6544. [--|||--](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);
  6545. [--\--](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);
  6546. [--\\--](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);
  6547. [--\\\--](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);
  6548. [-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);
  6549. [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);
  6550. [BALLOON](SETQ insfl (strcat drive "/cci/ballsym") ANG 0 attfl "Y" ATTNO 1 BREAKT T BREAK "Y" insflt T)(nl "" "/cci/symbol")(PRINC);
  6551. [OTHER](nl "" "/cci/symbol");
  6552. [RESETSIZ](princ "Resetting SYMBOL size ")(setq size1 nil ang nil)(princ);
  6553. **CALCULATOR 3
  6554. [Calc](nl calc "/cci/calc")(calc);
  6555.  
  6556. [Mem] M 
  6557. [Recl]R 
  6558. [x2] SQ  
  6559. [Sqrt] SR  
  6560. [Clear] C 
  6561.  
  6562. [ /] / 
  6563. [ *] * 
  6564. [ -] - 
  6565. [ +] + 
  6566.  
  6567. [= (done)] = 
  6568. ***TABLET1
  6569. [A1](nl c:wallext "/archp/wallext") wallext;
  6570. [A2](nl c:wallext "/archp/wallext") wallext;
  6571. [A3](nl c:wallint "/archp/wallint") wallint;
  6572. [A4](nl c:wallint "/archp/wallint") wallint;
  6573. [A5]
  6574. [A6](setq doortp "90s")(nl c:door "/archp/door") door;
  6575. [A7](setq doortp "45s")(nl c:door "/archp/door") door;
  6576. [A8](setq doortp "2ws")(nl c:door "/archp/door") door;
  6577. [A9]
  6578. [A10](princ " WINDOWS set to SINGLE PANE ... ")(setq windtp "sp")(princ);
  6579. [A11](princ " WINDOWS set to CASEMENT ... ")(setq windtp "ct")(princ);
  6580. [A12]
  6581. [A13]$s=x $s=detail $i=idetail $i=*
  6582. [A14](lays windv) insert (dd "/arch/windnum") scale !scale1;
  6583. [A15]$s=x $s=north $i=inorth $i=*
  6584. [A16]$s=x $s=treepln $i=itreepln $i=*
  6585. [A17]$s=x $s=stair (nl "" "/archp/stair");
  6586. [A18]$s=x $s=chair $i=ichair $i=*
  6587. [A19]$s=x $s=appl $i=iappl $i=*
  6588. [A20]$s=x $s=elecout $i=ielecout $i=*
  6589. [A21]$s=x $s=toilet $i=itoilet $i=*
  6590. [A22](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=hvacsupm"))(progn (menucmd "s=x")(menucmd "s=hvacsup")))(princ);(lays ceilv);(nl symins "/cci/symins")(symins "/arch/supply");
  6591. [A23]$s=x $s=struct $i=istruct $i=*
  6592. [A24]script (dd "/cci/s1");
  6593. [A25]script (dd "/custom/user1");
  6594. [B1](nl c:wallextm "/archp/wallextm") wallextm;
  6595. [B2](nl c:wallmas "/archp/wallmas") wallmas;
  6596. [B3](nl c:fndwalle "/archp/fndwalle") fndwalle;
  6597. [B4](nl c:fndwalli "/archp/fndwalli") fndwalli;
  6598. [B5]
  6599. [B6](setq doortp "180s")(nl c:door "/archp/door") door;
  6600. [B7](setq doortp "90d")(nl c:door "/archp/door") door;
  6601. [B8](setq doortp "90deg")(nl c:door "/archp/door") door;
  6602. [B9]
  6603. [B10](princ "WINDOWS set to SLIDING ... ")(setq windtp "gl")(princ);
  6604. [B11](nl sillside "/archp/sillside")(nl "" "/archp/sill");
  6605. [B12]
  6606. [B13](lays symbolv) insert (dd "/arch/equip") scale !scale1;
  6607. [B14](lays doornov) insert (dd "/arch/doornum") scale !scale1;
  6608. [B15](lays symbolv) insert (dd "/arch/eltarget") scale !scale1 \ line @0,0 .y @ \ dtext;
  6609. [B16]$s=x $s=treepln2 $i=itreepln2 $i=*
  6610. [B17]$s=x $s=stair (nl "" "/archp/stairct");
  6611. [B18]$s=x $s=sofa $i=isofa $i=*
  6612. [B19]$s=x $s=bed $i=ibed $i=*
  6613. [B20]$s=x $s=elecswit $i=ielecswit $i=*
  6614. [B21]$s=x $s=urinal $i=iurinal $i=*
  6615. [B22](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=hvacretm"))(progn (menucmd "s=x")(menucmd "s=hvacret")))(princ);(lays ceilv);(nl symins "/cci/symins")(symins "/arch/return");
  6616. [B23](if (and metric (not (equal scaleb 40. 0.001)))(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);
  6617. [B24]script (dd "/cci/s2");
  6618. [B25]script (dd "/custom/user2");
  6619. [C1](nl "" "/archp/doubler");
  6620. [C2](nl "" "/archp/doubler");
  6621. [C3]$s=x $s=build $i=ibuild $i=*
  6622. [C4]$s=x $s=build $i=ibuild $i=*
  6623. [C5]
  6624. [C6](setq doortp "45d")(nl c:door "/archp/door") door;
  6625. [C7](setq doortp "45deg")(nl c:door "/archp/door") door;
  6626. [C8](setq doortp "2wd")(nl c:door "/archp/door") door;
  6627. [C9]
  6628. [C10](nl wallbrk "/archp/wallbrk")(nl "" "/archp/bow")(bow);
  6629. [C11]$s=x $s=window (nl "" "/archp/windbay")(nl "" "/archp/windfin3")(princ "pick windows 1 2 or 3 ")(princ);
  6630. [C12]
  6631. [C13](lays symbolv) $s=x $s=arrows $i=iarrows $i=*
  6632. [C14]$s=x $s=callout
  6633. [C15]$s=x $s=word
  6634. [C16]$s=x $s=cogo
  6635. [C17]$s=x $s=stair (if (/= (getvar "useri1") 0)(nl "" "/archp/stairv3")(nl "" "/archp/stairv"));
  6636. [C18]$s=x $s=table $i=itabler $i=*
  6637. [C19]$s=x $s=table $i=itablec $i=*
  6638. [C20]$s=x $s=eleclite $i=ieleclite $i=*
  6639. [C21](if (and metric (not (equal scaleb 40. 0.001)))(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);
  6640. [C22](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=hvacaccm"))(progn (menucmd "s=x")(menucmd "s=hvacacc")))(princ);(lays ceilv);(nl symins "/cci/symins")(symins "/arch/access");
  6641. [C23]$s=x $s=masonry $i=imasonry $i=*
  6642. [C24]script (dd "/cci/s3");
  6643. [C25]script (dd "/custom/user3");
  6644. [D1](nl c:cross "/archp/crossfix") cross;
  6645. [D2](nl c:butt "/archp/buttfix") butt;
  6646. [D3](nl c:corn "/archp/cornfix") corn;
  6647. [D4](defun c:wb ()(nl wallbrk "/archp/wallbrk")(setq wfunk "A" wfunk1 'T)(wallbrk wfunk))(princ) wb;
  6648. [D5]
  6649. [D6](setq doortp "bis")(nl c:door "/archp/door") door;
  6650. [D7](setq doortp "bid")(nl c:door "/archp/door") door;
  6651. [D8](setq doortp "rev")(nl c:door "/archp/door") door;
  6652. [D9]
  6653. [D10](princ "1 line WINDOW ")(setq wdline "1")(princ);
  6654. [D11](princ "2 line WINDOW ")(setq wdline "2")(princ);
  6655. [D12]
  6656. [D13]$s=x $s=sectionsym $i=isection $i=*
  6657. [D14]$s=x $s=balloon $i=iballoon $i=*
  6658. [D15]$s=x $s=linesite $i=ilinesite $i=*
  6659. [D16]$s=x $s=handicap $i=ihandicap $i=*
  6660. [D17]$s=x $s=stair (if (/= (getvar "useri1") 0)(nl "" "/archp/stairl3")(nl "" "/archp/stairl"));
  6661. [D18]$s=x $s=desk $i=idesk $i=*
  6662. [D19]$s=x $s=office $i=ioffice $i=*
  6663. [D20]$s=x $s=electrack $i=ielectrack $i=*
  6664. [D21](if (and metric (not (equal scaleb 40. 0.001)))(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);
  6665. [D22](lays ceilv) insert (dd "/arch/smoke") scale !scale1;
  6666. [D23]$s=x $s=wood $i=iwood $i=*
  6667. [D24]script (dd "/cci/s4");
  6668. [D25]script (dd "/custom/user4");
  6669. [E1](nl "" "/archp/capfix");
  6670. [E2](nl "" "/archp/insulate");
  6671. [E3](nl "" "/archp/paint");
  6672. [E4](setq lalist (gettable "layer" ""))(nl c:walldim "/archp/walldim") walldim;
  6673. [E5]
  6674. [E6](setq doortp "sls")(nl c:door "/archp/door") door;
  6675. [E7](setq doortp "sld")(nl c:door "/archp/door") door;
  6676. [E8](setq doortp "gd")(nl c:door "/archp/door") door;
  6677. [E9]
  6678. [E10](princ "Loading CURTAIN WALL ")(nl "" "/archp/curtain");
  6679. [E11](nl "" "/archp/mullion");
  6680. [E12]
  6681. [E13](lays symbolv) insert (dd "/arch/eltarget") scale !scale1;
  6682. [E14]$s=x $s=colins $i=icolins $i=* 
  6683. [E15]$s=x $s=siteutil $i=isiteutil $i=*
  6684. [E16]$s=x $s=vehicles $i=ivehicles $i=*
  6685. [E17]$s=x $s=stair (if (/= (getvar "useri1") 0)(nl "" "/archp/stairu3")(nl "" "/archp/stairu"));
  6686. [E18](if (and metric (not (equal scaleb 40. 0.001)))(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);
  6687. [E19]$s=x $s=plants $i=iplants $i=*
  6688. [E20](if (and metric (not (equal scaleb 40. 0.001)))(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);
  6689. [E21]$s=x $s=shower $i=ishower $i=*
  6690. [E22]$s=x $s=sprink
  6691. [E23]$s=x $s=conc $i=iconc $i=*
  6692. [E24]script (dd "/cci/s5");
  6693. [E25]script (dd "/custom/user5");
  6694. [F1]$s=x $s=roof $i=iroof $i=*
  6695. [F2]$s=x $s=firepl $i=ifirepl $i=*
  6696. [F3](nl shadow "/archp/shadow");
  6697. [F4](nl c:walk "/archp/walk") walk;
  6698. [F5]
  6699. [F6](setq doortp "fx1s")(nl c:door "/archp/door") door;
  6700. [F7](setq doortp "fx2s")(nl c:door "/archp/door") door;
  6701. [F8](nl sillside "/archp/sillside")(nl "" "/archp/drsill");
  6702. [F9]
  6703. [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;
  6704. [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;
  6705. [F12]
  6706. [F13]$s=x $s=breaks $i=ibreaks $i=*
  6707. [F14]$s=x $s=interior (lays symbolv) insert (dd "/arch/intelev") scale !scale1 \\\\(setq pt1 (getvar "lastpoint"))(princ)(nl "" "/archp/intelev");
  6708. [F15]$s=x $s=sitelight $i=isitelight $i=*
  6709. [F16]$s=x $s=parking1 $i=iparking1 $i=*
  6710. [F17]$s=x $s=stair (nl "" "/archp/stairesc");
  6711. [F18]$s=x $s=bookcase $i=ibookcase $i=*
  6712. [F19](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "i=ikitcabm")(menucmd "i=*"))(progn (menucmd "i=ikitcab")(menucmd "i=*")))(princ);
  6713. [F20]$s=x $s=elecemer $i=ielecemer $i=*
  6714. [F21](if (and metric (not (equal scaleb 40. 0.001)))(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);
  6715. [F22](lays ceilv) insert (dd "/arch/speaker") scale !scale1;
  6716. [F23]$s=x $s=rebars $i=irebars $i=*
  6717. [F24]script (dd "/cci/dim1");
  6718. [F25]script (dd "/custom/user6");
  6719. [G1]
  6720. [G2]
  6721. [G3]
  6722. [G4]
  6723. [G5]
  6724. [G6](setq doortp "exs")(nl c:door "/archp/door") door;
  6725. [G7](setq doortp "exd")(nl c:door "/archp/door") door;
  6726. [G8](nl "" "/archp/doorelev");
  6727. [G9]
  6728. [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;
  6729. [G11](nl "" "/archp/windelev") windelev;
  6730. [G12]
  6731. [G13](lays symbolv) insert (dd "/arch/revno") scale !scale1;
  6732. [G14](lays symbolv) insert (dd "/arch/revno1") scale !scale1;
  6733. [G15]$s=x $s=drainage $i=idrainage $i=*
  6734. [G16]$s=x $s=parking $i=iparking $i=*
  6735. [G17](nl "" "/archp/stairel");
  6736. [G18]$s=x $s=lamp $i=ilamp $i=*
  6737. [G19]$s=x $s=3dmisc $i=i3dmisc $i=*
  6738. [G20]$s=x $s=electel $i=ielectel $i=*
  6739. [G21](lays fixtv) insert (dd3 "/hwheater") scale !scale1;
  6740. [G22]$s=x $s=ceiling $i=iceiling $i=*
  6741. [G23]$s=x $s=consdet $i=iconsdet $i=*
  6742. [G24]script (dd "/cci/dim2");
  6743. [G25]script (dd "/custom/user7");
  6744. [H1]$s=x $s=space (nl "" "/archp/space");
  6745. [H2]$s=x $s=space (nl "" "/archp/spacediv");
  6746. [H3]$s=x $s=space (nl "" "/archp/spacelin");
  6747. [H4]$s=x $s=space (nl billmat "/cci/billmat")(billmat (strcat drive "/arch/space"));
  6748. [H5]
  6749. [H6](princ "Door with 1 Side Light ")(setq wind1 'T)(princ);
  6750. [H7](princ "Door with 2 Side Lights ")(setq wind1 'T wind2 'T)(princ);
  6751. [H8]$s=x $s=door
  6752. [H9]
  6753. [H10](princ "Resetting WINDOW variables ")(nl "" "/archp/windcln")(princ);
  6754. [H11]$s=x $s=window
  6755. [H12]
  6756. [H13]$s=x $s=schedule
  6757. [H14](lays symbolv) insert (dd "/arch/const") scale !scale1;
  6758. [H15]$s=x $s=barscale
  6759. [H16]$s=x $s=sitemisc $i=isitemisc $i=*
  6760. [H17](nl "" "/archp/spiral");
  6761. [H18](nl "" "/archp/2dto3d");
  6762. [H19]$s=x $s=furnmisc $i=ifurnmisc $i=*
  6763. [H20]$s=x $s=elecmisc $i=ielecmisc $i=*
  6764. [H21]$s=x $s=plumbmisc $i=iplumbmisc $i=*
  6765. [H22]$s=x $s=ceilmisc $i=iceilmisc $i=*
  6766. [H23]$s=x $s=detmisc $i=idetmisc $i=*
  6767. [H24](nl "" "/cci/lascript");
  6768. [H25]script (dd "/custom/user8");
  6769. [I1]$s=x $s=3d
  6770. [I2]$s=x $s=3d
  6771. [I3]$s=x $s=3d
  6772. [I4]$s=x $s=3d
  6773. [I5]$s=x $s=3d
  6774. [I6]$s=x $s=3d
  6775. [I7]
  6776. [I8]
  6777. [I9]$s=x $s=ds
  6778. [I10]$s=x $s=dr
  6779. [I11]
  6780. [I12]
  6781. [I13]
  6782. [I14]
  6783. [I15]
  6784. [I16]
  6785. [I17]
  6786. [I18]
  6787. [I19]
  6788. [I20]
  6789. [I21]
  6790. [I22]
  6791. [I23]
  6792. [I24](nl calc "/cci/calc")(calc);
  6793. [I25](nl calc "/cci/calc")(calc);
  6794. ***TABLET2
  6795. [J1]hide;
  6796. [J2]vpoint;;
  6797. [J3]$s=x $s=3dthick
  6798. [J4]^C^C$s=x $s=ucs1 ucs;
  6799. [J5]^C^Cucs prev;
  6800. [J6]^C^Cucs view;
  6801. [J7]
  6802. [J8]
  6803. [J9]'zoom w;
  6804. [JI0]^c^c$s=x $s=line line;
  6805. [J11](nl zooma "/cci/zooma")(zooma);
  6806. [K1]$s=x $s=vp3d $i=i3dviews $i=*
  6807. [K2](nl c:cone "/cci/3d") $s=x $s=3dobject $i=i3dobjects $i=*
  6808. [K3]$s=x $s=3dlisp
  6809. [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);
  6810. [K5]^c^c$s=x $s=ucsicon ucsicon;
  6811. [K6]plan;
  6812. [K7]
  6813. [K8]
  6814. [K9]'zoom c;
  6815. [K10]^c^c$s=x $s=pline pline;
  6816. [K11]'redraw;
  6817. [L1]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade light;
  6818. [L2]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade camera;
  6819. [L3]^C^C(nl c:scene "/cci/ashade") $s=x $s=ashade scene;
  6820. [L4]$s=x $s=3dface 3dface;
  6821. [L5]$s=x $s=3dsurf $i=isurf $i=*
  6822. [L6]$s=x $s=3dpoly 3dpoly;
  6823. [L7]
  6824. [L8](nl off "/cci/off")(off) \
  6825. [L9]'zoom d;
  6826. [L10]^c^c$s=x $s=arc
  6827. [L11]'redraw;
  6828. [M1]$s=x $s=view
  6829. [M2]$s=x $s=view
  6830. [M3]$s=x $s=view
  6831. [M4]$s=x $s=view
  6832. [M5]$s=x $s=view
  6833. [M6]$s=x $s=view
  6834. [M7]$s=x $s=view
  6835. [M8](nl mid "/cci/mid")(mid) \
  6836. [M9]'zoom a;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  6837. [M10]^C^C$S=X $S=CIRCLE circle;
  6838. [M11]'redraw;
  6839. [N1]'view ? 'view s;
  6840. [N2]'view ? 'view r;
  6841. [N3](nl "" "/cci/views")(princ "Setup Completed ")(princ);
  6842. [N4]'view r 1;
  6843. [N5]'view r 2;
  6844. [N6]'zoom 2x;
  6845. [M7]
  6846. [N8](nl int "/cci/int")(int) \
  6847. [N9]'zoom p;
  6848. [N10]^c^c$s=x $s=ellipse ellipse;
  6849. [N11]'redraw;
  6850. [O1]^C^C$s=x $s=vports $i=ivporti $i=*
  6851. [O2](nl "" "/cci/zmscale");
  6852. [O3]'view r all;
  6853. [O4]'view r 3;
  6854. [O5]'view r 4;
  6855. [O6]'zoom .5x;
  6856. [O7]
  6857. [O8].x @;
  6858. [O9]'zoom e;(princ " HINT: VIEW Restore ALL is faster " )(princ);
  6859. [O10]^c^c$s=x $s=polygon polygon;
  6860. [O11]'redraw;
  6861. [P1]$s=x $s=block
  6862. [P2]$s=x $s=block
  6863. [P3]$s=x $s=attcontrol
  6864. [P4]$s=x $s=layer
  6865. [P5]$s=x $s=layer
  6866. [P6]$s=x $s=layer
  6867. [P7]
  6868. [P8].y @;
  6869. [P9]'zoom;
  6870. [P10]^c^c$s=x $s=point point;
  6871. [P11]'redraw;
  6872. [Q1]$s=x $s=block block;
  6873. [Q2]$s=x $s=insert insert;
  6874. [Q3]$s=x $s=attdef attdef;
  6875. [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);
  6876. [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);
  6877. [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);
  6878. [Q7]
  6879. [Q8].z @;
  6880. [Q9]'pan;
  6881. [Q10]$s=x $s=sketch sketch;
  6882. [Q11]'redraw;
  6883. [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)))
  6884. [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) +
  6885. (if (not (member nil bklist))(LAYERS "B" bklist)(princ "No BLOCKS Found"))(if scrtog (setq sdsrcn nil scrtog nil))(princ);
  6886. [R3]$s=x $s=attedit attedit;
  6887. [R4](nl "" "/cci/layerset");
  6888. [R5](nl "" "/cci/layerfrz");
  6889. [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);
  6890. [R7]
  6891. [R8]
  6892. [R9](nl "" "/cci/zoomin");
  6893. [R10]^c^c$s=x $s=hatch hatch;
  6894. [R11]redrawall;
  6895. ***TABLET3
  6896.  
  6897.  
  6898.  
  6899. 135;
  6900. 135;
  6901. 90;
  6902. 90;
  6903. 45;
  6904. 45;
  6905.  
  6906.  
  6907.  
  6908. 180;
  6909. 180;
  6910. <
  6911. <
  6912. 0;
  6913. 0;
  6914.  
  6915.  
  6916.  
  6917. 225;
  6918. 225;
  6919. 270;
  6920. 270;
  6921. 315;
  6922. 315;
  6923.  
  6924.  
  6925.  
  6930. (nl at-angle "/cci/at-angle")(at-angle);
  6931. (nl at-angle "/cci/at-angle")(at-angle);
  6932.  
  6933.  
  6934.  
  6935. 7/8;
  6936. 7/8;
  6937. /16
  6938. /16
  6939. /32
  6940. /32
  6941.  
  6942.  
  6943.  
  6944. 1/2
  6945. 1/2
  6946. 5/8
  6947. 5/8
  6948. 3/4
  6949. 3/4
  6950.  
  6951.  
  6952.  
  6953. 1/8
  6954. 1/8
  6955. 1/4
  6956. 1/4
  6957. 3/8
  6958. 3/8
  6959.  
  6960.  
  6961.  
  6962. -
  6963. -
  6964. /
  6965. /
  6966. x
  6967. x
  6968.  
  6969.  
  6970.  
  6971. @
  6972. @
  6973. '
  6974. '
  6975. "
  6976. "
  6977.  
  6978.  
  6979.  
  6980. 7
  6981. 7
  6982. 8
  6983. 8
  6984. 9
  6985. 9
  6986.  
  6987.  
  6988.  
  6989. 4
  6990. 4
  6991. 5
  6992. 5
  6993. 6
  6994. 6
  6995.  
  6996.  
  6997.  
  6998. 1
  6999. 1
  7000. 2
  7001. 2
  7002. 3
  7003. 3
  7004.  
  7005.  
  7006.  
  7007. 0
  7008. 0
  7009. .
  7010. .
  7011. ,
  7012. ,
  7013. ***TABLET4
  7014. [S1]$s=x $s=inq
  7015. [S2]$s=x $s=inq
  7016. [S3]$s=x $s=inq
  7017. [S4]$s=x $s=inq
  7018. [S5]$s=x $s=inq
  7019. [S6]$s=x $s=inq
  7020. [S7]
  7021. [S8]$s=x $s=style style;
  7022. [S9]$s=x $s=text ^c^c$t4=text1 $t4=text2 text;
  7023. [S10]$s=x $s=dtext ^c^c$t4=dtext1 $t4=dtext2 dtext;
  7024. [S11]
  7025. [S12]$s=x $s=osnapc
  7026. [S13]$s=x $s=osnapc
  7027. [S14]$s=x $s=osnapc
  7028. [S15]$s=x $s=osnapc
  7029. [S16]$s=x $s=osnapc
  7030. [S17]$s=x $s=osnapc
  7031. [S18]$s=x $s=osnapc
  7032. [S19]$s=x $s=osnapc
  7033. [S20]$s=x $s=osnapc
  7034. [S21]$s=x $s=osnapc
  7035. [S22]$s=x $s=osnapc
  7036. [S23]
  7037. [S24]$s=x $s=ut
  7038. [S25]$s=x $s=ut
  7039. [T1]$s=x $s=time
  7040. [T2]^c^cid;
  7041. [T3]status;
  7042. [T4]^c^c$s=x $s=list list;
  7043. [T5]^c^c$s=x $s=dist dist;
  7044. [T6]^c^c$s=x $s=area area;
  7045. [T7]
  7046. [T8]$s=x $s=text ^c^ctext;
  7047. [T9]$s=x $s=text ^c^ctext c;
  7048. [T10]$s=x $s=text ^c^ctext r;
  7049. [T11]
  7050. [T12]none;
  7051. [T13]cent;
  7052. [T14]endp;
  7053. [T15]ins;
  7054. [T16]int;
  7055. [T17]mid;
  7056. [T18]near;
  7057. [T19]node;
  7058. [T20]perp;
  7059. [T21]quad;
  7060. [T22]tan;
  7061. [T23]
  7062. [T24](setq usecnt 0);(princ);save;
  7063. [T25]$s=x $s=purge purge;
  7064. [U1]$s=x $s=dim (lays dimlayv) dim;
  7065. [U2]$s=x $s=dim (lays dimlayv) dim;
  7066. [U3]$s=x $s=dim (lays dimlayv) dim;
  7067. [U4]$s=x $s=dim (lays dimlayv) dim1;
  7068. [U5]$s=x $s=dim (lays dimlayv) dim1;
  7069. [U6]$s=x $s=dim (lays dimlayv) dim1;
  7070. [U7]
  7071. [U8]$s=x $s=text ^c^ctext a;
  7072. [U9]$s=x $s=text ^c^ctext m;
  7073. [U10]$s=x $s=text ^c^ctext f;
  7074. [U11]
  7075. [U12]
  7076. [U13]$s=x $s=undo undo;
  7077. [U14]redo;
  7078. [U15](ssget "w" (getvar "extmin")(getvar "extmax"));
  7079. [U16]M;
  7080. [U17]W;
  7081. [U18]L;
  7082. [U19]P;
  7083. [U20]C;
  7084. [U21]R;
  7085. [U22]A;
  7086. [U23]
  7087. [U24](nl "" "/cci/end")(end);
  7088. [U25]$s=x $s=quit quit;
  7089. [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);
  7090. [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);
  7091. [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);
  7092. [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);
  7093. [V5]dim dimzin $i=idimzin $i=*
  7094. [V6]$s=x $s=format
  7095. [V7]
  7096. [V8]$s=x $s=set
  7097. [V9]$s=x $s=set
  7098. [V10]$s=x $s=set
  7099. [V11]
  7100. [V12]$s=x $s=ed
  7101. [V13]$s=x $s=ed
  7102. [V14]$s=x $s=ed
  7103. [V15]$s=x $s=ed
  7104. [V16]$s=x $s=ed
  7105. [V17]$s=x $s=ed
  7106. [V18]$s=x $s=ed
  7107. [V19]$s=x $s=ed
  7108. [V20]$s=x $s=ed
  7109. [V21]$s=x $s=ed
  7110. [V22]$s=x $s=ed
  7111. [V23]
  7112. [V24]files;
  7113. [V25]$s=x $s=attext
  7114. [W1](nl "" "/cci/dimext");
  7115. [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);
  7116. [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);
  7117. [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);
  7118. [W5]^c^cdim dimtp;
  7119. [W6]dim dimtm;
  7120. [W7]
  7121. [W8]$s=x $s=style style;
  7122. [W9]$i=isnaprot $i=*
  7123. [W10](if (and metric (not (equal scaleb 40. 0.001)))(progn (menucmd "s=x")(menucmd "s=gridm"))(progn (menucmd "s=x")(menucmd "s=grid")))(princ);grid;
  7124. [W11]
  7125. [W12]^c^c$s=x $s=scale scale auto;
  7126. [W13]^c^c$s=x $s=rotate rotate auto;
  7127. [W14]^c^c$s=x $s=offset offset;
  7128. [W15]^c^c$s=x $s=move move auto;
  7129. [W16]^c^c$s=x $s=erase e;
  7130. [W17]^cel;
  7131. [W18]oops;
  7132. [W19]^C^C(nl c:peditm "/cci/peditm") peditm;
  7133. [W20]$s=x $s=explode explode;
  7134. [W21]$s=x $s=array array auto;
  7135. [W22]$s=x $s=divide divide;
  7136. [W23]
  7137. [W24]^c^c$s=x $s=plot
  7138. [W25]$s=x $s=slides
  7139. [X1]$s=x $s=var1
  7140. [X2]$s=x $s=dim $i=iballoon $i=*
  7141. [X3]^c^c$s=x $s=dimlinear dim base;
  7142. [X4]^c^c$s=x $s=dimlinear dim contin;
  7143. [X5]^c^c$s=x $s=dimlinear dim vert;
  7144. [X6]^c^c$s=x $s=dimlinear dim horiz;
  7145. [X7]
  7146. [X8](if (= (getvar "blipmode") 1)(progn (setvar "blipmode" 0)(prompt "Blipmode OFF")(princ))(progn (setvar "blipmode" 1)(prompt "Blipmode ON")(princ)))
  7147. [X9]$s=x $s=set2
  7148. [X10](if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=msnapset"))(progn (menucmd "s=x")(menucmd "s=snapset"))) 'setvar snapunit;
  7149. [X11]
  7150. [X12]^c^c$s=x $s=mirror mirror auto;
  7151. [X13]^c^cbk;
  7152. [X14]^c^c$s=x $s=break break \f \@;
  7153. [X15]^c^c$s=x $s=copy copy auto;
  7154. [X16]^c^c$s=x $s=extend extend;
  7155. [X17]^c^cst;
  7156. [X18]^c^c$s=x $s=trim trim auto;
  7157. [X19]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mfillet"))(progn (menucmd "s=x")(menucmd "s=fillet"))) fillet;r 0;;
  7158. [X20]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mfillet"))(progn (menucmd "s=x")(menucmd "s=fillet"))) fillet;
  7159. [X21]^c^c(if (and metric (not (equal scaleb 40. 0.001)))(progn(menucmd "s=x")(menucmd "s=mchamfer"))(progn (menucmd "s=x")(menucmd "s=chamfer"))) chamfer;
  7160. [X22]$s=x $s=measure measure;
  7161. [X23]
  7162. [X24]$s=x $s=script script;
  7163. [X25]menu menu;
  7164. [Y1]$s=x $s=dim dim center;
  7165. [Y2]$s=x $s=dim dim radius;
  7166. [Y3]$s=x $s=dim dim diameter;
  7167. [Y4]$s=x $s=dim dim angular;
  7168. [Y5]^c^c$s=x $s=dimlinear dim rotated;
  7169. [Y6]^c^c$s=x $s=dimlinear dim aligned;
  7170. [Y7]
  7171. [Y8](if (= (getvar "lunits") 2)(progn (setvar "lunits" 4)(prompt "Units Architectural")(princ))(progn (setvar "lunits" 2)(prompt "Units Decimal")(princ)))
  7172. [Y9](if (= (getvar "highlight") 1)(progn (setvar "highlight" 0)(prompt "Highlight OFF")(princ))(progn (setvar "highlight" 1)(prompt "Highlight ON")(princ)))
  7173. [Y10]$s=x $s=aperture 'setvar aperture;\'setvar pickbox;\$s= $s=
  7174. [Y11]
  7175. [Y12]^c^c$s=x $s=change change auto;
  7176. [Y13]$s=x $s=chgblk
  7177. [Y14](if (/= sdscrn "Y")(nl "" "/cci/chlay")(nl "" "/cci/chlays"))(princ) chlay;
  7178. [Y15]select auto \change p  e;
  7179. [Y16]$s=x $s=chprop select auto \chprop;p;;
  7180. [Y17]$s=x $s=changetxt select auto \change p  ;
  7181. [Y18](nl c:chgtext "/cci/chgtext") chgtext;
  7182. [Y19](nl "" "/cci/fradpick");
  7183. [Y20]$s=x $s=copy select auto \copy p  m;
  7184. [Y21](nl "" "/cci/glue");
  7185. [Y22](nl ssx "/cci/ssx")(ssx);
  7186. [Y23]
  7187. [Y24]$s=x $s=excomds
  7188. [Y25]$s=x $s=dxf
  7189. **DTEXT1 33
  7190. $s=x $s=dtext ^c^cdtext;
  7191. $s=x $s=dtext ^c^cdtext c;
  7192. $s=x $s=dtext ^c^cdtext r;
  7193. **DTEXT2 58
  7194. $s=x $s=dtext ^c^cdtext a;
  7195. $s=x $s=dtext ^c^cdtext m;
  7196. $s=x $s=dtext ^c^cdtext f;
  7197. **TEXT1 33
  7198. $s=x $s=text ^c^ctext;
  7199. $s=x $s=text ^c^ctext c;
  7200. $s=x $s=text ^c^ctext r;
  7201. **TEXT2 58
  7202. $s=x $s=text ^c^ctext a;
  7203. $s=x $s=text ^c^ctext m;
  7204. $s=x $s=text ^c^ctext f;
  7205.