home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1998 November / Dppcpro1198.iso / Nov / Intelcad / Uncompressed / API / Scripts / PEdit.scr < prev    next >
Encoding:
Text File  |  1998-03-18  |  17.1 KB  |  1,599 lines
  1. ;---------------------------------------------
  2. ;File name: Pedit.SCR
  3. ;Purpose: Demonstrate Pedit and options 
  4. ;
  5. ;Last Modified: 3/18/98
  6. ;---------------------------------------------
  7. CMDECHO
  8. 0
  9. PICKBOX
  10. 3
  11. APERTURE
  12. 10
  13. ;
  14. ; ERASE ALL THE CONTENTS ON THE SCREEN
  15. erase
  16. all
  17.  
  18. ; BLIPMODES OFF
  19. blipmode
  20. off
  21. ; Pline width to zero
  22. (command "setvar" "plinewid" "0")
  23. ;;;;;
  24. ; SET LAYER TO ZERO
  25. layer
  26. s
  27. 0
  28.  
  29. color
  30. bylayer
  31. ; SET A VARIABLES 
  32. vpoint
  33. 0,0,1
  34. ; ZOOM TO WINDOW OF 100x100
  35. zoom
  36. c
  37. 100,100
  38. 220
  39. elev
  40. 0
  41. 0
  42. gridmode
  43. 0
  44. fillmode
  45. 1
  46. snapmode
  47. 0
  48. linetype
  49. s
  50. bylayer
  51.  
  52. ; DRAW A WHITE GRID FOR REFERENCE
  53. layer
  54. m
  55. redpline
  56. c
  57. white
  58.  
  59.  
  60. line
  61. 0,0
  62. 0,250
  63. 250,250
  64. 250,0
  65. 0,0
  66.  
  67. line
  68. 0,50
  69. 250,50
  70.  
  71. line
  72. 0,100
  73. 250,100
  74.  
  75. line
  76. 0,150
  77. 250,150
  78.  
  79. line
  80. 50,0
  81. 50,250
  82.  
  83. line
  84. 100,0
  85. 100,250
  86.  
  87. line
  88. 150,0
  89. 150,250
  90.  
  91. line
  92. 0,200
  93. 250,200
  94.  
  95. line
  96. 0,200
  97. 250,200
  98.  
  99. line
  100. 200,250
  101. 200,0
  102.  
  103. layer
  104. s
  105. 0
  106.  
  107. ; ZOOM IN THE ENTIRE GRID 
  108. zoom
  109. all
  110. ;*********************************
  111. ; THIS IS WHERE THE FIRST BOX BEGINS
  112. ;*********************************
  113. layer
  114. m
  115. close
  116. c
  117. red
  118.  
  119.  
  120. ; ******************************************
  121. ; Using Close option on Plines
  122. text
  123. 1.9824,203.6914
  124. 3
  125.  
  126. 1) Close
  127. pline
  128. 4.0000,246.0000
  129. 44.0000,246.0000
  130. 44.0000,237.0000
  131.  
  132. pline
  133. 6.0000,219.0000
  134. 29.0000,230.0000
  135. 12.0000,230.0000
  136. a
  137. 14.0000,235.0000
  138. 18.0000,217.0000
  139.  
  140. 3dpoly
  141. 32.0000,209.0000
  142. 41.0000,219.0000
  143. 45.0000,206.0000
  144.  
  145. pedit
  146. 26.3867,246.0254
  147. c
  148.  
  149. pedit
  150. 13.4375,223.1152
  151. c
  152.  
  153. pedit
  154. 36.3477,214.6484
  155. c
  156.  
  157. ; Pline width to zero
  158. (command "setvar" "plinewid" "0")
  159. ;;;;;
  160. ; ******************************************
  161. ; Using Close option on 3D Plines
  162. text
  163. 52.0000,203.0000
  164.  
  165.  
  166. 2) 3D Close
  167. pline
  168. 54,246,5
  169. 97.0000,246.0000
  170. 97.0000,237.0000
  171.  
  172. pline
  173. 57,219,-5
  174. 80.0000,230.0000
  175. 61.0000,230.0000
  176. a
  177. 64.0000,234.0000
  178. 66.0000,218.0000
  179.  
  180. 3dpoly
  181. 78,215,5
  182. 90,223,10
  183. 94.0000,209.0000
  184.  
  185. pedit
  186. 83.1641,245.5273
  187. c
  188.  
  189. pedit
  190. 68.7207,230.0879
  191. c
  192.  
  193. pedit
  194. 85.1563,219.6289
  195. c
  196.  
  197. layer
  198. m
  199. open
  200. c
  201. yellow
  202.  
  203.  
  204. ; Pline width to zero
  205. (command "setvar" "plinewid" "0")
  206. ;;;;;
  207. ; ******************************************
  208. ; Using Open option on Plines
  209. text
  210. 102.0000,203.0000
  211.  
  212.  
  213. 3) Open
  214. pline
  215. 104.0000,246.0000
  216. 146.0000,246.0000
  217. 146.0000,237.0000
  218. c
  219. pline
  220. 107.0000,219.0000
  221. 118.0000,230.0000
  222. a
  223. 112.0000,233.0000
  224. 120.0000,226.0000
  225. 119.0000,222.0000
  226. cl
  227. 3dpoly
  228. 128.0000,211.0000
  229. 138.0000,217.0000
  230. 140.0000,207.0000
  231. 130.0000,221.0000
  232. c
  233. pedit
  234. 128.4863,241.0449
  235. o
  236.  
  237. pedit
  238. 118.5254,225.1074
  239. o
  240.  
  241. pedit
  242. 136.4551,211.6602
  243. o
  244.  
  245. ; Pline width to zero
  246. (command "setvar" "plinewid" "0")
  247. ;;;;;
  248. ; ******************************************
  249. ; Using Close option on 3D Plines
  250. text
  251. 153.0000,203.0000
  252.  
  253.  
  254. 4) 3D Open
  255. pline
  256. 154,246,5
  257. 196.0000,246.0000
  258. 196.0000,237.0000
  259. c
  260. pline
  261. 159,218,10
  262. 173.0000,230.0000
  263. a
  264. 167.0000,232.0000
  265. 175.0000,221.0000
  266. 172.0000,217.0000
  267. cl
  268. 3dpoly
  269. 181,212,5
  270. 191,220,10
  271. 192.0000,206.0000
  272. c
  273. pedit
  274. 184.7656,239.0527
  275. o
  276.  
  277. pedit
  278. 172.8125,223.1152
  279. o
  280.  
  281. pedit
  282. 187.2559,208.6719
  283. o
  284.  
  285. layer
  286. m
  287. join
  288. c
  289. magenta
  290.  
  291.  
  292. ; Pline width to zero
  293. (command "setvar" "plinewid" "0")
  294. ;;;;;
  295. ; ******************************************
  296. ; Using Join option on Plines
  297. text
  298. 202.0000,203.0000
  299.  
  300.  
  301. 5) Join
  302. pline
  303. 216.0000,241.0000
  304. 233.0000,241.0000
  305.  
  306. line
  307. end
  308. 217.0000,242.0000
  309. 205.0000,234.0000
  310.  
  311. arc
  312. end
  313. 232.0000,240.0000
  314. 242.0000,236.0000
  315. 240.0000,234.0000
  316. pline
  317. 217.0000,222.0000
  318. arc
  319. 218.0000,230.0000
  320.  
  321. line
  322. end
  323. 220.0000,230.0000
  324. 242.0000,230.0000
  325.  
  326. pline
  327. end
  328. 221.0000,222.0000
  329. 221.0000,216.0000
  330. 226.0000,221.0000
  331. a
  332. 237.0000,219.0000
  333.  
  334. change
  335. 224.6094,219.6289
  336. 227.0996,229.5898
  337.  
  338. p
  339. c
  340. blue
  341.  
  342. change
  343. 210.1660,237.5586
  344. 241.5430,241.5430
  345.  
  346. p
  347. c
  348. blue
  349.  
  350. pedit
  351. 225.6055,240.5469
  352. j
  353. 210.6641,237.0605
  354. 240.5469,242.0410
  355.  
  356.  
  357. pedit
  358. 230.0879,229.5898
  359. y
  360. j
  361. 211.6602,230.0879
  362. 227.5977,221.1230
  363.  
  364.  
  365. ; Pline width to zero
  366. (command "setvar" "plinewid" "0")
  367. ;;;;;
  368. ; ******************************************
  369. ; Using Join option on 3D Plines
  370. text
  371. 2.0000,153.0000
  372.  
  373.  
  374. 6) 3D Join
  375. pline
  376. 14,188,5
  377. 32.0000,188.0000
  378.  
  379. line
  380. end
  381. 14.0000,188.0000
  382. 7,178,5
  383.  
  384. arc
  385. end
  386. 30.0000,187.0000
  387. 44.0000,186.0000
  388. 42.0000,184.0000
  389. line
  390. 10,168,10
  391. 21,163,10
  392. 32,172,10
  393.  
  394. arc
  395. end
  396. 31.0000,173.0000
  397. 42.0000,169.0000
  398. 40.0000,160.0000
  399. change
  400. 11.4453,184.7656
  401. 41.3281,194.2285
  402. 38.8379,172.8125
  403. 26.8848,167.3340
  404.  
  405. p
  406. c
  407. blue
  408.  
  409. pedit
  410. 21.9043,188.2520
  411. j
  412. 10.9473,185.2637
  413. 38.8379,196.2207
  414.  
  415.  
  416. pedit
  417. 15.4297,165.8398
  418. y
  419. j
  420. 26.8848,167.8320
  421. 39.8340,172.3145
  422.  
  423.  
  424. layer
  425. m
  426. width
  427. c
  428. green
  429.  
  430.  
  431. ; Pline width to zero
  432. (command "setvar" "plinewid" "0")
  433. ;;;;;
  434. ; ******************************************
  435. ; Using Width option on Plines
  436. text
  437. 52.0000,152.0000
  438.  
  439.  
  440. 7) Width
  441. pline
  442. 54.0000,194.0000
  443. w
  444.  
  445. .5
  446. 66.0000,197.0000
  447. w
  448.  
  449. 1
  450. 73.0000,191.0000
  451. a
  452. 80.0000,196.0000
  453.  
  454. pline
  455. 60.0000,188.0000
  456. w
  457. 0
  458. 2
  459. 60.0000,177.0000
  460. w
  461. 0
  462.  
  463. 60.0000,168.0000
  464. w
  465. 2
  466. 1
  467. a
  468. 73.0000,168.0000
  469.  
  470. pline
  471. 80.0000,180.0000
  472. 95.0000,180.0000
  473. w
  474.  
  475. 0
  476. 95.0000,167.0000
  477. 81.0000,167.0000
  478. w
  479.  
  480. 1
  481. c
  482. pedit
  483. 69.7168,192.7344
  484. w
  485. 2.5
  486.  
  487. pedit
  488. 65.7324,163.8477
  489. w
  490. 0
  491.  
  492. pedit
  493. 87.6465,180.2832
  494. w
  495. 2
  496.  
  497. ; Pline width to zero
  498. (command "setvar" "plinewid" "0")
  499. ;;;;;
  500. ; ******************************************
  501. ; Using Width option on 3D Plines
  502. text
  503. 102.0000,152.0000
  504.  
  505.  
  506. 8) 3D Width
  507. pline
  508. 104,193,5
  509. 115.0000,196.0000
  510. w
  511. 0
  512. 3
  513. 121.0000,182.0000
  514. a
  515. 126.0000,186.0000
  516. w
  517.  
  518. 0
  519. 133.0000,193.0000
  520.  
  521. 3dpoly
  522. 107,167,5
  523. 122.0000,159.0000
  524. 120.0000,167.0000
  525.  
  526. pline
  527. 138,182,-5
  528. 144.0000,190.0000
  529. w
  530. 2
  531. 3
  532. 142.0000,171.0000
  533. c
  534. 3dpoly
  535. end
  536. 121.0000,168.0000
  537. 133,158,5
  538.  
  539. pedit
  540. 117.5293,188.2520
  541. w
  542. 2
  543.  
  544. pedit
  545. 142.4316,177.2949
  546. w
  547. .5
  548.  
  549. layer
  550. m
  551. fit
  552. c
  553. magenta
  554.  
  555.  
  556. ; Pline width to zero
  557. (command "setvar" "plinewid" "0")
  558. ;;;;;
  559. ; ******************************************
  560. ; Using Fit option on Plines
  561. text
  562. 151.0000,152.0000
  563.  
  564.  
  565. 9) Fit
  566. pline
  567. 153.0000,196.0000
  568. 162.0000,196.0000
  569. 162.0000,187.0000
  570. 166.0000,187.0000
  571. 166.0000,183.0000
  572. 177.0000,183.0000
  573. 177.0000,195.0000
  574. 171.0000,195.0000
  575.  
  576. pline
  577. 185.0000,190.0000
  578. 191.0000,189.0000
  579. u
  580. 192.0000,190.0000
  581. w
  582.  
  583. 2
  584. 192.0000,170.0000
  585. a
  586. 183.0000,174.0000
  587. l
  588. 171.0000,174.0000
  589. c
  590. pedit
  591. 169.8242,182.7734
  592. f
  593.  
  594. pedit
  595. 188.7500,163.8477
  596. f
  597.  
  598. pline
  599. 154.0000,174.0000
  600. 160.0000,174.0000
  601. w
  602.  
  603. 0
  604. 160.0000,160.0000
  605. 175.0000,160.0000
  606. 175.0000,167.0000
  607. 152.0000,167.0000
  608.  
  609. pedit
  610. 167.8320,167.8320
  611. f
  612.  
  613. ; Pline width to zero
  614. (command "setvar" "plinewid" "0")
  615. ;;;;;
  616. ; ******************************************
  617. ; Using Width option on 3D Plines
  618. text
  619. 203.0000,153.0000
  620.  
  621.  
  622. 10) 3D Fit
  623. pline
  624. 204,196,5
  625. 219.0000,196.0000
  626. 219.0000,190.0000
  627. 225.0000,189.0000
  628. w
  629.  
  630. 2
  631. 225.0000,180.0000
  632. 235.0000,179.0000
  633. 235.0000,195.0000
  634. 243.0000,195.0000
  635.  
  636. pline
  637. 205,173,10
  638. 213.0000,173.0000
  639. w
  640.  
  641. 0
  642. a
  643. 215.0000,165.0000
  644. 219.0000,161.0000
  645. h
  646. 1
  647. 2
  648. 232.0000,163.0000
  649. l
  650. 238.0000,163.0000
  651. 238.0000,173.0000
  652.  
  653. pedit
  654. 209.6680,195.7227
  655. f
  656.  
  657. pedit
  658. 209.6680,171.8164
  659. f
  660.  
  661. layer
  662. m
  663. spline
  664. c
  665. cyan
  666.  
  667.  
  668. ; Pline width to zero
  669. (command "setvar" "plinewid" "0")
  670. ;;;;;
  671. ; ******************************************
  672. ; Using spline option on Plines
  673. text
  674. 2.0000,102.0000
  675.  
  676.  
  677. 11) Spline
  678. pline
  679. 3.0000,146.0000
  680. 9.0000,146.0000
  681. w
  682.  
  683. 0
  684. 9.0000,132.0000
  685. 16.0000,132.0000
  686. 16.0000,141.0000
  687. a
  688. 24.0000,142.0000
  689. 24.0000,137.0000
  690. 31.0000,136.0000
  691. l
  692. h
  693.  
  694. 1
  695. 31.0000,145.0000
  696. 38.0000,145.0000
  697. 38.0000,124.0000
  698. 21.0000,124.0000
  699. w
  700.  
  701. 0
  702. 21.0000,116.0000
  703. 15.0000,116.0000
  704. 15.0000,123.0000
  705. 3.0000,123.0000
  706. c
  707. pline
  708. 32.0000,113.0000
  709. 45.0000,113.0000
  710. 45.0000,109.0000
  711. 40.0000,109.0000
  712. 40.0000,103.0000
  713. 35.0000,103.0000
  714. 35.0000,109.0000
  715. 32.0000,109.0000
  716. c
  717. pedit
  718. 42.8223,108.5645
  719. s
  720.  
  721. pedit
  722. 28.3789,122.0117
  723. s
  724.  
  725. ; Pline width to zero
  726. (command "setvar" "plinewid" "0")
  727. ;;;;;
  728. ; ******************************************
  729. ; Using spline option on more Plines
  730. text
  731. 52.2852,101.5918
  732.  
  733.  
  734. 12) More spline
  735. polygon
  736. 5
  737. 60.7520,136.4551
  738. i
  739. 70.7129,143.9258
  740. rectangle
  741. 76.6895,143.4277
  742. 96.1133,127.9883
  743. pline
  744. 53.7793,120.5176
  745. 66.7285,120.5176
  746. 66.7285,114.0430
  747. 71.2109,114.0430
  748. 71.2109,124.0039
  749. 76.1914,124.0039
  750. 76.1914,118.5254
  751. 81.6699,118.5254
  752. h
  753.  
  754. 1
  755. 89.1406,124.5020
  756. a
  757. 93.1250,117.0313
  758. l
  759. w
  760.  
  761. 0
  762. 93.1250,107.0703
  763. 74.1992,113.5449
  764. 87.6465,113.5449
  765. 74.1992,106.5723
  766. 59.7559,106.5723
  767. a
  768. cl
  769. pedit
  770. 61.7480,125.9961
  771. s
  772.  
  773. pedit
  774. 82.6660,127.9883
  775. s
  776.  
  777. pedit
  778. 62.7441,119.5215
  779. s
  780.  
  781. ; Pline width to zero
  782. (command "setvar" "plinewid" "0")
  783. ;;;;;
  784. ; ******************************************
  785. ; Using spline option on 3D plines
  786. text
  787. 102.0898,102.0898
  788.  
  789.  
  790. 13) 3D spline
  791. rectangle
  792. 103,146,5
  793. 146.0000,135.0000
  794. pline
  795. 103,129,-5
  796. 120.0000,129.0000
  797. w
  798.  
  799. 2
  800. 120.0000,118.0000
  801. 125.0000,118.0000
  802. 125.0000,129.0000
  803. a
  804. 133.0000,129.0000
  805. l
  806. 133.0000,121.0000
  807. w
  808.  
  809. 0
  810. 142.0000,121.0000
  811. 142.0000,118.0000
  812. 147.0000,118.0000
  813. a
  814. 147.0000,111.0000
  815. h
  816.  
  817. 2
  818. 113.0000,110.0000
  819. cl
  820. pedit
  821. 141.9336,134.4629
  822. s
  823.  
  824. pedit
  825. 112.5488,128.4863
  826. s
  827.  
  828. layer
  829. m
  830. decurve
  831. c
  832. blue
  833.  
  834.  
  835. ; Pline width to zero
  836. (command "setvar" "plinewid" "0")
  837. ;;;;;
  838. ; ******************************************
  839. ; Using Decurve option on Plines
  840. text
  841. 152.0000,102.0000
  842.  
  843.  
  844. 14) Decurve of spline
  845. pline
  846. 153.0000,147.0000
  847. 160.0000,147.0000
  848. 160.0000,137.0000
  849. w
  850.  
  851. 0
  852. 179.0000,137.0000
  853. 179.0000,146.0000
  854. 187.0000,146.0000
  855. a
  856. 188.0000,135.0000
  857. 190.0000,133.0000
  858. 193.0000,131.0000
  859. 185.0000,126.0000
  860. l
  861. 170.0000,126.0000
  862. 170.0000,143.0000
  863. 164.0000,143.0000
  864. 164.0000,126.0000
  865. 155.0000,126.0000
  866. c
  867. pline
  868. 153.0000,120.0000
  869. 163.0000,120.0000
  870. a
  871. 163.0000,112.0000
  872. 165.0000,109.0000
  873. 173.0000,116.0000
  874. 171.0000,122.0000
  875. 175.0000,113.0000
  876. 180.0000,117.0000
  877. l
  878. 194.0000,117.0000
  879. 194.0000,112.0000
  880. 181.0000,112.0000
  881. a
  882. 169.0000,108.0000
  883. cl
  884. pedit
  885. 187.7539,126.9922
  886. s
  887.  
  888. pedit
  889. 185.2637,112.0508
  890. s
  891.  
  892. pedit
  893. 183,126.5
  894. d
  895.  
  896. pedit
  897. 184.2676,111.5527
  898. d
  899.  
  900. ; Pline width to zero
  901. (command "setvar" "plinewid" "0")
  902. ;;;;;
  903. ; ******************************************
  904. ; Using decurve option on more Plines
  905. text
  906. 202.0000,102.0000
  907.  
  908.  
  909. 15) Decurve of fit
  910. pline
  911. 204.0000,138.0000
  912. 204.0000,147.0000
  913. 210.0000,147.0000
  914. 210.0000,142.0000
  915. 218.0000,142.0000
  916. a
  917. 220.0000,136.0000
  918. 225.0000,135.0000
  919. 225.0000,145.0000
  920. l
  921. 237.0000,145.0000
  922. w
  923.  
  924. 3
  925. 245.0000,130.0000
  926. 233.0000,138.0000
  927. 233.0000,126.0000
  928. h
  929. 0
  930. 2
  931. 204.0000,126.0000
  932. c
  933. pline
  934. 205.0000,110.0000
  935. 210.0000,120.0000
  936. 226.0000,110.0000
  937. 236.0000,121.0000
  938. 244.0000,109.0000
  939. c
  940. pedit
  941. 209.6680,126.9922
  942. f
  943.  
  944. pedit
  945. 240.0488,119.0234
  946. f
  947.  
  948. pedit
  949. 234.5703,130.4785
  950. d
  951.  
  952. pedit
  953. 244.5313,114.5410
  954. d
  955.  
  956. ; Pline width to zero
  957. (command "setvar" "plinewid" "0")
  958. ;;;;;
  959. ; ******************************************
  960. ; Using decurve option on Plines
  961. text
  962. 2.0000,52.0000
  963.  
  964.  
  965. 16) Decurve normal
  966. pline
  967. 5.0000,94.0000
  968. 17.0000,94.0000
  969. w
  970. 0
  971. 0
  972. 17.0000,84.0000
  973. 22.0000,84.0000
  974. a
  975. 22.0000,89.0000
  976. 24.0000,93.0000
  977. 31.0000,94.0000
  978. 34.0000,89.0000
  979. l
  980. 41.0000,84.0000
  981. 42.0000,76.0000
  982. 28.0000,75.0000
  983. 28.0000,80.0000
  984. 17.0000,78.0000
  985. a
  986. 17.0000,72.0000
  987. 11.0000,69.0000
  988. 6.0000,79.0000
  989. 4.0000,85.0000
  990. cl
  991. pedit
  992. 21.4063,77.6855
  993. d
  994.  
  995. ; Pline width to zero
  996. (command "setvar" "plinewid" "0")
  997. ;;;;;
  998. ; ******************************************
  999. ; Using decurve option on 3D Plines
  1000. text
  1001. 52.0000,52.0000
  1002.  
  1003.  
  1004. 17) 3D Decurve
  1005. pline
  1006. 54,93,5
  1007. 67.0000,93.0000
  1008. 67.0000,85.0000
  1009. a
  1010. 73.0000,89.0000
  1011. 78.0000,94.0000
  1012. 90.0000,83.0000
  1013. l
  1014. 90.0000,73.0000
  1015. 79.0000,73.0000
  1016. 80.0000,65.0000
  1017. u
  1018. 79.0000,63.0000
  1019. 66.0000,63.0000
  1020. a
  1021. 69.0000,70.0000
  1022. 70.0000,76.0000
  1023. 61.0000,85.0000
  1024. cl
  1025. pedit
  1026. 83.6621,72.7051
  1027. d
  1028.  
  1029. layer
  1030. m
  1031. vertex
  1032. c
  1033. red
  1034.  
  1035.  
  1036. ; Pline width to zero
  1037. (command "setvar" "plinewid" "0")
  1038. ;;;;;
  1039. ; ******************************************
  1040. ; Using Vertex Break option on Plines
  1041. text
  1042. 102.0000,52.0000
  1043.  
  1044.  
  1045. 18) Vertex, Break
  1046. pline
  1047. 103.0000,86.0000
  1048. 112.0000,96.0000
  1049. 112.0000,85.0000
  1050. a
  1051. 116.0000,87.0000
  1052. 122.0000,93.0000
  1053. l
  1054. 125.0000,85.0000
  1055.  
  1056. redraw
  1057. pline
  1058. 125.0000,68.0000
  1059. 131.0000,79.0000
  1060. 132.0000,62.0000
  1061. 139.0000,80.0000
  1062. 141.0000,68.0000
  1063.  
  1064. pedit
  1065. 108.5645,91.1328
  1066. e
  1067. n
  1068. n
  1069. b
  1070. n
  1071. g
  1072. x
  1073. x
  1074. redraw
  1075. pedit
  1076. 130.4785,75.1953
  1077. e
  1078. n
  1079. b
  1080. n
  1081. g
  1082. n
  1083. n
  1084. x
  1085. x
  1086. redraw
  1087. ; Pline width to zero
  1088. (command "setvar" "plinewid" "0")
  1089. ;;;;;
  1090. ; ******************************************
  1091. ; Using Vertex Break option on 3D Plines
  1092. text
  1093. 152.3926,52.2852
  1094.  
  1095.  
  1096. 19) 3DVertex, Break
  1097. ;;;;; Item 1
  1098. pline
  1099. 154,86,5
  1100. 160.0000,96.0000
  1101. 160.0000,84.0000
  1102. 163.0000,80.0000
  1103. 163.0000,92.0000
  1104. a
  1105. 167.0000,91.0000
  1106. 173.0000,92.0000
  1107. l
  1108. 182.0000,89.0000
  1109.  
  1110. ;;;;; Item 2
  1111. rectangle
  1112. 177,83
  1113. 197.0000,78.0000
  1114. ;;;;; Item 3
  1115. donut
  1116. 164.0000,70.0000
  1117. 176.0000,67.0000
  1118. 158.0000,73.0000
  1119. 171.0000,64.0000
  1120. 161,68,5
  1121.  
  1122. ;;;;;;;;;; Item 1 PEDIT
  1123. pedit
  1124. 162.8516,86.6504
  1125. e
  1126. n
  1127. n
  1128. b
  1129. n
  1130. n
  1131. g
  1132.  
  1133.  
  1134.  
  1135. x
  1136. x
  1137. pedit
  1138. 182.2754,82.1680
  1139. e
  1140. n
  1141. b
  1142. n
  1143. g
  1144. x
  1145. x
  1146. ; Pline width to zero
  1147. (command "setvar" "plinewid" "0")
  1148. ;;;;;
  1149. ; ******************************************
  1150. ; Using Vertex Insert option on Plines
  1151. text
  1152. 203.0000,53.0000
  1153.  
  1154.  
  1155. 20) Vertex, Insert
  1156. pline
  1157. 203.0000,95.0000
  1158. 212.0000,96.0000
  1159. u
  1160. 212.0000,95.0000
  1161. 212.0000,87.0000
  1162. 219.0000,87.0000
  1163. a
  1164. 224.0000,79.0000
  1165. 234.0000,81.0000
  1166. l
  1167. 234.0000,94.0000
  1168. 222.0000,94.0000
  1169.  
  1170. pedit
  1171. 228.5938,94.6191
  1172. e
  1173. n
  1174. n
  1175. i
  1176. 216.0000,79.0000
  1177. n
  1178.  
  1179. n
  1180. i
  1181. 220.0000,73.0000
  1182. x
  1183. x
  1184. pline
  1185. 202.0000,69.0000
  1186. w
  1187.  
  1188. 3
  1189. 214.0000,69.0000
  1190. 215.0000,60.0000
  1191. u
  1192. 214.0000,59.0000
  1193. w
  1194.  
  1195. 1
  1196. 225.0000,67.0000
  1197. a
  1198. 240.0000,61.0000
  1199.  
  1200. pedit
  1201. 231.5820,67.2266
  1202. e
  1203. n
  1204. i
  1205. 206.0000,61.0000
  1206. n
  1207. n
  1208. n
  1209. i
  1210. 227.0000,60.0000
  1211. x
  1212. x
  1213. ; Pline width to zero
  1214. (command "setvar" "plinewid" "0")
  1215. ;;;;;
  1216. ; ******************************************
  1217. ; Using Vertex Move option on Plines
  1218. text
  1219. 2.0000,3.0000
  1220.  
  1221.  
  1222. 21) Vertext, Move
  1223. pline
  1224. 3.0000,43.0000
  1225. 13.0000,43.0000
  1226. 13.0000,37.0000
  1227. w
  1228.  
  1229. 0
  1230. 22.0000,37.0000
  1231. 22.0000,43.0000
  1232. a
  1233. 28.0000,43.0000
  1234. l
  1235. 28.0000,36.0000
  1236. 34.0000,45.0000
  1237. a
  1238. 44.0000,41.0000
  1239.  
  1240. polygon
  1241.  
  1242. 10.0000,22.0000
  1243. c
  1244. 16.0000,27.0000
  1245. donut
  1246.  
  1247.  
  1248. 39.0000,19.0000
  1249.  
  1250. pedit
  1251. 16.4258,36.3477
  1252. e
  1253. n
  1254. m
  1255. 16.0000,46.0000
  1256. n
  1257. n
  1258. m
  1259. 25.0000,31.0000
  1260. n
  1261. n
  1262. m
  1263. 30.0000,46.0000
  1264. x
  1265. x
  1266. pedit
  1267. 15.9277,24.8926
  1268. e
  1269. n
  1270. m
  1271. 2.0000,16.0000
  1272. n
  1273. n
  1274. m
  1275. 18.0000,12.0000
  1276. x
  1277. x
  1278. pedit
  1279. 38.8379,25.3906
  1280. e
  1281. n
  1282. m
  1283. 42.0000,18.0000
  1284. x
  1285. x
  1286. ; Pline width to zero
  1287. (command "setvar" "plinewid" "0")
  1288. ;;;;;
  1289. ; ******************************************
  1290. ; Using Vertex Straighten option on Plines
  1291. text
  1292. 52.0000,3.0000
  1293.  
  1294.  
  1295. 22) Vertex, Straighten
  1296. pline
  1297. 52.0000,47.0000
  1298. 59.0000,47.0000
  1299. w
  1300.  
  1301. 3
  1302. 58.0000,35.0000
  1303. 67.0000,39.0000
  1304. w
  1305.  
  1306. 0
  1307. 70.0000,46.0000
  1308. 79.0000,45.0000
  1309. a
  1310. 79.0000,38.0000
  1311. 82.0000,35.0000
  1312. h
  1313.  
  1314. 2
  1315. 94.0000,46.0000
  1316.  
  1317. polygon
  1318.  
  1319. 60.0000,18.0000
  1320. i
  1321. 64.0000,26.0000
  1322. rectangle
  1323. w
  1324. 1
  1325. 79.0000,25.0000
  1326. 95.0000,10.0000
  1327. pedit
  1328. 63.2422,35.8496
  1329. e
  1330. n
  1331. n
  1332. s
  1333. n
  1334. n
  1335. n
  1336. n
  1337. n
  1338. g
  1339. x
  1340. x
  1341. pedit
  1342. 66,23
  1343. e
  1344. n
  1345. s
  1346. n
  1347. n
  1348. n
  1349. g
  1350. x
  1351. x
  1352. pedit
  1353. 86.6504,24.3945
  1354. e
  1355. n
  1356. s
  1357. n
  1358.  
  1359. g
  1360.  
  1361. x
  1362. x
  1363. ; Pline width to zero
  1364. (command "setvar" "plinewid" "0")
  1365. ;;;;;
  1366. ; ******************************************
  1367. ; Using Vertex Tangent option on Plines
  1368. text
  1369. 104.0000,3.0000
  1370.  
  1371.  
  1372. 23) Vertex, tangent
  1373. pline
  1374. 101.0000,36.0000
  1375. 105.0000,46.0000
  1376. u
  1377. w
  1378. 0
  1379. 0
  1380. 106.0000,46.0000
  1381. 111.0000,46.0000
  1382. 111.0000,40.0000
  1383. 115.0000,40.0000
  1384. a
  1385. 118.0000,47.0000
  1386. l
  1387. 126.0000,47.0000
  1388. 126.0000,36.0000
  1389. 130.0000,36.0000
  1390. 143.0000,44.0000
  1391.  
  1392. copy
  1393. 138.4473,40.8301
  1394.  
  1395. 138.0000,31.0000
  1396. 138.0000,10.0000
  1397. (command "setvar" "plinewid" "0")
  1398. ;;;;;
  1399. ; ******************************************
  1400. ; Using Vertex Width option on Plines
  1401. text
  1402. 153.0000,3.0000
  1403.  
  1404.  
  1405. 24) Vertex, width
  1406. pline
  1407. 152.0000,45.0000
  1408. 161.0000,45.0000
  1409. w
  1410.  
  1411. 1
  1412. 155.0000,37.0000
  1413. 167.0000,37.0000
  1414. w
  1415.  
  1416. 2
  1417. 172.0000,45.0000
  1418. a
  1419. 182.0000,38.0000
  1420. w
  1421.  
  1422. 1
  1423. 184.0000,33.0000
  1424. l
  1425. w
  1426.  
  1427. 0
  1428. 197.0000,45.0000
  1429.  
  1430. polygon
  1431.  
  1432. 159.0000,18.0000
  1433. i
  1434. 163.0000,26.0000
  1435. rectangle
  1436. 176.0000,26.0000
  1437. 194.0000,10.0000
  1438. pedit
  1439. 170.3223,41.8262
  1440. e
  1441. w
  1442. 2
  1443. 0
  1444. n
  1445. n
  1446. n
  1447. n
  1448. w
  1449. 4
  1450. 0
  1451. n
  1452. r
  1453. n
  1454. w
  1455. 0
  1456. 0
  1457. x
  1458. x
  1459. pedit
  1460. 158.8672,25.3906
  1461. e
  1462. n
  1463. w
  1464.  
  1465. 1
  1466. n
  1467. w
  1468. 1
  1469. 2
  1470. n
  1471. w
  1472. 2
  1473. 3
  1474. x
  1475. x
  1476. pedit
  1477. 183.2715,26.3867
  1478. e
  1479. n
  1480. w
  1481.  
  1482. 5
  1483. n
  1484. w
  1485. 5
  1486. 2
  1487. n
  1488. w
  1489. 2
  1490. 0
  1491. x
  1492. x
  1493. ; Pline width to zero
  1494. (command "setvar" "plinewid" "0")
  1495. ;;;;;
  1496. ; ******************************************
  1497. ; Using Vertex options on 3D Plines
  1498. text
  1499. 202.0000,3.0000
  1500.  
  1501.  
  1502. 25) Vertex 3D
  1503. ;;;;; Item 1
  1504. pline
  1505. 204,45,5
  1506. w
  1507.  
  1508. 2
  1509. 221.0000,45.0000
  1510. 221.0000,31.0000
  1511. 229.0000,31.0000
  1512. 229.0000,45.0000
  1513. w
  1514.  
  1515. 0
  1516. 246.0000,45.0000
  1517.  
  1518. ;;;;; Item 2
  1519. rectangle
  1520. 205,23,5
  1521. 219.0000,10.0000
  1522. ;;;;; Item 3
  1523. rectangle
  1524. 230,23,-5
  1525. 245.0000,10.0000
  1526. ;;;;; Item 1 PEDIT
  1527. pedit
  1528. 212.6563,45.3125
  1529. e
  1530. n
  1531. n
  1532. p
  1533. m
  1534. 212.0000,35.0000
  1535. n
  1536. i
  1537. 222.0000,40.0000
  1538. n
  1539. n
  1540. s
  1541. n
  1542. n
  1543. g
  1544. x
  1545. x
  1546. ;;;;; Item 2 pedit
  1547. pedit
  1548. 218.1348,22.9004
  1549. e
  1550. n
  1551. n
  1552. p
  1553. w
  1554. 3
  1555. 3
  1556. n
  1557. n
  1558. m
  1559. 213.0000,16.0000
  1560. x
  1561. x
  1562. ;;;;; Item 3 PEDIT
  1563. pedit
  1564. 235.0684,22.9004
  1565. e
  1566. n
  1567. b
  1568. n
  1569. g
  1570. P
  1571. P
  1572. w
  1573. 3
  1574. 3
  1575. x
  1576. x
  1577. ; Pline width to zero
  1578. (command "setvar" "plinewid" "0")
  1579. ;;;;;
  1580. ;**********************
  1581. ; END OF SCRIPT
  1582. ;**********************
  1583. ;----------------------------------------------------------------------
  1584. ;Now for the grand finale 
  1585. TEXT
  1586. -39.8278,152
  1587. 3
  1588. 0
  1589. Done!
  1590. ;----------------------------------------------------------------------
  1591. (if (/= (getenv "itest") nil) (command "dxfout" "pedit" "6" "quit" "y"))
  1592. ;
  1593. ;;;;; Setup for SAVING of UCS testing - Pete Martin 01/25/98
  1594. ;;;;; DO NOT MODIFY WITHOUT PERMISSION!
  1595. ;
  1596. ;;;;;pM(if (/= (getenv "UTEST") nil) (LOAD "UCSSAVE"))
  1597. ;
  1598. ;;;;; End of Setup for SAVING of UCS testing
  1599.