home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR506.ZIP / ACAD2.EXE / PULLDOWN.MNU < prev    next >
Text File  |  1989-03-15  |  46KB  |  2,299 lines
  1. ***BUTTONS
  2. ;
  3. $p1=*
  4. ^c^c
  5. ^B
  6. ^O
  7. ^G
  8. ^D
  9. ^E
  10. ^T
  11. ***AUX1
  12. ;
  13. $p1=*
  14. ^C^C
  15. ^B
  16. ^O
  17. ^G
  18. ^D
  19. ^E
  20. ^T
  21. ***POP1
  22. [Tools]
  23. [OSNAP:]^C^C$p1=* OSNAP \\
  24. [~--]
  25. None
  26. [Center]CENTER
  27. [Endpoint]ENDPOINT
  28. [Insert]INSERT
  29. [Intersec]INTERSEC
  30. [Midpoint]MIDPOINT
  31. [Nearest]NEAREST
  32. [Node]NODE
  33. [Perpend]PERPEND
  34. [Quadrant]QUADRANT
  35. [Quick,]QUICK,^Z$p1=*
  36. [Tangent]TANGEN
  37. [~--]
  38. [Cancel]^C^C
  39. [Redo]^C^CREDO
  40. [Redraw]'REDRAW
  41. [RgnAuto]^c^c$p10=p6d $p10=* regenauto
  42. [U]^C^CU
  43. [Undo]^c^c$p10=p3q2 $p10=* undo
  44. [~--]
  45. [Filters]$p1=filters $p1=*
  46.  
  47. **filters
  48. [Filters]
  49. .X
  50. .Y
  51. .Z
  52. .XY
  53. .XZ
  54. .YZ
  55. [~--]
  56. [Tools]$p1=pop1 $p1=*
  57.  
  58. ***POP2
  59. [Draw]
  60. [Arc]*^C^C$p10=p2c $p10=* arc
  61. [Block]^C^C$p10=p2k $p10=* block
  62. [Circle]*^C^C$p10=p2d $p10=* circle
  63. [Dim]*^C^C$p10=p2dim $p10=* dim
  64. [Dtext]^C^C$p10=p2i $p10=* Dtext
  65. [Ellipse]*^C^C$p10=p2f $p10=* ellipse
  66. [Fonts]*^c^c$p10=p2u $p10=*
  67. [Hatch]*^C^C$p10=p2t $p10=* hatch
  68. [Insert]^c^csetvar attdia 1 $p10=p2m $p10=* insert
  69. [Line]*^C^C$P10=P2b $P10=* line
  70. [Minsert]^c^c$p10=p2n $p10=* minsert
  71. [Pline]*^c^c$p10=p2h $p10=* pline
  72. [Point]*^C^C$p10=p2g $p10=* point
  73. [Polygon]*^C^C$p10=p2e $p10=* polygon
  74. [Sketch]*^c^c$p10=p2o $p10=* sketch
  75. [Solid]*^c^c$p10=p2p $p10=* solid
  76. [Style]^c^c$p10=p2j $p10=* style
  77. [Trace]*^c^c$p10=p2q $p10=* trace
  78. [WBlock]^C^C$p10=p2l $p10=* wblock
  79. [3D Obj.]^P(cond ((null C:CONE) +
  80. (vmon) (prompt "Please wait...  Loading 3D Objects.  ") +
  81. (load "3d")) (T (princ))) ^P$i=3DObjects $i=*
  82.  
  83.  
  84.  
  85. **P2b
  86. [Line]
  87. [LINE:]*^c^c$p10=* line
  88. [~--]
  89. [Continue]^c^cline;;
  90. [Close]cl
  91. [Undo]u
  92.  
  93. **P2c
  94. [Arc]
  95. [ARC:]*^c^c$p10=* arc
  96. [~--]
  97. [3-point:]*^C^CARC \\DRAG
  98. [S,C,E:]*^C^CARC \C \DRAG
  99. [S,C,A:]*^C^CARC \C \A DRAG
  100. [S,C,L:]*^C^CARC \C \L DRAG
  101. [S,E,A:]*^C^CARC \E \A
  102. [S,E,R:]*^C^CARC \E \R
  103. [S,E,D:]*^C^CARC \E \D DRAG
  104. [C,S,E:]*^C^CARC C \\DRAG
  105. [C,S,A:]*^C^CARC C \\A DRAG
  106. [C,S,L:]*^C^CARC C \\L DRAG
  107. [CONTIN:]*^C^CARC ;DRAG
  108.  
  109. **p2d
  110. [Circle]
  111. [CIRCLE:]*^c^c$p10=* circle
  112. [~--]
  113. [CEN,RAD:]^C^CCIRCLE \DRAG
  114. [CEN,DIA:]^C^CCIRCLE \D
  115. [2 POINT:]^C^CCIRCLE 2P \DRAG
  116. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  117. [TTR:]^C^CCIRCLE TTR
  118. [~--]
  119. [DONUT:]^c^c$p10=p2v $p10=* donut
  120.  
  121. **P2dim
  122. [Dim]
  123. [DIM:]^C^CDIM
  124. [~--]
  125. [Aligned:]^c^cdim ali
  126. [Angular:]^c^cdim ang
  127. [Center:]^C^Cdim cent
  128. [Diameter:]^c^cdim diam
  129. [Horizontal:]^c^cdim hor
  130. [Leader:]^c^cdim lead
  131. [Radius:]^c^cdim rad
  132. [Rotated:]^c^cdim rot
  133. [Vertical:]^c^cdim vert
  134. [~--]
  135. [Hometext:]^c^cdim hometext
  136. [Newtext:]^c^cdim newtext
  137. [Update:]^c^cdim update
  138. [~--]
  139. [Set DIMVARS]^C^C$P5=P5B $P5=* DIM
  140. [Status]status ^c^c^p(quote ( Hit <ENTER> )) graphscr\dim $p10=*
  141.  
  142. **p2f
  143. [Ellipse]
  144. [ELLIPSE:]*^C^C$p10=* ELLIPSE
  145. [~--]
  146. [Center]C
  147. Diameter
  148. Iso
  149. Rotation
  150.  
  151. **p2e
  152. [Polygon]
  153. [POLYGON:]*^C^C$p10=* POLYGON
  154. [~--]
  155. [Edge]e;$p10=*
  156. [I-scribe]I;
  157. [C-scribe]C;
  158. [3]3;$p10=*  \$p10=*
  159. [4]4;$p10=* \$p10=*
  160. [5]5;$p10=* \$p10=*
  161. [6]6;$p10=* \$p10=*
  162. [7]7;$p10=* \$p10=*
  163. [8]8;$p10=* \$p10=*
  164. [9]9;$p10=* \$p10=*
  165. [10]10;$p10=* \$p10=*
  166. [15]15;$p10=* \$p10=*
  167. [20]20;$p10=* \$p10=*
  168.  
  169. **P2g
  170. [Point]
  171. [POINT:]*^C^C$p10=* POINT
  172. [~--]
  173. .x
  174. .y
  175. .z
  176. .xy
  177. .xz
  178. .yz
  179. [~--]
  180. [Point Examples]^C^CVSLIDE points
  181. [Remove Examples]^C^CREDRAW
  182. [~--]
  183. [Pdmode:]^C^CSETVAR PDMODE
  184. [Pdsize:]^C^CSETVAR PDSIZE
  185.  
  186. **P2h
  187. [Pline]
  188. [PLINE:]*^c$p10=p2h $p10=* pline
  189. [~--]
  190. [Arc]ARC $p10=parc $p10=*
  191. [close]close;
  192. [halfwid]halfwid;
  193. [length]length; \\$p10=*
  194. [undo]undo;*p10=p3q2 $p10=*
  195. [width]width;
  196. [~--]
  197. [Fill ON]'SETVAR FILLMODE 1 $p10=*
  198. [Fill OFF]'SETVAR FILLMODE 0 $p10=*
  199.  
  200. **PARC
  201. [Polyarc]
  202. [PLINE ARC:]$p10=* pline \arc
  203. [~--]
  204. [angle]$p10=PARCANG $p10=* A
  205. [CEnter]$p10=PARCEN $p10=* CE
  206. [tanDir]DIR \DRAG
  207. [Radius]$p10=PARCRAD $p10=* R
  208. [2nd PT]S \DRAG
  209. [CLose]$p10=p2h $p10=* CLOSE
  210. [~--]
  211. undo
  212. [contline]$p10=p2h $p10=* L
  213. [~--]
  214. [PLINE:]$p10=p2h $p10=* ^C^CPLINE \$p10=*
  215.  
  216. **PARCANG
  217. [Parcang]
  218. [Angle]
  219. [~--]
  220. [center]C drag $p10=p2h $p10=*
  221. [radius]R \ $p10=p2h $p10=*
  222. [drag]drag \ $p10=p2h $p10=*
  223.  
  224. **PARCEN
  225. [Parcen]
  226. [Center]
  227. [~--]
  228. [angle]A drag $p10=p2h $p10=*
  229. [length]L drag $p10=p2h $p10=*
  230. [drag]drag \ $p10=p2h $p10=*
  231.  
  232. **PARCRAD
  233. [Parcrad]
  234. [Radius]
  235. [~--]
  236. [angle]A \drag $p10=p2h $p10=*
  237. [drag]drag \ $p10=p2h $p10=*
  238.  
  239. **P2j
  240. [Style]
  241. [STYLE:]^C^C$p10=p2j $p10=* STYLE
  242. [SHAPE:]^c^c$p10=p2r $p10=* shape
  243. [~--]
  244. ?
  245. txt
  246. simplex
  247. complex
  248. italicc
  249. italict
  250. romans
  251. romanc
  252. romant
  253. [~--]
  254. Yes
  255. No
  256.  
  257. **P2i
  258. [Dtext]
  259. [DTEXT:]^C^C$p10=* DTEXT
  260. [QTEXT:]^C^C$p10=qtext $p10=* QTEXT
  261. [TEXT:]^C^C$p10=p2i1 $p10=* TEXT
  262. [~--]
  263. [centered]C
  264. right
  265. aligned
  266. middle
  267. fit
  268. style
  269.  
  270. **P2i1
  271. [Text]
  272. [TEXT:]^C^C$p10=p2i1 $p10=* TEXT
  273. [~--]
  274. [centered]C
  275. right
  276. aligned
  277. middle
  278. fit
  279. style
  280.  
  281. **P2k
  282. [Block]
  283. [BLOCK:]^C^C$p10=* BLOCK
  284. [BASE:]^C^C$p10=base $p10=* BASE
  285. ?
  286. [~--]
  287. Add
  288. Auto
  289. Box
  290. Crossing
  291. Last
  292. Multiple
  293. Previous
  294. Remove
  295. Single
  296. Undo
  297. Window
  298. [~--]
  299. Yes
  300. [OOPS]^C^COOPS
  301.  
  302. **P2l
  303. [WBlock
  304. [WBLOCK:]^C^C$p10=* WBLOCK
  305. [~--]
  306. =
  307. [*]*;
  308. [blank];
  309. [~--]
  310. Add
  311. Auto
  312. Box
  313. Crossing
  314. Last
  315. Multiple
  316. Previous
  317. Remove
  318. Single
  319. Undo
  320. Window
  321.  
  322. **P2m
  323. [Insert]
  324. [INSERT:]^C^C$p10=* INSERT
  325. [~--]
  326. ?
  327. [*]*\
  328. corner
  329. xyz
  330. drag
  331. [~--]
  332. Scale
  333. Xscale
  334. Yscale
  335. Zscale
  336. Rotate
  337.  
  338. **P2n
  339. [Minsert]
  340. [MINSERT:]^C^C$p10=* MINSERT
  341. [~--]
  342. ?
  343. corner
  344. xyz
  345. drag
  346.  
  347. **P2o
  348. [Sketch]
  349. [SKETCH:]^C^C$p10=* SKETCH
  350. [~--]
  351. Connect
  352. Erase
  353. Record
  354. [~--]
  355. [eXit]x
  356. Quit
  357. [-----]
  358. [SKPOLY:]'SETVAR SKPOLY 1
  359. [SKLINE:]'SETVAR SKPOLY 0
  360.  
  361. **P2p
  362. [Solid]
  363. [SOLID:]^C^C$p10=* SOLID
  364. [~--]
  365. [Fill ON]'SETVAR FILLMODE 1
  366. [Fill OFF]'SETVAR FILLMODE 0
  367.  
  368. **p2r
  369. [Shape]
  370. [SHAPE:]^C^C$p10=p2r SHAPE
  371. [LOAD:]^C^C$p10=p2ra $p10=* LOAD
  372. [~--]
  373. ?
  374.  
  375. **P2s
  376. [Donut]
  377. [DONUT:]^C^C$p10=* DONUT
  378. [~--]
  379. [Fill ON]'SETVAR FILLMODE 1
  380. [Fill OFF]'SETVAR FILLMODE 0
  381.  
  382. **P2q
  383. [Trace]
  384. [TRACE:]^C^C$p10=* TRACE
  385. [~--]
  386. [Fill ON]'SETVAR FILLMODE 1
  387. [Fill OFF]'SETVAR FILLMODE 0
  388.  
  389.  
  390. **P2t
  391. [Hatch]
  392. [HATCH:]^C^C$p10=* HATCH
  393. [~--]
  394. [Patterns...]$i=hatch1 $i=*
  395. ?
  396. u
  397. u,o
  398. u,i
  399. Yes
  400. [~--]
  401. Add
  402. Auto
  403. Box
  404. Crossing
  405. Last
  406. Multiple
  407. Previous
  408. Remove
  409. Single
  410. Undo
  411. Window
  412.  
  413. **p2u
  414. [Fonts]
  415. [Examples...]^c^c$i=fonts1 $i=*
  416. [romans]^c^cstyle romans romans
  417. [romanc]^c^cstyle romanc romanc
  418. [italicc]^c^cstyle italicc italicc
  419. [romand]^c^cstyle romand romand
  420. [romant]^c^cstyle romant romant
  421. [italict]^c^cstyle italict italict
  422. [monotxt]^c^cstyle monotxt monotxt
  423. [gothice]^c^cstyle gothice gothice
  424. [greeks]^c^cstyle greeks greeks
  425. [scripts]^c^cstyle scripts scripts
  426. [gothicg]^c^cstyle gothicg gothicg
  427. [greekc]^c^cstyle greekc greekc
  428. [scriptc]^c^cstyle scriptc scriptc
  429. [gothici]^c^cstyle gothici gothici
  430. [syastro]^c^cstyle syastro syastro
  431. [symath]^c^cstyle symath symath
  432. [symusic]^c^cstyle symusic symusic
  433. [symap]^c^cstyle symap symap
  434. [symeteo]^c^cstyle symeteo symeteo
  435.  
  436. ***POP3
  437. [Edit]
  438. [Array]*^C^C$p10=p3f $p10=* array auto
  439. [Break]*^c^c$p10=p3e $p10=* break
  440. [Chamfer]*^C^C$p10=p3i $p10=* chamfer
  441. [Change]*^C^C$p10=p3p $p10=* change \\$p10=*
  442. [Copy]*^C^C$p10=p3d $p10=* copy auto
  443. [Divide]*^c^c$p10=p3n $p10=* divide
  444. [Erase]*^C^C$p10=p3a $p10=* erase si auto
  445. [Explode]*^C^C$p10=p3s $p10=* explode
  446. [Extend]*^C^C$p10=p3l $p10=* extend auto
  447. [Fillet]*^C^C$p10=p3h $p10=* fillet
  448. [Measure]*^c^c$p10=p3o $p10=* measure
  449. [Mirror]*^C^C$p10=p3k $p10=* mirror auto
  450. [Move]*^C^C$p10=p3c $p10=* move auto
  451. [Offset]*^C^C$P10=P3J $P10=* offset
  452. [Pedit]^C^C^P+
  453. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  454. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  455. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  456. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  457. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  458. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  459. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  460. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  461. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  462. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  463. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  464. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  465. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  466. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  467. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  468. [Rotate]*^C^C$p10=p3g $p10=* rotate auto
  469. [Scale]*^C^C$p10=p3r $p10=* scale auto
  470. [Stretch]*^C^C$p10=p3m $p10=* stretch c
  471. [Trim]*^C^C$p10=p3b $p10=* trim auto
  472.  
  473. **P3a
  474. [Erase]
  475. [ERASE:]*^C^C$p10=* erase
  476. [~--]
  477. Add
  478. Auto
  479. Box
  480. Crossing
  481. Last
  482. Multiple
  483. Previous
  484. Remove
  485. Single
  486. Undo
  487. Window
  488. [~--]
  489. [OOPS:]^C^COOPS
  490.  
  491. **P3b
  492. [Trim]
  493. [TRIM:]^C^C$p10=* trim
  494. [~--]
  495. Add
  496. Auto
  497. Box
  498. Crossing
  499. Last
  500. Multiple
  501. Previous
  502. Remove
  503. Single
  504. Undo
  505. Window
  506.  
  507. **P3c
  508. [Move]
  509. [MOVE:]^C^C$p10=* move
  510. [~--]
  511. Add
  512. Auto
  513. Box
  514. Crossing
  515. Last
  516. Multiple
  517. Previous
  518. Remove
  519. Single
  520. Undo
  521. Window
  522.  
  523. **P3d
  524. [Copy]
  525. [COPY:]^C^C$p10=* copy
  526. [~--]
  527. Add
  528. Auto
  529. Box
  530. Crossing
  531. Last
  532. Multiple
  533. Previous
  534. Remove
  535. Single
  536. Undo
  537. Window
  538.  
  539. **P3e
  540. [Break]
  541. [BREAK:]^C^C$P10=* break
  542. [~--]
  543. [Two Places]\f
  544. [Same Place]\f \@
  545.  
  546. **P3f
  547. [Array]
  548. [ARRAY:]^C^C$p10=* array
  549. [~--]
  550. Add
  551. Auto
  552. Box
  553. Crossing
  554. Last
  555. Multiple
  556. Previous
  557. Remove
  558. Single
  559. Undo
  560. Window
  561. [~--]
  562. Rectang
  563. Polar
  564. Yes
  565. No
  566.  
  567. **P3g
  568. [Rotate]
  569. [ROTATE:]^C^C$p10=* rotate
  570. [~--]
  571. Add
  572. Auto
  573. Box
  574. Crossing
  575. Last
  576. Multiple
  577. Previous
  578. Remove
  579. Single
  580. Undo
  581. Window
  582. [~--]
  583. Reference
  584.  
  585. **P3h
  586. [Fillet]
  587. [FILLET:]^C^C$p10=* fillet
  588. [~--]
  589. [radius]R \FILLET
  590. [radius 0]R 0 FILLET
  591. polyline
  592.  
  593. **P3i
  594. [Chamfer]
  595. [CHAMFER:]^C^C$p10=* chamfer
  596. [~--]
  597. [distance]D \\CHAMFER
  598. [dist = 0]D 0 0 CHAMFER
  599. polyline
  600.  
  601. **P3j
  602. [Offset]
  603. [OFFSET:]^C^C$P10=* offset
  604. [~--]
  605. [Through]T;
  606. [~--]
  607. [0.025]0.025;
  608. [0.050]0.050;
  609. [0.100]0.100;
  610. [0.03125]0.03125;
  611. [0.0625]0.0625;
  612. [0.125]0.125;
  613. [0.1875]0.1875;
  614. [0.250]0.250;
  615. [0.375]0.375;
  616. [0.500]0.500;
  617. [0.750]0.750;
  618. [1.00"]1.0;
  619. [1.50"]1.50;
  620. [2.00"]2.0;
  621. [4-5/8"]4.625;
  622. [6.00"]6.0;
  623. [1']12.0;
  624. [2']24.0;
  625. [5']60.0;
  626.  
  627. **P3k
  628. [Mirror]
  629. [MIRROR:]^C^C$p10=* mirror
  630. [~--]
  631. Add
  632. Auto
  633. Box
  634. Crossing
  635. Last
  636. Multiple
  637. Previous
  638. Remove
  639. Single
  640. Undo
  641. Window
  642. [~--]
  643. Yes
  644. No
  645.  
  646. **P3l
  647. [Extend]
  648. [EXTEND:]^C^C$p10=* EXTEND
  649. [~--]
  650. Add
  651. Auto
  652. Box
  653. Crossing
  654. Last
  655. Multiple
  656. Previous
  657. Remove
  658. Single
  659. Undo
  660. Window
  661. [~--]
  662. [SELECT]^C^C$p10=SELECT $p10=* select
  663. [ZOOM W]'ZOOM W
  664.  
  665. **P3m
  666. [Stretch]
  667. [STRETCH:]^C^C$p10=* STRETCH
  668. [~--]
  669. Add
  670. Auto
  671. Box
  672. Crossing
  673. Last
  674. Multiple
  675. Previous
  676. Remove
  677. Single
  678. Undo
  679. Window
  680.  
  681.  
  682. **P3n
  683. [Divide]
  684. [DIVIDE:]^C^C$p10=* DIVIDE
  685. [~--]
  686. Block
  687. Yes
  688. No
  689.  
  690. **P3o
  691. [Measure]
  692. [MEASURE:]^C^C$p10=* MEASURE
  693. [~--]
  694. Block
  695. Yes
  696. No
  697.  
  698. **P3p
  699. [Change]
  700. [CHANGE:]^C^C$p10=* change \\$p10=*
  701. [~--]
  702. [Color]PROP COLOR $p10=p3p1 $p10=* \$p10=
  703. [Chroma]^C^CVSLIDE chroma
  704. [Restore]^C^CREDRAW
  705. [Elev]PROP ELEV
  706. [LAyer]$p10=p3p3 $p10=* PROP LAYER
  707. [LType]PROP LT $p10=p3p2 $p10=* \$p10=
  708. [Thick]PROP THICKNESS
  709. [~--]
  710. Add
  711. Auto
  712. Box
  713. Crossing
  714. Last
  715. Multiple
  716. Previous
  717. Remove
  718. Single
  719. Undo
  720. Window
  721.  
  722. **P3p1
  723. ChgColor
  724. [COLOR:]^c^c$p10=* change \\prop color \$p10=
  725. [~--]
  726. [bylayer]BYLAYER
  727. [byblock]BYBLOCK
  728. [~--]
  729. [red]RED
  730. [yellow]YELLOW
  731. [green]GREEN
  732. [cyan]CYAN
  733. [blue]BLUE
  734. [magenta]MAGENTA
  735. [white]WHITE
  736.  
  737. **P3p2
  738. ChgLType
  739. [LINETYP:]^c^c$p10=* change \\prop ltype \$p10=
  740. [LTSCALE:]^C^Cltscale
  741. [~--]
  742. [bylayer]BYLAYER
  743. [byblock]BYBLOCK
  744. [~--]
  745. [contin.]CONTINUOUS
  746. [dashed]DASHED
  747. [hidden]HIDDEN
  748. [center]CENTER
  749. [phantom]PHANTOM
  750. [dot]DOT
  751. [dashdot]DASHDOT
  752. [border]BORDER
  753.  
  754. **P3p3
  755. ChgLayer
  756. [0]0;;$p10=
  757. [Dim]dim;;$p10=
  758. [Text]text;;$p10=
  759. [Title]title;;$p10=
  760. [Hidden]hidden;;$p10=
  761. [Center]center;;$p10=
  762. [Hatch]hatch;;$p10=
  763. [Obj1]obj1;;$p10=
  764. [Obj2]obj2;;$p10=
  765. [Obj3]obj3;;$p10=
  766.  
  767. **P3q
  768. [Pedit]
  769. [PEDIT:]^C^C$p10=* pedit
  770. [~--]
  771. Last
  772. Yes
  773. No
  774. Close
  775. Open
  776. Join
  777. Width
  778. [Ed Vrtx]$p10=p3q1 $p10=* e
  779. [Fit Curv]Fit
  780. Spline
  781. Decurve
  782. [~--]
  783. [Undo]$p10=p3q2 $p10=* Undo
  784. [eXit]^c^c$p10=
  785.  
  786. **P3q1
  787. [Ed.Vrtx]
  788. [ED VRTX]$p10=*
  789. [~--]
  790. break
  791. go
  792. insert
  793. move
  794. next
  795. previous
  796. regen
  797. straight
  798. tangent
  799. width
  800. [~--]
  801. [Undo] $P10=P3Q2 $p10=* undo
  802. [eXit]X $P10=P3Q
  803.  
  804. **p3Q2
  805. [UNDO]
  806. [UNDO:]^C^CUNDO
  807. [~--]
  808. [Back 1]1
  809. [~--]
  810. Auto
  811. Back
  812. [Control]$p10=p3q3 $p10=* Control
  813. End
  814. Group
  815. Mark
  816. [~--]
  817. Yes
  818. No
  819.  
  820. **P3q3
  821. [Control]
  822. [~--]
  823. All
  824. None
  825. One
  826.  
  827. **p3s
  828. [Explode]
  829. [~--]
  830. [EXPLODE:]^C^CEXPLODE
  831. [LEXPLODE:]^C^C(IF (NOT C:lexplode) (LOAD "/ACAD/LISP/lexplode")) lexplode
  832.  
  833. **COLOR
  834. [Color]
  835. [~--]
  836. [COLOR:]^C^CCOLOR
  837. [~--]
  838. bylayer
  839. byblock
  840. red
  841. yellow
  842. green
  843. cyan
  844. blue
  845. magenta
  846. white
  847.  
  848. [Chroma]^C^CVSLIDE chroma
  849. [Restore]^C^CREDRAW
  850.  
  851. **SELECT
  852. [Select]
  853. [SELECT:]^C^CSELECT
  854. [~--]
  855. Add
  856. Auto
  857. Box
  858. Crossing
  859. Last
  860. Multiple
  861. Previous
  862. Remove
  863. Single
  864. Undo
  865. Window
  866.  
  867. **p3r
  868. [Scale]
  869. [SCALE:]$p10=p3r $p10=* \$p10=*
  870. [~--]
  871. Add
  872. Auto
  873. Box
  874. Crossing
  875. Last
  876. Multiple
  877. Previous
  878. Remove
  879. Single
  880. Undo
  881. Window
  882. [~--]
  883. Referenc
  884. [~--]
  885. [REDO:]REDO
  886.  
  887.  
  888. ***POP4
  889. [Display]
  890. [Redraw]'redraw
  891. [Pan]'pan
  892. [Zoom All]zoom a
  893. [Zoom Bitmap]'zoom w (getvar "vsmin") (getvar "vsmax")
  894. [Zoom Dynamic]'zoom d
  895. [Zoom Extents]zoom e
  896. [Zoom Left]'zoom l
  897. [Zoom Previous]'zoom p
  898. [Zoom Window]'zoom w
  899. [~--]
  900. [Set Viewports...]^C^C$i=vporti $i=*
  901. [Dview Options...]^C^C$i=dviewi $i=*
  902. [Vpoint 3D...]^C^C$i=3dviews $i=*
  903. [~--]
  904. [Plan View (UCS)]^C^Cplan;;
  905. [Plan View (World)]^C^Cplan wo
  906.  
  907. **P4b
  908. [View]
  909. [VIEW:]$p10=* 'VIEW
  910. [~--]
  911. ?
  912. Delete
  913. Restore
  914. Save
  915. Window
  916.  
  917. **P4e
  918. [Limits]
  919. [LIMITS:]^C^C$p10=* LIMITS
  920. [~--]
  921. ON
  922. OFF
  923.  
  924. **P4g
  925. [Viewres]
  926. [VIEWRES:]^C^CVIEWRES
  927. [~--]
  928. No
  929. Yes
  930. [~--]
  931. 100
  932. 500
  933. 20000
  934.  
  935. **linetyp
  936. [Linetyp]
  937. [LINETYP:]^C^CLINETYPE
  938. [~--]
  939. ?
  940. Create
  941. Load
  942. [Set]S $p10=p3p2 $p10=* \$p10=
  943. [~--]
  944. Yes
  945. No
  946. [*]*
  947.  
  948. **xxxP4c
  949. [Snap]
  950. [SNAP:]^C^CSNAP
  951. [~--]
  952. ON
  953. OFF
  954. [Aspect]ASPECT
  955. [Rotate]ROTATE
  956. [Style]s $p10=p4c1 $p10=*
  957.  
  958. **P4c
  959. [Snap]
  960. [Toggle]^B
  961. [SNAP:]^C^CSNAP
  962. [~--]
  963. [.025]'SETVAR;SNAPUNIT;0.025,0.025
  964. [.050]'SETVAR;SNAPUNIT;0.050,0.050
  965. [.100]'SETVAR;SNAPUNIT;0.10,0.10
  966. [ 1/32 ]'SETVAR;SNAPUNIT;0.03125,0.03215
  967. [ 1/16 ]'SETVAR;SNAPUNIT;0.0625,0.0625
  968. [ 1/8  ]'SETVAR;SNAPUNIT;0.125,0.125
  969. [ 1/4  ]'SETVAR;SNAPUNIT;0.25,0.25
  970. [ 1/2 ]'SETVAR;SNAPUNIT;0.5,0.5
  971. [ 1" ]'SETVAR;SNAPUNIT;1,1
  972. [ 1' ]'SETVAR;SNAPUNIT;12,12
  973. [~--]
  974. [0-DEG]'SETVAR;SNAPANG;0
  975. [30-DEG]'SETVAR;SNAPANG;30
  976. [45-DEG]'SETVAR;SNAPANG;45
  977. [~--]
  978. [ ISO]'SETVAR;SNAPSTYL;1
  979. [ STD]'SETVAR;SNAPSTYL;0
  980. [~--]
  981. [Aspect]ASPECT
  982. [Rotate]ROTATE
  983.  
  984. **P4c1
  985. [Snapstyle]
  986. [~--]
  987. [Isometric]iso $p10=
  988. [Standard]standard $p10=
  989.  
  990. **P4d
  991. [Grid]
  992. [Toggle]^G
  993. [GRID:]^C^CGRID
  994. [~--]
  995. [.100]^C^CGRID;.100;
  996. [ 1/4  ]^C^CGRID;.25;
  997. [ 1/2 ]^C^CGRID;.5;
  998. [ 1" ]^C^CGRID;1;
  999. [ 1' ]^C^CGRID;12;
  1000. [ 5' ]^C^CGRID;60;
  1001. [ 10' ]^C^CGRID;120;
  1002. [~--]
  1003. [17 X 11]^C^CLIMITS;-1,-1;18,12;LINE;-1,-1;18,12;;+
  1004. ZOOM;E;ERASE;L;;
  1005. [36 X 24]^C^CLIMITS;-2,-2;37,25;LINE;-2,-2;37,25;;+
  1006. ZOOM;E;ERASE;L;;
  1007. [17'X11']^C^CLIMITS;-12,-12;216,144;LINE;-12,-12;216,144;;+
  1008. ZOOM;E;ERASE;L;;
  1009. [120'X95']^C^CLIMITS;-60,-60;1500,1200;LINE;-60,-60;1500,1200;;+
  1010. ZOOM;E;ERASE;L;;
  1011. [~--]
  1012. [ E-UNITS]'SETVAR;LUNITS;2
  1013. [ A-UNITS]'SETVAR;LUNITS;4
  1014. [~--]
  1015. [Aspect]^C^CSNAP;A
  1016. [Rotate]^C^CSNAP;R
  1017. [Grid=Snap]^C^CSNAP
  1018.  
  1019. ***POP5
  1020. [Setup]
  1021. [~--]
  1022. [Initial Drawing Setup]^C^C(load "/acad/lisp/setupp") $p10=UNITS $p10=*
  1023. [~--]
  1024. [UCS Dialogue...]^C^Cdducs
  1025. [UCS Options...]^C^C$i=ucs $i=*
  1026. [UCS Previous]^C^CUCS P
  1027. [~--]
  1028. [Drawing Aids...]'ddrmodes
  1029. [Entity Creation...]'ddemodes
  1030. [Font Selection...]^C^C$i=fonts1 $i=*
  1031. [Modify Layer...]'ddlmodes
  1032.  
  1033.  
  1034.  
  1035. **P5B
  1036. [DimVar1]
  1037. [DIMALT   - (Alternate units selected)]^C^Cdim dimalt \$p5=*
  1038. [DIMALTD  - (Alternate unit decimal places)]^C^Cdim dimaltd \$p5=*
  1039. [DIMALTF  - (Alternate unit scale factor)]^C^Cdim dimaltf \$p5=*
  1040. [DIMAPOST - (Default suffix for alternate text)]^C^Cdim dimapost \$p5=*
  1041. [DIMASO   - (Create associative dimensions)]^C^Cdim dimaso \$p5=*
  1042. [DIMASZ   - (Arrow size)]^C^Cdim dimasz \$p5=*
  1043. [DIMBLK   - (Arrow block name)]^C^Cdim dimblk \$p5=*
  1044. [DIMBLK1  - (Arrow block name for first end)]^C^Cdim dimblk1 \$p5=*
  1045. [DIMBLK2  - (Arrow block name for second end)]^C^Cdim dimblk2 \$p5=*
  1046. [DIMCEN   - (Center mark size)]^C^Cdim dimcen \$p5=*
  1047. [DIMDLE   - (Dimension line extension)]^C^Cdim dimdle \$p5=*
  1048. [DIMDLI   - (Dim. line increment for continuation)]^C^Cdim dimdli \$p5=*
  1049. [DIMEXE   - (Extension above dimension line)]^C^Cdim dimexe \$p5=*
  1050. [DIMEXO   - (Extension line origin offset)]^C^Cdim dimexo \$p5=*
  1051. [DIMLFAC  - (Linear unit scale factor)]^C^Cdim dimlfac \$p5=*
  1052. [DIMLIM   - (Generate dimension limits)]^C^Cdim dimlim \$p5=*
  1053. [DIMPOST  - (Default suffix for dimension text)]^C^Cdim dimpost \$p5=*
  1054. [DIMRND   - (Rounding value)]^C^Cdim dimrnd \$p5=*
  1055. [~--]
  1056. [Next]$p5=p5c $p5=*
  1057. [Exit]^c^c$p5=pop5 $p6=*
  1058.  
  1059. **P5C
  1060. [Dimvar2]
  1061. [DIMSAH   - (Allow separate DIMBLKs)]^C^Cdim dimsah \$p5=*
  1062. [DIMSCALE - (Overall scale factor)]^C^Cdim dimscale \$p5=*
  1063. [DIMSE1   - (Suppress the FIRST extension line)]^C^Cdim dimse1 \$p5=*
  1064. [DIMSE2   - (Suppress the SECOND extension line)]^C^Cdim dimse2 \$p5=*
  1065. [DIMSHO   - (Update dimensions while dragging)]^C^Cdim dimsho \$p5=*
  1066. [DIMSOXD  - (Suppress dim lines outside ext.lines)]^C^Cdim dimsoxd \$p5=*
  1067. [DIMTAD   - (Place text above the extension line)]^C^Cdim dimtad \$p5=*
  1068. [DIMTIH   - (Text inside extensions is horizontal)]^C^Cdim dimtih \$p5=*
  1069. [DIMTIX   - (Force text inside extension lines)]^C^Cdim dimtix \$p5=*
  1070. [DIMTM    - (Minus tolerance)]^C^Cdim dimtm \$p5=*
  1071. [DIMTOFL  - (Draw dim line regardless of text pos.)]^C^Cdim dimtofl \$p5=*
  1072. [DIMTOH   - (Text outside extensions is horizontal)]^C^Cdim dimtoh \$p5
  1073. [DIMTOL   - (Generate dimension tolerances)]^C^Cdim dimtol \$p5=*
  1074. [DIMTP    - (Plus tolerance)]^C^Cdim dimtp \$p5=*
  1075. [DIMTSZ   - (Tick size)]^C^Cdim dimtsz \$p5=*
  1076. [DIMTVP   - (Text vertical position)]^C^Cdim dimtvp \$p5=*
  1077. [DIMTXT   - (Text height)]^C^Cdim dimtxt \$p5=*
  1078. [DIMZIN   - (Zero inches/feet control)]^C^Cdim dimzin \$p5=*
  1079. [~--]
  1080. [previous]$p5=p5b $p5=*
  1081. [Exit]^c^c$p5=pop5 $p6=*
  1082.  
  1083.  
  1084. ***POP6
  1085. [Options]
  1086. [Attributes]^C^C$p6=p6e $p6=*
  1087. [Dim Vars]^c^c$p5=p5b $p5=*
  1088. [Settings]^C^C$P6=P6A $P6=*
  1089. [Utilities]^c^c$p6=p6B $p6=*
  1090. [3D-Options]^C^C$p6=3d $p6=*
  1091.  
  1092. **P6a
  1093. [Settings]
  1094. [APERTURE:]^C^C$p10=p6a1 $p10=* APERTURE
  1095. [AXIS:]^C^C$p10=AXIS $p10=* AXIS
  1096. [COLOR:]^C^C$p10=COLOR $p10=* COLOR
  1097. [COORD:]^D
  1098. [DRAGMODE:]^C^C$p10=DRAGMODE $p10=* DRAGMODE
  1099. [ELEV:]^C^C$p10=ELEV $p10=* ELEV
  1100. [LIMITS:]^c^c$p10=p4e $p10=* limits
  1101. [LINETYP:]^C^C$p10=LINETYP $p10=* LINETYPE
  1102. [SETVAR:]^C^C$p10=SETVAR $p10=* SETVAR
  1103. [UNITS:]^C^CUNITS
  1104. [VIEWRES:]^C^C$p10=p4g $p10=* viewres y
  1105. [~--]
  1106. [Options Menu]$p6= $p6=*
  1107.  
  1108. **P6A1
  1109. [Aper/Pick]
  1110. [APERTURE:]'SETVAR APERTURE
  1111. [PICKBOX:]'SETVAR PICKBOX
  1112. [~--]
  1113. [1]1
  1114. [2]2
  1115. [3]3
  1116. [4]4
  1117. [5]5
  1118. [6]6
  1119. [7]7
  1120. [8]8
  1121. [9]9
  1122. [1010
  1123. [1515
  1124.  
  1125. **P6b
  1126. [Utils]
  1127. [DXF/DXB]$p10=DXF $p10=*
  1128. [FILES:]^C^CFILES
  1129. [IGES:]$p10=IGES $p10=*
  1130. [MENU:]$p10=CHTEMP $p10=* ^C^CMENU
  1131. [PURGE:]$p10=PURGE $p10=* ^C^CPURGE
  1132. [RENAME:]$p10=RENAME $p10=* ^C^CRENAME
  1133. [SCRIPT:]$p10=SCRIPT $p10=* ^C^CSCRIPT
  1134. [SLIDES:]$p10=SLIDES $p10=*
  1135. [~--]
  1136. [Options Menu]$p6= $p6=*
  1137.  
  1138. **p6c
  1139. [Vpoint]
  1140. [VPOINT:]$p10=* vpoint
  1141. [ Enter  ]
  1142. [the Eye ]
  1143. [ Level  ]
  1144. [~--]
  1145. [ABOVE  5]^C^Cvpoint none (strcat vp "1.5")
  1146. [       4]^C^Cvpoint none (strcat vp "0.9")
  1147. [       3]^C^Cvpoint none (strcat vp "0.6")
  1148. [       2]^C^Cvpoint none (strcat vp "0.3")
  1149. [       1]^C^Cvpoint none (strcat vp "0.1")
  1150. [GROUND 0]^C^Cvpoint none (strcat vp ".0000001")
  1151. [      -1]^C^Cvpoint none (strcat vp "-0.1")
  1152. [      -2]^C^Cvpoint none (strcat vp "-0.3")
  1153. [      -3]^C^Cvpoint none (strcat vp "-0.6")
  1154. [      -4]^C^Cvpoint none (strcat vp "-0.9")
  1155. [BELOW -5]^C^Cvpoint none (strcat vp "-1.5")
  1156.  
  1157. **P6d
  1158. [RgnAuto]
  1159. [RGNAUTO:]^C^C$p10=* REGENAUTO
  1160. [~--]
  1161. ON
  1162. OFF
  1163.  
  1164. **P6e
  1165. [Attributes]
  1166. [ATTDEF:]^C^C$p10=attdef $p10=* attdef
  1167. [ATTDIA:]^C^C$p10=attdia $p10=* attdia
  1168. [ATTEDIT:]^C^C$p10=attedit $p10=* attedit
  1169. [ATTEXT:]^C^C$p10=attext $p10=* attext
  1170. [ATTDISP:]^C^C$p10=attdisp $p10=* attdisp
  1171. [~--]
  1172. [Options Menu]$p6= $p6=*
  1173.  
  1174. **P6z
  1175. [Hide]
  1176. [~HIDE ?]
  1177. [~--]
  1178. [YES]^C^CHIDE
  1179. [NO]$p10= $p10=
  1180.  
  1181. ***POP7
  1182. [File]
  1183. [End]^C^C$p10=p7a $p10=*
  1184. [Quit]^C^C$p10=p7b $p10=* quit
  1185. [Save]^C^CSave
  1186. [~--]
  1187. [Plot]^C^Cplot
  1188. [Print]^C^Cprplot
  1189. [~--]
  1190. [Delete]^c^cdel
  1191. [Dir]^c^cdir
  1192. [Edit]^c^cNE
  1193. [Shell]^c^cshell ;
  1194. [Type]^c^ctype
  1195.  
  1196. **P7a
  1197. [End]
  1198. [~--]
  1199. [END ?]$p7=*
  1200. [~--]
  1201. [Yes]^C^CEND
  1202. [No]$p7= $p7=*
  1203.  
  1204. **P7b
  1205. [Quit]
  1206. [~--]
  1207. [QUIT:]^c^c$p7=* quit
  1208. [~--]
  1209. [Yes]Y
  1210. [No]n
  1211.  
  1212. ***POP8
  1213. [Add-on]
  1214. [Electrical]$p8=electrical $p8=*
  1215. [Furnishings]$p8=furnishings $p8=*
  1216. [Interior]$p8=interior $p8=*
  1217. [Landscape]$p8=landscape $p8=*
  1218. [Plumbing]$p8=plumbing $p8=*
  1219. [~--]
  1220. [Lisp Routines]^C^C$p8=lisp $p8=*
  1221. [~--]
  1222. [Ashade]^P(cond ((null C:SCENE) +
  1223. (vmon) (prompt "Please wait...  Loading ashade.  ") +
  1224. (load "ashade")) (T (princ))) ^P$i=as $i=*
  1225.  
  1226. **plumbing
  1227. [Plumbing]
  1228. [EXAMPLES ONLY]
  1229. [NON-FUNCTIONAL]
  1230. [Single sink]^C^CINSERT /ACAD/BLOCKS/PLMB001 \;;
  1231. [Double sink]^C^CINSERT /ACAD/BLOCKS/PLMB002 \;;
  1232. [Triple sink]^C^CINSERT /ACAD/BLOCKS/PLMB004 \;;
  1233. [Oval basin]^C^CINSERT /ACAD/BLOCKS/PLMB006 \;;
  1234. [Rect. basin]^C^CINSERT /ACAD/BLOCKS/PLMB015 \;;
  1235. [1-pc. commode]^C^CINSERT /ACAD/BLOCKS/PLMB012 \;;
  1236. [2-pc. commode]^C^CINSERT /ACAD/BLOCKS/PLMB011 \;;
  1237. [Bidet]^C^CINSERT /ACAD/BLOCKS/PLMB013 \;;
  1238. [Shower]^C^CINSERT /ACAD/BLOCKS/PLMB021 \;;
  1239. [Corner shower]^C^CINSERT /ACAD/BLOCKS/PLMB022 \;;
  1240. [Spa]^C^CINSERT /ACAD/BLOCKS/PLMB023 \;;
  1241. [5' tub]^C^CINSERT /ACAD/BLOCKS/PLMB024 \;;
  1242. [6' tub]^C^CINSERT /ACAD/BLOCKS/PLMB034 \;;
  1243. [~--]
  1244. [Electrical]$p8=electrical $p8=*
  1245. [Furnishings]$p8=furnishings $p8=*
  1246. [Interior]$p8=interior $p8=*
  1247. [Landscape]$p8=landscape $p8=*
  1248. [~--]
  1249. [Add-on Menu]$p8=POp8 $p8=*
  1250.  
  1251. **electrical
  1252. [Electrical]
  1253. [EXAMPLES ONLY]
  1254. [NON-FUNCTIONAL]
  1255. [Ceiling Light]^C^CINSERT /ACAD/BLOCKS/ELEC001 S (GETVAR "DIMSCALE");\;
  1256. [Wall-mounted Light]^C^CINSERT /ACAD/BLOCKS/ELEC002 S (GETVAR "DIMSCALE");\
  1257. [Wall Switch]^C^CINSERT /ACAD/BLOCKS/ELEC003 S (GETVAR "DIMSCALE");\
  1258. [3-way Wall Switch]^C^CINSERT /ACAD/BLOCKS/ELEC023 S (GETVAR "DIMSCALE");\
  1259. [Exhaust Fan]^C^CINSERT /ACAD/BLOCKS/ELEC021 S ( * 2 (GETVAR "DIMSCALE"));\
  1260. [Paddle Fan]^C^CINSERT /ACAD/BLOCKS/ELEC004 S (GETVAR "DIMSCALE");\;
  1261. [Paddle Fan w/light]^C^CINSERT /ACAD/BLOCKS/ELEC014 S (GETVAR "DIMSCALE");\
  1262. [Duplex Outlet]^C^CINSERT /ACAD/BLOCKS/ELEC011 S (GETVAR "DIMSCALE");\
  1263. [Range Outlet]^C^CINSERT /ACAD/BLOCKS/ELEC012 S (GETVAR "DIMSCALE");\
  1264. [Split Wired Outlet]^C^CINSERT /ACAD/BLOCKS/ELEC009 S (GETVAR "DIMSCALE");\
  1265. [Phone Jack]^C^CINSERT /ACAD/BLOCKS/ELEC005 S (GETVAR "DIMSCALE");\
  1266. [Cable TV Jack]^C^CINSERT /ACAD/BLOCKS/ELEC019 S (GETVAR "DIMSCALE");\
  1267. [Special Connection]^C^CINSERT /ACAD/BLOCKS/ELEC008 S (GETVAR "DIMSCALE");\
  1268. [Special Receptacle]^C^CINSERT /ACAD/BLOCKS/ELEC013 S (GETVAR "DIMSCALE");\
  1269. [Junction Box]^C^CINSERT /ACAD/BLOCKS/ELEC022 S (GETVAR "DIMSCALE");\
  1270. [Thermostat]^C^CINSERT /ACAD/BLOCKS/ELEC020 S (GETVAR "DIMSCALE");\
  1271. [Smoke Alarm]^C^CINSERT /ACAD/BLOCKS/ELEC007 S (GETVAR "DIMSCALE");\
  1272. [~--]
  1273. [Furnishings]$p8=furnishings $p8=*
  1274. [Interior]$p8=interior $p8=*
  1275. [Landscape]$p8=landscape $p8=*
  1276. [Plumbing]$p8=plumbing $p8=*
  1277. [~--]
  1278. [Add-on Menu]$p8=POp8 $p8=*
  1279.  
  1280. **interior
  1281. [Interior]
  1282. [EXAMPLES ONLY]
  1283. [NON-FUNCTIONAL]
  1284. [Cased opening]^C^C(if (not C:OPEN) (load "/acad/lisp/open")) open;
  1285. [Single door]^C^C(if (not C:SSSA) (load "/acad/lisp/sssa")) sssa;
  1286. [Double door]^C^C(if (not C:DSSA) (load "/acad/lisp/dssa")) dssa;
  1287. [Pocket door]^C^C(if (not C:POCK) (load "/acad/lisp/pock")) pock;
  1288. [Bifold door]^C^C(if (not C:BFD) (load "/acad/lisp/bfd")) bfd;
  1289. [Garage door]^C^C(if (not C:GD) (load "/acad/lisp/gd")) gd;
  1290. [Single window]^C^C(if (not C:SW) (load "/acad/lisp/sw")) sw;
  1291. [Double window]^C^C(if (not C:DW) (load "/acad/lisp/dw")) dw;
  1292. [Triple window]^C^C(if (not C:TW) (load "/acad/lisp/tw")) tw;
  1293. [~--]
  1294. [Electrical]$p8=electrical $p8=*
  1295. [Furnishings]$p8=furnishings $p8=*
  1296. [Landscape]$p8=landscape $p8=*
  1297. [Plumbing]$p8=plumbing $p8=*
  1298. [~--]
  1299. [Add-on Menu]$p8=POp8 $p8=*
  1300.  
  1301. **landscape
  1302. [Landscape]
  1303. [EXAMPLES ONLY]
  1304. [NON-FUNCTIONAL]
  1305. [Tree 1]^C^CINSERT /ACAD/BLOCKS/LAND001
  1306. [Tree 2]^C^CINSERT /ACAD/BLOCKS/LAND002
  1307. [Tree 3]^C^CINSERT /ACAD/BLOCKS/LAND011
  1308. [Tree 4]^C^CINSERT /ACAD/BLOCKS/LAND012
  1309. [Round Shrub]^C^CINSERT /ACAD/BLOCKS/LAND003
  1310. [Square Shrub]^C^CINSERT /ACAD/BLOCKS/LAND023
  1311. [Plant 1]^C^CINSERT /ACAD/BLOCKS/LAND013
  1312. [Plant 2]^C^CINSERT /ACAD/BLOCKS/LAND021
  1313. [Plant 3]^C^CINSERT /ACAD/BLOCKS/LAND022
  1314. [Automobile]^C^CINSERT /ACAD/BLOCKS/LAND004 \;;
  1315. [Truck]^C^CINSERT /ACAD/BLOCKS/LAND014 \;;
  1316. [Semi-Truck]^C^CINSERT /ACAD/BLOCKS/LAND024 \;;
  1317. [~--]
  1318. [Electrical]$p8=electrical $p8=*
  1319. [Furnishings]$p8=furnishings $p8=*
  1320. [Interior]$p8=interior $p8=*
  1321. [Plumbing]$p8=plumbing $p8=*
  1322. [~--]
  1323. [Add-on Menu]$p8=POp8 $p8=*
  1324.  
  1325. **furnishings
  1326. [Furnishings]
  1327. [EXAMPLES ONLY]
  1328. [NON-FUNCTIONAL]
  1329. [Washer]^C^CINSERT /ACAD/BLOCKS/INTR001 \;;
  1330. [Dryer]^C^CINSERT /ACAD/BLOCKS/INTR002 \;;
  1331. [Range]^C^CINSERT /ACAD/BLOCKS/INTR003 \;;
  1332. [Range w/grill]^C^CINSERT /ACAD/BLOCKS/INTR004 \;;
  1333. [Refrig.]^C^CINSERT /ACAD/BLOCKS/INTR011 \;;
  1334. [Sofa]^C^CINSERT /ACAD/BLOCKS/INTR012 \;;
  1335. [Loveseat]^C^CINSERT /ACAD/BLOCKS/INTR013 \;;
  1336. [Armchair]^C^CINSERT /ACAD/BLOCKS/INTR014 \;;
  1337. [Sq. Table]^C^CINSERT /ACAD/BLOCKS/INTR023 \;;
  1338. [Rnd.Table]^C^CINSERT /ACAD/BLOCKS/INTR024 \;;
  1339. [~--]
  1340. [Electrical]$p8=electrical $p8=*
  1341. [Interior]$p8=interior $p8=*
  1342. [Landscape]$p8=landscape $p8=*
  1343. [Plumbing]$p8=plumbing $p8=*
  1344. [~--]
  1345. [Add-on Menu]$p8=POp8 $p8=*
  1346.  
  1347. **lisp
  1348. [Lisp Routines]
  1349. [Calc](calc)$p8=*
  1350. [Change Text]^C^C(IF (NOT C:chgtxt) (LOAD "/ACAD/LISP/chgtxt")) chgtext $p8=*
  1351. [Delete Layer]^C^C(IF (NOT C:dellayer) (LOAD "/ACAD/LISP/dellayer")) dellayer $p8=*
  1352. [Import ASCII]^C^C(IF (NOT C:asctext) (LOAD "/ACAD/LISP/asctext")) asctext
  1353. [Layer Explode]^C^C(IF (NOT C:lexplode) (LOAD "/ACAD/LISP/lexplode")) lexplode
  1354. [~--]
  1355. [Add-on Menu]$p8=POP8 $p8=*
  1356.  
  1357. ***POP9
  1358. [Inquire]
  1359. [Area]^C^C$p10=area $p10=* area
  1360. [DbList]^c^cdblist
  1361. [Distance]^C^Cdist
  1362. [Help]help
  1363. [ID]^c^cid
  1364. [List]^C^C$p10=list $p10=* list
  1365. [Status]^C^Cstatus
  1366. [Time]^C^Ctime
  1367.  
  1368. **P9a
  1369. [ID]
  1370. [ID:]^C^C$p10=p9a $p10=*ID
  1371. [~--]
  1372. .x
  1373. .y
  1374. .z
  1375. .xy
  1376. .xz
  1377. .yz
  1378.  
  1379. ***POP10
  1380. [ ]
  1381.  
  1382.  
  1383. **ATTDEF
  1384.  AttDef
  1385. [ATTDEF:]^C^C$p10=* ATTDEF
  1386. [~--]
  1387. Invis
  1388. Constant
  1389. Verify
  1390. Aligned
  1391. [Preset]P
  1392. [Centered]C
  1393. Fit
  1394. Middle
  1395. Right
  1396. Style
  1397.  
  1398. **BASE
  1399. [Base]
  1400. [BASE:]^C^CBASE
  1401.  
  1402. **LAYER
  1403. [Layer]
  1404. [LAYER:]^C^CLAYER
  1405. [~--]
  1406. [?]? *
  1407. Make
  1408. Set
  1409. New
  1410. ON
  1411. OFF
  1412. [Color]COLOR $p10=LACOLOR $p10=* \$p10=
  1413. [Chroma]^C^CVSLIDE chroma
  1414. [Restore]'REDRAW
  1415. [Ltype]LTYPE $p10=LALT $p10=* \$p10=
  1416. Freeze
  1417. Thaw
  1418.  
  1419. **LACOLOR
  1420. [Color]
  1421. [~--]
  1422. [red]RED
  1423. [yellow]YELLOW
  1424. [green]GREEN
  1425. [cyan]CYAN
  1426. [blue]BLUE
  1427. [magenta]MAGENTA
  1428. [white]WHITE
  1429.  
  1430. **LALT
  1431. [Linetype]
  1432. [~--]
  1433. [contin.]CONTINUOUS
  1434. [dashed]DASHED
  1435. [hidden]HIDDEN
  1436. [center]CENTER
  1437. [phantom]PHANTOM
  1438. [dot]DOT
  1439. [dashdot]dashdot
  1440. [border]border
  1441. [divide]divide
  1442.  
  1443. **ATTDISP
  1444. [AttDisp]
  1445. [ATTDISP:]^C^C$p10=* ATTDISP
  1446. [~--]
  1447. normal
  1448. ON
  1449. OFF
  1450.  
  1451. **ATTDIA
  1452. [Attdia]
  1453. [ATTDIA:]^C^C$p10=* ATTDIA
  1454. [~--]
  1455. [On]1;
  1456. [Off]0;
  1457.  
  1458.  
  1459. **3D
  1460. [3D-Options]
  1461. [3DFACE:]$p10=3DFACE $p10=* ^C^C3DFACE
  1462. [3DLINE:]^C^C$p10=3DLINE $p10=* 3dline
  1463. [3DMESH:]^C^C3dmesh
  1464. [3DPOLY:]^C^C3dpoly
  1465. [EDGESURF:]^C^Cedgesurf
  1466. [REVSURF:]^C^Crevsurf
  1467. [RULESURF:]^C^Crulesurf
  1468. [TABSURF:]^C^Ctabsurf
  1469. [~--]
  1470. [Splframe]'setvar splframe
  1471. [Surftab1]'setvar surftab1
  1472. [Surftab2]'setvar surftab2
  1473. [Surftype]'setvar surftype
  1474. [Surfu]'setvar surfu
  1475. [Surfv]'setvar surfv
  1476. [Thickness]'setvar thickness
  1477. [~--]
  1478. [CHPROP:]$p10=ELEVTHK $p10=* ^C^CCHPROP
  1479. [HIDE:]$p10=HIDE $p10=* hide
  1480. [VPOINT:]^C^CVPOINT \$p6=*
  1481. rotate
  1482. [axes];
  1483. [plan]none 0,0,1
  1484. [~--]
  1485. [Options Menu]$p6= $p6=*
  1486.  
  1487. **ELEVTHK
  1488. [Chprop]
  1489. [CHPROP:]^C^Cchprop
  1490. [~--]
  1491. [Color]C
  1492. [Thickness]T
  1493. [Layer]LA
  1494. [Ltype]LT
  1495. [~--]
  1496. Add
  1497. Auto
  1498. Box
  1499. Crossing
  1500. Last
  1501. Multiple
  1502. Previous
  1503. Remove
  1504. Single
  1505. Undo
  1506. Window
  1507.  
  1508.  
  1509.  
  1510.  
  1511.  
  1512. **ASHADE
  1513.  Ashade
  1514. [LIGHTS:]^C^C$p10=LIGHTS $p10=* LIGHT
  1515. [CAMERA:]^C^C$p10=CAMERA $p10=* CAMERA
  1516. [ACTION]^C^C$$p10=*=ACTION
  1517.  
  1518. **LIGHTS
  1519.  Lights
  1520. [LIGHT:]^C^CLIGHT $p10=*
  1521. [~--]
  1522. [Point]p
  1523. [Directed]d
  1524. [~--]
  1525. [Filters]
  1526. .x
  1527. .y
  1528. .z
  1529. .xy
  1530. .xz
  1531. .yz
  1532. [~--]
  1533. [CAMERA:]^C^C$p10=CAMERA $p10=* CAMERA
  1534. [ACTION]$p10=ACTION $p10=*
  1535.  
  1536. **CAMERA
  1537.  Camera
  1538. [CAMERA:]^C^CCAMERA
  1539. [~--]
  1540. [Filters]
  1541. .x
  1542. .y
  1543. .z
  1544. .xy
  1545. .xz
  1546. .yz
  1547. [~--]
  1548. [LIGHTS:]^C^C$p10=LIGHTS $p10=* LIGHT
  1549. [ACTION]$p10=ACTION $p10=*
  1550.  
  1551. **ACTION
  1552.  Action
  1553. [ACTION]
  1554. [~--]
  1555. [SCENE:]^C^CSCENE
  1556. [FLMROLL:]^C^CFILMROLL
  1557. [~--]
  1558. [LIGHTS:]^C^C$p10=LIGHTS $p10=* LIGHT
  1559. [CAMERA:]^C^C$p10=CAMERA $p10=* CAMERA
  1560.  
  1561.  
  1562. **3DLINE
  1563.  3D Line
  1564. [3DLINE:]^C^C3DLINE
  1565. [~--]
  1566. [continue]^C^C$p10=* 3DLINE;;
  1567. close
  1568. undo
  1569. .x
  1570. .y
  1571. .z
  1572. .xy
  1573. .xz
  1574. .yz
  1575.  
  1576. **3DFACE
  1577. [3D Face]
  1578. [3DFACE:]^C^C3DFACE
  1579. [~--]
  1580. .x
  1581. .y
  1582. .z
  1583. .xy
  1584. .xz
  1585. .yz
  1586.  
  1587.  
  1588. **3DLISP 3
  1589.  
  1590.  
  1591. **LIST
  1592. [List]
  1593. [LIST:]^C^CLIST
  1594. [~--]
  1595. Add
  1596. Auto
  1597. Box
  1598. Crossing
  1599. Last
  1600. Multiple
  1601. Previous
  1602. Remove
  1603. Single
  1604. Undo
  1605. Window
  1606.  
  1607. **AREA
  1608. [Area]
  1609. [AREA:]^C^CAREA
  1610. [~--]
  1611. Add
  1612. Subtract
  1613. Entity
  1614.  
  1615. **AXIS
  1616. [Axis]
  1617. [AXIS:]$p10=* AXIS
  1618. [~--]
  1619. [axs=snap]SNAP
  1620. [~--]
  1621. ON
  1622. OFF
  1623. Aspect
  1624.  
  1625. **BLIPMODE
  1626. Blips
  1627. [BLIPS:]^C^C$p10=* BLIPMODE
  1628. [~--]
  1629. ON
  1630. OFF
  1631. [~--]
  1632.  
  1633.  
  1634. **OSNAPC
  1635. [Osnap]
  1636. [OSNAP:]^C^COSNAP
  1637. [~--]
  1638. [CENter]CENTER\
  1639. [ENDpoint]ENDPOINT\
  1640. [INSert]INSERT\
  1641. [INTersec]INTERSEC\
  1642. [MIDpoint]MIDPOINT\
  1643. [NEArest]NEAREST\
  1644. [NODe]NODE\
  1645. [PERpend]PERPEND\
  1646. [QUAdrant]QUADRANT\
  1647. [TANgent]TANGENT\
  1648. [NONE]^C^COSNAP NONE
  1649. [Quick,]QUICK,^Z
  1650.  
  1651. **DRAGMODE
  1652. [DRAGMODE:]$p10=* DRAGMODE
  1653. [~--]
  1654. [ON]ON $p10=
  1655. [OFF]OFF $p10=
  1656. [Auto]A $p10=
  1657.  
  1658. **ELEV
  1659. [Elev]
  1660. [ELEV:]$p10=* ELEV
  1661.  
  1662. **SETVAR
  1663. [SetVar]
  1664. [SETVAR:]^C^C$p10=* SETVAR
  1665. [~--]
  1666. ?
  1667. ['SETVAR]'SETVAR
  1668.  
  1669. **QTEXT
  1670. [Qtext]
  1671. [QTEXT:]^C^C$p10=* QTEXT
  1672. [~--]
  1673. ON
  1674. OFF
  1675. [REGEN:]REGEN
  1676. [~--]
  1677. [RGNAUTO:]^C^Cp10=p6d $p10=* REGENAUTO
  1678.  
  1679.  
  1680. **ATTEXT
  1681. Attext
  1682. [ATTEXT:]^C^C$p10=* ATTEXT
  1683. [--]
  1684. CDF
  1685. SDF
  1686. DXF
  1687. ENTITIES
  1688. [~--]
  1689. Add
  1690. Auto
  1691. Box
  1692. Crossing
  1693. Last
  1694. Multiple
  1695. Previous
  1696. Remove
  1697. Single
  1698. Undo
  1699. Window
  1700.  
  1701. **SLIDES
  1702. Slides
  1703. [MSLIDE:]^C^CMSLIDE
  1704. [VSLIDE:]^C^CVSLIDE
  1705. [~--]
  1706. Yes
  1707. No
  1708.  
  1709. **SCRIPT
  1710. Script
  1711. [SCRIPT:]^C^CSCRIPT
  1712. [~--]
  1713. [DELAY:]^C^CDELAY
  1714. [RESUME:]^C^CRESUME
  1715. [RSCRIPT:]^C^CRSCRIPT
  1716.  
  1717. **PURGE
  1718. Purge
  1719. [PURGE:]PURGE
  1720. [~--]
  1721. Blocks
  1722. LAyers
  1723. LTypes
  1724. Styles
  1725. All
  1726. [~--]
  1727. Yes
  1728. No
  1729.  
  1730. **RENAME
  1731. Rename
  1732. [RENAME:]^C^CRENAME
  1733. [~--]
  1734. Block
  1735. LAyer
  1736. LType
  1737. Style
  1738. View
  1739.  
  1740. **DXF
  1741. DXF
  1742. [DXFIN:]^C^CDXFIN
  1743. [DXFOUT:]^C^CDXFOUT
  1744. [~--]
  1745. 16
  1746. Entities
  1747. [~--]
  1748. Add
  1749. Auto
  1750. Box
  1751. Crossing
  1752. Last
  1753. Multiple
  1754. Previous
  1755. Remove
  1756. Single
  1757. Undo
  1758. Window
  1759. [~--]
  1760. [DXBIN:]^C^CDXBIN
  1761.  
  1762. **IGES
  1763. IGES
  1764. [IGESIN:]^C^CIGESIN
  1765. [IGESOUT:]^C^CIGESOUT
  1766.  
  1767.  
  1768. **ATTEDIT
  1769. AttEdit
  1770. [ATTEDIT:]^C^C$p10=* ATTEDIT
  1771. [~--]
  1772. Angle
  1773. Change
  1774. [Color]$p10=ATTCOLOR $p10=* C
  1775. Height
  1776. Layer
  1777. Next
  1778. Position
  1779. Replace
  1780. Style
  1781. Value
  1782. [~--]
  1783. Add
  1784. Auto
  1785. Box
  1786. Crossing
  1787. Last
  1788. Multiple
  1789. Previous
  1790. Remove
  1791. Single
  1792. Undo
  1793. Window
  1794.  
  1795. **ATTCOLOR
  1796. AttColor
  1797. [red]RED $p10=
  1798. [yellow]YELLOW $p10=
  1799. [green]GREEN $p10=
  1800. [cyan]CYAN $p10=
  1801. [blue]BLUE $p10=
  1802. [magenta]MAGENTA $p10=
  1803. [white]WHITE $p10=
  1804.  
  1805.  
  1806. **UNITS
  1807. Units
  1808. [~--]
  1809. [~  UNIT  ]
  1810. [~  TYPE  ]
  1811. [~--]
  1812. [scientfc]1;
  1813. [~--]
  1814. [decimal ]2;
  1815. [~--]
  1816. [enginrng]3;
  1817. [~--]
  1818. [archtect]4;
  1819. [~--]
  1820. [metric  ]5;
  1821.  
  1822.  
  1823. **U1
  1824. Sci/Scale
  1825. [~--]
  1826. [~Scientfc]
  1827. [~ Scale  ]
  1828. [~--]
  1829. [4 TIMES ]4.0;
  1830. [~--]
  1831. [2 TIMES ]2.0;
  1832. [~--]
  1833. [FULL    ]1.0;
  1834. [~--]
  1835. [HALF    ]0.5;
  1836. [~--]
  1837. [QUARTER ]0.25;
  1838. [~--]
  1839. [OTHER   ]0;
  1840.  
  1841.  
  1842.  
  1843. **U2
  1844. Dec/Scale
  1845. [~--]
  1846. [~Decimal ]
  1847. [~ Scale  ]
  1848. [~--]
  1849. [4 TIMES ]4.0;
  1850. [~--]
  1851. [2 TIMES ]2.0;
  1852. [~--]
  1853. [FULL    ]1.0;
  1854. [~--]
  1855. [3/4     ].75;
  1856. [~--]
  1857. [HALF    ]0.5;
  1858. [~--]
  1859. [QUARTER ]0.25;
  1860. [~--]
  1861. [OTHER   ]0;
  1862.  
  1863.  
  1864. **U3
  1865. Eng/Scale
  1866. [~--]
  1867. [~Enginrng]
  1868. [~ Scale  ]
  1869. [~--]
  1870. [1"=10'  ]120.0;
  1871. [1"=20'  ]240.0;
  1872. [~--]
  1873. [1"=30'  ]360.0;
  1874. [1"=40'  ]480.0;
  1875. [~--]
  1876. [1"=50'  ]600.0;
  1877. [1"=60'  ]720.0;
  1878. [~--]
  1879. [1"=80'  ]960.0;
  1880. [1"=100' ]1200.0;
  1881. [~--]
  1882. [OTHER   ]0;
  1883.  
  1884. **U4
  1885. Arch/Scale
  1886. [~Archtect]
  1887. [~ Scale]
  1888. [~--]
  1889. [1/40"=1']480.0;
  1890. [1/20"=1']240.0;
  1891. [1/16"=1']192.0;
  1892. [ 1/8"=1']96.0;
  1893. [ 1/4"=1']48.0;
  1894. [~--]
  1895. [ 1/2"=1']24.0;
  1896. [ 3/4"=1']16.0;
  1897. [   1"=1']12.0;
  1898. [   3"=1']4.0;
  1899. [   6"=1']2.0;
  1900. [  FULL  ]1.0;
  1901. [~--]
  1902. [OTHER  >]0;
  1903.  
  1904. **U5
  1905. Met/Scale
  1906. [~ Metric  ]
  1907. [~ Scale]
  1908. [~--]
  1909. [ 1:5000 ]5000.0;
  1910. [ 1:2000 ]2000.0;
  1911. [ 1:1000 ]1000.0;
  1912. [ 1:500  ]500.0;
  1913. [ 1:200  ]200.0;
  1914. [~--]
  1915. [ 1:100  ]100.0;
  1916. [ 1:75   ]75.0;
  1917. [ 1:50   ]50.0;
  1918. [ 1:20   ]20.0;
  1919. [ 1:10   ]10.0;
  1920. [ 1:5    ]5.0;
  1921. [  FULL  ]1.0;
  1922. [~--]
  1923. [OTHER  >]0;
  1924.  
  1925. **ENGLISH
  1926. Sht/Size
  1927. [Horizntl]$p10=english $p10=*
  1928. [~--]
  1929. [~ Sheet  ]
  1930. [~ Size   ]
  1931. [~--]
  1932. [A-8.5x11]10.15 7.8;
  1933. [B- 11x17]15.64 9.96;
  1934. [C- 22x34]34.0 22.0;
  1935. [   18x24]24.0 18.0;
  1936. [~--]
  1937. [D- 24X36]36.0 24.0;
  1938. [   30x42]42.0 30.0;
  1939. [E- 36x42]42.0 36.0;
  1940. [~--]
  1941. [OTHER  >]0 0;
  1942. [~--]
  1943. [VERTCAL>]$p10=ENGVERT $p10=*
  1944.  
  1945.  
  1946. **ENGVERT 2
  1947. Sht/Size
  1948. [~Vertical]
  1949. [~--]
  1950. [~ Sheet  ]
  1951. [~ Size   ]
  1952. [~--]
  1953. [A-8.5x11]7.8 10.15;
  1954. [B- 11x17]9.96 15.64;
  1955. [C- 22x34]22.0 34.0;
  1956. [   18x24]18.0 24.0;
  1957. [~--]
  1958. [D- 24X36]24.0 36.0;
  1959. [   30x42]30.0 42.0;
  1960. [E- 36x42]36.0 42.0;
  1961. [~--]
  1962. [OTHER  >]0 0;
  1963. [~--]
  1964. [HORZNTL>]$p10=ENGLISH $p10=*
  1965.  
  1966. **METRIC
  1967. [~  Size]
  1968. [~--]
  1969. [~Horizntl]
  1970. [~--]
  1971. [~ Sheet  ]
  1972. [~ Size   ]
  1973. [~--]
  1974. [1189x841]1189.0 841.0;
  1975. [1000x707]1000.0 707.0;
  1976. [ 841x594]841.0 594.0;
  1977. [~--]
  1978. [ 594x420]594.0 420.0;
  1979. [ 420x297]420.0 297.0;
  1980. [ 297x210]297.0 210.0;
  1981. [~--]
  1982. [OTHER  >]0 0;
  1983. [~--]
  1984. [VERTCAL>]$p10=METRICVERT $p10=*
  1985.  
  1986. **METRICVERT
  1987. [~  Size]
  1988. [~Vertical]
  1989. [~--]
  1990. [~ Sheet  ]
  1991. [~ Size   ]
  1992. [~--]
  1993. [1189x841]841.0 1189.0;
  1994. [1000x707]707.0 1000.0;
  1995. [ 841x594]594.0 841.0;
  1996. [~--]
  1997. [ 594x420]420.0 594.0;
  1998. [ 420x297]297.0 420.0;
  1999. [ 297x210]210.0 297.0;
  2000. [~--]
  2001. [OTHER  >]0 0;
  2002. [~--]
  2003. [HORZNTL>]$p10=METRIC $p10=*
  2004.  
  2005.  
  2006. **CHTEMP
  2007.   Menu
  2008. [MENU:]^C^Cmenu
  2009. [~--]
  2010. [Pulldown]pulldown
  2011. [Acad    ]acad
  2012.  
  2013.  
  2014. ***icon
  2015.  
  2016. **poly
  2017. [Set Polymesh and Polyline Variables]
  2018. [acad(pmq)]'setvar surftype 5
  2019. [acad(pmc)]'setvar surftype 6
  2020. [acad(pmb)]'setvar surftype 8
  2021. [acad(plq)]'setvar splinetype 5
  2022. [acad(plc)]'setvar splinetype 6
  2023. [ Set SPLINESEGS]'setvar splinesegs \
  2024. [ Set SPLFRAME]'setvar splframe \
  2025. [ Set DENSITY]'setvar surfu \'setvar surfv \
  2026. [ Exit]$p3=pop3
  2027.  
  2028.  
  2029.  
  2030. **as
  2031. [Select Ashade Command]
  2032. [acad(camera)]^C^C$p10=CAMERA $p10=* camera
  2033. [acad(point)]^C^C$p10=LIGHTS $p10=* LIGHT \p \$i=*
  2034. [acad(directed)]^C^C$p10=LIGHTS $p10=* LIGHT \d \\$i=*
  2035. [acad(scene)]^C^C$p10=ACTION $p10=* scene
  2036. [acad(filmroll)]^C^C$p10=ACTION $p10=* filmroll
  2037. [ Exit]^c^c
  2038.  
  2039. **ucs
  2040. [User Coordinate System Options]
  2041. [ Set to World]^C^Cucs world
  2042. [acad(left)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2043. ucs 3p \@0,-1,0 @0,0,1 ^P
  2044. [ Set to Screen]^C^Cucs view
  2045. [acad(top)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2046. ucs 3p \@1,0,0 @0,1,0 ^P
  2047. [acad(front)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2048. ucs 3p \@1,0,0 @0,0,1 ^P
  2049. [acad(bottom)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2050. ucs 3p \@1,0,0 @0,-1,0 ^P
  2051. [acad(back)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2052. ucs 3p \@-1,0,0 @0,0,1 ^P
  2053. [acad(right)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  2054. ucs 3p \@0,1,0 @0,0,1 ^P
  2055. [ Exit]^c^c
  2056.  
  2057. **3DViews
  2058. [Select 3D View]
  2059. [acad(ul)]^C^C(setq vp "-1,1,") (princ "Enter Eye level from screen menu: ") $p10=p6c $p10=*
  2060. [acad(l)]^C^C(setq vp "-1,.0000001,") (princ "Enter Eye level from screen menu: ") $p10=p6c $p10=*
  2061. [acad(ll)]^C^C(setq vp "-1,-1,") (princ "Enter Eye level from screen menu: ") $p10=p6c $p10=*
  2062. [acad(user)]
  2063. [acad(u)]^C^C(setq vp ".0000001,1,") (princ "Enter Eye level from screen menu: ") $p10=p6c $p10=*
  2064. [acad(p)]^C^Cvpoint none 0,0,1 $p10=3D $p10=*
  2065. [acad(lo)]^C^C(setq vp ".0000001,-1,") (princ "Enter Eye level from screen menu: ") $p10=p6c $p10=*
  2066. [acad(user)]
  2067. [acad(ur)]^C^C(setq vp "1,1,") (princ "Enter Eye level from screen menu: ") $p10=p6c $p10=*
  2068. [acad(r)]^C^C(setq vp "1,.0000001,") (princ "Enter Eye level from screen menu: ") $p10=p6c $p10=*
  2069. [acad(lr)]^C^C(setq vp "1,-1,") (princ "Enter Eye level from screen menu: ") $$p10=p6c $p10=*
  2070. [acad(user)]
  2071. [acad(t)]$p10=p6c vpoint;;
  2072. [acad(h)]$p10=p6z $p10=* hide
  2073. [ Exit]^c^c
  2074.  
  2075. **3DObjects
  2076. [3D Objects and 3D Surface Commands]
  2077. [acad(box3d)]^C^C^P(progn(setq m:err *error*)(prin1))+
  2078. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2079. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2080. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2081. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2082. (prompt "Check installation of the Support Files and try again.")+
  2083. (princ))))(T (princ)))(cond ((not (null C:BOX))(C:BOX))(T (princ)));+
  2084. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2085. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2086. [acad(wedge)]^C^C^P(progn(setq m:err *error*)(princ));+
  2087. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2088. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2089. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2090. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2091. (prompt "Check installation of the Support Files and try again.")+
  2092. (princ))))(T (princ)))(cond ((not (null C:WEDGE))(C:WEDGE))(T (princ)));+
  2093. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2094. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2095. [acad(rev)]^C^Crevsurf
  2096. [acad(surftab1)]'setvar surftab1 \$I=*
  2097. [acad(pyramid)]^C^C^P(progn(setq m:err *error*)(princ))+
  2098. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2099. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2100. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2101. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2102. (prompt "Check installation of the Support Files and try again.")+
  2103. (princ))))(T (princ)))(cond ((not (null C:PYRAMID))(C:PYRAMID))(T (princ)));+
  2104. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2105. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2106. [acad(cone)]^C^C^P(progn(setq m:err *error*)(princ));+
  2107. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2108. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2109. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2110. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2111. (prompt "Check installation of the Support Files and try again.")+
  2112. (princ))))(T (princ)))(cond ((not (null C:CONE))(C:CONE))(T (princ)));+
  2113. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2114. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2115. [acad(rul)]^C^Crulesurf
  2116. [acad(surftab2)]'setvar surftab2 \$I=*
  2117. [acad(dome)]^C^C^P(progn(setq m:err *error*)(princ));+
  2118. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2119. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2120. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2121. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2122. (prompt "Check installation of the Support Files and try again.")+
  2123. (princ))))(T (princ)))(cond ((not (null C:DOME))(C:DOME))(T (princ)));+
  2124. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2125. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2126. [acad(dish)]^C^C^P(progn(setq m:err *error*)(princ));+
  2127. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2128. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2129. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2130. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2131. (prompt "Check installation of the Support Files and try again.")+
  2132. (princ))))(T (princ)))(cond ((not (null C:DISH))(C:DISH))(T (princ)));+
  2133. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2134. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2135. [acad(edg)]^C^Cedgesurf
  2136. [acad(mesh)]^C^C^P(progn(setq m:err *error*)(princ));+
  2137. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2138. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2139. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2140. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2141. (prompt "Check installation of the Support Files and try again.")+
  2142. (princ))))(T (princ)))(cond ((not (null C:MESH))(C:MESH))(T (princ)));+
  2143. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2144. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2145. [acad(sphere)]^C^C^P(progn(setq m:err *error*)(princ));+
  2146. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2147. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2148. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  2149. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2150. (prompt "Check installation of the Support Files and try again.")+
  2151. (princ))))(T (princ)))(cond ((not (null C:SPHERE))(C:SPHERE))(T (princ)));+
  2152. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2153. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2154. [acad(torus)]^C^C^P(progn(setq m:err *error*)(princ));+
  2155. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  2156. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  2157. (load "3d")(menucmd "S=X")(menucmd "S=3D2"))(progn (terpri)(prompt +
  2158. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  2159. (prompt "Check installation of the Support Files and try again.")+
  2160. (princ))))(T (princ)))(cond ((not (null C:TORUS))(C:TORUS))(T (princ)));+
  2161. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  2162. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  2163. [acad(tab)]^C^Ctabsurf
  2164. [ Exit]^c^c
  2165.  
  2166. **dviewi
  2167. [DVIEW Options]
  2168. [acad(dvca)]^C^Cselect;\dview;p;;ca;\\;
  2169. [acad(dvzo)]^C^Cselect;\dview;p;;z;\;
  2170. [acad(dvpa)]^C^Cselect;\dview;p;;pa;\\;
  2171. [ Exit]^c^c
  2172.  
  2173.  
  2174. **fonts1
  2175. [Select Text Font]
  2176. [acad(romans)]^c^cstyle romans romans
  2177. [acad(romanc)]^c^cstyle romanc romanc
  2178. [acad(italicc)]^c^cstyle italicc italicc
  2179. [acad(romand)]^c^cstyle romand romand
  2180. [acad(romant)]^c^cstyle romant romant
  2181. [acad(italict)]^c^cstyle italict italict
  2182. [acad(monotxt)]^c^cstyle monotxt monotxt
  2183. [ Next]$i=fonts2 $i=*
  2184. [ Exit]^c^c
  2185.  
  2186. **fonts2
  2187. [Select Text Font]
  2188. [acad(gothice)]^c^cstyle gothice gothice
  2189. [acad(greeks)]^c^cstyle greeks greeks
  2190. [acad(scripts)]^c^cstyle scripts scripts
  2191. [acad(gothicg)]^c^cstyle gothicg gothicg
  2192. [acad(greekc)]^c^cstyle greekc greekc
  2193. [acad(scriptc)]^c^cstyle scriptc scriptc
  2194. [acad(gothici)]^c^cstyle gothici gothici
  2195. [ Next]$i=fonts3 $i=*
  2196. [ Exit]^c^c
  2197.  
  2198. **fonts3
  2199. [Select Text Font]
  2200. [acad(syastro)]^c^cstyle syastro syastro
  2201. [acad(symath)]^c^cstyle symath symath
  2202. [acad(symusic)]^c^cstyle symusic symusic
  2203. [acad(symap)]^c^cstyle symap symap
  2204. [acad(symeteo)]^c^cstyle symeteo symeteo
  2205. [acad(txt)]^c^cstyle txt txt
  2206. [acad(user)]
  2207. [ Begining]$i=fonts1 $i=*
  2208. [ Exit]^c^c
  2209.  
  2210. **hatch1
  2211. [Select Hatch Pattern]
  2212. [ Previous/User]^c^chatch
  2213. [acad(ansi31)]^c^chatch ansi31
  2214. [acad(ansi32)]^c^chatch ansi32
  2215. [acad(ansi34)]^c^chatch ansi34
  2216. [acad(ansi35)]^c^chatch ansi35
  2217. [acad(ansi33)]^c^chatch ansi33
  2218. [acad(ansi36)]^c^chatch ansi36
  2219. [acad(ansi37)]^c^chatch ansi37
  2220. [acad(ansi38)]^c^chatch ansi38
  2221. [acad(box)]^c^chatch box
  2222. [acad(brass)]^c^chatch brass
  2223. [acad(brick)]^c^chatch brick
  2224. [acad(clay)]^c^chatch clay
  2225. [acad(cork)]^c^chatch cork
  2226. [ Next]$i=hatch2 $i=*
  2227. [ Exit]^c^c
  2228.  
  2229. **hatch2
  2230. [Select Hatch Pattern]
  2231. [acad(cross)]^c^chatch cross
  2232. [acad(dash)]^c^chatch dash
  2233. [acad(dolmit)]^c^chatch dolmit
  2234. [acad(dots)]^c^chatch dots
  2235. [acad(earth)]^c^chatch earth
  2236. [acad(escher)]^c^chatch escher
  2237. [acad(flex)]^c^chatch flex
  2238. [acad(grass)]^c^chatch grass
  2239. [acad(grate)]^c^chatch grate
  2240. [acad(hex)]^c^chatch hex
  2241. [acad(honey)]^c^chatch honey
  2242. [acad(hound)]^c^chatch hound
  2243. [acad(insul)]^c^chatch insul
  2244. [acad(line)]^c^chatch line
  2245. [ Next]$i=hatch3 $i=*
  2246. [ Exit]^c^c
  2247.  
  2248. **hatch3
  2249. [Select Hatch Pattern]
  2250. [acad(mudst)]^c^chatch mudst
  2251. [acad(net)]^c^chatch net
  2252. [acad(net3)]^c^chatch net3
  2253. [acad(plast)]^c^chatch plast
  2254. [acad(plasti)]^c^chatch plasti
  2255. [acad(sacncr)]^c^chatch sacncr
  2256. [acad(square)]^c^chatch square
  2257. [acad(stars)]^c^chatch stars
  2258. [acad(steel)]^c^chatch steel
  2259. [acad(swamp)]^c^chatch swamp
  2260. [acad(trans)]^c^chatch trans
  2261. [acad(triang)]^c^chatch triang
  2262. [acad(zigzag)]^c^chatch zigzag
  2263. [acad(angle)]^c^chatch angle
  2264. [ Beginning]$i=hatch1 $i=*
  2265. [ Exit]^c^c
  2266.  
  2267. **vporti
  2268. [Viewport Settings (Current is dominant)]
  2269. [acad(vp1)]^C^CVPORTS;SI
  2270. [acad(vp3v)]^C^CVPORTS;SI;;3;v
  2271. [acad(vp3h)]^C^CVPORTS;SI;;3;h
  2272. [acad(vp4)]^C^CVPORTS;SI;;4
  2273. [acad(vp2v)]^C^CVPORTS;SI;;2;v
  2274. [acad(vp3r)]^C^CVPORTS;SI;;3;r
  2275. [acad(vp3l)]^C^CVPORTS;SI;;3;l
  2276. [acad(vp4l)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  2277. VPORTS;SI;;2;;(setvar "CVPORT" (car (cadr (vports))))(princ);;2;;;J;;+
  2278. (car (cadr (vports)));(setvar "CVPORT" (car (cadr (vports))))(princ)+
  2279. ;;3;h;(setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT"+
  2280. (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);ZOOM;A;+
  2281. (setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);+
  2282. ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)+
  2283. (princ);ZOOM;A;UNDO;E ^P
  2284. [acad(vp2h)]^C^CVPORTS;SI;;2;h
  2285. [acad(vp3a)]^C^CVPORTS;SI;;3;a;
  2286. [acad(vp3b)]^C^CVPORTS;SI;;3;b;
  2287. [acad(vp4r)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  2288. VPORTS;SI;;2;;;2;;(setvar "CVPORT" (car (caddr (vports))));;j;;+
  2289. (car (caddr (vports)));(setvar "CVPORT" (car (cadr (vports))));;3;h;+
  2290. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  2291. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  2292. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  2293. (setvar "gridmode" m:g)(princ);ZOOM;A;UNDO;E ^P
  2294. [ Join Viewports]^C^CVPORTS;J
  2295. [ Restore Saved]^C^CVPORTS;R;
  2296. [ List Saved]^C^CVPORTS;?;
  2297. [ Exit]^c^c
  2298.  
  2299.