PNC-TN9520-93-003:2.08MB
Contents
1. Fhoto 5600 66 0c96Nd JNd 9 927 E 1 tit gt qe me lt i t t 4 27 4 5 1 1 lt a oe ban ee 5 i i i t i i i 77 207 718 ERASE 4 5 6 i CANCEL 7 92 z 000 PPS 3 gt ts a2. PNC PN9520 93 003 gt LIMITS 7 2 LIMITS gt LIMTITS OOM ALL ON OFF lt gt lt 0 00 0 00 gt ON OFF lt gt lt 0 00 0 00 gt lt 0 00 0 0 0 gt LIMITS ON OFEFE
3. ENDAJ 1 G STARE 2 2 STAR 31 3 7 1 PED I T N P 9 PN9520 93 003 3 7 2 MOVE gt
4. N Y 0 AutoCAD 0S 1 2 3 4 5 AutoCAD 6 7 8 0 WINDOWS 3 8 mh lt lt lt lt w 4 OPTION Pt1 lt gt Pt2 gt
5. TXT kk TXT CSV mon con 9520 93 003 4 2 MNU PN9520 93 003 SCREEN 1 1 1 setdate XXX setq eva1 02 ddata 1 2 01 1 1 3 lt 01 ln 2 4 501 ln 3 _ cmode1 Zoom p clayer c 1 y setq k getstring X at02 lng 01 byh 2 8801 byh YOUKIN 02 byh HAZ cPOLI_UNDO czoom czoom clayer 2 8501 yosetu 01 MIG 01 yosetu SMAW atO1 yosetu EBW cpoli cmodelout 1 cstretch J ctablet cal cfg J climits 1 c 3 yi at01 yomori YOMORIARI y at0l yomori YOMORINASI getstring 02 ykei yi seta getstring 132 at02 ybiko endpoint 9 1 clayer 4 01 ryuu 01 ryuu RYUUKAT yi setq getstring 2 X at02 st Cn Cn
6. 1 STAR RA RE HAZ PN9520 93 003 PED I TJ X N P 5 lt M OVE gt
7. DWG OBRERO E E ENGR PNC CSV DXF e OTL TXT PNC 9520 93 003 7 SATY PN9520 93 003 lt lt 27 F XTITLE MODEL R XVALU 100 1793 2154 2107 2100 2113 XTITLE MODEL 2 XVALU 200 677941551 015761551 015761551 015761551 015762024 89802 898022035 384002035 384002047 2779220417 277922051 45830 458302058 783722058 783722065 132312065 132312075 88822 888222081 066172081 066172097 313542097 313542112 39542 395422126 284582126 284582138 955942138 955942150 38663 386632160 555992160 555992169 445682169 445682177 03963 039632183 324142183 324142188 287862188 287862236 58814 588142232 195712232 195712226 595792226 595792219 79751 797512211 811962211 811962202 652152202 652152192 33302 333022180 871392180 871392168 285972168 2859721 54 59725 597252139 827582139 827582124 001022124 001022107
8. 1 OSNAP i 5 PN9520 93 003 3 5 SAFIAD 3 5 1 lt gt lt Y gt 3204 PEA lt gt cline lt gt cline to to
9. 1 PNC PN9520 93 003 3 6 3 6 1 F lt gt OTL AAAAAAAA DXF ABC DXF a i END gt 3 6 2 lt gt CSV AAAAAAAA ABC TXT
10. dat0 reform dat0 data dat0 reform dat0 data data 6 6 OTLICA lt 9520 93 003 6 JR ij reform dat0 data data data 0TL data data data OTLICA 07 REFORM 10 valuel 74 191 11174 vi E 21272 5 10174 value2 xxx 10 105 1 xxx 0 1 gt xxx gt 0 XXX gt xXx lt 1 8 1 1 8 1 1 yalue2 valuel value2 xxx v1 valure2
11. PNC PN9520 93 003 PC 9 8 RL AutoCADGX 0 D H 8303 1 98 1 2 0 MB 2 CRT 1120x750 RGB 16 RGB 8 3 JIS 4 CPU 5 6 640KB T RS232C 1 8 MS DOS V3 1 V3 3 9 DH 83 0 3 Photo 1
12. getstring n n offmn off setq n m 1 setvar 0 setyar cmdecho 1 Eraphscr prompt nm mm lt ELSE PN9520 93 003 defun 1 NR rp1 a iattans a T while attans attans setq offmn edit if attans setq attans setq attans strcase getstrin Y N if attans progn lt setyar 3 setvar cmdecho command erase command insert baseblk p2 n ddata ln lng yosetu yomori ykei ybiko ryuu st bm ac cr biko command layer set strcat n itoa command text p2 n command layer set strcat itoa ang textscr setq dis list title mapcar eval 1 prompt n n print dis prompt
13. NO YES 7 8 PNC PN9520 93 003 Z f JZ getname name onixo E gt i ame 24 PN9520 93 003 model POLI mon NO 4 x joinning PNC PN9520 93 003 HAME POLI_ARC 1 7 0VERPOINT I ENDPOINT ENDPOINT X P OVERPOINT ENDPOINTS gt 2 3 lt POLI_UNDO
14. CECHO SETDATE seta getname model POLI POLI ARC 1 UNDO joinning MDDELOUT writing REFORM crack CLINE EDITING SAREE setblk edblk attinsert 8101 atl CSVOUT PNC PN9520 93 003 2 ACAD LSP DWG 47 927 7 S T A R A 77422 STAR STAR PNC PN9520 93 003 1 STARTUP gt
15. defun C POLT_UNDO 1 command Tirstpoint oldpoint oldpoint nil joinning defun w 5 199 5 while O distance 0 endpoint endpoint getpoint firstpoint 38 m L if oldpoint nil setq poli ssget 1 AFTER _ COUNT LINES setvar 3 setvar 0 command layer 5 pointlayer command point command layer 5 polilayer am wr PN9520 93 003 7 command undo command pline firstpoint endpoint prompt command boli is poli ssget 1 setq oldpoint firstpoint firstpoint endpoint Setvar 0 setvar 1 prompt L L Z defun C MO
16. 3 X 9520 93 003 lt gt OSNAP lt gt lt gt ZAF AJOA O SNAP
17. getstring n MLT F amp N offmn 1 setvar menuecho 0 setvar emdecho 1 prompt n n lt ELSE defun E DI 2 W E kasa E 2 8 2 ET m offmn kE 8 if offmn progn setq xx read getstring getstring if REAL read read setq read setq setblk ptl pt2 if offmn edit progn xx read getstring seta y getstring 44 PN9520 93 003 if or REAL type read read setq read set graphscr edb1k cl c2 cc nil defun ATORO offmn Ay 545555522 2 2 if offmn setq read getstring if REAL type read type read setq read setq
18. setblk pt1 pt2 if offmn 15 progn setq read getstring if REAL type read k INT type read k setq yy read setq yy k set xx yy edblk 1 2 nil defun C CSVOUT truename txtfile 1 7 70 Hi 7 7 Ms 95 lt an 0 gt ang 360 ang ni1 seta truename getname getstring SV command attext atttemp truename txtfile strcat truename txt csvfile streat truename command files 5 txtfile csvfile 0 command files 3 txtfile 0 graphscr S HENEN MODEL 4 mon on wt defun mode1 PN9520 93 003 i w w w seta command layer setq on setq off set streat i
19. setq p_group ssadd overpoint getpoint ah h endpoint getpoint if oldpoint nil poli OR A N PN9520 93 003 ti command layer 5 strcat 1 08 ang command point endpoint command layer 5 strcat itoa ang command undo g command pline firstpoint a s endpoint setq aa ssget 1 cO osnap endpoint command point setq read angtos cO firstpoint 0 an1 read angtos angle cO endpoint 0 setq abs 1 setq div nil setq div getstring streat n lt rtos 2 syn if div set read read rtos 2 0 command divide endpoint an setq ssget setq oldpoint firstpoint setq n O while lt n sslength ak setq pt nth 3 entget ssname command pline firstpoint pt ssadd entlast group setq firstpoint pt setq 1 command pline firstpoint endpoint ssadd entlast p_group command erase ak command pedit pol j poli p_group setq firstpoint gt
20. a s setq data eval strcat data ptlst write line eval data otlname close dxfname Kaka A ASA KESAKSIAN defun reform xxx vl valuel value2 123 4567890123 ivaluel xxx E 2 1 23457 2 02 iv1 ivaluet ET 1 23457 02 1 2 10 123 456789 value2 xxx if gt 0 atof set Valuel rtos 1 4 E form lt 0 setq valuel rtos 1 5 form gt 0 setq vl strcat substr valuel 1 strlen valuel 4 substr valuel strlen valuel 2 3 setq prec atoi substr Valuel strlen valuel 2 3 if lt abs atof 1 if lt atof O setq prec 7 setq prec 8 if lt xxx 0 setq prec 7 setq prec 8 prec if gt prer 0 rogn 2 rtos atof 2 if gt abs value2 atof abs
21. defun DEEN 2 title E B csvlist val 2 seta command layer set streat titoa ang off tn ei ONLY we we th te rono setq ssget w getvar extmin getvar extmax if cra nil sete 218416068 cra 1 setq 1 Ta COUNTING command layer ML an 2 setq title x 1 Tt tt it tt 1 2 T setq csvtitle list El fi 9 NR DATO0S DATOS DATO amp BH M pe 1 1 427 We o 75242 MB Eg ge setq csvlist list ddata dat003 dat004 datO005 dat006 dat007 lng byh yosetu yomori ybiko ryuu crkm st bm biko val list ddata lng byh yosetu yomori ykei ybiko ryuu cerkam st bm cr biko setq con mon off e KT WT Yt YM R M 92 N N 92 M MK N 6 9 3 defun GRAA pti pt2
22. 4 1 L i i t 1 i 1777 ts y 9FZ IF 2 1 500 66 0c96Nd JNd PNC PN9520 93 003 s s lt lt lt S w CS V DX AutoCAD w p hie OTL 1 15 y w w w lt nev MD 42 2 STAR PN9520 93 003 59 CRC amp H PNC PN9520 93 003 PNC PN9520 93 003 1 STARTUP SBTANG
23. setq yoSetu 81 set yomori if ryuu nil set ryuu RE if crim nil setq crkm 7 setq setq ybiko 14 setq 2 JV 1 setq st P TR pt defun Setblk pl p2 attans dis 2 s attans attans initget 7 while attans attans setq offmn setq attans stroase getstring n 0 if attans 1 lt progn setyar menuecho 3 setvar 0 command ey command insert basebtk pl p2 n ddata ln lng byh yosetu yomori ykei ybiko ryuu crkm cap st bm ac cr biko command layer set itoa it text 2 titt command eTayer itoa textscr setq dis mapcar list title mapcar eval val prompt 0 print dis prompt
24. Y N Y Y _ PN9520 93 003 1 2 8 4 5 6 gt gt HAZ gt gt gt gt lt 7 gt 7 HAZ gt 205 7
25. R 2 3 STAR 10520 93 003 1 3 52062 ote 9 3 1 AUTOCAD 4 4 6066 4 KT TN 3 3 3 4 3 4 1 7 9 3 5 1
26. offmn 1 edblk L TEEPEE 2 edblk EDITING 1 1 YES NO BASEBLK offmn PN9520 93 003 attinsert HAZ YES BEE 1 1 1 EK PNG PN9520 93 003 2101 gt 2102 9520 93 003 amp 2 EJ CSVOUT
27. PNC PN9520 93 003 crack RAET REEE Ik O amp Z F 89 con mon amp CLINE con wd NO Fa ATAJ r offmn setblk 9520 93 003 EDITING YES f NO YES offmn PNC PN9520 93 003 setblk offmn NO YES BASEBLK
28. lt gt lt 0 00 0 00 gt lt 0 00 0 00 gt ZOOM ALL PN9520 93 003 3 4 3 4 1 lt gt Y gt 0 gt 0 0 3 4 2 lt gt lt 7 gt gt lt gt 1 1
29. Da da b D G UO to aba to a DA Fe i t O Cp A Q C gt O b5 CD F tO ds G pa pa CD 9 Fa pe ta Pa 3 O ar Le v Lal lo To Lo w a ran wa n nl nl la nd r r r odn ln on ln r r r r r r r r Yi setq getstring 7 at02 bm mid cerase 2 5 111 5 5 12 6 5 13 5 6 1 y at01 crkm SYUU 6 2 8601 crkm JIKU 6 3 01 KIKKOU 6 ui setq k getstring N 2 X at02 6 6 6 cc1ine 6 7 clcrack 6 8 6 91 6 1011 6 1112 6 1213 6 13 6 7 1 8201 1 7 2 2 01 0 7 3 setq k getstring k 102 cr 7 2 getstring 1 02 7 6 cediting 7 71 7 81 7 91 7 10 0 7 111 7 12 7 13 clayer 7 a a BUTTONS 1 CC 249 G T PN9520 93 003 3 ACAD LSP PNC 9520 93 003 vmon
30. AR defun 9 149 ang if nil setq aans while aans if aans setq angl nil while lt angi O gt angl 360 nil setq angl getint initget 7 n setq aans stroase getkword streat n itoa angi 9 OK2 Y N setq ang angl command layer 5 0 m i streat itoa ang amp streat itoa m strcat itoa mi m W T 34 Y 3 Y X 9 TW W SUBROUTINE 5 defun i gt ddata 7 7 setq getint T 430 getint T setq cd getint 7 setq ddata streat itoa 2 itoa itoa MAA defun sera t AED EA ang1 t q lang 4 y Sus s s if ddata nil progn setq aans while aans if aans setg angl nil while or lt angl O gt angl 360 angl niJ setdate 9520 9
31. pti PtU 5225 A B6 D DE AE AE GE AE GE AE GE A GE AE BE A GE A AE AE E AE GE AE DE AE AE AE AE DE AE AE AE AE AE AE AE G E GE AE AE AE AE if con crack pt1 getpoint gn 1 0 setq pt2 getpoint 1 i command line pt1 pt2 command attdisp off setq offmn off attinsert setblk pt1 pt2 PN9520 93 003 C EDITING cO str newstr char att 415 O T L 774 str att Char 50 1 0 67 ra cl c2 cc if command cO entse1 n W yr lt tu 2UL command setvar menuecho 3 setvar 0 setq cadr 1 c2 cadr cO setq cO command editing open editing txt setq att read line close command files 3 2916118 9 prompt
32. m PNC PN9520 93 003 lt S T A A 23 gt 1 48 2232 2 110 655 1793 68 432 145 5 11551 02 492 185 6 1551 02 432 185 1551 02 401 277 8 1551 02 401 277 9 2024 9 401 277 10 2024 9 401 277 2035 38 399 103 12 2035 38 399 103 13 2047 29 205 094 14 2047 28 395 098 15 2051 392 695 16 2051 46 392 695 17 2058 78 287 127 18 2058 78 387 127 19 1205 13 382 315 20 12065 13 382 315 21 12075 89 372 49 22 2075 39 372 459 23 2081 07 365 8 25 12081 07 368 6 25 42097 31 339 311 26 12097 31 339 311 27 12112 4 311 557 28 2112 4 311 557 29 12126 28 283 187 30 2126 28 283 187 31 12138 96 254 253 2138 96 258 253 33 2150 39 224 8 2150 39 225 806 35 2150 56 194 901 35 19150 56 190 901 97 2169 45 168 59 28 12169 45 168 59 39 2177 04 133 929 80 81 2163 22 100 973 42 49 2226 6 140 452 50 2226 5 140 452 51 7219 8 109 998 52 2219 8 169 998 753 12211 81 199 245 54 12211 81 193 245 55 2202 65 228 146 56 2202 45 228 166 57 12192 33 256 654 58 2192 33 255 654 59 12180 87 284 722 60 2180 87 284 722 61 2168 29312 305 2168 29 312 305 2150 6 339 355 Bh 12154 6 339 356 65 2139 83 365 838 2139 83 355 838 2125392 68 2128392 69 2107 14 816 892 70 2107 14 4
33. 9520 93 003 3 31 AUTFTOCAD WINDOW STAR CAD AUTOCAD STAR STARCAD 32 0 AutoCAD OS 1 2 3 4 5 AutoCAD 6 T 8 1 2 AAAAAAAA 8 lsp mn x 33 1 9 9 1 5 2 0 0 9 1 5 20 0 0 Y N 9520 93 003 TABLET 7 1 2 TABLET ON
34. A if prompt prompt getstring yn 2 y 2 2 2 i setyar 0 setyar 1 Z 7 Z 2 if O prompt prompt nayg strcase getstring 2 Y R 2 if setvar 3 PN9520 93 003 setyar menuecho 0 defun C SETANG setq angl nil seta R K KES CRACK DATA con on
35. NO YES NO 5 22 ICA SETANG 1 seta PNC PN9520 93 003 IVF CECHO YES 5 1 1 PN9520 93 003 _ SETDATE ddata seta gt NO WW
36. 3 5 2 NN 31 3 7 1 3 1 2 3 8 1 2 ACAD 3 LSP 4 BASEBLK DWG 5 6 1 9520 93 003 242 1 242 2 ST AR PNC PN9520 93 003 1 STAR STAR
37. atof valuel setq vi vvv Va1ue2 setq v1 9520 93 003 4 BASEBLK DWG 9520 93 003 1 1 BLOCK DRTE LENGTH B Y H 9 0 CAPP STRIATION ACTIVE CRYSTAL 9520 93 003 5 ATTTEMP TXT PN9520 93 003 BLOCK DATE LNUMBER BL X BL Y BL LAYER BL XSCALE BL YSCALE LENGTH YOUSETUHOU YKETJYOU YBIKOU RYUU CKETJYOU CRYSTAL BIKOU C DELIM C QUOTE NO10000 010000 001000 010004 010004 010000 010004 010004 010000 CO10000 CU10000 CU10000 010000 CD10000 CO10000 CO10000 COG10000 CO10000 CO10000 NO01000 CO10000 020000 PNC PN9520 93 003 6 ACAD MNU LSP wa lli
38. divide 5 54 gt 1 POLI_UNDO lt F joinning PN9520 93 003 joinning ENDPOINT ENDPOINT ENDPOINT x ENDPOINT ENDPOINT 1 2 MODELOUT 1 7 Lee DXFOUT DXF7 OTL 7 7 WRITING PN9520 93 003 WRITING O T LEK 1 7749 0 1 con writing DXF7 data DXF77
39. setq str strlen att newstr attlist i 0 repeat str setq char substr att 1 1 1 char newstr streat newstr setq x nth 1 csvlist x read newstr newstr i 1 1 setq att substr att 2 setq biko read newstr textscr setvar menuecho 0 setvar cmdecho 1 setq dis mapcar list csvtitle mapcar eval csvlist prompt n n 222355355255 5 print dis prompt if strcase getstring n Y N progn set offmn off edblk cl 2 cc S prompt n n GRAPHSCR 9520 93 003 4 S E KES L I defun attinsert i setq bm setq cr if ddata nil setq ddata if nil setq lng 1 5 setq 1 t 1 biko if byh nil setq byh q
40. OFF CAL CFG RRR ZZZ ZZZ RRRR 47 97 TABLET CON OFF CAL CFG E CFG 0 4 lt 1 gt lt N gt _ Y 2 1 N gt
41. 14338 143382103 052952103 052952100 748542100 748542100 71219 712192102 951512102 951512106 998072106 998072113 57231 572312120 575212120 575212339 424642339 424642339 42464 2339 424641863 458481863 458481793 67794 432 144957432 144957432 144957401 276525401 276525401 276525 401 276525399 103247399 103247395 094071395 094071392 695265 392 695265387 127007387 127007382 315061382 315061372 469176 372 469176356 399905366 399905339 311455339 311455311 557 214 311 557214283 187297283 187297254 252931254 252931224 806363 224 806363194 900762194 900762164 590130164 590130133 929197 133 80 6 169 25 339 416 429 439 454 929197102 973327102 572123110 655352110 997690199 245129199 6 654182284 722189284 356409365 833539365 892053419 942517419 597583434 182702434 97332771 778415871 778415880 6572123 655352140 451706140 451706169 997630 245129228 146335228 146335256 654182 722189312 304589312 304589339 356409 833539391 692809391 692809416 892053 942517424 495170424 495170429 597683 182702437 291128437 291128439 766542 766542440 510307440 980135454 980135454 510307440 510307 440 510307 454 980135 980135432 144957 lt lt 2 2 gt ZZ Z s gt F 1 4 26 91 3 2102 732 433 7336 0 16 7306 5 6221 1 2 2 4 26 91 3 2101 844 431 914 C 0 32 6946 7 0597 1 BOZAI TIG YOMORIARI RYUUNAI SYUU 1 3 4 26 91 3 2100 725 427
42. 16 892 71 2103 05 819 943 72 2103 05 419 93 73 2100 75 428 895 7 2100 75 428 895 715 2100 71 429 598 76 2100 71 829 598 102 95434 183 78 2102 95 434 183 79 2107437 80 2107437 81 2113 57 239 767 52 2113 57 439 767 83 2120 58 440 51 12120 58 440 51 85 2339 42 440 51 86 12339 42 440 51 2333 42 454 98 2339 42 454 98 89 1853 45 454 98 90 11853 46 458 98 791 1793 68 432 145
43. 3 003 setq angl getint XnB HL a initget 7 y n aans strcase streat angl m 0 2 duh defun getname x cnt 3 iname getname SS KS setq setq 1 while lt ent strlen if substr x cnt 1 setq strcat name substr x cnt 1 cnt 1 strlen an angl command layer off tt tt streat itoa m streat M itoa ang m streat itoa ang SR setq cnt 1 cnt strease name MENU COMMANDS defun C j E 2 ec
44. 8049 C 0 27 3221 3 8987 1 BOZAI RYUUNAL SYUU 1 4 4 26 91 3 2100 732 426 8313 0 12 61 4 0318 1 02 1 RYUUNAILI SYUU 1 5 4 26 91 1 2067 513 380 1361 0 0 5 3556 8 6543 1 1 16 YOMORIARI RYUUNAL SYUU 4 6 4 26 91 1 2063 499 383 5527 0 5 9949 21 781 1 YOMORINASI RYUUKAI SYUU 1 6 4 26 91 1 2059 786 386 3676 C 0 2 4547 16 4033 1 HAZ SYUU 1 7 4 26 91 1 2056 101 389 166 0 2 4317 10 6418 1 2 SYUU 1 8 4 26 91 2 1785 167 432 145 10 0 2164 6 3286 1 2 RYUUNAI SYUU 1 9 4 26 91 2 1789 555 432 145 C 10 0 3513 14 0791 1 HAZ EBW YOMORINASI RYUUKAI SYUU 1 10 4 26 91 2 1792 973 432 145 10 1 0802 10 9021 1 2 RYUUKAT SYUU 1 10 4 26 91 2 1796 863 432 4862 10 1 7488 7 5048 1 2 RYUUKAI SYUU 1 1 4 26 91 1 1913 939 401 2765 C 40 0 9322 2 9572 0 5 B0ZA1 TIG YOMORIARI RYUUNAI KIKKOU 1 2 4 26 91 1 1910 021 401 2765 40 0 1774 17 7421 5 2 KIKKOU 1 3 4 26 91 1 1894 915 401 2765 40 1 1557 9 1028 1 2 YOMORTNAST KIKKOU 1 4 4 26 91 1 1878 851 398 2218 40 1 1056 14 43 1 20 1 PN9520 93 003 lt S T A A 2954156020 gt gt PS DER B 1 D zg E
45. DELOUT truename ARE while lt ang O gt ang 360 ang nil seta 3 setvar 0 truename getname getstring L 7 y 4 command layer set strcat M itoa ang off s w hn ei command dxfout truename w getvar extmin getvar extmax 10 Set open streat trueneme 051 prompt nNOW WRITING 8 write line writing 10 00 truename write line wXTTTLE MODEL Z prompt WRITING 2 writing 20 200 truename oname close command files 3 strcat truename 0 setyar 0 setvar 1 defun V ra otlname dxfnam 10 ix 20 iy XVAL 05 jilename otlname 41797 idxfname D X F 7 7744 5 992 9 set
46. echnical Cooperation Section Technology Management Division Japan Nuclear Cycle Development Institute 4 49 Muramatsu Tokai mura Naka gun Ibaraki 319 1184 y 7727777 SS z lt Z 7 lt DAG 229 22 2 s 155 lt 2 je 25 HES 277650 2 9 Z 5 1222852 NN a PNC BN9520 93 003 31 STAR STAR STAR BBEL SAR 1
47. ms SEPNC 2 93 008 ws 55 2 140 nn M T _ 83 2 5 57 x gt 2 5 72527 iN CS 9 55 2 2 52 2 25 12 Z gt yx 2562622 1 2 52 292 Z Za 35 H E 7418272 9 5 22 22 25 5 552 2 Z 4 2 59 5200 295 2282 AA od EN SC RS 5 22 204 2 2 lt 2 CA 2 07 190 T319 1184 4 49 Inquiries about copyright and reproduction should be addressed to T
48. q dxfname open strcat filename setq while 0 setq read line setq data eval streat y WRITING FIRST POINT while x set datO 11 dxfname setq value read line ptlst reform value setq cnt 10 strlen ptist while cnt 0 ptlst streat ptlst PN9520 93 003 b a m m a wa setq cnt 10 strlen ptlst data eval strcat pt1st i 1 WRITING NEXT POINT while dat0 nil setq dat0 1 dxfname if eval x value 11 dxfname setq pt2nd reform cnt 10 strlen pt2nd while cnt O setq 2 strcat 2 setq cnt 10 strlen pt2nd setq data eval strcat pt2nd setq i i 1 while i 6 write line eval data otlname i 0 setq data prompt set data eval strcat pt2nd setq i i 1 while i 6 write line eval data otlname setq i O setq data prompt 12 v x s s x
49. toa 55525525555 5522 5 5 5 4255533 defun oldpojint T S firstpoint endpoint gt if mon modet oldpoint nil firstpoint nil polilayer streat m itoa ang pointlayer strcat itoa ang command undo command layer 3 se yar 2 setq ptO getpoint A JS j F n oldpoint ptO s pointlayer command polnlnt command layer setq firstpoint getpoint ptO SEn lt vyXn setq endpoint firstpoint command layer s pointlayer command point firstpoint command layer s polilayer command pline ptO firstpoint joinning 5 111 defun C POLI overpotnt aa pt _ group ani an cO div n lt Owen 1 1508 53 Pt 927 1 2 sani ERE FA div
Download Pdf Manuals
Related Search
PNC TN9520 93 003:2.08MB pnc bank fm 529