home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / docum / lspdocr.doc / lisp next >
Encoding:
Text File  |  1990-02-14  |  219.2 KB  |  5,827 lines
  1.  
  2.  
  3.  
  4.                            - 5 -
  5.  
  6.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  7.  
  8.  
  9.  
  10.  
  11.                                â½áóá 1
  12.  
  13.                                éóÑñÑ¡¿Ñ
  14.  
  15.     ÇutoLISP  -   φΓ«   ¼«ñ¿Σ¿¬áµ¿∩   ∩ºδ¬á   »α«úαá¼¼¿α«óá¡¿∩  LISP,
  16. óßΓα«Ñ¡¡á∩ ó »á¬ÑΓ ADE-3  AutoCAD.  AutoLISP »«ºó«½∩eΓ »«½∞º«óáΓѽ∩¼ ¿
  17. αáºαáí«Γτ¿¬á¼  AutoCADá  »¿ßáΓ∞   ¼á¬α«»α«úαá¼¼δ  ¿  Σπ¡¬µ¿¿  ¡á «τÑ¡∞
  18. ¼«Θ¡«¼ ∩ºδ¬Ñ óδß«¬«ú«  πα«ó¡∩,  ¬«Γ«αδ⌐ σ«α«Φ« ß«τÑΓáÑΓß∩ ß »α¿¬½áñ¡«⌐
  19. úαáΣ¿¬«⌐. LISP «τÑ¡∞ »α«ßΓ ó ¿ºπτÑ¡¿¿ ¿ «τÑ¡∞ ú¿í«¬.
  20.  
  21.       ================================================================
  22.  
  23.                            ÄüÉÇÆêÆà éHêîÇHêà
  24.  
  25.           ä½∩ φΣΣÑ¬Γ¿ó¡«ú« »«½∞º«óá¡¿∩ AutoCAD«¼ ß«óßѼ ¡Ñ «í∩ºáΓѽ∞¡o
  26.       πτ¿Γ∞ß∩  »«½∞º«óáΓ∞ß∩  AutoLISP«¼,   Ñß½¿   π   éáß   ¡ÑΓ  «»δΓá
  27.       »α«úαá¼¼¿α«óá¡¿∩,   éá¼   ñ«ßΓáΓ«τ¡«   »α«τÑßΓ∞   ΓαÑí«óá¡¿∩  »«
  28.       ¿¡ßΓá½∩µ¿¿ ó â½áóÑ  2.  ¥Γ«  »«½Ñº¡«  º¡áΓ∞  ñ½∩  α∩ñá ñ¿ßµ¿»½¿¡
  29.       AutoCADá,   ¿ß»«½∞ºπεΦ¿σ   AutoLISP.   Äñ¡á¬«,  Ñß½¿  éδ  ½εí¿ΓÑ
  30.       »α«úαá¼¼¿α«óáΓ∞,   »α«τΓ¿ΓÑ  óßÑ  απ¬«ó«ñßΓó«,  τΓ«íδ  ¡áπτ¿Γ∞ß∩
  31.       »«½∞º«óáΓ∞ß∩   AutoLISP«¼,   τΓ«   »αÑóαáΓ¿Γ  «íΘ¿Ñ  ó«º¼«ª¡«ßΓ¿
  32.       AutoCADá  ó ÑΘÑ í«½ÑÑ ¼«Θ¡δ⌐  úαáΣ¿τÑ߬¿⌐  ¿¡ßΓαπ¼Ñ¡Γ  ½¿τ¡« ñ½∩
  33.       éáß.
  34.  
  35.       ================================================================
  36.  
  37.     ¥Γ« απ¬«ó«ñßΓó«,  á  ¡Ñ  πτÑí¡¿¬  »«  »α«úαá¼¼¿α«óá¡¿ε  ¡á LISPÑ,
  38. «ñ¡á¬« ¼δ »α¿ó«ñ¿¼ »α¿¼Ñα »αá¬Γ¿τÑ߬«ú« »α¿¼Ñ¡Ñ¡¿∩ AutoLISPá ó ú½áóÑ 3
  39. ¿ αѬ«¼Ñ¡ñπѼ »α«ß¼«ΓαÑΓ∞ αẽ¿τ¡δÑ ΓѬßΓδ ¡á LISPÑ ñ½∩ ¿ºπτÑ¡¿∩ φΓ«ú«
  40. ∩ºδ¬á »α«úαá¼¼¿α«óá¡¿∩.  LISP -  φΓ«  ∩ºδ¬,  ¿¼ÑεΘ¿⌐  ¼¡«ú« ñ¿á½Ñ¬Γ«ó,
  41. ó¬½ετá∩ îáßLISP,  InterLISP, ZetaLISP, CommonLISP. AutoLISP - ¡á¿í«½ÑÑ
  42. í½¿º«¬  »«  ß¿¡Γá¬ß¿ßπ  ¿  ß«ú½áΦÑ¡¿∩¼  ¬  CommonLISPπ,   ¡«  ∩ó½∩ÑΓß∩
  43. ¡Ñí«½∞Φ«⌐ Ñú« τáßΓ∞ε ¿ ¿¼ÑÑΓ ¼¡«ú« ñ«»«½¡¿Γѽ∞¡δσ  Σπ¡¬µ¿⌐, «ΓαáªáεΘ¿σ
  44. ߻ѵ¿Σ¿¬π  AutoCADá. ¥Γ« απ¬«ó«ñßΓó« ó¬½ετáÑΓ óßÑ Σπ¡¬µ¿¿  AutoLISPá ¿
  45. ¿σ »α¿¼Ñ¡Ñ¡¿Ñ.
  46.  
  47.     1.1  Æ¿»δ äá¡¡δσ ó AutoLISPÑ
  48.  
  49.     AutoLISP  »«ññÑনóáÑΓ ¡Ñ߬«½∞¬« αẽ¿τ¡δσ Γ¿»«ó ñá¡¡δσ:
  50.  
  51.     * ß»¿ß¬¿
  52.     * ß¿¼ó«½δ
  53.     * ßΓ᫬«óδÑ ¬«¡ßΓá¡Γδ
  54.     * ñÑ⌐ßΓó¿Γѽ∞¡δÑ τ¿ß½á
  55.     * µÑ½δÑ τ¿ß½á
  56.     * Σá⌐½«óδ⌐ ñÑß¬α¿»Γ«α («»¿ßáΓѽ∞ Σá⌐½«ó)
  57.     * "¿¼Ñ¡á" »α¿¼¿Γ¿ó«ó AutoCAD
  58.     * ¡áí«αδ AutoCADá
  59.     * óßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿ (ßπíα)
  60.  
  61.     ûѽδÑ  16-í¿Γ«óδÑ  τ¿ß½á   ó   »αÑñѽáσ  «Γ  -32768   ñ«  +32767.
  62. äÑ⌐ßΓó¿Γѽ∞¡δÑ  τ¿ß½á  »αÑñßΓáó½Ñ¡δ  ¬á¬  τ¿ß½á  ß  »½áóáεΘÑ⌐  ºá»∩Γ«⌐
  63. ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.  æΓ᫬«óδÑ ¬«¡ßΓá¡Γδ ¼«úπΓ íδΓ∞  ½εí«⌐ ñ½¿¡δ, »á¼∩Γ∞
  64. ñ½∩ ¡¿σ  αáß»αÑñѽ∩ÑΓß∩  ñ¿¡á¼¿τÑ߬¿.  Äñ¡á¬«  ßπΘÑßΓóπÑΓ ¼á¬ß¿¼á½∞¡á∩
  65.  
  66.  
  67.  
  68.  
  69.                            - 6 -
  70.  
  71.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  72.  
  73.  
  74. ñ½¿¡á ñ½∩ ßΓ᫬«óδ󠬫¡ßΓá¡Γ, αáó¡á∩ 100 ß¿¼ó«½á¼.
  75.  
  76.     AutoLISP  ß«ñÑαª¿Γ  ¡Ñ߬«½∞¬« óßΓα«Ñ¡¡δσ  Σπ¡¬µ¿⌐ ñ½∩ «íÑß»ÑτÑ¡¿∩
  77. «ß¡«ó »α«úαá¼¼¿α«óá¡¿∩ 2-σ  ¼Ñα¡δσ ¿ 3-σ  ¼Ñα¡δσ úαáΣ¿τÑ߬¿σ »α«úαá¼¼.
  78. K«úñá óδ ¿¼ÑÑΓÑ ñѽ« ß ¬««αñ¿¡áΓἿ, ß«í½εñáεΓß∩ ß½ÑñπεΘ¿Ñ ß«ú½áΦÑ¡¿∩:
  79.  
  80.     2-σ ¼Ñα¡δÑ Γ«τ¬¿ óδαáªáεΓß∩ ó ó¿ñÑ ß»¿ß¬«ó ¿º ñóπσ ñÑ⌐ßΓó¿Γѽ∞¡δσ
  81.     τ¿ßѽ (ò Y), ¬á¬:
  82.  
  83.                       (3.400000 7.520000)
  84.  
  85.                       ÅÑαó«Ñ º¡áτÑ¡¿Ñ - ¬««αñ¿¡áΓá ò, óΓ«α«Ñ - Y.
  86.  
  87.     3-σ ¼Ñα¡δÑ Γ«τ¬¿ óδαáªáεΓß∩ ó ó¿ñÑ ß»¿ß¬«ó ¿º ΓαÑσ ñÑ⌐ßΓó¿Γѽ∞¡δσ
  88.     τ¿ßѽ (X Y Z), ¬á¬:
  89.  
  90.                       (3.400000 7.520000 1.000000)
  91.  
  92.                       ÅÑαó«Ñ º¡áτÑ¡¿Ñ - ¬««αñ¿¡áΓá X, óΓ«α«Ñ - Y,
  93.                       ΓαÑΓ∞Ñ - Z.
  94.  
  95.     âñÑ  íδ  AutoCAD ¡Ñ  ºá»αáΦ¿óá½  ¡Ñ¬¿⌐ óó«ñ  (¡á»α¿¼Ñα, Γ«τ¬π ¿½¿
  96. ¼áßΦΓáí¡δ⌐ Σá¬Γ«α)  ñ½∩  ñ«ßΓ¿ªÑ¡¿∩  ¡Ñ«íσ«ñ¿¼«ú«  º¡áτÑ¡¿∩ ¼«úπΓ íδΓ∞
  97. ¿ß»«½∞º«óá¡δ  óδαáªÑ¡¿∩ AutoLISPá φΓ«ú«  Γ¿»á  ¿½¿  Σπ¡¬µ¿¿ AutoLISPá,
  98. ó«ºóαáΘáεΘ¿Ñ αѺπ½∞ΓáΓ φΓ«ú« Γ¿»á.
  99.  
  100.     1.2   éδτ¿ß½¿Γѽ∞ AutoLISPá
  101.  
  102.     æÑαñµÑ¼   ¬áªñ«ú«  ¿¡ΓÑα»α¿ΓáΓ«αá   LISPá  ∩ó½∩ÑΓß∩  óδτ¿ß½¿Γѽ∞.
  103. éδτ¿ß½¿Γѽ∞  íÑαÑΓ ßΓ᫬π,  óóÑñÑ¡¡πε  »«½∞º«óáΓѽѼ,  óδτ¿ß½∩ÑΓ ÑÑ, ¿
  104. ó«ºóαáΘáÑΓ  ¡Ñ¬¿⌐  αѺπ½∞ΓáΓ.   H¿ªÑ  ß½ÑñπÑΓ  »α«µÑßß   óδτ¿ß½Ñ¡¿∩  ó
  105. AutoLISPÑ:
  106.  
  107.     * ûѽδÑ, ñÑ⌐ßΓó¿Γѽ∞¡δÑ, ßΓ᫬«óδÑ ¬«¡ßΓá¡Γδ, π¬áºáΓѽ¿ Σá⌐½«ó
  108.        óδτ¿ß½∩εΓß∩ ó ßἿσ ßÑí∩.
  109.     * æ¿¼ó«½δ óδτ¿ß½∩εΓß∩ ó ßó«¿ ΓѬπΘ¿Ñ º¡áτÑ¡¿∩.
  110.      *  æ»¿ß¬¿ óδτ¿ß½∩εΓß∩ ó   ºáó¿ß¿«ßΓ¿  «Γ »Ñαó«ú« φ½Ñ¼Ñ¡Γá ß»¿ß¬á.
  111. àß½¿ ß»¿ß«¬ óδτ¿ß½∩ÑΓß∩ ó :
  112.     *   ß»¿ß«¬   (¿½¿  nil),   »αÑñ»«½áúáÑΓß∩,  τΓ«  ß»¿ß«¬  ∩ó½∩ÑΓß∩
  113. «»αÑñѽѡ¿Ñ¼  Σπ¡¬µ¿¿  ¿  Σπ¡¬µ¿∩  óδτ¿ß½∩ÑΓß∩,  ¿ß»«½∞ºπ∩  «ßΓáóΦ¿Ñß∩
  114. φ½Ñ¼Ñ¡Γδ ß»¿ß¬á ¬á¬ áαúπ¼Ñ¡Γδ;
  115.     * ¿¼∩ ó¡πΓαÑ¡¡Ñ⌐ Σπ¡¬µ¿¿ (ßπíα), Γ« «ßΓá½∞¡δÑ φ½Ñ¼Ñ¡Γδ ß»¿ß¬á
  116. »ÑαÑñáεΓß∩ ó ßπíα ¬á¬ Σ«α¼á½∞¡δÑ áαúπ¼Ñ¡Γδ ¿ óδτ¿ß½∩εΓß∩ ßπíα«¼.
  117.  
  118.     àß½¿ óδ  óóѽ¿ óδαáªÑ¡¿Ñ AutoLISPá  ó  «ΓóÑΓ  ¡á  ºá»α«ß AutoCADá
  119. "Command:" /¬«¼á¡ñá:/, AutoLISP óδτ¿ß½¿Γ óδαáªÑ¡¿Ñ ¿ óδóÑñÑΓ αѺπ½∞ΓáΓ
  120. ¡á φ¬αá¡. çá»α«ß AutoCADá "Command:" »«óΓ«α¿Γß∩.
  121.  
  122.     àß½¿ ¡Ñ¬«ααÑ¬Γ¡«Ñ óδαáªÑ¡¿Ñ ¡áíαá¡« ß ¬½áó¿áΓπαδ  ¿½¿  ßτ¿Γá¡« ¿º
  123. Σá⌐½á, AutoLISP ¼«ªÑΓ óδñáΓ∞ ß½ÑñπεΘπε »«ñ߬Ậπ:
  124.  
  125.     n>
  126.  
  127. úñÑ n  -  µÑ½«Ñ  τ¿ß½«,  «Γ¼ÑτáεΘÑÑ  ¬á¬  ¼¡«ú«  πα«ó¡Ñ⌐  ½Ñóδσ ß¬«í«¬
  128. «ßΓὫß∞ ¡Ñºá¬αδΓ묨.  àß½¿ »«∩ó¿½áß∞ Γá¬á∩ »«ñ߬Ậá,  Γ« τΓ«íδ óδ⌐Γ¿
  129. ¿º φΓ«ú« ß«ßΓ«∩¡¿∩ ¡Ñ«íσ«ñ¿¼« ¡áíαáΓ∞ n »αáóδσ ß¬«í«¬. ùáßΓá∩ «Φ¿í¬á -
  130.  
  131.  
  132.  
  133.  
  134.                            - 7 -
  135.  
  136.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  137.  
  138.  
  139. »α«»π߬ ºá¬αδóáεΘ¿σß∩ ñó«⌐¡δσ ¬áóδτѬ (")  ó ΓѬßΓ«ó«⌐  ßΓ᫬Ñ. é φΓ«¼
  140. ß½πτáÑ »αáóδÑ  ß¬«í¬¿  ¿¡ΓÑα»αÑΓ¿απεΓß∩  ¬á¬ ¬áóδτ¬¿  ¿  ¡Ñ »α«¿ºó«ñ∩Γ
  141. ¡¿¬á¬«ú«  φΣΣѬΓá ¡á  ¿º¼Ñ¡Ñ¡¿Ñ  n.  ùΓ«íδ  óδ⌐Γ¿  ¿º  φΓ«ú« ß«ßΓ«∩¡¿∩
  142. ¡áíÑα¿ΓÑ ñó«⌐¡δÑ ¬áóδτ¬¿, á ºáΓѼ πªÑ ¿ »αáóδѠ߬«í¬¿.
  143.  
  144.     1.3 æ«ú½áΦÑ¡¿∩ »« ïѬ߿¬Ñ.
  145.  
  146.     éó«ñ  ó  AutoLISP  ¼«ªÑΓ  »α¿¡¿¼áΓ∞  ¡Ñ߬«½∞¬«  Σ«α¼.   Ä¡  ¼«ªÑΓ
  147. «ßπΘÑßΓó½∩Γ∞ß∩  ß   ¬½áó¿áΓπαδ  ó  ßÑá¡ßÑ   AutoCADá,  ßτ¿ΓδóáΓ∞ß∩  ¿º
  148. ASCII-Σá⌐½á  ¿ ßτ¿ΓδóáΓ∞ß∩ ¿º  ßΓ᫬«ó«⌐  ¬«¡ßΓá¡Γδ.  é«  óßÑσ ß½πτá∩σ
  149. ñ«½ª¡δ ß«í½εñáΓ∞ß∩ ß½ÑñπεΘ¿Ñ ß«ú½áΦÑ¡¿∩:
  150.  
  151.     *  ê¼Ñ¡á  ß¿¼ó«½«ó  ¼«úπΓ  ß«ßΓ«∩Γ∞  ¿º  ½εí«⌐ »«ß½Ññ«óáΓѽ∞¡«ßΓ¿
  152. »ÑτáΓ¡δσ º¡á¬«ó, ¿ß¬½ετá∩ ß½ÑñπεΘ¿Ñ:
  153.  
  154.                   ( ) . ' " ;
  155.  
  156.     *   æ½ÑñπεΘ¿Ñ  ß¿¼ó«½δ  óδºδóáεΓ  »αÑαδóá¡¿Ñ  ¿¼Ñ¡¿  ß¿¼ó«½á  ¿½¿
  157. τ¿ß½«ó«⌐ ¬«¡ßΓá¡Γδ:
  158.  
  159.                   ( ) ' " ; (»α«íѽ) (¬«¡Ñµ Σá⌐½á)
  160.  
  161.     * éδαáªÑ¡¿∩ ¼«úπΓ ºá¡¿¼áΓ∞ ¡Ñ߬«½∞¬« ßΓ᫬.
  162.     * HÑ߬«½∞¬« »α«íѽ«ó ¼Ñªñπ ß¿¼ó«½á¼¿ φ¬ó¿óá½Ñ¡Γ¡δ «ñ¡«¼π »α«íѽπ.
  163. ò«Γ∩ «ΓßΓπ»δ ó ßΓ᫬áσ ¿ ¡Ñ ΓαÑíπεΓß∩,  óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞  ¿σ ñ½∩
  164. »«óδΦÑ¡¿∩ ¡áú½∩ñ¡«ßΓ¿ ßΓαπ¬Γπα¿α«óá¡¿∩ óáΦ¿σ Σπ¡¬µ¿⌐.
  165.     *  ê¼Ñ¡á ß¿¼ó«½«ó  ¿ Σπ¡¬µ¿⌐  (ßπíα)  ó  AutoLISPÑ  íѺαẽ¿τ¡δ ¬
  166. αÑú¿ßΓαπ, ¡á ¬«Γ«α«¼ «¡¿ ¡áíαá¡δ. ê¼Ñ¡á ß¿¼ó«½«ó ¡Ñ ¼«úπΓ ¡áτ¿¡áΓ∞ß∩ ß
  167. µ¿Σαδ.
  168.     *  ûѽδÑ ¬«¡ßΓá¡Γδ ¼«úπΓ ¡áτ¿¡áΓ∞ß∩ ß ¡Ñ«í∩ºáΓѽ∞¡δσ ß¿¼ó«½«ó "+"
  169. ¿½¿ "-".  Kᬠí佫 ºá¼ÑτÑ¡« αá¡ÑÑ,  «¡¿ ¡áσ«ñ∩Γß∩ ó »αÑñѽáσ «Γ -32768
  170. ñ« +32767.
  171.     *  äÑ⌐ßΓó¿Γѽ∞¡δÑ ¬«¡ßΓá¡Γδ ß«ßΓ«∩Γ ¿º «ñ¡«⌐ ¿½¿ í«½ÑÑ  µ¿Σαδ, ºá
  172. ¬«Γ«α묨  ß½ÑñπÑΓ  ñÑß∩Γ¿τ¡á∩  Γ«τ¬á,   ºá  ¬«Γ«α«⌐,  ó  ßó«ε  «τÑαÑñ∞
  173. ß½ÑñπεΓ «ñ¡á  ¿½¿ í«½ÑÑ µ¿Σα;  Γ.«.  "4"  ¡Ñ  ∩ó½∩ÑΓß∩ ñÑ⌐ßΓó¿Γѽ∞¡δ¼,
  174. »αáó¿½∞¡δ¼ íπñÑΓ "0.4".  Æ«τ¡« ΓᬠªÑ "5." ¡Ñ ∩ó½∩ÑΓß∩ ñÑ⌐ßΓó¿Γѽ∞¡δ¼,
  175. »αáó¿½∞¡δ¼  íπñÑΓ  "5.0".  äÑ⌐ßΓó¿Γѽ∞¡δÑ  τ¿ß½á  ¼«úπΓ  óδαáªáΓ∞ß∩  ó
  176. "¡áπτ¡«¼"  »αÑñßΓáó½Ñ¡¿¿,  Γ.Ñ.  ¿¼ÑΓ∞ ¡Ñ«í∩ºáΓѽ∞¡δ⌐ »áαá¼ÑΓα "Ñ" ¿½¿
  177. "à", ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ßΓѻѡ∞ τ¿ß½á 10.
  178.     *  üπ¬óÑ¡¡δÑ ßΓ᫬«óδÑ ¬«¡ßΓá¡Γδ - φΓ« »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ º¡á¬«ó,
  179. óº∩Γá∩  ó  ¬áóδτ¬¿.   é¡πΓα¿  óº∩Γδσ  ó  ¬áóδτ¬¿   ßΓ᫬«óδσ  ¬«¡ßΓá¡Γ
  180. ¼«ª¡« óóÑßΓ¿ π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ, »«½∞ºπ∩ß∞ º¡á¬«¼ «íαáΓ¡«⌐ τÑαΓδ (\).
  181.     K«ñδ ß¿¼ó«½«ó Γᬫóδ:
  182.  
  183.          \\        «º¡áτáÑΓ º¡á¬ \
  184.          \Ñ        «º¡áτáÑΓ ß¿¼ó«½ escape-»«ß½Ññ«óáΓѽ∞¡«ßΓ¿
  185.          \n        «º¡áτáÑΓ ¡«óπε ßΓ᫬π (newline)
  186.          \r        «º¡áτáÑΓ ó«ºóαáΓ ¬áαÑΓ¬¿ (return)
  187.          \t        «º¡áτáÑΓ Γáíπ½∩µ¿ε (tab)
  188.          \nnn      «º¡áτáÑΓ º¡á¬, ó«ß∞¼Ñα¿τ¡δ⌐ ¬«ñ ¬«Γ«α«ú« nnn
  189.  
  190.     Há»α¿¼Ñα, ß½ÑñπεΘá∩ ºá»¿ß∞ óδó«ñ¿Γ »«ñ߬Ậπ ¡á ¡«óπε ßΓ᫬π:
  191.  
  192.     (prompt "\néóÑñ¿ΓÑ »Ñαóπε Γ«τ¬π: ")
  193.  
  194.     *  ç¡á¬  á»«ßΓ«Σá  ¼«ªÑΓ  íδΓ∞  ¿ß»«½∞º«óá¡  ¬á¬  ¬«α«Γ¬á∩ ºá»¿ß∞
  195.  
  196.  
  197.  
  198.  
  199.                            - 8 -
  200.  
  201.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  202.  
  203.  
  204. Σπ¡¬µ¿¿ QUOTE. Æá¬:
  205.  
  206.     'foo
  207.  
  208.     φ¬ó¿óá½Ñ¡Γ¡«:
  209.  
  210.     (quote foo)
  211.  
  212.     * é AutoLISP-»α«úαá¼¼δ, óó«ñ¿¼δÑ ß ñ¿ß¬«ó«ú« Σá⌐½á, ¼«úπΓ íδΓ∞
  213. ó¬½ετÑ¡δ   ¬«¼¼Ñ¡Γáα¿¿.  K«¼¼Ñ¡Γáα¿¿  ¡áτ¿¡áεΓß∩  ß  Γ«τ¬¿-c-ºá»∩Γ«⌐ ¿
  214. »α«ñ«½ªáεΓß∩ ñ« ¬«¡µá ßΓ᫬¿. Há»α¿¼Ñα:
  215.  
  216.     ; ¥Γ« ßΓ᫬á, ß«ßΓ«∩Θá∩ Γ«½∞¬« ¿º ¬«¼Ñ¡Γáα¿∩
  217.  
  218.     (setq area (* pi r r)) ; éδτ¿ß½Ñ¡¿Ñ »½«Θáñ¿ ¬απúá.
  219.  
  220.     1.4 æ«ú½áΦÑ¡¿∩ »« Äí«º¡áτÑ¡¿∩¼
  221.  
  222.     ¥Γ« απ¬«ó«ñßΓó« »α¿¼Ñ¡∩ÑΓ  ¡Ñ¬«Γ«αδÑ  ß«ú½áΦÑ¡¿∩  ñ½∩ «»αÑñѽѡ¿∩
  223. ñÑ⌐ßΓó¿∩ Σπ¡¬µ¿⌐. Há»α¿¼Ñα:
  224.  
  225.     (moo <ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá> <τ¿ß½«>...)
  226.  
  227. ê¼∩ Σπ¡¬µ¿¿  »«¬áºδóáÑΓ,  ¬á¬  óδ  ñ«½ª¡δ  óóÑßΓ¿  Ñú«.  çᬽετÑ¡¡δÑ ó
  228. πú½«óδѠ߬«í¬¿ º¡á¬¿,  ß½ÑñπεΘ¿Ñ ºá ¿¼Ñ¡Ñ¼ Σπ¡¬µ¿¿ »«¬áºδóáεΓ  τ¿ß½« ¿
  229. Γ¿» áαúπ¼Ñ¡Γ«ó, ΓαÑíπѼδσ Σπ¡¬µ¿Ñ⌐.
  230.  
  231. é φΓ«¼ »α¿¼ÑαÑ Σπ¡¬µ¿∩ "moo"  ¿¼ÑÑΓ ñóá ΓαÑíπѼδσ áαúπ¼Ñ¡Γá: ßΓ᫬«óπε
  232. ¬«¡ßΓá¡Γπ ¿ τ¿ß½«.  î¡«ú«Γ«τ¿Ñ ("...") »«¬áºδóáÑΓ, τΓ« ¬ Σπ¡¬µ¿¿ ¼«úπΓ
  233. íδΓ∞ ñ«íáó½Ñ¡δ ñ«»«½¡¿Γѽ∞¡δÑ τ¿ß½«óδÑ áαúπ¼Ñ¡Γδ. HÑ ó¬½ετá⌐ΓÑ πú½«óδÑ
  234. ߬«í¬¿ ¿½¿ ¼¡«ú«Γ«τ¿Ñ, ¬«úñá óδ ¿ß»«½∞ºπÑΓÑ φΓπ Σπ¡¬µ¿ε.
  235.  
  236.     æ½ÑñπεΘ¿Ñ »α¿¼Ñαδ ∩ó½∩εΓß∩ »αáó¿½∞¡δ¼¿  »α¿ ¿ß»«½∞º«óá¡¿¿ Σπ¡¬µ¿¿
  237. "moo".
  238.  
  239.     (moo "Hello" 5)
  240.     (moo "Hi" 1 2 3)
  241.  
  242.     æ½ÑñπεΘ¿Ñ  »α¿¼Ñαδ  ¡Ñ  ß««ΓóÑΓßΓóπεΓ  »αÑñ»¿ßá¡¡«¼π   Σ«α¼áΓπ  ¿
  243. »α¿ó«ñ∩Γ ¬ «Φ¿í¬á¼:
  244.  
  245.     (moo  1   2  3)        (»Ñαóδ⌐  áαúπ¼Ñ¡Γ  ñ«½ªÑ¡  íδΓ∞  ßΓ᫬«ó«⌐
  246. ¬«¡ßΓá¡Γ«⌐)
  247.     (moo "Hello")     (ñ«½ªÑ¡ íδΓ∞ σ«Γ∩ íδ «ñ¿¡ τ¿ß½«ó«⌐ áαúπ¼Ñ¡Γ)
  248.     (moo "do"  '(1  2))  (óΓ«α«⌐ áαúπ¼Ñ¡Γ  ñ«½ªÑ¡  íδΓ∞  τ¿ß½«¼, á ¡Ñ
  249. ß»¿ß¬«¼).
  250.  
  251.     é  Γ«¼ ß½πτáÑ,  ¬«úñá  ¼«ªÑΓ  íδΓ∞  ñ«íáó½Ñ¡  «ñ¿¡ Σá¬π½∞ΓáΓ¿ó¡δ⌐
  252. áαúπ¼Ñ¡Γ,  ¡«  «¡  ¡Ñ  ¼«ªÑΓ  íδΓ∞  »«óΓ«αÑ¡,  áαúπ¼Ñ¡Γ  ºá¬½ετáÑΓß∩ ó
  253. ¬óáñαáΓ¡δѠ߬«í¬¿ ("[]"):
  254.  
  255.     (foo <ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá> [<τ¿ß½«>])
  256.  
  257.     é  φΓ«¼  »α¿¼ÑαÑ  Σπ¡¬µ¿∩  "foo"  ΓαÑíπÑΓ  «ñ¿¡  áαúπ¼Ñ¡Γ  ó ó¿ñÑ
  258. ßΓ᫬«ó«⌐ ¬«¡ßΓá¡Γδ ¿ ñ«»π߬áÑΓ «ñ¿¡ Σá¬π½∞ΓáΓ¿ó¡δ⌐ τ¿ß½«ó«⌐ áαúπ¼Ñ¡Γ.
  259. æ½ÑñπεΘ¿Ñ »α¿¼Ñαδ ∩ó½∩εΓß∩ »αáó¿½∞¡δ¼¿ ó맮óἿ Σπ¡¬µ¿¿ "foo":
  260.  
  261.  
  262.  
  263.  
  264.                            - 9 -
  265.  
  266.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  267.  
  268.  
  269.  
  270.     (foo "catch")
  271.     (foo "catch" 22)
  272.  
  273.     æ½ÑñπεΘ¿Ñ  Σ«α¼áΓδ  ¡Ñ  ß««ΓóÑΓßΓóπεΓ   »αÑñ»¿ßá¡¡«¼π  Σ«α¼áΓπ  ¿
  274. »α¿ó«ñ∩Γ ¬ «Φ¿í¬á¼:
  275.  
  276.     (foo  44   13)         (»Ñαóδ⌐  áαúπ¼Ñ¡Γ  ñ«½ªÑ¡  íδΓ∞  ßΓ᫬«ó«⌐
  277. ¬«¡ßΓá¡Γ«⌐)
  278.     (foo "foo" 44 13)  (ß½¿Φ¬«¼ ¼¡«ú« áαúπ¼Ñ¡Γ«ó)
  279.  
  280.     1.5   Äíαáí«Γ¬á ÄΦ¿í«¬
  281.  
  282.     àß½¿ AutoLISP óßΓαÑτáÑΓ «Φ¿í¬π ó« óαѼ∩ óδτ¿ß½Ñ¡¿⌐, «¡ »ÑτáΓáÑΓ
  283. ß««íΘÑ¡¿Ñ ó ó¿ñÑ:
  284.  
  285.     error: ΓѬßΓ
  286.  
  287. úñÑ ΓѬßΓ -  φΓ« «»¿ßá¡¿Ñ «Φ¿í¬¿.  àß½¿ Σπ¡¬µ¿∩ *ERROR* «»αÑñѽѡá (¡Ñ
  288. nil),   AutoLISP   óδ»«½¡∩ÑΓ   φΓπ  Σπ¡¬µ¿ε  ("ΓѬßΓ"   ßΓá¡«ó¿Γß∩  ÑÑ
  289. áαúπ¼Ñ¡Γ«¼)  ó¼ÑßΓ« »ÑτáΓ¿  ß««íΘÑ¡¿∩.  àß½¿ *ERROR* ¡Ñ «»αÑñѽѡᠿ½¿
  290. nil,  óδτ¿ß½Ñ¡¿∩ AutoLISPá íπñÑΓ «ßΓá¡«ó½Ñ¡« ¿ íπñÑΓ  óδñá¡á  ¡á φ¬αá¡
  291. «íαáΓ¡á∩  Γαáßß¿α«ó¬á  óδºδóδáѼ«⌐  Σπ¡¬µ¿¿,  á  ΓᬪѠ óδºδóáεΘ¿σ  ÑÑ
  292. Σπ¡¬µ¿⌐ ó»½«Γ∞ ñ« 100 πα«ó¡Ñ⌐ ó½«ªÑ¡¿∩.
  293.  
  294.  
  295.                             â½áóá 2
  296.  
  297.                       ê¡ßΓá½∩µ¿∩ AutoLISPá
  298.  
  299.     2.1 ÆαÑí«óá¡¿∩
  300.  
  301. ¥Γá óÑαß¿∩ ∩ºδ¬á AutoLISP ΓαÑíπÑΓ ß½ÑñπεΘÑÑ «íÑß»ÑτÑ¡¿Ñ:
  302.  
  303.      1. K«¼»∞εΓÑα, ß¡áíªÑ¡¡δ⌐ »á¬ÑΓ«¼ AutoCAD, ß ¼¿¡¿¼π¼«¼ 640K »á¼∩Γ¿
  304.      ¿ ªÑßΓ¬¿¼ ñ¿ß¬«¼.
  305.  
  306.      2. Åá¬ÑΓ AutoCAD óÑαß¿∩ 9 (¿½¿ í«½ÑÑ »«ºñ¡∩∩ ß αáßΦ¿αÑ¡¿Ñ¼ ADE-3).
  307.  
  308.    2.2 ö«α¼áΓ
  309.  
  310. AutoLISP »«ßΓáó½∩ÑΓß∩ ß ¬áªñ«⌐ ¬«»¿Ñ⌐ AutoCADá, ß¡áíªÑ¡¡«⌐ ADE-3.
  311. æ»Ñµ¿á½∞¡á∩ ¿¡ßΓá½∩µ¿∩ ¡Ñ ΓαÑíπÑΓß∩. öá⌐½ "acadl.ovl" ¡á ñ¿ß¬ÑΓÑ
  312. AutoCADá ∩ó½∩ÑΓß∩ «óÑα½Ñ⌐¡δ¼ Σá⌐½«¼ »α«úαá¼¼δ AutoLISP.
  313.  
  314. Äñ¡á ¿º ñ¿ß¬ÑΓ »á¬ÑΓá AutoCAD ß«ñÑαª¿Γ Σá⌐½, ¡áºóá¡¡δ⌐ "readme.doc".
  315. Å«ß¼«Γα¿ΓÑ φëàΣá⌐½, «¡ ß«ñÑαª¿Γ óßÑ »«ß½Ññ¡¿Ñ ¿º¼Ñ¡Ñ¡¿∩ ¿
  316. «í¡«ó½Ñ¡¿∩ ñ«¬π¼Ñ¡Γᵿ¿ AutoCADá ¿ AutoLISPá.
  317.  
  318.     2.3 ÆαÑí«óá¡¿∩ ¬ Åá¼∩Γ¿
  319.  
  320. é ß¿ßΓѼáσ PC-DOS/MS-DOS, «»αÑñѽѡ¡á∩ τáßΓ∞ »á¼∩Γ¿ ¬«¼»∞εΓÑαá
  321. ñ«½ª¡á íδΓ∞ πßΓá¡«ó½Ñ¡á ñ½∩ ¿ß»«½∞º«óá¡¿∩ AutoLISP«¼. àß½¿ óδ ¿ß»«½∞-
  322. ºπÑΓѠ߻ѵ¿á½¿º¿α«óá¡¡δ⌐ »á¬ÑΓ, Γᬫ⌐ ¬á¬ AutoCAD  AEC, »α«ß¼«Γα¿ΓÑ
  323. Ñú« απ¬«ó«ñßΓó« ñ½∩ πßΓᡫ󬿠αѬ«¼Ñ¡ñπѼδσ º¡áτÑ¡¿⌐ »ÑαѼѡ¡δσ ßαÑñδ
  324. LISPHEAP ¿ LISPSTACK. Å«ñα«í¡ÑÑ «í φΓ«¼ ß¼«Γα¿ΓÑ ú½áóπ 6 ¡áΦÑú«
  325. απ¬«ó«ñßΓóá.
  326.  
  327.  
  328.  
  329.  
  330.  
  331.                            - 10 -
  332.  
  333.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  334.  
  335.  
  336.     2.4 ÇóΓ«¼áΓ¿τÑ߬¿⌐ çáúαπºτ¿¬ öπ¡¬µ¿⌐ - Σá⌐½ "acad.lsp"
  337.  
  338. éß∩¬¿⌐ αẠ»α¿ ¡áτá½Ñ ßÑá¡ßá τÑαΓѪ¡«ú« αÑñá¬Γ«αá AutoCADá, AutoLISP
  339. ºáúαπªáÑΓ Σá⌐½ "acad.lsp" (Ñß½¿ «¡ ßπΘÑßΓóπÑΓ). éδ ¼«ªÑΓÑ ó¡ÑßΓ¿
  340. «»αÑñѽѡ¿∩ ¡á¿í«½ÑÑ τáßΓ« ¿ß»«½∞ºπѼδσ Σπ¡¬µ¿⌐ ó φëàΣá⌐½ ¿ «¡¿ íπñπΓ
  341. óδ»«½¡∩Γ∞ß∩ áóΓ«¼áΓ¿τÑ߬¿ ¬áªñδ⌐ αáº, ¬«úñá óδ ¡áτ¿¡áÑΓÑ αÑñá¬Γ¿α«óáΓ∞
  342. α¿ßπ¡«¬. æ¼«Γα¿ΓÑ «»¿ßá¡¿Ñ Σπ¡¬µ¿⌐ DEFUN ó ú½áóÑ 4 ñ½∩ ñÑΓá½Ñ⌐.
  343.  
  344.  
  345.                                â½áóá 3
  346.  
  347.                           Æα«»¿¡¬á ó AutoLISP
  348.  
  349.     Há¿í«½∞ΦÑÑ   ñ«ßΓ«¿¡ßΓó«   AutoCADá  »α«∩ó½∩ÑΓß∩   ó  ó«º¼«ª¡«ßΓ¿
  350. ó¡ÑßÑ¡¿∩  ó ¡Ñú«  ñ«íáó½Ñ¡¿⌐.  Åα¿ »α«Ñ¬Γ¿α«óá¡¿¿ AutoCADá ¼δ »δΓ὿ß∞
  351. »αÑñ«ßΓáó¿Γ∞ ó απ¬¿  »«½∞º«óáΓѽÑ⌐  ¬á¬  ¼«ª¡«  í«½∞ΦÑ  Γᬿσ ßαÑñßΓó.
  352. àß½¿,  ¿ß»«½∞ºπ∩  AutoCAD éδ ó  ß«óÑαΦÑ¡ßΓóÑ «ó½áñѽ¿ ¿¼,  π éáß ¼«ªÑΓ
  353. 󫺡¿¬¡πΓ∞  ªÑ½á¡¿Ñ  ¿¼ÑΓ∞  ¡Ñ¬«Γ«αδÑ  ñ«»«½¡¿Γѽ∞¡δÑ  ó«º¼«ª¡«ßΓ¿,  ó
  354. ¬«Γ«αδσ éδ τáßΓ« τπßΓóπÑΓÑ »«ΓαÑí¡«ßΓ∞.  éδ ¼«ªÑΓÑ ¡áτáΓ∞ ß ñ«íáó½Ñ¡¿∩
  355. »«ß½Ññ«óáΓѽ∞¡«ßΓÑ⌐  ¬«¼á¡ñ,  ¬«Γ«αδÑ éδ ¡á¿í«½ÑÑ  τáßΓ« ¿ß»«½∞ºπÑΓÑ ó
  356. φ¬αá¡¡«Ñ ¿ ¬¡«»«τ¡«Ñ ¼Ñ¡ε ¿½¿ ¼Ñ¡ε »½á¡ΦÑΓá. éδ ¼«ªÑΓÑ ß«ºñáóáΓ∞ ¡«óδÑ
  357. Γ¿»δ  ½¿¡¿⌐  ¿  ΦΓα¿σ«ó¬¿   ¿½¿  úáα¡¿Γπαδ  Φα¿ΣΓ«ó.   äѽá∩  φΓ«,  éδ
  358. »«½∞ºπÑΓÑß∞   »αÑ¿¼πΘÑßΓó«¼   "«Γ¬αδΓ«⌐   áασ¿ΓѬΓπαδ"    AutoCADá   -
  359. αáßΦ¿αÑ¡¿Ñ¼   ¿   Σ«α¼¿α«ó᡿Ѽ   ÑÑ  ó   éáΦ¿  »Ñαß«¡á½∞¡δÑ  ßαÑñßΓóá
  360. »α«Ñ¬Γ¿α«óá¡¿∩, «ΓóÑτáεΘ¿Ñ ¡á»αáó½Ñ¡¿∩¼ éáΦÑ⌐ αáí«Γδ ¿ «íαẫ¼ ¼δß½Ñ⌐.
  361.  
  362.     Há¿í«½ÑÑ  ¼«Θ¡δ¼  ßαÑñßΓó«¼  αáßΦ¿αÑ¡¿∩  AutoCADá  ∩ó½∩ÑΓß∩  ∩ºδ¬
  363. »α«úαá¼¼¿α«óá¡¿∩ AutoLISP.  ¥Γ« ßαÑñßΓó« «íÑß»Ñτ¿óáÑΓß∩ óßѼ¿ óÑαß¿∩¼¿
  364. AutoCADá  ß »á¬ÑΓ«¼ ADE-3  ºá ßτÑΓ  »α¿¼Ñ¡Ñ¡¿∩  ∩ºδ¬á »α«úαá¼¼¿α«óá¡¿∩
  365. LISP,   áñá»Γ¿α«óá¡¡«ú«  »«ñ  AutoCAD.  Åα¿  ß«ßΓáó½Ñ¡¿∩  »α«úαá¼¼  ¡á
  366. AutoLISPÑ éδ ¼«ªÑΓÑ ñ«íáó½∩Γ∞ ¬«¼á¡ñδ ó AutoCAD, ¼«ñ¿Σ¿µ¿απ∩ Ñú« Γᬿ¼
  367. ªÑ «íαẫ¼, ¬á¬ φΓ« ñѽáεΓ »α«úαá¼¼¿ßΓδ ¡áΦÑ⌐ Σ¿α¼δ.
  368.  
  369.     üπ¬óá½∞¡« ºá ¡Ñ߬«½∞¬« ¼¿¡πΓ ¼δ ñ«íáó¿¼ ó AutoCAD  ¡«óπε ¬«¼á¡ñπ.
  370. é »α«µÑßßÑ  ¡á»¿ßá¡¿∩ »α«úαá¼¼δ ¼δ  «íΩ∩ß¡¿¼  ¬á¬ αáí«ΓáÑΓ  AutoLISP ¿
  371. ñáñ¿¼  éἠ󫺼«ª¡«ßΓ∞ »«τπßΓó«óáΓ∞,  ¬á¬ ¿ß»«½∞º«óáΓ∞ Ñú«  ßαÑñßΓóá ó
  372. ßó«¿σ µÑ½∩σ. K«¼á¡ñá, ¬«Γ«απε ¼δ íπñѼ ß«ßΓáó½∩Γ∞, «Γ¡«ß¿Γß∩ ¬ «í½áßΓ¿
  373. ½á¡ñΦáΣΓ¡«⌐ áασ¿ΓѬΓπαδ,  «ñ¡á¬« º¡á¡¿∩,  ¬«Γ«αδÑ éδ »α¿«íαÑΓÑΓÑ íπñπΓ
  374. ß««ΓóÑΓßΓó«óáΓ∞ ¿ º«¡Ñ éáΦÑ⌐ ñÑ∩Γѽ∞¡«ßΓ¿.
  375.  
  376.     3.1 ä½∩ Háτá½á
  377.  
  378.     îδ   »αÑñ»«½áúáѼ,   τΓ«  éδ  ∩ó½∩ÑΓÑß∞  ñ«ßΓáτ¡«  »«ñú«Γ«ó½Ñ¡¡δ¼
  379. »«½∞º«óáΓѽѼ  AutoCADá,   Γ.Ñ.  º¡áÑΓÑ  ¬«¼á¡ñδ  ¿  «ß¡«ó¡δÑ  »«¡∩Γ¿∩
  380. AutoCADá.  îδ  ΓᬠªÑ  ¡áñÑѼß∩,  τΓ« éδ π¼ÑÑΓÑ »«½∞º«óáΓ∞ß∩ ΓѬßΓ«óδ¼
  381. αÑñá¬Γ«α«¼,  «íαáíáΓδóáεΘ¿¼ ASCII-Σá⌐½δ.  H¿ªÑ  ¼δ »α¿ó«ñ¿¼ »α«úαá¼¼π,
  382. ¡áñÑ∩ß∞,  τΓ«  éδ  ó«ß»«½∞ºπÑΓÑß∞ ΓѬßΓ«óδ¼  αÑñá¬Γ«α«¼, óδ»«½¡∩∩ ¡áΦ¿
  383. »αÑñ½«ªÑ¡¿∩.
  384.  
  385.     é φΓ«¼ »α¿¼ÑαÑ ¼δ íπñѼ ¿ß»«½∞º«óáΓ∞ ¼¡«ªÑßΓó« Σπ¡¬µ¿⌐ AutoLISPá.
  386. æ½ÑñπεΘ¿Ñ ú½áóδ φΓ«ú«  απ¬«ó«ñßΓóá ß«ñÑαªáΓ »«½¡«Ñ «»¿ßá¡¿Ñ  óßÑσ φΓ¿σ
  387. Σπ¡¬µ¿⌐.
  388.  
  389.     3.2 ûѽ∞
  390.  
  391.     HáΦÑ⌐ µÑ½∞ε ∩ó½∩ÑΓß∩  ß«ºñá¡¿Ñ  ¡«ó«⌐ ¬«¼á¡ñδ  AutoCADá, α¿ßπεΘÑ⌐
  392. »áᬫóπε  ñ«α«ª¬π,  ¼«ΘÑ¡¡πε  ¬απú½«⌐  íÑΓ«¡¡«⌐  »½¿Γ¬«⌐.  HáΦá  ¡«óá∩
  393. ¬«¼á¡ñá íπñÑΓ ¿¼ÑΓ∞ ß½ÑñπεΘπε »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ »«ñ߬ẫ¬:
  394.  
  395.  
  396.  
  397.  
  398.                            - 11 -
  399.  
  400.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  401.  
  402.  
  403.  
  404.      Command: PATH
  405.      Start point of path: start point
  406.      End point of path: endpoint
  407.      Half width of path: number
  408.      Radius of tiles: number
  409.      Spacing between tiles: number
  410.  
  411.     /K«¼á¡ñá: PATH
  412.      Háτá½∞¡á∩ Γ«τ¬á ñ«α«ª¬¿: ¡áτá½∞¡á∩ Γ«τ¬á
  413.      K«¡Ñτ¡á∩ Γ«τ¬á ñ«α«ª¬¿: ¬«¡Ñτ¡á∩ Γ«τ¬á
  414.      Å«½πΦ¿α¿¡á ñ«α«ª¬¿: τ¿ß½«
  415.      Éáñ¿πß »½¿Γ¬¿: τ¿ß½«
  416.      ÉáßßΓ«∩¡¿Ñ ¼Ñªñπ »½¿Γ¬á¼¿: τ¿ß½«/
  417.  
  418. úñÑ  ¡áτá½∞¡á∩  ¿  ¬«¡Ñτ¡á∩  Γ«τ¬¿  «»αÑñѽ∩εΓ  «ßÑóπε  ½¿¡¿ε ñ«α«ª¬¿.
  419. çáñáÑΓß∩ »«½πΦ¿α¿¡á ñ«α«ª¬¿ ¿ óó«ñ¿Γß∩ αáñ¿πß ¬απú½«⌐ »½¿Γ¬¿. Hᬫ¡Ñµ,
  420. ºáñáÑΓß∩ αáßßΓ«∩¡¿Ñ ¼Ñªñπ »½¿Γ¬á¼¿. îδ ºáñáѼ »«½πΦ¿α¿¡π ñ«α«ª¬¿, á ¡Ñ
  421. óßε Φ¿α¿¡π,  Γᬠ¬á¬  φΓ« ñáÑΓ ó«º¼«ª¡«ßΓ∞  «»αÑñѽ∩Γ∞ ÑÑ «Γ¡«ß¿Γѽ∞¡«
  422. ¡áτá½∞¡«⌐ Γ«τ¬¿, ¿ß»«½∞ºπ∩ "αѺ¿¡«óπε ½¿¡¿ε".
  423.  
  424.     3.3 Háτ¡Ñ¼
  425.  
  426.     îδ íπñѼ αáºαáíáΓδóáΓ∞ φΓπ ºáñáτπ, ¬á¬ ¿ í«½∞Φ¿¡ßΓó« »«ñ«í¡δσ, «Γ
  427. τáßΓ¡«ú« ¬ «íΘѼπ. é φΓ«⌐ ºáñáτÑ ¼δ íπñѼ τáßΓ« ¿¼ÑΓ∞ ñѽ« ß πú½á¼¿. é
  428. AutoLISPÑ,  ¬á¬  ¿  ó«  ¼¡«ú¿σ  ñαπú¿σ  ∩ºδ¬áσ  »α«úαá¼¼¿α«óá¡¿∩, πú½δ
  429. ¿º¼Ñα∩εΓß∩  ó αáñ¿á¡áσ.  ôú½δ ¿º¼Ñα∩εΓß∩  ó αáñ¿á¡áσ  «Γ 0  ñ« 2 * pi.
  430. ū߬«½∞¬π  í«½∞Φ¿¡ßΓó« ½εñÑ⌐ «»Ñα¿απÑΓ  πú½á¼¿  ó  úαáñπßáσ, «»αÑñѽ¿¼
  431. Σπ¡¬µ¿ε,   ¬«Γ«αá∩  »αÑ«íαáºπÑΓ  úαáñπßδ  ó  αáñ¿á¡δ.   êß»«½∞ºπ∩  éáΦ
  432. ΓѬßΓ«óδ⌐ αÑñá¬Γ«α,  ß«ºñá⌐ΓÑ Σá⌐½ ß ¿¼Ñ¡Ñ¼  GP.LSP. éóÑñ¿ΓÑ ß½ÑñπεΘπε
  433. »α«úαá¼¼π:
  434.  
  435.      ; Convert angle in degrees to radians
  436.  
  437.      (defun dtr (a)
  438.          (* pi (/ a 180.0))
  439.      )
  440.  
  441.     äáóá⌐ΓÑ  »«ß¼«Γα¿¼  τΓ«  φΓ«  «º¡áτáÑΓ.  îδ  «»αÑñѽ∩Ѽ  Σπ¡¬µ¿ε,
  442. ¿ß»«½∞ºπ∩ Σπ¡¬µ¿ε AutoLISPá  DEFUN.  öπ¡¬µ¿∩ ¿¼ÑÑΓ ¿¼∩ DTR (ß«¬αáΘÑ¡¿Ñ
  443. «Γ "degrees to radians" - úαáñπßδ ó αáñ¿á¡δ). Ä¡á ¿¼ÑÑΓ «ñ¿¡ áαúπ¼Ñ¡Γ,
  444. "A", πú«½ ó úαáñπßáσ. àÑ αѺπ½∞ΓáΓ«¼ ∩ó½∩ÑΓß∩ óδαáªÑ¡¿Ñ:
  445.  
  446.      PI * (a / 180.0)
  447.  
  448. «»αÑñѽѡ¡«Ñ ó ß¿ßΓѼѠ«í«º¡áτÑ¡¿⌐ LISPá, ¬«Γ«α«Ñ ¼«ª¡« »α«τ¿ΓáΓ∞ ¬á¬:
  449. "αѺπ½∞ΓáΓ »α«¿ºóÑñÑ¡¿∩ pi ¡á τáßΓ¡«Ñ «Γ ñѽѡ¿∩ A ¡á 180.0". AutoLISP
  450. «»αÑñѽ∩ÑΓ pi,  ¬á¬ 3.14159.... æΓ᫬á, ¡áτ¿¡áεΘá∩ß∩ ß Γ«τ¬¿ ß ºá»∩Γ«⌐
  451. ∩ó½∩ÑΓß∩ ¬«¼Ñ¡Γáα¿Ñ¼ -  AutoLISP ¿ú¡«α¿απÑΓ ½εí«⌐ ΓѬßΓ ó ßΓα«¬Ñ »«ß½Ñ
  452. Γ«τ¬¿ ß ºá»∩Γ«⌐.
  453.  
  454.     çá»¿Φ¿ΓÑ Σá⌐½ ¡á ñ¿ß¬, ºáΓѼ ó«⌐ñ¿ΓÑ ó ¡«óδ⌐ τÑαΓѪ AutoCADá (¿¼∩
  455. τÑαΓѪᠡѠ¿¼ÑÑΓ º¡áτÑ¡¿∩,  »«ß¬«½∞¬π ¼δ ¡Ñ íπñѼ Ñú« ºá»¿ßδóáΓ∞). Åα¿
  456. »«∩ó½Ñ¡¿¿ »«ñ߬Ậ¿ AutoCADá "Command:", ó맮ó¿ΓÑ Σπ¡¬µ¿ε, ¡áíαáó:
  457.  
  458.     Command: (load "gp")
  459.  
  460.  
  461.  
  462.  
  463.                            - 12 -
  464.  
  465.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  466.  
  467.  
  468.  
  469. AutoLISP ó맮óÑΓ éáΦπ Σπ¡¬µ¿ε,  «Γ«íαếó ÑÑ ¿¼∩  "DTR". é ñá½∞¡Ñ⌐ΦѼ,
  470. ¬«úñá ¼δ íπñѼ ú«ó«α¿Γ∞:  "ó«⌐ñ¿ΓÑ ó AutoCAD ¿ ó맮ó¿ΓÑ »α«úαá¼¼π", ¼δ
  471. íπñѼ ¿¼ÑΓ∞ ó óó¿ñπ Γ«½∞¬« τΓ« «»¿ßá¡¡πε »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ñÑ⌐ßΓó¿⌐.
  472.  
  473.     ÆÑ»Ñα∞  ¼δ  »α«óÑα¿¼  αáí«Γπ  Σπ¡¬µ¿¿  ß   αẽ¿τ¡δ¼¿  º¡áτÑ¡¿∩¼¿
  474. áαúπ¼Ñ¡Γá. Å« »α¿óÑñÑ¡¡«¼π óδΦÑ «»αÑñѽѡ¿ε αáñ¿á¡, 0 úαáñπß«ó αáóÑ¡ 0
  475. αáñ¿á¡, ¿ΓᬠóóÑñѼ ßΓ᫬π:
  476.  
  477.     Command: (dtr 0)
  478.  
  479. æΓ᫬á,  ¡áτ¿¡áεΘá∩ß∩  ß ½Ñó«⌐ ß¬«í¬¿  «º¡áτáÑΓ  ó  AutoCADÑ,  τΓ« φΓ«
  480. óδαáªÑ¡¿Ñ AutoLISPá  ¿  »ÑαÑñáÑΓß∩  ó  "óδτ¿ß½¿Γѽ∞"  AutoLISPá. Æᬿ¼
  481. «íαẫ¼  ¼δ  óδτ¿ß½∩Ѽ «»αÑñѽѡ¡πε  ¡á¼¿  Σπ¡¬µ¿ε  DTR  ß áαúπ¼Ñ¡Γ«¼,
  482. αáó¡δ¼ ¡π½ε.  Å«ß½Ñ óδτ¿ß½Ñ¡¿∩ Σπ¡¬µ¿¿,  AutoCAD ¡á»ÑτáΓáÑΓ αѺπ½∞ΓáΓ,
  483. Γ.Ñ. óóÑñÑ¡¡«⌐ ¿¡Σ«α¼áµ¿¿ ß««ΓóÑΓßΓóπÑΓ ß½ÑñπεΘ¿⌐ «ΓóÑΓ:
  484.  
  485.      0.000000
  486.  
  487. ÆÑ»Ñα∞ ¿ß»δΓáѼ 180 úαáñπß«ó. àß½¿ éδ óóÑñÑΓÑ:
  488.  
  489.      Command: (dtr 180)
  490.  
  491. éδ πó¿ñ¿ΓÑ αѺπ½∞ΓáΓ:
  492.  
  493.      3.141593
  494.  
  495. ¥Γ«  «º¡áτáÑΓ,  τΓ«  180  úαáñπß«ó ß««ΓóÑΓßΓóπÑΓ  pi  αáñ¿á¡. Åα«óÑα¿ó
  496. Σπ¡¬µ¿ε,  éδ  πíÑñ¿ΓÑß∞,  τΓ«  óßÑ  αáí«ΓáÑΓ  ¿¼Ñ¡¡«  Γá¬,  ¬á¬  ¼δ  ¿
  497. «»αÑñѽ¿½¿.
  498.  
  499.     éδ⌐ñѼ ¿º AutoCADá, óóÑñ∩:
  500.  
  501.      Command: QUIT
  502.      Really want to discard all changes to drawing? Y
  503.  
  504.     /K«¼á¡ñá: QUIT
  505.      äÑ⌐ßΓó¿Γѽ∞¡« σ«Γ¿ΓÑ «Γ¬áºáΓ∞ß∩ «Γ óßÑσ ¿º¼Ñ¡Ñ¡¿⌐ ó α¿ßπ¡¬Ñ? Y/
  506.  
  507. ¿ ¡áíαáó:
  508.  
  509.      0
  510.  
  511. ó ú½áó¡«¼ ¼Ñ¡ε,  ñ½∩ ó«ºóαáΘÑ¡¿∩ ó DOS.  é ñá½∞¡Ñ⌐ΦѼ,  ¬«úñá ¼δ íπñѼ
  512. ú«ó«α¿Γ∞: "óδ⌐Γ¿ ¿º AutoCADá", ¼δ íπñѼ »«ñαáºπ¼ÑóáΓ∞ φΓπ »α«µÑñπαπ.
  513.  
  514.      3.4 Äαúá¡¿ºπѼ éó«ñ äá¡¡δσ
  515.  
  516.     HáΦá ¬«¼á¡ñá »áᬫó«⌐ ñ«α«ª¬¿ íπñÑΓ ß»αáΦ¿óáΓ∞ π »«½∞º«óáΓѽ∩ úñÑ
  517. ¡áα¿ß«óáΓ∞ ñ«α«ª¬π,  ¬á¬«⌐ Φ¿α¿¡δ ÑÑ ßñѽáΓ∞, αáñ¿πß íÑΓ«¡¡δσ »½¿Γ«¬ ¿
  518. αáßßΓ«∩¡¿Ñ ¼Ñªñπ ¡¿¼¿.  îδ «»αÑñѽ¿¼ Σπ¡¬µ¿ε, ¬«Γ«αá∩ íπñÑΓ ß»αáΦ¿óáΓ∞
  519. »«½∞º«óáΓѽ∩  «í« óßÑσ φΓ¿σ φ½Ñ¼Ñ¡Γáσ ¿ óδτ¿ß½∩Γ∞  α∩ñ  τ¿ßѽ, ¬«Γ«αδÑ
  520. íπñπΓ ¿ß»«½∞º«óáΓ∞ß∩ ¡áΦÑ⌐ ¬«¼á¡ñ«⌐ ó ñá½∞¡Ñ⌐ΦѼ.
  521.  
  522.     êß»«½∞ºπ∩ ΓѬßΓ«óδ⌐ αÑñá¬Γ«α,  ñ«íáó∞ΓÑ ß½ÑñπεΘ¿Ñ ßΓ᫬¿ ó GP.LSP
  523. (ñ½∩ «í«º¡áτÑ¡¿∩ ñ«íáó½Ñ¡¡δσ ßΓ᫬ ¼δ  íπñѼ ¿ß»«½∞º«óáΓ∞ óÑαΓ¿¬á½∞¡πε
  524.  
  525.  
  526.  
  527.  
  528.                            - 13 -
  529.  
  530.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  531.  
  532.  
  533. τÑαΓπ).
  534.  
  535.      ; Convert angle in degrees to radians
  536.  
  537.      (defun dtr (a)
  538.          (* pi (/ a 180.0))
  539.      )
  540.  
  541.  |   ; Acquire information for garden path
  542.  |
  543.  |   (defun gpuser ()
  544.  |        (setq sp (getpoint "\nStart point of path: "))
  545.  |        (setq ep (getpoint "\nEnd point of path: "))
  546.  |        (setq hwidth (getdist "\nHalf width of path: " sp))
  547.  |        (setq trad (getdist "\nRadius of tiles: " sp))
  548.  |        (setq tspac (getdist "\nSpacing between tiles: " sp))
  549.  |
  550.  |        (setq pangle (angle sp ep))
  551.  |        (setq plength (distance sp ep))
  552.  |        (setq width (* 2 hwidth))
  553.  |        (setq angp90 (+ pangle (dtr 90)))   ;Path angle + 90 deg
  554.  |        (setq angm90 (- pangle (dtr 90)))   ;Path angle - 90 deg
  555.  |   )
  556.  
  557.     HÑ«í∩ºáΓѽ∞¡« ñѽáΓ∞ «ΓßΓπ»δ ó ßΓ᫬áσ óδαáªÑ¡¿⌐, óσ«ñ∩Θ¿σ ó éáΦ¿
  558. Σπ¡¬µ¿¿. Há ßἫ¼ ñѽÑ, »« ªÑ½á¡¿ε, éδ ¼«ªÑΓÑ ¡á»¿ßáΓ∞ óßε »α«úαá¼¼π ó
  559. «ñ¡π ßΓ᫬π. Äñ¡á¬« «ΓßΓπ»δ ó ßΓ᫬áσ ¿ »πßΓδÑ ßΓ᫬¿ ñѽáεΓ ßΓαπ¬Γπαπ
  560. »α«úαá¼¼δ »«¡∩Γ¡Ñ⌐ ¿ í«½ÑÑ τ¿Γáíѽ∞¡Ñ⌐.  ÆᬠªÑ óδαáó¡¿óá¡¿Ñ ¡áτá½∞¡δσ
  561. ¿  ¬«¡Ñτ¡δσ  ß¬«í«¬  «ß¡«ó¡δσ  óδαáªÑ¡¿⌐ »«¼«úáεΓ  πíÑñ¿Γ∞ß∩ ó íá½á¡ßÑ
  562. éáΦ¿σ ß¬«í«¬.
  563.  
  564.     çñÑß∞ ¼δ  «»αÑñѽ¿½¿  Σπ¡¬µ¿ε,  ¡áºóá¡¡πε  GPUSER.  Ä¡á  ¡Ñ ¿¼ÑÑΓ
  565. áαúπ¼Ñ¡Γ«ó,  á ß»αáΦ¿óáÑΓ »«½∞º«óáΓѽ∩ óßÑ ΓαÑíπѼδÑ φ½Ñ¼Ñ¡Γδ. öπ¡¬µ¿∩
  566. SETQ »α¿ßóá¿óáÑΓ »ÑαѼѡ¡δ¼  AutoLISPá  «»αÑñѽѡ¡δÑ  º¡áτÑ¡¿∩. ÅÑαóá∩
  567. SETQ  »α¿ßóá¿óáÑΓ  »ÑαѼѡ¡«⌐  SP  (start  point   /¡áτá½∞¡á∩  Γ«τ¬á/)
  568. αѺπ½∞ΓáΓ,    ó«ºóαáΘáѼδ⌐   Σπ¡¬µ¿Ñ⌐   GETPOINT.   öπ¡¬µ¿∩   GETPOINT
  569. ºá»αáΦ¿óáÑΓ π »«½∞º«óáΓѽ∩ Γ«τ¬π.  ä½∩ «αúá¡¿ºáµ¿¿ ºá»α«ßá Γ«τ¬¿ íπñÑΓ
  570. π»«ΓαÑí½∩Γ∞ß∩  ßΓα«¬á  ß¿¼ó«½«ó,  «»αÑñѽ∩εΘá∩ »«ñ߬Ậπ AutoCADá. ä½∩
  571. óδó«ñá  »«ñ߬Ậ¿ ¡á  ¡«óπε  ßΓ᫬π  π»«ΓαÑí½∩ÑΓß∩  π»αáó½∩εΘ¿⌐ ß¿¼ó«½
  572. "\n".  îδ ¿ß»«½∞ºπѼ Σπ¡¬µ¿ε GETDIST ñ½∩  ºá»α«ßá  »«½πΦ¿α¿¡δ ñ«α«ª¬¿,
  573. αáñ¿πßá »½¿Γ¬¿ ¿  αáßßΓ«∩¡¿∩ ¼Ñªñπ »½¿Γ¬á¼¿.  éΓ«α«⌐ áαúπ¼Ñ¡Γ Σπ¡¬µ¿¿,
  574. SP,  «»αÑñѽ∩ÑΓ "íẫóπε"  Γ«τ¬π ñ½∩ óδτ¿ß½Ñ¡¿∩ αáßßΓ«∩¡¿∩. àß½¿ íπñÑΓ
  575. ºáñá¡á Γ«τ¬á ó  AutoCADÑ,  Γ« αáßßΓ«∩¡¿Ñ íπñÑΓ óº∩Γ« «Γ φΓ«⌐  Γ«τ¬¿ ñ«
  576. "íẫó«⌐"  -  ¡áτá½∞¡«⌐ Γ«τ¬¿ ñ«α«ª¬¿, ¿ »α«Γ∩¡ÑΓ "αѺ¿¡«óπε ½¿¡¿ε" «Γ
  577. "íẫó«⌐" Γ«τ¬¿ ¬ π¬áºá¡¡«⌐.
  578.  
  579.     Å«ß½Ñ   ºá»αoßá  «Γ  »«½∞º«óáΓѽ∩   óó«ñ¡δσ   ñá¡¡δσ,  óδτ¿ß½∩ÑΓß∩
  580. ¡Ñ߬«½∞¬«,   τáßΓ«  ¿ß»«½∞ºπεΘ¿σß∩  ó  ñá½∞¡Ñ⌐ΦѼ  »ÑαѼѡ¡δσ.  PANGLE
  581. »α¿ßóá¿óáÑΓß∩ πú«½, «»αÑñѽ∩Ѽδ⌐ ¡áτá½∞¡«⌐ ¿ ¬«¡Ñτ¡«⌐ Γ«τ¬á¼¿ ñ«α«ª¬¿.
  582. öπ¡¬µ¿∩  ANGLE  ó«ºóαáΘáÑΓ  πú«½,  ºáñáóáѼδ⌐  ñóπ¼∩  Γ«τ¬á¼¿. PLENGTH
  583. »α¿ßóá¿óáÑΓß∩ ñ½¿¡á  ñ«α«ª¬¿.  öπ¡¬µ¿∩  DISTANCE  óδτ¿ß½∩ÑΓ αáßßΓ«∩¡¿Ñ
  584. ¼Ñªñπ  ñóπ¼∩  Γ«τ¬á¼¿.  ä½∩  »«½πτÑ¡¿∩  Φ¿α¿¡δ  ñ«α«ª¬¿,  ¼δ πñóá¿óáѼ
  585. «»αÑñѽѡ¡πε αá¡ÑÑ »«½πΦ¿α¿¡π.  Hᬫ¡Ñµ, ¼δ óδτ¿ß½∩Ѽ ßπ¼¼π ¿ αạ«ßΓ∞
  586. πú½á ß »α∩¼δ¼ πú½«¼ ¿ »α¿ßóá¿óáѼ »«½πτÑ¡¡«Ñ º¡áτÑ¡¿Ñ  ANGP90 ¿ ANGM90
  587. ß««ΓóÑΓßΓóÑ¡¡« (Γ.¬. πú½δ ó AutoLISPÑ «»αÑñѽѡδ ó αáñ¿á¡áσ, ¼δ ñ«½ª¡δ
  588. π»«ΓαÑí¿Γ∞  Σπ¡¬µ¿ε   DTR   ñ½∩  »ÑαÑó«ñá  úαáñπßδ  ó   αáñ¿á¡δ  »ÑαÑñ
  589.  
  590.  
  591.  
  592.  
  593.                            - 14 -
  594.  
  595.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  596.  
  597.  
  598. óδτ¿ß½Ñ¡¿Ñ¼).
  599.  
  600.     æ¬«»¿απ⌐ΓÑ ¡«óπε »α«úαá¼¼π ¡á ñ¿ß¬  ó«⌐ñ¿ΓÑ ó AutoCAD  ¿ ó맮ó¿ΓÑ
  601. »α«úαá¼¼π. ÆÑ»Ñα∞ ¼δ »α«óÑα¿¼ Σπ¡¬µ¿ε óó«ñá ñá¡¡δσ ¿ πíÑñ¿¼ß∩, τΓ« «¡á
  602. αáí«ΓáÑΓ. é맮ó¿ΓÑ Σπ¡¬µ¿ε, ¡áíαáó:
  603.  
  604.      Command: (gpuser)
  605.     /K«¼á¡ñá: (gpuser)/
  606.  
  607. éóÑñ¿ΓÑ ¡á ºá»α«ßδ ß½ÑñπεΘÑÑ:
  608.  
  609.      Start point of path: 2,2
  610.      End point of path: 9,8
  611.      Half width of path: 2
  612.      Radius of tiles: .2
  613.      Spacing between tiles: .1
  614.  
  615.     /Háτá½∞¡á∩ Γ«τ¬á ñ«α«ª¬¿: 2,2
  616.      K«¡Ñτ¡á∩ Γ«τ¬á ñ«α«ª¬¿: 9,8
  617.      Å«½πΦ¿α¿¡á ñ«α«ª¬¿: 2
  618.      Éáñ¿πß »½¿Γ¬¿: .2
  619.      ÉáßßΓ«∩¡¿Ñ ¼Ñªñπ »½¿Γ¬á¼¿: .1/
  620.  
  621.     öπ¡¬µ¿∩  GPUSER  ó«ß»«½∞ºπÑΓß∩  éáΦ¿¼¿  «ΓóÑΓἿ  ñ½∩  óδτ¿ß½Ñ¡¿∩
  622. ¡Ñ«íσ«ñ¿¼δσ Ñ⌐ ñ«»«½¡¿Γѽ∞¡δσ »ÑαѼѡ¡δσ ¿ óδßóÑΓ¿Γ  ¡á φ¬αá¡Ñ ñ¿ß»½Ñ∩
  623. αѺπ½∞ΓáΓ »«ß½Ññ¡Ñú« óδτ¿ß½Ñ¡¿∩ (ó ñá¡¡«¼ ß½πτáÑ  -0.862169 - º¡áτÑ¡¿Ñ
  624. ANGM90  ó αáñ¿á¡áσ).  éδ ¼«ªÑΓÑ ¿ºó½Ñτ∞  óßÑ »ÑαѼѡ¡δÑ, πßΓá¡«ó½Ñ¡¡δÑ
  625. Σπ¡¬µ¿Ñ⌐ GPUSER,  ¡áíαáó óß½Ññ ºá ó«ß¬½¿µáΓѽ∞¡δ¼ º¡á¬«¼ (!) ¿σ ¿¼Ñ¡á.
  626. é  φΓ«¼  ß½πτáÑ  AutoCAD  óδτ¿ß½¿Γ  º¡áτÑ¡¿Ñ  »ÑαѼѡ¡«⌐  ¿ ¡á»ÑτáΓáÑΓ
  627. αѺπ½∞ΓáΓ.  àß½¿ éδ óóÑñÑΓÑ ß½ÑñπεΘ¿Ñ ¬«¼á¡ñδ, éδ »«½πτ¿ΓÑ αѺπ½∞ΓáΓδ,
  628. »«¬áºá¡¡δÑ ¡¿ªÑ:
  629.  
  630.      Command:  !sp
  631.      (2.000000 2.000000)
  632.      Command:  !ep
  633.      (9.000000 8.000000)
  634.      Command:  !hwidth
  635.      2.000000
  636.      Command:  !width
  637.      4.000000
  638.      Command:  !trad
  639.      0.200000
  640.      Command:  !tspac
  641.      0.100000
  642.      Command:  !pangle
  643.      0.708626
  644.      Command:  !plength
  645.      9.219544
  646.      Command:  !angp90
  647.      2.279423
  648.      Command:  !angm90
  649.      -0.862169
  650.  
  651.     çá¼ÑΓ¿¼,  τΓ« PANGLE,  ANGP90 ¿ ANGM90 óδαáªÑ¡δ ó αáñ¿á¡áσ. Å«ß½Ñ
  652. »α«óÑન »«¬¿¡∞ΓÑ  AutoCAD ¿ ó맮ó¿ΓÑ  ó éáΦ  ΓѬßΓ«óδ⌐  αÑñá¬Γ«α Σá⌐½
  653. GP.LSP.
  654.  
  655.  
  656.  
  657.  
  658.                            - 15 -
  659.  
  660.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  661.  
  662.  
  663.  
  664.      3.5 æ«α¿Ñ¡Γ¿απѼ ä«α«ª¬π
  665.  
  666.     ÆÑ»Ñα∞, ¬«úñá ¼δ ºá»α«ß¿½¿ π »«½∞º«óáΓѽ∩ ¼ÑßΓ«»«½«ªÑ¡¿Ñ ñ«α«ª¬¿,
  667. ¼δ ¼«ªÑ¼ ¡áα¿ß«óáΓ∞ ÑÑ ¬«¡Γπα.  ä«íáó∞ΓÑ «Γ¼ÑτÑ¡¡δÑ ßΓ᫬¿ ó  éáΦ Σá⌐½
  668. GP.LSP.
  669.  
  670.      ; Convert angle in degrees to radians
  671.  
  672.      (defun dtr (a)
  673.          (* pi (/ a 180.0))
  674.      )
  675.  
  676.      ; Acquire information for garden path
  677.  
  678.      (defun gpuser ()
  679.           (setq sp (getpoint "\nStart point of path: "))
  680.           (setq ep (getpoint "\nEnd point of path: "))
  681.           (setq hwidth (getdist "\nHalf width of path: " sp))
  682.           (setq trad (getdist "\nRadius of tiles: " sp))
  683.           (setq tspac (getdist "\nSpacing between tiles: " sp))
  684.  
  685.           (setq pangle (angle sp ep))
  686.           (setq plength (distance sp ep))
  687.           (setq width (* 2 hwidth))
  688.           (setq angp90 (+ pangle (dtr 90)))   ;Path angle + 90 deg
  689.           (setq angm90 (- pangle (dtr 90)))   ;Path angle - 90 deg
  690.      )
  691.  
  692.  |   ; Draw outline of path
  693.  |
  694.  |   (defun drawout ()
  695.  |        (command "pline"
  696.  |           (setq p (polar sp angm90 hwidth))
  697.  |           (setq p (polar p pangle plength))
  698.  |           (setq p (polar p angp90 width))
  699.  |           (polar p (+ pangle (dtr 180)) plength)
  700.  |           "close"
  701.  |        )
  702.  |   )
  703.  
  704.     é  ñ«íáó½Ñ¡«¼  ΓѬßΓÑ  «»αÑñѽѡᠠΣπ¡¬µ¿∩ ß ¿¼Ñ¡Ñ¼  DRAWOUT. ¥Γá
  705. Σπ¡¬µ¿∩ ¿ß»«½∞ºπÑΓ ¡áτá½∞¡πε Γ«τ¬π, πú«½ ¿ ñ½¿¡π ñ«α«ª¬¿, »ÑαÑñáóáѼδÑ
  706. ¿º   Σπ¡¬µ¿¿  GPUSER,   ¿  α¿ßπÑΓ  ¬«¡Γπα  ñ«α«ª¬¿.   K«¡Γπα  α¿ßπÑΓß∩
  707. »«½¿½¿¡¿Ñ⌐.  öπ¡¬µ¿∩ DRAWOUT ¿ß»«½∞ºπÑΓ  Σπ¡πµ¿ε COMMAND  ñ½∩ »ÑαÑñáτ¿
  708. ¬«¼á¡ñ  ¿ ñá¡¡δσ  ó AutoCAD.  öπ¡¬µ¿∩ COMMAND  ∩ó½∩ÑΓß∩  ¼Ñσá¡¿º¼«¼, ß
  709. »«¼«Θ∞ε ¬«Γ«α«ú« Σπ¡¬µ¿¿ AutoLISPá »ÑαÑñáεΓ  ¬«¼á¡ñδ ñ½∩  óδ»«½¡Ñ¡¿∩ ó
  710. AutoCAD.  öπ¡¬µ¿∩ COMMAND íÑαÑΓ ¡Ñ¬«Γ«α«Ñ τ¿ß½« áαúπ¼Ñ¡Γ«ó ¿ ¬áªñδ⌐ ¿º
  711. ¡¿σ »ÑαÑñáÑΓ ó AutoCAD.  Æᬿ¼ «íαẫ¼ ¼δ  ºáñ὿  ¬«¼á¡ñπ "pline" ñ½∩
  712. AutoCADá,  ñ½∩ óδ»«½¡Ñ¡¿∩ ¬«¼á¡ñδ "Å«½¿½¿¡¿∩".  äá½ÑÑ ¼δ ºáñ὿ τÑΓδαÑ
  713. πú½á ñ«α«ª¬¿.  Káªñδ⌐  πú«½  íδ½ óδτ¿ß½Ñ¡  ß »«¼«Θ∞ε  Σπ¡¬µ¿¿  POLAR ¿
  714. ºá»¿ßá¡ ó«  óαѼѡ¡πε »ÑαѼѡ¡πε  P.  öπ¡¬µ¿∩ POLAR ΓαÑíπÑΓ ó ¬áτÑßΓóÑ
  715. ßó«Ñú« »Ñαó«ú« áαúπ¼Ñ¡Γá Γ«τ¬π; πú«½ ¿ αáßßΓ«∩¡¿Ñ ó ¬áτÑßΓóÑ óΓ«α«ú« ¿
  716. ΓαÑΓ∞Ñú«.   öπ¡¬µ¿∩  ó«ºóαáΘáÑΓ  Γ«τ¬π,   αáß»«½«ªÑ¡¡πε   ¡á  ºáñá¡¡«¼
  717. αááßΓ«∩¡¿¿ ¿ »«ñ ºáñá¡¡δ¼ πú½«¼ «Γ »Ñαó«¡áτá½∞¡«⌐ Γ«τ¬¿. Æᬿ¼ «íαẫ¼
  718. ¼δ  óδτ¿ß½¿½¿ τÑΓδαÑ Γ«τ¬¿  ¡á úαá¡¿µáσ ñ«α«ª¬¿,  ¿ß»«½∞ºπ∩ ó ¬áτÑßΓóÑ
  719.  
  720.  
  721.  
  722.  
  723.                            - 16 -
  724.  
  725.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  726.  
  727.  
  728. ¿ßσ«ñ¡«ú« ñá¡¡«ú« ¡áτá½∞¡πε Γ«τ¬π ñ«α«ª¬¿.  îδ ºáóÑαΦ¿½¿ ¬«¼á¡ñπ PLINE
  729. ßΓ᫬«⌐ "close". é αѺπ½∞ΓáΓÑ íπñπΓ ¡áα¿ß«óá¡δ τÑΓδαÑ ßΓ«α«¡δ ñ«α«ª¬¿,
  730. »«ß½Ñ τÑú« »«∩ó¿Γ∞ß∩ ¬«¼á¡ñ¡á∩ »«ñ߬Ậá AutoCADá.
  731.  
  732.     ä½∩ »α«óÑન αáí«Γδ Σπ¡¬µ¿¿,  ºá»¿Φ¿ΓÑ «í¡«ó½Ñ¡¡δ⌐ Σá⌐½ GP.LSP ¡á
  733. ñ¿ß¬,  ó«⌐ñ¿ΓÑ ó AutoCAD,  ¡áτ¡¿ΓÑ ¡«óδ⌐ α¿ßπ¡«¬ ¿ ºáúαπº¿ΓÑ LISP-Σá⌐½
  734. ΓᬠªÑ, ¬á¬ éδ ñѽ὿ φΓ« αá¡∞ΦÑ. é맮ó¿ΓÑ Σπ¡¬µ¿ε óó«ñá ñá¡¡δσ:
  735.  
  736.      Command: (gpuser)
  737.  
  738. ¿  φáñá⌐ΓÑ »ÑαѼѡ¡δ¼  ΓÑ ªÑ º¡áτÑ¡¿∩,  τΓ« ¿  αá¡∞ΦÑ. ÆÑ»Ñα∞ »α«óÑα¿¼
  739. ß«ºñá¡¡πε Σπ¡¬µ¿ε DRAWOUT, óδºóáó ÑÑ:
  740.  
  741.      Command: (drawout)
  742.  
  743. éδ  πó¿ñ¿ΓÑ,  τΓ« éáΦá  Σπ¡¬µ¿∩ «íαáΘáÑΓß∩ ¬  ¬«¼á¡ñá¼ AutoCADá, τΓ«íδ
  744. «Γα¿ß«óáΓ∞  ¬«¡Γπα  ñ«α«ª¬¿,   ¬«Γ«αδ⌐  »«∩ó½∩ÑΓß∩  ¡á  φ¬αá¡Ñ.  Å«ß½Ñ
  745. »α«óÑન »«¬¿¡∞ΓÑ AutoCAD.
  746.  
  747.      3.6 É¿ßπѼ Å½¿Γ¬¿
  748.  
  749.     ÆÑ»Ñα∞,  »«ß½Ñ Γ«ú«,  ¬á¬ ¼δ ß¬«¡ßΓαπ¿α«ó὿ ¿  »α«óÑα¿½¿ Σπ¡¬µ¿¿
  750. óó«ñá  ñá¡¡δσ ¿ «Γα¿ß«ó¬¿  ¬«¡Γπαá,  óßÑ ú«Γ«ó« ñ½∩ ºá»«½¡Ñ¡¿∩ ñ«α«ª¬¿
  751. ¬απú½δ¼¿  »½¿Γ¬á¼¿.   ä½∩  φΓ«ú«  óß»«¼¡¿¼   úÑ«¼ÑΓα¿ε.  é맮ó¿ΓÑ  éáΦ
  752. ΓѬßΓ«óδ⌐ αÑñá¬Γ«α ¿ ñ«íáó∞ΓÑ «Γ¼ÑτÑ¡¡δÑ ßΓ᫬¿ ó »α«úαá¼¼π:
  753.  
  754.      ; Convert angle in degrees to radians
  755.  
  756.      (defun dtr (a)
  757.          (* pi (/ a 180.0))
  758.      )
  759.  
  760.      ; Acquire information for garden path
  761.  
  762.      (defun gpuser ()
  763.           (setq sp (getpoint "\nStart point of path: "))
  764.           (setq ep (getpoint "\nEnd point of path: "))
  765.           (setq hwidth (getdist "\nHalf width of path: " sp))
  766.           (setq trad (getdist "\nRadius of tiles: " sp))
  767.           (setq tspac (getdist "\nSpacing between tiles: " sp))
  768.  
  769.           (setq pangle (angle sp ep))
  770.           (setq plength (distance sp ep))
  771.           (setq width (* 2 hwidth))
  772.           (setq angp90 (+ pangle (dtr 90)))   ;Path angle + 90 deg
  773.           (setq angm90 (- pangle (dtr 90)))   ;Path angle - 90 deg
  774.      )
  775.  
  776.      ; Draw outline of path
  777.  
  778.      (defun drawout ()
  779.           (command "pline"
  780.              (setq p (polar sp angm90 hwidth))
  781.              (setq p (polar p pangle plength))
  782.              (setq p (polar p angp90 width))
  783.              (polar p (+ pangle (dtr 180)) plength)
  784.  
  785.  
  786.  
  787.  
  788.                            - 17 -
  789.  
  790.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  791.  
  792.  
  793.              "close"
  794.           )
  795.      )
  796.  
  797.  |   ; Place one row of tiles given distance along path
  798.  |   ; and possibly offset it
  799.  |
  800.  |   (defun drow (pd offset)
  801.  |        (setq pfirst (polar sp pangle pd))
  802.  |        (setq pctile (polar pfirst angp90 offset))
  803.  |        (setq p1tile pctile)
  804.  |        (while (< (distance pfirst p1tile) (- hwidth trad))
  805.  |           (command "circle" p1tile trad)
  806.  |           (setq p1tile (polar p1tile angp90 (+ tspac trad trad)))
  807.  |        )
  808.  |        (setq p1tile (polar pctile angm90 (+ tspac trad trad)))
  809.  |        (while (< (distance pfirst p1tile) (- hwidth trad))
  810.  |           (command "circle" p1tile trad)
  811.  |           (setq p1tile (polar p1tile angm90 (+ tspac trad trad)))
  812.  |        )
  813.  |   )
  814.  |
  815.  |   ; Draw the rows of tiles
  816.  |
  817.  |   (defun drawtiles ()
  818.  |        (setq pdist (+ trad tspac))
  819.  |        (setq off 0.0)
  820.  |        (while (<= pdist (- plength trad))
  821.  |           (drow pdist off)
  822.   |         (setq pdist (+  pdist (*  (+  tspac  trad  trad) (sin (dtr
  823. 60)))))
  824.  |           (if (= off 0.0)
  825.  |              (setq off (* (+ tspac trad trad) (cos (dtr 60))))
  826.  |              (setq off 0.0)
  827.  |           )
  828.  |        )
  829.  |   )
  830.  
  831.     ä½∩ ½πτΦÑú« »«¡¿¼á¡¿∩ αáí«Γδ φΓ«⌐ Σπ¡¬µ¿¿, «íαáΓ¿¼ß∩ ¬ α¿ßπ¡¬π ¡á
  832. ß½ÑñπεΘÑ⌐ ßΓαá¡¿µÑ.  öπ¡¬µ¿∩ DROW α¿ßπÑΓ α∩ñ »½¿Γ«¬ ¡á αáßßΓ«∩¡¿¿ ñαπú
  833. «Γ  ñαπúá  óñ«½∞  ñ«α«ª¬¿,  ºáñáóáÑ¼δ¼  »Ñαóδ¼  áαúπ¼Ñ¡Γ«¼  Σπ¡¬µ¿¿, ¿
  834. ßñó¿úáÑΓ  φëà α∩ñ »Ñα»Ñ¡ñ¿¬π½∩α¡« ñ«α«ª¬Ñ ¡á  αáßßΓ«∩¡¿Ñ, ºáñáóáѼ«Ñ
  835. óΓ«αδ¼ áαúπ¼Ñ¡¡Γ«¼ Σπ¡¬µ¿¿. îδ íπñѼ ßñó¿úáΓ∞ »½¿Γ¬¿, τÑαÑñπ∩ ¿σ α∩ñδ,
  836. ñ½∩ í«½ÑÑ »½«Γ¡«ú« ºá»«½¡Ñ¡¿∩ ñ«α«ª¬¿ »½¿Γ¬á¼¿.
  837.  
  838.     öπ¡¬µ¿∩ DROW «»αÑñѽ∩ÑΓ ¼ÑßΓ« αáß»«½«ªÑ¡¿∩ ó  α∩ñπ »Ñαó«⌐ »½¿Γ¬¿,
  839. ¿ß»«½∞ºπ∩ Σπ¡¬µ¿ε POLAR ñ½∩ «ΓßΓπ»á  «Γ  ¬αá∩  ñ«α«ª¬¿  ¡á αáßßΓ«∩¡¿Ñ,
  840. ¬«Γ«α«Ñ ºáñáÑΓß∩ »Ñαóδ¼  áαúπ¼Ñ¡Γ«¼;  ºáΓѼ Σπ¡¬µ¿∩ POLAR ¿ß»«½∞ºπÑΓß∩
  841. ß¡«óá,  ¡áσ«ñ∩  αáßßΓ«∩¡¿Ñ,  »Ñα»Ñ¡ñ¿¬π½∩α¡«Ñ ñ«α«ª¬Ñ, ñ½∩ »«ß½ÑñπεΘÑ⌐
  842. ßñ󿪬¿  α∩ñ«ó.   æ  »«¼«Θ∞ε  Σπ¡¬µ¿¿   WHILE  »α«ñ«½ªáÑΓß∩  «Γα¿ß«ó¬á
  843. «¬απª¡«ßΓÑ⌐,  »«¬á ¡Ñ íπñÑΓ ñ«ßΓ¿ú¡πΓá úαá¡¿µá  ñ«α«ª¬¿. öπ¡¬µ¿∩ SETQ,
  844. ¬«Γ«α«⌐ ºáóÑαΦáÑΓß∩ WHILE-µ¿¬½ óδτ¿ß½∩ÑΓ ¼ÑßΓ«  αáß»«½«ªÑ¡¿∩ ß½ÑñπεΘÑ⌐
  845. »½¿Γ¬¿,  ßñó¿úá∩  ÑÑ ¡á αáßßΓ«∩¡¿Ñ,  αáó¡«Ñ ñóπ¼  αáñ¿πßá¼ »½¿Γ¬¿ »½εß
  846. »α«ßΓαá¡ßΓ󫠼Ѫñπ »½¿Γ¬á¼¿.
  847.  
  848.     Å«ß½Ñ φΓ«ú«, ß »«¼«Θ∞ε óΓ«α«ú« WHILE-µ¿¬½á, α¿ßπÑΓß∩ α∩ñ »½¿Γ«¬ ó
  849.  
  850.  
  851.  
  852.  
  853.                            - 18 -
  854.  
  855.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  856.  
  857.  
  858. ñαπú«¼  ¡á»αáó½Ñ¡¿¿,   »«¬á  ¡Ñ  íπñÑΓ  ñ«ßΓ¿ú¡πΓá  ß½ÑñπεΘá∩  úαá¡¿µá
  859. ñ«α«ª¬¿.
  860.  
  861.     öπ¡¬µ¿∩  DRAWTILES   ¼¡«ú«¬αáΓ¡«   óδºδóáÑΓ  Σπ¡¬µ¿ε   DROW,  ñ½∩
  862. «Γα¿ß«ó¬¿ óßÑσ  α∩ñ«ó »½¿Γ«¬.  çñÑß∞  WHILE-µ¿¬½  "ΦáúáÑΓ" »« ñ«α«ª¬Ñ,
  863. «íαáΘá∩ß∞  ¬ Σπ¡¬µ¿¿ DROW  ñ½∩ «Γα¿ß«ó¬¿ ¬áªñ«ú« α∩ñá.  æ¼Ñª¡δÑ »½¿Γ¬¿
  864. αáß»«½«ªÑ¡δ ó ó¿ñÑ »αáó¿½∞¡«ú« ΓαÑπú«½∞¡¿¬á,  ¬á¬ »«¬áºá¡« ¡á α¿ßπ¡¬Ñ.
  865. æΓ«α«¡á ΓαÑπú«½∞¡¿¬á αáó¡á ñóπ¼ αáñ¿πßá¼ »½¿Γ¬¿  »½εß αáßßΓ«∩¡¿Ñ ¼Ñªñπ
  866. ¡¿¼¿.  Æᬿ¼ «íαẫ¼,  ¬á¬ ß½ÑñπÑΓ ¿º Γα¿ú«¡«¼ÑΓα¿¿,  αáßßΓ«∩¡¿Ñ óñ«½∞
  867. ñ«α«ª¬¿  ¼Ñªñπ α∩ñἿ  αáó¡« ß¿¡πßπ  60  úαáñπß«ó,  π¼¡«ªÑ¡¡«¼π ¡á φΓπ
  868. óѽ¿τ¿¡π,   á  ß¼ÑΘÑ¡¿Ñ  ¡ÑτÑΓ¡δσ  α∩ñ«ó   -   ¬«ß¿¡πßπ  60  úαáñπß«ó,
  869. π¼¡«ªÑ¡¡«¼π ¡á ¡ÑÑ.
  870.  
  871.     ÄíαáΓ¿ΓѠ󡿼᡿Ѡ ¡á Γ«,  ¬á¬ ¿ß»«½∞ºπÑΓß∩ Σπ¡¬µ¿∩  IF ó Σπ¡¬µ¿¿
  872. DRAWTILES ñ½∩ ß¼ÑΘÑ¡¿∩ ¬áªñ«ú« ß½ÑñπεΘÑú«  α∩ñá.  öπ¡¬µ¿∩ IF ΓÑßΓ¿απÑΓ
  873. ßó«⌐  »Ñαóδ⌐  áαúπ¼Ñ¡Γ  ¿,  Ñß½¿  º¡áτÑ¡¿Ñ¼  Ñú«  ∩ó½∩ÑΓß∩  "¿ßΓ¿¡á" -
  874. óδ»«½¡∩ÑΓ  óΓ«α«⌐ áαúπ¼Ñ¡Γ,  ¿¡áτÑ -  óδ»«½¡∩ÑΓ ΓαÑΓ¿⌐ áαúπ¼Ñ¡Γ. Æᬿ¼
  875. «íαẫ¼,  Ñß½¿ º¡áτÑ¡¿Ñ »ÑαѼѡ¡«⌐  OFF αáó¡« ¡π½ε,  ¼δ »α¿ßóá¿óáѼ Ñ⌐
  876. º¡áτÑ¡¿Ñ,  αáó¡«Ñ  »α«¿ºóÑñÑ¡¿ε  αáßßΓ«∩¡¿∩  ¼Ñªñπ µÑ¡ΓαἿ  »½¿Γ«¬ ¡á
  877. ¬«ß¿¡πß  60   úαáñπß«ó.  àß½¿  ªÑ  º¡áτÑ¡¿Ñ  OFF  ¡Ñ  αáó¡«  ¡π½ε,  ¼δ
  878. »α¿ßóá¿óáѼ  Ñ⌐  º¡áτÑ¡¿Ñ,  αáó¡«Ñ ¡π½ε.  Æᬠ«αúá¡¿ºπÑΓß∩ τÑαÑñ«óá¡¿Ñ
  879. α∩ñ«ó, τΓ« ¿ ΓαÑí«óὫß∞.
  880.  
  881.     ä½∩ »α«óÑન αáí«Γδ Σπ¡¬µ¿¿,  ºá»¿Φ¿ΓÑ «í¡«ó½Ñ¡¡δ⌐ Σá⌐½ GP.LSP ¡á
  882. ñ¿ß¬,  ó«⌐ñ¿ΓÑ ó AutoCAD,  ¡áτ¡¿ΓÑ ¡«óδ⌐ α¿ßπ¡«¬ ¿ ºáúαπº¿ΓÑ LISP-Σá⌐½
  883. ΓᬠªÑ, ¬á¬ éδ ñѽ὿ φΓ« αá¡∞ΦÑ. éóÑñ¿ΓÑ:
  884.  
  885.      Command: (gpuser)
  886.  
  887. ¿ ß««íΘ¿ΓÑ ¿¡Σ«α¼áµ¿ε « ñ«α«ª¬Ñ, ¬á¬ »αѪñÑ. éóÑñ¿ΓÑ:
  888.  
  889.      Command: (drawout)
  890.  
  891. ¿ »«∩ó¿Γß∩ ¬«¡Γπα ñ«α«ª¬¿. Hᬫ¡Ñµ, óóÑñ¿ΓÑ:
  892.  
  893.      Command: (drawtiles)
  894.  
  895. ¿ ¬«¡Γπα ºá»«½¡¿Γ∞ß∩ »½¿Γ¬á¼¿.
  896.  
  897.      3.7 ä«íáó¿¼ H«óπε K«¼á¡ñπ é AutoCAD
  898.  
  899.     ÆÑ»Ñα∞ ¼δ ú«Γ«óδ ß«íαáΓ∞ ¿º ¡áΦ¿σ ¬πß«τ¬«ó ¬«¼á¡ñπ AutoCADá. àß½¿
  900. ¼δ «»αÑñѽ¿¼ Σπ¡¬µ¿ε ó AutoLISPÑ »«ñ  ¿¼Ñ¡Ñ¼  C:XXXX,  Γ«  ¡áíαáó XXXX
  901. (ñ«»πßΓ¿¼,  τΓ« XXXX  ¡Ñ  ¬«¼á¡ñá AutoCADá),  ¼δ óδºδóáѼ φΓπ Σπ¡¬µ¿ε.
  902. ùΓ«íδ  ºáóÑαΦ¿Γ∞  «Σ«α¼½Ñ¡¿Ñ  ¡áΦÑ⌐  ¬«¼á¡ñδ  PATH,  «»αÑñѽ¿¼ Σπ¡¬µ¿ε
  903. C:PATH.  ¥Γ«  »«ºó«½¿Γ ¡á¼ »α«ßΓ« ¡áíαáΓ∞ ¡á  ¬½áó¿áΓπαÑ  PATH ó ½εí«Ñ
  904. óαѼ∩  »«ß½Ñ  ºáúαπº¬¿  GP.LSP,   τΓ«íδ  óδ»«½¡¿Γ∞  ¬«¼á¡ñπ,  α¿ßπεΘπε
  905. »áᬫóπε ñ«α«ª¬π.
  906.  
  907.     é맮ó¿ΓÑ  éáΦ ΓѬßΓ«óδ⌐ αÑñá¬Γ«α  ¿ ñ«íáó∞ΓÑ  «Γ¼ÑτÑ¡¡δÑ ßΓ᫬¿ ó
  908. »α«úαá¼¼π:
  909.  
  910.      ; Convert angle in degrees to radians
  911.  
  912.      (defun dtr (a)
  913.          (* pi (/ a 180.0))
  914.  
  915.  
  916.  
  917.  
  918.                            - 19 -
  919.  
  920.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  921.  
  922.  
  923.      )
  924.  
  925.      ; Acquire information for garden path
  926.  
  927.      (defun gpuser ()
  928.           (setq sp (getpoint "\nStart point of path: "))
  929.           (setq ep (getpoint "\nEnd point of path: "))
  930.           (setq hwidth (getdist "\nHalf width of path: " sp))
  931.           (setq trad (getdist "\nRadius of tiles: " sp))
  932.           (setq tspac (getdist "\nSpacing between tiles: " sp))
  933.  
  934.           (setq pangle (angle sp ep))
  935.           (setq plength (distance sp ep))
  936.           (setq width (* 2 hwidth))
  937.           (setq angp90 (+ pangle (dtr 90)))   ;Path angle + 90 deg
  938.           (setq angm90 (- pangle (dtr 90)))   ;Path angle - 90 deg
  939.      )
  940.  
  941.      ; Draw outline of path
  942.  
  943.      (defun drawout ()
  944.           (command "pline"
  945.              (setq p (polar sp angm90 hwidth))
  946.              (setq p (polar p pangle plength))
  947.              (setq p (polar p angp90 width))
  948.              (polar p (+ pangle (dtr 180)) plength)
  949.              "close"
  950.           )
  951.      )
  952.  
  953.      ; Place one row of tiles given distance along path
  954.      ; and possibly offset it
  955.  
  956.      (defun drow (pd offset)
  957.           (setq pfirst (polar sp pangle pd))
  958.           (setq pctile (polar pfirst angp90 offset))
  959.           (setq p1tile pctile)
  960.           (while (< (distance pfirst p1tile) (- hwidth trad))
  961.              (command "circle" p1tile trad)
  962.              (setq p1tile (polar p1tile angp90 (+ tspac trad trad)))
  963.           )
  964.           (setq p1tile (polar pctile angm90 (+ tspac trad trad)))
  965.           (while (< (distance pfirst p1tile) (- hwidth trad))
  966.              (command "circle" p1tile trad)
  967.              (setq p1tile (polar p1tile angm90 (+ tspac trad trad)))
  968.           )
  969.      )
  970.  
  971.      ; Draw the rows of tiles
  972.  
  973.      (defun drawtiles ()
  974.           (setq pdist (+ trad tspac))
  975.           (setq off 0.0)
  976.           (while (<= pdist (- plength trad))
  977.              (drow pdist off)
  978.               (setq pdist (+  pdist (*  (+  tspac trad trad) (sin (dtr
  979.  
  980.  
  981.  
  982.  
  983.                            - 20 -
  984.  
  985.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  986.  
  987.  
  988. 60)))))
  989.              (if (= off 0.0)
  990.                 (setq off (* (+ tspac trad trad) (cos (dtr 60))))
  991.                 (setq off 0.0)
  992.              )
  993.           )
  994.      )
  995.  
  996.  |   ; Execute command, calling constituent functions
  997.  |
  998.  |   (defun C:PATH ()
  999.  |        (gpuser)
  1000.  |        (drawout)
  1001.  |        (drawtiles)
  1002.  |   )
  1003.  
  1004. ä«íáó¿ó Σπ¡¬µ¿ε ß ¿¼Ñ¡Ñ¼ C:PATH,  ¼δ ΓѼ ßá¼δ¼ ñ«íá󿽿 ¬«¼á¡ñπ PATH ó
  1005. AutoCAD. î«ªÑΓÑ »«»α«í«óáΓ∞ ¬«¼á¡ñπ, óóÑñ∩:
  1006.  
  1007.      Command:  PATH
  1008.      Start point of path: 2,2
  1009.      End point of path: 9,8
  1010.      Half width of path: 2
  1011.      Radius of tiles: .2
  1012.      Spacing between tiles: .1
  1013.     
  1014.     /K«¼á¡ñá:  PATH
  1015.      Háτá½∞¡á∩ Γ«τ¬á ñ«α«ª¬¿: 2,2
  1016.      K«¡Ñτ¡á∩ Γ«τ¬á ñ«α«ª¬¿: 9,8
  1017.      Å«½πΦ¿α¿¡á ñ«α«ª¬¿: 2
  1018.      Éáñ¿πß »½¿Γ¬¿: .2
  1019.      ÉáßßΓ«∩¡¿Ñ ¼Ñªñπ »½¿Γ¬á¼¿: .1/
  1020.  
  1021. é  αѺπ½∞ΓáΓÑ  íπñÑΓ  ¡áα¿ß«óá¡á  »áᬫóá∩  ñ«α«ª¬á,  ¬á¬  »«¬áºá¡« ¡á
  1022. α¿ßπ¡¬Ñ.
  1023.  
  1024.      3.8 Å«ßΓáó¿¼ Æ«τ¬¿ Háñ "i"
  1025.  
  1026.     é »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ ¬«¼á¡ñδ PATH,  óßÑ ¬«¼á¡ñδ, »ÑαÑñáóáѼδÑ ¡á
  1027. óδ»«½¡Ñ¡¿Ñ ó  AutoCAD,  íπñπΓ  «ΓαáªáΓ∞ß∩  "φσ«¼"  ó  ßΓα«¬Ñ ¬«¼á¡ñ¡δσ
  1028. »«ñ߬ẫ¬ φ¬αá¡á,  á ΓᬪѠ óßÑ π¬áºδóáѼδÑ Γ«τ¬¿ íπñπΓ  «ΓαáªáΓ∞ß∩ ¡á
  1029. φ¬αá¡Ñ  ó  ó¿ñÑ  ¼á½Ñ¡∞¬¿σ  ¬αÑßΓ¿¬«ó  (¼áα¬Ñα«ó).   Å«ß½Ñ  Γ«ú«,  ¬á¬
  1030. ¬«¼á¡ñ¡á∩ Σπ¡πµ¿∩  «Γ½áªÑ¡á,  ΓᬫѠ «ΓαáªÑ¡¿Ñ  ¡á  φ¬αá¡Ñ  ¼«ªÑΓ íδΓ∞
  1031. «Γ¬½ετÑ¡«  ß ΓѼ,  τΓ«íδ  óδ»«½¡Ñ¡¿Ñ  «»αÑñѽѡ¡«⌐  AutoLISP«¼ ¬«¼á¡ñδ
  1032. óδú½∩ñѽ« ΓᬠªÑ,  ¬á¬ óδ»«½¡Ñ¡¿Ñ ¬«¼á¡ñδ AutoCADá. ä«íáóΓÑ «Γ¼ÑτÑ¡¡δÑ
  1033. ßΓ᫬¿ ó Σá⌐½ GP.LSP ñ½∩ »«ñáó½Ñ¡¿∩ φσá ¿ ¼áનα«ó¬¿:
  1034.  
  1035.      ; Convert angle in degrees to radians
  1036.  
  1037.      (defun dtr (a)
  1038.          (* pi (/ a 180.0))
  1039.      )
  1040.  
  1041.      ; Acquire information for garden path
  1042.  
  1043.      (defun gpuser ()
  1044.  
  1045.  
  1046.  
  1047.  
  1048.                            - 21 -
  1049.  
  1050.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1051.  
  1052.  
  1053.           (setq sp (getpoint "\nStart point of path: "))
  1054.           (setq ep (getpoint "\nEnd point of path: "))
  1055.           (setq hwidth (getdist "\nHalf width of path: " sp))
  1056.           (setq trad (getdist "\nRadius of tiles: " sp))
  1057.           (setq tspac (getdist "\nSpacing between tiles: " sp))
  1058.  
  1059.           (setq pangle (angle sp ep))
  1060.           (setq plength (distance sp ep))
  1061.           (setq width (* 2 hwidth))
  1062.           (setq angp90 (+ pangle (dtr 90)))   ;Path angle + 90 deg
  1063.           (setq angm90 (- pangle (dtr 90)))   ;Path angle - 90 deg
  1064.      )
  1065.  
  1066.      ; Draw outline of path
  1067.  
  1068.      (defun drawout ()
  1069.           (command "pline"
  1070.              (setq p (polar sp angm90 hwidth))
  1071.              (setq p (polar p pangle plength))
  1072.              (setq p (polar p angp90 width))
  1073.              (polar p (+ pangle (dtr 180)) plength)
  1074.              "close"
  1075.           )
  1076.      )
  1077.  
  1078.      ; Place one row of tiles given distance along path
  1079.      ; and possibly offset it
  1080.  
  1081.      (defun drow (pd offset)
  1082.           (setq pfirst (polar sp pangle pd))
  1083.           (setq pctile (polar pfirst angp90 offset))
  1084.           (setq p1tile pctile)
  1085.           (while (< (distance pfirst p1tile) (- hwidth trad))
  1086.              (command "circle" p1tile trad)
  1087.              (setq p1tile (polar p1tile angp90 (+ tspac trad trad)))
  1088.           )
  1089.           (setq p1tile (polar pctile angm90 (+ tspac trad trad)))
  1090.           (while (< (distance pfirst p1tile) (- hwidth trad))
  1091.              (command "circle" p1tile trad)
  1092.              (setq p1tile (polar p1tile angm90 (+ tspac trad trad)))
  1093.           )
  1094.      )
  1095.  
  1096.      ; Draw the rows of tiles
  1097.  
  1098.      (defun drawtiles ()
  1099.           (setq pdist (+ trad tspac))
  1100.           (setq off 0.0)
  1101.           (while (<= pdist (- plength trad))
  1102.              (drow pdist off)
  1103.               (setq pdist (+  pdist (*  (+  tspac trad trad) (sin (dtr
  1104. 60)))))
  1105.              (if (= off 0.0)
  1106.                 (setq off (* (+ tspac trad trad) (cos (dtr 60))))
  1107.                 (setq off 0.0)
  1108.              )
  1109.  
  1110.  
  1111.  
  1112.  
  1113.                            - 22 -
  1114.  
  1115.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1116.  
  1117.  
  1118.           )
  1119.      )
  1120.  
  1121.      ; Execute command, calling constituent functions
  1122.  
  1123.      (defun C:PATH ()
  1124.           (gpuser)
  1125.  |        (setq sblip (getvar "blipmode")
  1126.  |        (setq scmde (getvar "cmdecho")
  1127.  |        (setvar "blipmode" 0)
  1128.  |        (setvar "cmdecho" 0)
  1129.           (drawout)
  1130.           (drawtiles)
  1131.  |        (setvar "blipmode" sblip)
  1132.  |        (setvar "cmdecho" scmde)
  1133.      )
  1134.  
  1135.     îδ  ¿ß»«½∞º«ó὿  Σπ¡¬µ¿ε GETVAR  ñ½∩ »«½πτÑ¡¿∩  ΓѬπΘ¿σ º¡áτÑ¡¿⌐
  1136. αѪ¿¼«ó AutoCADá  BLIPMODE  ¿  CMDECHO.  Ä¡¿  »α¿ßóá¿óáεΓß∩ »ÑαѼѡ¡δ¼
  1137. SBLIP ¿  SCMDE ß »«¼«Θ∞ε Σπ¡¬µ¿¿ SETQ.  äá½ÑÑ  ¼δ ¿ß»«½∞º«ó὿ Σπ¡¬µ¿ε
  1138. SETVAR  ñ½∩ »α¿ßó«Ñ¡¿∩  φΓ¿¼  ß¿ßΓѼ¡δ¼  »ÑαѼѡ¡δ¼  AutoCADá º¡áτÑ¡¿∩
  1139. ¡«½∞,  τΓ« »α¿óÑñÑΓ ¬ »«ñáó½Ñ¡¿ε ¼áનα«ó¬¿ ¿ ¬«¼á¡ñ¡«ú« φσá. çá¼ÑΓ¿¼,
  1140. τΓ« ¼δ  »α«ñѽ὿ φΓ« Γ«½∞¬«  »«ß½Ñ Γ«ú«,  ¬á¬  ºá¬«¡τÑ¡  óó«ñ óσ«ñ¡«⌐
  1141. ¿¡Σ«α¼áµ¿¿ τÑαѺ Σπ¡¬µ¿ε GPUSER.  ¥Γ« ßñѽᡫ ñ½∩ Γ«ú«, τΓ«íδ ó ¼«¼Ñ¡Γ
  1142. óó«ñá Γ«τѬ »«½∞º«óáΓѽѼ ¡á φ¬αá¡Ñ «ßΓáó὿ß∞ ¼áα¬Ñαδ.
  1143.  
  1144.     Å«ß½Ñ ºáóÑαΦÑ¡¿∩ «Γα¿ß«ó¬¿ ñ«α«ª¬¿ ¼δ ß¡«óá «íαáΓ¿½¿ß∞  ¬ Σπ¡¬µ¿¿
  1145. SETVAR,   τΓ«íδ   ó«ßßΓá¡«ó¿Γ∞   »Ñαó«¡áτá½∞¡δÑ   º¡áτÑ¡¿∩   ß¿ßΓѼ¡δ¼
  1146. »ÑαѼѡ¡δ¼.  çá»¿Φ¿ΓÑ  Σá⌐½,  ó맮ó¿ΓÑ  AutoCAD  ¿  »«»α«íπ⌐ΓÑ  ΓÑ»Ñα∞
  1147. óδ»«½¡¿Γ∞ ¬«¼á¡ñπ PATH. êß»δΓá⌐ΓÑ ÑÑ ó αẽ¿τ¡δσ αѪ¿¼áσ.
  1148.  
  1149.      3.9 éδó«ñδ
  1150.  
  1151.     çá ñ«ßΓáΓ«τ¡« ¬«α«Γ¬¿⌐ «ΓαѺ«¬ óαѼѡ¿ éδ  ñ«íá󿽿 ¡«óπε ¬«¼á¡ñπ
  1152. ó  AutoCAD.  é«  ¼¡«ú¿σ  ß¿ßΓѼáσ æÇÅÉ éá¼ ¡Ñ«íσ«ñ¿¼«:
  1153.     - ¿¼ÑΓ∞ ¿ßσ«ñ¡δÑ ΓѬßΓδ »α«úαá¼¼;
  1154.     - íδΓ∞ »α«ΣÑßß¿«¡á½∞¡δ¼ »αúαá¼¼¿ßΓ«¼;
  1155.     - íδΓ∞ ß»Ñµ¿á½¿ßΓ«¼  ó Φ¿α«¬«⌐ «í½áßΓ¿  º¡á¡¿⌐,
  1156. ñ½∩ Γ«ú« τΓ«íδ ßñѽáΓ∞ Γ«½∞¬« τΓ« »α«ñѽᡡ«Ñ ¡á¼¿. AutoCAD - ß¿ßΓѼá
  1157. ß «Γ¬αδΓ«⌐  áασ¿ΓѬΓπα«⌐ ¿ AutoLISP ñáÑΓ  éá¼ ó απ¬¿  ¼«Θ¡δÑ ßαÑñßΓóá,
  1158. ¬«Γ«αδÑ »α«¿ºó«ñ¿Γѽ∩  í«½∞Φ¿¡ßΓóá ß¿ßΓѼ æÇÅÉ «ßΓáó½∩εΓ  ºá¬αδΓ묨 «Γ
  1159. »«½∞º«óáΓѽÑ⌐.
  1160.  
  1161.     éδ ¼«ªÑΓÑ  «»¿αáΓ∞ß∩ ¡á  φëà »α¿¼Ñα  ¬á¬ ¡á  «Γ»αáó¡πε  Γ«τ¬π ó
  1162. «ßó«Ñ¡¿¿  AutoLISPá.   é«º¼«ª¡«  π  éáß  »«∩ó¿Γß∩   ªÑ½á¡¿Ñ  ¡áτáΓ∞  ß
  1163. ¼«ñ¿Σ¿¬áµ¿¿ ¿ αáßΦ¿αÑ¡¿∩ Γ«½∞¬« τΓ« ß«ºñá¡¡«⌐ ¬«¼á¡ñδ PATH. Å«»α«íπ⌐ΓÑ
  1164. ßñѽáΓ∞   Γá¬,   τΓ«íδ   «¡á   ºá»«½¡∩½á   ñ«α«ª¬π   ¬óáñαáΓ¡δ¼¿   ¿½¿
  1165. ΦÑßΓ¿πú«½∞¡δ¼¿ »½¿Γ¬á¼¿.  ä½∩ í«½ÑÑ Φ¿α«¬«ú« »α¿¼Ñ¡Ñ¡¿∩ ß«ºñá⌐ΓÑ ¡«óπε
  1166. ¬«¼á¡ñπ,  ¬«Γ«αá∩  ºá»αáΦ¿óáÑΓ µÑ¡Γαá½∞¡πε Γ«τ¬π  ¿  »½«Θáñ∞,  á ºáΓѼ
  1167. «Γα¿ß«óδóáÑΓ ¬óáñαáΓ π¬áºá¡¡«⌐ »½«Θáñ¿, ºá»«½¡Ñ¡¡δ⌐ »½¿Γ¬«⌐.
  1168.  
  1169.     àß½¿  π  éáß  »«∩ó¿Γß∩  ªÑ½á¡¿Ñ  í«½ÑÑ  ú½πí«¬«   ¿ºπτ¿Γ∞  αáí«Γπ
  1170. ¿ß»«½∞º«óá¡¡δσ éἿ  Σπ¡¬µ¿⌐ -  «íαáΓ¿ΓÑß∞ ¬ »«ß½ÑñπεΘ¿¼  ú½áóá¼ φΓ«ú«
  1171. απ¬«ó«ñßΓóá.  çñÑß∞  ªÑ  αáßß¼áΓα¿óὫß∞  ½¿Φ∞  »«óÑασ¡«ßΓ¡«Ñ «»¿ßá¡¿Ñ
  1172. αáí«Γδ Σπ¡¬µ¿⌐ ¿ ¿σ  »α¿¼Ñ¡Ñ¡¿∩.  é  AutoLISPÑ ºá½«ªÑ¡«  ¼¡«ú« ß¬αδΓδσ
  1173. 󫺼«ª¡«ßΓÑ⌐. ä½∩ í«½ÑÑ ú½πí«¬«ú« ¿σ »«¡¿¼á¡¿∩ - ßἫѠ½πτΦÑÑ ¿ß»δΓáΓ∞
  1174.  
  1175.  
  1176.  
  1177.  
  1178.                            - 23 -
  1179.  
  1180.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1181.  
  1182.  
  1183. Σπ¡¬µ¿¿ AutoLISPá ó αáí«ΓÑ.
  1184.  
  1185.     àß½¿ éδ  »α¿¼Ñ¡∩ÑΓÑ  AutoLISP  -  éδ »ÑαÑσ«ñ¿ΓÑ  ¡á í«½ÑÑ óδß«¬¿⌐
  1186. πα«óÑ¡∞  ¼áßΓÑαßΓóá  ó αáí«ΓÑ  ß AutoCAD«¼.  Å«ß¬«½∞¬π  éδ ¿ß»«½∞ºπÑΓÑ
  1187. AutoLISP ñ½∩ áóΓ«¼áΓ¿ºáµ¿¿ απΓ¿¡¡δσ τÑαΓѪ¡δσ «»Ñαᵿ⌐, π éáß »«∩ó¿Γß∩
  1188. 󫺼«ª¡«ßΓ∞  πñѽ∩Γ∞ í«½∞ΦÑ  ó¡¿¼á¡¿∩  ¡Ñ»«ßαÑñßΓóÑ¡¡« »α«Ñ¬Γ¿α«óá¡¿ε.
  1189. àß½¿ éδ «ó½áñÑÑΓÑ AutoLISP«¼, «¡ íπñÑΓ ñ«½ú« ß½πª¿Γ∞ éá¼.
  1190. lsp-4-0
  1191.  
  1192.  
  1193.                              â½áóá 4
  1194.  
  1195.                          öπ¡¬µ¿¿ AutoLISPá
  1196.  
  1197. AutoLISP ß«ñÑαª¿Γ ¡Ñ¬«Γ«α«Ñ τ¿ß½« ºáαá¡ÑÑ «»αÑñѽѡ¡δσ Σπ¡¬µ¿⌐. Káªñá∩
  1198. Σπ¡¬µ¿∩ óδºδóáÑΓß∩ ¬á¬ ß»¿ß«¬, »Ñαóδ¼ φ½Ñ¼Ñ¡Γ«¼ ¬«Γ«α«ú« ∩ó½∩ÑΓß∩ ¿¼∩
  1199. Σπ¡¬µ¿¿ (¡áíαá¡¡«Ñ ¡á óÑασ¡Ñ¼ ¿½¿ ¡¿ª¡Ñ¼ αÑú¿ßΓαÑ), á «ßΓá½∞¡δ¼¿ -
  1200. áαúπ¼Ñ¡Γδ φΓ«⌐ Σπ¡¬µ¿¿ (Ñß½¿ «¡¿ ÑßΓ∞).
  1201.  
  1202. é φΓ«⌐ ú½áóÑ óδ ¡á⌐ñÑΓÑ ß»¿ß«¬ óßÑσ «ß¡«ó¡δσ Σπ¡¬µ¿⌐ AutoLISP (ó á½Σá-
  1203. ó¿Γ¡«¼ »«α∩ñ¬Ñ). éδ πó¿ñ¿ΓÑ, τΓ« ¼¡«ú¿Ñ ¿º Σπ¡¬µ¿⌐ ßΓá¡ñáαΓ¡δÑ Σπ¡¬µ¿¿
  1204. LISP, ¿σ ¼«ª¡« ¡á⌐Γ¿ ó ¬áªñ«¼ απ¬«ó«ñßΓóÑ »« ∩ºδ¬π »α«úαá¼¼¿α«óá¡¿∩
  1205. LISP. äαπú¿Ñ ªÑ - π¡¿¬á½∞¡δÑ, ß«ºñá¡¡δѠ߻ѵ¿á½∞¡« ñ½∩ úαáΣ¿τÑ߬¿σ
  1206. 󫺼«ª¡«ßΓÑ⌐ AutoCADá. HѬ«Γ«αδÑ αáßΦ¿αÑ¡¡δÑ Σπ¡¬µ¿¿ «»¿ßδóáεΓß∩ ó
  1207. ß½ÑñπεΘ¿σ ú½áóáσ.
  1208.  
  1209.     4.1 (+ <τ¿ß½«> <τ¿ß½«>...)
  1210.  
  1211. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ßπ¼¼π óßÑσ <τ¿ßѽ>. Ä¡á ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩
  1212. ¬á¬ ß µÑ½δ¼¿, Γᬠ¿ ß ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿ τ¿ß½á¼¿. àß½¿ óßÑ <τ¿ß½á> µÑ½δÑ,
  1213. αѺπ½∞ΓáΓ íπñÑΓ µÑ½δ¼; Ñß½¿ σ«Γ∩ íδ «ñ¡« <τ¿ß½«> ñÑ⌐ßΓó¿Γѽ∞¡«Ñ, óßÑ
  1214. µÑ½δÑ íπñπΓ »αÑ«íαẫóá¡δ ó ñÑ⌐ßΓó¿Γѽ∞¡δÑ ¿ αѺπ½∞ΓáΓ íπñÑΓ ñÑ⌐ßΓó¿-
  1215. Γѽ∞¡δ¼. Há»α¿¼Ñα:
  1216.  
  1217.      (+ 1 2)          ó«ºóαáΘáÑΓ     3
  1218.     (+ 1 2 3 4.5)    ó«ºóαáΘáÑΓ     10.500000
  1219.     (+ 1 2 3 4.0)    ó«ºóαáΘáÑΓ     10.000000
  1220.  
  1221.     4.2 (- <τ¿ß½«> <τ¿ß½«>...)
  1222.  
  1223. ¥Γá Σπ¡¬µ¿∩ óδτ¿ΓáÑΓ óΓ«α«Ñ <τ¿ß½«> ¿º »Ñαó«ú« ¿ ó«ºóαáΘáÑΓ αạ«ßΓ∞.
  1224. àß½¿ ºáñá¡« í«½ÑÑ ñóπσ <τ¿ßѽ>, Γ« ¿º »Ñαó«ú« óδτ¿ΓáÑΓß∩ ßπ¼¼á «ßΓá½∞-
  1225. ¡δσ. àß½¿ ºáñá¡« Γ«½∞¬« «ñ¡« <τ¿ß½«>, «¡« óδτ¿ΓáΓß∩ ¿º 0 ¿ ó«ºóαáΘáÑΓß∩
  1226. αѺπ½∞ΓáΓ. öπ¡¬µ¿∩ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ß µÑ½δ¼¿ ¿ ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿ »«
  1227. ßΓá¡ñáαΓ¡δ¼ »αáó¿½á¼ óδτ¿ß½Ñ¡¿∩. Há»α¿¼Ñα:
  1228.  
  1229.     (- 50 40)        ó«ºóαáΘáÑΓ     10
  1230.     (- 50 40.0 2)    ó«ºóαáΘáÑΓ     8.000000
  1231.     (- 50 40.0 2.5   ó«ºóαáΘáÑΓ     7.500000
  1232.     (- 8)            ó«ºóαáΘáÑΓ     -8
  1233.  
  1234.     4.3 (* <τ¿ß½«> <τ¿ß½«>...)
  1235.  
  1236. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »α«¿ºóÑñÑ¡¿Ñ óßÑσ <τ¿ßѽ>.
  1237. öπ¡¬µ¿∩ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ß µÑ½δ¼¿ ¿ ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿ »« ßΓá¡ñáαΓ-
  1238. ¡δ¼ »αáó¿½á¼ óδτ¿ß½Ñ¡¿∩. Há»α¿¼Ñα:
  1239.  
  1240.  
  1241.  
  1242.  
  1243.  
  1244.                            - 24 -
  1245.  
  1246.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1247.  
  1248.  
  1249.     (* 2 3)           ó«ºóαáΘáÑΓ     6
  1250.     (* 2 3 4.0)       ó«ºóαáΘáÑΓ     24.000000
  1251.     (* 3 -4.5)        ó«ºóαáΘáÑΓ     -13.500000
  1252.  
  1253.     4.4 (/ <τ¿ß½«> <τ¿ß½«>...)
  1254.  
  1255. ¥Γá Σπ¡¬µ¿∩ ñѽ¿Γ »Ñαó«Ñ <τ¿ß½«> ¡á óΓ«α«Ñ ¿ ó«ºóαáΘáÑΓ τáßΓ¡«Ñ. àß½¿
  1256. ºáñá¡« í«½ÑÑ ñóπσ <τ¿ßѽ>, »Ñαó«Ñ ñѽ¿Γß∩ ¡á »α«¿ºóÑñÑ¡¿Ñ «ßΓá½∞¡δσ ¿
  1257. ó«ºóαáΘáÑΓß∩ «¬«¡τáΓѽ∞¡«Ñ τáßΓ¡«Ñ. öπ¡¬µ¿∩ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ß
  1258. µÑ½δ¼¿ ¿ ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿ »« ßΓá¡ñáαΓ¡δ¼ »αáó¿½á¼ óδτ¿ß½Ñ¡¿∩. Há»α¿¼Ñα:
  1259.  
  1260.     (/ 100 2)         ó«ºóαáΘáÑΓ     50
  1261.     (/ 100 2.0)       ó«ºóαáΘáÑΓ     50.000000
  1262.     (/ 100 20 2.0)    ó«ºóαáΘáÑΓ     2.500000
  1263.     (/ 100 20.0 2)    ó«ºóαáΘáÑΓ     2.500000
  1264.     (/ 100 20 2)      ó«ºóαáΘáÑΓ     2
  1265.     (/ 135 360)       ó«ºóαáΘáÑΓ     0
  1266.     (/ 135 360.0)     ó«ºóαáΘáÑΓ     0.375000
  1267.  
  1268.     4.5 (= <áΓ«¼> <áΓ«¼>...)
  1269.  
  1270. Σπ¡¬µ¿∩ ßαáó¡Ñ¡¿∩ "αáó¡«". àß½¿ óßÑ <áΓ«¼δ> φ¬ó¿óá½Ñ¡Γ¡δ - ó«ºóαáΘáÑΓß∩
  1271. Æ, Ñß½¿ σ«Γ∩ íδ «ñ¿¡ ¡Ñ αáó¡« - nil. é ¬áτÑßΓóÑ áαúπ¼Ñ¡Γ«ó ¼«úπΓ
  1272. ¿ß»«½∞º«óáΓ∞ß∩ ¬á¬ τ¿ß½á, Γᬠ¿ ßΓ᫬«óδÑ ¬«¡ßΓá¡Γδ. Há»α¿¼Ñα:
  1273.  
  1274.     (= 4 4.0)         ó«ºóαáΘáÑΓ     Æ
  1275.     (= 20 388)        ó«ºóαáΘáÑΓ     nil
  1276.     (= 2.4 2.4 2.4)   ó«ºóαáΘáÑΓ     Æ
  1277.     (= 499 499 500)   ó«ºóαáΘáÑΓ     nil
  1278.     (= "∩" "∩")       ó«ºóαáΘáÑΓ     Æ
  1279.     (= "∩" "Γδ")      ó«ºóαáΘáÑΓ     nil
  1280.  
  1281.     4.6 (/= <áΓ«¼1> <áΓ«¼2>)
  1282.  
  1283. öπ¡¬µ¿∩ ßαáó¡Ñ¡¿∩ "¡Ñ αáó¡«". àß½¿ <áΓ«¼1> ¡Ñ φ¬ó¿óá½Ñ¡ΓÑ¡ <áΓ«¼π2> -
  1284. ó«ºóαáΘáÑΓß∩ Æ, Ñß½¿ «¡¿ φ¬ó¿óá½Ñ¡Γ¡δ - nil. öπ¡¬µ¿∩ ¡Ñ«»αÑñѽѡá ñ½∩
  1285. τ¿ß½á áαúπ¼Ñ¡Γ«ó í«½ÑÑ ñóπσ. Há»α¿¼Ñα:
  1286.  
  1287.     (/= 10 20)        ó«ºóαáΘáÑΓ     Æ
  1288.     (/= "Γδ" Γδ")     ó«ºóαáΘáÑΓ     nil
  1289.     (/= 5.43 5.44)    ó«ºóαáΘáÑΓ     Æ
  1290.  
  1291.     4.7 (< <áΓ«¼> <áΓ«¼>...)
  1292.  
  1293. öπ¡¬µ¿∩ ßαáó¡Ñ¡¿∩ "¼Ñ¡∞ΦÑ, τѼ". àß½¿ »Ñαóδ⌐ <áΓ«¼> ¼Ñ¡∞ΦÑ, τѼ óΓ«α«⌐ -
  1294. ó«ºóαáΘáÑΓß∩ Æ, Ñß½¿ ¡ÑΓ - nil. àß½¿ ñá¡« í«½ÑÑ 2-σ <áΓ«¼«ó>, Γ«, Ñß½¿
  1295. ¬áªñδ⌐ »αÑñδñπΘ¿⌐ áΓ«¼ ¼Ñ¡∞ΦÑ »«ß½ÑñπεΘÑú«, - ó«ºóαáΘáÑΓß∩ Æ. Há»α¿¼Ñα:
  1296.  
  1297.     (< 10 20)         ó«ºóαáΘáÑΓ     Æ
  1298.     (< "b" "c")       ó«ºóαáΘáÑΓ     T
  1299.     (< 357 33.2)      ó«ºóαáΘáÑΓ     nil
  1300.     (< 2 3 88)        ó«ºóαáΘáÑΓ     T
  1301.     (< 2 3 4 4)       ó«ºóαáΘáÑΓ     nil
  1302.  
  1303.  
  1304.  
  1305.  
  1306.  
  1307.                            - 25 -
  1308.  
  1309.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1310.  
  1311.  
  1312.     4.8 (<= <áΓ«¼> <áΓ«¼>...)
  1313.  
  1314. öπ¡¬µ¿∩ ßαáó¡Ñ¡¿∩ "¼Ñ¡∞ΦÑ ¿½¿ αáó¡«". àß½¿ »Ñαóδ⌐ <áΓ«¼> ¼Ñ¡∞ΦÑ ¿½¿
  1315. αáóÑ¡ óΓ«α«¼π - ó«ºóαáΘáÑΓß∩ Æ, Ñß½¿ ¡ÑΓ - nil. àß½¿ ñá¡« í«½ÑÑ 2-σ
  1316. <áΓ«¼«ó>, Γ«, Ñß½¿ ¬áªñδ⌐ »αÑñδñπΘ¿⌐ áΓ«¼ ¼Ñ¡∞ΦÑ ¿½¿ αáóÑ¡ »«ß½Ññπε-
  1317. ΘѼπ, ó«ºóαáΘáÑΓß∩ Æ. Há»α¿¼Ñα:
  1318.  
  1319.     (<= 10 20)        ó«ºóαáΘáÑΓ     T
  1320.     (<= "b" "b")      ó«ºóαáΘáÑΓ     T
  1321.     (<= 357 33.2)     ó«ºóαáΘáÑΓ     nil
  1322.     (<= 2 9 9)        ó«ºóαáΘáÑΓ     T
  1323.     (<= 2 9 4 5)      ó«ºóαáΘáÑΓ     nil
  1324.  
  1325.     4.9 (> <áΓ«¼> <áΓ«¼>...)
  1326.  
  1327. öπ¡¬µ¿∩ ßαáó¡Ñ¡¿∩ "í«½∞ΦÑ". àß½¿ »Ñαóδ⌐ <áΓ«¼> í«½∞ΦÑ, τѼ óΓ«α«⌐ -
  1328. ó«ºóαáΘáÑΓß∩ Æ, Ñß½¿ ¡ÑΓ - nil. àß½¿ ñá¡« í«½ÑÑ 2-σ <áΓ«¼«ó>, Γ«,
  1329. Ñß½¿ ¬áªñδ⌐ »αÑñδñπΘ¿⌐ áΓ«¼ í«½∞ΦÑ »«ß½ÑñπεΘÑú«, - ó«ºóαáΘáÑΓß∩ Æ.
  1330. Há»α¿¼Ñα:
  1331.  
  1332.     (> 120 17)        ó«ºóαáΘáÑΓ     T
  1333.     (> "c" "b")       ó«ºóαáΘáÑΓ     T
  1334.     (> 3.5 1792)      ó«ºóαáΘáÑΓ     nil
  1335.     (> 77 4 2)        ó«ºóαáΘáÑΓ     T
  1336.     (> 77 4 4)        ó«ºóαáΘáÑΓ     nil
  1337.  
  1338.     4.10 (>= <áΓ«¼> <áΓ«¼>...)
  1339.  
  1340. öπ¡¬µ¿∩ ßαáó¡Ñ¡¿∩ "í«½∞ΦÑ ¿½¿ αáó¡«", àß½¿ »Ñαóδ⌐ <áΓ«¼> í«½∞ΦÑ ¿½¿
  1341. αáóÑ¡ óΓ«α«¼π - ó«ºóαáΘáÑΓß∩ Æ, Ñß½¿ ¡ÑΓ - nil. àß½¿ ñá¡« í«½ÑÑ 2-σ
  1342. <áΓ«¼«ó>, Γ«, Ñß½¿ ¬áªñδ⌐ »αÑñδñπΘ¿⌐ áΓ«¼ í«½∞ΦÑ ¿½¿ αáóÑ¡ »«ß½Ññπε-
  1343. ΘѼπ, - ó«ºóαáΘáÑΓß∩ Æ.
  1344. Há»α¿¼Ñα:
  1345.  
  1346.     (>= 120 17)       ó«ºóαáΘáÑΓ     T
  1347.     (>= "c" "c")      ó«ºóαáΘáÑΓ     T
  1348.     (>= 3.5 1792)     ó«ºóαáΘáÑΓ     nil
  1349.     (>= 77 4 4)       ó«ºóαáΘáÑΓ     T
  1350.     (>= 77 4 9)       ó«ºóαáΘáÑΓ     nil
  1351.  
  1352.  
  1353. lsp-4-1
  1354.  
  1355.     4.11 (~ <τ¿ß½«>)
  1356.  
  1357. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ½«ú¿τÑ߬«Ñ HàÆ (ñ«»«½¡Ñ¡¿Ñ ñ« Ññ¿¡¿µδ). <ù¿ß½«>
  1358. ñ«½ª¡« íδΓ∞ µÑ½δ¼. Há»α¿¼Ñα:
  1359.  
  1360.     (~ 3)             ó«ºóαáΘáÑΓ     -4
  1361.     (~ 100)           ó«ºóαáΘáÑΓ     -100
  1362.     (~ -4)            ó«ºóαáΘáÑΓ     3
  1363.  
  1364.     4.12 (1+ <τ¿ß½«>)
  1365.  
  1366. ÉѺπ½∞ΓáΓ Σπ¡¬µ¿¿ - <τ¿ß½«>, πóѽ¿τÑ¡¡«Ñ ¡á Ññ¿¡¿µπ. <ù¿ß½«> ¼«ªÑΓ
  1367. íδΓ∞ µÑ½δ¼ ¿½¿ ñÑ⌐ßΓó¿Γѽ∞¡δ¼. Há»α¿¼Ñα:
  1368.  
  1369.     (1+ 5)            ó«ºóαáΘáÑΓ     6
  1370.  
  1371.  
  1372.  
  1373.  
  1374.                            - 26 -
  1375.  
  1376.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1377.  
  1378.  
  1379.  
  1380.     (1+ -17.5)        ó«ºóαáΘáÑΓ     -16.500000
  1381.  
  1382.     4.13 (1- <τ¿ß½«>)
  1383.  
  1384. ÉѺπ½∞ΓáΓ Σπ¡¬µ¿¿ - <τ¿ß½«>, π¼Ñ¡∞ΦÑ¡¡«Ñ ¡á Ññ¿¡¿µπ. <ù¿ß½«> ¼«ªÑΓ
  1385. íδΓ∞ µÑ½δ¼ ¿½¿ ñÑ⌐ßΓó¿Γѽ∞¡δ¼. Há»α¿¼Ñα:
  1386.  
  1387.     (1- 5)            ó«ºóαáΘáÑΓ     4
  1388.     (1- -17.5)        ó«ºóαáΘáÑΓ     -18.500000
  1389.  
  1390.     4.14 (abs <τ¿ß½«>)
  1391.  
  1392. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ <τ¿ß½á>. <ù¿ß½«> ¼«ªÑΓ íδΓ∞
  1393. µÑ½δ¼ ¿½¿ ñÑ⌐ßΓó¿Γѽ∞¡δ¼. Há»α¿¼Ñα:
  1394.  
  1395.     (abs 100)         ó«ºóαáΘáÑΓ     100
  1396.     (abs -100)        ó«ºóαáΘáÑΓ     100
  1397.     (abs -99.25)      ó«ºóαáΘáÑΓ     99.250000
  1398.  
  1399.     4.15 (and <óδαáªÑ¡¿Ñ>...)
  1400.  
  1401. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ αѺπ½∞ΓáΓ óδ»«½¡Ñ¡¿∩ ½«ú¿τÑ߬«ú« ê ¡áñ ß»¿ß¬«¼
  1402. óδαáªÑ¡¿⌐. é«ºóαáΘáΓ∞ß∩ íπñÑΓ nil, Ñß½¿ ½εí«Ñ ¿º óδαáªÑ¡¿⌐ ¿¼ÑÑΓ
  1403. º¡áτÑ¡¿Ñ nil, ¿¡áτÑ Æ.
  1404. Há»α¿¼Ñα:
  1405.  
  1406.     (setq a 103)
  1407.     (setq b nil)
  1408.     (setq c "string")
  1409.  
  1410. Γ«úñá:
  1411.  
  1412.     (and 1.4 a c)     ó«ºóαáΘáÑΓ     T
  1413.     (and 1.4 a b c)   ó«ºóαáΘáÑΓ     nil
  1414.  
  1415.     4.16 (angle <Γ«τ1> <Γ«τ2>)
  1416.  
  1417. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ πú«½ (ó αáñ¿á¡áσ) ¼Ñªñπ 2-¼∩ ½πτἿ, ¡á»αó½Ñ¡¡δ¼¿
  1418. ¿º 2-σ ¼Ñα¡«⌐ <Γ«τ1>. ÅÑαóδ⌐ - óñ«½∞ «ß¿ ò ó ßΓ«α«¡π »«½«ª¿Γѽ∞¡«ú«
  1419. ¡á»αáó½Ñ¡¿∩, óΓ«α«⌐ - ó ßΓ«α«¡π 2-σ ¼Ñα¡«⌐ <Γ«τ2>, úñÑ 2-σ ¼Ñα¡á∩ Γ«τ¬á
  1420. - ß»¿ß«¬ 2-σ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ.
  1421. Há»α¿¼Ñα:
  1422.  
  1423.     (angle '(1.0 1.0) '(1.0 4.0))     ó«ºóαáΘáÑΓ     1.570796
  1424.     (angle '(5.0 1.33) '(2.4 1.33))   ó«ºóαáΘáÑΓ     3.141593
  1425.  
  1426.     4.17 (angtos <πú«½> [<»αÑñßΓáó½Ñ¡¿Ñ> [<Γ«τ¡«ßΓ∞>]])
  1427.  
  1428. öπ¡¬µ¿∩ íÑαÑΓ <πú«½> (ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½«, ó αáñ¿á¡áσ) ¿ ó«ºóαáΘáÑΓ
  1429. Ñú« »αÑ«íαẫóá¡¡δ¼ ó ßΓ᫬«óπε ¬«¡ßΓá¡Γπ. Çαúπ¼Ñ¡Γ <»αÑñßΓáó½Ñ¡¿Ñ> -
  1430.  
  1431.  
  1432.  
  1433.  
  1434.  
  1435.  
  1436.                             - 27 -
  1437.  
  1438.  
  1439.  
  1440.  
  1441.                   !~~~~~~~~~!~~~~~~~~~~~~~~~~~~~~~~~~~!
  1442.                   !  ANGTOS !  ö«α¼áΓ »αÑ«íαẫóá¡¿∩  !
  1443.                   !---------!-------------------------!
  1444.                   !    0    ! âαáñπßδ                 !
  1445.                   !         !                         !
  1446.                   !    1    ! âαáñπßδ/¼¿¡πΓδ/ßѬπ¡ñδ  !
  1447.                   !---------!-------------------------!
  1448.                   !    2    ! âαáñδ                   !
  1449.                   !---------!-------------------------!
  1450.                   !    3    ! Éáñ¿á¡δ                 !
  1451.                   !---------!-------------------------!
  1452.                   !    4    ! âÑ«ñѺ¿τÑ߬«Ñ »αÑñßΓáó½ !
  1453.                   !_________!_________________________!
  1454.  
  1455. Çαúπ¼Ñ¡Γ <Γ«τ¡«ßΓ∞> - µÑ½«Ñ τ¿ß½«, π¬áºδóáÑΓ ¬«½¿τÑßΓó« µ¿Σα »«ß½Ñ
  1456. ºá»∩Γ«⌐. Çαúπ¼Ñ¡Γδ <»αÑñßΓáó½Ñ¡¿Ñ> ¿ <Γ«τ¡«ßΓ∞> «íαáΘáεΓß∩ ¬ »ÑαѼѡ¡δ¼
  1457. AutoCADá AUNITS ¿ AUPREC. àß½¿ »α«¿ú¡«α¿α«óáΓ∞ φΓ¿ áαúπ¼Ñ¡Γδ, Γ« íπñπΓ
  1458. ¿ß»«½∞º«óá¡δ ΓѬπΘ¿Ñ º¡áτÑ¡¿∩ AUNITS ¿ AUPREC.
  1459.  
  1460. Há»α¿¼Ñα, ñá¡«:
  1461.  
  1462.     (setq pt1 '(5.0 1.33))
  1463.     (setq pt2 '(2.4 1.33))
  1464.     (setq a (angle pt1 pt2))
  1465.  
  1466. Γ«úñá:
  1467.  
  1468.     (angtos a 0 0)       ó«ºóαáΘáÑΓ     "180"
  1469.     (angtos a 0 4)       ó«ºóαáΘáÑΓ     "180.0000"
  1470.     (angtos a 1 4)       ó«ºóαáΘáÑΓ     "180d0'0""
  1471.     (angtos a 3 4)       ó«ºóαáΘáÑΓ     "3.1416r"
  1472.     (angtos a 4 2)       ó«ºóαáΘáÑΓ     "W"
  1473.  
  1474.     4.18 (append <óδαáªÑ¡¿Ñ>...)
  1475.  
  1476. öπ¡¬µ¿∩ íÑαÑΓ ½εí«Ñ τ¿ß½« ß»¿ß¬«ó (<óδαáªÑ¡¿⌐>) ¿ ß½¿óáÑΓ ¿σ ó¼ÑßΓÑ
  1477. ¬á¬ «ñ¿¡ ß»¿ß«¬.
  1478.  
  1479.      (append '(a b) '(c d))           ó«ºóαáΘáÑΓ     (A B C D)
  1480.      (append '((a) (b)) '((c) (d)))   ó«ºóαáΘáÑΓ     ((A) (B) (C) (D))
  1481.  
  1482. APPEND ΓαÑíπÑΓ, τΓ«íδ áαúπ¼Ñ¡Γδ í뫨 ß»¿ß¬á¼¿.
  1483.  
  1484.     4.19 (apply <Σπ¡¬µ¿∩> <ß»¿ß«¬>)
  1485.  
  1486. éδ»«½¡∩ÑΓß∩ <Σπ¡¬µ¿∩> ß áαúπ¼Ñ¡ΓἿ, ºáñá¡¡δ¼¿ <ß»¿ß¬«¼>. Há»α¿¼Ñα:
  1487.  
  1488.     (apply '+ '(1 2 3))              ó«ºóαáΘáÑΓ     6
  1489.     (apply 'strcat '("a" "b" "c"))   ó«ºóαáΘáÑΓ     "abc"
  1490.  
  1491. APPLY αáí«ΓáÑΓ ¬á¬ ß« óßΓα«Ñ¡¡δ¼¿ Σπ¡¬µ¿∩¼¿ (ßπíα), Γᬠ¿ ß Σπ¡¬µ¿∩¼¿,
  1492. «»αÑñѽѡ¡δ¼¿ »«½∞º«óáΓѽѼ («¡¿ ß«ºñáεΓß∩ ß »«¼«Θ∞ε Σπ¡¬µ¿⌐ DEFUN ¿½¿
  1493. LAMBDA.
  1494.  
  1495.     4.20 (ascii <ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá>)
  1496.  
  1497. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »αÑ«íαẫóá¡¿Ñ ß¿¼ó«½á <ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá>  ó Ñú«
  1498. ASCII-ß¿¼ó«½∞¡δ⌐ ¬«ñ (µÑ½«Ñ τ¿ß½«). ¥Γá Σπ¡¬µ¿∩ »«ñ«í¡á Σπ¡¬µ¿¿ ASC ó
  1499. üÑ⌐ß¿¬Ñ. Há»α¿¼Ñα:
  1500.  
  1501.  
  1502.  
  1503.  
  1504.  
  1505.                            - 28 -
  1506.  
  1507.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1508.  
  1509.  
  1510.     (ascii "A")               ó«ºóαáΘáÑΓ     65
  1511.     (ascii "a")               ó«ºóαáΘáÑΓ     97
  1512.     (ascii "BIG")             ó«ºóαáΘáÑΓ     66
  1513.  
  1514. lsp-4-2
  1515.  
  1516.     4.21 (assoc <φ½Ñ¼Ñ¡Γ ß»¿ß¬á> <ßΓαπ¬Γπα¿α«óá¡¡δ⌐ ß»¿ß«¬>)
  1517.  
  1518. öπ¡¬µ¿∩ »α«ß¼áΓα¿óáÑΓ <ßΓαπ¬Γπα¿α«óá¡¡δ⌐ ß»¿ß«¬> »« ¬½ετπ <φ½Ñ¼Ñ¡Γ
  1519. ß»¿ß¬á> ¿ ó«ºóαáΘáÑΓ Γ«τ¬π óσ«ñá <ßΓαπ¬Γπα. ß»¿ß¬á>. àß½¿ <φ½Ñ¼Ñ¡Γ
  1520. ß»¿ß¬á> ¡Ñ ¡á⌐ñÑ¡, ASSOC ó«ºóαáΘáÑΓ nil. Há»α¿¼Ñα ñ«»πßΓ¿¼, τΓ« "al"
  1521. «»αÑñѽѡ ¬á¬:
  1522.  
  1523.     ((name box) (width 3) (size 4.7263) (depth 5))
  1524.  
  1525. Γ«úñá:
  1526.  
  1527.     (assoc 'size al)       ó«ºóαáΘáÑΓ     (SIZE 4.7363)
  1528.     (assoc 'weight al)     ó«ºóαáΘáÑΓ     nil
  1529.  
  1530. CΓαπ¬Γπα¿α«óá¡¡δÑ ß»¿ß¬¿ τáßΓ« ¿ß»«½∞ºπεΓß∩ ñ½∩ σαá¡Ñ¡¿∩ ñá¡¡δσ, ¬
  1531. ¬«Γ«αδ¼ ¼«ª¡« ¿¼ÑΓ∞ ñ«ßΓπ» »« ¬½ετπ. ¥Γ« »«σ«ªÑ ¡á ßΓαπ¬Γπαδ ¿ ¼áßß¿óδ
  1532. ó ñαπú¿σ ∩ºδ¬áσ »α«úαá¼¼¿α«óá¡¿∩. öπ¡¬µ¿∩ SUBST, «»¿ßá¡¡á∩ ¡¿ªÑ ó φΓ«⌐
  1533. ú½áóÑ, «íÑß»Ñτ¿óáÑΓ πñ«í¡δ⌐ ß»«ß«í ºá¼Ñ¡δ óѽ¿τ¿¡δ, ¡á⌐ñÑ¡¡«⌐ »« ¬½ετπ
  1534. ó ßΓαπ¬Γπα¿α«óá¡¡«¼ ß»¿ß¬Ñ.
  1535.  
  1536.     4.22 (atan <τ¿ß½«1> [<τ¿ß½«2>])
  1537.  
  1538. àß½¿ <τ¿ß½«2> ¡Ñ ºáñá¡«, ATAN óδτ¿ß½∩ÑΓ áα¬Γá¡úÑ¡ß <τ¿ß½á1>, ó αáñ¿á¡áσ.
  1539. <ù¿ß½«1> ¼«ªÑΓ íδΓ∞ «Γα¿µáΓѽ∞¡δ¼; «í½áßΓ∞ ñ«»πßΓ¿¼δσ º¡áτÑ¡¿⌐ «Γ -pi
  1540. ñ« +pi αáñ¿á¡. Há»α¿¼Ñα:
  1541.  
  1542.     (atan 0.5)                ó«ºóαáΘáÑΓ     0.463647
  1543.     (atan 1.0)                ó«ºóαáΘáÑΓ     0.785398
  1544.     (atan -1.0)               ó«ºóαáΘáÑΓ     -0.785398
  1545.     (angtos (atan -1.0) 0 4)  ó«ºóαáΘáÑΓ     "-45.0000"
  1546.  
  1547. àß½¿ ºáñá¡δ «íá τ¿ß½á, ó«ºóαáΘáÑΓß∩ áα¬Γá¡úÑ¡ß (<τ¿ß½«1>/<τ¿ß½«2>) ó
  1548. αáñ¿á¡áσ. àß½¿ <τ¿ß½«2> - ¡«½∞, ó ºáó¿ß¿¼«ßΓ¿ «Γ º¡á¬á <τ¿ß½á1>,
  1549. ó«ºóαáΘáÑΓß∩ + ¿½¿ -1.570796 αáñ¿á¡ (90 ¿½¿ -90 úαáñπß«ó).
  1550.  
  1551.     4.23 (atof <ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá>)
  1552.  
  1553. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »αÑ«íαẫóá¡¿Ñ <ßΓ᫬«ó«⌐ ¬«¡ßΓá¡Γδ> ó ñÑ⌐ßΓó¿-
  1554. Γѽ∞¡«Ñ τ¿ß½«.
  1555. Há»α¿¼Ñα:
  1556.  
  1557.     (atof "97.1")       ó«ºóαáΘáÑΓ     97.100000
  1558.     (atof "3")          ó«ºóαáΘáÑΓ     3.000000
  1559.  
  1560.     4.24 (atoi <ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá> )
  1561.  
  1562. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »αÑ«íαẫóá¡¿Ñ <ßΓ᫬«ó«⌐ ¬«¡ßΓá¡Γδ> ó µÑ½«Ñ
  1563. τ¿ß½«.
  1564. Há»α¿¼Ñα:
  1565.  
  1566.  
  1567.  
  1568.  
  1569.  
  1570.                            - 29 -
  1571.  
  1572.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1573.  
  1574.  
  1575.  
  1576.     (atoi "97")         ó«ºóαáΘáÑΓ     97
  1577.     (atoi "3")          ó«ºóαáΘáÑΓ     3
  1578.     (atoi "3.9")        ó«ºóαáΘáÑΓ     3
  1579.  
  1580.     4.25 (atom <φ½Ñ¼Ñ¡Γ>)
  1581.  
  1582. àß½¿ <φ½Ñ¼Ñ¡Γ> - ß»¿ß«¬ - ó«ºóαáΘáÑΓß∩ nil, ¿¡áτÑ Æ.
  1583. ïεí«⌐ φ½Ñ¼Ñ¡Γ, ¬«Γ«αδ⌐ ¡Ñ ∩ó½∩ÑΓß∩ ß»¿ß¬«¼, ßτ¿ΓáÑΓß∩ ¬á¬ ¡Ññѽ¿¼δ⌐
  1584. (áΓ«¼). Há»α¿¼Ñα:
  1585.  
  1586.     (setq a '(x y z))
  1587.     (setq b 'a)
  1588.  
  1589. Γ«úñá:
  1590.  
  1591.     (atom 'a)          ó«ºóαáΘáÑΓ     T
  1592.     (atom a)           ó«ºóαáΘáÑΓ     nil
  1593.     (atom 'b)          ó«ºóαáΘáÑΓ     T
  1594.     (atom b)           ó«ºóαáΘáÑΓ     T
  1595.     (atom '(a b c))    ó«ºóαáΘáÑΓ     nil
  1596.  
  1597. HѬ«Γ«αδÑ óÑαß¿¿ LISPá αẽ¿τáεΓß∩ ó ßó«Ñ⌐ ¿¡ΓÑα»α¿Γᵿ¿ Σπ¡¬µ¿¿
  1598. ÇÆÄî, ΓᬠτΓ« íπñ∞ΓÑ ó¡¿¼áΓѽ∞¡δ »α¿ »ÑαÑσ«ñÑ ¿º «ñ¡«⌐ óÑαß¿¿ ó ñαπúπε.
  1599.  
  1600.     4.26 (Boole <Σπ¡¬µ¿∩> <µÑ½«Ñ1> <µÑ½«Ñ2>...)
  1601.  
  1602. ¥Γ« «ß¡«ó¡á∩ í¿Γ«óá∩ üπ½Ñóá Σπ¡¬µ¿∩. <öπ¡¬µ¿∩> - φΓ« µÑ½«Ñ τ¿ß½« ¼Ñªñπ
  1603. 0 ¿ 15, »αÑñßΓáó½∩εΘÑÑ «ñ¡π ¿º 16 ó«º¼«ª¡δσ üπ½Ñóδσ Σπ¡¬µ¿⌐ ñóπσ »ÑαÑ-
  1604. ¼Ñ¡¡δσ. ¥Γá Σπ¡¬µ¿∩ »«í¿Γ«ó« (½«ú¿τÑ߬¿) ¬«¼í¿¡¿απÑΓ µÑ½«τ¿ß½Ñ¡¡δÑ
  1605. áαúπ¼Ñ¡Γδ ó ß««ΓóÑΓßΓó¿¿ ß Γáí½¿µÑ⌐ ¿ßΓ¿¡¡«ßΓ¿, »α¿óÑñÑ¡¡«⌐ ¡¿ªÑ.
  1606.  
  1607.                  !~~~~~~~~!~~~~~~~~!~~~~~~~~~~!
  1608.                  ! µÑ½«Ñ1 ! µÑ½«Ñ2 ! ¬«ñ Σπ¡¬ !
  1609.                  !--------!--------!----------!
  1610.                  !    0   !    0   !     8    !
  1611.                  !--------!--------!----------!
  1612.                  !    0   !    1   !     4    !
  1613.                  !--------!--------!----------!
  1614.                  !    1   !    0   !     2    !
  1615.                  !--------!--------!----------!
  1616.                  !    1   !    1   !     1    !
  1617.                  !________1________!__________!
  1618.  
  1619. Káªñδ⌐ í¿Γ <µÑ½«ú«1> íÑαÑΓß∩ ß«ó¼ÑßΓ¡« ß ß««ΓóÑΓßΓóπεΘ¿¼ í¿Γ«¼ <µÑ½«ú«2>,
  1620. ¿ »«¼ÑΘáÑΓß∩ ó «ñ¡π ¿º ßΓ᫬ Γáí½¿µδ ¿ßΓ¿¡¡«ßΓ¿. é ºáó¿ß¿¼«ßΓ¿ «Γ ¬«ñá
  1621. Σπ¡¬µ¿¿, ßΓ«∩ΘÑú« ó φΓ«⌐ ßΓ᫬Ñ, αѺπ½∞Γ¿απεΘ¿⌐ í¿Γ íπñÑΓ ½¿í« 0 ½¿í« 1.
  1622. àß½¿ ó <Σπ¡¬µ¿¿> πßΓá¡«ó½Ñ¡ »«ñσ«ñ∩Θ¿⌐ í¿Γ, αѺπ½∞Γ¿απεΘ¿⌐ í¿Γ - 1,
  1623. ¿¡áτÑ - 0.
  1624.  
  1625. HѬ«Γ«αδÑ º¡áτÑ¡¿∩ <Σπ¡¬µ¿¿> φ¬ó¿óá½Ñ¡Γ¡δ ßΓá¡ñáαΓ¡δ¼ üπ½Ñóδ¼ «»Ñαᵿ∩¼
  1626. ê, êïê, ¿ß¬½ετáεΘѼπ êïê, Hà:
  1627.  
  1628.  
  1629.  
  1630.  
  1631.                            - 30 -
  1632.  
  1633.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1634.  
  1635.  
  1636.  
  1637.          !~~~~~~!~~~~~~~~~~~!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  1638.          ! öπ¡¬ ! Ä»Ñαᵿ∩  !     ÉѺπ½∞Γ¿απεΘ¿⌐ í¿Γ 1, Ñß½¿...    !
  1639.          !------!-----------!--------------------------------------!
  1640.          !   1  !     ê     ! «íá í¿Γá αáó¡δ 1                     !
  1641.          !------!-----------!--------------------------------------!
  1642.          !   6  ! ¿ß¬½. êïê ! Γ«½∞¬« «ñ¿¡ ¿º ñóπσ í¿Γ«ó αáóÑ¡ 1    !
  1643.          !------!-----------!--------------------------------------!
  1644.          !   7  !    êïê    ! ¬áªñδ⌐ ¿½¿ «íá í¿Γá αáó¡δ 1          !
  1645.          !------!-----------!--------------------------------------!
  1646.          !   8  !    Hà     ! «íá í¿Γá αáó¡δ 0 (ñ«»«½¡Ñ¡¿Ñ ñ« 1)   !
  1647.          !______!___________!______________________________________!
  1648.  
  1649. Há»α¿¼Ñα:
  1650.  
  1651.     (Boole 1 12 5)
  1652.  
  1653. ºáñáÑΓ ½«ú¿τÑ߬«Ñ ê º¡áτÑ¡¿⌐ 12 ¿ 5. ÉѺπ½∞ΓáΓ 4. Å«ñ«í¡«:
  1654.  
  1655.     (Boole 6 6 5)
  1656.  
  1657. ºáñáÑΓ ½«ú¿τÑ߬«Ñ ¿ß¬½ετáεΘÑÑ êïê º¡áτÑ¡¿⌐ 6 ¿ 5, ó«ºóαáΘá∩ 3.
  1658.  
  1659. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ñαπú¿Ñ º¡áτÑ¡¿∩ <Σπ¡¬µ¿¿> ñ½∩ ºáñá¡¿∩ ñαπú¿σ
  1660. üπ½Ñóδσ «»Ñαᵿ⌐, ¡Ñ ¿¼ÑεΘ¿σ ßΓá¡ñáαΓ¡δσ ¿¼Ñ¡. Há»α¿¼Ñα, Ñß½¿ <Σπ¡¬µ¿∩>
  1661. ºáñá¡á τ¿ß½«¼ 4, αѺπ½∞Γ¿απεΘ¿⌐ í¿Γ ºáñáÑΓß∩, Ñß½¿ ß««ΓóÑΓßΓóπεΘ¿⌐ í¿Γ
  1662. πßΓá¡«ó½Ñ¡ ó áαúπ¼Ñ¡ΓÑ <µÑ½«Ñ2>, á ¡Ñ ó <µÑ½«Ñ1>. Æá¬:
  1663.  
  1664.     (Boole 4 3 14)
  1665.  
  1666. ó«ºóαáΓ¿Γ 12.
  1667.  
  1668.     4.27 (boundp <áΓ«¼>)
  1669.  
  1670. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ - Æ, Ñß½¿ <áΓ«¼> ¿¼ÑÑΓ ¡Ñ¬«Γ«α«Ñ º¡áτÑ¡¿Ñ (ó
  1671. Φ¿α«¬«¼ ß¼δß½Ñ). àß½¿ <áΓ«¼> ¡Ñ ¿¼ÑÑΓ ¡¿¬á¬«ú« º¡áτÑ¡¿∩, ¿½¿ αáóÑ¡ nil,
  1672. ó«ºóαáΘáÑΓß∩ nil. Há»α¿¼Ñα, ñ«»πßΓ¿¼:
  1673.  
  1674.      (setq a 2)
  1675.      (setq b nil)
  1676.  
  1677. Γ«úñá:
  1678.  
  1679.     (boundp 'a)         ó«ºóαáΘáÑΓ     T
  1680.     (boundp 'b)         ó«ºóαáΘáÑΓ     nil
  1681.  
  1682.     4.28 caar, cadr, cddr, cadar, ¿ Γ.ñ.
  1683.  
  1684. AutoLISP ß«ñÑαª¿Γ ßµÑ»½Ñ¡¿∩ Σπ¡¬µ¿⌐ CAR ¿ CDR, ó»½«Γ∞ ñ« 4 πα«ó¡∩
  1685. ú½πí¿¡δ. Há»α¿¼Ñα, ñ«»πßΓ¿¼:
  1686.  
  1687.      (setq x '((a b) c d))
  1688.  
  1689. Γ«úñá:
  1690.  
  1691.      (caar x)   φ¬ó¿óá½Ñ¡Γ¡«   (car (car x))        ó«ºóαáΘáÑΓ  A
  1692.      (cdar x)   φ¬ó¿óá½Ñ¡Γ¡«   (cdr (car x))        ó«ºóαáΘáÑΓ  (B)
  1693.      (cadar x)  φ¬ó¿óá½Ñ¡Γ¡«   (car (cdr (car x)))  ó«ºóαáΘáÑΓ  B
  1694.      (cadr x)   φ¬ó¿óá½Ñ¡Γ¡«   (car (cdr x))        ó«ºóαáΘáÑΓ  C
  1695.      (cddr x)   φ¬ó¿óá½Ñ¡Γ¡«   (cdr (cdr x))        ó«ºóαáΘáÑΓ  (D)
  1696.      (caddr x)  φ¬ó¿óá½Ñ¡Γ¡«   (car (cdr (cdr x)))  ó«ºóαáΘáÑΓ  D
  1697.  
  1698.  
  1699.  
  1700.  
  1701.                            - 31 -
  1702.  
  1703.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1704.  
  1705.  
  1706.  
  1707. é AutoLISPÑ CADR τáßΓ« ¿ß»«½∞ºπÑΓß∩ ñ½∩ "¿ºó½ÑτÑ¡¿∩" ¬««αñ¿¡áΓδ
  1708. Y 2-σ ¼Ñα¡«⌐ ¿ 3-σ ¼Ñα¡«⌐ Γ«τ¬¿ (óΓ«α«⌐ φ½Ñ¼Ñ¡Γ ß»¿ß¬á, ß«ßΓ«∩ΘÑú« ¿º
  1709. 2-σ ¿½¿ 3-σ ¡áΓπαá½∞¡δσ τ¿ßѽ). Æ«τ¡« ΓᬠªÑ CADDR ¿ß»«½∞ºπÑΓß∩ ñ½∩
  1710. "¿ºó½ÑτÑ¡¿∩" ¬««αñ¿¡áΓδ Z 3-σ ¼Ñα¡«⌐ Γ«τ¬¿. Há»α¿¼Ñα, ñá¡«:
  1711.  
  1712.      (setq pt2 '(5.2 1.0))         (2-σ ¼Ñα¡á∩ Γ«τ¬á)
  1713.      (setq pt3 '(5.2 1.0 3.0))     (3-σ ¼Ñα¡á∩ Γ«τ¬á)
  1714.  
  1715. Γ«úñá:
  1716.  
  1717.      (car pt2)            ó«ºóαáΘáÑΓ     5.200000
  1718.      (cadr pt2)           ó«ºóαáΘáÑΓ     1.000000
  1719.      (caddr pt2)          ó«ºóαáΘáÑΓ     nil
  1720.      (car pt3)            ó«ºóαáΘáÑΓ     5.200000
  1721.      (cadr pt3)           ó«ºóαáΘáÑΓ     1.000000
  1722.      (caddr pt3)          ó«ºóαáΘáÑΓ     3.000000
  1723.  
  1724.     4.29 (car <ß»¿ß«¬>)
  1725.  
  1726. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ <ß»¿ß¬á>. àß½¿ ß»¿ß«¬ »πßΓ,
  1727. ó«ºóαáΘáÑΓß∩ nil. Há»α¿¼Ñα:
  1728.  
  1729.     (car '(a b c))       ó«ºóαáΘáÑΓ     A
  1730.     (car '((a b) c))     ó«ºóαáΘáÑΓ     (A B)
  1731.     (car '())            ó«ºóαáΘáÑΓ     nil
  1732.  
  1733.  
  1734. lsp-4-3
  1735.  
  1736.     4.30 (cdr <ß»¿ß«¬> )
  1737.  
  1738. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ óßÑ φ½Ñ¼Ñ¡Γδ <ß»¿ß¬á>, ¬α«¼Ñ »Ñαó«ú«. àß½¿
  1739. <ß»¿ß«¬> »πßΓ, ó«ºóαáΘáÑΓß∩ nil.
  1740.  
  1741.     (cdr '(a b c))      ó«ºóαáΘáÑΓ     (B C)
  1742.     (cdr '((a b) c))    ó«ºóαáΘáÑΓ     (C)
  1743.     (cdr '())           ó«ºóαáΘáÑΓ     nil
  1744.  
  1745. K«úñá áαúπ¼Ñ¡Γ«¼ <ß»¿ß¬á> ∩ó½∩ÑΓß∩ Γ«τÑτ¡á∩ »áαá (ß¼«Γα¿ΓÑ CONS, ¡¿ªÑ),
  1746. CDR ó«ºóαáΘáÑΓ óΓ«α«⌐ φ½Ñ¼Ñ¡Γ, ¡Ñ ºá¬½ετá∩ Ñú« ó ß»¿ß«¬.
  1747.  
  1748.     (cdr '(a . b))      ó«ºóαáΘáÑΓ     B
  1749.     (cdr '(1 . "Text")) ó«ºóαáΘáÑΓ     "Text"
  1750.  
  1751.     4.31 (chr <τ¿ß½«>)
  1752.  
  1753. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »αÑ«íαẫóá¡¡¿Ñ µÑ½«ú« τ¿ß½á ó ß¿¼ó«½∞¡δ⌐ ¬«ñ ASCII
  1754. ¿ αѺπ½∞ΓáΓ«¼ ∩ó½∩ÑΓß∩ ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá, (»«ñ«í¡δ¼ «íαẫ¼ ñÑ⌐ßΓóπÑΓ
  1755. Σπ¡¬µ¿∩ CHR$ ó ∩φδ¬Ñ üÑ⌐ß¿¬). Há»α¿¼Ñα:
  1756.  
  1757.     (chr 65)            ó«ºóαáΘáÑΓ     "A"
  1758.     (chr 66)            ó«ºóαáΘáÑΓ     "B"
  1759.     (chr 97)            ó«ºóαáΘáÑΓ     "a"
  1760.  
  1761.  
  1762.  
  1763.  
  1764.  
  1765.                            - 32 -
  1766.  
  1767.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1768.  
  1769.  
  1770.     4.32 (close <«»¿ßáΓѽ∞ Σá⌐½á>)
  1771.  
  1772. ¥Γá Σπ¡¬µ¿∩ ºá¬αδóáÑΓ Σá⌐½ ¿ ó«ºóαáΘáÑΓ nil. <Ä»¿ßáΓѽ∞ Σá⌐½á> ¿ºó½Ñ¬á-
  1773. ÑΓß∩ ¿º Σπ¡¬µ¿¿ OPEN. Å«ß½Ñ óδ»«½¡Ñ¡¿∩ CLOSE «»¿ßáΓѽ∞ Σá⌐½á «ßΓáÑΓß∩
  1774. ¡Ñ¿º¼Ñ¡¡δ¼, ¡« ñá½ÑÑ ¡Ññ«»πßΓ¿¼δ¼.
  1775.  
  1776. Há»α¿¼Ñα, »αÑñ»«½«ª¿¼, τΓ« ò ñ«»πßΓ¿¼δ⌐ Σá⌐½«óδ⌐ «»¿ßáΓѽ∞ «Γ¬αδΓ«ú«
  1777. Σá⌐½á,
  1778.  
  1779.     (close x)
  1780.  
  1781. ºá¬α«ÑΓ ß««ΓóÑΓßΓóπεΘ¿⌐ Σá⌐½ ¿ ó«ºóαáΓ¿Γ nil.
  1782.  
  1783.     4.33 (command <áαúπ¼Ñ¡Γ>...)
  1784.  
  1785. ¥Γá Σπ¡¬µ¿∩ óδ»«½¡∩ÑΓ ¬«¼á¡ñδ AutoCADá ó AutoLISPÑ ¿ óßÑúñá ó«ºóαáΘáÑΓ
  1786. nil. Çαúπ¼Ñ¡Γδ »αÑñßΓáó½∩εΓ ß«í«⌐ ¬«¼á¡ñδ AutoCADá ¿ ¿σ »«ñ¬«¼á¡ñδ;
  1787. ¬áªñδ⌐ áαúπ¼Ñ¡Γ óδτ¿ß½∩ÑΓß∩ ¿ »«ßδ½áÑΓß∩ ó AutoCAD, ¬á¬ «ΓóÑΓ ¡á ß««ΓóÑΓ-
  1788. ßΓóπεΘ¿⌐ ºá»α«ß. K«¼á¡ñ¡δÑ ¿¼Ñ¡á ¿ «»µ¿¿ »αÑñßΓáó½∩εΓß∩ ¬á¬ ßΓ᫬«óδÑ
  1789. ¬«¡ßΓá¡Γδ, 2-σ ¼Ñα¡δÑ Γ«τ¬¿ - ¬á¬ ß»¿ß¬¿ ¿º 2-σ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ, ¿
  1790. 3-σ ¼Ñα¡δÑ Γ«τ¬¿ - ¬á¬ ß»¿ß¬¿ ¿º 3-σ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ. K«¼á¡ñ¡δÑ
  1791. ¿¼Ñ¡á ó«ß»α¿¡¿¼áεΓß∩ AutoCAD«¼ Γ«½∞¬« »«ß½Ñ »«ñ߬Ậ¿ "Command:"
  1792. /¬«¼á¡ñá:/.
  1793. Há»α¿¼Ñα:
  1794.  
  1795.     (setq pt1 '(1.45 3.23))
  1796.     (setq pt2 (getpoint "Enter a point: "))
  1797.     (command "line" pt1 pt2)
  1798.     (command "")
  1799.  
  1800. àß½¿ ñ«»πßΓ¿Γ∞, τΓ« »«ñ߬Ậá "Command:" ßπΘÑßΓóπÑΓ, Γ« ºá»¿ßá¡¡δÑ óδΦÑ
  1801. óδαáªÑ¡¿∩ πßΓá¡áó½¿óáεΓ º¡áτÑ¡¿∩ ñ½∩ Γ«τ¬¿ "pt1", ºá»αáΦ¿óáεΓ π éáß Γ«τ¬π
  1802. "pt2" ¿ óδ»«½¡∩εΓ ¬«¼á¡ñπ AutoCADá LINE »« ñóπ¼ ºáñá¡¡δ¼ Γ«τ¬á¼.
  1803. Çαúπ¼Ñ¡Γδ Σπ¡¬µ¿¿ COMMAND ¼«úπΓ íδΓ∞ ßΓ᫬«ó묨 ¬«¡ßΓá¡ΓἿ,
  1804. ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿ τ¿ß½á¼¿, µÑ½δ¼¿ ¿½¿ Γ«τ¬á¼¿, Γ« ÑßΓ∞ Γᬿ¼¿, ¬á¬¿Ñ
  1805. «ª¿ñáÑΓ »«½πτ¿Γ∞ «Γ éáß óδ»«½¡∩Ѽá∩ ¬«¼á¡ñá ó «ΓóÑΓ ¡á ÑÑ ºá»α«ßδ. ÅπßΓá∩
  1806. ßΓ᫬á ("") αáó¡«ß¿½∞¡á ¡áªáΓ¿ε »α«íѽᠡᠬ½áó¿áΓπαÑ. é맮ó COMMAND íѺ
  1807. áαúπ¼Ñ¡Γá αáó¡«ß¿½Ñ¡ ¡áªáΓ¿ε CTRL C  ¡á ¬½áó¿áΓπαÑ, ¿ »αÑαδóáÑΓ í«½∞Φ¿¡-
  1808. ßΓó« ¬«¼á¡ñ AutoCADá.
  1809.  
  1810.     K«¼á¡ñδ, óδ»«½¡∩ѼδÑ Σπ¡¬µ¿Ñ⌐ COMMAND ¡Ñ ¿¼ÑÑεΓ φσá ¡á φ¬αá¡Ñ, Ñß½¿
  1811. »ÑαѼѡ¡á∩ AutoCADá CMDECHO (ñ«ßΓπ»¡á ¿º Σπ¡¬µ¿⌐ SETVAR ¿ GETVAR )
  1812. πßΓá¡«ó½Ñ¡á αáó¡«⌐ ¡π½ε. öπ¡¬µ¿∩ COMMAND - «ß¡«ó¡«⌐ ¼ÑΓ«ñ ñ«ßΓπ»á ¿º
  1813. AutoLISPá ¬ ¬«¼á¡ñá¼ AutoCADá.
  1814.  
  1815.     ==================================================================
  1816.  
  1817.      éó«ñ¿¼δÑ »«½∞º«óáΓѽѼ Σπ¡¬µ¿¿ "GETxxx" (GETANGLE,GETSTRING,
  1818.      GETINT,GETPOINT ¿ Γ.ñ.) ¡Ñ ¼«úπΓ íδΓ∞ ó½«ªÑ¡¡δ¼¿
  1819.      ó Σπ¡¬µ¿¿ COMMAND. Å«»δΓ¬á ßñѽáΓ∞ φΓ« ó맮óÑΓ ß««íΘÑ¡¿Ñ
  1820.      "error: AutoCAD rejected function" («Φ¿í¬á: ¡ÑóÑα¡á∩ ¬«¼á¡ñá
  1821.      AutoCADá) ¿ ó맮óÑΓ áóáα¿⌐¡δ⌐ «ßΓá¡«ó óδ»«½¡Ñ¡¿∩ Σπ¡¬µ¿¿.
  1822.      Åα¿ ¡Ñ«íσ«ñ¿¼«ßΓ¿, ºáñáóá⌐ΓÑ Σπ¡¬µ¿¿ GETxxx ºáαá¡ÑÑ ¿½¿
  1823.      »«¼ÑΘá⌐ΓÑ ¿σ ¼Ñªñπ ß¼Ñª¡δ¼¿ Σπ¡¬µ¿∩¼¿ COMMAND.
  1824.  
  1825.      K«¼á¡ñδ AutoCADá DTEXT ¿ SKETCH ßτ¿ΓδóáεΓ ¿¡Σ«α¼áµ¿ε
  1826.      ¡Ñ»«ßαÑñßΓóÑ¡¡« ß ¬½áó¿áΓπαδ ¿ ñ¿ú¿Γá⌐ºÑαá ¿ »«φΓ«¼π ¡Ñ ¼«úπΓ
  1827.  
  1828.  
  1829.  
  1830.  
  1831.                            - 33 -
  1832.  
  1833.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1834.  
  1835.  
  1836.      ¿ß»«½∞º«óáΓ∞ß∩ ß Σπ¡¬µ¿Ñ⌐ AutoLISP COMMAND. ÆᬪѠ¡Ñ½∞º∩
  1837.      ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿ε COMMAND ñ½∩ óδ»«½¡Ñ¡¿∩ ¬«¼á¡ñ PLOT,
  1838.      PRPLOT ¿½¿ SCRIPT.
  1839.  
  1840.     ==================================================================
  1841.  
  1842.      ÅαÑαδóá¡¿Ñ ñ½∩ óó«ñá ¿¡Σ«α¼áµ¿¿ »«½∞º«óáΓѽѼ
  1843.  
  1844. àß½¿ óδ»«½¡∩ÑΓß∩ ¬«¼á¡ñá AutoCADá ¿ ó ßΓα«¬Ñ áαúπ¼Ñ¡Γ«ó óßΓαÑτáÑΓß∩
  1845. ß¿¼ó«½ PAUSE, Γ« Σπ¡¬µ¿∩ COMMAND »α¿«ßΓá¡«ó¿Γ ßó«Ñ ñÑ⌐ßΓó¿Ñ, τΓ«íδ
  1846. »«½∞º«óáΓѽ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡ óóѽ º¡áτÑ¡¿Ñ (¿½¿ »α«¿ºóѽ «Γ߽Ѫ¿óá¡¿Ñ
  1847. φ½Ñ¼Ñ¡Γá τÑαΓѪá). ¥Γ« »«σ«ªÑ ¡á ¼Ñσá¡¿º¼ »áπºδ (ß »«¼«Θ∞ε backslash "\"),
  1848. ßπΘÑßΓóπεΘ¿⌐  ñ½∩ ¼Ñ¡ε.
  1849.  
  1850.     àß½¿ óδ ¿ß»«½∞ºπÑΓÑ "»α«ºαáτ¡πε" ¬«¼á¡ñπ ó ¼«¼Ñ¡Γ »α¿«ßΓá¡«óá
  1851. Σπ¡¬µ¿¿ COMMAND, Σπ¡¬µ¿∩ COMMAND «ßΓáÑΓß∩ ó ß«ßΓ«∩¡¿¿ »áπºδ ñ« ºáóÑ-
  1852. αΦÑ¡¿∩ "»α«ºαáτ¡«⌐" ¬«¼á¡ñδ, »«ß½Ñ τÑú« óÑα¡ÑΓß∩ ¬ ¡«α¼á½∞¡«¼π óδ»«½-
  1853. ¡Ñ¡¿ε. Æᬿ¼ «íαẫ¼ óδ ¼«ªÑΓÑ ó »Ñα¿«ñ »áπºδ Σπ¡¬µ¿¿ COMMAND ¿ß»«½∞-
  1854. º«óáΓ∞ ¬«¼á¡ñδ 'ZOOM' ¿ 'PAN' ¿½¿ ½εíδÑ ¡Ñ«íσ«ñ¿¼δÑ éá¼ "»α«ºαáτ¡δÑ"
  1855. ¬«¼á¡ñδ. Åáπºá íπñÑ »α«ñ«½ªáΓ∞ß∩ ñ« ΓÑσ »«α, »«¬á ¡Ñ íπñÑΓ óóÑñÑ¡
  1856. ¿¼ÑεΘ¿⌐ ß¿½π áαúπ¼Ñ¡Γ ¿ »«¬á ¡Ñ óδ»«½¡∩Γ∞ß∩ óßÑ "»α«ºαáτ¡δÑ" ¬«¼á¡ñδ.
  1857. Há»α¿¼Ñα:
  1858.  
  1859.         (command "circle" "5,5" pause "line" "5,5" "7,5" "")
  1860.  
  1861. ¡áτ¿¡áÑΓß∩ ¬«¼á¡ñá CIRCLE, πßΓá¡áó½¿óáεΘá∩ µÑ¡Γα ¬απúá ó Γ«τ¬π 5,5, ¿
  1862. ºáΓѼ »αÑαδóÑΓß∩, ñáóá∩ ó«º¼«ª¡«ßΓ∞ »«½∞º«óáΓÑ½ε ºáñáΓ∞ αáñ¿πß ¬απúá,
  1863. ¡á»α¿¼Ñα, ¼ÑΓ«ñ«¼ ß½ÑªÑ¡¿∩. Å«ß½Ñ Γ«ú« ¬á¬ »«½∞º«óáΓѽ∞ π¬áªÑΓ ªÑ½áѼπε
  1864. Γ«τ¬π ¿½¿ ¡áíÑαÑΓ ß ¬½áó¿áΓπαδ ªÑ½áѼδ⌐ αáñ¿πß, Σπ¡¬µ¿∩ ó«ºóαáΓ¿Γß∩ ¬
  1865. ßó«Ñ¼π ¡«α¼á½∞¡«¼π óδ»«½¡Ñ¡¿ε ¿ ¿º«íαáº¿Γ «ΓαѺ«¬ ¿º Γ«τ¬¿ 5,5 ó Γ«τ¬π
  1866. 7,5.
  1867.  
  1868.     éó«ñ ß »«¼«Θ∞ε ¼Ñ¡ε ¡Ñ ¿ß¬½ετáÑΓß∩ »áπº«⌐ AutoLISPá. àß½¿
  1869. á¬Γ¿ó¿º¿α«óá¡« ¼Ñ¡ε ¿ Σπ¡¬µ¿∩ COMMAND ΓαÑíπÑΓ óó«ñá, ¡áσ«ñ∩ß∞ ó »áπºÑ,
  1870. ºá»α«ß ¼«ªÑΓ íδΓ∞ πñ«ó½ÑΓó«αÑ¡ ß »«¼«Θ∞ε ¼Ñ¡ε. àß½¿ óδ σ«Γ¿ΓÑ ΓᬪÑ
  1871. »α¿«ßΓá¡«ó¿Γ∞ ñÑ⌐ßΓó¿Ñ ¼Ñ¡ε, ó ¼Ñ¡ε ß½ÑñπÑΓ »αÑñπß¼«ΓαÑΓ∞ backslash.
  1872. K«úñá íπñÑΓ ñá¡ ¿¼ÑεΘ¿⌐ ß¿½π «ΓóÑΓ, ¿ Σπ¡¬µ¿∩ COMMAND ¿ Σπ¡¬µ¿∩ ¼Ñ¡ε
  1873. ó«º«í¡«ó∩Γ ßó«ε αáí«Γπ.
  1874.  
  1875. çÇîàùÇHêƒ:
  1876.  
  1877.      1. æ¿¼ó«½ PAUSE ∩ó½∩ÑΓß∩ ßΓ᫬«ó«⌐ ¬«¡ßΓá¡Γ«⌐ ß« º¡áτÑ¡¿Ñ¼ backslash.
  1878.         éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ backslash ¡Ñ»«ßαÑñßΓóÑ¡¡« ó¼ÑßΓ« ß¿¼ó«½á
  1879.         PAUSE, «ñ¡á¬« Ñß½¿ Σπ¡¬µ¿∩ COMMAND ¿ß»«½ºπÑΓß∩ ¬á¬ φ½Ñ¼Ñ¡Γ ¼Ñ¡ε,
  1880.         Γ« backslash íπñÑΓ ó«ß»α¿¡¿¼áΓ∞ß∩ ¡Ñ ¬á¬ áαúπ¼Ñ¡Γ Σπ¡¬µ¿¿ COMMAND,
  1881.         ¡« ¬á¬ «»µ¿∩ φ½Ñ¼Ñ¡Γᠼѡε, ¬«Γ«αδ⌐ óδ»«½¡∩ÑΓß∩ ó ΓѬπΘ¿⌐ ¼«¼Ñ¡Γ.
  1882.         Kα«¼Ñ Γ«ú« ¼Ñσá¡¿º¼ »αÑαδóá¡¿∩ ¼«ªÑΓ ºá»αáΦ¿óáΓ∞ αẽ¿τ¡δÑ
  1883.         π»αáó½∩εΘ¿Ñ º¡áτÑ¡¿∩ ó »«ß½ÑñπεΘ¿σ óÑαß¿∩σ AutoLISPá, »«φΓ«¼π ¼δ
  1884.         αѬ«¼Ñ¡ñπѼ ó« óßÑσ ß½πτá∩σ »«½∞º«óáΓ∞ß∩ ß¿¼ó«½«¼ PAUSE ó¼ÑßΓ«
  1885.         backslash.
  1886.  
  1887.      2. àß½¿ PAUSE óßΓαÑτáÑΓß∩ ó ¬«¼á¡ñÑ, ΓαÑíπεΘÑ⌐ óó«ñá ΓѬßΓá ¿½¿
  1888.         º¡áτÑ¡¿∩ ÇΓα¿íπΓá, AutoCAD »αÑαóÑΓß∩ ñ½∩ óó«ñá Γ«½∞¬« Ñß½¿ º¡áτÑ¡¿Ñ
  1889.         ß¿ßΓѼ¡«⌐ »ÑαѼѡ¡«⌐ TEXTEVAL ¡Ñ αáó¡« ¡π½ε. é»α«Γ¿ó¡«¼ ß½πτáÑ
  1890.         º¡áτÑ¡¿Ñ ß¿¼ó«½á PAUSE - backslash íπñÑΓ ó«ß»α¿¡∩Γ« ¬á¬ ΓѬßΓ ¿
  1891.         »αÑαδóá¡¿∩ ñ½∩ óó«ñá ¡Ñ »α«¿º«⌐ñÑΓ.
  1892.  
  1893.  
  1894.  
  1895.  
  1896.                            - 34 -
  1897.  
  1898.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1899.  
  1900.  
  1901.  
  1902.      3. K«úñá óδ»«½¡Ñ¡¿Ñ Σπ¡¬µ¿¿ COMMAND »αÑαóá¡« ñ½∩ óó«ñá, Σπ¡¬µ¿∩
  1903.        ¡áσ«ñ¿Γß∩ ó ß«ßΓ«∩¡¿¿ "active" /¡á óδ»«½¡Ñ¡¿¿/, »«φΓ«¼π »«½∞º«óá-
  1904.        Γѽ∞ ¡Ñ ¼«ªÑΓ óó«ñ¿Γ∞ ñ½∩ óδ»«½¡Ñ¡¿∩ ñαπú¿Ñ óδαáªÑ¡¿∩ AutoLISPá.
  1905.  
  1906.     4.34 (cond (<ΓÑßΓ1> <αѺπ½∞ΓáΓ>...)...)
  1907.  
  1908. ¥Γá Σπ¡¬µ¿∩ ó«ß»α¿¡¿¼áÑΓ ½εí«Ñ τ¿ß½« ß»¿ß¬«ó ¬á¬ áαúπ¼Ñ¡Γδ. Ä¡á
  1909. «µÑ¡¿óáÑΓ »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ ß»¿ß¬á (»« «τÑαÑñ¿) ñ« ΓÑσ »«α, »«¬á ¡Ñ
  1910. óßΓαÑΓ¿Γß∩ «Γ½¿τ¡δ⌐ «Γ nil. çáΓѼ óδτ¿ß½∩ÑΓß∩ Γ« óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ
  1911. ß½ÑñπÑΓ ºá ΓÑßΓ«¼ ¿ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ »«ß½Ññ¡Ñú« óδαáªÑ¡¿∩ ó »«ñß»¿ß¬Ñ.
  1912. àß½¿ ó »«ñß»¿ß¬Ñ Γ«½∞¬« «ñ¡« óδαáªÑ¡¿Ñ (¡á»α¿¼Ñα, <αѺπ½∞ΓáΓ>
  1913. «ΓßπΓßΓóπÑΓ), ó«ºóαáΘáÑΓß∩ º¡áτÑ¡¿Ñ óδαáªÑ¡¿∩ <ΓÑßΓ>. COND - «ß¡«ó¡á∩
  1914. Σπ¡¬µ¿∩ πß½«ó¿∩ ó AutoLISPÑ.
  1915.  
  1916. Há»α¿¼Ñα, ¿ß»«½∞º«óá¡¿Ñ Σπ¡¬µ¿¿ COND ñ½∩ óδτ¿ß½Ñ¡¿∩ áíß«½εΓ¡«ú« º¡áτÑ¡¿∩
  1917. τ¿ß½á:
  1918.  
  1919.                    (cond ((minusp a) (- a))
  1920.                          (t a)
  1921.                    )
  1922.  
  1923. àß½¿ ó "á" í佫 πßΓá¡«ó½Ñ¡¡« º¡áτÑ¡¿Ñ -10, íπñÑΓ ó«ºóαáΘÑ¡« 10. Ká¬
  1924. ó¿ñ¡«, COND ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ¬á¬ Σπ¡¬µ¿∩ Γ¿»á "case" /ó ß½πτáÑ.../.
  1925. Åα¿¡∩Γ« ó ¬áτÑßΓóÑ »«ß½Ññ¡Ñú« (»«-π¼«½τá¡¿ε) óδαáªÑ¡¿∩ <ΓÑßΓ> ¿ß»«½∞-
  1926. º«óáΓ∞ ß¿¼ó«½ T. àΘÑ «ñ¿¡ »α«ßΓ«⌐ »α¿¼Ñα. çáñáóá∩ ºá»α«ß »«½∞º«óáΓѽ∩
  1927. ó ß¿¼ó«½ "s", φΓá Σπ¡¬µ¿∩ »α«óÑα∩ÑΓ «ΓóÑΓ ¿ ó«ºóαáΘáÑΓ 1, Ñß½¿ «ΓóÑΓ "
  1928. Y" ¿½¿ "y", á Ñß½¿ «ΓóÑΓ "N" ¿½¿ "n", Γ« 0, ¿¡áτÑ nil.
  1929.  
  1930.                   (cond ((= s "Y") 1)
  1931.                         ((= s "y") 1)
  1932.                         ((= s "N") 0)
  1933.                         ((= s "n") 0)
  1934.                         (t nil)
  1935.                   )
  1936.  
  1937.     4.35 (CONS <¡«óδ⌐ »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ> <ß»¿ß«¬>)
  1938.  
  1939. ¥Γ« «ß¡«ó¡«⌐ ¬«¡ßΓαπ¬Γ«α ß»¿ß¬á. ¥Γá Σπ¡¬µ¿∩ íÑαÑΓ φ½Ñ¼Ñ¡Γ (<¡«óδ⌐
  1940. »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ>) ¿ <ß»¿ß«¬>, ¿ ó«ºóαáΘáÑΓ ß»¿ß«¬ ß ñ«íáó½Ñ¡¡δ¼ φ½Ñ¼Ñ¡Γ«¼
  1941. ó ¡áτὫ ß»¿ß¬á. Há»α¿¼Ñα:
  1942.  
  1943.              (cons 'a '(b c d))           ó«ºóαáΘáÑΓ     (A B C D)
  1944.              (cons '(a) '(b c d))         ó«ºóαáΘáÑΓ     ((A) B C D)
  1945.  
  1946. çá¼ÑΓ¿¼, τΓ« »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ ¼«ªÑΓ íδΓ∞ áΓ«¼«¼ ¿½¿ ß»¿ß¬«¼.
  1947.  
  1948. CONS ΓᬠªÑ ó«ß»α¿¡¿¼áÑΓ áΓ«¼ ¡á ¼ÑßΓÑ áαúπ¼Ñ¡Γá <ß»¿ß¬á>, ¬«¡ßΓαπ¿απ∩
  1949. ßΓαπ¬Γπαπ, ¿ºóÑßΓ¡πε ¬á¬ Γ«τÑτ¡á∩ »áαá. Å«¬áºδóá∩ Γ«τÑτ¡πε »áαπ ¡á φ¬αá¡Ñ,
  1950. AutoLISP  »ÑτáΓáÑΓ Γ«τ¬π ¼Ñªñπ »Ñαóδ¼ ¿ óΓ«αδ¼ φ½Ñ¼Ñ¡ΓἿ. Æ«τÑτ¡δÑ »áαδ
  1951. ºá¡¿¼áεΓ ¼Ñ¡∞ΦÑ ¼ÑßΓá ó »á¼∩Γ¿, τѼ «íδτ¡δÑ ß»¿ß¬¿ ¿ ¼«ª¡« ¿ß»«½∞º«óáΓ∞
  1952. Σπ¡¬µ¿ε CDR ñ½∩ ¿ºó½ÑτÑ¡¿∩ óΓ«α«ú« áΓ«¼á.
  1953.  
  1954.              (cons 'a 'b)                 ó«ºóαáΘáÑΓ     (A . B)
  1955.              (car (cons 'a 'b))           ó«ºóαáΘáÑΓ     A
  1956.              (cdr (cons 'a 'b))           ó«ºóαáΘáÑΓ     B
  1957.  
  1958.  
  1959.  
  1960.  
  1961.                            - 35 -
  1962.  
  1963.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  1964.  
  1965.  
  1966.  
  1967.     4.36 (cos <πú«½>)
  1968.  
  1969. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¬«ß¿¡πß <πú½á>, úñÑ <πú«½> - óδαáªáÑß∩ ó
  1970. αáñ¿á¡áσ. Há»α¿¼Ñα:
  1971.  
  1972.              (cos 0.0)                    ó«ºóαáΘáÑΓ     1.000000
  1973.              (cos pi)                     ó«ºóαáΘáÑΓ     -1.000000
  1974.  
  1975.     4.37 (defun <ß¿¼ó«½> <ß»¿ß«¬ áαúπ¼Ñ¡Γ«ó> <óδαáªÑ¡¿Ñ>...)
  1976.  
  1977. DEFIN - «»αÑñѽ∩ÑΓ Σπ¡¬µ¿ε ß ¿¼Ñ¡Ñ¼ <ß¿¼ó«½> (ºá¼ÑΓ¿¼, τΓ« ¿¼∩
  1978. Σπ¡¬µ¿¿ áóΓ«¼áΓ¿τÑ߬¿ íÑαÑΓß∩ ó ¬áóδτ¬¿  ¿ »«φΓ«¼π ¡Ñ ΓαÑíπÑΓß∩ φΓ«ú«
  1979. ñѽáΓ∞ ßἫ¼π). ê¼∩, ß½ÑñπεΘÑÑ ºá Σπ¡¬µ¿Ñ⌐ - φΓ« ß»¿ß¿«¬ áαúπ¼Ñ¡Γ«ó
  1980. (󫺼«ª¡« »πßΓ«⌐), ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ (Σá¬π½∞ΓáΓ¿ó¡«) ¬«ßá∩ τÑαΓá (slach)
  1981. ¿ ¿¼Ñ¡á «ñ¡«ú« ¿½¿ í«½ÑÑ ½«¬á½∞¡δσ ß¿¼ó«½«ó Σπ¡¬µ¿¿. K«ßá∩ τÑαΓá ñ«½ª¡á
  1982. «ΓßΓ«∩Γ∞ «Γ »Ñαó«ú« ½«¬á½∞¡«ú« ß¿¼ó«½á ¿ »«ß½Ññ¡Ñú« áαúπ¼Ñ¡Γá, Ñß½¿ «¡
  1983. ÑßΓ∞, σ«Γ∩ íδ ¡á «ñ¿¡ »α«íѽ. àß½¿ ¡ÑΓ áαúπ¼Ñ¡Γ«ó ¿ ½«¬á½∞¡δσ ß¿¼ó«½«ó,
  1984. ¬«Γ«αδÑ ß½ÑñπÑΓ «í'∩ó½∩Γ∞, ºá ¿¼Ñ¡Ñ¼ Σπ¡¬µ¿¿ ß½ÑñπÑΓ »«ßΓáó¿Γ∞ »πßΓδÑ
  1985. ߬«í¬¿. Há»α¿¼Ñα:
  1986.  
  1987.     (defun myfunc (x y) ... )         (Σπ¡¬µ¿∩ íÑαÑΓ ñóá áαúπ¼Ñ¡Γá)
  1988.     (defun myfunc (/ a d) ... )       (Σπ¡¬µ¿∩ ¿¼ÑÑΓ ñóá ½«¬á½∞¡δσ ß¿¼ó«½á)
  1989.     (defun myfunc (x / temp) ... )    («ñ¿¡ áαúπ¼Ñ¡Γ ¿ «ñ¿¡ ½«¬á½∞¡δ⌐ ß¿¼ó«½)
  1990.     (defun myfunc () ... )            (íѺ áαúπ¼Ñ¡Γ«ó ¿ ½«¬á½∞¡δσ ß¿¼ó«½«ó)
  1991.  
  1992. çá ß»¿ß¬«¼ áαúπ¼Ñ¡Γ«ó ¿ ½«¬á½∞¡δσ ß¿¼ó«½«ó ß½ÑñπÑΓ «ñ¡« ¿½¿ í«½ÑÑ
  1993. óδαáªÑ¡¿⌐, ¬«Γ«αδÑ óδτ¿ß½∩εΓß∩ ó »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ Σπ¡¬µ¿¿.
  1994.  
  1995. æá¼á »« ßÑíÑ Σπ¡¬µ¿∩ DEFUN ó«ºóαáΘáÑΓ ¿¼∩ «»αÑñѽ∩Ѽ«⌐ Σπ¡¬µ¿¿.
  1996. K«úñá Σπ¡¬µ¿∩, «»αÑñѽѡ¡á∩ Γᬿ¼ «íαẫ¼ óδºδóáÑΓß∩, ÑÑ áαúπ¼Ñ¡Γδ
  1997. óδτ¿ß½∩εΓß∩ ¿ ßó∩ºδóáεΓß∩ ó ß»¿ß«¬ áαúπ¼Ñ¡Γ«ó. ï«¬á½∞¡δÑ ß¿¼ó«½δ ¼«úπΓ
  1998. ¿ß»«½∞º«óáΓ∞ß∩ ó¡πΓα¿ Σπ¡¬µ¿¿ íѺ ¿º¼Ñ¡Ñ¡¿∩ ¼σ ßó∩º¿ ¡á ó¡ÑΦ¡¿σ πα«ó¡∩σ.
  1999. öπ¡¬µ¿∩ íπñÑΓ ó«ºóαáΘáΓ∞ αѺπ½∞ΓáΓ »«ß½Ññ¡Ñú« óδτ¿ß½Ñ¡¡«ú« óδαáªÑ¡¿∩.
  2000. éßÑ »αÑñδñπΘ¿Ñ óδαáªÑ¡¿∩ íπñπΓ ¿¼ÑΓ∞ Γ«½∞¬« »«í«τ¡δ⌐ φΣΣѬΓ.
  2001. æá¼á »« ßÑíÑ Σπ¡¬µ¿∩ DEFUN ó«ºóαáΘáÑΓ Γ«½∞¬« ¿¼∩ «»αÑñѽ∩Ѽ«⌐ Σπ¡¬µ¿¿.
  2002. Há»α¿¼Ñα:
  2003.  
  2004.            (defun add10 (x)
  2005.               (+ 10 x)
  2006.            )                         ó«ºóαáΘáÑΓ     ADD10
  2007.            (add10 5)                 ó«ºóαáΘáÑΓ     15
  2008.            (add10 -7.4)              ó«ºóαáΘáÑΓ     2.60000
  2009.  
  2010. ¿:
  2011.  
  2012.            (defun dots (x y / temp)
  2013.               (setq temp (strcat x "..."))
  2014.               (strcat temp y)
  2015.            )                         ó«ºóαáΘáÑΓ     DOTS
  2016.            (dots "a" "b")            ó«ºóαáΘáÑΓ     "a...b"
  2017.            (dots "from" "to")        ó«ºóαáΘáÑΓ     "from...to"
  2018.  
  2019.     =================================================================
  2020.  
  2021.  
  2022.  
  2023.  
  2024.  
  2025.                            - 36 -
  2026.  
  2027.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2028.  
  2029.  
  2030.       H¿¬«úñá ¡Ñ ¿ß»«½∞ºπ⌐ΓÑ ¿¼Ñ¡á óßΓα«Ñ¡¡δσ Σπ¡¬µ¿⌐ ¿½¿ ß¿¼ó«½«ó ¬á¬
  2031.       <c¿¼ó«½>, Γᬠ¬á¬ φΓ« ßñѽáÑΓ ¡Ññ«ßΓπ»¡δ¼¿ óßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿.
  2032.  
  2033.      =================================================================
  2034.  
  2035.     4.37.1 ü¿í½¿«ΓѬá ß¿¼ó«½«ó ¿ ÇóΓ«¼áΓ¿τÑ߬á∩ ºáúαπº¬á.
  2036.  
  2037. Ä»αÑñѽѡ¿∩ Σπ¡¬µ¿⌐ ¼«úπΓ σαá¡¿Γ∞ß∩ ó Σá⌐½áσ ¿ ºáúαπªáΓ∞ß∩ ¿ß»«½∞ºπ∩
  2038. Σπ¡¬µ¿ε LOAD ó AutoLISPe, «»¿ßá¡¡πε ¡¿ªÑ. àß½¿ ßπΘÑßΓóπÑΓ Σá⌐½
  2039. "acad.lsp", Γ« AutoLISP ºáúαπº¿Γ ¿σ áóΓ«¼áΓ¿τÑ߬¿ ¬áªñδ⌐ αẠ¬«úñá íπñÑΓ
  2040. óóÑñÑ¡ ùÑαΓѪ¡δ⌐ αÑñá¬Γ«α AutoCADa. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ φΓ«
  2041. «íßΓ«∩Γѽ∞ßΓó« ñ½∩ ß«ºñá¡¿∩ í¿í½¿«ΓѬ¿ ¿ß»«½∞ºπѼδσ Σπ¡¬µ¿⌐ ¿ íδΓ∞
  2042. πóÑαÑ¡¡δ¼, τΓ« «¡¿ óßÑúñá »«ñ απ¬«⌐, ¬«úñá »«¡áñ«í∩Γ∞ß∩.
  2043.  
  2044. ïεí«⌐ í¿í½¿«ΓÑτ¡δ⌐ ".lsp" Σá⌐½ ¼«ªÑΓ ß«ñÑαªáΓ∞ óδαáªÑ¡¿∩ ó¡Ñ Σπ¡¬µ¿¿
  2045. DEFUN. Æᬿ¼ «íαẫ¼, ºáúαπªá∩ Σá⌐½, óδτ¿ß½∩εΘ¿⌐ ¡Ñ¬«Γ«αδÑ óδαáªÑ¡¿∩,
  2046. ó¬½ετá∩ ¿¼Ñ¡«óá¡¡δÑ Σπ¡¬µ¿¿, éδ ¼«ªÑΓÑ óδ»«½¡∩Γ∞ φΓ¿ óδαáªÑ¡¿∩ ¿ Σπ¡¬µ¿¿
  2047. áóΓ«¼áΓ¿τÑ߬¿, ¬«úñá íδ φëàΣá⌐½ ¡Ñíδ½ ºáúαπªÑ¡. Äñ¡á¬«, ºáúαπº¬á Σá⌐½á
  2048. "acad.lsp" »α«¿ºó«ñ¿Γß∩ ÑΘÑ ñ« »«½¡«⌐ ¿¡¿µ¿á½¿ºáµ¿¿ ùÑαΓѪ¡«ú« ÉÑñá¬Γ«αá
  2049. AutoCADá, »«φΓ«¼π ¡Ñ ß½ÑñπÑΓ ¿ß»½∞º«óáΓ∞ Σπ¡¬µ¿¿ COMMAND ó Σá⌐½Ñ
  2050. "acad.lsp" (ó¡Ñ Σπ¡¬µ¿¿ DEFUN).
  2051.  
  2052.     4.37.2 æ:òòò Σπ¡¬µ¿¿ - ä«íáó½Ñ¡¿Ñ K«¼á¡ñ ó AutoCAD.
  2053.  
  2054. éδ ¼«ªÑΓÑ ñ«íáó¿Γ∞ ¡«óδÑ ¬«¼á¡ñδ ó AutoCAD, ¿ß»«½∞ºπ∩ Σπ¡¬µ¿ε DEFUN
  2055. τΓ«íδ «»αÑñѽ¿Γ∞ φΓ¿ ¬«¼á¡ñδ ¬á Σπ¡¬µ¿¿. ä½∩ Γ«ú« τΓ«íδ ¿¼¿ »«½∞º«óáΓ∞ß∩
  2056. ¬á¬ ¬«¼á¡ñἿ AutoCADá, ΓᬿѠΣπ¡¬µ¿¿ ñ«½ª¡δ πñ«ó½ÑΓó«α∩Γ∞ ß½ÑñπεΘ¿¼
  2057. »αáó¿½á¼:
  2058.  
  2059.     1. ê¼∩ Σπ¡¬µ¿¿ ñ«½ª¡« íδΓ∞ Σ«α¼δ "æ:òòò", úñÑ óßÑ íπ¬óδ - ºáú½áó¡δÑ.
  2060. ùáßΓ∞ ¿¼Ñ¡¿ "æ:" ñ«½ª¡á óßÑúñá »α¿ßπΓßΓó«óáΓ∞; τáßΓ∞ ¿¼Ñ¡¿ "òòò" ¼«ªÑΓ
  2061. íδΓ∞ ½εíδ¼ ¿¼Ñ¡Ñ¼ ¬«¼á¡ñδ ¡á óáΦ óδí«α, Γ«½∞¬« ¡Ñ ñ«½ª¡δá ñπí½¿α«óáΓ∞
  2062. ¬á¬πε-½¿í« ¬«¼á¡ñπ AutoCADa, ó¡ÑΦ¡εε ¿½¿ óßΓα«Ñ¡¡πε Σπ¡¬µ¿ε.
  2063.  
  2064.     2. öπ¡¬µ¿∩ ñ«½ª¡á íδΓ∞ «»αÑñѽѡá íѺ áαúπ¼Ñ¡Γ«ó - »πßΓ«⌐ ß»¿ß«¬
  2065. (σ«Γ∩ ½«¬á½∞¡δÑ ß¿¼ó«½δ ñ«»π߬áεΓß∩).
  2066.  
  2067. Há»α¿¼Ñα, ß½ÑñπεΘá∩ ºá»¿ß∞ «»αÑñѽ∩ÑΓ Σπ¡¬µ¿ε, ¿º«íαáªáεΘπε ¡á φ¬αá¡Ñ
  2068. ¬óáñαáΓ ß »«¼«Θ∞ε Å«½¿½¿¡¿¿:
  2069.  
  2070.        (defun C:PSQUARE (/ pt1 pt2 pt3 pt4 len)
  2071.           (setq pt1 (getpoint "Lower left corner: ")) /H¿ª¡¿⌐ ½Ñóδ⌐ πú«½: /
  2072.           (setq len (getdist pt1 "Length of one side: ")) /使¡á ßΓ«α«¡δ: /
  2073.           (setq pt2 (polar pt1 0.0 len))
  2074.           (setq pt3 (polar pt2 (/ PI 2.0) len))
  2075.           (setq pt4 (polar pt3 PI len))
  2076.           (command "PLINE" pt1 pt2 pt3 pt4 "C")
  2077.        )
  2078.  
  2079. öπ¡¬µ¿¿ «»αÑñѽѡ¡δÑ Γᬿ¼ «íαẫ¼ ¼«úπΓ óδºδóáΓ∞ß∩ »α«ßΓδ¼ óó«ñ«¼
  2080. "òòò" τáßΓ¿ ¿¼Ñ¡¿ Σπ¡¬µ¿¿, ¬«úñá »«∩󿽫ß∞ ß««íΘÑ¡¿Ñ AutoCADa "Command:".
  2081. àß½¿ "òòò" ¡Ñ ∩ó½∩ÑΓß∩ ¿ºóÑßΓ¡«⌐ ¬«¼á¡ñ«⌐, AutoCAD »δΓáÑΓß∩ óδºóáΓ∞
  2082. Σπ¡¬µ¿ε AutoLISPa "C:XXX" íѺ »áαá¼ÑΓα«ó. ä½∩ »α¿óÑñÑ¡¡«⌐ óδΦÑ Σπ¡¬µ¿¿
  2083. C:PSQUARE ñ¿á½«ú íπñÑΓ Γᬿ¼:
  2084.  
  2085.        Command: PSQUARE
  2086.        Lower left corner: (óó«ñ Γ«τ¬¿)
  2087.  
  2088.  
  2089.  
  2090.  
  2091.                            - 37 -
  2092.  
  2093.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2094.  
  2095.  
  2096.        Length of one side: (óó«ñ αáßΓ«∩¡¿∩)
  2097.  
  2098. ū߽ѠτÑú« Σπ¡¬µ¿∩ ó맮óÑΓ ¬«¼á¡ñπ AutoCADá PLINE ¿ «ΓóÑΓ¿Γ ¡á ÑÑ ºá»α«ßδ
  2099. ñ½∩ óδτÑατ¿óá¡¿∩ ºáñá¡¡«ú« ¬óáñαáΓá.
  2100.  
  2101. ä«íáó½Ñ¡¿Ñ ¬«¼á¡ñ ¬ AutoCADπ Γᬿ¼ «íαẫ¼ - «τÑ¡∞ ¼«Θ¡«Ñ ßαÑñßΓó«
  2102. AutoLISPa. Äñ¡áªñδ «»αÑñѽѡ¡á∩, ¡«óá∩ ¬«¼á¡ñá ¼«ªÑΓ »«½∞º«óáΓ∞ß∩ óßѼ¿
  2103. 󫺼«ª¡«ßΓ∩¼¿ AutoLISPa. öá¬Γ¿τÑ߬¿ ¿ß»«½∞º«óá¡¿Ñ ¡«ó«⌐ ¬«¼á¡ñδ ¡Ñ
  2104. ΓαÑíπÑΓ ºá¬½ετáΓ∞ ¿¼∩ ¬«¼á¡ñδ ó ß¬«í¬¿, ΓᬠτΓ« ¬«¼á¡ñδ, ¬«Γ«α묨
  2105. «»Ñα¿απÑΓ AutoLISP ¿ß»«½∞ºπεΓß∩ ΓᬠªÑ ¬á¬ ½εíδÑ ñαπú¿Ñ ¬«¼á¡ñδ AutoCADa.
  2106.  
  2107.     4.38 (distance <Γ«τ¬á1> <Γ«τ¬á2>)
  2108.  
  2109. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ αáßßΓ«∩¡¿Ñ ¼Ñªñπ 2-σ ¼Ñα¡δ¼¿ Γ«τ¬á¼¿
  2110. <Γ«τ¬á1> <Γ«τ¬á2>, úñÑ 2-σ ¼Ñα¡á∩ Γ«τ¬á - φΓ« ß»¿ß«¬ ñóπσ ñÑ⌐ßΓó¿Γѽ∞¡δσ
  2111. τ¿ßѽ. Há»α¿¼Ñα:
  2112.  
  2113.         (distance '(1.2 2.5) '(7.7 2.5))       ó«ºóαáΘáÑΓ     6.700000
  2114.         (distance '(1.0 2.0) '(3.0 4.0))       ó«ºóαáΘáÑΓ     2.828427
  2115.  
  2116.     4.39 (eq <óδαáªÑ¡¿Ñ1> <óδαáªÑ¡¿Ñ2>)
  2117.  
  2118. ¥Γá Σπ¡¬µ¿∩ «»αÑñѽ∩ÑΓ ¿ñÑ¡Γ¿τ¡δ ½¿ <óδαáªÑ¡¿Ñ1> ¿ <óδαáªÑ¡¿Ñ2>,
  2119. Γ.Ñ. «¡¿ Σá¬Γ¿τÑ߬¿ «Γ¡«ß∩Γß∩ ¬ «ñ¡«¼π «í'ѬΓπ (¡á»α¿¼Ñα, ß »«¼«Θ∞ε
  2120. SETQ). EQ ó«ºóαáΘáÑΓ Æ, Ñß½¿ «íá óδαáªÑ¡¿∩ ¿ñÑ¡Γ¿τ¡δ, ¿¡áτÑ nil.
  2121. Æ¿»¿τ¡«Ñ »α¿¼Ñ¡Ñ¡¿Ñ Σπ¡¬µ¿¿ - ñ½∩ «»αÑñѽѡ¿∩ ∩ó½∩εΓß∩ ½¿ ñóá ß»¿ß¬á
  2122. Σá¬Γ¿τÑ߬¿ «ñ¡¿¼. Há»α¿¼Ñα, ºáñáñ¿¼ß∩ ß½ÑñπεΘ¿¼¿ ñ«»πΘÑ¡¿∩¼¿:
  2123.  
  2124.             (setq f1 '(a b c))
  2125.             (setq f2 '(a b c))
  2126.             (setq f3 f2)
  2127.  
  2128. Γ«úñá:
  2129.  
  2130.           (eq f1 f3)      ó«ºóαáΘáÑΓ     nil   (f1 ¿ f3 ¡Ñ «ñ¡« ¿ Γ« ªÑ)
  2131.           (eq f3 f2)      ó«ºóαáΘáÑΓ     T     (f3 ¿ f2 «ñ¿¡ ¿ Γ«Γ ªÑ
  2132.                                                 ß»¿ß«¬)
  2133.  
  2134. 漫Γα¿ ΓᬠªÑ Σπ¡¬µ¿ε EQUAL ¡¿ªÑ.
  2135.  
  2136.  
  2137. lsp-4-4
  2138.  
  2139.     4.40 (equal <óδαáªÑ¡¿Ñ1> <óδαáªÑ¡¿Ñ2>)
  2140.  
  2141. ¥Γ« Σπ¡¬µ¿∩ «»αÑñѽ∩ÑΓ αáó¡δ ½¿ <óδαáªÑ¡¿Ñ1> ¿ <óδαáªÑ¡¿Ñ2>, Γ.Ñ.
  2142. ¿σ º¡áτÑ¡¿Ñ ∩ó½∩ÑΓß∩ «ñ¡« ¿ Γ« ªÑ. Há»α¿¼Ñα, ºáñáñ¿¼ß∩ ß½ÑñπεΘ¿¼¿
  2143. ñ«»πΘÑ¡¿∩¼¿:
  2144.  
  2145.             (setq f1 '(a b c))
  2146.             (setq f2 '(a b c))
  2147.             (setq f3 f2)
  2148.  
  2149. Γ«úñá:
  2150.  
  2151.  
  2152.  
  2153.  
  2154.  
  2155.                            - 38 -
  2156.  
  2157.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2158.  
  2159.  
  2160.  (equal f1 f3)   ó«ºóαáΘáÑΓ     T    (º¡áτÑ¡¿Ñ¼ f1 ¿ f3 ∩ó½∩ÑΓß∩ «ñ¡«
  2161.                                       ¿ Γ« ªÑ)
  2162.  (equal f3 f2)   ó«ºóαáΘáÑΓ     T    (f3 ¿ f2 ó Γ«τ¡«ßΓ¿ «ñ¿¡ ¿ Γ«Γ ªÑ
  2163.                                       ß»¿ß«¬)
  2164.  
  2165. ÄΓ¼ÑΓ¿¼, τΓ« ó Γ« óαѼ∩, ¬á¬ ñóá ß»¿ß¬á EQUAL, «¡¿ ¼«úπΓ ¡Ñ íδΓ∞ EQ,
  2166. áΓ«¼δ, ¬«Γ«αδÑ EQUAL óßÑúñá ¬ Γ«¼π ªÑ EQ. ä«íáó¿¼, τΓ« ñóá ß»¿ß¬á,
  2167. ¬«Γ«αδÑ EQ, óßÑúñá EQUAL.
  2168.  
  2169.     4.41 (eval <óδαáªÑ¡¿Ñ>)
  2170.  
  2171. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ αѺπ½∞ΓáΓ óδαáªÑ¡¿∩ <óδαáªÑ¡¿Ñ>, úñÑ  <óδαáªÑ¡¿Ñ> -
  2172. ½εí«Ñ óδαáªÑ¡¿Ñ ∩ºδ¬á LISP. Há»α¿¼Ñα, ñá¡«:
  2173.  
  2174.           (setq a 123)
  2175.           (setq b 'a)
  2176.  
  2177. Γ«úñá:
  2178.  
  2179.          (eval 4.0)            ó«ºóαáΘáÑΓ     4.000000
  2180.          (eval (abs -10))      ó«ºóαáΘáÑΓ     10
  2181.          (eval a)              ó«ºóαáΘáÑΓ     123
  2182.          (eval b)              ó«ºóαáΘáÑΓ     123
  2183.  
  2184.     4.42 (exp <τ¿ß½«>)
  2185.  
  2186. ¥Γá Σπ¡¬µ¿∩ óδτ¿ß½∩ÑΓ Ñ ó ßΓѻѡ¿ <τ¿ß½«> (¡áΓπαá½∞¡δ⌐ á¡Γ¿½«úáα¿Σ¼),
  2187. ó«ºóαáΘáÑΓ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½«. Há»α¿¼Ñα:
  2188.  
  2189.           (exp 1.0)             ó«ºóαáΘáÑΓ     2.718282
  2190.           (exp 2.2)             ó«ºóαáΘáÑΓ     9.025013
  2191.           (exp -0.4)            ó«ºóαáΘáÑΓ     0.670320
  2192.  
  2193.     4.43 (expt <«ß¡«óá¡¿Ñ> <ßΓѻѡ∞>)
  2194.  
  2195. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ <«ß¡«óá¡¿Ñ>, ó«ºóÑñÑ¡¡«Ñ ó π¬áºá¡¡πε <ßΓѻѡ∞>.
  2196. àß½¿ «íá áαúπ¼Ñ¡ΓᠵѽδÑ, Γ« αѺπ½∞ΓáΓ - µÑ½«Ñ τ¿ß½«. é ½εí«¼ ñαπú«¼
  2197. ß½πτáÑ, αѺπ½∞ΓáΓ - ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½«.
  2198. Há»α¿¼Ñα:
  2199.  
  2200.            (expt 2 4)           ó«ºóαáΘáÑΓ     16
  2201.            (expt 3.0 2.0)       ó«ºóαáΘáÑΓ     9.000000
  2202.  
  2203.     4.44 (fix <τ¿ß½«>)
  2204.  
  2205. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »αÑ«íαẫóá¡¿Ñ <τ¿ß½á> ó µÑ½«Ñ. <ù¿ß½«> ¼«ªÑΓ íδΓ∞
  2206. ¬á¬ µÑ½δ¼, Γᬠ¿ ñÑ⌐ßΓó¿Γѽ∞¡δ¼. àß½¿ «¡« ñÑ⌐ßΓó¿Γѽ∞¡«Ñ, Γ« «¡« πßÑ-
  2207. ¬áÑΓß∩ ñ« í½¿ªá⌐ΦÑú« µÑ½«ú« »πΓѼ «Γíαáßδóá¡¿∩ ñα«í¡«⌐ τáßΓ¿.
  2208. Há»α¿¼Ñα:
  2209.  
  2210.             (fix 3)             ó«ºóαáΘáÑΓ     3
  2211.             (fix 3.7)           ó«ºóαáΘáÑΓ     3
  2212.  
  2213.     4.45 (float <τ¿ß½«>)
  2214.  
  2215. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »αÑ«íαẫóá¡¿Ñ <τ¿ß½á> ó ñÑ⌐ßΓó¿Γѽ∞¡«Ñ.
  2216. <ù¿ß½«> ¼«ªÑΓ íδΓ∞ ¬á¬ µÑ½δ¼ Γᬠ¿ ñÑ⌐ßΓó¿Γѽ∞¡δ¼. Há»α¿¼Ñα:
  2217.  
  2218.  
  2219.  
  2220.  
  2221.                            - 39 -
  2222.  
  2223.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2224.  
  2225.  
  2226.  
  2227.             (float 3)           ó«ºóαáΘáÑΓ     3.000000
  2228.             (float 3.7)         ó«ºóαáΘáÑΓ     3.700000
  2229.  
  2230.     4.46 (foreach <¿¼∩> <ß»¿ß«¬> <óδαáªÑ¡¿Ñ>...)
  2231.  
  2232. ¥Γá Σπ¡¬µ¿∩, »α«σ«ñ∩ »« <ß»¿ß¬π>, »α¿ßóáÑóáÑΓ ¬áªñ«¼π φ½Ñ¼Ñ¡Γπ <¿¼∩> ¿
  2233. óδτ¿ß½∩ÑΓ ¬áªñ«Ñ <óδαáªÑ¡¿Ñ> ñ½∩ ¬áªñ«ú« φ½Ñ¼Ñ¡Γá ó ß»¿ß¬Ñ. î«ªÑΓ íδΓ∞
  2234. ºáñá¡« ½εí«Ñ τ¿ß½« <óδαáªÑ¡¿⌐>. FOREACH óδñáÑΓ αѺπ½∞ΓáΓ »«ß½Ññ¡Ñú«,
  2235. óδτ¿ß½Ñ¡¡«ú« <óδαáªÑ¡¿∩>. Há»α¿¼Ñα:
  2236.  
  2237.             (foreach n '(a b c) (print n))
  2238.  
  2239. φ¬ó¿óá½Ñ¡Γ¡«:
  2240.  
  2241.             (print a)
  2242.             (print b)
  2243.             (print c)
  2244.  
  2245. ¬α«¼Ñ Γ«ú«, τΓ« FOREACH ó«ºóαáΘáÑΓ αѺπ½∞ΓáΓ Γ«½∞¬« »«ß½Ññ¡Ñú« óδτ¿ß½Ñ¡-
  2246. ¡«ú« óδαáªÑ¡¿∩.
  2247.  
  2248.     4.47 (gcd <τ¿ß½«1> <τ¿ß½«2>)
  2249.  
  2250. öπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¡á¿í«½∞Φ¿⌐ «íΘ¿⌐ ñѽ¿Γѽ∞ <τ¿ß½á1> ¿ <τ¿ß½á2>.
  2251. <ù¿ß½«1> ¿ <τ¿ß½«2> ñ«½ª¡δ íδΓ∞ µÑ½δ¼¿. Há»α¿¼Ñα:
  2252.  
  2253.             (gcd 81 57)            ó«ºóαáΘáÑΓ     3
  2254.             (gcd 12 20)            ó«ºóαáΘáÑΓ     4
  2255.  
  2256.     4.48 (getangle [<Γ«τ¬á>] [<»«ñ߬Ậá>])
  2257.  
  2258. ¥Γá Σπ¡¬µ¿∩ ß«ºñáÑΓ »áπºπ ñ½∩ Γ«ú«, τΓ«íδ »«½∞º«óáΓѽ∞ óóѽ πú«½.
  2259. <Å«ñ߬Ậá> - Σá¬π½∞ΓáΓ¿ó¡á∩ ºá»¿ß∞ ñ½∩ óδßóÑτ¿óá¡¿∩ ¡á φ¬αá¡Ñ ó
  2260. ¬áτÑßΓóÑ
  2261. »«ñ߬Ậ¿, á <Γ«τ¬á> - Σá¬π½∞ΓáΓ¿ó¡á∩ 2-σ ¼Ñα¡á∩ íẫóá∩ Γ«τ¬á. éδ
  2262. ¼«ªÑΓÑ ºáñáΓ∞ πú«½ »πΓѼ ¡áí«αá τ¿ß½á ¡á ¬½áó¿áΓπαÑ ó ΓѬπΘ¿σ ñ½∩
  2263. AutoCADa Ññ¿¡¿µáσ ¿º¼ÑαÑ¡¿∩. çá¼ÑΓ¿¼, τΓ« ¡Ñß¼«Γα∩ ¡á Γ«, τΓ« ΓѬπΘá∩
  2264. Ññ¿¡¿µá ¿º¼ÑαÑ¡¿∩ πú½á ¼«ªÑΓ íδΓ∞ úαáñπß, úαáñ, ¿½¿ ¬á¬á∩ ½¿í« ÑΘÑ,
  2265. Σπ¡¬µ¿∩ óßÑúñá ó«ºóαáΘáÑΓ πú«½ ó αáñ¿á¡áσ.
  2266.  
  2267. éδ ¼«ªÑΓÑ ΓᬠªÑ "»«¬áºáΓ∞" AutoLISPπ πú«½ »πΓѼ π¬áºá¡¿∩ ñóπσ 2-σ
  2268. ¼Ñα¡δσ Γ«τѬ ¡á φ¬αá¡Ñ. AutoCAD ¡áα¿ßπÑΓ "αѺ¿¡«óπε" ½¿¡¿ε «Γ »Ñαó«⌐
  2269. Γ«τ¬¿ ¬ ΓѬπΘÑ¼π »«½«ªÑ¡¿ε ¬παß«αá ñ½∩ Γ«ú« τΓ«íδ ó¿ºπ὿º¿α«óáΓ∞ πú«½.
  2270. öá¬π½∞ΓáΓ¿ó¡δ⌐ áαúπ¼Ñ¡Γ GETANGLE - <Γ«τ¬á> (Ñß½¿ π¬áºδóáÑΓß∩) »«ñαáºπ-
  2271. ¼ÑóáÑΓß∩ ¬á¬ »Ñαóá∩ ¿º φΓ¿σ ñóπσ Γ«τѬ, »«ºó«½∩∩ ΓѼ ßá¼δ¼ óá¼ "»«¬áºáΓ∞"
  2272. AutoLISPπ πú«½, π¬áºδóá∩ ¡á ß½ÑñπεΘπε Γ«τ¬π.
  2273.  
  2274. H¿ªÑ »α¿óÑñÑ¡δ »α¿¼Ñαδ Σπ¡¬µ¿¿ GETANGLE.
  2275.  
  2276.         (setq ang (getangle))
  2277.         (setq ang (getangle '(1.0 3.5))
  2278.         (setq ang (getangle "Which way? "))             /"é ¬á¬πε ßΓ«α«¡π? "/
  2279.         (setq ang (getangle '(1.0 3.5) "Which way? "))  /"é ¬á¬πε ßΓ«α«¡π? "/
  2280.  
  2281. éδ ¡Ñ ¼«ªÑΓÑ óóÑßΓ¿ ñαπú«Ñ óδαáªÑ¡¿Ñ LISPa, ¬á¬ «ΓóÑΓ ¡á ºá»α«ß Σπ¡¬µ¿¿
  2282.  
  2283.  
  2284.  
  2285.  
  2286.                            - 40 -
  2287.  
  2288.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2289.  
  2290.  
  2291. GETANGLE. Åα¿ »«»δΓ¬Ñ ßñѽáΓ∞ Γá¬, »«∩ó¿Γß∩ ß««íΘÑ¡¿Ñ "Can't reenter
  2292. AutoLISP " /"HÑ ¼«úπ ó«⌐Γ¿ ó AutoLISP"/. C¼«Γα¿ΓÑ ΓᬪѠGETORIENT INITGET.
  2293.  
  2294.     4.49 (getcorner <Γ«τ¬á> [<»«ñ߬Ậá>])
  2295.  
  2296. GETCORNER ó«ºóαáΘáÑΓ Γ«τ¬π, ΓᬠªÑ ¬á¬ GETPOINT. Äñ¡á¬« ñ½∩
  2297. GETCORNER ΓαÑíπÑΓß∩ <íẫóá∩ Γ«τ¬á> ¿ Σπ¡¬µ¿∩ ßΓα«¿Γ »α∩¼«πú«½∞¡¿¬ «Γ
  2298. <íẫó«⌐ Γ«τ¬¿> ó Γ« óαѼ∩ ¬á¬ »«½∞º«óáΓѽ∞ »ÑαÑñó¿úáÑΓ ¬παß«α »« φ¬αá¡π.
  2299. 漫Γα¿ΓÑ GETROINT ¿ INITGET ñ½∩ πΓ«τ¡Ñ¡¿∩.
  2300.  
  2301. éδ ¡Ñ ¼«ªÑΓÑ óóÑßΓ¿ ñαπú«Ñ LISP-óδαáªÑ¡¿Ñ ó «ΓóÑΓ ¡á ºá»αß GETCORNER.
  2302.  
  2303.  
  2304. lsp-4-5
  2305.  
  2306.     4.50 (getdist [<Γ«τ¬á>] [<»«ñ߬Ậá>])
  2307.  
  2308. ¥Γá Σπ¡¬µ¿∩ ß«ºñáÑΓ »áπºπ ñ½∩ Γ«ú«, τΓ«íδ »«½∞º«óáΓѽ∞ óóѽ
  2309. αáßßΓ«∩¡¿Ñ. [<Åα«¼»Γ>] - Σá¬π½∞ΓáΓ¿ó¡á∩ ºá»¿ß∞ ñ½∩ óδßóÑτ¿óá¡¿∩ ¡á φ¬αá¡Ñ
  2310. ó ¬áτÑßΓóÑ »«ñ߬Ậ¿, <Γ«τ¬á>  - Σá¬π½∞ΓáΓ¿ó¡á∩ íẫóá∩ Γ«τ¬á. éδ ¼«ªÑΓÑ
  2311. π¬áºáΓ∞ αáßßΓ«∩¡¿Ñ, ¡áíαáó τ¿ß½« ¡á ¬½áó¿áΓπαÑ ó ΓѬπΘ¿σ ñ½∩ AutoCADa
  2312. Ññ¿¡¿µáσ ¿º¼ÑαÑ¡¿∩. çá¼ÑΓ¿¼, ¬á¬¿¼¿ íδ ¡¿ í뫨 ΓѬπΘ¿Ñ Ññ¿¡¿µ ¿º¼ÑαÑ¡¿∩
  2313. (¡á»α¿¼Ñα ΣπΓδ ¿½¿ ñε⌐¼δ), Σπ¡¬µ¿∩ óßÑúñá ó«ºóαáΘáÑΓ αáßßΓ«∩¡¿Ñ
  2314. ¬á¬ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½«.
  2315.  
  2316. éδ ¼«ªÑΓÑ ΓᬠªÑ "»«¬áºáΓ∞" AutoLISPπ αáßßΓ«∩¡¿Ñ , π¬áºáó ñóÑ Γ«τ¬¿ ¡á
  2317. φ¬αá¡Ñ. AutoCAD α¿ßπÑΓ "αѺ¿¡«óπε" ½¿¡¿ε «Γ »Ñαó«⌐ Γ«τ¬¿ ñ« ΓѬπΘÑú«
  2318. »«½«ªÑ¡¿∩ ¬παß«αá ñ½∩ Γ«ú«, τΓ«íδ ó¿ºπ὿α«óáΓ∞ αáßßΓ«∩¡¿Ñ.
  2319. öá¬π½∞ΓáΓ¿ó¡δ⌐ áαúπ¼Ñ¡Γ GETDIST <Γ«τ¬á> »«ñαáºπ¼ÑóáÑΓß∩ ¬á¬ »Ñαóδ⌐ ¿º φΓ¿σ
  2320. ñóπσ Γ«τѬ, »«ºó«½∩∩ óá¼ "»«¬áºáΓ∞" AutoLISPπ αáßßΓ«∩¡¿Ñ, »πΓѼ π¬áºá¡¿∩
  2321. ó ½εíπε ñαπúπε Γ«τ¬π.
  2322.  
  2323. H¿ªÑ »α¿óÑñÑ¡δ »α¿¼Ñαδ Σπ¡¬µ¿¿ GETDIST:
  2324.  
  2325.        (setq dist (getdist))
  2326.        (setq dist (getdist '(1.0 3.5))
  2327.        (setq dist (getdist "How far? "))             /"Kᬠñá½Ñ¬«? "/
  2328.        (setq dist (getdist '(1.0 3.5) "How far? "))  /"Kᬠñá½Ñ¬«? "/
  2329.  
  2330. éδ ¡Ñ ¼«ªÑΓÑ óóÑßΓ¿ ñαπú«Ñ LISP-óδαáªÑ¡¿Ñ ¬á¬ «ΓóÑΓ ¡á ºá»α«ß GETDIST.
  2331. 漫Γα¿ΓÑ ΓᬪѠINITGET.
  2332.  
  2333.     4.51 (getint [<»«ñ߬Ậá>])
  2334.  
  2335. ¥Γá Σπ¡¬µ¿∩ «ª¿ñáÑΓ óó«ñá »«½∞º«óáΓѽѼ µÑ½«ú« τ¿ß½á ¿ ó«ºóαáΘáÑΓ
  2336. Ñú«. <Å«ñ߬Ậá> - Σá¬π½∞ΓáΓ¿ó¡á∩ ºá»¿ß∞ ñ½∩ óδßóÑτ¿óá¡¿∩ ¡á φ¬αá¡Ñ ó
  2337. ¬áτÑßΓóÑ »«ñ߬Ậ¿. Há»α¿¼Ñα:
  2338.  
  2339.           (setq num (getint))
  2340.           (setq num (getint "Enter a number: "))   /"éóÑñ¿ΓÑ τ¿ß½«: "/
  2341.  
  2342. éδ ¡Ñ ¼«ªÑΓÑ óóÑßΓ¿ ñαπú«Ñ LISP-óδαáªÑ¡¿Ñ ¡á ºá»α«ß GETINT.
  2343. 漫Γα¿ΓÑ ΓᬪѠINITGET.
  2344.  
  2345.  
  2346.  
  2347.  
  2348.  
  2349.                            - 41 -
  2350.  
  2351.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2352.  
  2353.  
  2354.     4.52 (getkword [<»«ñ߬Ậá>])
  2355.  
  2356. ¥Γá Σπ¡¬µ¿∩  ºá»αáΦ¿óáÑΓ ¬½ετÑó«Ñ ß½«ó« π »«½∞º«óáΓѽ∩. æ»¿ß«¬
  2357. ¿¼ÑεΘ¿σ ß¼δß½ ¬½ετÑóδσ ß½«ó ºáñáÑΓß∩ »αѪñÑ τѼ óδºδóáÑΓß∩
  2358. Σπ¡¬µ¿∩ GETKWORD, »«½∞ºπ∩ß∞ Σπ¡¬µ¿Ñ⌐ INITGET («»¿ßδóáÑΓß∩ ¡¿ªÑ). GETKWORD
  2359. ó«ºóαáΘáÑΓ ¬½ετÑó«Ñ ß½«ó«, ß««ΓóÑΓßΓóπεΘÑÑ óóÑñÑ¡¡«¼π »«½∞º«óáΓѽѼ ¬á¬
  2360. ßΓ᫬«óπε ¬«¡ßΓá¡Γπ. AutoCAD  »ÑαÑß»α«ß¿Γ, Ñß½¿ óóÑñÑ¡¡«Ñ ¡Ñ ∩ó½∩ÑΓß∩
  2361. «ñ¡¿¼ ¿º ºáñá¡¡δ󠬽ετÑóδσ ß½«ó. ÅπßΓ«⌐ óó«ñ ó«ºóαáΘáÑΓ nil (Ñß½¿ »«º-
  2362. ó«½∩ÑΓß∩ óó«ñ¿Γ∞ »πßΓ«⌐ óó«ñ). àß½¿ ¡Ñ í佫 πßΓá¡«ó½Ñ¡« ¡¿ «ñ¡«ú« ¬½ετÑ-
  2363. ó«ú« ß½«óá ΓᬪѠó«ºóαáΘáÑΓß∩ nil.
  2364. Há»α¿¼Ñα:
  2365.  
  2366.           (initget 1 "Yes No")
  2367.           (setq x (getkword "Are you sure? (Yes or No) "))
  2368.                              /"éδ πóÑαÑ¡δ? (äá ¿½¿ HÑΓ) "/
  2369.  
  2370. ºá»α«ß¿Γ »«½∞º«óáΓѽ∩ ¿ πßΓá¡«ó¿Γ ó ß¿¼ó«½ ò ½¿í« "Yes", ½¿í« "No",
  2371. ó ºáó¿ß¿¼«ßΓ¿ «Γ Ñú« «ΓóÑΓá. àß½¿ óó«ñ ¡Ñ ß««Γó¬ΓßΓóπÑΓ ¡¿ «ñ¡«¼π ¬½ετÑ-
  2372. ó«¼π ß½«óπ, ¿½¿ ªÑ »«½∞º«óáΓѽ∞ «ΓóÑΓ¿½ »πßΓδ¼ óó«ñ«¼, AutoCAD »«»α«ß¿Γ
  2373. »«½∞º«óáΓѽ∩ »«óΓ«α¿Γ∞ óó«ñ ÑΘÑ αáº.
  2374.  
  2375. éδ ¡Ñ ¼«ªÑΓÑ óóÑßΓ¿ ñαπú«Ñ LISP-óδαáªÑ¡¿Ñ ¡á ºá»α«ß GETKWORD.
  2376. 漫ΓαÑΓÑ ΓᬪѠINITGET.
  2377.  
  2378.     4.53 (getorient [<Γ«τ¬á>] [<»«ñ߬Ậá>])
  2379.  
  2380. é AutoLISPe πú½δ óßÑúñá »αÑñßΓáó½∩εΓß∩ ó αáñ¿á¡áσ ß ¡π½Ñóδ¼ ¡á»αáó½Ñ¡¿Ñ¼
  2381. ß½Ñóá ¡á»αáó« (ó«ßΓ«¬) ¿ πú½δ «Γ¬½áñδóáεΓß∩ »α«Γ¿ó τáß«ó«⌐ ßΓαѽ¬¿.
  2382. Æᬿ¼ «íαẫ¼ ñ«½ª¡δ ¿¼ÑΓ∞ ¼ÑßΓ∞ ¡Ñ¬«Γ«αδÑ ¿º¼Ñ¡Ñ¡¿∩, Ñß½¿ »«½∞º«óáΓѽ∞
  2383. σ«τÑΓ óδíαáΓ∞ «ΓßτÑΓ ó úαáñπßáσ ¿½¿ ªÑ½áÑΓ ¿º¼Ñ¡¿Γ∞ ¡á»αáó½Ñ¡¿Ñ «ΓßτÑΓá
  2384. πú½«ó, ¿ß»«½∞ºπ∩ ¬«¼á¡ñπ UNITS ¿½¿ ß¿ßΓѼ¡δÑ »ÑαѼѡ¡δÑ ANGBASE ¿ ANGDIR.
  2385.  
  2386. GETRIENT »«σ«ªá ¡á GETANGLE-Σπ¡¬µ¿ε, ¡« «Γ½¿τáÑΓß∩ «Γ ¡ÑÑ ΓѼ, τΓ« ¿º¼Ñ-
  2387. α∩ÑΓ πú½δ ó úαáñπßáσ ¿ ¡á»αáó½Ñ¡¿Ñ «ΓßτÑΓá πú½«ó «»αÑñѽ∩ÑΓß∩ ñαπú¿¼
  2388. ß»«ß«í«¼ τѼ ó GETANGLE. GETANGLE ¿ß»«½∞ºπÑΓß∩, Ñß½¿ óá¼ ¡Ñ«íσ«ñ¿¼ ßπ¼-
  2389. ¼áα¡δ⌐ πú«½ («Γ¡«ß¿Γѽ∞¡δ⌐ πú«½), ó Γ« óαѼ∩ ¬á¬ GETORIENT ¿ß»«½ºπÑΓß∩
  2390. ñ½∩ ñ«ßΓ¿ªÑ¡¿∩ «α¿Ñ¡Γᵿ¿ (áíß«½εΓ¡δ⌐ πú«½).
  2391.  
  2392. ÅαÑñ»«½«ª¿¼, τΓ« íδ½á ¿ß»«½∞º«óá¡á ¬«¼á¡ñá AutoCADa UNITS ñ½∩ óδí«αá
  2393. «ΓßτÑΓá úαáñπßáσ ¿ ¡π½Ñó«Ñ ¡á»αáó½Ñ¡¿Ñ -90 (ßÑóÑα), «ΓßτÑΓ úαáñπß«ó ó
  2394. ¡á»αáó½Ñ¡¿¿ τáß«ó«⌐ ßΓαѽ¬¿. é Γáí½¿µÑ π¬áºá¡δ º¡áτÑ¡¿∩, ¬«Γ«αδÑ ó«ºóαá-
  2395. ΘáεΓ GETANGLE ¿ GETORIENT (ó αáñ¿á¡áσ), Ñß½¿ »«½∞º«óáΓѽѼ óóÑñÑ¡δ
  2396. π¬áºá¡¡δÑ º¡áτÑ¡¿∩ (ó úαáñπßáσ):
  2397.  
  2398.            !~~~~~~~~~~~!~~~~~~~~~~~~~~~~!~~~~~~~~~~~~~~~!
  2399.            !éóÑñÑ¡«    !    GETANGLE    !      GETORIENT!
  2400.            !(úαáñπßδ)  !                !               !
  2401.            !-----------!----------------!---------------!
  2402.            !  0        !    0.000000    !      1.570796 !
  2403.            !-90        !    1.570796    !      3.141593 !
  2404.            !180        !    3.141593    !      4.712389 !
  2405.            ! 90        !    4.712389    !      0.000000 !
  2406.            !___________!________________!_______________!
  2407.  
  2408. Kᬠó¿ñ¡« ¿º Γáí½¿µδ, GETANGLE »αÑñ»«τ¿ΓáÑΓ ¡á»αáó½Ñ¡¿Ñ »α¿αáΘÑ¡¿∩ πú½á,
  2409. ¡« ¿ú¡«α¿απÑΓ ¡á»αáó½Ñ¡¿Ñ ¡π½∩ úαáñπß«ó. Æá¬, óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞
  2410. GETANGLE »α¿ »«ó«α«ΓÑ óßΓáó½∩Ѽ«ú« í½«¬á, Γ.¬. óóÑñÑ¡¿Ñ ¡π½∩ úαáñπß«ó
  2411. íπñÑΓ óßÑúñá ó«ºóαáΘáΓ∞ ¡«½∞ αáñ¿á¡. æ ñαπú«⌐ ßΓ«α«¡δ, GETORIENT
  2412.  
  2413.  
  2414.  
  2415.  
  2416.                            - 42 -
  2417.  
  2418.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2419.  
  2420.  
  2421. ó«ß»α¿¡¿¼áÑΓ ¬á¬ ¡á»αáó½Ñ¡¿Ñ ¡π½∩ úαáñπß«ó, Γᬠ¿ ¡á»αáó½Ñ¡¿Ñ »α¿αáΘÑ¡¿∩
  2422. πú½á. Æá¬, óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ GETORIENT ñ½∩ óóÑñÑ¡¿∩ Γᬿσ πú½«ó, ¬á¬
  2423. πú«½ íẫó«⌐ ½¿¡¿¿ ñ½∩ ¬«¼á¡ñδ ÆàòÆ. Há»α¿¼Ñα, π¬áºá¡¡á∩ óδΦÑ πßΓá¡«ó¬á
  2424. UNITS π¬áªÑΓ ¡á»αáó½Ñ¡¿Ñ íẫó«⌐ ½¿¡¿¿ «íδτ¡«⌐ ú«α¿º«¡Γá½∞¡«⌐ ßΓ᫬¿
  2425. ΓѬßΓá ¡á 90 úαáñπß«ó.
  2426.  
  2427. éδ ¡Ñ ¼«ªÑΓÑ óóÑßΓ¿ ñαπú«Ñ LISP-óδαáªÑ¡¿Ñ ó ¬áτÑßΓóÑ «ΓóÑΓá ¡á ºá»α«ß
  2428. GETORIENT. æ¼«Γα¿ΓÑ ΓᬪѠGETANGLE ¿ INITGET.
  2429.  
  2430.     4.54 (getpoint [<Γ«τ¬á>] [<»«ñ߬Ậá>])
  2431.  
  2432. ¥Γá Σπ¡¬µ¿∩  ºá»αáΦ¿óáÑΓ «Γ »«½∞º«óáΓѽ∩ Γ«τ¬π <Γ«τ¬á>. öá¬π½∞ΓáΓ¿ó¡δ⌐
  2433. áαúπ¼Ñ¡Γ - íẫóá∩ [<Γ«τ¬á>] ¿ [<»«ñ߬Ậá>] - Σá¬π½∞ΓáΓ¿ó¡á∩ ºá»¿ß∞
  2434. ñ½∩ óδßóÑτ¿óá¡¿∩ ¡á φ¬αá¡Ñ ó ¬áτÑßΓóÑ »«ñ߬Ậ¿. éδ ¼«ªÑΓÑ óóÑßΓ¿ Γ«τ¬π
  2435. »πΓѼ π¬áºá¡¿∩ ÑÑ ¡á φ¬αá¡Ñ ¿½¿ ºá»¿ßá󠬫«αñ¿¡áΓδ ó ΓѬπΘ¿σ Ññ¿¡¿µáσ
  2436. ¿º¼ÑαÑ¡¿∩. àß½¿ »α¿ßπΓßΓóπεÑΓ áαúπ¼Ñ¡Γ <Γ«τ¬á>, AutoCAD ¡áα¿ßπÑΓ
  2437. "αѺ¿¡«óπε" ½¿¡¿ε «Γ φΓ«⌐ Γ«τ¬¿ ñ« ΓѬπΘÑú« »«½«ªÑ¡¿∩ ¬παß«αá.
  2438. Há»α¿¼Ñα:
  2439.  
  2440.       (setq p (getpoint))
  2441.       (setq p (getpoint "Where? "))                    /"âñÑ? "/
  2442.       (setq p (getpoint '(1.5 2.0) "Second point: "))  /"éΓ«αá∩ Γ«τ¬á: "/
  2443.  
  2444. Äíδτ¡«, GETPOINT ó«ºóαáΘáÑΓ 2-σ ¼Ñα¡πε Γ«τ¬π (ß»¿ß«¬ ¿º ñóπσ ñÑ⌐ßΓó¿-
  2445. Γѽ∞¡δσ τ¿ßѽ). êß»«½∞ºπ∩ Σπ¡¬µ¿ε INIGET ñ½∩ πßΓᡫ󬿠¬«¡Γα«½∞¡«ú«
  2446. ß¿¼ó«½á "3-σ ¼Ñα¡á∩ Γ«τ¬á", óδ ¼«ªÑΓÑ ºáßΓáó¿Γ∞ GETPOINT ó«ºóαáΘáΓ∞
  2447. 3-σ ¼Ñα¡πε Γ«τ¬π (ß»¿ß«¬ ¿º ΓαÑσ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ).
  2448.  
  2449. éδ ¡Ñ ¼«ªÑΓÑ óóÑßΓ¿ ¿¡«Ñ LISP-óδαáªÑ¡¿Ñ ó «ΓóÑΓ ¡á ºá»α«ß GETPOINT.
  2450. 漫Γα¿ΓÑ ΓᬪѠGETCORNER ¿ INITGET.
  2451.  
  2452.     4.55 (getreal [<»«ñ߬Ậá>])
  2453.  
  2454. ¥Γá Σπ¡¬µ¿∩  ºá»αáΦ¿óáÑΓ »«½∞º«óáΓѽ∩ óóÑßΓ¿ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½« ¿
  2455. ó«ºóαáΘáÑΓ Ñú«. <Å«ñ߬Ậá>-¡Ñ«í∩ºáΓѽ∞¡δ⌐ áαúπ¼Ñ¡Γ ñ½∩ óδßóÑτ¿óá¡¿∩ ¡á
  2456. φ¬αá¡Ñ ó ó¿ñÑ »«ñ߬Ậ¿.
  2457.  
  2458.           (setq val (getreal))
  2459.           (setq val (geyrial "Scale factor: "))    /"îáßΦΓáí¡δ⌐ Σá¬Γ«α: "/
  2460.  
  2461. éδ ¡Ñ ¼«ªÑΓÑ óóÑßΓ¿ ¿¡«Ñ LISP-óδαáªÑ¡¿Ñ ó «ΓóÑΓ ¡á ºá»α«ß GETREAL.
  2462. 漫Γα¿ΓÑ ΓᬪѠINITGET.
  2463.  
  2464.     4.56 (getstring [<cr>] [<»«ñ߬Ậá>])
  2465.  
  2466. ¥Γá Σπ¡¬µ¿∩  ºá»αáΦ¿óáÑΓ »«½∞º«óáΓѽ∩ óóÑßΓ¿ ßΓ᫬«óπε ¬«¡ßΓá¡Γπ ¿
  2467. ó«ºóαáΘáÑΓ φëଫ¡ßΓá¡Γπ. àß½¿ <cr> »α¿ßπΓßΓóπÑΓ ¿ ¡Ñ nil, óó«ñ¿¼δ⌐
  2468. »«Γ«¬ ¼«ªÑΓ ß«ñÑαªáΓ∞ »α«íѽδ (¿ ñ«½ªÑ¡, ß½Ññ«óáΓѽ∞¡«, «¬á¡τ¿óáΓ∞ß∩
  2469. RETURN). ê¡áτÑ óó«ñ ΓѬßΓá (ßΓ᫬«ó«⌐ ¬«¡ßΓá¡Γδ) íπñÑΓ »αÑαó¡ »α«íѽ«¼
  2470. RETURN. <Å«ñ߬Ậá> - Σá¬π½∞ΓáΓ¿ó¡δ⌐ áαúπ¼Ñ¡Γ ñ½∩ óδßóÑτ¿óá¡¿∩ ¡á
  2471. φ¬αá¡Ñ ó ó¿ñÑ  »«ñ߬Ậ¿.
  2472. Há»α¿¼Ñα:
  2473.  
  2474.      (setq s (getstring))
  2475.      (setq s (getstring "What's your fist name? "))   /"éáΦÑ ¿¼∩? "/
  2476.      (setq s (getstring T "What's your full name? ")) /"éáΦÑ »«½¡«Ñ ¿¼∩? "/
  2477.  
  2478.  
  2479.  
  2480.  
  2481.                            - 43 -
  2482.  
  2483.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2484.  
  2485.  
  2486.  
  2487. àß½¿ »«½∞º«óáΓѽ∞ ñ«½ªÑ¡ óóÑßΓ¿ «ñ¡π ¿º ß»Ñµ¿á½∞¡δσ «»µ¿⌐ (¬½ετÑóδσ
  2488. ß½«ó), ó¼ÑßΓ« Σπ¡¬µ¿¿ GETSTRING, ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡á Σπ¡¬µ¿∩ GETWORD,
  2489. «»¿ßá¡¡á∩ óδΦÑ.
  2490.  
  2491. éδ ¡Ñ ¼«ªÑΓÑ óóÑßΓ¿ ¿¡«Ñ LISP-óδαáªÑ¡¿Ñ ¬á¬ «ΓóÑΓ ¡á ºá»α«ß GETSTRING.
  2492.  
  2493.     4.57 (getvar <¿¼∩ »ÑαѼѡ¡«⌐>)
  2494.  
  2495. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ß¿ßΓѼ¡«⌐ »ÑαѼѡ¡«⌐ AutoCADa. ê¼∩
  2496. »ÑαѼѡ¡«⌐ ñ«½ª¡« íδΓ∞ ºá¬½ετÑ¡« ó ¬áóδτ¬¿ ("¿¼∩"). Há»α¿¼Ñα,
  2497. »αÑñ»«½«ª¿¼, τΓ« αáñ¿πß ß«»α∩ªÑ¡¿∩ íδ½ ¡Ññáó¡« «»αÑñѽѡ ó 0.25 Ññ¿¡¿µ:
  2498.  
  2499.           (getvar "FILLETRAD")       ó«ºóαáΘáÑΓ     0.250000
  2500.  
  2501. àß½¿ óδ ¿ß»«½∞ºπÑΓÑ GETVAR ß ¡Ñ¿ºóÑßΓ¡δ¼ AutoCADπ ¿¼Ñ¡Ñ¼ »ÑαѼѡ¡«⌐,
  2502. Σπ¡¬µ¿∩ ó«ºóαáΓ¿Γ nil. æ»¿ß«¬ ΓѬπΘ¿σ ß¿ßΓѼ¡δσ »ÑαѼѡ¡δσ AutoCADa
  2503. ¼«ª¡« ¡á⌐Γ¿ ó »α¿½«ªÑ¡¿¿ Ç απ¬«ó«ñßΓóá »« AutoCADπ.
  2504. 漫Γα¿ΓÑ ΓᬪѠΣπ¡¬µ¿ε SETVAR.
  2505.  
  2506.     4.58 (graphscr)
  2507.  
  2508. ¥Γá Σπ¡¬µ¿∩  »ÑαѬ½ετáÑΓ φ¬αá¡ ß ΓѬßΓ«ó«ú« αѪ¿¼á ó úαáΣ¿τÑ߬¿⌐ ó
  2509. ß¿ßΓѼáσ ß «ñ¡¿¼ φ¬αá¡«¼ (ΓᬪѠ¬á¬ Σπ¡¬µ¿«¡á½∞¡á∩ ¬½áó¿Φá "FLIP SCREEN"
  2510. ó AutoCADe). GRAPHSCR óßÑúñá ó«ºóαáΘáÑΓ nil. æ¼«Γα¿ΓÑ ΓᬠªÑ Σπ¡¬µ¿ε
  2511. TEXTSCR.
  2512.  
  2513.     4.59 (if <ΓѬßΓ-óδαáªÑ¡¿Ñ> <óδαáªÑ¡¿Ñ-Γ«úñá> [<óδαáªÑ¡¿Ñ-¿¡áτÑ>])
  2514.  
  2515. ¥Γá Σπ¡¬µ¿∩  ¿ß»«½¡∩ÑΓ óδαáªÑ¡¿Ñ »« πß½«ó¿ε. àß½¿ <ΓÑßΓ-óδαáªÑ¡¿Ñ>
  2516. ¡Ñ nil, Γ«úñá ¿ß»«½¡∩ÑΓß∩ <óδαáªÑ¡¿Ñ-Γ«úñá>, ¿¡áτÑ ¿ß»«½¡∩ÑΓß∩
  2517. <óδαáªÑ¡¿Ñ-¿¡áτÑ>. Å«ß½Ññ¡ÑÑ óδαáªÑ¡¿Ñ <óδαáªÑ¡¿Ñ-¿¡áτÑ> ¡Ñ «í∩ºáΓѽ∞¡«.
  2518. IF ó«ºóδαáΘáÑΓ º¡áτÑ¡¿Ñ óδíαá¡¡«ú« óδαáªÑ¡¿∩; Ñß½¿ <óδαáªÑ¡¿Ñ-¿¡áτÑ>
  2519. «ΓßπΓßΓóπÑΓ ¿ <ΓÑßΓ-óδαáªÑ¡¿Ñ> nil, IF ó«ºóαáΘáÑΓ nil. Há»α¿¼Ñα:
  2520.  
  2521.           (if (= 1 3) "Yes!!" "no.")    ó«ºóαáΘáÑΓ     "no."
  2522.           (if (= 2 (+ 1 1) "Yes!!")     ó«ºóαáΘáÑΓ     "Yes!!"
  2523.           (if (= 2 (+ 3 4) "Yes!!")     ó«ºóαáΘáÑΓ     nil
  2524.  
  2525.  
  2526. lsp-4-6
  2527.  
  2528.     4.60 (initget [<í¿Γδ>] [<ßΓ᫬á>])
  2529.  
  2530. ¥Γá Σπ¡¬µ¿∩   πßΓá¡áó½¿óáÑΓ αẽ¿τ¡δÑ «»µ¿¿ ñ½∩ ¿ß»«½∞º«óá¡¿∩
  2531. »«ß½ÑñπεΘ¿¼¿ Σπ¡¬µ¿∩¼¿ GETxxx (¬α«¼Ñ GETSTRING ¿ GETVAR). INITGET óßÑúñá
  2532. ó«ºóαáΘáÑΓ nil. <ü¿Γδ> - Σá¬π½∞ΓáΓ¿ó¡δ⌐ áαúπ¼Ñ¡Γ - µÑ½«Ñ τ¿ß½« ß«
  2533. ß½ÑñπεΘ¿¼¿ º¡áτÑ¡¿∩¼¿:
  2534.  
  2535.  
  2536.  
  2537.  
  2538.  
  2539.                            - 44 -
  2540.  
  2541.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2542.  
  2543.  
  2544.             !~~~~~~~~~~~!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  2545.             !INITGET    !            º¡áτÑ¡¿∩                            !
  2546.             ! í¿Γδ      !                                                !
  2547.             !~~~~~~~~~~~!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  2548.             !  1        !         ºá»αÑΘÑ¡ óó«ñ ¡ÑñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ   !
  2549.             !  2        !         ºá»αÑΘÑ¡ óó«ñ 0                        !
  2550.             !  4        !         ºá»αÑΘÑ¡ óó«ñ «Γα¿µáΓѽ∞¡δσ τ¿ßѽ         !
  2551.             !  8        !         ¡Ñ ¬«¡Γα«½¿απεΓß∩ »αÑñѽδ, ñáªÑ »α¿    !
  2552.             !           !         ó¬½ετÑ¡¡«¼ LIMCHECK                    !
  2553.             ! 16        !         ó«ºóαáΘÑ¡¿Ñ 3-σ ¼Ñα¡δσ Γ«τѬ,          !
  2554.             !           !         »αÑñ»«τΓ¿Γѽ∞¡ÑÑ, τѼ 2-σ ¼Ñα¡δσ Γ«τѬ.!
  2555.             ! 32        !         »α¿¼Ñ¡∩ÑΓß∩ »π¡¬Γ¿α ñ½∩ ¿º«íαáªÑ¡¿∩    !
  2556.             !           !         "αѺ¿¡«ó«⌐" ½¿¡¿¿ ¿½¿ αἬ¿.           !
  2557.             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2558.  
  2559. ü¿Γδ ¼«úπΓ ñ«íáó½∩Γ∞ß∩ ó¼ÑßΓÑ ó ½εí«⌐ ¬«¼í¿¡áµ¿¿, τΓ«íδ ßΣ«α¼¿α«óáΓ∞
  2560. º¡áτÑ¡¿Ñ «Γ 0 ñ« 63. (Å«ß½ÑñπεΘ¿Ñ óÑαß¿¿ AutoLISPá ¼«úπΓ ó¬½ετáΓ∞ ñ«»«½¡¿-
  2561. Γѽ∞¡δÑ ¬«¡Γα«½∞¡δÑ í¿Γδ, ΓᬠτΓ« ¿ºíÑúá⌐ΓÑ π¬áºδóáΓ∞ ¡Ñºáñ«¬π¼Ñ¡Γ¿α«óá¡¡δÑ
  2562. í¿Γδ).
  2563.  
  2564. àß½¿ »«½∞º«óáΓѽ∞, óó«ñ∩ ºáíδ½ «ñ¡« ¿½¿ í«½ÑÑ ºáñá¡¡δσ πß½«ó¿⌐ (Γá¬,
  2565. ¡á»α¿¼Ñα, óóѽ 0, ¬«úñá óó«ñ 0 ºá»αÑΘÑ¡), AutoCAD  óδßóÑΓ¿Γ «Φ¿í¬π ¿
  2566. »αÑñ½«ª¿Γ »«½∞º«óáΓÑ½ε »«óΓ«α¿Γ∞ óó«ñ. Há»α¿¼Ñα:
  2567.  
  2568.          (initget (+ 1 2 4))
  2569.          (setq age (getint "How old are you? "))    /"欫½∞¬« éá¼ ½ÑΓ? "/
  2570.  
  2571. ß»α«ß¿Γ ó«ºαáßΓ »«½∞º«óáΓѽ∩, áóΓ«¼áΓ¿τÑ߬¿ »«óΓ«α∩∩ ºá»α«ß, Ñß½¿
  2572. »«½∞º«óáΓѽ∞ «ΓóÑΓ¿½ »πßΓδ¼ óó«ñ«¼, óóѽ «Γα¿µáΓѽ∞¡«Ñ ¿½¿ ¡π½Ñó«Ñ
  2573. º¡áτÑ¡¿Ñ.Eß½¿ ¡ÑΓ áαúπ¼Ñ¡Γá <í¿Γδ>, »«ñαáºπ¼ÑóáÑΓß∩ 0 (¡ÑΓ πß½«ó¿⌐).
  2574. æ»Ñµ¿á½∞¡δÑ ¬«¡Γα«½∞¡δÑ º¡áτÑ¡¿∩ «íÑß»Ñτ¿óáεΓß∩ ΓѼ¿ GETxxx Σπ¡¬µ¿∩¼¿,
  2575. ñ½∩ ¬«Γ«αδσ «¡¿ ¿¼ÑεΓ ß¼δß½, ¬á¬ »«¬áºá¡« ó ß½ÑñπεΘÑ⌐ Γáí½¿µÑ.
  2576.  
  2577. K«¡Γα«½∞¡δ⌐ í¿Γ ß« º¡áτÑ¡¿Ñ¼ 32 ó«ß»α¿¡¿¼áÑΓß∩ Σπ¡¬µ¿∩¼¿ GETPOINT, GETCORNER,
  2578. GETDIST, GETANGLE ¿ GETORIENT ¬«úñá »α¿ßπΓßΓóπÑΓ áαúπ¼Ñ¡Γ <íẫóá∩ Γ«τ¬á>,
  2579. ¿ πßΓá¡áó½¿óáÑΓ αѪ¿¼ ¿ß»«½∞º«óá¡¿∩ »π¡¬Γ¿α¡«⌐ (¿½¿ »«-ñαπú«¼π »«ñßóÑτÑ¡¡«⌐)
  2580. ½¿¡¿¿ ó ¬áτÑßΓóÑ "αѺ¿¡«ó«⌐" ½¿¡¿¿ ¿½¿ αἬ¿, «Γα¿ß«óδóáѼδσ ¬παß«α«¼ «Γ
  2581. ºáñá¡¡«⌐ íẫó«⌐ Γ«τ¬¿. àß½¿ ß¿ßΓѼ¡á∩ »ÑαѼѡ¡á∩ POPUPS αáó¡á ¡π½ε, π¬áºδóá∩
  2582. ΓѼ ßá¼δ¼, τΓ« ñαá⌐óÑα ñ¿ß»½Ñ∩ ¡Ñ »«ññÑনóáÑΓ π½πτΦÑ¡¡δ⌐ ¿¡ΓÑαΣÑ⌐ß »«½∞º«óá-
  2583. Γѽ∩, Γ« AutoCAD »α«¿ú¡«α¿απÑΓ φëàí¿Γ Σπ¡¬µ¿¿ INITGET.
  2584.  
  2585. !~~~~~~~~~~~!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  2586. !  öπ¡¬µ¿¿  !          K«¡Γα«½∞¡δÑ í¿Γδ INITGET ó«ß»α¿¡¿¼áεΓß∩           !
  2587. !-----------!---------!-----!--------!-----------!----------!------------!
  2588. !           !    ¡Ñ   !  ¡Ñ !  ¡Ñ    !   ¡ÑΓ     !3-σ ¼Ñα¡δÑ!¿ß»«½∞º«-   !
  2589. !           !  »πßΓ«⌐ !  0  !«Γα¿µáΓ.! »αÑñѽ«ó  !Γ«τ¬¿     !óáΓ∞ »π¡¬Γ¿α!
  2590. !-----------!---------!-----!--------!-----------!----------!------------!
  2591. !GETINT     !    *    !  *  !   *    !           !          !            !
  2592. !-----------!---------!-----!--------!-----------!----------!------------!
  2593. !GETREAL    !    *    !  *  !   *    !           !          !            !
  2594. !-----------!---------!-----!--------!-----------!----------!------------!
  2595. !GETDIST    !    *    !  *  !   *    !           !          !      *     !
  2596. !-----------!---------!-----!--------!-----------!----------!------------!
  2597. !GETANGL    !    *    !  *  !        !           !          !      *     !
  2598. !-----------!---------!-----!--------!-----------!----------!------------!
  2599. !GETORIENT  !    *    !  *  !        !           !          !      *     !
  2600. !-----------!---------!-----!--------!-----------!----------!------------!
  2601. !GETPOINT   !    *    !     !        !     *     !     *    !      *     !
  2602. !-----------!---------!-----!--------!-----------!----------!------------!
  2603. !GETCORNER  !    *    !     !        !     *     !     *    !      *     !
  2604. !-----------!---------!-----!--------!-----------!----------!------------!
  2605. !GETKWORD   !    *    !     !        !           !          !            !
  2606. !-----------!---------!-----!--------!-----------!----------!------------!
  2607. !GETSTRING  !         !     !        !           !          !            !
  2608. !-----------!---------!-----!--------!-----------!----------!------------!
  2609. ! GETVAR    !         !     !        !           !          !            !
  2610. !___________!_________!_____!________!___________!__________!____________!
  2611.  
  2612.  
  2613.  
  2614.  
  2615.                            - 45 -
  2616.  
  2617.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2618.  
  2619.  
  2620.  
  2621. öá¬π½∞ΓáΓ¿ó¡δ⌐ áαúπ¼Ñ¡Γ INITGET-Σπ¡¬µ¿¿ <ßΓ᫬á> «»αÑñѽ∩ÑΓ ß»¿ß«¬
  2622. ¬½ετÑóδσ ß½«ó, ¬«Γ«αδÑ íπñπΓ »α«óÑα∩Γ∞ß∩ ó »«ß½ÑñπεΘѼ ºá»α«ßÑ GETxxx,
  2623. Ñß½¿ »«½∞º«óáΓѽ∞ »α«¿ºóѽ óó«ñ ¡Ñ»αáó¿½∞¡«ú« Γ¿»á (¡á»α¿¼Ñα, Γ«τ¬π ñ½∩
  2624. GETPOINT). àß½¿ óó«ñ »«½∞º«óáΓѽ∩ ß««ΓóÑΓßΓóπÑΓ «ñ¡«¼π ¿º ¬½ετÑóδσ ß½«ó
  2625. ¿º φΓ«ú« ß»¿ß¬á, φΓ« ¬½ετÑó«Ñ ß½«ó« ó«ºóαáΘáÑΓß∩ GETxxx Σπ¡¬µ¿Ñ⌐ ¬á¬
  2626. αѺπ½∞ΓáΓ Γ¿»á STRING (ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá). Åα«úαἼᠻ«½∞º«óáΓѽ∩ ¼«ªÑΓ
  2627. ΓÑßΓ¿α«óáΓ∞ ¬½ετÑóδÑ ß½«óá ¿ óδ»«½¡∩Γ∞ ªÑ½áѼδÑ ñÑ⌐ßΓó¿∩ ñ½∩ ¬áªñ«ú« ¿º
  2628. ¡¿σ. àß½¿ óó«ñ »«½∞º«óáΓѽ∩ ¡Ññ«ºó«½Ñ¡¡«ú« Γ¿»á ¿ ¡Ñ ß««ΓóÑΓßΓóπÑΓ ¡¿
  2629. «ñ¡«¼π ¿º ¬½ετÑóδσ ß½«ó, AutoCAD »αÑñ½«ª¿Γ »«½∞º«óáΓÑ½ε »«óΓ«α¿Γ∞ óó«ñ.
  2630.  
  2631. 滿߫¬ ¬½ετÑóδσ ß½«ó ¼«ªÑΓ íδΓ∞ Γᬫ⌐ Σ«α¼δ :"Key1 KEy2 KEY3,ABBREV3".
  2632. ÄΓñѽ∞¡δÑ ¬½ετÑóδÑ ß½«óá «Γñѽ∩εΓß∩ »α«íѽἿ. æ«¬αáΘÑ¡¿Ñ ¡Ñ«í∩ºáΓѽ∞¡« ¿
  2633. 󫺼«ª¡δ ñóá ß»«ß«íá ß»Ñµ¿Σ¿µ¿α«óá¡¿∩. HÑ«íσ«ñ¿¼á∩ ñ½∩ óó«ñá τáßΓ∞
  2634. ¬½ετÑó«ú« ß½«óá ¼«ªÑΓ íδΓ∞ óδñѽѡᠺáú½áó¡δ¼¿ íπ¬óἿ, «ßΓá½∞¡á∩ τáßΓ∞
  2635. ßΓα«τ¡δ¼¿ ¿½¿ ¡Ñ«íσ«ñ¿¼á∩ τáßΓ∞ ¼«ªÑΓ íδΓ∞ »«óΓ«αÑ¡á τÑαѺ ºá»∩Γπε »«ß½Ñ
  2636. ¬½ετÑó«ú« ß½«óá. éΓ«α«⌐ ß»«ß«í »α¿¼Ñ¡∩ÑΓß∩ ó ß½πτáÑ ¿ß»«½∞º«óá¡¿∩
  2637. ¿¡«ßΓαá¡¡«ú« ∩ºδ¬á, úñÑ »ÑαÑσ«ñ ¿º »α«»¿ß¡δσ ó ºáú½áó¡δÑ íπ¬óδ ß½«ªÑ¡ ¿½¿
  2638. ¡Ñ󫺼«ªÑ¡ . é «í«¿σ ß½πτá∩σ ñ½¿¡á ¡Ñ«íσ«ñ¿¼«⌐ τáßΓ¿ - ¼¿¡¿¼á½∞¡á∩ ñ½¿¡á,
  2639. ¬«Γ«αá∩ ñ«½ª¡á íδΓ∞ ñ½∩ Γ«τ¡«ú« αẽ¿τÑ¡¿∩. (ä½∩ ¼ÑΓ«ñá ß αáºñѽѡ¿Ñ¼
  2640. ºá»∩Γ«⌐ »«ñαáºπ¼ÑóáÑΓß∩, τΓ« ß«¬αáΘÑ¡¿Ñ - φΓ« ¡áτὫ ¬½ετÑó«ú« ß½«óá.)
  2641. Há»α¿¼Ñα
  2642.  
  2643.              "LTYPE,LT"   ¿
  2644.              "LType"
  2645.  
  2646. φ¬ó¿óá½Ñ¡Γ¡δѠ߻ѵ¿Σ¿¬áµ¿¿. üπñÑΓ ó«ß»α¿¡¿¼áΓ∞ß∩ ½εí«⌐ óó«ñ »«½∞º«óáΓѽ∩
  2647. ¿º "LTYPE", "LTYP", "LTY" ¿½¿ "LT", ¡« "L" ¡Ññ«ßΓáΓ«τ¡«, ¡Ñ»«ñσ«ñ∩Γ ¿
  2648. "LTSCALE" "LTYPEX".
  2649.  
  2650. Éáßß¼«Γα¿¼ ß½ÑñπεΘπε Σπ¡¬µ¿ε, «»αÑñѽѡ¡πε »«½∞º«óáΓѽѼ:
  2651.  
  2652.                 (defun getnum (/ x)
  2653.                    (initget 1 "Pi Two-pi")
  2654.                    (setq x (getreal "pi/Two-pi/<τ¿ß½«>:"))
  2655.                    (cond ((eq x "Pi")    pi)
  2656.                          ((eq x "Two-pi:") (* 2.0 pi))
  2657.                          (T                x)
  2658.                    )
  2659.                 )
  2660.  
  2661. çñÑß∞ INITGET »αÑ»∩ΓßΓóπÑΓ »πßΓ«¼π óó«ñπ ¿ πßΓá¡áó½¿óáÑΓ ß»¿ß«¬ ¿º ñóπσ
  2662. ¬½ετÑóδσ ß½«ó "Pi" ¿ "Two-pi". çáΓѼ ¿ß»«½∞ºπÑΓß∩ GETREAL ñ½∩ ¿ºó½ÑτÑ¡¿∩
  2663. óÑΘÑßΓóÑ¡¡«ú« τ¿ß½á ß »«¼«Θ∞ε »«ñ߬Ậ¿ "Pi/Two-pi/<τ¿ß½«>:" ¿ αѺπ½∞ΓáΓ
  2664. »«¼ÑΘáÑΓß∩ ó ½«¬á½∞¡δ⌐ ß¿¼ó«½ ò. àß½¿ »«½∞º«óáΓѽ∞ óó«ñ¿Γ τ¿ß½«, φΓ«
  2665. τ¿ß½« ó«ºóαáΘáÑΓß∩ Σπ¡¬µ¿Ñ⌐ GETNUM. Äñ¡á¬«, Ñß½¿ »«½∞º«óáΓѽ∞ óó«ñ¿Γ
  2666. ¬½ετÑó«Ñ ß½«ó« "Pi" (¿½¿ »α«ßΓ« "P"), GETPOINT ó«ºóαáΘáÑΓ ¬½ετÑó«Ñ ß½«ó«
  2667. "Pi". öπ¡¬µ¿∩ COND Σ¿¬ß¿απÑΓ φΓ« ¿ ó φΓ«¼ ß½πτáÑ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ
  2668. pi. K½ετÑó«Ñ ß½«ó« "Two-pi" Γαá¬ΓπÑΓß∩ á¡á½«ú¿τ¡«.
  2669.  
  2670.    =========================================================================
  2671.  
  2672.  
  2673.  
  2674.  
  2675.  
  2676.                            - 46 -
  2677.  
  2678.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2679.  
  2680.  
  2681.     æ»¿ß«¬ π»αáó½∩εΘ¿σ ß¿ú¡á½«ó ¿ ¬½ετÑóδσ ß½«ó, πßΓá¡áó½¿óáѼδÑ INITGET,
  2682.     »α¿¼Ñ¡¿¼δ Γ«½∞¬« ¬ ß½ÑñπεΘѼπ ºá INITGET óδºδóáѼ«¼π GETxxx ¿ ºáΓѼ
  2683.     áóΓ«¼áΓ¿τÑ߬¿ ßíαáßδóáεΓß∩. ¥Γ« »«ºó«½∩ÑΓ Getxxx-Σπ¡¬µ¿⌐ ¿ºíѪáΓ∞     
  2684.     ¡Ñ«íσ«ñ¿¼«ßΓ¿ »α¿ ß½ÑñπεΘѼ ó맮óÑ «τ¿ΘáΓ∞ ß»Ñµ¿á½∞¡δÑ ß«ßΓ«∩¡¿∩.    
  2685.  
  2686.    =========================================================================
  2687.  
  2688.     4.61 (insers <Γ«τ¬á1> <Γ«τ¬á2> <Γ«τ¬á3> <Γ«τ¬á4> [<onseg>])
  2689.  
  2690. öπ¡¬µ¿∩ INTERS »α«óÑα∩ÑΓ ñóá «ΓαѺ¬á ¡á »ÑαÑßÑτÑ¡¿Ñ ¿ ó«ºóαáΘáÑΓ Γ«τ¬π
  2691. »ÑαÑßÑτÑ¡¿∩ ¿½¿ nil, Ñß½¿ «¡¿ ¡Ñ »ÑαÑßѬáεΓß∩. <Æ«τ¬á1> ¿ <Γ«τ¬á2>
  2692. ¬αá⌐¡¿Ñ Γ«τ¬¿ »Ñαó«ú« «ΓαѺ¬á, <Γ«τ¬á3> <Γ«τ¬á4> - ¬αá⌐¡¿Ñ Γ«τ¬¿ óΓ«α«ú«
  2693. «ΓαѺ¬á. àß½¿ Σá¬π½∞ΓáΓ¿ó¡δ⌐ áαúπ¼Ñ¡Γ <onseg> »α¿ßπΓßΓóπÑΓ ¿ ∩ó½∩ÑΓß∩ nil,
  2694. Γ« «ΓαѺ¬¿ íπñπΓ ó«ß»α¿¡¿¼áΓ∞ß∩ íÑ߬«¡Ñτ¡«⌐ ñ½¿¡δ ¿ INTERS  íπñÑΓ ó«ºóαáΘáΓ∞
  2695. Γ«τ¬π »ÑαÑßÑτÑ¡¿∩ ñáªÑ, Ñß½¿ «¡á ¡áσ«ñ¿Γß∩ ºá ¬αá⌐¡¿¼¿ Γ«τ¬á¼¿ «ñ¡«ú« ¿½¿
  2696. «í«¿σ «ΓαѺ¬«ó. àß½¿ àß½¿ ªÑ áαúπ¼Ñ¡Γ <onseg> «ΓßπΓßΓóπÑΓ ¿½¿ ¡Ñ ∩ó½∩ÑΓß∩
  2697. nil, Γ« Γ«τ¬á »ÑαÑßÑτÑ¡¿∩ ñ«½ª¡á ¡áσ«ñ¿Γß∩ ¡á «í«¿σ «ΓαѺ¬áσ ¿½¿ INTERS
  2698. óÑα¡ÑΓ nil.
  2699. Há»α¿¼Ñα, ñá¡«:
  2700.  
  2701.     (setq a '(1.0 1.0) b '(9.0 9.0))
  2702.     (setq c '(4.0 1.0) c '(4.0 2.0))
  2703.  
  2704. Γ«úñá:
  2705.  
  2706.     (inters a b c d)        ó«ºóαáΘáÑΓ     nil
  2707.     (inters a b c d T)      ó«ºóαáΘáÑΓ     nil
  2708.     (inters a b c d nil)    ó«ºóαáΘáÑΓ     (4.000000 4.000000)
  2709.  
  2710.     4.62 (itoa <µÑ½«Ñ>)
  2711.  
  2712. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »αÑ«íαẫóá¡¿Ñ µÑ½«ú« τ¿ß½á ó ßΓ᫬«óπε ¬«¡ßΓá¡Γπ.
  2713.      Há»α¿¼Ñα:
  2714.  
  2715.     (itoa 33)               ó«ºóαáΘáÑΓ     "33"
  2716.     (itoa -17)              ó«ºóαáΘáÑΓ     "-17"
  2717.  
  2718.     4.63 (lambda <áαúπ¼Ñ¡Γδ> <óδαáªÑ¡¿Ñ> ...)
  2719.  
  2720. ¥Γá Σπ¡¬µ¿∩  «»αÑñѽ∩ÑΓ "á¡«¡¿¼¡πε" Σπ¡¬µ¿ε. Ä¡á «íδτ¡« ¿ß»«½∞ºπÑΓß∩,
  2721. ¬«úñá »α¿ «»αÑñѽѡ¿¿ ¡«ó«∩ Σπ¡¬µ¿¿ ¡Ñ ¿¼Ñ¡πÑΓß∩. ¥Γ« ΓᬠªÑ
  2722. ñѽáÑΓ ºá¼δßѽ »α«úαá¼¼¿ßΓá í«½ÑÑ «τÑó¿ñ¡δ¼, ºá ßτÑΓ Γ«ú«, τΓ« Σπ¡¬µ¿∩
  2723. ¡áσ«ñ¿Γß∩ Γá¼ ªÑ, úñÑ «¡á ¿ß»«½∞ºπÑΓß∩. LAMBDA ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ
  2724. »«ß½Ññ¡Ñú« <óδαáªÑ¡¿∩> ¿ τáßΓ« ¿ß»«½∞ºπÑΓß∩ ó ßó∩º¿ ß APPLY ¿/¿½¿ MAPCAR
  2725. ñ½∩ óδ»«½¡Ñ¡¿∩ Σπ¡¬µ¿¿ ¡áñ ß»¿ß¬«¼.
  2726. Há»α¿¼Ñα:
  2727.  
  2728.     (apply '(lambda (x y z)
  2729.              (* x (-y z))
  2730.             )
  2731.          '(5 20 14)
  2732.      )                           ó«ºóαáΘáÑΓ     30
  2733.  
  2734. ¿:
  2735.  
  2736.       (mapcar '(lambda (x)
  2737.  
  2738.  
  2739.  
  2740.  
  2741.                            - 47 -
  2742.  
  2743.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2744.  
  2745.  
  2746.                 (setq counter (1+ counter))
  2747.                 (* x 5)
  2748.                )
  2749.             '(24 -6 10.2)
  2750.        )                         ó«ºóαáΘáÑΓ     (10 20 -30 51.000000)
  2751.  
  2752.     4.64 (last <ß»¿ß«¬>)
  2753.  
  2754. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ »«ß½Ññ¡¿⌐ φ½Ñ¼Ñ¡Γ ß»¿ß¬á. <滿߫¬> ¡Ñ ñ«½ªÑ¡ íδΓ∞
  2755. αáóÑ¡ nil. Há»α¿¼Ñα:
  2756.  
  2757.       (last '(a b c d e))       ó«ºóαáΘáÑΓ     E
  2758.       (last '(a b c (d e)))     ó«ºóαáΘáÑΓ     (D E)
  2759.  
  2760. Kᬠó¿ñ¡«, LAST ó«ºóαáΘáÑΓ ½¿í« áΓ«¼ ½¿í« ß»¿ß«¬.
  2761.  
  2762.  =========================================================================
  2763.  
  2764.   Há »Ñαóδ⌐ óºú½∩ñ LAST ¼«ªÑΓ ∩ó½∩Γ∞ß∩ σ«α«Φ¿¼ »πΓѼ ñ½∩ ¿ºó½ÑτÑ¡¿∩    
  2765.   ¬««αñ¿¡áΓδ Y Γ«τ¬¿. ò«Γ∩ φΓ« Γᬠñ½∩ 2-σ ¼Ñα¡δσ Γ«τѬ (ß»¿ß«¬ ¿º 2-σ    
  2766.   ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ). LAST íπñÑΓ ó«ºóαáΘáΓ∞ ¬««αñ¿¡áΓπ Z ó ß½πτáÑ     
  2767.   3-σ ¼Ñα¡«⌐ Γ«τ¬¿. ùΓ«íδ óáΦ¿ Σπ¡¬µ¿¿ αáí«Γ὿ ¬á¬ ß½ÑñπÑΓ »α¿ ºáñá¡¿¿
  2768.   ¿ 2-σ ¼Ñα¡δσ ¿ 3-σ ¼Ñα¡δσ Γ«τѬ, ¼δ αѬ«¼Ñ¡ñπѼ óá¼ ¿ß»«½∞º«óáΓ∞ CADR
  2769.   ñ½∩ ¿ºó½ÑτÑ¡¿∩ ¬««αñ¿¡áΓδ Y ¿ CADDR ñ½∩ ¿ºó½ÑτÑ¡¿∩ ¬««αñ¿¡áΓδ Z.    
  2770.  
  2771.  =========================================================================
  2772.  
  2773.     4.65 (length <ß»¿ß«¬>)
  2774.  
  2775. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ µÑ½«Ñ τ¿ß½«, «º¡áτáεΘÑÑ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó ó
  2776. <ß»¿ß¬Ñ>. Há»α¿¼Ñα:
  2777.  
  2778.           (length '(a b c d))         ó«ºóαáΘáÑΓ     4
  2779.           (length '(a b (c d)))       ó«ºóαáΘáÑΓ     3
  2780.           (length '())                ó«ºóαáΘáÑΓ     0
  2781.  
  2782.     4.66 (list <óδαáªÑ¡¿Ñ> ...)
  2783.  
  2784. ¥Γá Σπ¡¬µ¿∩  íÑαÑΓ ½εí«Ñ τ«ß½« óδαáªÑ¡¿⌐ (<óδαáªÑ¡¿Ñ>) ¿ «αúá¡¿ºπÑΓ ¿º
  2785. ¡¿σ ßΓ᫬π, ó«ºóαáΘá∩ ß»¿ß«¬.
  2786.     Há»α¿¼Ñα:
  2787.  
  2788.     (list 'a 'b 'c)                    ó«ºóαáΘáÑΓ     (A B C)
  2789.     (list 'a '(b c) 'd)                ó«ºóαáΘáÑΓ     (A (B C) D)
  2790.     (list 3.9 6.7)                     ó«ºóαáΘáÑΓ     (3.90000 6.70000)
  2791.  
  2792. é AutoLISP φΓ¿ Σπ¡¬µ¿¿ τáßΓ« ¿ß»«½∞ºπεΓß∩ ñ½∩ «»αÑñѽѡ¿∩ º¡áτÑ¡¿⌐
  2793. 2-σ ¿ 3-σ ¼Ñα¡δσ Γ«τѬ (ß»¿ß«¬ ¿º 2-σ ¿½¿ 3-σ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ).
  2794.  
  2795.     4.67 (listp <φ½Ñ¼Ñ¡Γ>)
  2796.  
  2797. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ T, Ñß½¿ <φ½Ñ¼Ñ¡Γ> ß»¿ß«¬, ¿¡áτÑ nil.
  2798. Há»α¿¼Ñα:
  2799.  
  2800.     (listp '(a b c))                   ó«ºóαáΘáÑΓ     T
  2801.     (listp 'a)                         ó«ºóαáΘáÑΓ     nil
  2802.  
  2803.  
  2804.  
  2805.  
  2806.                            - 48 -
  2807.  
  2808.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2809.  
  2810.  
  2811.     (listp 4.343)                      ó«ºóαáΘáÑΓ     nil
  2812.  
  2813.     4.68 (load <¿¼∩ Σá⌐½á>)
  2814.  
  2815. ¥Γá Σπ¡¬µ¿∩  ºáúαπªáÑΓ Σá⌐½ óδαáªÑ¡¿⌐ AutoLISPá ¿ óδ»«½¡∩ÑΓ φΓ¿
  2816. óδαáªÑ¡¿∩. <ê¼∩ Σá⌐½á> - φΓ« ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá, ¬«Γ«αá∩ »αÑñßΓáó½∩ÑΓ
  2817. ß«í«⌐ ¿¼∩ Σá⌐½á íѺ αáßΦ¿αÑ¡¿∩ (»«ñαáºπ¼ÑóáÑΓß∩ αáßΦ¿αÑ¡¿Ñ ".lsp"). <ê¼∩
  2818. Σá⌐½á> ¼«ªÑΓ ó¬½ετáΓ∞ »αÑΣ¿¬ß ñ¿αÑ¬Γ«α¿¿, ¡á»α¿¼Ñα "/function/test1". Há
  2819. ß¿ßΓѼáσ MS-DOS/PS-DOS ñ«»π߬áÑΓß∩ ΓᬠªÑ ¿ß»«½∞º«óáΓ∞ íπ¬óπ πßΓα«⌐ßΓóá
  2820. óó«ñá/óδó«ñá ¿ óδ ¼«ªÑΓÑ »«½∞º«óáΓ∞ß∩ «íαáΓ¡«⌐ ¬«ß«⌐ τÑαΓ«⌐ ó¼ÑßΓ« »α∩¼«⌐
  2821. ¬«ß«⌐ τÑαΓδ (¡« »«¼¡¿ΓÑ, τΓ«íδ óóÑßΓ¿ ó ßΓ᫬π «ñ¡π «íαáΓ¡πε τÑαΓπ óδ
  2822. ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ "\\").
  2823.  
  2824. àß½¿ «»Ñαᵿ∩ πß»ÑΦ¡« ºáóÑαΦ¿¡á, LOAD ó«ºóαáΘáÑΓ ¿¼∩ »«ß½Ññ¡Ñ⌐
  2825. Σπ¡¬µ¿¿, «»αÑñѽѡ¡«⌐ ó Σá⌐½Ñ. àß½¿ «»Ñαᵿ∩ ¡Ñ óδ»«½¡Ñ¡á, LOAD
  2826. ó«ºóαáΘáÑΓ ¿¼∩ Σá⌐½á ó ó¿ñÑ ßΓ᫬«ó«ú« óδαáªÑ¡¿∩.
  2827.  
  2828. Há»α¿¼Ñα, »αÑñ»«½«ª¿¼, τΓ« Σá⌐½ "/fred/test1.lsp" ß«ñÑαª¿Γ DEFUN,
  2829. «»αÑñѽ∩εΘπε Σπ¡¬µ¿ε MY-FUNC, ¿ τΓ« Σá⌐½ "test2.lsp" ¡Ñ ßπΘÑßΓóπÑΓ:
  2830.  
  2831.     (load "/fred/test1")               ó«ºóαáΘáÑΓ     MY-FUNC
  2832.     (load "test2")                     ó«ºóαáΘáÑΓ     "test2"
  2833.  
  2834.  ===========================================================================
  2835.  
  2836.   öπ¡¬µ¿∩ LOAD ¡Ñ ¼«ªÑΓ óδºδóáΓ∞ß∩ ¿º ñαπú«⌐ Σπ¡¬µ¿¿ LISP. Ä¡á ñ«½ª¡á    
  2837.   óδºδóáΓ∞ß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ß ¬½áó¿áΓπαδ (¿½¿ ¿º ¼Ñ¡ε ¿½¿ ß¬α¿»Γ-Σá⌐½á),
  2838.   ó Γ« óαѼ∩ ¬á¬ ¡¿ «ñ¡á ñαπúá∩ Σπ¡¬µ¿∩ LISP ¡Ñ ¡áσ«ñ¿Γß∩ ó »α«µÑßßÑ
  2839.   óδ»«½¡Ñ¡¿∩.
  2840.  
  2841.  ===========================================================================
  2842.  
  2843. Káªñδ⌐ αáº, ¬«úñá ÉÑñá¬Γ«α ùÑαΓѪÑ⌐ AutoCAD ¡áτ¿¡áÑΓ «τÑαÑñ¡«⌐
  2844. ßÑá¡ß, AutoLISP ºáúαπªáÑΓ Σá⌐½ "acad.lsp", Ñß½¿ «¡ ßπΘÑßΓóπÑΓ. éδ ¼«ªÑΓÑ
  2845. »«¼ÑßΓ¿Γ∞ «»αÑñѽѡ¿∩ Σπ¡¬µ¿⌐ ¿ τáßΓ« ¿ß»«½∞ºπѼδÑ ¬«¼á¡ñδ ó φëàΣá⌐½ ¿
  2846. «¡¿ íπñπΓ ¿ß»«½¡∩Γ∞ß∩ áóΓ«¼áΓ¿τÑ߬¿, ¬«úñá óδ íπñÑΓÑ αÑñá¬Γ¿α«óáΓ∞
  2847. τÑαΓѪ¿.
  2848.  
  2849.     4.69 (log <τ¿ß½«>)
  2850.  
  2851. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ ¡áΓπαá½∞¡δ⌐ ½«úáα¿Σ¼ <τ¿ß½á> ¬á¬
  2852. ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½«. Há»α¿¼Ñα:
  2853.  
  2854.     (log 4.5)                          ó«ºóαáΘáÑΓ     1.504077
  2855.     (log 1.22)                         ó«ºóαáΘáÑΓ     0.198850
  2856.  
  2857.  
  2858. lsp-4-7
  2859.  
  2860.     4.70 (logand <τ¿ß½«> <τ¿ß½«> ...)
  2861.  
  2862. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ αѺπ½∞ΓáΓ ñÑ⌐ßΓó¿∩ »«í¿Γ«ó«ú« ê ¡áñ ß»¿ß¬«¼
  2863. <τ¿ßѽ>. ¥Γ¿ <τ¿ß½á> ñ«½ª¡δ íδΓ∞ µÑ½δÑ ¿ αѺπ½∞ΓáΓ - ΓᬠªÑ µÑ½«Ñ τ¿ß½«.
  2864. Há»α¿¼Ñα:
  2865.  
  2866.     (logand 7 15 3)                    ó«ºóαáΘáÑΓ     3
  2867.  
  2868.  
  2869.  
  2870.  
  2871.                            - 49 -
  2872.  
  2873.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2874.  
  2875.  
  2876.     (logand 2 3 15)                    ó«ºóαáΘáÑΓ     2
  2877.     (logand 8 3 4)                     ó«ºóαáΘáÑΓ     0
  2878.  
  2879.     4.71 (logior <τ¿ß½«> <τ¿ß½«> ...)
  2880.  
  2881. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ αѺπ½∞ΓáΓ ñÑ⌐ßΓó¿∩ »«í¿Γ«ó«ú« êïê ¡áñ ß»¿ß¬«¼
  2882. <τ¿ßѽ>. <ù¿ß½á> ñ«½ª¡δ íδΓ∞ µÑ½δÑ ¿ αѺπ½∞ΓáΓ ΓᬠªÑ µÑ½«Ñ τ¿ß½«.
  2883. Há»α¿¼Ñα:
  2884.  
  2885.     (logior 1 2 4)                     ó«ºóαáΘáÑΓ     7
  2886.     (logior 9 3)                       ó«ºóαáΘáÑΓ     11
  2887.  
  2888.     4.72 (lsh <τ¿ß½«1> <τ¿ß½« í¿Γ>)
  2889.  
  2890. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ »«í¿Γ«óδ⌐ ßñó¿ú <τ¿ß½á1> ¡á <τ¿ß½« í¿Γ>.
  2891. <ù¿ß½«1> ¿ <τ¿ß½« í¿Γ> ñ«½ª¡δ íδΓ∞ µÑ½δ¼¿ ¿ αѺπ½∞ΓáΓ - Γ«ªÑ µÑ½«Ñ.
  2892.  
  2893. àß½¿ <τ¿ß½« í¿Γ> »«½«ª¿Γѽ∞¡«, Γ« <τ¿ß½«1> ßñó¿úáÑΓß∩ ó½Ñó«; Ñß½¿
  2894. «Γα¿µáΓѽ∞¡« - Γ« ó»αáó«. é ¬áªñ«¼ ß½πτáÑ "¡π½ÑóδÑ" í¿Γδ ñ«íáó½∩εΓß∩, á
  2895. ßñó¿úáѼδÑ í¿Γδ ßíαáßδóáεΓß∩. àß½¿ "Ññ¿¡¿τ¡δ⌐" í¿Γ ßñó¿úáÑΓß∩ ó óδßΦ¿⌐
  2896. (16-⌐) αáºα∩ñ µÑ½«ú« τ¿ß½á, º¡á¬ τ¿ß½á ¼Ñ¡∩ÑΓß∩.
  2897.  
  2898. Há»α¿¼Ñα:
  2899.  
  2900.     (lsh 2 1)                          ó«ºóαáΘáÑΓ     4
  2901.     (lsh 2 -1)                         ó«ºóαáΘáÑΓ     1
  2902.     (lsh 40 2)                         ó«ºóαáΘáÑΓ     160
  2903.     (lsh 16384 1)                      ó«ºóαáΘáÑΓ     -32768
  2904.  
  2905.     4.73 (mopcar <Σπ¡¬µ¿∩> <ß»¿ß«¬1>...<ß»¿ß«¬n>)
  2906.  
  2907. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ αѺπ½∞ΓáΓ óδ»«½¡Ñ¡¿∩ <Σπ¡¬µ¿¿> ¡áñ
  2908. «Γñѽ∞¡δ¼¿ φ½Ñ¼Ñ¡ΓἿ «Γ <ß»¿ß¬á1> ñ« <ß»¿ß¬á n> óó«ñ¿¼δ¼¿ ¬á¬ áαúπ¼Ñ¡-
  2909. Γδ ó <Σπ¡¬µ¿ε>. ù¿ß½« <ß»¿ß¬«ó> ñ«½ª¡« ß««ΓóÑΓßΓó«óáΓ∞ τ¿ß½π áαúπ¼Ñ¡Γ«ó,
  2910. ΓαÑíπεΘ¿σß∩ ñ½∩ <Σπ¡¬µ¿¿>. Há»α¿¼Ñα:
  2911.  
  2912.     (mapcar '1+ '(10 20 30))           ó«ºóαáΘáÑΓ     (11 21 31)
  2913.  
  2914. φΓ« φ¬ó¿óá½Ñ¡Γ¡«:
  2915.  
  2916.     (1+ 10)
  2917.     (1+ 20)
  2918.     (1+ 30)
  2919.  
  2920. Kα«¼Ñ Γ«ú«, τΓ« MAPCAR ó«ºóαáΘáÑΓ ß»¿ß«¬ αѺπ½∞ΓáΓ«ó. ÆᬠªÑ:
  2921.  
  2922.     (mapcar '+ '(10 20 30) '(4 3 2))    ó«ºóαáΘáÑΓ (14 23 32)
  2923.  
  2924. φΓ« Γ« ªÑ ßἫÑ, τΓ« ¿:
  2925.  
  2926.     (+ 10 4)
  2927.     (+ 20 3)
  2928.     (+ 30 2)
  2929.  
  2930. öπ¡¬µ¿∩ LAMBDA ¼«ªÑΓ ºáñáóáΓ∞ "á¡«¡¿¼¡πε" Σπ¡¬µ¿ε ñ½∩ óδ»«½¡Ñ¡¿∩ Σπ¡¬µ¿Ñ⌐
  2931. MAPCAR. ¥Γ« »«½Ñº¡« ¬«úñᠡѬ«Γ«αδÑ ¿º áαúπ¼Ñ¡Γ«ó Σπ¡¬µ¿¿ ¬«¡ßΓá¡Γδ ¿½¿
  2932.  
  2933.  
  2934.  
  2935.  
  2936.                            - 50 -
  2937.  
  2938.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  2939.  
  2940.  
  2941. »ÑαÑñáεΓß∩ ¬á¬¿¼-½¿í« ¿¡δ¼ «íαẫ¼.
  2942.     Há»α¿¼Ñα:
  2943.  
  2944.     (mapcar '(lambda (x) (+ x 3)) '(10 20 30))   ó«ºóαáΘáÑΓ   (13 23 33)
  2945.  
  2946. ¿:
  2947.  
  2948.     (mapcar '(lambda (x y z)
  2949.                (* x (- y z))
  2950.              )
  2951.           '(5 6) '(20 30) '(14 5.0)
  2952.      )                                        ó«ºóαáΘáÑΓ  (30 150.000000)
  2953.  
  2954.     4.74 (max <τ¿ß½«> <τ¿ß½«>...)
  2955.  
  2956. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ ¡á¿í«½∞ΦÑÑ ¿º ºáñá¡¡δσ <τ¿ßѽ>. Káªñ«Ñ
  2957. <τ¿ß½«> ¼«ªÑΓ íδΓ∞ ñÑ⌐ßΓó¿Γѽ∞¡δ¼ ¿½¿ µÑ½δ¼. Há»α¿¼Ñα:
  2958.  
  2959.     (max 4.07 -144)                            ó«ºóαáΘáÑΓ     4.070000
  2960.     (max -88 19 5 2)                           ó«ºóαáΘáÑΓ     19
  2961.  
  2962.     4.75 (member <óδαáªÑ¡¿Ñ> <ß»¿ß«¬>)
  2963.  
  2964. ¥Γá Σπ¡¬µ¿∩ »α«ß¼áΓα¿óáÑΓ <ß»¿ß«¬> - óßΓαÑτáÑΓß∩ ½¿ <óδαáªÑ¡¿Ñ>  ¿
  2965. ó«ºóαáΘáÑΓ τáßΓ∞ <ß»¿ß¬á>, ¡áτ¿¡áεΘπεß∩ ß »Ñαó«ú« ¡á⌐ñÑ¡¡«ú« <óδαáªÑ¡¿∩>.
  2966. àß½¿ ó <ß»¿ß¬Ñ> ¡ÑΓ <óδαáªÑ¡¿∩>, MEMBER ó«ºóαáΘáÑΓ nil.
  2967.     Há»α¿¼Ñα:
  2968.  
  2969.     (member 'c '(a b c d e))                   ó«ºóαáΘáÑΓ     (C D E)
  2970.     (member 'q '(a b c d e))                   ó«ºóαáΘáÑΓ     nil
  2971.  
  2972.     4.76 (menucmd <ßΓ᫬á>)
  2973.  
  2974. ¥Γá Σπ¡¬µ¿∩  ñáÑΓ ó«º¼«ª¡«ßΓ∞ LISP-»α«úαἼἠ»ÑαѬ½ετáΓ∞ß∩ ßαÑñ¿
  2975. »«ñßΓαá¡¿µ ó ¼Ñ¡ε AutoCAD . Æᬿ¼ «íαẫ¼ LISP-»α«úαἼᠼ«ªÑΓ
  2976. ß«ú½áß«óá¡¡« αáí«ΓáΓ∞ ß ºáúαπªÑ¡¡δ¼¿ Σá⌐½á¼¿ ¼Ñ¡ε, óδßóÑτ¿óá∩
  2977. ß««ΓóÑΓßΓóπεΘ¿Ñ »«ñ¼Ñ¡ε ó Γ« óαѼ∩, ¬«úñá ΓαÑíπÑΓß∩ óó«ñ »«½∞º«óáΓѽ∩.
  2978. MENUCMD óßÑúñá ó«ºóαáΘáÑΓ nil. Çαúπ¼Ñ¡Γ <ßΓ᫬á> ºá»¿ßδóáÑΓß∩ ó ß½ÑñπεΘÑ⌐
  2979. Σ«α¼Ñ:
  2980.  
  2981.     αáºñѽ = »«ñ¼Ñ¡ε
  2982.  
  2983. úñÑ:
  2984.  
  2985.     αáºñѽ     ô¬áºδóáÑΓ αáºñѽ ¼Ñ¡ε. ä«»πßΓ¿¼δÑ ¿¼Ñ¡á:
  2986.  
  2987.                            S      ñ½∩ ¥¬αá¡¡«ú« (SCREEN) ¼Ñ¡ε
  2988.                            B      ñ½∩ K¡«»«τ¡«ú« (BUTTONS) ¼Ñ¡ε
  2989.                             I      ñ½∩ »¿¬Γ«úαáΣ¿τÑ߬«ú« (ICON) ¼Ñ¡ε
  2990.                             P1-P10 ñ½∩ »áñáεΘÑú« (POP) ¼Ñ¡ε ß 1 »« 10
  2991.                            Æ1-Æ4  ñ½∩ ¼Ñ¡ε »½á¡ΦÑΓá (TABLET) ß 1 »« 4
  2992.                            Ç1     ñ½∩ ñ«íáó«τ¡«ú« (AUX1) ¼Ñ¡ε
  2993.  
  2994.     »«ñ¼Ñ¡ε    ô¬áºδóáÑΓ ¬á¬«Ñ »«ñ¼Ñ¡ε á¬Γ¿ó¿º¿α«óáΓ∞. ê¼Ñ¡Ñ¼ ñ«½ª¡á íδΓ∞
  2995.                 ½¿í« «ñ¡á ¿º ¼ÑΓ«¬ »«ñ¼Ñ¡εε (íѺ "**") ó ΓѬπΘѼ ºáúαπ-
  2996.                 ªÑ¡¡«¼ Σá⌐½Ñ ¿½¿ ¿¼∩ «ñ¡«ú« ¿º αáºñѽ«ó â½áó¡«ú« ¼Ñ¡ε.
  2997.  
  2998.  
  2999.  
  3000.  
  3001.                            - 51 -
  3002.  
  3003.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3004.  
  3005.  
  3006.  
  3007. ä½∩ ñá½∞¡Ñ⌐ΦÑ⌐ ¿¡Σ«α¼áµ¿¿ ß¼«Γα¿ΓÑ Åα¿½«ªÑ¡¿Ñ ü Éπ¬«ó«ñßΓóá AutoCAD.
  3008. çá¼ÑΓ¿¼, τΓ« ¿ß»«½∞ºπѼδ⌐ ñ½∩ ßß佬¿ ¡á »«ñ¼Ñ¡ε º¡á¬ "$" ó Σá⌐½Ñ ¼Ñ¡ε
  3009. ºñÑß∞ ¡Ñ ¿ß»«½∞ºπÑΓß∩. Há»α¿¼Ñα:
  3010.  
  3011.     (menucmd "S=OSNARP")
  3012.  
  3013. íπñÑΓ «º¡áτáΓ∞, τΓ« »«ñ¼Ñ¡ε "OSNAP" »«∩ó¿Γß∩ ¡á φ¬αá¡Ñ (¿¼ÑÑΓß∩
  3014. ó ó¿ñπ, τΓ« ΓᬫѠ»«ñ¼Ñ¡ε ßπΘÑßΓóπÑΓ ó ΓѬπΘѼ Σá⌐½Ñ ¼Ñ¡ε). ÆᬠªÑ:
  3015.  
  3016.     (menucmd "B=MY-BUTTONS")
  3017.  
  3018.     íπñÑΓ »α¿ßóá¿óáΓ∞ »«ñ¼Ñ¡ε "MY-BUTTONS" ¬¡«»«τ¡«¼π ¼Ñ¡ε.
  3019.  
  3020. ùΓ« ¬áßáÑΓß∩ »¿¬Γ«úαáΣ¿τÑ߬¿σ ¿ »áñáεΘ¿σ ¼Ñ¡ε, Γ« ñ½∩ ¡¿σ ñ«»πßΓ¿¼«
  3021. ¿¼∩ »«ñ¼Ñ¡ε "*" ¿ «º¡áτáÑΓ «¡« óδßóÑτ¿óá¡¿Ñ »«ñ¼Ñ¡ε ¿º ΓѬπΘÑú« αáºñѽá
  3022. ¼Ñ¡ε.
  3023. Há»α¿¼Ñα:
  3024.  
  3025.      (menucmd "P1=NUMERIC")
  3026.      (menucmd "P1=*")
  3027.  
  3028. óδíÑαÑΓ »«ñ¼Ñ¡ε "NUMERIC" ¿º »áñáεΘÑú« ¼Ñ¡ε 1 ¿ óδßóÑΓ¿Γ Ñú« ¡á φ¬αá¡Ñ.
  3029.  
  3030. MENUCMD óßÑúñá ó«ºóαáΘáÑΓ nil.
  3031.  
  3032.     4.77 (min <τ¿ß½«> <τ¿ß½«>...)
  3033.  
  3034. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ ¡á¿¼Ñ¡∞ΦÑÑ ¿º ºáñá¡¡δσ <τ¿ßѽ>. Káªñ«Ñ
  3035. <τ¿ß½«> ¼«ªÑΓ íδΓ∞ ñÑ⌐ßΓó¿Γѽ∞¡δ¼ ¿½¿ µÑ½δ¼. Há»α¿¼Ñα:
  3036.  
  3037.     (min 683 -10.0)                       ó«ºóαáΘáÑΓ     -10.000000
  3038.     (min 73 2 48 5)                       ó«ºóαáΘáÑΓ     2
  3039.  
  3040.     4.78 (minusp <φ½Ñ¼Ñ¡Γ>)
  3041.  
  3042. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ T, Ñß½¿ <φ½Ñ¼Ñ¡Γ> ñÑ⌐ßΓó¿Γѽ∞¡«Ñ ¿½¿ µÑ½«Ñ
  3043. τ¿ß½« ¿¼ÑεΦÑÑ «Γα¿µáΓѽ∞¡«Ñ º¡áτÑ¡¿Ñ, ¿¡áτÑ «¡á ó«ºóαáΘáÑΓ nil. Ä¡á
  3044. ¡Ñ «»αÑñѽѡá ñ½∩ ñαπú¿σ Γ¿»«ó <φ½Ñ¼Ñ¡Γ«ó>. Há»α¿¼Ñα:
  3045.  
  3046.     (minus -1)                            ó«ºóαáΘáÑΓ     T
  3047.     (minusp -4.293)                       ó«ºóαáΘáÑΓ     T
  3048.     (minusp 830.2)                        ó«ºóαáΘáÑΓ     nil
  3049.  
  3050.     4.79 (not <φ½Ñ¼Ñ¡Γ>)
  3051.  
  3052. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ Æ, Ñß½¿ óδαáªÑ¡¿Ñ - nil, ¿¡áτÑ nil. Äíδτ¡«
  3053. Σπ¡¬µ¿∩ NULL ¿ß»«½∞ºπÑΓß∩ ñ½∩ ß»¿ß¬«ó, á NOT ñ½∩ ñαπú¿σ Γ¿»«ó ñá¡¡δσ ó
  3054. ßó∩º¿ ß ¬á¬¿¼-½¿í« Γ¿»«¼ π»αáó½∩εΘ¿σ Σπ¡¬µ¿⌐. Há»α¿¼Ñα, ñá¡«:
  3055.  
  3056.     (setq a 123)
  3057.     (setq b "string")
  3058.     (setq c nil)
  3059.  
  3060.  
  3061.  
  3062.  
  3063.  
  3064.                            - 52 -
  3065.  
  3066.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3067.  
  3068.  
  3069. Γ«úñá:
  3070.  
  3071.     (not a)                               ó«ºóαáΘáÑΓ     nil
  3072.     (not b)                               ó«ºóαáΘáÑΓ     nil
  3073.     (not c)                               ó«ºóαáΘáÑΓ     T
  3074.     (not '())                             ó«ºóαáΘáÑΓ     T
  3075.  
  3076.  
  3077. lsp-4-8
  3078.  
  3079.     4.80 (nth <n> <ß»¿ß«¬>)
  3080.  
  3081. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ "φ¡¡δ⌐" φ½Ñ¼Ñ¡Γ <ß»¿ß¬á>, úñÑ <n> - ¡«¼Ñα
  3082. φ½Ñ¼Ñ¡Γá (¡«½∞ - »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ). àß½¿ <n> í«½∞ΦÑ, τѼ ¡«¼Ñα »«ß½Ññ¡Ñú«
  3083. φ½Ñ¼Ñ¡Γá <ß»¿ß¬á>, ó«ºóαáΘáÑΓß∩ nil. Há»α¿¼Ñα:
  3084.  
  3085.     (nth 3 '(a b c d e))                   ó«ºóαáΘáÑΓ     D
  3086.     (nth 0 '(a b c d e))                   ó«ºóαáΘáÑΓ     A
  3087.     (nth 5 '(a b c d e))                   ó«ºóαáΘáÑΓ     nil
  3088.  
  3089.     4.81 (null <φ½Ñ¼Ñ¡Γ>)
  3090.  
  3091. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ Æ, Ñß½¿ <φ½Ñ¼Ñ¡Γ> óδτ¿ß½∩ÑΓß∩ ó nil, ¿¡áτÑ
  3092. nil. Há»α¿¼Ñα, ñá¡«:
  3093.  
  3094.     (setq a 123)
  3095.     (setq b "string")
  3096.     (setq c nil)
  3097.  
  3098. Γ«úñá:
  3099.  
  3100.     (null a)                              ó«ºóαáΘáÑΓ     nil
  3101.     (null b)                              ó«ºóαáΘáÑΓ     nil
  3102.     (null c)                              ó«ºóαáΘáÑΓ     T
  3103.     (null '())                            ó«ºóαáΘáÑΓ     T
  3104.  
  3105.     4.82 (numberp <φ½Ñ¼Ñ¡Γ>)
  3106.  
  3107. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ Æ, Ñß½¿ <φ½Ñ¼Ñ¡Γ> - µÑ½«Ñ ¿½¿ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½«,
  3108. ¿¡áτÑ nil. Há»α¿¼Ñα, ñá¡«:
  3109.  
  3110.     (setq a 123)
  3111.     (setq b 'a)
  3112.  
  3113. Γ«úñá:
  3114.  
  3115.     (numberp 4)                           ó«ºóαáΘáÑΓ     T
  3116.     (numberp 3.8348)                      ó«ºóαáΘáÑΓ     T
  3117.     (numberp "Howdy")                     ó«ºóαáΘáÑΓ     nil
  3118.     (numberp 'a)                          ó«ºóαáΘáÑΓ     nil
  3119.     (numberp a)                           ó«ºóαáΘáÑΓ     T
  3120.     (numberp b)                           ó«ºóαáΘáÑΓ     nil
  3121.     (numberp (eval b))                    ó«ºóαáΘáÑΓ     T
  3122.  
  3123.     4.83 (open <¿¼∩ Σá⌐½á> <αѪ¿¼>)
  3124.  
  3125. ¥Γá Σπ¡¬µ¿∩  «Γ¬αδóáÑΓ Σá⌐½ ñ½∩ ñ«ßΓπ»á Σπ¡¬µ¿⌐ éó«ñá/éδó«ñá (I/O)
  3126. AutoLISP. Ä¡á ó«ºóαáΘáÑΓ «»¿ßáΓѽ∞ Σá⌐½á ñ½∩ ¿ß»«½∞º«óá¡¿∩ ñαπú¿¼¿
  3127.  
  3128.  
  3129.  
  3130.  
  3131.                            - 53 -
  3132.  
  3133.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3134.  
  3135.  
  3136. Σπ¡¬µ¿∩¼¿ éó«ñá/éδó«ñá, »«φΓ«¼π «¡á ñ«½ª¡á »α¿ßóá¿óáΓ∞ß∩ Σπ¡¬µ¿Ñ⌐ SETQ
  3137. ß¿¼ó«½π. Há»α¿¼Ñα:
  3138.  
  3139.     (setq a (open "file.ext" "r"))
  3140.  
  3141. <¿¼∩ Σá⌐½á> - φΓ« ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá, π¬áºδóáεΘá∩ ¿¼∩ ¿ αáßΦ¿αÑ¡¿Ñ
  3142. «Γ¬αδóáѼ«ú« Σá⌐½á. <ÉѪ¿¼> - φΓ« Σ½áú τΓÑ¡¿∩/ºá»¿ß¿. ¥Γ« ñ«½ª¡á íδΓ∞
  3143. ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá, ß«ßΓ«∩Θá∩ ¿º «ñ¡«⌐ íπ¬óδ, ¡áíαá¡¡«⌐ ¡á ¡¿ª¡Ñ¼
  3144. αÑú¿ßΓαÑ. ä«»πßΓ¿¼δÑ º¡áτÑ¡¿∩ íπ¬ó αѪ¿¼á «»¿ßδóáεΓß∩ ó ß½ÑñπεΘÑ⌐ Γáí½¿µÑ.
  3145.  
  3146. !~~~~~~~~~~~!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  3147. !ÉѪ¿¼ OPEN !              Ä»¿ßá¡¿Ñ                                   !
  3148. !-----------!---------------------------------------------------------!
  3149. !   "r"     !  ÄΓ¬αδΓ∞ ñ½∩ τΓÑ¡¿∩. àß½¿ <¿¼∩ Σá⌐½á>  ¡Ñ ßπΘÑßΓóπÑΓ,   !
  3150. !           !  ó«ºóαáΘáÑΓß∩ nil.                                      !
  3151. !-----------!---------------------------------------------------------!
  3152. !   "w"     !  ÄΓ¬αδΓ∞ ñ½∩ ºá»¿ß¿. àß½¿ <¿¼∩ Σá⌐½á>  ¡Ñ ßπΘÑßΓóπÑΓ,   !
  3153. !           !  ß«ºñáÑΓß∩ ¡«óδ⌐ Σá⌐½ ¿ «Γ¬αδóáÑΓß∩. àß½¿ <¿¼∩ Σá⌐½á>   !
  3154. !           !  πªÑ ßπΘÑßΓóπÑΓ, ¡áσ«ñ∩Θ¿Ñß∩ ó ¡Ñ¼ ñá¡¡δÑ íπñπΓ            !
  3155. !           !  »ÑαѺỿßá¡δ.                                          !
  3156. !-----------!---------------------------------------------------------!
  3157. !    "á"    !  ÄΓ¬αδΓ∞ ñ½∩ ñ«íáó½Ñ¡¿∩. àß½¿ <¿¼∩ Σá⌐½á> ¡Ñ ßπΘÑßΓóπÑΓ,!
  3158. !           !  ß«ºñáÑΓß∩ ¡«óδ⌐ Σá⌐½ ¿ «Γ¬αδóáÑΓß∩. àß½¿ <¿¼∩ Σá⌐½á>   !
  3159. !           !  πªÑ ßπΘÑßΓóπÑΓ, «¡ íπñÑΓ «Γ¬αδΓ ¿ »«¼ÑΘÑ¡ Γᬿ¼        !
  3160. !           !  «íαẫ¼, τΓ« ½εíδÑ ¡«óδÑ ñá¡¡δÑ íπñπΓ ºá»¿ßδóáΓ∞ß∩     !
  3161. !           !  ó Σá⌐½ óß½Ññ ºá πªÑ ßπΘÑßΓóπεΘ¿¼¿.                     !
  3162. !           !  é ß¿ßΓѼáσ DOS ¡Ñ¬«Γ«αδÑ »α«úαá¼¼δ ¿ ΓѬßΓ«óδÑ         !
  3163. !           !  αÑñá¬Γ«αδ ºá»¿ßδóáεΓΓѬßΓ«óδÑ Σá⌐½δ ß ¼áα¬Ñα«¼ ¬«¡µá   !
  3164. !           !  Σá⌐½á (CTRL Z, ñÑß∩Γ¿τ¡δ⌐ ¬«ñ ASCII 26) ó ¬«¡µÑ ΓѬßΓá.!
  3165. !           !  ù¿Γá∩ ΓѬßΓ«óδ⌐ Σá⌐½, DOS ó«ºóαáΘáÑΓ ß«ßΓ«∩¡¿Ñ ¬«¡µá   !
  3166. !           !  Σá⌐½á, Ñß½¿ óßΓαÑΓ¿Γ ¼áα¬Ñα CTRL Z, ñáªÑ Ñß½¿ »«ß½Ñ    !
  3167. !           !  ¼áα¬Ñαá »α¿ßπΓßΓóπεΓ ÑΘÑ ñá¡¡δÑ. àß½¿ óδ ¡á¼ÑαÑ¡δ      !
  3168. !           !  ¿ß»«½∞º«óáΓ∞ αѪ¿¼ "á" Σπ¡¬µ¿¿ OPEN ñ½∩ ñ«íáó½Ñ¡¿∩     !
  3169. !           !  ñá¡¡δσ ó Σá⌐½δ, ß«ºñá¡¡δÑ ñαπú¿¼¿ »α«úαἼἿ,         !
  3170. !           !  πñ«ßΓ«óÑαΓÑß∞, τΓ« ñαπúá∩ »α«úαἼᠡѠóßΓáó¿½á ¼áα¬Ñαδ!
  3171. !           !  CTRL Z ó ¬«¡µÑ ßó«¿σ ΓѬßΓ«óδσ Σá⌐½«ó.                 !
  3172. !___________!_________________________________________________________!
  3173.  
  3174. ÅαÑñ»«½«ª¿¼, τΓ« »«¿¼Ñ¡«óá¡¡δÑ Σá⌐½δ ó ß½ÑñπεΘѼ »α¿¼ÑαÑ ¡Ñ ßπΘÑßΓóπεΓ:
  3175.  
  3176.     (setq f (open "new.tst" "w"))     ó«ºóαáΘáÑΓ <File #nnn>
  3177.     (setq f (open "nosuch.fil" "r"))  ó«ºóαáΘáÑΓ nil
  3178.     (setq f (open "longfile" "a"))    ó«ºóαáΘáÑΓ <File #nnn>
  3179.  
  3180. <¿¼∩ Σá⌐½á> ¼«ªÑΓ ó¬½ετáΓ∞ »αÑΣ¿¬ß ñ¿αÑ¬Γ«α¿¿, ¬á¬, ¡á»α¿¼Ñα,
  3181. "/test/func3". Há ß¿ßΓѼáσ MS-DOS/PS-DOS ñ«»π߬áÑΓß∩ ΓᬠªÑ ¿ß»«½∞º«óáΓ∞
  3182. íπ¬óπ πßΓα«⌐ßΓóá óó«ñá/óδó«ñá ¿ óδ ¼«ªÑΓÑ »«½∞º«óáΓ∞ß∩ «íαáΓ¡«⌐ ¬«ß«⌐
  3183. τÑαΓ«⌐ ó¼ÑßΓ« »α∩¼«⌐ ¬«ß«⌐ τÑαΓδ (¡« »«¼¡¿ΓÑ, τΓ«íδ óóÑßΓ¿ ó ßΓ᫬π
  3184. «ñ¡π «íαáΓ¡πε τÑαΓπ óδ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ "\\").
  3185.  
  3186. Há»α¿¼Ñα:
  3187.  
  3188.     (setq f (open "new.tst" "w"))     ó«ºóαáΘáÑΓ <File #nnn>
  3189.     (setq f (open "nosuch.fil" "r"))  ó«ºóαáΘáÑΓ nil
  3190.  
  3191.  
  3192.  
  3193.  
  3194.  
  3195.                            - 54 -
  3196.  
  3197.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3198.  
  3199.  
  3200.     4.84 (or <óδαáªÑ¡¿Ñ>...)
  3201.  
  3202. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ ½«ú¿τÑ߬«Ñ êïê ß»¿ß¬á óδαáªÑ¡¿⌐. OR «µÑ¡¿óáÑΓ
  3203. óδαáªÑ¡¿∩ ß½Ñóá ¡á»αáó« ñ« ΓÑσ »«α, »«¬á ¡Ñ óßΓαÑΓ¿Γß∩ óδαáªÑ¡¿Ñ, óδτ¿-
  3204. ß½∩Ѽ«Ñ ¡Ñ ó nil. àß½¿ ΓᬫѠ¡á⌐ñÑ¡«, OR »αѬαáΘáÑΓ ñá½∞¡Ñ⌐Φπε «µÑ¡¬π ¿
  3205. ó«ºóαáΘáÑΓ T. àß½¿ óßÑ óδαáªÑ¡¿∩ nil, OR ó«ºóαáΘáÑΓ nil.
  3206. Há»α¿¼Ñα:
  3207.  
  3208.     (or nil 45 '())           ó«ºóαáΘáÑΓ Æ.
  3209.     (or nil '())              ó«ºóαáΘáÑΓ nil.
  3210.  
  3211.     4.85 (osnap <Γ«τ¬á> <ßΓ᫬á-αѪ¿¼>)
  3212.  
  3213. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ Γ«τ¬π, ¬«Γ«αá∩ ∩ó½∩ÑΓß∩ αѺπ½∞ΓáΓ«¼
  3214. »α¿¼Ñ¡Ñ¡¿∩ «í'Ñ¬Γ¡«⌐ »α¿ó∩º¬¿, ºáñáóáѼ«⌐ ó <ßΓ᫬Ñ-αѪ¿¼> ñ½∩ Γ«τ¬¿
  3215. <Γ«τ¬á>. <ßΓ᫬á-αѪ¿¼> - ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá, ß«ßΓ«∩Θá∩ ¿º «ñ¡«ú« ¿½¿
  3216. í«½ÑÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó «í'Ñ¬Γ¡«⌐ »α¿ó∩º¬¿, ¬á¬, ¡á»α¿¼Ñα, "midpoint",
  3217. "center" ¿ Γ.ñ., αáºñѽѡ¡δσ ºá»∩Γ묨.
  3218.     Há»α¿¼Ñα:
  3219.  
  3220.        (setq pt2 (osnap pt1 "midp"))
  3221.        (setq pt2 (osnap pt1 "midp,endp,center"))
  3222.  
  3223. àß½¿ áαúπ¼Ñ¡Γ <Γ«τ¬á> - 2-σ ¼Ñα¡á∩ Γ«τ¬á (ß»¿ß«¬ ¿º ñóπσ ñÑ⌐ßΓó¿Γѽ∞¡δσ
  3224. τ¿ßѽ), Γ« íπñÑΓ ó«ºóαáΘÑ¡á 2-σ ¼Ñα¡á∩ Γ«τ¬á. àß½¿ áαúπ¼Ñ¡Γ <Γ«τ¬á>
  3225. - 3-σ ¼Ñα¡á∩ Γ«τ¬á (ß»¿ß«¬ ¿º ΓαÑσ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ), Γ« íπñÑΓ
  3226. ó«ºóαáΘÑ¡á 3-σ ¼Ñα¡á∩ Γ«τ¬á. àß½¿ ¡¿ «ñ¡«⌐ Γ«τ¬¿, ß««ΓóÑΓßΓóπεΘÑ⌐
  3227. ºáñá¡¡«¼π <αѪ¿¼π> «í'Ñ¬Γ¡«⌐ »α¿ó∩º¬¿ ¡Ñ ¡á⌐ñÑ¡«, íπñÑΓ ó«ºóαáΘáΓ∞ß∩
  3228. nil.
  3229.  
  3230.     4.86 pi
  3231.  
  3232.     ¥Γ« ¡Ñ Σπ¡¬µ¿∩, φΓ« ¬«¡ßΓá¡Γá pi. àÑ º¡áτÑ¡¿Ñ »α¿¡∩Γ« 3.1415926.
  3233.  
  3234.     4.87 (polar <Γ«τ¬á> <πú«½> <αáßßΓ«∩¡¿Ñ>)
  3235.  
  3236. ¥Γá Σπ¡¬µ¿∩  ó«ºóαáΘáÑΓ Γ«τ¬π, ¡áσ«ñ∩Θπεß∩ »«ñ πú½«¼ <πú«½> ¿ ¡á
  3237. αáßßΓ«∩¡¿Ñ <αáßßΓ«∩¡¿Ñ> «Γ ºáñá¡¡«⌐ <Γ«τ¬¿>. Æ«τ¬¿ - ß»¿ß«¬ ñóπσ
  3238. ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ ¿ <πú«½> óδαáªáÑΓß∩ ó αáñ¿á¡áσ.
  3239.     Há»α¿¼Ñα:
  3240.  
  3241.   (polar '(1.0 1.0) 0.785398 1.414214)   ó«ºóαáΘáÑΓ (2.000000 2.000000)
  3242.  
  3243.     4.88 (prin1 <óδαáªÑ¡¿Ñ> [<«»¿ßáΓѽ∞ Σá⌐½á>])
  3244.  
  3245. ¥Γá Σπ¡¬µ¿∩ óδó«ñ¿Γ óδαáªÑ¡¿Ñ <óδαáªÑ¡¿Ñ> ¡á φ¬αá¡ ¿ ó«ºóαáΘáÑΓ
  3246. <óδαáªÑ¡¿Ñ>. <óδαáªÑ¡¿Ñ> ¼«ªÑΓ íδΓ∞ ½εíδ¼ óδαáªÑ¡¿Ñ¼; ¡Ñ ΓαÑíπÑΓß∩,
  3247. τΓ«íδ «¡« í佫 ßΓ᫬«ó«⌐ ¬«¡ßΓá¡Γ«⌐. àß½¿ »α¿ßπΓßΓóπÑΓ <«»¿ßáΓѽ∞ Σá⌐½á>
  3248. (¿ ∩ó½∩ÑΓß∩ «»¿ßáΓѽѼ Σá⌐½á, «Γ¬αδΓ«ú« ñ½∩ ºá»¿ß¿), <óδαáªÑ¡¿Ñ>
  3249. ºá»¿ßδóáÑΓß∩ ó Σá⌐½ ó Γ« óαѼ∩, ¬á¬ «¡« »«∩ó½∩ÑΓß∩ ¡á φ¬αá¡Ñ. ÅÑτáΓáÑΓß∩
  3250. Γ«½∞¬« π¬áºá¡¡«Ñ <óδαáªÑ¡¿Ñ>; ¡Ñ ó¬½ετáÑΓß∩ ¡¿¬á¬¿σ »α«íѽ«ó ¿ »ÑαÑσ«ñ«ó
  3251. ¡á ¡«óπε ßΓ᫬π. Há»α¿¼Ñα, ñá¡«:
  3252.  
  3253.     (setq a 123)
  3254.     (setq b '(a))
  3255.  
  3256.  
  3257.  
  3258.  
  3259.  
  3260.                            - 55 -
  3261.  
  3262.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3263.  
  3264.  
  3265. Γ«úñá:
  3266.  
  3267.     (prin1 'a)          »ÑτáΓáÑΓ Ç          ¿    ó«ºóαáΘáÑΓ Ç
  3268.     (prin1 a)           »ÑτáΓáÑΓ 123        ¿    ó«ºóαáΘáÑΓ 123
  3269.     (prin1 b)           »ÑτáΓáÑΓ (Ç)        ¿    ó«ºóαáΘáÑΓ (Ç)
  3270.     (prin1 "Hello")     »ÑτáΓáÑΓ "hello"    ¿    ó«ºóαáΘáÑΓ "Hello"
  3271.  
  3272. Káªñδ⌐ ¿º óδΦÑ »α¿óÑñÑ¡¡δσ »α¿¼Ñα«ó »ÑτáΓáÑΓß∩ ¡á φ¬αá¡Ñ, Γ.¬. ¡Ñ
  3273. íδ½ π¬áºá¡ <«»¿ßáΓѽ∞ Σá⌐½á>. ÅαÑñ»«½«ª¿¼, τΓ« F - ñ«»πßΓ¿¼δ⌐ «»¿ßáΓѽ∞
  3274. Σá⌐½á ñ½∩ Σá⌐½á, «Γ¬αδΓ«ú« ñ½∩ ºá»¿ß¿:
  3275.  
  3276.     (prin1 "Hello" f)
  3277.  
  3278. ºá»¿ΦÑΓ "Hello" ó π¬áºá¡¡δ⌐ Σá⌐½ ¿ ó«ºóαáΓ¿Γ "Hello".
  3279.  
  3280. àß½¿ <óδαáªÑ¡¿Ñ> - φΓ« ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá, ó¬½ετáεΘá∩ π»αáó½∩εΘ¿Ñ
  3281. ß¿¼ó«½δ, PRIN1 ¿¡ΓÑα»αÑΓ¿απÑΓ φΓ¿ ß¿¼ó«½δ, ¬á¬ ß½ÑñπεΘ¿Ñ, ñ«íáó½∩∩ »ÑαÑñ
  3282. ¡¿¼¿ º¡á¬ "\":
  3283.  
  3284.  
  3285.          \Ñ        ñ½∩ óδσ«ñá (escape)
  3286.          \n        ñ½∩ »ÑαÑσ«ñá ¡á ¡«óπε ßΓ᫬π (newline)
  3287.          \r        ñ½∩ óó«ñá (return)
  3288.          \t        ñ½∩ Γáíπ½∩µ¿¿ (tab)
  3289.          \nnn      ñ½∩ ß¿¼ó«½á, ó«ß∞¼Ñα¿τ¡δ⌐ ¬«ñ ¬«Γ«α«ú« nnn.
  3290.  
  3291. ⠪:
  3292.  
  3293.     (prin1 (chr 2))      »ÑτáΓáÑΓ "\002"       ¿ ó«ºóαáΘáÑΓ "\002"
  3294.     (prin1 (chr 10))     »ÑτáΓáÑΓ "\n"         ¿ ó«ºóαáΘáÑΓ "\n"
  3295.  
  3296. PRIN1 ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ¿ íѺ áαúπ¼Ñ¡Γ«ó, Γ«úñá «¡á ó«ºóαáΘáÑΓ
  3297. (¿ »ÑτáΓáÑΓ) ß¿¼ó«½, ¡áºδóáѼδ⌐ »πßΓ«⌐ ßΓ᫬«⌐ ß¿¼ó«½«ó. àß½¿ éδ ¿ß»«½∞-
  3298. ºπÑΓÑ PRIN1 (íѺ áαúπ¼Ñ¡Γ«ó) ó ¬áτÑßΓóÑ »«ß½Ññ¡Ñú« óδαáªÑ¡¿∩ «»αÑñѽѡ¡«⌐
  3299. »«½∞º«óáΓѽѼ Σπ¡¬µ¿¿, Γ« ¬«úñá Σπ¡¬µ¿∩ ºáóÑαΦ¿Γ ßó«ε αáí«Γπ, óßÑ τΓ«
  3300. íπñÑΓ óδóÑñÑ¡« ¡á φ¬αá¡ - φΓ« »πßΓá∩ ßΓ᫬á, ΓѼ ßá¼δ¼ «íÑß»Ñτ¿óá∩
  3301. "Γ¿σ¿⌐" óδσ«ñ ¿º Σπ¡¬µ¿¿.
  3302. Há»α¿¼Ñα, »πßΓ∞:
  3303.  
  3304.            (defun C:SETUP ()
  3305.               (setvar "LUNITS" 4)
  3306.               (setvar "BLIPMODE" 0)
  3307.               (prin1)
  3308.            )
  3309.  
  3310. Γ«úñá:
  3311.  
  3312.            Command: SETUP
  3313.  
  3314. ¿ß»«½¡¿Γ «»αÑñѽѡ¡πε »«½∞º«óáΓѽѼ ¬«¼á¡ñπ, «ΓóÑτá∩ ¡á ºá»α«ßδ Σπ¡¬µ¿¿
  3315. SETVAR, ¿ óÑα¡ÑΓß∩ ¬ »«ñ߬ẬѠAutoCADá "Command:", ¡Ñ óδó«ñ∩ ¡á φ¬αá¡
  3316. ¡¿¬á¬¿σ ½¿Φ¡¿σ ß««íΘÑ¡¿⌐.
  3317.  
  3318.     4.89 (princ <óδαáªÑ¡¿Ñ> [<«»¿ßáΓѽ∞ Σá⌐½á>])
  3319.  
  3320. ¥Γá Σπ¡¬µ¿∩  »«σ«ªá ¡á PRIN1 ¬α«¼Ñ Γ«ú«, τΓ« π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ ó
  3321. <óδαáªÑ¡¿¿> »ÑτáΓáεΓß∩ íѺ αáßΦ¿αÑ¡¿∩. é««íΘÑ PRIN1 ß«ºñá¡á ñ½∩ »ÑτáΓ¿
  3322.  
  3323.  
  3324.  
  3325.  
  3326.                            - 56 -
  3327.  
  3328.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3329.  
  3330.  
  3331. óδαáªÑ¡¿⌐ »πΓѼ, ß«ó¼ÑßΓ¿¼δ¼ ß Σπ¡¬µ¿Ñ⌐ LOAD, ó Γ« óαѼ∩ ¬á¬ PRINC íπñÑΓ
  3332. »ÑτáΓáΓ∞ ¿σ Γᬿ¼ »πΓѼ, τΓ«íδ «¡¿ ¼«ú½¿ ßτ¿ΓδóáΓ∞ß∩ Σπ¡¬µ¿∩¼¿ Γ¿»á
  3333. READ-LINE.
  3334.  
  3335.  
  3336. lsp-4-9
  3337.  
  3338.     4.90 (print <óδαáªÑ¡¿Ñ> [<«»¿ßáΓѽ∞ Σá⌐½á>])
  3339.  
  3340. ¥Γá Σπ¡¬µ¿∩  »«σ«ªá ¡á PRIN1, ¬α«¼Ñ Γ«ú« τΓ« <óδαáªÑ¡¿Ñ> »ÑτáΓáÑΓß∩
  3341. ß ¡«ó«⌐ ßΓ᫬¿, á »«ß½Ñ <óδαáªÑ¡¿∩> ßΓáó¿Γß∩ »α«íѽ.
  3342.  
  3343.     4.91 (progn <óδαáªÑ¡¿Ñ>...)
  3344.  
  3345. ¥Γá Σπ¡¬µ¿∩  óδτ¿ß½∩ÑΓ ¬áªñ«Ñ <óδαáªÑ¡¿Ñ> »«ß½Ññ«óáΓѽ∞¡« ¿
  3346. ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ »«ß½Ññ¡Ñú« óδαáªÑ¡¿∩. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ PROGN
  3347. ñ½∩ óδ»«½¡Ñ¡¿∩ ¡Ñ߬«½∞¬¿σ óδαáªÑ¡¿⌐ Γá¼, úñÑ ñ«»π߬áÑΓß∩ óδ»«½¡Ñ¡¿Ñ
  3348. Γ«½∞¬« «ñ¡«ú«. Há»α¿¼Ñα:
  3349.  
  3350.     (if (= a b) (progn
  3351.                  (setq a (+ a 10))
  3352.                  (setq b (- b 10))
  3353.                 )
  3354.     )
  3355.  
  3356. öπ¡¬µ¿∩ IF ¡«α¼á½∞¡« óδ»«½¡∩ÑΓ «ñ¡« óδαáªÑ¡¿Ñ "then" /Γ«úñá/, Ñß½¿
  3357. πß½«ó¿Ñ óδ»«½¡∩ÑΓß∩ ¿ ¡Ñ αáó¡« nil. é φΓ«¼ »α¿¼ÑαÑ ¼δ ¿ß»«½∞º«ó὿
  3358. PROGN, τΓ«íδ óδ»«½¡∩½«ß∞ ñóá óδαáªÑ¡¿∩ ó¼ÑßΓ« «ñ¡«ú«.
  3359.  
  3360.     4.92 (prompt <ß««íΘÑ¡¿Ñ>)
  3361.  
  3362. ¥Γá Σπ¡¬µ¿∩  óδßóÑτ¿óáÑΓ ß««íΘÑ¡¿Ñ ó »«½Ñ »«ñ߬ẫ¬ φ¬αá¡á ¿
  3363. ó«ºóαáΘáÑΓ nil. <ß««íΘÑ¡¿Ñ> - ßΓ᫬á ß¿¼ó«½«ó. é ß¿ßΓѼѠAutoCAD ß
  3364. ñóπ¼∩ φ¬αá¡á¼¿ PROMT óδßóÑτ¿óáÑΓ <ß«íΘÑ¡¿Ñ> ¡á «í«¿σ φ¬αá¡áσ ¿ »«φΓ«¼π
  3365. »αÑñ»«τΓ¿Γѽ∞¡« ¿ß»«½∞º«óáΓ∞ PRINC. Há»α¿¼Ñα:
  3366.  
  3367.      (prompt "H«ó«Ñ º¡áτÑ¡¿Ñ: ")
  3368.  
  3369. óδßóÑτ¿óáÑΓ "H«ó«Ñ º¡áτÑ¡¿Ñ: " ¡á φ¬αá¡Ñ (φ¬αá¡áσ) ¿ ó«ºóαáΘáÑΓ nil.
  3370.  
  3371.     4.93 (quote <óδαáªÑ¡¿Ñ>)
  3372.  
  3373. 髺óαáΘáÑΓ óδαáªÑ¡¿Ñ ¡Ñ óδ»«½¡∩∩ Ñú«. ¥Γ« ¼«ªÑΓ íδΓ∞ ΓᬠªÑ ºá»¿ßá¡«:
  3374.  
  3375.             'óδαáªÑ¡¿Ñ
  3376.  
  3377. Há»α¿¼Ñα:
  3378.  
  3379.     (quote a)      ó«ºóαáΘáÑΓ Ç
  3380.     (quote ßat)    ó«ºóαáΘáÑΓ CÇT
  3381.     (quote (a b))  ó«ºóαáΘáÑΓ (Ç B)
  3382.     'a             ó«ºóαáΘáÑΓ Ç
  3383.     'cat           ó«ºóαáΘáÑΓ CÇT
  3384.     '(a b)         ó«ºóαáΘáÑΓ Ç
  3385.  
  3386. (Å«ß½Ññ¡¿Ñ Γα¿ »α¿¼Ñαá ¡Ñ íπñπΓ αáí«ΓáΓ∞, Ñß½¿ ¿σ ¡áíαáΓ∞
  3387.  
  3388.  
  3389.  
  3390.  
  3391.                            - 57 -
  3392.  
  3393.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3394.  
  3395.  
  3396. ¡Ñ»«ßαÑñßΓóÑ¡¡« ß ¬½áó¿áΓπαδ ó «ΓóÑΓ ¡á ºá»α«ß AutoCAD. Å«¼¡¿ΓÑ, τΓ«
  3397. Γᬫ⌐ óó«ñ ñ«½ªÑ¡ ¡áτ¿¡áΓ∞ß∩ ß "(" ¿½¿ "!" ß µÑ½∞ε ¿¡ΓÑα»α¿Γᵿ¿ ¿σ ¬á¬
  3398. óδαáªÑ¡¿⌐ LISP.)
  3399.  
  3400.     4.94 (read <ßΓ᫬á>)
  3401.  
  3402. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »Ñαóδ⌐ ß»¿ß«¬ ¿½¿ áΓ«¼ ¿º ñá¡¡«⌐ <ßΓ᫬¿>.
  3403. <ßΓ᫬á> ¡Ñ ñ«½ª¡á ß«ñÑαªáΓ∞ »α«íѽδ. Há»α¿¼Ñα:
  3404.  
  3405.     (read "hello")      ó«ºóαáΘáÑΓ HELLO
  3406.     (read "hi")         ó«ºóαáΘáÑΓ HI
  3407.     (read "(a)")        ó«ºóαáΘáÑΓ (A)
  3408.  
  3409.     4.95 (read-char [<«»¿ßáΓѽ∞ Σá⌐½á>])
  3410.  
  3411. ¥Γá Σπ¡¬µ¿∩ ßτ¿ΓδóáÑΓ Ññ¿¡¿τ¡δ⌐ ß¿¼ó«½ ¿º íπΣÑαá óó«ñá ¬½áó¿áΓπαδ
  3412. ¿½¿ ¿º «Γ¬αδΓ«ú« Σá⌐½á ºáñáóáѼ«ú« <«»¿ßáΓѽѼ Σá⌐½á>. Ä¡á ó«ºóαáΘáÑΓ
  3413. (µÑ½«Ñ) ASCII ¬«ñ ßτ¿ΓδóáѼ«ú« ß¿¼ó«½á.
  3414.  
  3415. àß½¿ ¡Ñ ºáñá¡« <«»¿ßáΓѽ∩ Σá⌐½á> ¿ ó íπΣÑαÑ óó«ñá ¬½áó¿áΓπαδ ¡ÑΓ
  3416. ß¿¼ó«½«ó, READ-CHAR ªñÑΓ, τΓ«íδ óδ óóѽ¿ τΓ«-½¿í« ß ¬½áó¿áΓπαδ
  3417. (ºá¬á¡τ¿óáεΘÑÑß∩ RETURN). Há»α¿¼Ñα, ñ«íπßΓ¿¼, τΓ« íπΣÑα ¬½áó¿áΓπαδ »πßΓ:
  3418.  
  3419.     (read-char)
  3420.  
  3421. íπñÑΓ ªñáΓ∞ ¬á¬«ú«-½¿í« óó«ñá. àß½¿ óδ ¡áíα὿ "Çéæ", ºáóÑαΦ¿ó
  3422. óó«ñ RETURN, READ-CHAR ó«ºóαáΓ¿Γ 65 (¬«ñ AS0CII íπ¬óδ "Ç" (½áΓ¿¡ß¬«⌐)).
  3423. æ½ÑñπεΘ¿Ñ Γα¿ «íαáΘÑ¡¿∩ ¬ READ-CHAR ó«ºóαáΓ∩Γ 66,67 ¿ 10 (»ÑαÑσ«ñ ¡á
  3424. ¡«óπε ßΓ᫬π) ß««ΓóÑΓßΓóÑ¡¡«. àß½¿ ºáΓѼ »«ß½ÑñπÑΓ ÑΘÑ «ñ¡« «íαáΘÑ¡¿Ñ
  3425. ¬ READ-CHAR, «¡á íπñÑΓ ªñáΓ∞ óó«ñá.
  3426.  
  3427.     4.96 (read-line [<«»¿ßáΓѽ∞ Σá⌐½á>])
  3428.  
  3429. ¥Γá Σπ¡¬µ¿∩ ßτ¿ΓδóáÑΓ ßΓ᫬π ß¿¼ó«½«ó ß ¬½áó¿áΓπαδ ¿½¿ ¿º
  3430. «Γ¬αδΓ«ú« Σá⌐½á, ºáñá¡¡«ú« <«»¿ßáΓѽѼ Σá⌐½á>; READ-LINE ó«ºóαáΘáÑΓ nil,
  3431. ¿¡áτÑ «¡á ó«ºóαáΘáÑΓ ßΓ᫬«ó«Ñ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ í佫 ßτ¿Γá¡«. Há»α¿¼Ñα,
  3432. ñ«»πßΓ¿¼, τΓ« F - φΓ« αáºαÑΦÑ¡¡δ⌐ π¬áºáΓѽ∞ «Γ¬αδΓ«ú« Σá⌐½á:
  3433.  
  3434.     (read-line f)
  3435.  
  3436. ó«ºóαáΓ¿Γ ß½ÑñπεΘπε óóÑñÑ¡¡πε ßΓα«¬π ¿º Σá⌐½á ¿½¿ (Ñß½¿ ñ«ßΓ¿ú¡πΓ ¬«¡Ñµ
  3437. Σá⌐½á) nil.
  3438.  
  3439.     4.97 (redraw [<¿¼∩ »α¿¼¿Γ¿óá> [<αѪ¿¼>]])
  3440.  
  3441. äÑ⌐ßΓó¿Ñ Σπ¡¬µ¿¿ ºáó¿ß¿Γ «Γ τ¿ß½á óóÑñÑ¡¡δσ áαúπ¼Ñ¡Γ«ó. àß½¿ «¡á
  3442. óδºδóáÑΓß∩ íѺ áαúπ¼Ñ¡Γ«ó:
  3443.  
  3444.     (redrow)
  3445.  
  3446. íπñÑΓ ¡áα¿ß«óá¡ óÑß∞ τÑαΓѪ, Γ«τ¡« ΓᬠªÑ, ¬á¬ φΓ« ñѽáÑΓ ¬«¼á¡ñá
  3447. AutoCAD REDRAW. àß½¿ óδºδóáÑΓß∩ ß áαúπ¼Ñ¡Γ«¼ <¿¼∩ »α¿¼¿Γ¿óá>:
  3448.  
  3449.     (redraw <¿¼∩ »α¿¼¿Γ¿óá>)
  3450.  
  3451. óδíαá¡¡δ⌐ »α¿¼¿Γ¿ó íπñÑΓ »ÑαÑα¿ß«óá¡. ¥Γ« ¿ß»«½∞ºπÑΓß∩ ñ½∩
  3452.  
  3453.  
  3454.  
  3455.  
  3456.                            - 58 -
  3457.  
  3458.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3459.  
  3460.  
  3461. ¿ñÑ¡Γ¿Σ¿¬áµ¿¿ »α¿¼¿Γ¿óá ¡á φ¬αá¡Ñ »«ß½Ñ ¿ß»«½∞º«óá¡¿∩ Σπ¡¬µ¿¿ GRCLEAR
  3462. ñ½∩ «τ¿ßΓ¬¿ φ¬αá¡á. ê¼Ñ¡á »α¿¼¿Γ¿ó«ó «»¿ßá¡δ ó ú½áóÑ 5 ¡áßΓ«∩ΘÑú«
  3463. απ¬«ó«ñßΓóá.
  3464. Å«½¡δ⌐ ¬«¡Γα«½∞ ºá »ÑαÑα¿ß«ó᡿Ѽ »α¿¼¿Γ¿óá «íÑß»Ñτ¿óáÑΓß∩ ó맮ó«¼
  3465. REDRAW ß ñóπ¼∩ áαúπ¼Ñ¡ΓἿ:
  3466.  
  3467.     (redraw <¿¼∩ »α¿¼¿Γ¿óá> <αѪ¿¼>)
  3468.  
  3469. úñÑ <¿¼∩ »α¿¼¿Γ¿óá> - φΓ« ¿¼∩ »ÑαÑα¿ß«óδóáѼ«ú« »α¿¼¿Γ¿óá, á <αѪ¿¼>-
  3470. φΓ« µÑ½«Ñ τ¿ß½« ß «ñ¡¿¼ ¿º ß½ÑñπεΘ¿σ º¡áτÑ¡¿⌐:
  3471.  
  3472.      !~~~~~~~~~~~~~~~~~!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  3473.      !  αѪ¿¼ REDRAW   !               ñÑ⌐ßΓó¿Ñ                     !
  3474.      !-----------------!--------------------------------------------!
  3475.      !        1        ! »ÑαÑτÑατ¿óá¡¿Ñ »α¿¼¿Γ¿óá ¡á φ¬αá¡Ñ         !
  3476.      !-----------------!--------------------------------------------!
  3477.      !        2        ! ¡Ñ α¿ßπÑΓ »α¿¼¿Γ¿ó (ßΓ¿αáÑΓ)               !
  3478.      !-----------------!--------------------------------------------!
  3479.      !        3        ! »«ñßóÑτ¿óáÑΓ »α¿¼¿Γ¿ó (Ñß½¿ ¼«ªÑΓ ñ¿ß»½Ñ⌐) !
  3480.      !-----------------!--------------------------------------------!
  3481.      !        4        ! »ÑαÑßΓáÑΓ »«ñßóÑτ¿óáΓ∞ »α¿¼¿Γ¿ó (Ñß½¿ ¼«ªÑΓ!
  3482.      !                 ! ñ¿ß»½Ñ⌐)                                   !
  3483.      !-----------------!--------------------------------------------!
  3484.  
  3485. àß½¿ <¿¼∩ »α¿¼¿Γ¿óá> - ºáú«½«ó«¬ ß½«ª¡«ú« »α¿¼¿Γ¿óá (Å«½¿½¿¡¿¿ ¿½¿
  3486. ü½«¬á ß áΓα¿íπΓἿ), ó »α«µÑßßÑ »ÑαÑα¿ß«ó¬¿ íπñπΓ πτáßΓó«óáΓ∞ ¬á¬
  3487. «ß¡«ó¡«⌐ »α¿¼¿Γ¿ó, Γᬠ¿ óßÑ »«ñ»α¿¼¿Γ¿óδ, Ñß½¿ áαúπ¼Ñ¡Γ <αѪ¿¼>
  3488. »«½«ª¿Γѽѡ. àß½¿ ªÑ áαúπ¼Ñ¡Γ <αѪ¿¼> «Γ»α¿µáΓѽѡ, Γ« Γ«½∞¬« «ß¡«ó¡«⌐
  3489. »α¿¼¿Γ¿ó íπñÑΓ πτáßΓó«óáΓ∞ ó »α«µÑßßÑ REDRAW.
  3490.  
  3491.     4.98 (rem <τ¿ß½«1> <τ¿ß½«2>)
  3492.  
  3493. ¥Γá Σπ¡¬µ¿∩ ñѽ¿Γ <τ¿ß½«1> ¡á <τ¿ß½«2> ¿ ó«ºóαáΘáÑΓ «ßΓáΓ«¬ «Γ
  3494. ñѽѡ¿∩ (<τ¿ß½«1> mod <τ¿ß½«2>). REM ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ß µÑ½δ¼¿ ¿
  3495. ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿ óѽ¿τ¿¡á¼¿ ß« ßΓá¡ñáαΓ¡δ¼¿ »αáó¿½á¼¿ »αÑ«íαẫóá¡¿∩.
  3496. Há»α¿¼Ñα:
  3497.  
  3498.     (rem 42 12)        ó«ºóαáΘáÑΓ 6
  3499.     (rem 12.0 16)      ó«ºóαáΘáÑΓ 12.000000
  3500.     (rem 60 3)         ó«ºóαáΘáÑΓ 0
  3501.  
  3502.     4.99 (repeat <τ¿ß½«> <óδαáªÑ¡¿Ñ>...)
  3503.  
  3504. é φΓ«⌐ Σπ¡¬µ¿¿ <τ¿ß½«> »αÑñßΓáó½∩ÑΓß∩ ½εí«⌐ »«½«ª¿Γѽ∞¡«⌐ µÑ½«⌐
  3505. óѽ¿τ¿¡«⌐. öπ¡¬µ¿∩ óδ»«½¡∩ÑΓ ¬áªñ«Ñ <óδαáªÑ¡¿Ñ> ºáñá¡¡«Ñ <τ¿ß½«> αẠ¿
  3506. ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ »«ß½Ññ¡Ñú« óδαáªÑ¡¿∩. Há»α¿¼Ñα, ñá¡«:
  3507.  
  3508.     (setq a 10)
  3509.     (setq b 100)
  3510.  
  3511. Γ«úñá:
  3512.  
  3513.     (repeat 4
  3514.         (setq a (+ a 10)))
  3515.         (setq b (+ b 10)))
  3516.     )                         ó«ºóαáΘáÑΓ 140.
  3517.  
  3518.  
  3519.  
  3520.  
  3521.                            - 59 -
  3522.  
  3523.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3524.  
  3525.  
  3526. lsp-4-10
  3527.  
  3528.     4.100 (reverse <ß»¿ß«¬>)
  3529.  
  3530. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ <ß»¿ß«¬> c Ñú« φ½Ñ¼Ñ¡ΓἿ, αáßßΓáó½Ñ¡¡δ¼¿ ó
  3531. «íαáΓ¡«¼ »«α∩ñ¬Ñ. Há»α¿¼Ñα:
  3532.  
  3533.     (reverse '((a) b c))      ó«ºóαáΘáÑΓ (æ é (Ç))
  3534.  
  3535.     4.101 (rtos <τ¿ß½«> [<αѪ¿¼> [<Γ«τ¡«ßΓ∞>]])
  3536.  
  3537. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ßΓ᫬«óπε ¬«¡ßΓá¡Γπ, ¬«Γ«αá∩ »αÑñßΓáó½∩ÑΓ
  3538. <τ¿ß½«> (ñÑ⌐ßΓó¿Γѽ∞¡á∩ óѽ¿τ¿¡á) ó ß««ΓóÑΓßΓó¿¿ ß« º¡áτÑ¡¿∩¼¿ <αѪ¿¼á>,
  3539. <Γ«τ¡«ßΓ¿> ¿ αẼÑα¡«⌐ »ÑαѼѡ¡«⌐ AutoCAD DIMZIN. <ÉѪ¿¼> ¿ <Γ«τ¡«ßΓ∞> -
  3540. µÑ½δÑ óѽ¿τ¿¡δ, ¬«Γ«αδÑ ¡áº¡áτáεΓ αѪ¿¼ »αÑñßΓáó½Ñ¡¿∩ ¿ Ñú« Γ«τ¡«ßΓ∞.
  3541. H¿ªÑ »αÑñßΓáó½Ñ¡δ º¡áτÑ¡¿∩ <αѪ¿¼á>:
  3542.  
  3543.    !~~~~~~~~~~~~~~~~~~~!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
  3544.    !  ÉѪ¿¼δ RTOS      ! ö«α¼áΓ »αÑñßΓáó½Ñ¡¿∩                      !
  3545.    !-------------------!-------------------------------------------!
  3546.    !       1           !  ¡áπτ¡δ⌐                                  !
  3547.    !-------------------!-------------------------------------------!
  3548.    !       2           !  ñÑß∩Γ¿τ¡δ⌐                               !
  3549.    !-------------------!-------------------------------------------!
  3550.    !       3           !  ¿¡ªÑ¡Ñα¡δ⌐ (ΣπΓδ ¿ ñÑß∩Γ¿τ¡δÑ ñε⌐¼δ)     !
  3551.    !-------------------!-------------------------------------------!
  3552.    !       4           !  áασ¿ΓѬΓπα¡δ⌐ (ΣπΓδ ¿ ñα«í¡δÑ ñε⌐¼δ)     !
  3553.    !-------------------!-------------------------------------------!
  3554.    !       5           !  »α«¿ºó«½∞¡δÑ ñα«í¡δÑ τáßΓ¿               !
  3555.    !-------------------!-------------------------------------------!
  3556.  
  3557. Çαúπ¼Ñ¡Γδ <αѪ¿¼> ¿ <Γ«τ¡«ßΓ∞> ß««ΓóÑΓßΓóπεΓ ß¿ßΓѼ¡δ¼ »ÑαѼѡ¡δ¼
  3558. AutoCAD  LUNITS ¿ LUPREC. àß½¿ «»πßΓ¿½¿ φΓ¿ áαúπ¼Ñ¡Γδ, Γ« íπñπΓ
  3559. ¿ß»«½∞º«óá¡δ ΓѬπΘ¿Ñ º¡áτÑ¡¿∩ LUNITS ¿ LUPREC. Åα¿¼Ñαδ RTOS:
  3560.  
  3561.     (rtos 17.5 1 4)   ó«ºóαáΘáÑΓ   "1.7500E+01"
  3562.     (rtos 17.5 2 2)   ó«ºóαáΘáÑΓ   "17.50"
  3563.     (rtos 17.5 3 2)   ó«ºóαáΘáÑΓ   "1'-5.50""
  3564.     (rtos 17.5 4 2)   ó«ºóαáΘáÑΓ   "1'-5 1/2""
  3565.     (rtos 17.5 5 2)   ó«ºóαáΘáÑΓ   "17 1/2"
  3566.  
  3567.     4.102 (set <ß¿¼ó«½> <óδαáªÑ¡¿Ñ>)
  3568.  
  3569. Åα¿ßóá¿óáÑΓ <ß¿¼ó«½π> (úñÑ <ß¿¼ó«½> - ¿¼∩ ß¿¼ó«½á ß ¬áóδτ¬«⌐
  3570. ß»ÑαÑñ¿) º¡áτÑ¡¿Ñ <óδαáªÑ¡¿∩> ¿ ó«ºóαáΘáÑΓ φΓ« º¡áτÑ¡¿Ñ. Há»α¿¼Ñα:
  3571.  
  3572.     (set 'a 5.0)        ó«ºóαáΘáÑΓ 5.000000 ¿ πßΓá¡áó½¿óáÑΓ ó ß¿¼ó«½ Ç
  3573.     (set (quote b) 'a)  ó«ºóαáΘáÑΓ Ç        ¿ πßΓá¡áó½¿óáÑΓ ó ß¿¼ó«½ é.
  3574.  
  3575. àß½¿ SET ¿ß»«½∞ºπÑΓß∩ ß ß¿¼ó«½∞¡δ¼ ¿¼Ñ¡Ñ¼ íѺ ¬áóδτ¬¿, «¡á ¼«ªÑΓ
  3576. »α¿ßó«¿Γ∞ ¡«ó«Ñ º¡áτÑ¡¿Ñ ¬«ßóÑ¡¡« ñαπú«¼π ß¿¼ó«½π. Há»α¿¼Ñα, ó«º∞¼Ñ¼
  3577. óδΦÑ»α¿óÑñÑ¡¡δÑ »α¿¼Ñαδ:
  3578.  
  3579.      (set b 640)     óÑα¡ÑΓ  640
  3580.  
  3581. ¿ »α¿ßó«¿Γ º¡áτÑ¡¿Ñ 640 ß¿¼ó«½π Ç (»«ß¬«½∞¬π φΓ« º¡áτÑ¡¿Ñ ß¿¼ó«½á é).
  3582.  
  3583.  
  3584.  
  3585.  
  3586.                            - 60 -
  3587.  
  3588.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3589.  
  3590.  
  3591. 漫Γα¿ΓÑ ΓᬪѠ¡¿ªÑ SETQ.
  3592.  
  3593.     4.103 (setq <ß¿¼ó«½1> <óδαáªÑ¡¿Ñ1> [<ß¿¼ó«½2> <óδαáªÑ¡¿Ñ2>]...)
  3594.  
  3595. ¥Γá Σπ¡¬µ¿∩ πßΓá¡áó½¿óáÑΓ ó <ß¿¼ó«½1> º¡áτÑ¡¿Ñ <óδαáªÑ¡¿∩1>, ó <ß¿¼ó«½2>
  3596. º¡áτÑ¡¿Ñ <óδαáªÑ¡¿∩2> ¿ Γ.ñ. ¥Γ« «ß¡«ó¡á∩ Σπ¡¬µ¿∩ »α¿ßó«Ñ¡¿∩ ó AutoLISPÑ.
  3597. Há»α¿¼Ñα:
  3598.  
  3599.     (setq a 5.0)      ó«ºóαáΘáÑΓ 5.000000
  3600.  
  3601. ¿ »α¿ßóá¿óáÑΓ º¡áτÑ¡¿Ñ 5.000000 ß¿¼ó«½π Ç. K«úñá íδ ¡¿ óδτ¿ß½∩½«ß∞ A,
  3602. «¡« íπñÑΓ óδτ¿ß½∩Γ∞ß∩ αáó¡δ¼ ñÑ⌐ßΓó¿Γѽ∞¡«¼π τ¿ß½π 5.000000. äαπú¿Ñ
  3603. »α¿¼Ñαδ:
  3604.  
  3605.     (setq b 123 c 4.7)       ó«ºóαáΘáÑΓ 4.7
  3606.     (setq s "it")            ó«ºóαáΘáÑΓ "it"
  3607.     (setq x '(a b))          ó«ºóαáΘáÑΓ (A B)
  3608.  
  3609. öπ¡¬µ¿¿ SET ¿ SETQ ß«ºñáεΓ ¿½¿ ¼«ñ¿Σ¿µ¿απεΓ ú½«íá½∞¡δÑ ß¿¼ó«½δ ó ΓÑσ
  3610. ß½πτá∩σ, ¬«úñá Σπ¡¬µ¿¿ ¡Ñ ¿ß»«½∞ºπεΓß∩ ó Σπ¡¬µ¿¿ DEFUN ñ½∩ »α¿ßóá¿óá¡¿∩
  3611. º¡áτÑ¡¿⌐ áαúπ¼Ñ¡Γπ Σπ¡¬µ¿¿ ¿½¿ ß¿¼ó«½π, «í'∩ó½Ñ¡¡«¼π ¬á¬ ½«¬á½∞¡«¼π ñ½∩
  3612. φΓ«⌐ DEFUN. Há»α¿¼Ñα:
  3613.  
  3614.     (setq glo1 123)     ;   ß«ºñá¡¿Ñ ú½«íá½∞¡«ú« ß¿¼ó«½á
  3615.     (defun demo (arg1 arg2 / loc1 loc2)
  3616.        (setq arg1 234)  ; »α¿ßó«Ñ¡¿Ñ ¡«ó«ú« ½«¬á½∞¡«ú« º¡áτÑ¡¿∩
  3617.        (setq log1 345)  ; »α¿ßó«Ñ¡¿Ñ ¡«ó«ú« ½«¬á½∞¡«ú« º¡áτÑ¡¿∩
  3618.        (setq glo1 456)  ; »α¿ßó«Ñ¡¿Ñ ¡«ó«ú« ú½«íá½∞¡«ú« º¡áτÑ¡¿∩
  3619.        (setq glo2 567)  ; ß«ºñá¡¿Ñ ¡«ó«ú« ú½«íá½∞¡«ú« ß¿¼ó«½á
  3620.     )
  3621.  
  3622. ⽫íá½∞¡δÑ ß¿¼ó«½δ ñ«ßΓπ»¡δ ¿½¿ ¿º¼Ñ¡∩Ñ¼δ ½εí«⌐ Σπ¡¬µ¿Ñ⌐ ¿½¿
  3623. ¿ß»«½∞ºπѼδ ó ½εí«¼ óδαáªÑ¡¿¿. ï«¬á½∞¡δÑ ß¿¼ó«½δ ¿ áαúπ¼Ñ¡Γδ Σπ¡¬µ¿¿
  3624. ß«σαá¡∩εΓ ßó«Ñ º¡áτÑ¡¿Ñ Γ«½∞¬« ó »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ Σπ¡¬µ¿¿, ñ½∩ ¬«Γ«α«⌐
  3625. «¡¿ «»αÑñѽѡδ, ¿ ó »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ Σπ¡¬µ¿¿, óδºδóáѼδσ φΓ«⌐ Σπ¡¬µ¿Ñ⌐.
  3626. çá¼ÑΓ¿¼, τΓ« áαúπ¼Ñ¡Γδ Σπ¡¬µ¿¿ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ¬á¬ ½«¬á½∞¡δÑ ß¿¼ó«½δ,
  3627. Σπ¡¬µ¿∩ ¼«ªÑΓ ¿º¼Ñ¡∩Γ∞ ¿σ º¡áτÑ¡¿∩, ¡« ΓᬿѠ¿º¼Ñ¡Ñ¡¿∩ ßíαáßδóáεΓß∩ »«ß½Ñ
  3628. óδσ«ñá ¿º Σπ¡¬µ¿¿.
  3629.  
  3630. ========================================================================
  3631.                                     
  3632.  SET ¿ SETQ ñ«»π߬áεΓ »α¿ßó«Ñ¡¿Ñ ¡«óδσ º¡áτÑ¡¿⌐ óßΓα«Ñ¡¡δ¼ ß¿¼ó«½á¼ ¿    
  3633.  ¿¼Ñ¡á¼ Σπ¡¬µ¿⌐ AutoLISP, ßíαáßδóá∩ »Ñαó«¡áτá½∞¡« »α¿ßó«Ñ¡¡δÑ º¡áτÑ¡¿∩ ¿½¿
  3634.  ñѽá∩ ¿σ ¡Ññ«ßΓπ»¡δ¼¿. HѬ«Γ«αδÑ »«½∞º«óáΓѽ¿ ΓΘÑΓ¡« »δΓáεΓß∩ ßñѽáΓ∞
  3635.  c½ÑñπεΘÑÑ:
  3636.       (setq anagle (...))    HÑóÑα¡«!
  3637.       (setq length (...))    HÑóÑα¡«!
  3638.       (setq max (...))       HÑóÑα¡«!
  3639.       (setq t (...))         HÑóÑα¡«!
  3640.       (setq pi 3.0))         HÑóÑα¡«!!!
  3641.  
  3642.    ùΓ«íδ ¿ºíѪáΓ∞ óßÑσ ó¿ñ«ó Γᬿσ ßΓαá¡¡δσ «Φ¿í«¬, íπñ∞ΓÑ ó¡¿¼áΓѽ∞¡δ,
  3643.  ¬«úñá »α¿ñπ¼δóáÑΓÑ ¿¼Ñ¡á ßó«¿¼ ß¿¼ó«½á¼. H¿¬«úñá ¡Ñ ¿ß»«½∞ºπ⌐ΓÑ óßΓα«Ñ¡-
  3644.  ¡δ⌐ ß¿¼ó«½ ¿½¿ ¿¼∩ Σπ¡¬µ¿¿ ñ½∩ ßó«Ñú« ß¿¼ó«½á! (ä½∩ π¡¿τΓ«ªÑ¡¿∩ ß»¿ß¬á
  3645.  ¿¼Ñ¡ ß¿¼ó«½«ó ¡áíÑα¿ΓÑ "!ÇÆÄîLIST" ¡á ºá»α«ß "Command:" AutoCAD »ÑαÑñ
  3646.  ºáúαπº¬«⌐ (LOAD) ¬á¬«⌐-½¿í« Σπ¡¬µ¿¿ AutoLISP.)
  3647. ========================================================================
  3648.  
  3649.  
  3650.  
  3651.  
  3652.                            - 61 -
  3653.  
  3654.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3655.  
  3656.  
  3657.  
  3658.  
  3659.     4.104 (setvar <¿¼∩-»ÑαѼѡ¡«⌐> <º¡áτÑ¡¿Ñ>)
  3660.  
  3661. ¥Γá Σπ¡¬µ¿∩ »α¿ßóá¿óáÑΓ ß¿ßΓѼ¡«⌐ »ÑαѼѡ¡«⌐ AutoCAD ºáñá¡¡«Ñ <º¡áτÑ¡¿Ñ>
  3662. ¿ ó«ºóαáΘáÑΓ φΓ« º¡áτÑ¡¿Ñ. ê¼∩ »ÑαѼѡ¡«⌐ ñ«½ª¡« íδΓ∞ ºá¬½ετÑ¡« ó
  3663. ñó«⌐¡δÑ ¬áóδτ¬¿.
  3664. Há»α¿¼Ñα:
  3665.  
  3666.     (setvar "FILLETRAD" 0.50)   ó«ºóαáΘáÑΓ 0.500000
  3667.  
  3668. πßΓá¡áó½¿óáÑΓ αáñ¿πß ß«»α∩ªÑ¡¿∩ ó AutoCAD αáó¡δ¼ 0.5 Ññ¿¡¿µ.
  3669.  
  3670. HѬ«Γ«αδÑ ¬«¼á¡ñδ AutoCADá óδí¿αáεΓ ß¿ßΓѼ¡δÑ »ÑαѼѡ¡δÑ íѺ óß∩¬¿σ
  3671. »«ñ߬ẫ¬. àß½¿ éδ ¿ß»«½∞ºπÑΓÑ SETVAR ñ½∩ πßΓá¡«ó½Ñ¡¿∩ ¡«ó«ú« º¡áτÑ¡¿∩
  3672. ß¿ßΓѼ¡«⌐ »ÑαѼѡ¡«⌐ ó »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ ¡Ñ¬«Γ«α«⌐ ¬«¼á¡ñδ, φΓá
  3673. πßΓá¡«ó¬á íπñÑΓ ¿¼ÑΓ∞ ß¿½π Γ«½∞¬« ¬«úñá éδ ¡áτ¡ÑΓÑ óδ»«½¡∩Γ∞ ß½ÑñπεΘπε
  3674. ¬«¼á¡ñπ AutoCADá.
  3675. 滿߫¬ ΓѬπΘ¿σ ß¿ßΓѼ¡δσ »ÑαѼѡ¡δσ AutoCAD ¼«ª¡« ¡á⌐Γ¿ ó »α¿½«ªÑ¡¿¿ Ç
  3676. απ¬«ó«ñßΓóá AutoCAD. æ¼«Γα¿ΓÑ ΓᬪѠΣπ¡¬µ¿ε GETVAR.
  3677.  
  3678.     4.105 (sin <πú«½>)
  3679.  
  3680. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ß¿¡πß <πú½á> ¬á¬ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½«, úñÑ <πú«½>
  3681. óδαáªÑ¡ ó αáñ¿á¡áσ. Há»α¿¼Ñα:
  3682.  
  3683.     (sin 1.0)     ó«ºóαáΘáÑΓ  0.841471
  3684.     (sin 0.0)     ó«ºóαáΘáÑΓ  0.000000
  3685.  
  3686.     4.106 (sqrt <τ¿ß½«>)
  3687.  
  3688. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¬óáñαáΓ¡δ⌐ ¬«αÑ¡∞ <τ¿ß½á> ¬á¬ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½«.
  3689. Há»α¿¼Ñα:
  3690.  
  3691.     (sqrt 4)      ó«ºóαáΘáÑΓ 2.000000
  3692.     (sqrt 2.0)    ó«ºóαáΘáÑΓ 1.414214
  3693.  
  3694.     4.107 (strcase <ßΓ᫬á> [<»α¿º¡á¬>])
  3695.  
  3696. STRCASE íÑαÑΓ ßΓ᫬«óπε ¬«¡ßΓá¡Γπ, π¬áºá¡¡πε áαúπ¼Ñ¡Γ«¼ <ßΓ᫬á> ¿
  3697. ó«ºóαáΘáÑΓ ÑÑ ¬«»¿ε, »ÑαÑóÑñ∩ óßÑ ß¿¼ó«½δ á½Σáó¿Γá ó óÑασ¡¿⌐ ¿½¿ ¡¿ª¡¿⌐
  3698. αÑú¿ßΓα ó ºáó¿ß¿¼«ßΓ¿ «Γáαúπ¼Ñ¡Γá <»α¿º¡á¬>. àß½¿ <»α¿º¡á¬> «»πΘÑ¡ ¿½¿
  3699. αáóÑ¡ nil, Γ« óßÑ ß¿¼ó«½δ á½Σáó¿Γá ó <ßΓ᫬Ñ> íπñπΓ »ÑαÑóÑñÑ¡δ ó ¡¿ª¡¿⌐
  3700. αÑú¿ßΓα. Há»α¿¼Ñα:
  3701.  
  3702.     (strcase "Sample")    ó«ºóαáΘáÑΓ  "SAMPLE"
  3703.     (strcase "Sample" Æ)  ó«ºóαáΘáÑΓ  "sample"
  3704.  
  3705.     4.108 (strcat <ßΓ᫬á1> <ßΓ᫬á2>...)
  3706.  
  3707. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ßΓ᫬π, ¬«Γ«αá∩ ∩ó½∩ÑΓß∩ αѺπ½∞ΓáΓ«¼ ßµÑ»½Ñ¡¿∩
  3708. <ßΓ᫬¿1>, <ßΓ᫬¿2>  ¿ Γ.ñ. Há»α¿¼Ñα:
  3709.  
  3710.     (strcat "a" "bout")   ó«ºóαáΘáÑΓ "about"
  3711.     (strcat "a" "b" "c")  ó«ºóαáΘáÑΓ "abc"
  3712.  
  3713.  
  3714.  
  3715.  
  3716.                            - 62 -
  3717.  
  3718.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3719.  
  3720.  
  3721.     (strcat "a" "" "c")   ó«ºóαáΘáÑΓ "ac"
  3722.  
  3723.     4.109 (strlen <ßΓ᫬á>)
  3724.  
  3725. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ñ½¿¡π ó ß¿¼ó«½áσ ßΓ᫬«ó«⌐ ¬«¡ßΓá¡Γδ
  3726. <ßΓ᫬á> ¬á¬ µÑ½πε óѽ¿τ¿¡π. Há»α¿¼Ñα:
  3727.  
  3728.     (stalen "abcd")      ó«ºóαáΘáÑΓ 4
  3729.     (stalen "ab")        ó«ºóαáΘáÑΓ 2
  3730.     (stalen "")          ó«ºóαáΘáÑΓ 0
  3731.  
  3732.  
  3733. lsp-4-11
  3734.  
  3735.     4.110 (subst <¡«óδ⌐ φ½Ñ¼Ñ¡Γ> <ßΓáαδ⌐ φ½Ñ¼Ñ¡Γ> <ß»¿ß«¬>)
  3736.  
  3737. ¥Γá Σπ¡¬µ¿∩ »α«ß¼áΓα¿óáÑΓ <ß»¿ß«¬> ó »«¿ß¬Ñ <ßΓáαδσ φ½Ñ¼Ñ¡Γ«ó> ¿
  3738. ó«ºóαáΘáÑΓ ¬«»¿ε <ß»¿ß¬á> ß ºá¼Ñ¡«⌐ ¬áªñ«ú« óßΓαÑτ¡«ú« <ßΓáα«ú« φ½Ñ¼Ñ¡Γá>
  3739. ¡á <¡«óδ⌐ φ½Ñ¼Ñ¡Γ>. àß½¿ <ßΓáαδ⌐ φ½Ñ¼Ñ¡Γ> ¡Ñ ¡á⌐ñÑ¡ ó <ß»¿ß¬Ñ>, SUBST
  3740. ó«ºóαáΘáÑΓ <ß»¿ß«¬> ¡Ñ¿º¼Ñ¡¡δ¼. Há»α¿¼Ñα, ñá¡«:
  3741.  
  3742.     (setq sample '(a b (c d) b))
  3743.  
  3744. Γ«úñá:
  3745.  
  3746.     (subst 'qq 'b sample)            ó«ºóαáΘáÑΓ (A QQ (C D) QQ)
  3747.     (subst 'qq 'z sample)            ó«ºóαáΘáÑΓ (A B (C D) B)
  3748.     (subst 'qq '(c d) sample)        ó«ºóαáΘáÑΓ (A B QQ B)
  3749.     (subst '(qq 'rr) '(c d) sample)  ó«ºóαáΘáÑΓ (A B (QQ RR) B)
  3750.     (subst '(qq 'rr) 'z sample)      ó«ºóαáΘáÑΓ (A B (C D) B)
  3751.  
  3752. é ß«τÑΓá¡¿¿ ß Σπ¡¬µ¿Ñ⌐ ASSOC, SUBST «íÑß»Ñτ¿óáÑΓ πñ«í¡δ⌐ ß»«ß«í ºá¼Ñ¡δ
  3753. óѽ¿τ¿¡δ, ¡á⌐ñÑ¡¡«⌐ »« ¬½ετπ ó ßΓαπ¬Γπα¿α«óá¡¡«¼ ß»¿ß¬Ñ. Há»α¿¼Ñα, ñá¡«:
  3754.  
  3755.     (stq who '((ferst john) (mid q) (last public)))
  3756.  
  3757. Γ«úñá:
  3758.  
  3759.     (setq old
  3760.          (assoc 'first who)
  3761.     )                      ó«ºóαáΘáÑΓ (FIRST JOHN)
  3762.     (setq new '(first j))  ó«ºóαáΘáÑΓ (FIRST J)
  3763.     (setq new old who)     ó«ºóαáΘáÑΓ ((FIRST J) (MID Q) (LAST PUBLIC))
  3764.  
  3765.     4.111  (substr <ßΓ᫬á> <¡áτὫ> [<ñ½¿¡á>])
  3766.  
  3767. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ »«ñßΓ᫬π <ßΓ᫬á>, ¡áτ¿¡áεΘπεß∩ ß <¡áτá½>∞¡«ú«
  3768. ß¿¼ó«½á ¿ ß«ñÑαªáΘπε τ¿ß½« ß¿¼ó«½«ó, ºáñá¡¡«Ñ ó áαúπ¼Ñ¡ΓÑ <ñ½¿¡á>. àß½¿
  3769. <ñ½¿¡á> ¡Ñ π¬áºá¡á, Γ« »«ñßΓα«¬á »α«ñ«½ªáÑΓß∩ ñ« ¬«¡µá <ßΓ᫬¿>. <HáτὫ>
  3770. (¿ ñ½¿¡á, Ñß½¿ »α¿ßπΓßΓóπÑΓ) ñ«½ª¡δ íδΓ∞ »«½«ª¿Γѽ∞¡δ¼¿ µÑ½δ¼¿ óѽ¿τ¿¡á¼¿.
  3771. ÅÑαóδ⌐ ß¿¼ó«½ <ßΓ᫬¿> - ß¿¼ó«½ ß ¡«¼Ñα«¼ 1. Há»α¿¼Ñα:
  3772.  
  3773.     (substr "abcde" 2)    ó«ºóαáΘáÑΓ "bcde"
  3774.     (substr "abcde" 2 1)  ó«ºóαáΘáÑΓ "b"
  3775.     (substr "abcde" 3 2)  ó«ºóαáΘáÑΓ "cd"
  3776.  
  3777.  
  3778.  
  3779.  
  3780.  
  3781.                            - 63 -
  3782.  
  3783.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3784.  
  3785.  
  3786.     4.112 (terpri)
  3787.  
  3788. ¥Γá Σπ¡¬µ¿∩ »ÑτáΓáÑΓ ¡«óπε ßΓ᫬π ¡á φ¬αá¡Ñ. Ä¡á ΓᬪѠó«ºóαáΘáÑΓ ¡«óπε
  3789. ßΓ᫬π. TERPRI ¡Ñ ¿ß»«½∞ºπÑΓß∩ ñ½∩ óó«ñá/óδó«ñá Σá⌐½«ó.
  3790. ä½∩ ºá»¿ß¿ ¡«ó«⌐ ßΓ᫬¿ ó Σá⌐½ ¿ß»«½∞ºπ⌐ΓÑ PRINT ¿½¿ PRINC.
  3791.  
  3792.     4.113 (textscr)
  3793.  
  3794. öπ¡¬µ¿∩ TEXTSCR »ÑαѬ½ετáÑΓ φ¬αá¡ ß úαáΣ¿τÑ߬«ú« ó ΓѬßΓ«ó«⌐ αѪ¿¼ ó
  3795. «ñ¡«φ¬αá¡¡δσ ß¿ßΓѼáσ (¬á¬ Σπ¡¬µ¿«¡á½∞¡á∩ ¬½áó¿Φá "FLIP SCREEN" ó
  3796. AutoCAD). TEXTSCR óßÑúñá ó«ºóαáΘáÑΓ nil. æ¼«Γα¿ΓÑ ΓᬪѠΣπ¡¬µ¿ε
  3797. GRAPHSCR.
  3798.  
  3799.     4.114 (trace <Σπ¡¬µ¿∩>...)
  3800.  
  3801. ¥Γá Σπ¡¬µ¿∩ - ßαÑñßΓó« «Γ½áñ¬¿. Ä¡á πßΓá¡áó½¿óáÑΓ º¡á¬ Γαáßß¿α«ó¬¿
  3802. ñ½∩ ºáñá¡¡δσ <Σπ¡¬µ¿⌐> ¿ ó«ºóαáΘáÑΓ ¿¼∩ »«ß½Ññ¡Ñ⌐ Σπ¡¬µ¿¿. é Γ« óαѼ∩
  3803. ¬á¬ Σπ¡¬µ¿∩ óδ»«½¡∩ÑΓß∩, ¡á φ¬αá¡Ñ »«∩ó½∩ÑΓß∩ Γ«τ¬á óσ«ñá ó Σπ¡¬µ¿ε (ß
  3804. «ΓßΓπ»½Ñ¡¿Ñ¼ ¡á ú½πí¿¡π ó½«ªÑ¡¡«ßΓ¿ Σπ¡¬µ¿¿) ¿ »ÑτáΓáÑΓß∩ αѺπ½∞ΓáΓ
  3805. Σπ¡¬µ¿¿. Há»α¿¼Ñα:
  3806.  
  3807.     (trase my-func)   ó«ºóαáΘáÑΓ    MY-FUNC
  3808.  
  3809. ¿ πßΓá¡áó½¿óáÑΓ ß¿¼ó«½ Γαáßß¿α«ó¬¿ ñ½∩ Σπ¡¬µ¿¿ MY-FUNC. C¼«Γα¿ΓÑ ΓᬪÑ
  3810. Σπ¡¬µ¿ε UNTRACE.
  3811.  
  3812.     4.115 (type <φ½Ñ¼Ñ¡Γ>)
  3813.  
  3814. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ TYPE (Γ¿») <φ½Ñ¼Ñ¡Γá>, úñÑ TYPE - «ñ¡« ¿º
  3815. ß½ÑñπεΘ¿σ º¡áτÑ¡¿⌐ (¬á¬ áΓ«¼):
  3816.  
  3817.     REAL          τ¿ß½á ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐
  3818.     FILE          «»¿ßáΓѽ∞ Σá⌐½«ó
  3819.     STR           ßΓ᫬«óδÑ ¬«¡ßΓá¡Γδ
  3820.     INT           µÑ½δÑ óѽ¿τ¿¡δ
  3821.     SYM           ß¿¼ó«½δ
  3822.     LIST          ß»¿ß¬¿ (¿ Σπ¡¬µ¿¿ »«½∞º«óáΓѽ∩)
  3823.     SUBR          ó¡πΓαÑ¡¡¿Ñ Σπ¡¬µ¿¿ AutoLISP
  3824.     PITCKSET      ¡áí«αδ AutoCAD
  3825.     ENAME         ¿¼Ñ¡á »α¿¼¿Γ¿ó«ó AutoCAD
  3826.     PAGETB        Γáí½¿µá ñ¿ß»ÑΓτÑαá ßΓαá¡¿µ
  3827.  
  3828.     Há»α¿¼Ñα, ñá¡«:
  3829.  
  3830.     (setq a 123 r 3.45 s "Hello!" x '(a b c))
  3831.     (setq f (open "name" "r"))
  3832.  
  3833. Γ«úñá:
  3834.  
  3835.     (type 'a)       ó«ºóαáΘáÑΓ     SYM
  3836.     (type a)        ó«ºóαáΘáÑΓ     INT
  3837.     (type f)        ó«ºóαáΘáÑΓ     FILE
  3838.     (type r)        ó«ºóαáΘáÑΓ     REAL
  3839.     (type s)        ó«ºóαáΘáÑΓ     STR
  3840.     (type x)        ó«ºóαáΘáÑΓ     LIST
  3841.     (type +)        ó«ºóαáΘáÑΓ     SUBR
  3842.  
  3843.  
  3844.  
  3845.  
  3846.                            - 64 -
  3847.  
  3848.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3849.  
  3850.  
  3851.  
  3852. æ½ÑñπεΘ¿⌐ »α¿¼Ñα ¿½½εßΓα¿απÑΓ ¿ß»«½∞º«óá¡¿Ñ Σπ¡¬µ¿¿ TYPE.
  3853.  
  3854.     (defun isint (a)
  3855.        (if (= (type a) 'INT)    ;      ∩ó½∩ÑΓß∩ ½¿ Γ¿» µÑ½δ¼?
  3856.             Æ                   ;      Ñß½¿ ñá - óÑα¡¿ Æ
  3857.             nil                 ;      Ñß½¿ ¡ÑΓ - óÑα¡¿ nil
  3858.        )
  3859.     )
  3860.  
  3861.     4.116 (untrace <Σπ¡¬µ¿∩>...)
  3862.  
  3863. ¥Γá Σπ¡¬µ¿∩ πí¿αáÑΓ ß¿¼ó«½ Γαáßß¿α«óá¡¿∩ ñ½∩ π¬áºá¡¡δσ Σπ¡¬µ¿⌐ ¿
  3864. ó«ºáαáΘáÑΓ ¿¼∩ »«ß½Ññ¡Ñ⌐ Σπ¡¬µ¿¿. Ä¡á óδí«α«τ¡« ¿ß¬½ετáÑΓ »«Φáú«ó«Ñ
  3865. Γαáßß¿α«óá¡¿Ñ. Há¼»α¿¼Ñα:
  3866.  
  3867.     (untrace my-func)    ó«ºóαáΘáÑΓ   MY-FUNC
  3868.  
  3869. ¿ πí¿αáÑΓ ß¿¼ó«½ Γαáßß¿α«ó¬¿ ñ½∩ Σπ¡¬µ¿¿ MY-FUNC. æ¼«Γα¿ΓÑ ΓᬪѠTRACE.
  3870.  
  3871.     4.117 (ver)
  3872.  
  3873. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ßΓ᫬«óπε ¬«¡ßΓá¡Γπ, ¬«Γ«αá∩ ∩ó½∩ÑΓß∩ ¡«¼Ñα«¼
  3874. ΓѬπΘÑ⌐ óÑαß¿¿ AutoLISP. Ä¡á ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡á (ß«ó¼ÑßΓ¡« ß
  3875. Σπ¡¬µ¿Ñ⌐ EQUAL ñ½∩ ¬«¡Γα«½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ »α«úαá¼¼). ö«α¼á ßΓ᫬¿:
  3876.  
  3877.     "AutoLISP Release X.X"
  3878.  
  3879. úñÑ ò.ò - ¡«¼Ñα ΓѬπΘÑ⌐ óÑαß¿¿. Há»α¿¼Ñα:
  3880.  
  3881.     (ver)     ó«º¼«ª¡δ⌐ ó«ºóαáΓ   "AutoLISP Release 9.0"
  3882.  
  3883.     4.118 (while <ΓÑßΓ-óδαáªÑ¡¿Ñ> <óδαáªÑ¡¿Ñ>...)
  3884.  
  3885. ¥Γá Σπ¡¬µ¿∩ óδτ¿ß½∩ÑΓ <ΓÑßΓ-óδαáªÑ¡¿Ñ> ¿, Ñß½¿ «¡« ¡Ñ ∩ó½∩ÑΓß∩ nil,
  3886. óδτ¿ß½∩ÑΓ ñαπú¿Ñ óδαáªÑ¡¿∩, ºáΓѼ ß¡«óá »α«óÑα∩ÑΓ <ΓÑßΓ-óδαáªÑ¡¿Ñ>. ¥Γ«
  3887. »α«ñ«½ªáÑΓß∩ ñ« ΓÑσ »«α, »«¬á <ΓÑßΓ-óδαáªÑ¡¿Ñ> ¡Ñ nil. çáΓѼ WHILE
  3888. ó«ºóαáΘáÑΓ ßἫѠ»«ºñ¡ÑÑ º¡áτÑ¡¿Ñ »«ß½Ññ¡Ñú« <óδαáªÑ¡¿∩>. Há»α¿¼Ñα, ñá¡«:
  3889.  
  3890.     (setq a 1)
  3891.  
  3892. Γ«úñá:
  3893.  
  3894.     (while (<= a 10)
  3895.         (some-func a)
  3896.         (setq a (1+ a))
  3897.     )
  3898.  
  3899. íπñÑΓ óδºóá¡á Σπ¡¬µ¿∩ »«½∞º«óáΓѽ∩ SOME-FUNC ñÑß∩Γ∞ αáº, ß Ç αáó¡δ¼ «Γ
  3900. 1 ñ« 10. üπñÑΓ ºáΓѼ ó«ºóαáΘÑ¡« 11, τΓ« ∩ó½∩ÑΓß∩ º¡áτÑ¡¿Ñ¼ »«ß½Ññ¡Ñú«
  3901. óδαáªÑ¡¿∩.
  3902.  
  3903.     4.119 (write-char <τ¿ß½«> [<«»¿ßáΓѽ∞ Σá⌐½á>])
  3904.  
  3905. ¥Γá Σπ¡¬µ¿∩ ºá»¿ßδóáÑΓ «ñ¿¡ ß¿¼ó«½ ¡á φ¬αá¡ ¿½¿ ó «Γ¬αδΓδ⌐ Σá⌐½,
  3906. ºáñá¡¡δ⌐ <«»¿ßáΓѽѼ Σá⌐½á>. <τ¿ß½«>) - φΓ« ¬«ñ ASII ß¿¼ó«½á, ¿ ∩ó½∩ÑΓß∩
  3907.  
  3908.  
  3909.  
  3910.  
  3911.                            - 65 -
  3912.  
  3913.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3914.  
  3915.  
  3916. º¡áτÑ¡¿Ñ¼ ó«ºóαáΘáÑ¼δ¼ Σπ¡¬µ¿Ñ⌐. Há»α¿¼Ñα:
  3917.  
  3918.     (write-char 67)    ó«ºóαáΘáÑΓ    67
  3919.  
  3920. ¿ ºá»¿ßδóáÑΓ ½áΓ¿¡ß¬πε íπ¬óπ æ ¡á φ¬αá¡Ñ. ÅαÑñ»«½«ª¿¼, τΓ« F - «»¿ßáΓѽ∞
  3921. «Γ¬αδΓ«ú« Σá⌐½á:
  3922.  
  3923.     (write-char 67 f)  ó«ºóαáΘáÑΓ    67
  3924.  
  3925. ¿ ºá»¿ßδóáÑΓ ½áΓ¿¡ß¬πε íπ¬óπ æ ó φëàΣá⌐½.
  3926.  
  3927.  
  3928. lsp-4-12
  3929.  
  3930.     4.120 ((write-line <ßΓ᫬á> [<«»¿ßáΓѽ∞ Σá⌐½á>])
  3931.  
  3932. ¥Γá Σπ¡¬µ¿∩ ºá»¿ßδóáÑ¬Γ ßΓ᫬«óπε ¬«¡ßΓá¡Γπ <ßΓ᫬á> ¡á φ¬αá¡Ñ ¿½¿ ó
  3933. «Γ¬αδΓδ⌐ Σá⌐½, ºáñá¡¡δ⌐ <«»¿ßáΓѽѼ Σá⌐½á>. Ä¡á ó«ºóαáΘáÑΓ <ßΓ᫬π>,
  3934. óº∩Γπε ó ¬áóδτ¬¿, ¿ «»π߬áÑΓ ¬áóδτ¬¿ ¬«úñᠺỿßδóáÑΓß∩ ó Σá⌐½. Há»α¿¼Ñα,
  3935. »αÑñ»«½«ª¿¼, τΓ« F φΓ« ñ«»πßΓ¿¼δ⌐ «»¿ßáΓѽ∞ «Γ¬αδΓ«ú« Σá⌐½á:
  3936.  
  3937.     (write-line "Test" f)   ºá»¿ßδóáÑΓ   Test    ¿ ó«ºóαáΘáÑΓ   "Test".
  3938.  
  3939.     4.121 (zerop <φ½Ñ¼Ñ¡Γ>)
  3940.  
  3941. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ T, Ñß½¿ <φ½Ñ¼Ñ¡Γ> ñÑ⌐ßΓó¿Γѽ∞¡«Ñ ¿½¿ µÑ½«Ñ
  3942. τ¿ß½«, αáó¡«Ñ ¡π½ε, ¿¡áτÑ ó«ºóαáΘáÑΓ nil. Ä¡á ¡Ñ «»αÑñѽѡáñ½∩ ñαπú¿σ
  3943. Γ¿»«ó <φ½Ñ¼Ñ¡Γ«ó>. Há»α¿¼Ñα:
  3944.  
  3945.     (zerop 0)         ó«ºóαáΘáÑΓ Æ
  3946.     (zerop 0.0)       ó«ºóαáΘáÑΓ Æ
  3947.     (zerop 0.0001)    ó«ºóαáΘáÑΓ nil
  3948.  
  3949.     4.122 (*error* <ßΓ᫬á>)
  3950.  
  3951. ¥Γ«, «»αÑñѽ∩Ѽá∩ »«½∞º«óáΓѽѼ Σπ¡¬µ¿∩, Γαá¬ΓπεΘá∩ «Φ¿í¬¿. àß½¿ «¡á
  3952. ¡Ñ nil, «¡á óδ»«½¡∩ÑΓß∩ ¬á¬ Σπ¡¬µ¿∩ óß∩¬¿⌐ αáº, ¬«úñá »α¿ßπΓßΓóπÑΓ
  3953. »α«óÑα¬á «Φ¿í«¬ AutoLISP. Ä¡á óδñáÑΓ «ñ¿¡ áαúπ¼Ñ¡Γ - ßΓ᫬π, ß«ßΓ«∩Θπε
  3954. ¿º «»¿ßá¡¿∩ «Φ¿í¬¿.
  3955. Há»α¿¼Ñα:
  3956.  
  3957.     (defun *error* (msg)
  3958.        (princ "error:")
  3959.        (princ msg)
  3960.        (terpri)
  3961.      )
  3962.  
  3963. ¥Γá Σπ¡¬µ¿∩ íπñÑΓ ñѽáΓ∞ Γ«ªÑ ßἫÑ, τΓ« ¿ ßΓá¡ñáαΓ¡á∩ Σπ¡¬µ¿∩
  3964. Γαá¬Γ«ó¬¿ «Φ¿í«¬ AutoLISP - »ÑτáΓ∞ "error:" ¿ «»¿ßá¡¿Ñ.
  3965.  
  3966.  
  3967.  
  3968.  
  3969.                            - 66 -
  3970.  
  3971.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  3972.  
  3973.  
  3974.                            â½áóá 5
  3975.  
  3976.                ÅÉêîêÆê颠 ê  îàòÇìêçî äÄæÆôÅÇ
  3977.  
  3978.  
  3979.       éßÑ«íΩѼ½εΘ¿Ñ Σπ¡¬µ¿¿ AutoLISPá "set"  «íÑß»Ñτ¿óáεΓ ñ«ßΓπ» ¬
  3980. »α¿¼¿Γ¿óá¼ AutoCADá, ¬ úαáΣ¿τÑ߬«¼π φ¬αá¡π ¿ ¬ ¼Ñσá¡¿º¼á¼ óó«ñá. éδ ¼«ªÑ-
  3981. ΓÑ óδí¿αáΓ∞ »α¿¼¿Γ¿óδ , ó«ßßΓá¡áó½¿óáΓ∞ ¿σ óѽ¿τ¿¡δ  ¿ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ¿σ.
  3982. ìáí«αδ óδí«αá (selection - sets ) ¼«ª¡« »«¼ÑßΓ¿Γ∞ ó »ÑαѼѡ¡δÑ LISPá, φΓ«
  3983. »«ºó«½∩ÑΓ αáí«ΓáΓ∞ ¬«½½Ñ¬µ¿¿ »α¿¼¿Γ¿ó«ó. ä½∩ »α∩¼«ú« ß«ºñá¡¿∩ »α¿¼¿Γ¿ó«ó
  3984. ¡ÑΓ Σπ¡¬µ¿⌐ ,«ñ¡á¬« ¼«ª¡« ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿ε COMMAND , τΓ«íδ »«ñτ¿¡¿-
  3985. Γ∞ß∩ «íδτ¡δ¼ ¬«¼á¡ñá¼ AutoCAD ñ½∩ óδ»«½¡Ñ¡¿∩ φΓ«ú«.
  3986.  
  3987.  
  3988.        5.1. æ»Ñµ¿á½∞¡δÑ Γ¿»δ ñá¡¡δσ
  3989.  
  3990.        äóá ß»Ñµ¿á½∞¡δσ Γ¿»á ñá¡¡δσ AutoLISPá ∩ó½∩εΓß∩ ¿¡ßΓαπ¼Ñ¡Γ«¼ ,
  3991. «íÑß»Ñτ¿óáεΘ¿¼ ñ«ßΓπ» ¬ »α¿¼¿Γ¿óá¼ AutoCAD: ¿¼∩ »α¿¼¿Γ¿óá ( entity name )
  3992. ¿ ¡áí«α óδí«αa ( selection - set ). ¥Γ¿¼¿ Γ¿»á¼¿ ñá¡¡δσ ¼á¡¿»π½¿απεΓ
  3993. Γ«½∞¬« Σπ¡¬µ¿¿ , ¬«Γ«αδÑ ñÑ⌐ßΓóπεΓ ¡á «ß¡«óá¡¿¿ ¿σ , ¿ ¿σ ó¡πΓαÑ¡¡∩∩
  3994. ßΓαπ¬Γπαá ¡Ñ ¬áßáÑΓß∩ »α«úαá¼¼¿ßΓá LISP. ê¼∩ »α¿¼¿Γ¿óá ¿¼ÑÑΓ º¡áτÑ¡¿Ñ
  3995. ó π¬áºáΓѽѠΣá⌐½á , «íß½πª¿óáεΘѼ αÑñá¬Γ«α τÑαΓѪÑ⌐ AutoCAD, ó ¬«Γ«α«¼
  3996. AutoLISP ¼«ªÑΓ ¡á⌐Γ¿ íáºπ ñá¡¡δσ »α¿¼¿Γ¿ó«ó ¿½¿ ¿σ óÑ¬Γ«αδ (Ñß½¿ ÑßΓ∞
  3997. óδó«ñ ¡á φ¬αá¡). ìáí«αδ óδí«αá φΓ« »α«ßΓ« ¬«½½Ñ¬µ¿∩ ¿¼Ñ¡ »α¿¼¿Γ¿ó«ó.
  3998.  
  3999.  
  4000.         ê¼Ñ¡á »α¿¼¿Γ¿ó«ó ¿ ¡áí«αδ óδí«αá ñÑ⌐ßΓó¿Γѽ∞¡δ Γ«½∞¬« ó ΓÑτÑ¡¿Ñ
  4001.         ßÑá¡ßá αÑñá¬Γ¿α«óá¡¿∩ , ó ¬«Γ«α«¼ «¡¿ »α¿¼Ñ¡∩εΓß∩  AutoCAD«¼.
  4002.  
  4003.  
  4004.        5.2. îá¡¿»π½∩µ¿∩ Σπ¡¬µ¿Ñ⌐  selection - set
  4005.  
  4006.        æ½ÑñπεΘ¿Ñ Σπ¡¬µ¿¿ óδ»«½¡∩εΓ αẽ¿τ¡δÑ ñÑ⌐ßΓó¿∩ ¡á «ß¡«óá¡¿¿
  4007. Σπ¡¬µ¿¿ selection - sets (¡áí«αδ óδí«αá ).
  4008.  
  4009.  
  4010.        5. 2. 1. ( ssget [< αѪ¿¼ >]  [<Γ«τ1> [<Γ«τ2>]])
  4011.  
  4012.        éδ ¼«ªÑΓÑ »α¿¼Ñ¡∩Γ∞ Σπ¡¬µ¿ε selection - set c Σπ¡¬µ¿Ñ⌐ SSGET.
  4013. Çαúπ¼Ñ¡Γ«¼ < αѪ¿¼ > ∩ó½∩ÑΓß∩ ßΓ᫬«óá∩ ¬«¡ßΓá¡Γá , ¬«Γ«αá∩ «º¡áτáÑΓ
  4014. Γ¿» óδ»«½¡∩Ѽ«ú« óδí«αá »α¿¼¿Γ¿óá . ¥Γ« ¼«úπΓ íδΓ∞ íπ¬óδ " W " , " C " ,
  4015.  " L" , ¿½¿  " P " , ¡áºóá¡¿∩ αѪ¿¼«ó  ó AutoCADÑ " Window" («¬¡«) ,
  4016. Crossing "(»ÑαÑßÑτÑ¡¿Ñ) , " Last " (»«ß½Ññ¡¿⌐),  " Previous" (»αÑñδñπΘ¿⌐).
  4017. < Γ«τ1 > ¿ < Γ«τ2 > φΓ« áαúπ¼Ñ¡Γδ Γ«τ¬¿ ó ß»¿ß¬áσ , ¬«Γ«αδÑ «»αÑñѽ∩εΓ
  4018. Γ«τ¬¿ , π¼ÑßΓ¡δÑ ñ½∩ óδí«αá. Äí«º¡áτÑ¡¿Ñ Γ«τ¬¿ íѺ áαúπ¼Ñ¡Γá < αѪ¿¼ >
  4019. φ¬ó¿óá½Ñ¡Γ¡«   óδí«απ »α¿¼¿Γ¿óá π¬áºá¡¿Ñ¼ Ññ¿¡ßΓóÑ¡¡«⌐ Γ«τ¬¿. àß½¿ óßÑ
  4020. áαúπ¼Ñ¡Γδ «»πΘÑ¡δ , SSGET »«ñ߬áªÑΓ »«½∞º«óáΓѽε τÑαѺ ¼Ñσá¡¿º¼ AutoCADá
  4021. " Select objects: "(óδíÑα¿ΓÑ «íΩѬΓδ) , »«ºó«½∩∩ ¿¡ΓÑαá¬Γ¿ó¡δ⌐ óδí«α
  4022. ¡áí«αá.
  4023.  
  4024.        Åα¿¼Ñαδ
  4025.  
  4026.     (ssget)                   C»αáΦ¿óáÑΓ »«½∞º«óáΓѽ∩ «íΘ¿⌐ óδí«α »α¿¼¿Γ¿óá
  4027.     (ssget "P")               éδí¿αáÑΓ ßá¼δ⌐ ¡«óδ⌐ óδíαá¡¡δ⌐ ¡áí«α.
  4028.     (ssget "L")               éδí¿αáÑΓ »«ß½Ññ¡¿⌐ »α¿¼¿Γ¿ó,»α¿íáó½Ñ¡¡δ⌐ ¬ íáºÑ
  4029.                               ñá¡¡δσ.
  4030.     (ssget '(2 2))            éδí¿αáÑΓ »α¿¼¿Γ¿ó,»α«σ«ñ∩Θ¿⌐ τÑαѺ Γ«τ¬π 2 , 2 .
  4031.     (ssget "W" '(0 0) '(5 5)) éδí¿αáÑΓ »α¿¼¿Γ¿óδ ó¡πΓα¿ «¬¡á ß ¬««αñ¿¡áΓἿ
  4032.                               Γ«τѬ 0, 0  5 ,5 .
  4033.     (ssget "C" '(0 0) '(1 1)) éδí¿αáÑΓ »α¿¼¿Γ¿óδ »ÑαÑßѬáεΘ¿Ñ í«¬ß ß ¬««αñ¿¡áΓἿ
  4034.  
  4035.  
  4036.  
  4037.  
  4038.                            - 67 -
  4039.  
  4040.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4041.  
  4042.  
  4043.                               Γ«τѬ 0 , 0   1 , 1 .
  4044.  
  4045.        éδíαá¡¡δÑ «íΩѬΓδ óδßóÑτ¿óáεΓß∩ , ¬«úñá SSGET ¿ß»«½∞ºπÑΓß∩
  4046. íѺ áαúπ¼Ñ¡Γ«ó. ìÑΓ ¿¡Σ«α¼áµ¿¿ « Γ«¼ , ß¬«½∞¬« óδíαá¡¡δσ »α¿¼¿Γ¿ó«ó ß«-
  4047. σαá¡∩ÑΓß∩ ( ¬á¬ á½∞ΓÑα¡áΓ¿óπ ß¼«Γα¿ Σπ¡¬µ¿ε ENTSEL , «»¿ßá¡¡πε ¡¿ªÑ).
  4048. Selection -sets óαѼѡ¡« »«ú½«ΘáεΓ Θѽ¿ Σá⌐½á AutoCAD , »«φΓ«¼π LISPπ
  4049. ¡Ñ αáºαÑΦáÑΓß∩ ¿¼ÑΓ∞ í«½ÑÑ 6-¿  «ñ¡«óαѼѡ¡« «Γ¬αδΓδσ Σá⌐½«ó. àß½¿ φΓ«Γ
  4050. »αÑñѽ ñ«ßΓ¿ú¡πΓ , AutoCAD «Γ¬áªÑΓß∩ ß«ºñáóáΓ∞ ½εíδÑ ñαπú¿Ñ ¡áí«αδ óδí«-
  4051. αá (selection -sets) ¿ ó«ºóαáΓ¿Γ " nil " ¡á óßÑ ó맮óδ AutoCADá.
  4052.        ÅÑαѼѡ¡á∩ ¡áí«αá óδí«αá ¼«ªÑΓ íδΓ∞ »ÑαÑñá¡á AutoCADπ ó «ΓóÑΓ ¡á
  4053. ½εíπε »«ñ߬Ậπ "Select objects:" ó  óδí«αÑ  "Last". Ä¡á óδíÑαÑΓ óßÑ
  4054. «íΩѬΓδ ó ¡áí«αÑ LISPá , ¬á¬ íδ »α«ß¼áΓα¿óá∩ ¿σ ó «¬«Φ¬« («íαáΓ¿ΓÑ
  4055. 󡿼᡿Ѡ, »α¿¼¿Γ¿óδ, óδíαá¡¡δÑ φΓ¿¼ ß»«ß«í«¼ ¡Ñ ¡πªñáεΓß∩ ó óδó«ñÑ ¡á
  4056. φ¬αá¡).
  4057.  
  4058.  
  4059.        5. 2. 2. ( sslength <ss>)
  4060.  
  4061.        ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ µÑ½«Ñ τ¿ß½« , ß«ñÑαªáΘÑÑ ¬«½¿τÑßΓó« »α¿¼¿-
  4062. Γ¿ó«ó ó ¡áí«αÑ óδí«αá <ss>. ìáí«αδ ¡¿¬«úñá ¡Ñ ß«ñÑαªáΓ ñπí½¿¬áΓ«ó
  4063. »α¿¼¿Γ¿ó«ó.
  4064.  
  4065.  
  4066.        5. 2. 3. (ssname <ss> <index>)
  4067.  
  4068.        ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¿¼∩ »α¿¼¿Γ¿óá <index>-ú« φ½Ñ¼Ñ¡Γá ¡áí«αá
  4069. <ss>. àß½¿ <index> «Γα¿µáΓѽ∞¡«Ñ ¿½¿ í«½∞ΦÑ ßἫú« í«½∞ΦÑú« óδτ¿ß½∩Ѽ«ú«
  4070. »α¿¼¿Γ¿óá ó ¡áí«αÑ óδí«αá , ó«ºóαáΘáÑΓß∩  "nil". ÅÑαóδ⌐ φ½Ñ¼Ñ¡Γ ¡áí«αá
  4071. ¿¼ÑÑΓ ¿¡ñѬߠ"0". ê¼Ñ¡á »α¿¼¿Γ¿ó«ó ó  ¡áí«αÑ , »α¿¼Ñ¡∩Ѽδσ ß Σπ¡¬µ¿-
  4072. Ñ⌐ SSGET , óßÑúñá íπñπΓ ¿¼Ñ¡á¼¿ ú½áó¡δσ »α¿¼¿Γ¿ó«ó . Å«ñ»α¿¼¿Γ¿óδ (Block
  4073. attributes ¿ Polyline vertices) ¡Ñ íπñπΓ ó«ºóαáΘáΓ∞ß∩ ( ¡«, ß¼«Γα¿ «»¿-
  4074. ßá¡¡πε ¡¿ªÑ Σπ¡¬µ¿ε ENTNEXT, ¬«Γ«αá∩ ñѽáÑΓ ñ«ßΓπ»¡δ¼¿ ¿σ).
  4075.  
  4076.  
  4077.        5. 2. 4.  (ssadd  [<ename> [<ss>]])
  4078.  
  4079.        àß½¿ óδºδóáÑΓß∩ íѺ áαúπ¼Ñ¡Γ«ó , Σπ¡¬µ¿∩ SSADD ß«ºñáÑΓ ¡«óδ⌐
  4080. ¡áí«α óδí«αá íѺ τ½Ñ¡«ó. àß½¿ óδºδóáÑΓß∩ ß Ññ¿¡ßΓóÑ¡¡δ¼ áαúπ¼Ñ¡Γ«¼ ¿¼Ñ-
  4081. ¡¿ »α¿¼¿Γ¿óá , Σπ¡¬µ¿∩ SSADD ß«ºñáÑΓ ¡«óδ⌐ ¡áí«α óδí«αá , ß«ñÑαªáΘ¿⌐ φΓ«
  4082. Ññ¿¡ßΓóÑ¡¡«Ñ ¿¼∩ »α¿¼¿Γ¿óá. àß½¿ óδºδóáÑΓß∩ - ß ¿¼Ñ¡Ñ¼ »α¿¼¿Γ¿óá ¿ ß ¡á-
  4083. í«α«¼ óδí«αá , «¡á ñ«íáó½∩ÑΓ ¿¼∩ »α¿¼¿Γ¿óá ¬ ¡áí«απ. öπ¡¬µ¿∩
  4084. SSADD óßÑúñá ó«ºóαáΘáÑΓ ¡«óδ⌐ ¿½¿ ¼«ñ¿Σ¿µ¿α«óá¡¡δ⌐ ¡áí«α. çừ¼¡¿ΓÑ,
  4085. τΓ« »α¿ ñ«íáó½Ñ¡¿¿ »α¿¼¿Γ¿óá ¬ ¡áí«απ , ¡«óδ⌐ »α¿¼¿Γ¿ó Σ¿º¿τÑ߬¿ »α¿ß«Ñ-
  4086. ñ¿¡∩ÑΓß∩ ¬ ßπΘÑßΓóπεΘѼπ ¡áí«απ, ¿ ¡áí«α, »α«σ«ñ∩Φ¿⌐ ¬á¬ <ss>, ó«ºóαáΘá-
  4087. ÑΓß∩ , ¬á¬ αѺπ½∞ΓáΓ. Æᬿ¼ «íαẫ¼, Ñß½¿ ñαπú¿¼ »ÑαѼѡ¡δ¼ »α¿ßóá¿óáÑΓß∩
  4088. ¬áΓÑú«α¿∩ -¡áí«α , «¡¿ íπñπΓ «ΓαáªáΓ∞ ΓᬪѠ߽«ªÑ¡¿Ñ. àß½¿ ó ¡áí«αÑ πªÑ
  4089. ÑßΓ∞ »α¿¼¿Γ¿ó ß Γᬿ¼ ªÑ ¡áºó᡿Ѽ , ñÑ⌐ßΓó¿Ñ Σπ¡¬µ¿¿ SSADD  íπñÑΓ »α«-
  4090. ¿ú¡«α¿α«óá¡«;ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ ¡Ñ íπñÑΓ.
  4091.  
  4092.  
  4093.        5. 2. 5. (ssdel <ename> <ss>)
  4094.  
  4095.        öπ¡¬µ¿∩ SSDEL πñá½∩ÑΓ ¿¼∩ »α¿¼¿Γ¿óá <ename> ¿º  ¡áí«αá <ss>
  4096. ¿ ó«ºóαáΘáÑΓ ¿¼∩  ¡áí«αá <ss>. çừ¼¡¿ΓÑ , τΓ« »α¿¼¿Γ¿óδ Σ¿º¿τÑ߬¿
  4097. πñá½∩εΓß∩ ¿º ¡áí«αá , ¬á¬ «»»«º¿µ¿∩ ¡«ó«¼π ¡áí«απ, ó«ºóαáΘáεΘѼπß∩
  4098. ß πñá½Ñ¡¡δ¼ φ½Ñ¼Ñ¡Γ«¼. àß½¿ ó ¡áí«αÑ ¡ÑΓ »α¿¼¿Γ¿óá, ó«ºóαáΘáÑΓß∩ "nil".
  4099.  
  4100.  
  4101.  
  4102.  
  4103.                            - 68 -
  4104.  
  4105.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4106.  
  4107.  
  4108.  
  4109.  
  4110.        5. 2. 6.  (ssmemb <ename> <ss>)
  4111.  
  4112.        ¥Γá Σπ¡¬µ¿∩ »α«óÑα∩ÑΓ , ∩ó½∩ÑΓß∩ ½¿ ¿¼∩ »α¿¼¿Γ¿óá <ename> τ½Ñ¡«¼
  4113. ¡áí«αá óδí«αá <ss>. àß½¿ φΓ« Γᬠ, Σπ¡¬µ¿∩ SSMEMB ó«ºóαáΘáÑΓ ¿¼∩ »α¿¼¿-
  4114. Γ¿óá <ename>. àß½¿ ¡ÑΓ, ó«ºóαáΘáÑΓ "nil".
  4115.  
  4116.  
  4117.        5. 3.  öπ¡¬µ¿¿  ¿¼Ñ¡¿ »α¿¼¿Γ¿óá (entity name)
  4118.  
  4119.        æ½ÑñπεΘ¿Ñ Σπ¡¬µ¿¿ óδ»«½¡∩εΓ αẽ¿τ¡δÑ ñÑ⌐ßΓó¿∩ ß ¿¼Ñ¡Ñ¼ »α¿¼¿Γ¿-
  4120. óá, ó¬½ετá∩  óó«ñ. ê¼Ñ¡á »α¿¼¿Γ¿ó«ó ¼«úπΓ »α«σ«ñ¿Γ∞ ó AutoCADÑ ó «ΓóÑΓ
  4121. ¡á ½εíπε »«ñ߬Ậπ " Select objects: " , ñ½∩ ¬«Γ«α«⌐ «ΓóÑΓ "Last" ñÑ⌐ßΓ-
  4122. ó¿Γѽѡ. é αѺπ½∞ΓáΓÑ íπñÑΓ óδíαá¡« ¡áºóá¡¿Ñ »α¿¼¿Γ¿óá , ¬á¬ Ñß½¿ íδ «¡
  4123. »α«ß¼áΓα¿óá½ß∩ ó «¬«Φ¬«.
  4124.  
  4125.  
  4126.        5. 3. 1.  (entnext  [<ename>])
  4127.  
  4128.        àß½¿ óδºδóáÑΓß∩ íѺ áαúπ¼Ñ¡Γ«ó, φΓá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¿¼∩
  4129. »α¿¼¿Γ¿óá »Ñαó«ú« ¡Ñπñá½Ñ¡¡«ú« »α¿¼¿Γ¿óá ó íáºÑ ñá¡¡δσ. àß½¿ Σπ¡¬µ¿∩
  4130. ENTNEXT óδºδóáÑΓß∩ ß áαúπ¼Ñ¡Γ«¼ »α¿¼¿Γ¿óá <ename>, «¡á ó«ºóαáΘáÑΓ ¿¼∩
  4131. »Ñαó«ú« ¡Ñπñá½Ñ¡¡«ú« »α¿¼¿Γ¿óá , ß½ÑñπεΘÑú« ºá <ename> ó íáºÑ ñá¡¡δσ.
  4132. àß½¿ ¡ÑΓ ß½ÑñπεΘÑú« »α¿¼¿Γ¿óá ó íáºÑ ñá¡¡δσ, ó«ºóαáΘáÑΓß∩ "nil". öπ¡¬-
  4133. µ¿∩ ENTNEXT ó«ºóαáΘáÑΓ ¿ ú½áó¡δÑ »α¿¼¿Γ¿óδ ¿ »«ñ»α¿¼¿Γ¿óδ.
  4134.        Åα¿¼¿Γ¿óδ , óδíαá¡¡δÑ Σπ¡¬µ¿Ñ⌐ SSGET - ú½áó¡δÑ »α¿¼¿Γ¿óδ, ¡ÑΓ
  4135. áΓα¿íπΓ«ó í½«¬«ó ¿½¿ óÑαΦ¿¡  »«½¿½¿¡¿⌐. éδ ¼«ªÑΓÑ ñ«íαáΓ∞ß∩ ñ« ó¡πΓαÑ¡-
  4136. ¡Ñ⌐ ßΓαπ¬Γπαδ φΓ¿σ ß½«ª¡δσ »α¿¼¿Γ¿ó«ó »«ßαÑñßΓó«¼  »α«ßΓ«ú« »α¿Ñ¼á ,
  4137. τÑαѺ  »«ñ»α¿¼¿Γ¿óδ, Σπ¡¬µ¿Ñ⌐ ENTNEXT. àß½¿ óδ «ñ¡áªñδ »α¿¼Ñ¡¿ΓÑ ¿¼∩ »«ñ-
  4138. »α¿¼¿Γ¿óá , óδ ¼«ªÑΓÑ ñÑ⌐ßΓó«óáΓ∞ »«ñ«í¡δ¼  «íαẫ¼ ó ½εí«¼ ñαπú«¼ ß½π-
  4139. τáÑ. àß½¿ óδ »α¿«íαѽ¿ ¿¼∩ »«ñ»α¿¼¿Γ¿óá τÑαѺ Σπ¡¬µ¿ε ENTNEXT, óδ ¼«ªÑ-
  4140. ΓÑ ¡á⌐Γ¿ α«ñ¿Γѽ∞߬¿⌐ »α¿¼¿Γ¿ó  , ñó¿úá∩ß∞ ó»ÑαÑñ «Γ Σπ¡¬µ¿¿ ENTNEXT ñ«
  4141. Σπ¡¬µ¿¿ SEQEND, τΓ«íδ «í¡áαπª¿Γ∞ »α¿¼¿Γ¿ó, ºáΓѼ ¿ºó½Ñ¬á∩ -2 úαπ»»π ¿º
  4142. Γᬫú« »α¿¼¿Γ¿óá, ¬«Γ«αδ⌐  ∩ó½∩ÑΓß∩ ú½áó¡δ¼ ¿¼Ñ¡Ñ¼ »α¿¼¿Γ¿óá.
  4143.  
  4144.  
  4145.        5. 3. 2.  (entlast)
  4146.  
  4147.        ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¿¼∩ »«ß½Ññ¡Ñú« ¡Ñπñá½Ñ¡¡«ú« ú½áó¡«ú« »α¿-
  4148. ¼¿Γ¿óá ó íáºÑ ñá¡¡δσ. ¥Γá  Σπ¡¬µ¿∩ τáßΓ« »α¿¼Ñ¡∩ÑΓß∩ , τΓ«íδ ñáΓ∞
  4149. ¿¼∩ ¡«ó«¼π »α¿¼¿Γ¿óπ , ¬«Γ«αδ⌐ Γ«½∞¬« τΓ« íδ½ »α¿íáó½Ñ¡ τÑαѺ Σπ¡¬µ¿ε
  4150. COMMAND. Åα¿¼¿Γ¿ó ¡Ñ ¡πª¡« óδó«ñ¿Γ∞ ¡á φ¬αá¡, ¿ ΓᬪѠ¡Ñ ¡πª¡« óδí¿αáΓ∞
  4151. πα«óÑ¡∞.
  4152.  
  4153.  
  4154.        5. 3. 3.  (entsel  [<prompt>])
  4155.  
  4156.        Ä¡á ¿¡«úñᠪѽáΓѽ∞¡á , ¬á¬ ñÑ⌐ßΓó¿Ñ ¡á »α¿¼¿Γ¿óδ , τΓ«íδ «ñ¡«óαÑ-
  4157. ¼Ñ¡¡« óδíαáΓ∞ »α¿¼¿Γ¿ó ¿ «í«º¡áτ¿Γ∞ Γ«τ¬π, ß »«¼«Θ∞ε ¬«Γ«α«⌐ »α¿¼¿Γ¿ó
  4158. íδ½ óδíαá¡. Åα¿¼Ñαδ φΓ«ú« ó AutoCADÑ ¼«ª¡« ¡á⌐Γ¿ ó Σπ¡¬µ¿¿ Object Snap
  4159. ¿ ó ¬«¼á¡ñáσ BREAK , TRIM , EXTEND . öπ¡¬µ¿∩ ENTSEL »«ºó«½∩ÑΓ »α«úαá¼¼á¼
  4160. AutoLISPá óδ»«½¡¿Γ∞ φΓ« ñÑ⌐ßΓó¿Ñ. öπ¡¬µ¿∩ ENTSEL óδí¿αáÑΓ «Γñѽ∞¡δ⌐
  4161. »α¿¼¿Γ¿ó, ΓαÑíπ∩, τΓ«íδ óδí«α íδ½ ßñÑ½á¡ Γ«τ¬«⌐. Ä¡á ó«ºóαáΘáÑΓ ß»¿ß«¬, ó
  4162. ¬«Γ«α«¼ »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ - ¿¼∩  óδíαá¡¡«ú« »α¿¼¿Γ¿óá , óΓ«α«⌐
  4163. φ½Ñ¼Ñ¡Γ - ¬««αñ¿¡áΓδ Γ«τ¬¿ , ¿ß»«½∞ºπѼ«⌐  ñ½∩ óδí«αá »α¿¼¿Γ¿óá. àß½¿
  4164.  
  4165.  
  4166.  
  4167.  
  4168.                            - 69 -
  4169.  
  4170.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4171.  
  4172.  
  4173. ßΓ᫬á ß«ñÑαª¿Γ <»«ñ߬Ậπ>, φΓá  ßΓα«¬á ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡á , τΓ«-
  4174. íδ ß»α«ß¿Γ∞ »«½∞º«óáΓѽ∩ « »α¿¼¿Γ¿óÑ. ê¡áτÑ , »« π¼«½τá¡¿ε  »«∩ó¿Γß∩
  4175. »«ñ߬Ậá "Select object:" . æ½ÑñπεΘ¿⌐ ñ¿á½«ú ¿½½εßΓα¿απÑΓ ¿ß»«½∞º«óá¡¿Ñ
  4176. Σπ¡¬µ¿¿ ENTSEL ¿ ó«ºóαáΘáѼδ⌐ ß»¿ß«¬.
  4177.  
  4178.        Command:       Line
  4179.                       ----
  4180.        From point:   1 , 1
  4181.                      ------
  4182.        To point:     6 , 6
  4183.                      ------
  4184.        To point:     RETURN
  4185.                      ------
  4186.        Command:   (setq e (entsel "Please  choose an entity:"))
  4187.                   ----------------------------------------------
  4188.        Please choose an entity: 3 , 3
  4189.                                 -----
  4190.        (< Entity name: 60000014> (3.000000 3.000000))
  4191.  
  4192.        é«ºóαáΘáѼá∩ Σπ¡¬µ¿Ñ⌐ ENTSEL Σ«α¼á ó ó¿ñÑ ß»¿ß¬á , πñ«ó½ÑΓó«α∩ÑΓ
  4193. AutoCAD ó «ΓóÑΓ ¡á ½εíπε Ñú« »«ñ߬Ậπ  óδíαáΓ∞ «íΩѬΓ. ¥Γ« íπñÑΓ Γαá¬-
  4194. Γ«óáΓ∞ß∩  AutoCAD«¼ , ¬á¬ óδí«α «»αÑñѽѡ¡«ú« »α¿¼¿Γ¿óá , π¬áºá¡¡«ú«
  4195. Γ«τ¬«⌐.
  4196.  
  4197.  
  4198.  
  4199.        5. 4.  öπ¡¬µ¿¿ ñá¡¡δσ »α¿¼¿Γ¿óá (entity data)
  4200.  
  4201.        æ½ÑñπεΘ¿Ñ Σπ¡¬µ¿¿ »«ºó«½∩εΓ óá¼ ó«ßßΓá¡«ó¿Γ∞ ¿ ¼«ñ¿Σ¿µ¿α«óáΓ∞
  4202. ñá¡¡δÑ «»αÑñѽѡ¡δσ »α¿¼¿Γ¿ó«ó.  ê¼Ñ¡á »α¿¼¿Γ¿ó«ó »α¿¼Ñ¡∩εΓß∩ ñ½∩ Γ«ú«,
  4203. τΓ«íδ «»αÑñѽ¿Γ∞  »α¿¼¿Γ¿óδ, ß ¬«Γ«α묨 ¡áñ« αáí«ΓáΓ∞.
  4204.  
  4205.  
  4206.        5. 4. 1.  (entdel <ename>)
  4207.  
  4208.        ôñá½∩ÑΓ »α¿¼¿Γ¿ó , «í«º¡áτÑ¡¡δ⌐ <ename>, ó ΓѬπΘѼ τÑαΓѪÑ,
  4209. ¿½¿ ó«ßßΓá¡áó½¿óáÑΓ »α¿¼¿Γ¿ó,Ñß½¿ «¡ íδ½ »αÑñóáα¿Γѽ∞¡« πñá½Ñ¡ ó φΓ«¼
  4210. ßÑá¡ßÑ αÑñá¬Γ¿α«óá¡¿∩. ôñá½∩ѼδÑ »α¿¼¿Γ¿óδ óδτ¿ΘáεΓß∩ ¿º τÑαΓѪá, »«¬¿ñá∩
  4211. αÑñá¬Γ«α τÑαΓѪÑ⌐ , ¿Γá¬, Σπ¡¬µ¿∩ ENTDEL ¼«ªÑΓ ó«ßßΓá¡áó½¿óáΓ∞ ¿σ Γ«½∞¬«
  4212. ó ΓÑτÑ¡¿Ñ ßÑá¡ßá αÑñá¬Γ¿α«óá¡¿∩ , ¬«úñá «¡¿ í뫨 πñá½Ñ¡δ. öπ¡¬µ¿∩ ENTDEL
  4213. αáí«ΓáÑΓ Γ«½∞¬« ó ú½áó¡δσ »α¿¼¿Γ¿óáσ,áΓΓα¿íπΓδ ¿ óÑαΦ¿¡δ »«½¿½¿¡¿⌐ ¡Ñ
  4214. ¼«úπΓ íδΓ∞ πñá½Ñ¡δ , ¡Ñºáó¿ß¿¼« «Γ ¿σ α«ñ¿Γѽ∞߬¿σ »α¿¼¿Γ¿ó«ó (óδ ¼«ªÑΓÑ
  4215. ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿ε COMMAND , τΓ«íδ αáí«ΓáΓ∞ Σπ¡¬µ¿Ñ⌐ ATTEDIT, ¿½¿ ¬«-
  4216. ¼á¡ñπ PEDIT, τΓ«íδ óδ»«½¡¿Γ∞ φΓ«).
  4217.  
  4218.  
  4219.        5. 4. 2.  (entget <ename>)
  4220.  
  4221.        Åα¿¼¿Γ¿ó , ¬«Γ«αδ⌐ ¡áºδóáÑΓß∩ <ename> ó«ßßΓá¡áó½¿óáÑΓß∩ ¿º íáºδ
  4222. ñá¡¡δσ ¿ ó«ºóαáΘáÑΓß∩ ¬á¬ ß»¿ß«¬, ß«ñÑαªáΘ¿⌐ φΓ¿ «»αÑñѽ∩ѼδÑ ñá¡¡δÑ. ÉÑ-
  4223. ºπ½∞Γ¿απεΘ¿⌐ ß»¿ß«¬ ¬«ñ¿απÑΓß∩ , ¬á¬ ßΓαπ¬Γπα¿α«óá¡¡δ⌐ ß»¿ß«¬ LISP,
  4224. φ½Ñ¼Ñ¡Γδ ¬«Γ«α«ú« ¼«úπΓ íδΓ∞ ½Ñú¬« ó«ßßΓá¡«ó½Ñ¡δ Σπ¡¬µ¿Ñ⌐ ASSOC. ÄíΩѬΓδ
  4225. ó αѺπ½∞Γ¿απεΘѼ ß»¿ß¬Ñ ¬«ñ¿απεΓß∩ ó ¬«ñáσ DXF ß¿ßΓѼδ AutoCAD ñ½∩ ¬áª-
  4226. ñ«⌐ τáßΓ¿ óσ«ñ¡δσ ñá¡¡δσ. ä½∩ »α¿¼Ñαá αáßß¼«Γα¿¼ óδτÑατ¿óá¡¿Ñ ¿ ºáΓѼ
  4227. ó«ßßΓá¡«ó½Ñ¡¿Ñ LINE ß½ÑñπεΘÑ⌐ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ε ¬«¼á¡ñ:
  4228.  
  4229.  
  4230.  
  4231.  
  4232.  
  4233.                            - 70 -
  4234.  
  4235.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4236.  
  4237.  
  4238.        Command: LINE
  4239.                 -----
  4240.        From point: 1 , 2
  4241.                   ------
  4242.        To point: 6 , 6
  4243.                  ------
  4244.        To point: RETURN
  4245.                 --------
  4246.        Command: (setq a (entget (entlast)))
  4247.                 ---------------------------
  4248. πßΓá¡«ó¿Γ Ç, αáó¡«Ñ ß»¿ß¬π ( ñѽáÑΓ «ßΓá¡«ó ñ½∩ »α«τΓÑ¡¿∩ ):
  4249.        ( ( -1 .  <Entity name: 60000014>)
  4250.          (0 .    "LINE")
  4251.          (8 .    "0")
  4252.          (10  1.000000 2.000000)
  4253.          (11  6.000000 6.000000)
  4254.         )
  4255.  
  4256.  
  4257.        Åπ¡¬Γ -1 ó ¡áτá½Ñ ß»¿ß¬á ß«ñÑαª¿Γ ¿¼∩ »α¿¼¿Γ¿óá , ¬«Γ«αδ¼ φΓ«Γ
  4258. ß»¿ß«¬ »αÑñßΓáó½Ñ¡. öπ¡¬µ¿∩ ENTMOD, «»¿ßá¡¡á∩ ¡¿ªÑ , ¿ß»«½∞ºπÑΓ φΓ« ,
  4259. τΓ«íδ ¿ñÑ¡Γ¿Σ¿µ¿α«óáΓ∞ »α¿¼¿Γ¿ó  , ¬«Γ«αδ⌐ ¼«ñ¿Σ¿µ¿α«óá¡.
  4260.        ÄΓñѽ∞¡δÑ Γ«τÑτ¡δÑ »áαδ , »αÑñßΓáó½∩εΓ »ÑαѼѡ¡δÑ , ¬«Γ«αδÑ ¼«úπΓ
  4261. íδΓ∞ ½Ñú¬« ó«ßßΓá¡«ó½Ñ¡δ ß »«¼«Θ∞ε Σπ¡¬µ¿¿ ASSOC, Σπ¡¬µ¿∩ CDR «íδτ¡« óδ-
  4262. ó«ñ¿Γ ¿σ º¡áτÑ¡¿∩. è«ñδ ñ½∩ ¬«¼»«¡Ñ¡Γ«ó »α¿¼¿Γ¿óá ΓÑ ªÑ ßá¼δÑ, τΓ« ¿ß»«-
  4263. ½∞ºπÑΓ DXF , ¿ »α¿ó«ñ∩Γß∩ ó »α¿½«ªÑ¡¿¿ æ Éπ¬«ó«ñßΓóá AutoCAD. ÆᬠªÑ ,
  4264. ¬á¬ ó DXF , ºáú«½«ó«¬ φ½Ñ¼Ñ¡Γá  »α¿¼¿Γ¿óá ( µóÑΓ ¿ Γ¿» ½¿¡¿¿, ß½«ª¡δ⌐
  4265. »α¿¼¿Γ¿ó Σ½áúá (Σπ¡¬µ¿∩ ATFLAG), φ¬ßΓαπº¿∩ Γ«½Θ¿¡δ ¿ ó䬽ετÑ¡¿Ñ ¡á-
  4266. í«αá Z) óδó«ñ¿Γß∩  , Ñß½¿ »ÑαѼѡ¡á∩ ¡Ñ »« π¼«½τá¡¿ε. é Σπ¡¬µ¿∩σ, ¡Ñ
  4267. Γᬿσ ¬á¬ DXF, ¡Ñ «í∩ºáΓѽ∞¡« óδó«ñ¿Γ∞ Γ«τ¡«ßΓ∞ »«½∩ »α¿¼¿Γ¿óá, αáó¡πε
  4268. ½¿ ¿σ º¡áτÑ¡¿∩¼ »« π¼«½τá¡¿ε ¿½¿ ¡ÑΓ. ìá¼ÑαÑ¡¿Ñ ßñѽáΓ∞ φΓ« ∩ó½∩ÑΓß∩
  4269. π»α«ΘÑ¡¡δ¼ óáα¿á¡Γ«¼ »α«úαá¼¼, ¬«Γ«αδÑ óßÑúñá ¼«úπΓ »α¿¡¿¼áΓ∞ φΓ¿ »«½∩
  4270. »α¿ßπΓßΓóπεΘ¿¼¿ ñ½∩ «ß¡«ó¡δσ á½ú«α¿Γ¼«ó , »« ¬«Γ«α«¼ «¡¿ αáí«ΓáεΓ.
  4271.        çừ¼¡¿ΓÑ, τΓ« »«ñß»¿ß¬¿ ñ½∩ Γ«τѬ- φΓ« ¡Ñ Γ«τÑτ¡δÑ »áαδ, »«ñ«í¡δÑ
  4272. «ßΓá½∞¡δ¼. æ«ú½áΦÑ¡¿Ñ¼ ∩ó½∩ÑΓß∩ Γ«, τΓ« Σπ¡¬µ¿∩ CDR »«ñß»¿ß¬á -φΓ«
  4273. úαπ»»«óá∩ »ÑαѼѡ¡á∩. Æᬠ¬á¬ Γ«τ¬á- φΓ« ß»¿ß«¬ ñóπσ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ,
  4274. φΓ« ß«ßΓáó½∩ÑΓ óßε ß«ó«¬π»¡«ßΓ∞ ΓαÑσ φ½Ñ¼Ñ¡Γ«ó ß»¿ß¬á. öπ¡¬µ¿∩ CDR úαπ»»δ
  4275. ∩ó½∩ÑΓß∩ ß»¿ß¬«¼ , ¿º«íαáªáεΘ¿¼ Γ«τ¬π, ß«ú½áΦÑ¡¿Ñ¼ ∩ó½∩ÑΓß∩ ΓᬪÑ,Γ«
  4276. τΓ« Σπ¡¬µ¿∩  CDR óßÑúñá ó«ºóαáΘáÑΓ »ÑαѼѡ¡πε ß«σαá¡Ñ¡¡«⌐.
  4277.        è«úñá «»¿ßδóáѼδÑ Σπ¡¬µ¿¿ «íαáíáΓδóáεΓ φΓ¿ ß»¿ß¬¿, «í∩ºáΓѽ∞¡«
  4278. ßñѽá⌐ΓÑ ¿¼ á¬¬παáΓ¡δÑ »«ñß»¿ß¬¿. Å«½∞ºá ñ½∩ Σπ¡¬µ¿¿ ASSOC «Γ φΓ«ú« úá-
  4279. αá¡Γ¿α«óá¡á. âαπ»»á -1 ,ß«ñÑαªáΘá∩ ¿¼∩ »α¿¼¿Γ¿ó«ó, »«ºó«½∩ÑΓ »α«¿ºóÑßΓ¿
  4280. ¡Ñ¬«Γ«αδÑ ñÑ⌐ßΓó¿∩, τΓ«íδ »α«ßΓ« »α¿¡∩Γ∞ ß»¿ß«¬ »α¿¼¿Γ¿óá , ¿ ¿ºíѪáΓ∞
  4281. ¡Ñ«íσ«ñ¿¼«ßΓ¿ ß«σαá¡∩Γ∞ ¿¼∩ »α¿¼¿Γ¿óá ó »áαώѽ∞¡«⌐ ßΓαπ¬ΓπαÑ. Åα¿¼¿Γ¿ó
  4282. SEQEND ó ¬«¡µÑ Poliline ¿½¿ ¡áí«α áΓΓα¿íπΓ«ó ß«ñÑαª¿Γ -2úαπ»»π , τ∞¿ CDR
  4283. ∩ó½∩εΓß∩ ºáú«½«ó¬«¼ ó φΓ«¼ »α¿¼¿Γ¿óÑ. ¥Γ« »«ºó«½¿Γ ¡á⌐Γ¿ ºáú«½«ó«¬
  4284. ó »«ñ»α¿¼¿Γ¿óáσ,ñó¿úá∩ß∞ ó»ÑαÑñ ¬ SEQEND , ºáΓѼ ¿ß»«½∞ºπ∩ Σπ¡¬µ¿ε CDR
  4285. -2 úαπ»»δ , ¬á¬ ¿¼∩ »α¿¼¿Γ¿óá, ó«ßßΓá¡«ó¿Γ∞ ßΓαπ¬Γπα¿α«óá¡¡δ⌐ ú½áó¡δ⌐
  4286. »α¿¼¿Γ¿ó. æ½ÑñπεΘ¿⌐ »α¿¼Ñα σ«α«Φ« ¿½½εßΓα¿απÑΓ ¬«¼»½Ñ¬ß¡δÑ »α¿¼¿Γ¿óδ,
  4287. »αÑñßΓáó½Ñ¡¡δÑ ¬á¬ ß»¿ß«¬.
  4288.  
  4289.        Command: ELEV
  4290.                 -----
  4291.        New current elevation <0.0000>: 3.5
  4292.                                        ----
  4293.        New current thickness <0.0000>: 0
  4294.  
  4295.  
  4296.  
  4297.  
  4298.                            - 71 -
  4299.  
  4300.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4301.  
  4302.  
  4303.                                        ---
  4304.        Command: LINETYPE
  4305.                ----------
  4306.        ?/Create /Load/Set: SET
  4307.                           ----
  4308.        New entity linetype <BYLAYER>: DASHED
  4309.                                       -------
  4310.        Command:COLOR
  4311.                ------
  4312.        New entity color <BYLAYER>: BLUE
  4313.                                    -----
  4314.        Command: LAYER
  4315.                -------
  4316.        ?/Make/Set/New/On/Off/Color/Ltype/Freeze/Thaw: MAKE
  4317.                                                       -----
  4318.        New current layer <0>: ANNOTATION
  4319.                              -------------
  4320.        ?/Make/Set/New/On/Off/Color/Ltype/Freeze/Thaw: RETURN
  4321.                                                      --------
  4322.        Command: TEXT
  4323.                ------
  4324.        Start point or Align/Center/Fit/Middle/Right/Style: 2 ,2
  4325.                                                           -------
  4326.        Height <0.2000>: .3
  4327.                        ----
  4328.        Rotation angle <0>: 30
  4329.                           -----
  4330.        Text: So long , and thanks for all the fish!
  4331.              ---------------------------------------
  4332.        Command: (setq e (entget (entlast)))
  4333.                 -----------------------------
  4334.  
  4335.  
  4336.        é φΓ«¼ ß½πτáÑ à íπñÑΓ πßΓá¡áó½¿óáΓ∞ ó ß»¿ß¬Ñ Γ«, ß½ÑñπÑΓ ¡¿ªÑ.
  4337. Éáßß¼«ΓαÑ¡¿Ñ »α¿½«ªÑ¡¿∩ æ Éπ¬«ó«ñßΓóá ¬ AutoCADπ »α¿ñáßΓ ß¼δß½ φΓ«¼π
  4338. ∩ß¡«¼π ß»¿ß¬π.
  4339.  
  4340.  
  4341.        (  (-1 . <Entity name: 6000003C>)
  4342.           (0 .  "TEXT")
  4343.           (8 .  "ANNOTATION")
  4344.           (6 .  "DASHED"
  4345.           (62.   5)
  4346.           (38 .  3.500000)
  4347.           (10 2.000000 2.000000)
  4348.           (40 . 0.300000)
  4349.           (1 .  "So long , and thanks for all the fish!")
  4350.           (50 .  0.523598)
  4351.           (41 .  1.000000)
  4352.           (51 .  0.000000)
  4353.           (7  .  "STANDARD")
  4354.           (71 .  0)
  4355.           (72 .  0)
  4356.           (11  0.000000 0.000000)
  4357.         )
  4358.  
  4359.  
  4360.  
  4361.  
  4362.  
  4363.                            - 72 -
  4364.  
  4365.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4366.  
  4367.  
  4368.  
  4369.        5. 4. 3. (entmod <elist>)
  4370.  
  4371.        æ»¿ß«¬ <elist> »α«σ«ñ¿Γ Σπ¡¬µ¿ε ENTMOD, ó Σ«α¼áΓÑ ó«ºóαáΘáεΘÑ⌐
  4372. Ñú« Σπ¡¬µ¿¿ ENTGET, ¿ «í¡«ó½∩ÑΓ ¿¡Σ«α¼áµ¿«¡¡πε íáºπ ñá¡¡δσ »α¿¼¿Γ¿óá,
  4373. ¿¼∩ ¬«Γ«α«ú« «»αÑñѽѡ« ß«ó«¬π»¡«ßΓ∞ε -1 ó <elist>. Äñ¡á¬«, ú½áó¡δ⌐ ¼Ñσá-
  4374. ¡¿º¼ , ß »«¼«Θ∞ε ¬«Γ«α«ú« LISP «í¡«ó½∩ÑΓ íáºπ ñá¡¡δσ , φΓ« ó«ßßΓá¡«ó½Ñ¡¿Ñ
  4375. »α¿¼¿Γ¿ó«ó Σπ¡¬µ¿Ñ⌐ ENTGET, ¼«ñ¿Σ¿¬áµ¿∩ ß»¿ß¬á , «»αÑñѽ∩εΘÑú« »α¿¼¿Γ¿ó
  4376. ( ºá»«¼¡¿ΓÑ , τΓ« ñ½∩ φΓ«ú« «τÑ¡∞ »«½Ñº¡á Σπ¡¬µ¿∩  SUBST AutoLISPá) ¿ «í-
  4377. ¡«ó½∩εΘÑú« »α¿¼¿Γ¿ó ó íáºÑ ñá¡¡δσ ß »«¼«Θ∞ε Σπ¡¬µ¿¿ ENTMOD.
  4378.        öπ¡¬µ¿∩ ENTMOD ¿¼ÑÑΓ ¡Ñ¬«Γ«αδÑ «úαá¡¿τÑ¡¿∩ »« ¿º¼Ñ¡Ñ¡¿∩¼ , ¬«Γ«αδÑ
  4379. «¡á ñѽáÑΓ. é« - »Ñαóδσ , ¡Ñ½∞º∩ ¿º¼Ñ¡∩Γ∞ Γ¿»δ »α¿¼¿Γ¿ó«ó . (àß½¿ óδ σ«-
  4380. Γ¿ΓÑ ßñѽáΓ∞ φΓ« , »α¿¼Ñ¡¿ΓÑ Γ«½∞¬«  Σπ¡¬µ¿ε ENTDEL ¿ ßñѽá⌐ΓÑ ¡«óδ⌐ »α¿-
  4381. ¼¿Γ¿ó ¬«¼á¡ñ«⌐ COMMAND ). AutoCAD ñ«½ªÑ¡ º¡áΓ∞ óßÑ «íΩѬΓδ, ¬«Γ«αδÑ π»«-
  4382. ¼¿¡áεΓß∩ ó ß»¿ß¬Ñ »α¿¼¿Γ¿ó«ó, ñ« Γ«ú« ¬á¬ óδ»«½¡Ñ¡á Σπ¡¬µ¿∩ ENTMOD. Æá¬,
  4383. ßΓ¿½∞ ΓѬßΓá , Γ¿» ½¿¡¿¿ , Σ«α¼á  ¿ ¿¼Ñ¡á í½«¬«ó ñ«½ª¡δ íδΓ∞ »αÑñóáα¿-
  4384. Γѽ∞¡« «»αÑñÑ½Ñ¡δ  ó τÑαΓѪÑ, ñ« Γ«ú«, ¬á¬ Σπ¡¬µ¿∩ ENTMOD ¼«ªÑΓ ¿σ ¿ß»«-
  4385. ½∞º«óáΓ∞ ó ß»¿ß¬Ñ »α¿¼¿Γ¿ó«ó. ê߬½ετÑ¡¿Ñ¼ ó φΓ«¼ ß½πτáÑ ∩ó½∩ÑΓß∩ ¿¼∩
  4386. πα«ó¡∩ , __ENTMOD «ßó«í«ñ¿Γ ¡«óδ⌐ πα«óÑ¡∞ »«  π¼«½τá¡¿ε, ¿ß»«½∞ºπ∩
  4387. ¬«¼á¡ñπ "LAYER NEW" , Ñß½¿ ó φΓ«¼ ß»¿ß¬Ñ π¬áºδóáÑΓß∩ »αÑñóáα¿Γѽ∞¡«
  4388. ¡Ñ «»αÑñѽѡ¡δ⌐ πα«óÑ¡∞.
  4389.        öπ¡¬µ¿∩ ENTMOD óδ»«½¡∩ÑΓ ¡Ñ¬«Γ«απε »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ñÑ⌐ßΓó¿⌐,
  4390. ¬á¬ ¬«¼á¡ñá DXFIN, »α«óÑα∩∩  ß»¿ß«¬,ß«ñÑαª¿Γ ½¿ «¡ , ñá¡¡¡δÑ ¿º Σá⌐½á
  4391. DXF. àß½¿ «í¡áαπªÑ¡á ßÑα∞Ѻ¡á∩ «Φ¿í¬á , Γá¬á∩ ßÑα∞Ѻ¡á∩ ,τΓ« íáºá ñá¡-
  4392. ¡δσ ¡Ñ «í¡«ó½∩ÑΓß∩, ó«ºóαáΘáÑΓß∩ "nil". é »α«Γ¿ó¡«¼ ß½πτáÑ, Σπ¡¬µ¿∩
  4393. ENTMOD ó«ºóαáΘáÑΓ ß»¿ß«¬ ó ¬áτÑßΓóÑ áαúπ¼Ñ¡Γá. öπ¡¬µ¿∩ ENTMOD ¡Ñ ¿º¼Ñ-
  4394. ¡¿Γ ó¡πΓαÑ¡¡¿Ñ »«½∩ , ΓᬿѠ¬á¬ ¿¼∩ »α¿¼¿Γ¿óá ó ß«ó«¬π»¡«ßΓ¿ -2 Σπ¡¬-
  4395. µ¿¿ SEQEND, »«»δΓ¬¿ ¿º¼Ñ¡¿Γ∞ ΓᬿѠ»«½∩ »α«ßΓ« ¿ú¡«α¿απεΓß∩.
  4396.        è«úñá «í¡«ó½∩ÑΓß∩ ú½áó¡δ⌐ »α¿¼¿Γ¿ó , Σπ¡¬µ¿∩ ENTMOD íπñÑΓ ¼«ñ¿-
  4397. Σ¿µ¿α«óáΓ∞ »α¿¼¿Γ¿ó ¿ «í¡«ó¿Γ ¿º«íαáªÑ¡¿Ñ ¡á φ¬αá¡Ñ ( ó¬½ετá∩ »«ñ-
  4398. »α¿¼¿Γ¿óδ ) . è«úñá Σπ¡¬µ¿∩ ENTMOD «íδτ¡« «í¡«ó½∩ÑΓ »«ñ»α¿¼¿Γ¿ó ( óÑαΦ¿¡δ
  4399. »«½¿½¿¡¿⌐ ,  áΓΓα¿íπΓδ í½«¬«ó ), »«ñ»α¿¼¿Γ¿ó íπñÑΓ «í¡«ó½Ñ¡ ó íáºÑ ñá¡¡δσ ,
  4400. ¡« ¿º«íαáªÑ¡¿Ñ ¡á φ¬αá¡Ñ ¡Ñ «í¡«ó½∩ÑΓß∩. Å«ß½Ñ óßÑσ ¼«ñ¿Σ¿¬áµ¿⌐, ¬«Γ«αδÑ
  4401. ßñѽá¡δ ß ñá¡¡δ¼¿ »«ñ»α¿¼¿Γ¿óἿ, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿ε ENTUPD, «»¿-
  4402. ßá¡¡πε ¡¿ªÑ, ñ½∩ «í¡«ó½Ñ¡¿∩ ¿º«íαáªÑ¡¿∩ ¡á φ¬αá¡Ñ.
  4403.  
  4404.  
  4405.        5. 4. 4.  (entupd  <ename>)
  4406.  
  4407.        èᬠ«»¿ßá¡« óδΦÑ, ¬«úñá Σπ¡¬µ¿∩ ENTMOD ¼«ñ¿Σ¿µ¿απÑΓ óÑαΦ¿¡δ
  4408. »«½¿½¿¡¿⌐ ¿½¿ áΓΓα¿íπΓδ í½«¬«ó , »«½¡δ⌐ ¬«¼»½Ñ¬Γ »α¿¼¿Γ¿óá ¡Ñ «í¡«ó½∩ÑΓ-
  4409. ß∩ ¡á φ¬αá¡Ñ. ìá»α¿¼Ñα, Ñß½¿ í뫨 ¼«ñ¿Σ¿µ¿α«óá¡δ 100 óÑαΦ¿¡ ß½«ª¡δσ »«-
  4410. ½¿½¿¡¿⌐ , »ÑαÑßτÑΓ ¿ »ÑαÑτÑατ¿óá¡¿Ñ Polyline, ΓᬠªÑ ¬á¬ ¿ ¬áªñ«⌐ óÑα-
  4411. Φ¿¡δ , ¬«Γ«αá∩ íδ½á ¿º¼Ñ¡Ñ¡á, íπñÑΓ ßñѽᡫ ¡Ñ»α¿Ñ¼½Ñ¼« ¼Ññ½Ñ¡¡«. Äíδτ-
  4412. ¡«, ¼«ª¡« »α¿¼Ñ¡¿Γ∞ Σπ¡¬µ¿ε ENTUPD, τΓ«íδ ¼«ñ¿Σ¿µ¿α«óá¡¡πε  Polyline
  4413. ¿½¿ í½«¬¿ «í¡«ó¿Γ∞ ¡á φ¬αá¡Ñ. öπ¡¬µ¿∩ ENTUPD ¡áº«óÑΓ ¿¼Ñ¡Ñ¼ »α¿¼¿Γ¿óá
  4414. ½εíπε τáßΓ∞  Poliline ¿½¿ í½«¬á. ìÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ¿¼ÑΓ∞ ºáú«½«ó«¬ »α¿¼¿-
  4415. Γ¿óá,Σπ¡¬µ¿∩ ENTUPD ¡á⌐ñÑΓ ºáú«½«ó«¬. è«úñá Σπ¡¬µ¿∩ ENTUPD »αÑñ¡áº¡áτÑ¡á
  4416. ñ½∩ »«½¿½¿¡¿⌐ ¿ áΓΓα¿íπΓ«ó í½«¬«ó ,ÑÑ ¼«ª¡« óδºóáΓ∞ ñ½∩ ½εí«ú« »α¿¼¿Γ¿-
  4417. óá. Ä¡á óßÑúñá íπñÑΓ ó«ßßΓá¡áó½¿óáΓ∞ »α¿¼¿Γ¿ó ¡á φ¬αá¡Ñ , ó¬½ετá∩ óßÑ
  4418. »«ñ»α¿¼¿Γ¿óδ.
  4419.  
  4420.  
  4421.        5. 4. 5.   Äúαá¡¿τÑ¡¿∩
  4422.  
  4423.        ê¼Ñ¡á »α¿¼¿Γ¿ó«ó ( entity names ) ¿ ¡áí«αδ óδí«αá ( selection- sets )
  4424.  
  4425.  
  4426.  
  4427.  
  4428.                            - 73 -
  4429.  
  4430.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4431.  
  4432.  
  4433. ñÑ⌐ßΓó¿Γѽ∞¡δ Γ«½∞¬« ó ΓÑτÑ¡¿Ñ ßÑá¡ßá αÑñá¬Γ¿α«óá¡¿∩ ,ó ¬«Γ«α«¼ «¡¿ »α¿-
  4434. ¼Ñ¡∩εΓß∩ ó AutoCADÑ. Æá¬, Ñß½¿ óδ »«»δΓáÑΓÑß∞ »α«¿ºóÑßΓ¿ ¬á¬¿Ñ-¡¿íπñ∞ »«-
  4435. ß½ÑñπεΘ¿Ñ ñÑ⌐ßΓó¿∩ , »«¬á á¬Γ¿ó¡δ ¬«¼á¡ñδ PLINE ¿½¿ ATTEDIT , íπñÑΓ ó«º-
  4436. óαáΘÑ¡« " nil" ¿ ºá»α«ß Σπ¡¬µ¿¿ ¡Ñ íπñÑΓ óδ»«½¡Ñ¡.
  4437.  
  4438.        ENTMOD          τΓ«íδ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ßπΘÑßΓóπεΘ¿⌐ »α¿¼¿Γ¿ó
  4439.        ENTUPD          τΓ«íδ ó«ßßΓá¡«ó¿Γ∞ ¼«ñ¿Σ¿µ¿α«óá¡¡δ⌐ ß½«ª¡δ⌐ »α¿¼¿Γ¿ó
  4440.        ENTDEL          τΓ«íδ ¡Ñ πñá½∩Γ∞ ¿ ó«ßßΓá¡«ó¿Γ∞ π¡¿τΓ«ªÑ¡¡δ⌐ »α¿¼¿Γ¿ó
  4441.  
  4442.  
  4443.  
  4444.  
  4445.        5. 5.   Åα¿¼Ñ¡Ñ¡¿Ñ ó AutoCADÑ ¿¼Ñ¡ »α¿¼¿Γ¿ó«ó ¿ ¡áí«α«ó óδí«αá
  4446.  
  4447.  
  4448.  
  4449.        ê¼Ñ¡á »α¿¼¿Γ¿ó«ó (entity name) ¿ ¡áí«αδ óδí«αá (selection-sets)
  4450. ¡Ñ«íσ«ñ¿¼δ ñ½∩ Γ«ú« , τΓ«íδ óóÑßΓ¿ ¿º LISPá «íΩѬΓδ óδí«αá ó «ΓóÑΓ ¡á
  4451. »«ñ߬Ậπ. Æᬿ¼ «íαẫ¼ , »α¿¼¿Γ¿óδ , ¡áºóá¡¡δÑ LISP«¼, ¼«úπΓ αáí«ΓáΓ∞
  4452. »« ¬«¼á¡ñá¼ AutoCADá. Å«ñ߬Ậπ "Select objects:" LISP ¼«ªÑΓ ß¡áíñ¿Γ∞
  4453. ¿¼Ñ¡Ñ¼ »α¿¼¿Γ¿óá, ¬«Γ«αδ⌐ «»αÑñѽ∩ÑΓ Ññ¿¡ßΓóÑ¡¡δ⌐ »α¿¼¿Γ¿ó ¿½¿ ¡áí«α
  4454. óδí«αá , τΓ«íδ óδíαáΓ∞ óßÑ »α¿¼¿Γ¿óδ ó ¡áí«αÑ. ÅÑαÑñáτá ¿¼Ñ¡ »α¿¼¿Γ¿ó«ó ¿
  4455. ¡áí«αá óδí«αá ¿º LISPá ó«º¼«ª¡á ó óδí«αÑ "Last"( «íÑ τáßΓ¿ ,
  4456. ¬á¬ ß»«ß«í¡«ßΓ∞ óδí¿αáΓ∞ »α¿¼¿Γ¿óδ, ¡Ñ óº¿αá∩ ¡á ó¿ñ¿¼«ßΓ∞,Γᬠ¿
  4457. ¡Ñ ß»Ñµ¿Σ¿µ¿α«óáΓ∞ óδíαá¡¡δÑ Γ«τ¬¿).
  4458.        éß∩¬¿⌐ αáº, ¬«úñá AutoCAD »«ºó«½∩ÑΓ ßñѽáΓ∞ óδí«α «íΩѬΓá Γ«τ-
  4459. ¬«⌐, ß»¿ß¬¿ ó »α«úαἼѠ, ó«ºóαáΘáѼδÑ Σπ¡¬µ¿Ñ⌐ ENTSEL, ñ«»πßΓ∩Γ »α«-
  4460. µÑñπαπ óδí«αá. Ä¡¿ óδí¿αáεΓ »α¿¼¿Γ¿ó ¿º ß»¿ß¬á, «»αÑñѽ∩∩ Γ«τ¬π ó ß»¿-
  4461. ߬Ñ, ¬á¬ óδíαá¡¡πε Γ«τ¬π. ¥Γ« »«ºó«½∩ÑΓ LISPπ »ÑαÑ⌐Γ¿ ¬ óó«ñπ óδíαá¡¡δσ
  4462. Γ«τѬ Γᬿ¼¿ ¬«¼á¡ñἿ, ¬á¬ BREAK, TRIM ¿ EXTEND. Å«¼¡¿ΓÑ, τΓ« ß»¿ß¬¿
  4463. Σ«α¼δ ENTSEL ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ ñαπú¿σ óδí«α«ó Γ«ªÑ , ΓᬠªÑ
  4464. Γ«τ¡«, ¬á¬ Γ«τ¬á, óδí¿αáѼá∩ »«ºó«½∩εΘÑ⌐ ¬«¼á¡ñ«⌐. æ»¿ß¬¿ Σ«α¼δ ENTSEL
  4465. ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ß ¬«¼á¡ñἿ FILLET ¿ CHAMFER, ¬«Γ«αδÑ »α¿¼Ñ¡∩-
  4466. εΓ ñóá »α¿¼¿Γ¿óá ¿ Γ«τ¬¿ ¿º ¼Ñσá¡¿º¼á óδí«αá.
  4467.  
  4468.  
  4469.        5. 6.  ä«ßΓπ» ¬ Γáí½¿µÑ ß¿¼ó«½«ó
  4470.                                                                         :
  4471.        Åα¿óÑñÑ¡¡δÑ ¡¿ªÑ Σπ¡¬µ¿¿ TBLNEXT ¿ TBLSEARCH ß¡áíªÑ¡δ Γáí½¿µÑ⌐   :
  4472. ß¿¼ó«½«ó, ¬«Γ«αá∩ ñ«ßΓπ»¡á Γ«½∞¬« ñ½∩ τΓÑ¡¿∩ ¿º AutoCADá πα«ó¡∩, Γ¿»á   :
  4473. ½¿¡¿¿, ¿¼Ñ¡«óá¡¡«ú« ó¿ñá, ßΓ¿½∩ ΓѬßΓá ¿ «»αÑñѽѡ¿∩ í½«¬á.             :
  4474.  
  4475.                                                                         :
  4476.                                                                         :
  4477.        5. 6. 1.  (tblnext  <table name> [<first>])                      :
  4478.                                                                         :
  4479.        ¥Γá Σπ¡¬µ¿∩ ¿ß»«½∞ºπÑΓß∩ ñ½∩ »α«ß¼«Γαá óßÑσ Γáí½¿µ ß¿¼ó«-        :
  4480. ½«ó. ÅÑαóδ⌐ áαúπ¼Ñ¡Γ - φΓ« ¿ñÑ¡Γ¿Σ¿¬áΓ«α ß¿¼ó«½á ¿¡ΓÑαÑßπεΘÑ⌐ óáß Γáí-  :
  4481. ½¿µδ. äÑ⌐ßΓó¿Γѽ∞¡δ ¿¼Ñ¡á "LAYER" , "LTYPE" , "VIEW" , "STYLE" ¿ "BLOCK":
  4482. ê¼Ñ¡á¼ ¡Ñ ¡πªÑ¡ óÑασ¡¿⌐ αÑú¿ßΓα. è«úñá »α¿ßπΓßΓóπÑΓ óΓ«α«⌐ áαúπ¼Ñ¡Γ ,   :
  4483. ¿ ¡Ñ "nil", Γáí½¿µá ß¿¼ó«½«ó »ÑαÑó«ñ¿Γß∩ ¡á ¡áτὫ ¿ »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ ó   :
  4484. ¡Ñ⌐ ó«ßßΓá¡áó½¿óáÑΓß∩, ó »α«Γ¿ó¡«¼ ß½πτáÑ , ó«ßßΓá¡áó½¿óáÑΓß∩           :
  4485. ß½ÑñπεΘ¿⌐ φ½Ñ¼Ñ¡Γ ó Γáí½¿µÑ. è«úñá ß«óßѼ ¡ÑΓ φ½Ñ¼Ñ¡Γ«ó ó Γáí½¿µÑ , ó«º-:
  4486. óαáΘáÑΓß∩ "nil". ôñá½Ñ¡¡δÑ φ½Ñ¼Ñ¡Γδ Γáí½¿µδ ¡Ñ ó«ºóαáΘáεΓß∩.            :
  4487.        è«úñá φ½Ñ¼Ñ¡Γ «í¡áαπªÑ¡, «¡ ó«ºóαáΘáÑΓß∩ , ¬á¬ ß»¿ß«¬ Γ«τÑτ¡δσ   :
  4488. »áα  DXF ¬«ñ«ó ¿ º¡áτÑ¡¿⌐ , »«ñ«í¡« Γ«¼π ,¬«Γ«αδ⌐ ó«ºóαáΘáÑΓ Σπ¡¬µ¿∩    :
  4489.  
  4490.  
  4491.  
  4492.  
  4493.                            - 74 -
  4494.  
  4495.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4496.  
  4497.  
  4498. ENTGET.
  4499.                                                                         :
  4500.        Åα¿¼Ñα:                                                          :
  4501.                                                                         :
  4502.        (tblnext  "layer" T)        ó«ßßΓá¡áó½¿óáÑΓ »Ñαóδ⌐ πα«óÑ¡∞       :
  4503.  
  4504.        ¼«ªÑΓ óÑα¡πΓ∞                                                    :
  4505.        ((0 .  "LAYER")             ß¿¼ó«½∞¡δ⌐ Γ¿»                       :
  4506.         (2 .  "0")                 ¿¼∩ ß¿¼ó«½á                          :
  4507.         (70 .  0)                  Σ½áú¿                                :
  4508.         (62 .  7)                  µóÑΓ, ¡ÑúáΓ¿ó ó䬽ετÑ¡               :
  4509.         (6 .  "CONTINUOUS")        Γ¿» ½¿¡¿¿                            :
  4510.        )                                                                :
  4511.                                                                         :
  4512.        ÄíαáΓ¿ΓѠ󡿼᡿Ѡ, τΓ« ß«ó«¬π»¡«ßΓ¿ "-1" ¡ÑΓ. AutoCAD ºá»«¼¿¡áÑΓ:
  4513. »«ß½Ññ¡¿⌐ φ½Ñ¼Ñ¡Γ , ó«ºóαáΘáѼδ⌐ ¿º Γáí½¿µδ, ¿ »α«ßΓ« ó«ºóαáΘáÑΓ «ñ¿¡   :
  4514. ¿º ß½ÑñπεΘ¿σ φ½Ñ¼Ñ¡Γ«ó ,»α¿ ¬áªñ«¼ ó맮óÑ TABNEXT«¼ φΓ«⌐ Γáí½¿µδ.       :
  4515. è«úñá óδ ¡áτ¿¡áÑΓÑ »α«ß¼«Γα Γáí½¿µδ , óδ ñ«½ª¡δ íδΓ∞ πóÑαÑ¡δ , τΓ« óΓ«- :
  4516. α«⌐ áαúπ¼Ñ¡Γ ¡Ñ "nil",   τΓ«íδ  »ÑαѼ«ΓáΓ∞ Γáí½¿µπ ¿ óÑα¡πΓ∞ »Ñαóδ⌐ φ½Ñ-:
  4517. ¼Ñ¡Γ . ¥½Ñ¼Ñ¡Γδ, ó«ßcΓá¡«ó½Ñ¡¡δÑ ¿º Γáí½¿µδ " BLOCK" , ó¬½ετáεΓ ó ßÑí∩  :
  4518. ß«ó«¬π»¡«ßΓ∞ "-2" c ¿¼Ñ¡Ñ¼  »Ñαó«ú« »α¿¼¿Γ¿óá ó «»αÑñѽѡ¿¿             :
  4519. í½«¬á (¿½¿ ½εí«ú«).                                                     :
  4520.                                                                         :
  4521. êΓá¬, ¡áº«óѼ í½«¬ "BOX":                                               :
  4522.                                                                         :
  4523.         (tblnext  "block")          ó«ßßΓá¡áó½¿óáÑΓ «»αÑñѽѡ¿Ñ í½«¬á   :
  4524.    ¼«ªÑΓ óÑα¡πΓ∞:                                                       :
  4525.        ((0 . "BLOCK")              Γ¿» ß¿¼ó«½á                          :
  4526.         (2 . "BOX")                ¿¼∩ ß¿¼ó«½á                          :
  4527.         (70 . 0)                   Σ½áª¬¿                               :
  4528.         (10  9.000000 2.000000 0.000000)  ò,ô,Z                         :
  4529.         (-2 . <Entity name: 40000126)) »Ñαóδ⌐ »α¿¼¿Γ¿ó                  :
  4530.        )                                                                :
  4531.                                                                         :
  4532.        ê¼∩ »α¿¼¿Γ¿óá ó ß«ó«¬π»¡«ßΓ¿ "-2" »α¿¡¿¼áÑΓß∩ Σπ¡¬µ¿∩¼¿ ENTGET ¿ :
  4533. ENTNEXT ,¡« ¡¿ ¬á¬¿¼¿ ñαπú¿¼¿ Σπ¡¬µ¿∩¼¿. ¥Γ« º¡áτ¿Γ, τΓ« óδ ¡Ñ ¼«ªÑΓÑ   :
  4534. ¼«ñ¿Σ¿µ¿α«óáΓ∞ Γᬫ⌐ »α¿¼¿Γ¿ó Σπ¡¬µ¿Ñ⌐ ENTMOD ¿½¿ ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿¿  :
  4535. SSADD ¿½¿ ENTSEL , τΓ«íδ »«¼ÑßΓ¿Γ∞ Ñú« ó selectin-set. Åα¿¼Ñ¡∩∩ ß«ó«-   :
  4536. ¬π»¡«ßΓ∞ "-2"¿¼Ñ¡¿ »α¿¼¿Γ¿óá ó Σπ¡¬µ¿¿ ENTNEXT, óδ ¼«ªÑΓѠ߬᡿α«óáΓ∞   :
  4537. »α¿¼¿Γ¿óδ, ßª¿¼á∩ «»αÑñѽѡ¿∩ í½«¬á; Σπ¡¬µ¿∩ ENTNEXT ó«ºóαáΘáÑΓ "nil"   :
  4538. »«ß½Ñ »«ß½Ññ¡Ñú« »α¿¼¿Γ¿óá ó «»αÑñѽѡ¿Ñ í½«¬á.
  4539.  
  4540.  
  4541.         5. 6. 2.  (tblsearch  <table name> <symbol>
  4542.  
  4543.  
  4544.        ¥Γá Σπ¡¬µ¿∩ »α«ß¼áΓα¿óáÑΓ Γáí½¿µπ ß¿¼ó«½«ó , ¿ñÑ¡Γ¿Σ¿µ¿απѼπε    :
  4545. <table name> ( Γ« ªÑ ßἫѠ, τΓ« Σπ¡¬µ¿∩ TBLNEXT), «Γδ߬¿óá∩ ¿¼∩ ß¿¼ó«½á:
  4546. »α¿ßó«Ñ¡¡«ú« <symbol>. Äíá ¿¼Ñ¡¿ áóΓ«¼áΓ¿τÑ߬¿ »α¿ó«ñ∩Γß∩ ¬ óÑασ¡Ñ¼π αÑ-
  4547. ú¿ßΓαπ. è«úñá «í¡áαπªÑ¡« ¿¼∩ φ½Ñ¼Ñ¡Γá, »«ñ«í¡«Ñ Γ«¼π ,¬«Γ«α«Ñ           :
  4548. ñá½ <symbol>, φΓᠺỿß∞ ó«ºóαáΘáÑΓß∩ ó Σ«α¼áΓÑ , «»¿ßá¡¡«¼ Σπ¡¬µ¿Ñ⌐    :
  4549. TBLNEXT. àß½¿ Γᬫ⌐ φ½Ñ¼Ñ¡Γ  ¡Ñ «í¡áαπªÑ¡, ó«ºóαáΘáÑΓß∩ "nil" .         :
  4550.                                                                         :
  4551.        ìá»α¿¼Ñα:                                                        :
  4552.                                                                         :
  4553.        (tblsearch "style" "standard")     πßΓá¡áó½¿óáÑΓ ßΓ¿½∞ ΓѬßΓá    :
  4554.  
  4555.  
  4556.  
  4557.  
  4558.                            - 75 -
  4559.  
  4560.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4561.  
  4562.  
  4563.                                                                         :
  4564.        ¼«ªÑΓ óÑα¡πΓ∞:                                                   :
  4565.                                                                         :
  4566.        ((0 . "STYLE")                     Γ¿» ß¿¼ó«½á                   :
  4567.         (2 . "STANDARD")                  ¿¼∩ ß¿¼ó«½á                   :
  4568.         (70 .  0)                         Σ½áª¬¿                        :
  4569.  
  4570.         (40 .  0.000000)                  Σ¿¬ß¿α«óá¡¿Ñ óδß«Γδ           :
  4571.         (41 .  1.000000)                  Σá¬Γ«α Φ¿α¿¡δ                 :
  4572.         (50 .  0.000000)                  πú«½                          :
  4573.         (71 .  0)                         úÑ¡Ñα¿α«óá¡¿Ñ Σ½áª¬«ó         :
  4574.         (3 .  "txt")                      ßá¼δ⌐ »Ñαóδ⌐ font file        :
  4575.         (4 . "")                          í«½∞Φ«⌐ font file             :
  4576.        )                                                                :
  4577.                                                                         :
  4578.        Å«α∩ñ«¬ óó«ñ«ó ó«ßßΓá¡«ó½Ñ¡ ¿º TBLNEXT íѺ ó«ºñÑ⌐ßΓó¿∩ Σπ¡¬µ¿¿   :
  4579. TBLSEARCH.
  4580.  
  4581.  
  4582.        5. 7.    ä«ßΓπ» ¬ úαáΣ¿τÑ߬«¼π φ¬αá¡π ¿ πßΓα«⌐ßΓóá¼ óó«ñá
  4583.  
  4584.        öπ¡¬µ¿¿ AutoLISPá , «»¿ßá¡¡δÑ ó φΓ«¼ αáºñѽÑ, «íÑß»Ñτ¿óáεΓ »α∩-
  4585. ¼«⌐ ñ«ßΓπ» ¬ úαáΣ¿τÑ߬«¼π φ¬αá¡π AutoCADá, ¿ πßΓαá¿óáεΓ óσ«ñ ¿º LISPá,
  4586. ¿ »«ºó«½∩εΓ ßαÑñßΓóἿ LISP-¬«¼á¡ñ óºá¿¼«ñÑ⌐ßΓó«óáΓ∞ ß »«½∞º«óáΓѽѼ,
  4587. ¬á¬ Ñß½¿ íδ óδ»«½¡Ñ¡¿Ñ í佫 íѺ AutoCADá . ¥Γ¿ ¬«¼á¡ñδ ¼«úπΓ πßΓα«¿Γ∞
  4588. íÑß»«α∩ñ«¬ ¡á φ¬αá¡Ñ. Äñ¡á¬«, ½εí«Ñ »«óαѪñÑ¡¿Ñ , ¬«Γ«α«Ñ «¡¿ ¡á¡«ß∩Γ,
  4589. ¼«ªÑΓ íδΓ∞ «Γ¼Ñ¡Ñ¡« »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ε:
  4590.  
  4591.        (grtext)
  4592.        (redraw)
  4593.  
  4594. «ñ¡á¬« , ¡ÑΓ ¡πªñδ ¬áßáΓ∞ß∩ φΓ«ú«. ¥Γ¿ Σπ¡¬µ¿¿ Γ«½∞¬« ñ½∩ «»δΓ¡δσ »«½∞-
  4595. º«óáΓѽÑ⌐. ü«½∞Φ¿¡ßΓóπ »α¿¼Ñ¡Ñ¡¿⌐ LISPá ¡Ñ ¡πª¡δ  φΓ¿ Σπ¡¬µ¿¿. Å«-
  4596. ½∞º«óáΓѽÑ⌐ »αÑñπ»αѪñáѼ , τΓ«  ñÑ⌐ßΓó¿∩ φΓ¿σ Σπ¡¬µ¿⌐ ¼«úπΓ íδΓ∞ ¿º-
  4597. ¼Ñ¡Ñ¡δ «Γ óδ»π߬ᠬ óδ»π߬π ß¿ßΓѼδ AutoCAD ¿, ß½Ññ«óáΓѽ∞¡«, Autodesk,
  4598. »«φΓ«¼π ¡ÑΓ úáαá¡Γ¿¿ π¬áºá¡¡«⌐ óδΦÑ ß«ó¼ÑßΓ¿¼«ßΓ¿ »α¿¼Ñ¡Ñ¡¿⌐ φΓ¿σ Σπ¡¬-
  4599. µ¿⌐. Åα¿¼Ñ¡Ñ¡¿Ñ Σπ¡¬µ¿⌐ GRTEXT ¿ GRREAD ΓᬪѠ¼«ªÑΓ íδΓ∞ ¡Ñ»«ñσ«ñ∩ΘÑ ,
  4600. ñ½∩ αáí«Γδ ¡á ½εí«⌐ ªÑßΓ¬«⌐ ¬«¡Σ¿úπαᵿ¿, Ñß½¿ »«½∞º«óáΓѽ∞ ¡Ñ «τÑ¡∞
  4601. ó¡¿¼áΓѽѡ , τΓ«íδ á¬¬παáΓ¡« ß½Ññ«óáΓ∞ »αáó¿½á¼ ¿σ ¿ß»«½∞º«óá¡¿∩ , »α¿-
  4602. óÑñÑ¡¡δ¼ ¡¿ªÑ.
  4603.  
  4604.  
  4605.        5. 7. 1.  (grclear)
  4606.  
  4607.        ¥Γá Σπ¡¬µ¿∩ «τ¿ΘáÑΓ úαáΣ¿τÑ߬¿⌐ φ¬αá¡ AutoCADá. (é ß¿ßΓѼáσ ß
  4608. «ñ¡¿¼ φ¬αá¡«¼ «¡á »ÑαѬ½ετ¿Γ úαáΣ¿τÑ߬¿⌐ φ¬αá¡ ß ΓѬßΓ«ó«ú« αѪ¿¼á
  4609. ¡á »Ñαóδ⌐). Å«ñ߬Ậá , ßΓáΓπß ¿ ¼Ñ¡ε «ßΓáεΓß∩ ¡Ñ¿º¼Ñ¡¡δ¼¿. Äα¿ú¿¡á½
  4610. ¼«ªÑΓ íδΓ∞ »ÑαÑóδóÑñÑ¡ ¡á úαáΣ¿τÑ߬¿⌐ φ¬αá¡ Σπ¡¬µ¿Ñ⌐ REDRAW.
  4611.  
  4612.  
  4613.        5. 7. 2.  (grdraw  <from> <to> <color> [<highlight>])
  4614.  
  4615.        öπ¡¬µ¿∩ GRDRAW óδτÑατ¿óáÑΓ óÑ¬Γ«α ¼Ñªñπ ñóπ¼∩ Γ«τ¬á¼¿ . <from>
  4616. ¿ <to> ∩ó½∩εΓß∩ Γ«τ¬á¼¿ (ß»¿ß¬¿ ¿º ñóπσ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ), ¬«Γ«-
  4617. αδÑ «»αÑñѽ∩εΓ ¬«¡Ñτ¡δÑ Γ«τ¬¿  óÑ¬Γ«αá. è«¡Ñτ¡δÑ Γ«τ¬¿ «»αÑñѽ∩εΓß∩ ,
  4618. ¬á¬ »½áóáεΘ¿Ñ Γ«τ¬¿ ñ½∩ óδτÑατ¿óá¡¿∩ ¬««αñ¿¡áΓ ¿ íπñÑΓ clipped, ¬á¬
  4619.  
  4620.  
  4621.  
  4622.  
  4623.                            - 76 -
  4624.  
  4625.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4626.  
  4627.  
  4628. ΓαÑí«óá¡¿Ñ , τΓ«íδ óδóÑßΓ¿ ¡á φ¬αá¡.  éÑ¬Γ«α íπñÑΓ ¡áα¿ß«óá¡ ß µóÑΓ¡δ¼
  4629. óδó«ñ«¼ , Ñß½¿ áαúπ¼Ñ¡Γ <color> µÑ½«Ñ τ¿ß½«, «»αÑñѽ∩Ѽ«Ñ ó úαπ»»Ñ -1 ó
  4630. "XOR ink",¬«Γ«αá∩ ºá¬á¡τ¿óáÑΓ ½εí«Ñ Ñú« óδτÑατ¿óá¡¿Ñ ¿ π¡¿τΓ«ªáÑΓß∩,
  4631. ¬«úñá »ÑαÑτÑατÑ¡«. àß½¿ áαúπ¼Ñ¡Γ <highlight> µÑ½«Ñ τ¿ß½« ¿ ¡Ñ "0",
  4632. íπñÑΓ ¡áα¿ß«óá¡ óÑ¬Γ«α Γá¬, ¬á¬ ¼Ñσá¡¿º¼ ñ¿ß»½Ñ∩ óδßóÑΓ¿Γ óδíαá¡¡δÑ
  4633. «íΩѬΓδ ( «íδτ¡« »«-Γ«τÑτ¡« ). àß½¿ <highlight> »α«»πΘÑ¡ ¿½¿ ¿¼ÑÑΓ º¡á-
  4634. τÑ¡¿Ñ 0, íπñÑΓ ¿ß»«½∞º«óá¡ ¡«α¼á½∞¡δ⌐ αѪ¿¼ óδó«ñá ¡á φ¬αá¡.
  4635.  
  4636.  
  4637.        5. 7. 3.    ( grtext [<box> <text> [<highlight>]])
  4638.  
  4639.        öπ¡¬µ¿∩ GRTEXT »«ºó«½∩ÑΓ AutoLISPπ óδó«ñ¿Γ∞ ΓѬßΓ τáßΓ∩¼¿¿
  4640. ¡á úαáΣ¿τÑ߬¿⌐ φ¬αá¡ ó AutoCADÑ. àß½¿ óδºδóáÑΓß∩ ß áαúπ¼Ñ¡Γ«¼
  4641. <box> «Γ 0 ¿ ñ« ßἫú« óδß«¬«ú« τ¿ß½Ñ¡¡«ú« º¡áτÑ¡¿∩ í«¬ßá ó ¼Ñ¡ε φ¬αá¡á
  4642. ¼¿¡πß 1, Σπ¡¬µ¿∩ óδóÑñÑΓ ¡á φ¬αá¡ ñ¿ß»½Ñ∩ ßΓ᫬«óδ⌐  áαúπ¼Ñ¡Γ <text>,
  4643. ó π¬áºá¡¡δ⌐ ó ¼Ñ¡ε í«¬ß .  ÆѬßΓ<text> íπñÑΓ  c«¬αáΘÑ¡, Ñß½¿ «¡
  4644. ß½¿Φ¬«¼ ñ½¿¡¡δ⌐ , ¿ ¡Ñ»α¿ú«ñÑ¡ ñ½∩ í«¬ßá, ¿ »πßΓ«Γᠺừ½¡¿Γß∩ »α«íѽá-
  4645. ¼¿, Ñß½¿ ΓѬßΓ ¬«α«τÑ. àß½¿ »α¿ßπΓßΓóπÑΓ Σá¬π½∞ΓáΓ¿ó¡δ⌐ áαúπ¼Ñ¡Γ
  4646. (µÑ½«Ñ τ¿ß½«) <highlight> ¿ «¡ ¡Ñ 0 , ó »αÑñ¡áº¡áτÑ¡¡«¼ í«¬ßÑ
  4647. íπñÑΓ óδßóÑτ¿óáΓ∞ß∩ ΓѬßΓ. àß½¿ <highlight> »α¿ßπΓßΓóπÑΓ ¿  0, ΓѬßΓ ó
  4648. »αÑñ¡áº¡áτÑ¡¡«¼ í«¬ßÑ ¡Ñ íπñÑΓ óδßóÑτ¿óáΓ∞ß∩ ( ºá»«¼¡¿ΓÑ, τΓ« »α¿ óδßóÑ-
  4649. τ¿óá¡¿¿ ñαπú«ú« ΓѬßΓá, í«¬ß áóΓ«¼áΓ¿τÑ߬¿ «Γ¼Ñ¡∩ÑΓ »αÑñδñπΘ¿⌐ ΓѬßΓ, ¬«-
  4650. Γ«αδ⌐ íδ½ óδßóÑτÑ¡). è«úñá óδ »¿ΦÑΓÑ ó í«¬ßÑ , ΓѬßΓ ß¡áτá½á ñ«½ªÑ¡ íδΓ∞
  4651. ¡á»¿ßá¡ íѺ áαúπ¼Ñ¡Γá <highlight>, ºáΓѼ óδßóÑτÑ¡. Æá¬á∩ ªÑ ΓѬßΓ«óá∩
  4652. ßΓ᫬á , ¬á¬á∩ ó «α¿ú¿¡á½Ñ óó«ñ¿Γß∩ ó í«¬ß,  ñ«½ª¡á óδßóÑτ¿óáΓ∞ß∩ ¿ ¡Ñ
  4653. óδßóÑτ¿óáΓ∞ß∩. ÉѺπ½∞ΓáΓ«¼ ¡Ñß«í½εñÑ¡¿∩ φΓ¿σ »αáó¿½ íπñπΓ  LISP »α«úαá¼-
  4654. ¼δ , ¬«Γ«αδÑ óÑñπΓ ßÑí∩ »«-αạ«¼π ¡á αạδσ ñ¿ß»½Ñ∩σ. çừ¼¡¿ΓÑ , τΓ«
  4655. φΓá Σπ¡¬µ¿∩ »α«ßΓ« óδó«ñ¿Γ ¡á φ¬αá¡ ñ¿ß»½Ñ∩ ΓѬßΓ, ¡áσ«ñ∩Θ¿⌐ß∩ ó »½«Θáñ¿
  4656. φ¬αá¡á ; «¡á ¡Ñ ¿º¼Ñ¡∩ÑΓ φ½Ñ¼Ñ¡Γδ φ¬αá¡¡«ú« ¼Ñ¡ε.
  4657.        àß½¿ Σπ¡¬µ¿∩ GRTEXT óδºδóáÑΓß∩ í«¬ß«¼  ¡«¼Ñα -1, ΓѬßΓ íπñÑΓ
  4658. óδóÑñÑ¡ ¡á φ¬αá¡ ó αѪ¿¼Ñ ßΓáΓπßá ½¿¡¿¿ . ä½¿¡á ½¿¡¿¿ ºáó¿ß¿Γ «Γ ñ¿ß»½Ñ∩
  4659. ( í«½∞Φ¿¡ßΓó« ¿σ ñ«»π߬áÑΓ , »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ , 40 αạ«ó¿ñ¡«ßΓÑ⌐, ºá
  4660. ¿ß¬½ετÑ¡¿Ñ¼ ºá¼ÑτáΓѽ∞¡«ú« Color Graphics Adaptor Σ¿α¼δ IBM ). ÆѬßΓ
  4661. íπñÑΓ ß«¬αáΘÑ¡ , τΓ«íδ »α¿ú¡áΓ∞ Ñú« ¬ ¿¼ÑεΘѼπß∩ ó αáß»«α∩ªÑ¡¿¿ »α«-
  4662. ßΓαá¡ßΓóπ .
  4663.        àß½¿ ¿ß»«½∞ºπÑΓß∩ í«¬ß ß ¡«¼Ñα«¼ -2, ΓѬßΓ íπñÑΓ ¡á»¿ßᡠ󠬫«α-
  4664. ñ¿¡áΓáσ ßΓáΓπßá ½¿¡¿¿. çừ¼¡¿ΓÑ, τΓ« Ñß½¿ ß½ÑªÑ¡¿Ñ ¬««αñ¿¡áΓ ó¬½ε-
  4665. τÑ¡«, óѽ¿τ¿¡δ, ºá»¿ßá¡¡δÑ ó φΓ« »«½Ñ , »ÑαÑ»¿ΦπΓß∩ ,¬á¬ Γ«½∞¬«
  4666. π¬áºáΓѽ∞ »«Φ½ÑΓ ñαπú«⌐ ¡áí«α ¬««αñ¿¡áΓ. èáªñδ⌐ ¿º ¡«¼Ñα«ó , -1 ¿½¿ -2 ,
  4667. ¿ú¡«α¿απÑΓ áαúπ¼Ñ¡Γ <highlight> , Ñß½¿ «¡ »α¿ßπΓßΓóπÑΓ .
  4668.        ìᬫ¡Ñµ, Σπ¡¬µ¿∩ DRTEXT ¼«ªÑΓ íδΓ∞ óδºóá¡á íѺ áαúπ¼Ñ¡Γ«ó, τΓ«-
  4669. íδ ó«ßßΓá¡«ó¿Γ∞ óßε »½«Θáñ∞ ΓѬßΓá ¡á φ¬αá¡Ñ, ß Ñú« ßΓá¡ñáαΓ¡δ¼¿
  4670. »ÑαѼѡ¡δ¼¿.
  4671.  
  4672.  
  4673.        5. 7. 4.  (grread  [<trac>])
  4674.  
  4675.        öπ¡¬µ¿∩ GRREAD »«ºó«½∩ÑΓ óá¼ ¡Ñ»«ßαÑñßΓóÑ¡¡« ß½Ññ¿Γ∞ ºá ¼Ñσá¡¿º-
  4676. ¼«¼ óσ«ñá AutoCADá, óδ߽Ѫ¿óá∩ π¬áºá¡¡δÑ ¼Ñσá¡¿º¼δ , ¬«úñá «¡¿ ¿º¼Ñ¡∩εΓß∩.
  4677. ¥Γ«⌐ Σπ¡¬µ¿¿ ¡πª¡δ Γ«½∞¬« ß»Ñµ¿Σ¿τÑ߬¿Ñ ¬«¼á¡ñδ , í«½∞Φ¿¡ßΓó« óσ«ñ«ó ó
  4678. AutoLISP »α«⌐ñπΓ τÑαѺ αẽ¿τ¡δÑ Σπ¡¬µ¿¿ GETxxx , ΓᬿѠ¬á¬ GETSTRING ,
  4679. GETREAL ¿ »«ñ«í¡δÑ. Çαúπ¼Ñ¡Γ <track> , Ñß½¿ «¡ ¿¼ÑÑΓß∩ ¿ ¡Ñ "nil" ,
  4680. ñáÑΓ ó«º¼«ª¡«ßΓ∞ óÑα¡πΓ∞ ¬««αñ¿¡áΓδ ¿º π¬áºá¡¡δσ ¼Ñσá¡¿º¼«ó , ¬«úñá «¡¿
  4681. ñó¿úáεΓß∩, ¡Ñ ΓαÑíπ∩ óδí«αá ¡áªáΓ¿Ñ¼ ¬½áó¿Φ. ¥Γ«Γ ¼Ñσá¡¿º¼ AutoCAD «íδτ-
  4682. ¡« ¿ß»«½∞ºπÑΓ ñ½∩ »α«Γ∩ú¿óá¡¿∩.
  4683.        öπ¡¬µ¿∩ GRREAD ó«ºóαáΘáÑΓ ß»¿ß«¬ , ó ¬«Γ«α«¼ »Ñαóδ⌐ φ½Ñ¼Ñ¡Γ φΓ«
  4684.  
  4685.  
  4686.  
  4687.  
  4688.                            - 77 -
  4689.  
  4690.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4691.  
  4692.  
  4693. ¬«ñ , «»αÑñѽ∩εΘ¿⌐ Γ¿» óσ«ñá. éΓ«α«⌐ φ½Ñ¼Ñ¡Γ ß»¿ß¬á - ½εí«Ñ µÑ½«Ñ τ¿ß½«
  4694. ¿½¿ ß»¿ß«¬ Γ«τѬ , ºáó¿ß∩Θ¿σ «Γ Γ¿»á óσ«ñá . è«ñδ ñ½∩ »Ñαó«ú« φ½Ñ¼Ñ¡Γá
  4695. ó ß»¿ß¬Ñ ß½ÑñπεΘ¿Ñ:
  4696.  
  4697.        2   σáαá¬ΓÑਧπÑΓ ¬½áó¿áΓπαπ - ó ¬«ñáσ ASCII, ΓᬪѠ¿ ñ½∩ óΓ«αú«
  4698.            φ½Ñ¼Ñ¡Γá
  4699.        3   óδí¿αáѼá∩ Γ«τ¬á - ¬««αñ¿¡áΓδ , ¬á¬ ß»¿ß«¬
  4700.        4   óδí¿αáѼδ⌐ φ½Ñ¼Ñ¡Γ ¼Ñ¡ε φ¬αá¡á- ¡«¼Ñα í«¬ßá , ΓᬪѠ¿ ñ½∩
  4701.            óΓ«α«ú« φ½Ñ¼Ñ¡Γá
  4702.        5   αѪ¿¼ »α«Γ∩ú¿óá¡¿∩ ¬««αñ¿¡áΓ , ΓᬪѠ¿ ñ½∩ óΓ«α«ú« φ½Ñ¼Ñ¡Γá.
  4703.            é«ºóαáΘáÑΓß∩ Γ«½∞¬« , Ñß½¿ óΓ«α«⌐ áαúπ¼Ñ¡Γ «»αÑñѽѡ ¿ «¡ ¡Ñ
  4704.            "nil"
  4705.        6   BUTTONS óδí¿αáѼδ⌐ »π¡¬Γ ¼Ñ¡ε - ¡«¼Ñα ¬½áó¿Φ¿ φΓ« óΓ«α«⌐
  4706.            φ½Ñ¼Ñ¡Γ
  4707.        7   TABLET1 «µ¿Σα«óδóáѼδ⌐ »π¡¬Γ ¼Ñ¡ε - ¡«¼Ñα í«¬ßá φΓ« óΓ«α«⌐
  4708.            φ½Ñ¼Ñ¡Γ
  4709.        8   TABLET2 «µ¿Σα«óδóáѼδ⌐ »π¡¬Γ ¼Ñ¡ε - ¡«¼Ñα í«¬ßá φΓ« óΓ«α«⌐
  4710.            φ½Ñ¼Ñ¡Γ
  4711.        9   TABLET3 «µ¿Σα«óδóáѼδ⌐ »π¡¬Γ ¼Ñ¡ε - ¡«¼Ñα í«¬ßá φΓ« óΓ«α«⌐
  4712.            φ½Ñ¼Ñ¡Γ
  4713.        10  TABLET4 «µ¿Σα«óδóáѼδ⌐ »π¡¬Γ ¼Ñ¡ε - ¡«¼Ñα í«¬ßá φΓ« óΓ«α«⌐
  4714.            φ½Ñ¼Ñ¡Γ
  4715.        11  AUXI «µ¿Σα«óδóáѼδ⌐ »π¡¬Γ ¼Ñ¡ε - ¡«¼Ñα í«¬ßá φΓ« óΓ«α«⌐
  4716.            φ½Ñ¼Ñ¡Γ
  4717.        12  ¬««αñ¿¡áΓδ, ßó∩ºá¡¡δÑ ß π¬áºáΓѽѼ ¬½áó¿Φ , ó«ºóαáΘáѼδÑ,
  4718.            ¬á¬ óΓ«α«⌐ φ½Ñ¼Ñ¡Γ. éßÑúñá ß½ÑñπÑΓ Γ¿» 6 , τΓ«íδ ó«ºóαáΓ¿Γ∞
  4719.            ß»¿ß«¬
  4720.        13  óδí«α óδßóÑτÑ¡¡«ú« »π¡¬Γᠼѡε φ¬αá¡á »α¿ »«¼«Θ¿ óó«ñá ß
  4721.            ¬½áó¿áΓπαδ
  4722.        éó«ñ CTRL C ó Γ« óαѼ∩ ¬á¬ ¿ñÑΓ GRREAD , ó맮óÑΓ »αÑαδóá¡¿Ñ
  4723. (abort) LISP »α«úαá¼¼δ ß ¬½áó¿áΓπαδ. ïεí«⌐ ñαπú«⌐ óσ«ñ »α«⌐ñÑΓ »α∩¼«
  4724. ¬ GRREAD ,ñáóá∩ φΓ¿¼ ó«º¼«ª¡«ßΓ∞ ºá¬«¡τ¿Γ∞ ¬«¡Γα«½∞ ¡áñ ¼Ñσá¡¿º¼«¼
  4725. óσ«ñá.
  4726.  
  4727.  
  4728.  
  4729.        5. 8.  Äíαáºµδ »α«úαá¼¼
  4730.  
  4731.        æ½ÑñπεΘ¿Ñ LISP »α«úαá¼¼δ ¿½½εßΓα¿απεΓ ó«º¼«ª¡«ßΓ¿ , «»¿ßá¡¡δÑ ó
  4732. φΓ«⌐ ú½áóÑ.
  4733.  
  4734.        5. 8. 1.  ôñá½Ñ¡¿Ñ πα«ó¡∩
  4735.  
  4736.        ¥Γá »α«úαá¼¼á óδ»«½¡∩ÑΓ ¬«¼á¡ñπ DELLAYER , τΓ«íδ πñ὿Γ∞ óßÑ
  4737. »α¿¼¿Γ¿óδ «»αÑñѽѡ¡«ú« πα«ó¡∩.
  4738.  
  4739.        ;    ôñá½Ñ¡¿Ñ óßÑσ »α¿¼¿Γ¿ó«ó ¡á «»αÑñѽѡ¡«¼ πα«ó¡Ñ
  4740.  
  4741.        (defun C : DELLAYER (/ e l)
  4742.           (setq l (strcase (getstring "\nLayer to  delete?")))
  4743.  
  4744.        ;    çá»π߬ τÑατÑ¡¿∩ ß¬á¡¿α«ó᡿Ѽ »Ñαó«ú« »α¿¼¿Γ¿óá
  4745.          (setq e (entnext))
  4746.  
  4747.        ;    Åα«óÑα¬á πα«ó¡Ñ⌐ φΓ¿σ »α¿¼¿Γ¿ó«ó (8 úαπ»»)
  4748.          (while e
  4749.  
  4750.  
  4751.  
  4752.  
  4753.                            - 78 -
  4754.  
  4755.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4756.  
  4757.  
  4758.             (if (= l (cdr (assoc 8 (entget e))))
  4759.        ;    è«ααÑ¬Γ¿α«óá¡¿Ñ πα«ó¡∩... πñá½Ñ¡¿Ñ φΓ«ú« πα«ó¡∩
  4760.           (entdel e)
  4761.        )
  4762.        ;    éº∩Γ∞ ß½ÑñπεΘ¿⌐ »α¿¼¿Γ¿ó
  4763.            (setq e (entnext e))
  4764.  
  4765.        ;    ÄßΓá¡«ó ñ« ΓÑσ »«α »«¬á ¡Ñ íπñÑΓ í«½∞ΦÑ »α¿¼¿Γ¿ó«ó
  4766.        )
  4767.     )
  4768.  
  4769.        öπ¡¬µ¿∩ DELLAYER »α«óÑα∩ÑΓ  8 úαπ»» ( ¿¼∩ πα«ó¡∩ ) ¬áªñ«ú« »α¿¼¿-
  4770. Γ¿óá τÑαΓѪá, »α«ß¼áΓα¿óá∩ »α¿¼¿Γ¿óδ ¡á ß»Ñµ¿Σ¿µ¿απѼ«¼ πα«ó¡Ñ. ÆÑßΓ¿α«-
  4771. ó᡿Ѽ ñαπú¿σ úαπ»» óδ ¼«ªÑΓÑ óδ»«½¡¿Γ∞ ¬«¼á¡ñδ, τΓ«íδ »α«óÑα¿Γ∞ óßÑ
  4772. »α¿¼¿Γ¿óδ «ß«íδσ Γ¿»«ó ( «¬απª¡«ßΓ¿, ¼«ªÑΓ íδΓ∞) ¿½¿ óßÑ »α¿¼¿Γ¿óδ «ß«-
  4773. íδσ óδτ¿ß½Ñ¡¿⌐ ¿ »α«τÑÑ.                                                               :
  4774.                                                                         :
  4775.                                                                         :
  4776.        5. 8. 2.   ôßΓá¡«ó½Ñ¡¿Ñ  ΓѬπΘÑú« πα«ó¡∩                         :
  4777.                                                                         :
  4778.        ¥Γá »α«úαá¼¼á óδ»«½¡∩ÑΓ ¬«¼á¡ñπ SETLAYER , ñáóá∩ ó«º¼«ª¡«ßΓ∞     :
  4779. ¿º¼Ñ¡¿Γ∞ ΓѬπΘ¿⌐ πα«óÑ¡∞ »α«ßΓ« π¬áºδóá∩ ¡á ßπΘÑßΓóπεΘ¿⌐ «íΩÑ¬Γ       :
  4780. φΓ¿¼ πα«ó¡Ñ¼.                                                           :
  4781.                                                                         :
  4782.        ; ôßΓá¡«ó¿Γ∞ ΓѬπΘ¿⌐ πα«ó¡∞ φΓ«ú« ßπΘÑßΓóπεΘÑú« «íΩѬΓá          :
  4783.                                                                         :
  4784.        (defun C:SETLAYER ( / e n)                                       :
  4785.           (setq e (car (entsel "Pick an object on the desired layer: ")))
  4786.           (if e ( progn                                                 :
  4787.                                                                         :
  4788.         ; éº∩Γ∞ óσ«ñ¡δÑ ñá¡¡δÑ úαπ»»                                    :
  4789.              (setq e (entget e)                                         :
  4790.              )                                                          :
  4791.         ; âαπ»»á 8 - φΓ« ¿¼∩ πα«ó¡∩                                     :
  4792.              (setq n (cdr (assoc 8 e)))                                 :
  4793.                                                                         :
  4794.         ; ÉѺπ½∞ΓáΓ óδ»«½¡Ñ¡¿∩ ¬«¼á¡ñδ "LAYER SET"                      :
  4795.              (command "LAYER" "SET" n "")                               :
  4796.                                                                         :
  4797.            ))                                                           :
  4798.        )                                                                :
  4799.                                                                         :
  4800.        éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ »«ñ«í¡δ⌐ »«ñσ«ñ , τΓ«íδ πßΓá¡«ó¿Γ∞ ΓѬπ-  :
  4801. Θ¿⌐ µóÑΓ, Γ¿» ½¿¡¿¿, ó«ºóδΦÑ¡¿Ñ ¿½¿ Γ«½Θ¿¡π φΓ¿σ ß»Ñµ¿Σ¿µ¿απѼδσ «íΩÑ-  :
  4802. ¬Γ«ó.                                                                   :
  4803.                                                                         :
  4804.                                                                         :
  4805.        5. 8. 3.   êº¼Ñ¡Ñ¡¿Ñ πα«ó¡∩ »α¿¼¿Γ¿óá
  4806.  
  4807.        ¥Γ« óáα¿áµ¿¿ ¬«¼á¡ñδ SETLAYER , »α¿óÑñÑ¡¡«⌐ óδΦÑ. ïπτΦÑ, τѼ πß- :
  4808. Γá¡«ó½Ñ¡¿Ñ ΓѬπΘÑú« πα«ó¡∩ , φΓá ¬«¼á¡ñá ¿º¼Ñ¡∩ÑΓ óδíαá¡¡δÑ «íΩѬΓδ,    :
  4809. ñ½∩ Γ«ú« τΓ«íδ ¿¼ÑΓ∞ Γ«Γ ªÑ ßá¼δ⌐ πα«óÑ¡∞ , ¬á¬ ¿ π ñαπú«ú« óδíαá¡¡«ú«  :
  4810. «íΩѬΓá.                                                                :
  4811.                                                                         :
  4812.        (defun C:CHGLAYER (/ ss e n)                                     :
  4813.           (princ "Select objects to be change ...\n")                   :
  4814.  
  4815.  
  4816.  
  4817.  
  4818.                            - 79 -
  4819.  
  4820.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4821.  
  4822.  
  4823.                                                                         :
  4824.        ; Äß¡«ó¡«⌐ ¡áí«α óδí«αá (selection-set)                          :
  4825.           (setq ss(ssget))                                              :
  4826.                                                                         :
  4827.                                                                         :
  4828.                                                                         :
  4829.        ;àß½¿ ½εíδÑ óδíαá¡¡δÑ «íΩѬΓδ....                                :
  4830.           (if ss (progn                                                 :
  4831.              (setq e (car (entsel "Pick an object on the desired        :
  4832.     layer: ")))                                                         :
  4833.                                                                         :
  4834.        ; àß½¿ «íΩÑ¬Γ íδ½ óδíαá¡...                                      :
  4835.            (if e (progn                                                 :
  4836.                                                                         :
  4837.        ; ÅÑαÑ⌐ñ¿ ¡á φΓπ úαπ»»π ñá¡¡δσ                                   :
  4838.               (setq e (entget e))                                       :
  4839.                                                                         :
  4840.        ; âαπ»»á 8 - φΓ« ¿¼∩ πα«ó¡∩                                      :
  4841.               (setq n (cdr (assoc 8 e)))                                :
  4842.               (command "CHANGE" SS "" "PROP" "LAYER" n "")                :
  4843.            ))                                                           :
  4844.         ))                                                              :
  4845.       )                                                                 :
  4846.                                                                         :
  4847.        é φΓ«¼ »α¿¼ÑαÑ ¡áí«αδ óδí«αá ( selection - set)  «íΩÑ¬Γ«ó , ¬«Γ«-:
  4848. αδÑ ¼«ª¡« ¿º¼Ñ¡¿Γ∞ , πßΓá¡áó½¿óáεΓß∩ ß¿¼ó«½«¼ SS. î«ª¡« »α¿¼Ñ¡∩Γ∞ «ñ¡áª-:
  4849. ñδ πßΓá¡«ó½Ñ¡¡«Ñ ¿¼∩ πα«ó¡∩ ( ¿º 8 úαπ»»δ óδíαá¡¡«ú« «íΩѬΓá), óδí«α    :
  4850. ¡áí«αá ( selection - set ) SS »α«σ«ñ¿Γ ¬ ¬«¼á¡ñÑ "CHANGE Properties"             :
  4851. ( ¿º¼Ñ¡Ñ¡¿Ñ ß«íßΓóÑ¡¡«ßΓ¿) , τΓ«íδ óδºóáΓ∞ φΣΣÑ¬Γ ªÑ½áѼ«ú« ¿º¼Ñ¡Ñ¡¿∩.  :
  4852.                                                                         :
  4853.  
  4854.        5. 8. 4.  ÆѬßΓ«óδ⌐ αÑñá¬Γ«α
  4855.  
  4856.        Åα«úαá¼¼á, »α¿óÑñÑ¡¡á∩ ¡¿ªÑ , óδ»«½¡∩ÑΓ ¬«¼á¡ñπ CHGTEXT ñ½∩ «ß-
  4857. ¡«ó¡«ú« αÑñá¬Γ¿α«óá¡¿∩  ΓѬßΓ«ó. Ä¡á ñ«»π߬áÑΓ, τΓ« óδ «í«º¡áτáÑΓÑ
  4858. "new string" (¡«óá∩ ßΓ᫬á), τΓ«íδ Ñε ºá¼Ñ¡¿Γ∞  ó ¬áªñ«¼ ß½πτáÑ ßΓá-
  4859. απε ßΓ᫬π ("old string"), ¬«Γ«αá∩ «í¡áαπªÑ¡á ó óδíαá¡¡«¼ ΓѬßΓÑ.
  4860. éδ ¼«ªÑΓÑ ½Ñú¬« αáßΦ¿α∩Γ∞ φΓ« , τΓ«íδ ½εí«⌐ ΓѬßΓ »« óáΦѼπ ªÑ½á¡¿ε αÑ-
  4861. ñá¬Γ¿α«óá½ß∩ .
  4862.  
  4863.       ; êº¼Ñ¡Ñ¡¿Ñ »«ñßΓ᫬¿ ó óδíαá¡¡«¼ ΓѬßΓ«ó«¼ »α¿¼¿Γ¿óÑ
  4864.  
  4865.       (defun C:CHGTEXT (/ p l n e os as ns s nsl osl sl si chf chm)
  4866.          (setq p (ssget))        ; éδíÑα¿ΓÑ «íΩѬΓδ
  4867.          (if p (progn            ; àß½¿ ½εíδÑ «íΩѬΓδ óδíαá¡δ...
  4868.             (setq osl (strlen (setq os (getstring "\nOld string: "t))))
  4869.             (setq nsl (strlen (setq ns (getstring "\nNew string: "t))))
  4870.             (setq l 0 chm 0 n (sslength p))
  4871.             (while (< l n)       ; ä½∩ ¬áªñ«ú« óδíαá¡¡«ú« «íΩѬΓá...
  4872.             (if (= "TEXT"        ; æ¼«Γα¿ Γ¿» »α¿¼¿Γ¿óá ÆàèæÆ (úαπ»»á 0)
  4873.                    (cdr (assoc 0 (setq e (entget (ssname p l))))))
  4874.                (progn            ; Äí¡áαπªÑ¡ «ñ¿¡... ß¼«Γα¿ ßΓáαπε ßΓ᫬π
  4875.                   (setq chf nil si 1)
  4876.                   (setq s (cdr (setq as (assoc 1 e))))
  4877.                   (while (= osl (setq sl (strlen
  4878.                                 (setq st (substr s si osl)))))
  4879.  
  4880.  
  4881.  
  4882.  
  4883.                            - 80 -
  4884.  
  4885.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4886.  
  4887.  
  4888.                      (if (= st os) (progn
  4889.                         (setq s (strcat (substr s 1 (1 si)) ns
  4890.                                         (substr s (+ si ost))))
  4891.                         (setq chf t)  ; Äí¡áαπªÑ¡á ßΓáαá∩ ßΓ᫬á
  4892.                      ))
  4893.                      (setq si (1+ si))
  4894.                  )
  4895.                  (if chf (progn       ; çá¼Ñ¡¿Γѽ∞ ¡«ó«⌐ ßΓ᫬¿ ¡á ßΓáαπε
  4896.                     (setq e (subst (cons 1 s) as e))
  4897.                     (entmod e)        ; ÆѬßΓ«óδ⌐ »α¿¼¿Γ¿ó
  4898.                     (setq chm (1+ chm))
  4899.                 ))
  4900.             )
  4901.          )
  4902.          (setq l (1+ l))
  4903.       )
  4904.    ))
  4905.    (princ "Changed")                  ; ÅÑτáΓ∞ »«½¡«ßΓ∞ε ¿º¼Ñ¡Ñ¡¡δσ ½¿¡¿⌐
  4906.    (princ chm)
  4907.    (princ " text lines.")
  4908.    (terpri)
  4909.  )
  4910.  
  4911.        çñÑß∞, ¡áí«α óδí«αá É (selÑßtion -set P) ¿ßß½ÑñπÑΓß∩ ñ½∩ »α¿¼¿Γ¿-
  4912. ó«ó ΓѬßΓá , ß«ñÑαªáΘ¿σ ó ßÑíѠ߻ѵ¿Σ¿µ¿απѼπε ßΓáαπε ßΓ᫬π( "old
  4913. string"). ä½∩ ¬áªñ«ú« »«ñ«íαá¡¡«ú« »α¿¼¿Γ¿óá ΓѬßΓá, Σπ¡¬µ¿¿ STRCAT ¿
  4914. SUBSTR «íδτ¡« Σ«α¼¿απεΓ ¡«óπε ΓѬßΓ«óπε ßΓ᫬π, ¬«Γ«αá∩ ó« óßÑσ ß½πτá∩σ
  4915. ºá¼Ñ¡∩ÑΓ ßΓáαπε ßΓ᫬π (old string) ¡á ¡«óπε ßΓ᫬π ( new string). êß»«-
  4916. ½∞ºπ∩ SUBST,óδ »«ßΓα«¿ΓÑ ¡«óπε ßΓ᫬π, ºá¼Ñ¡∩εΘπε úαπ»»π 1 ó ΓѬßΓ«ó«¼
  4917. »α¿¼¿Γ¿óÑ, ¿ ºáΓѼ «íδτ¡« ENTMOD «Γ¬«ααÑ¬Γ¿απÑΓ »α¿¼¿Γ¿ó ó íáºÑ ñá¡¡δσ
  4918. τÑαΓѪᠿ ¡á φ¬αá¡Ñ.
  4919.  
  4920.  
  4921.        5. 8. 5.   Äí¡«ó½Ñ¡¿Ñ ñá¡¡δσ
  4922.  
  4923.        æτ¿Γá⌐ΓÑ, »« ß«ú½áΦÑ¡¿ε ,τΓ« óδ óßΓáó½∩ÑΓÑ í½«¬, ¡áºδóáѼδ⌐
  4924. "TITLE", ó ¬áªñδ⌐ τÑαΓѪ ¿ , τΓ« φΓ«Γ í½«¬ ¿¼ÑÑΓ áΓΓα¿íπΓδ , ¡áºδóáѼδÑ
  4925. "REVDATE",¬«Γ«αδÑ «º¡áτáεΓ ñá¡¡δÑ »«ß½Ññ¡Ñ⌐ αÑ󿺿¿. æ½ÑñπεΘá∩ »α«úαá¼¼á
  4926. óδ»«½¡∩ÑΓ ¬«¼á¡ñπ REVISE, ¬«Γ«αá∩ «í¡áαπª¿óáÑΓ φΓ«Γ í½«¬ ¿ ¬«ααÑ¬Γ¿απÑΓ
  4927. Ñú« áΓΓα¿íπΓδ. æ¡áτá½á «»αÑñѽ∩ÑΓß∩ »áαá Σπ¡¬µ¿«¡á½∞¡δσ πΓ¿½¿Γ.
  4928.  
  4929.        ; éó«ñ ΓѬπΘ¿σ ñá¡¡δσ ó Σ«α¼áΓÑ MM/DD/YY
  4930.  
  4931.        (defun mmddyy (/ x)
  4932.           (setq x (getvar "CDATE"))     ; ÆѬπΘ¿Ñ ñá¡¡δÑ
  4933.           (setq x (rtos x 2 0))         ; ÄíαáΘÑ¡¿Ñ ¬ ßΓ᫬Ñ
  4934.           (setq date (strcat (substr x 5 2) "/"   ;MM
  4935.                              (substr x 7 2) "/"   ;DD
  4936.                              (substr x 3 2)))     ;YY
  4937.        )
  4938.  
  4939.        ; é«ºóαáΓ ß«ñÑαªá¡¿∩ »α¿¼¿Γ¿óá »«½∩ "num"
  4940.  
  4941.        (defun fld (num)
  4942.            (cdr (assoc num d))
  4943.        )
  4944.  
  4945.  
  4946.  
  4947.  
  4948.                            - 81 -
  4949.  
  4950.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  4951.  
  4952.  
  4953.  
  4954.        ; Å«¿ß¬ áΓΓα¿íπΓ«ó REVDATE ó í½«¬Ñ TITLE ¿ «í¡«ó½Ñ¡¿Ñ
  4955.  
  4956.        (defun C:REVISE (/ e d date done)
  4957.           (setq done nil)
  4958.           (setq e (entnext)                   ; ÅÑαóδ⌐ «íΩÑ¬Γ ó τÑαΓѪÑ
  4959.           (while e
  4960.              (setq d (entget e)               ; Å«½πτÑ¡¿Ñ úαπ»» ñá¡¡δσ
  4961.                                               ;    »α¿¼¿Γ¿óá
  4962.  
  4963.              (if (and (= (fld 0) "INSERT")    ; ê¼ÑÑΓß∩ ½¿ INSERT ?
  4964.                       (= (fld 2) "TITLE")     ;  ...    ¿¼∩ TITLE?
  4965.                       (= (fld 66) 1))         ;  ...    ÇÆÆÉêíôÆ¢?
  4966.                 (progn
  4967.                    (setq e (entnext e))       ; Å«½πτÑ¡¿Ñ »«ñ»α¿¼¿Γ¿óá
  4968.                                                  (áΓΓα¿íπΓá)
  4969.                    (while e
  4970.                       (setq d (entget e))     ; Å«½πτÑ¡¿Ñ »«ñ»α¿¼¿Γ¿ó«ó
  4971.                                               ;   úαπ»» ñá¡¡δσ
  4972.                       (cond ((and (= (fld 0) "ATTRIB")   ; ê߬áΓ∞
  4973.                                   (= (fld 2) "REVDATE")) ; ÇΓΓα¿íπΓδ
  4974.                                                          ;  REVDATE
  4975.                                (mmddyy)
  4976.                                (setq d (subst (cons 1 date) (assoc 1 d))
  4977.                                ; ì«óδÑ ñá¡¡δÑ
  4978.  
  4979.                                (entmod d)    ; êº¼Ñ¡Ñ¡¿Ñ áΓΓα¿íπΓ«ó
  4980.                                              ;  »ÑαѼѡ¡δσ
  4981.                                (entupd e)    ; ÉÑúÑ¡Ñαᵿ∩ í½«¬á
  4982.                                (setq e nil done T))  ; ü뫨 óδ»«½¡Ñ¡δ
  4983.                             ((= (fld 0) "ENDSEQ")
  4984.                                 (setq e nil)) ; ìÑΓ áΓΓα¿íπΓ«ó REVDATE;
  4985.                                               ;  «ßΓá¡«ó ß¬á¡¿α«óá¡¿∩
  4986.                             (T (setq e (entnext e))) ; éó«ñ ß½ÑñπεΘÑú«
  4987.                                                      ;   »«ñ»α¿¼¿Γ¿óá
  4988.                      )
  4989.                   )
  4990.               )
  4991.               (setq e (entnext e))           ;ìÑΓ í½«¬á TITLE, óσ«ñ
  4992.                                              ;  ß½ÑñπεΘÑú« »α¿¼¿Γ¿óá
  4993.           )
  4994.        )
  4995.        (if done "Revision date updated" "No REVDATE attribute found")
  4996.     )
  4997.  
  4998.        è«¼á¡ñá REVISE »α«óÑα∩ÑΓ úαπ»»π 0 ( Γ¿» »α¿¼¿Γ¿óá) ¬áªñ«ú« »α¿¼¿-
  4999. Γ¿óá ó τÑαΓѪѠ, »α«ß¼áΓα¿óá∩ π»«¼¿¡áѼδ⌐ í½«¬ ( Σµ¡¬µ¿∩ INSERT), ¬«Γ«-
  5000. αδ⌐ ¡áºóá¡ " TITLE". çáΓѼ «¡á ß¬á¡¿απÑΓ »«ñ»α¿¼¿Γ¿óδ φΓ«ú« í½«¬á (Ñú«
  5001. áΓΓα¿íπΓδ), »α«ß¼áΓα¿óá∩ áΓΓα¿íπΓδ "REVDATE". Äí¡áαπªÑ¡¡á∩ »ÑαѼѡ¡á∩
  5002. áΓΓα¿íπΓ«ó ¿º¼Ñ¡¿Γß∩ ¿ í½«¬ óóÑñÑΓß∩.
  5003.  
  5004.  
  5005.        5. 8. 6.    æ»¿ß«¬ Γ¿»«ó ½¿¡¿⌐
  5006.                                                                         :
  5007.        ¥Γ«Γ »α¿¼Ñα ¿ß»«½∞ºπÑΓ Σπ¡¬µ¿¿ ñ«ßΓπ»á ¬ Γáí½¿µÑ ß¿¼ó«½«ó, τΓ«íδ :
  5008. ó¡ÑßΓ¿ ó ß»¿ß«¬ ¿¼Ñ¡á ¿ «»αÑñѽѡ¿∩ óßÑσ ΓѬπΘÑ-ºáúαπªÑ¡¡δσ Γ¿»«ó ½¿¡¿⌐.:
  5009.  
  5010.  
  5011.  
  5012.  
  5013.                            - 82 -
  5014.  
  5015.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5016.  
  5017.  
  5018.                                                                         :
  5019.                                                                         :
  5020.        ; ÅπßΓá∩-»«½¡á∩  ñá¡¡á∩ ßΓ᫬á ,¬«Γ«αá∩  «»αÑñѽ∩ÑΓ ¬«½¿τÑßΓó«   :
  5021.        ; º¡á¬«ó.                                                        :
  5022.                                                                         :
  5023.        (defun strfill (s len)                                           :
  5024.           (substr (strcat s "                     ") 1 len)             :
  5025.        )                                                                :
  5026.        ; é«ºóαáΓ »ÑαѼѡ¡«⌐ , ßó∩ºá¡¡«⌐ ß «Γñѽ∞¡«⌐ úαπ»»«⌐ »α¿¼¿Γ¿óá   :
  5027.                                                                         :
  5028.        (defun fld (num lst)                                             :
  5029.           (cdr (assoc num lst))                                         :
  5030.                                                                         :
  5031.        ; æ»¿ß«¬ ºáúαπªÑ¡¡δσ Γ¿»«ó ½¿¡¿⌐                                 :
  5032.                                                                         :
  5033.        (defun C:LTYPES (/ a cl d f lt s x)                              :
  5034.           (textscr)                            ; éδó«ñ ΓѬßΓá ¡á φ¬αá¡  :
  5035.           (write line " Linetype   Align   Segs   Description")         :
  5036.           (terpri)                                                      :
  5037.           (setq cl (getvar "CELTYPE") f "  ")  ; ÆѬπΘ¿⌐ Γ¿» ½¿¡¿¿,     :
  5038.                                                ;  "αÑú¿ßΓα" Σ½áª¬á      :
  5039.                                                                         :
  5040.        ; àß½¿ ΓѬπΘ¿⌐ Γ¿» ½¿¡¿¿ "BYLAYER", ß»αáó∞ß∩ « ΓѬπΘѼ πα«ó¡Ñ    :
  5041.        ; Åα«óÑßΓ¿ ½¿¡¿ε ¿ ¿º¼Ñ¡¿Γ∞ "αÑú¿ßΓα" Σ½áª¬á ß"" ¡á "L"          :
  5042.                                                                         :
  5043.        (setq cl                                                         :
  5044.           (cond ((= cl "BYBLOCK") "")                                   :
  5045.                 ((= cl "BYLAYER") (setq f "L ")                         :
  5046.                     (fld 6 (tblsearch "LAYER" (getvar "CLAYER"))))      :
  5047.                 (T cl)                                                  :
  5048.        ))                                                               :
  5049.        (setq x (tblnext "LTYPE" T))             ; ÅÑαóδ⌐ Γ¿» ½¿¡¿¿      :
  5050.        (while x                                                         :
  5051.           (setq lt (fld  2 x)                   ; ê¼∩ Γ¿»á ½¿¡¿¿        :
  5052.                 d  (fld  3 x)                   ; Åα«ßΓ«Ñ «»¿ßá¡¿Ñ Γ¿»á :
  5053.                                                 ; ½¿¡¿¿                 :
  5054.                 a  (fld 72 x)                   ; éδαáó¡Ñ¡¡δ⌐ ¬«ñ       :
  5055.                 s  (fld 73 x)                   ; ä½¿¡á ¬áªñ«ú« ΦΓα¿σá  :
  5056.                                                                         :
  5057.        )                                                                :
  5058.        (write line                                                      :
  5059.           (strcat                                                       :
  5060.              (if (=lt cl) f "  ")               ; ÉÑú¿ßΓα Σ½áª¬á »α¿¼¿- :
  5061.                                                 ;   Γ¿óá ½¿¡¿¿          :
  5062.              (strfill lt 12)                    ; ÉÑñá¬Γ«α ¿¼Ñ¡¿        :
  5063.                                                 ;   πα«ó¡∩              :
  5064.              (strfill (chr a) 7)                ;  éδαáó¡Ñ¡¡δ⌐ ¬«ñ      :
  5065.              (strfill (itoa s) 6)               ;   ä½¿¡á τÑαΓ«τ¬¿      :
  5066.                                                 ;  φ½Ñ¼Ñ¡Γ«ó            :
  5067.              (substr d 1 30)                    ;   Ä»¿ßá¡¿Ñ Γ¿»á ½¿¡¿¿ :
  5068.        ))                                                               :
  5069.        (if (> s 0) (progn                    ; àß½¿ ½εí«⌐ «Γñѽ∞¡δ⌐     :
  5070.                                              ;φ½Ñ¼Ñ¡Γ,αÑñá¬Γ¿απ⌐ΓÑ Ñú«  :
  5071.           (setq x (member (assoc 49 x) x))   ; éóÑñ¿ΓÑ ß»¿ß«¬ ¬áªñ«ú«   :
  5072.                                              ; φ½Ñ¼Ñ¡Γá                 :
  5073.               (while x                                                  :
  5074.  
  5075.  
  5076.  
  5077.  
  5078.                            - 83 -
  5079.  
  5080.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5081.  
  5082.  
  5083.                  (setq s (cdar x))               ; éóÑñ¿ΓÑ ñ½¿¡π ΦΓα¿σá :
  5084.                  (write line                                            :
  5085.                     (strcat                                             :
  5086.                        (strfill " " 27)                                 :
  5087.                        (cond ((= s 0) "Dot")                            :
  5088.                              ((> s 0) (strcat "Pen down" (rtos s 2 4))) ;
  5089.                              (T       (strcat "Pen up"   (rtos (abs s) 2:
  5090.                              4)))                                       :
  5091.                  )))                                                    :
  5092.                  (setq x (cdr x))                ; éóÑñ¿ΓÑ ß½ÑñπεΘ¿⌐    :
  5093.                                                  ;  φ½Ñ¼Ñ¡Γ             :
  5094.            )))                                                          :
  5095.            (setq x (tblnext "LTYPE"))            ; éóÑñ¿ΓÑ ß½ÑñπεΘ¿⌐    :
  5096.                                                  ;   Γ¿» ½¿¡¿¿          :
  5097.        )                                                                :
  5098.        (terpri)                                                         :
  5099.     )                                                                   :
  5100.                                                                         :
  5101.                                                                         :
  5102.        5. 8. 7.  é««íαáªáѼ«Ñ «¬«Φ¬« (ZOOM Window )                     :
  5103.                                                                         :
  5104.        ¥Γá »α«úαἼᠿ߻«½∞ºπÑΓ Σπ¡¬µ¿¿ ¼Ñσá¡¿º¼á ñ«ßΓπ»á, ¬«Γ«αδ⌐ óδ»«-:
  5105. ½¡∩ÑΓ Σá¡Γếε ZOOM Window ( ¼áßΦΓáí ó «¬«Φ¬Ñ), »«ºó«½∩εΘπε óá¼ πßΓá-   :
  5106. ¡«ó¿Γ∞ Γα¿úúÑα ¼Ñªñπ »ÑαѼÑΘÑ¡¡δ¼ ¿ ¿º¼Ñ¡Ñ¡¡δ¼ αẼÑα«¼ ó í«¬ßÑ.        :
  5107.                                                                         :
  5108.        ; ZOOM Window »«ñ«íÑ¡ ZOOM Dynamic, ¿ß¬½ετáÑΓ óδ»«½¡Ñ¡¿Ñ ¡á ΓÑ-  :
  5109.        ; ¬πΘѼ ñ¿ß»½ÑÑ íѺ απτ¡«⌐ ¬½áó¿áΓπαδ , ¬α«¼Ñ ¬½áó¿Φ »α«íѽ ,    :
  5110.        ; ó«ºóαáΓ ¿ ¬½áó¿Φ¿ ß« ßΓαѽ¬«⌐.                                 :
  5111.                                                                         :
  5112.        (defun drawbox ()                          ; éδτÑατ¿óá¡¿Ñ í«¬ßá  :
  5113.           (grdraw ll ul 1) (grdraw ul ur 1)                             :
  5114.           (grdraw ur lr 1) (grdraw lr ll 1)                             :
  5115.           (if (= mode 0) (cenx) (arrow)                                 :
  5116.        )                                                                :
  5117.        (defun cenx ()                             ; Ä»αÑñѽѡ¿Ñ µÑ¡Γαá ò:
  5118.           (grdraw x1 x2  1) (grdraw x3 x4 1)                            :
  5119.        )                                                                :
  5120.        (defun arrow ()                            ; éδτÑατ¿óá¡¿Ñ ßΓαѽ«¬:
  5121.           (grdraw a1 a4 1)  (grdraw a2 a4 1)  (grdraw a3 a4 1)          :
  5122.        )                                                                :
  5123.        (defun newbox ()                           ; ÅÑαÑ«»αÑñѽѡ¿Ñ »á- :
  5124.                                                   ; αá¼ÑΓα«ó í«¬ßá  &   :
  5125.                                                   ; draw                :
  5126.           (setq deltay (* deltax aspect))        ; ä«»π߬áÑΓ , τΓ« del- :
  5127.                                                  ; tax & íδ½ µÑ¡Γα      :
  5128.                                                                         :
  5129.           ; ÅÑαÑπßΓá¡«ó¬á ó í«½ÑÑ óδß«¬¿⌐ πα«óÑ¡∞                       :
  5130.           (setq xcen (car center) ycen (cadr center))                   :
  5131.                                                                         :
  5132.           ; Å«¡¿ªÑ¡¿Ñ/»«óδΦÑ¡¿Ñ X/Y ñ½∩ í«¬ßá                           :                                   :
  5133.           (setq lx (- xcen deltax) ux (+ xcen deltax))                  :
  5134.                                                                         :
  5135.           (setq ly (- ycen deltay) uy (+ ycen deltay))                  :
  5136.           (setq ll (list lx ly) ul (list lx ly))   ; ôú½δ í«¬ßá         :
  5137.           (setq ur (list ux uy) lr (list ux ly))                        :
  5138.                                                                         :
  5139.  
  5140.  
  5141.  
  5142.  
  5143.                            - 84 -
  5144.  
  5145.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5146.  
  5147.  
  5148.           ; Å«óδΦÑ¡¿Ñ/»«¡¿ªÑ¡¿Ñ Y »ÑαѬαÑßΓ¿∩ & ßΓαѽ¬¿                 :
  5149.           (setq yp (+ ycen arm) ym (- ycen arm))                        :
  5150.                                                                         :
  5151.           ; ïÑóδ⌐ ¡á¬½«¡ ßΓαѽ¬¿                                        :
  5152.           (setq al (list (- ux arm) yp) a2 (list (-ux arm) ym))         :
  5153.                                                                         :
  5154.           (setq a3 (list (- ux arm arm) ycen))     ; òó«ßΓ ßΓαѽ¬¿      :
  5155.                                                                         :
  5156.           ; Åαáóδ⌐ ¬«¡Ñµ óßÑσ ΓαÑσ                                      :
  5157.           (setq a4 (list ux ycen))                                      :
  5158.           (setq x1 (list (- xcen arm) ym) x2 (list (+ xcen arm) yp))    :
  5159.                                                                         :
  5160.           ; è«¡µδ »« X                                                  :
  5161.           (setq x3 (list (- xcen arm) yp) x4 (list (+ xcen arm) ym))    :
  5162.           (drawbox)                                                     :
  5163.        )                                                                :
  5164.                                                                         :
  5165.           (defun C:ZW (/ arm aspect center deltax inp loop mode prev    :
  5166.                         pt sourse)                                      :
  5167.                                                                         :
  5168.              ; çá»π߬ ¡á µÑ¡Γα φ¬αá¡á                                   :
  5169.              (setq center (getvar "VIEWCTR"))                           :
  5170.                                                                         :
  5171.              ; Å«»δΓ¬á »ÑαѼÑßΓ¿Γ∞ ¬παß«α ß µÑ¡Γαá                      :
  5172.              (setvar "LASTPOINT" (setq prev center))                    :
  5173.                                                                         :
  5174.              (setq aspect (/ (cadr (aetq aspect (getvar "SCREENSIZE"))) :
  5175.                 (car aspect)))                                          :
  5176.                                                                         :
  5177.              ; êß»«½∞º«óá¡¿Ñ 1/4 í«¬ßá φ¬αá¡á                           :
  5178.              (setq deltax (* 0.25 (getvar "VIEWSIZE")))                 :
  5179.                                                                         :
  5180.              ; ÅÑαó«¡áτá½∞¡δ⌐ αѪ¿¼ ñó¿ªÑ¡¿∩ ó í«¬ßÑ                    :
  5181.              (setq arm (* 0.1 deltax) mode 0 loop T)                    :
  5182.              (newbox)                                                   :
  5183.              (while loop                                                :
  5184.                 (setq inp grread T))     ; éδσ«ñ »α«ß½ÑªÑ¡¡δ⌐           :
  5185.                                                                         :
  5186.                 ; êº«½¿α«óá¡¿Ñ ¿ßΓ«τ¡¿¬á ¿ # ¿½¿ Γ«τ¬¿                  :
  5187.                 (setq source (car inp) pt (cadr inp))                   :
  5188.                 (cond ((= source 3)      ; "Pick"(óδíαáΓ∞) ¬½áó¿ΦÑ⌐?    :
  5189.                          (cenx) (arrow)  ; ô¡¿τΓ«ª¿Γ∞ ò & ¡áτÑαΓ¿Γ∞     :
  5190.                                          ; ¿½¿ ñÑΣѬΓδ ¼¡«ú«τ¿ß½Ñ¡¡δ    :
  5191.                                                                         :
  5192.                          ; Æα¿úúÑα ó αѪ¿¼Ñ í«¬ßá                       :
  5193.                          (setq mode (- 1 mode))                         :
  5194.                                                                         :
  5195.                          ; Å«»δΓ¬á  »ÑαѼÑßΓ¿Γ∞ ¬παß«α ß µÑ¡Γαá         :
  5196.                          (setvar "LASTPOINT" center))                   :
  5197.                       ((= source 5))     ; éδ߽Ѫѡ¡á∩ Γ«τ¬á?           :
  5198.                                                                         :
  5199.                          ; àß½¿ ÑÑ ßñó¿¡πΓ∞...                          :
  5200.                          (if (or (/= (car  prev) (car pt))              :
  5201.                                  (/= (cadr prev) (cadr pt)))            :
  5202.                                                                         :
  5203.                          ; êº¼Ñ¡¿Γ∞ ¿½¿ ßñó¿¡πΓ∞ í«¬ß                   :
  5204.  
  5205.  
  5206.  
  5207.  
  5208.                            - 85 -
  5209.  
  5210.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5211.  
  5212.  
  5213.                          (progn                                         :
  5214.                              (if (= mode 0)                             :
  5215.                                 (setq center pt)                        :
  5216.                                 (setq deltax (+ deltax (- (car pt)      :
  5217.                                 (car prev)))))                          :
  5218.                              (setq prev pt)                             :
  5219.                              (drawbox)        ; ôñ὿Γ∞ ßΓáαδ⌐ í½«¬     :
  5220.                                                                         :
  5221.                              ; éóÑßΓ¿ ¡«óδ⌐ µÑ¡Γα/αẼÑα ¿ τÑαΓѪ       :
  5222.                              (newbox)                                   :
  5223.                         )))                                             :
  5224.                   ((or (and (= source 6) (= pt 0))  ;lst ¼Ñ¡ε ¬½áó¿Φ(CR):
  5225.                        (and (= source 2)            ; ¿½¿ ¬½áó¿áΓπαá ¿  :
  5226.                        (or (= pt 13) (= pt 32))))   ; CR ¿½¿ í½á¡¬?     :
  5227.                      (drawbox)                      ;ôñ὿Γ∞ ßΓáαδ⌐ í«¬ß:
  5228.                      (command "ZOOM" "W" ll ur)                         :
  5229.                      (setq loop nil))               ; éδσ«ñ             :
  5230.                 (T                              ;ïεíá∩ grread »ÑαѼѡ¡á∩:
  5231.                      (drawbox)                      ;ôñ὿Γ∞ ßΓáαδ⌐ í½«¬:
  5232.                      (setq loop nil a " ^cancel ")) ; éδσ«ñ             :
  5233.               )                                                         :
  5234.             )                                                           :
  5235.        )                                                                :
  5236.                                                                         :
  5237.  
  5238.        5. 8. 8.     Idle ( αáí«ΓáΓ∞ ó󫽫ßΓπε)
  5239.  
  5240.        ìᬫ¡Ñµ, φΓ« Γá »α«úαá¼¼á , ¬«Γ«αá∩ ¿½½εßΓα¿απÑΓ Σπ¡¬µ¿¿ »α∩¼«ú«
  5241.  óδó«ñá ¡á φ¬αá¡, ΓᬪѠ¬á¬ ¿ ¿ß»«½∞º«óá¡¿Ñ Σπ¡¬µ¿¿ " ERROR".
  5242.  
  5243.        ; è«¼á¡ñá IDLE
  5244.  
  5245.        (defun "ERROR" (s)              ; ÄΦ¿í¬á ¡áóÑασπ (¿½¿ CTRL C)
  5246.           (redraw)                     ; ÅÑαÑτÑατ¿óá¡¿Ñ ¡á φ¬αá¡Ñ
  5247.           (grtext)                     ; Å«óΓ«α¡δ⌐ ó맮ó ¼Ñ¡ε/ßΓáΓπß
  5248.                                        ; ΓѬßΓá ¡á φ¬αá¡Ñ
  5249.        )
  5250.  
  5251.        (defun C:IDLE ()
  5252.           (setq vc (getvar "viewctr")) ; é맮ó µÑ¡Γαá½∞¡«⌐ Γ«τ¬¿ ¡á
  5253.                                        ; φ¬αá¡
  5254.           (setq cx (car vc))
  5255.           (setq cy (cadr vc))
  5256.           (setq vc (/ (getvar "viewsize") 2))
  5257.           (setq xmin (- cx vs))        ; éδτ¿ß½¿Γ∞ ßΓ«α«¡π ¬óáñαáΓá
  5258.           (setq xmax (+ cx vs))
  5259.           (setq ymin (- cy vs))
  5260.           (setq ymax (+ cy vs))
  5261.           (setq xdir (/ vs 10) ydir xdir)
  5262.           (setq cx (+ cx (* xdir 7)))
  5263.           (setq cy (- cy (* ydir 3)))
  5264.           (grclear)                       ; ù¿ßΓδ⌐ úαáΣ¿τÑ߬¿⌐ φ¬αá¡
  5265.  
  5266.           ; é ßΓáΓπßÑ ßó«í«ñ¡«ú« πτáßΓ¬á
  5267.           (grtext -1 "       That's entertainment!')
  5268.  
  5269.  
  5270.  
  5271.  
  5272.  
  5273.                            - 86 -
  5274.  
  5275.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5276.  
  5277.  
  5278.           ; é ¬««αñ¿¡áΓáσ ßó«í«ñ¡«ú« πτáßΓ¬á
  5279.           (grtext -2 "Press CANCEL to stop.")
  5280.  
  5281.           ; ìáí«α ¡áτá½∞¡«⌐ Γ«τ¬¿
  5282.           (setq lp (list cx cy))
  5283.  
  5284.           (while t                    ; û¿¬½ ¡áóßÑúñá ( ....ñ« CTRL C)
  5285.              (setq nx (+ cx xdir))    ; ìáí«α ¬«¡Ñτ¡«⌐ ¬««αñ¿¡áΓδ ò
  5286.              (if (or (> nx xmax) (< nx xmin))
  5287.                 (progn
  5288.                     (setq xdir (- xdir))    ; æ««ΓóÑΓßΓóπεΘ¿⌐ ¬áΓὫú ò
  5289.                     (setq nx cx)
  5290.          )
  5291.       )
  5292.       (setq ny (+ cy ydir))         ; ìáí«α ¬«¡Ñτ¡«⌐ Y ¬««αñ¿¡áΓδ
  5293.       (if (or (> ny ymax) (< ny ymin))
  5294.           (progn
  5295.              (setq ydir (- ydir))     ; æ««ΓóÑΓßΓóπεΘ¿⌐ ¬áΓὫú Y
  5296.              (setq ny cy)
  5297.           )
  5298.        )
  5299.        (setq cx nx cy ny)
  5300.        (grdraw lp (setq lp (list nx ny)) -1)     ; éδτÑατ¿óá¡¿Ñ ß"XOR ink"
  5301.     )
  5302.   )
  5303.  
  5304.  
  5305.  
  5306.  
  5307.  
  5308.                            â½áóá 6
  5309.  
  5310.                      ôÅÉÇéïàìêà ÅÇîƒÆ£₧
  5311.  
  5312.        ¥Γá ú½áóá »α¿¼Ñ¡¿¼á Γ«½∞¬« ¬ ß¿ßΓѼἠMS-DOS/PS-DOS, íẫó묨 ß¿-
  5313. ßΓѼἿ UNIX «¡á ¼«ªÑΓ íδΓ∞ ¿ú¡«α¿α«óá¡á: ó ß¿ßΓѼѠUNIX »α«úαá¼¼δ LISP
  5314. ¿ «íΩ±¼ ñá¡¡δσ »αá¬Γ¿τÑ߬¿ ¡Ñ«úαá¡¿τÑ¡δ .
  5315.        ÅÑαѼѡ¡δÑ , »«½∞º«óáΓѽ∞߬¿Ñ «»αÑñѽ¿Γѽ¿ ( user- defined) Σπ¡-
  5316. ¬µ¿⌐ ¿ ßΓá¡ñáαΓ¡δÑ Σπ¡¬µ¿¿, «»¿ßá¡¡δÑ ó φΓ«¼ απ¬«ó«ñßΓóÑ, óßÑ »«¼ÑΘáεΓ-
  5317. ß∩ ó »á¼∩Γ¿ óáΦÑú« ¬«¼»∞εΓÑαá Γ«½∞¬« ¡á óαѼ∩ ßÑá¡ßá αÑñá¬Γ¿α«óá¡¿∩ ó
  5318. ß¿ßΓѼѠAutoCAD. è«úñá AutoLISP ºáúαπªÑ¡ , «¡ ΓαÑíπÑΓ ñ½∩ ßÑí∩  ñóá
  5319. í«½∞Φ¿σ πτáßΓ¬á »á¼∩Γ¿. ÅÑαóδ⌐ , ¡áºδóáѼδ⌐  heap (¿½¿ nodes ), φΓ«
  5320. πτáßΓ«¬ , ¡á ¬«Γ«α«¼ σαá¡∩Γß∩ óßÑ Σπ¡¬µ¿¿ ¿ »ÑαѼѡ¡δÑ , í«½∞ΦÑ »ÑαÑ-
  5321. ¼Ñ¡¡δσ ¿ Σπ¡¬µ¿⌐ ÑßΓ∞ π óáß (¿ í«½∞ΦÑ ¬«¼»½Ñ¬ß«ó óáΦ¿σ Σπ¡¬µ¿⌐) -í«½∞Φ¿⌐
  5322. heap space ( πτáßΓ«¬ »á¼∩Γ¿) íπñÑΓ ¿ß»«½∞º«óá¡.  éΓ«α«⌐ πτáßΓ«¬, ¡áºδ-
  5323. óáѼδ⌐ stack ( ßΓѬ ) , ß«ñÑαª¿Γ áαúπ¼Ñ¡Γδ Σπ¡¬µ¿⌐ ¿ τáßΓ¿τ¡« αѺπ½∞Γá-
  5324. Γδ ; ú½πíªÑ "¬½πí«¬" Σπ¡¬µ¿⌐ ¿½¿ í«½∞ΦÑ »«óΓ«αÑ¡¿⌐ óδ»«½¡Ñ¡¿∩ óáΦ¿σ Σπ¡-
  5325. ¬µ¿⌐ - í«½∞Φá∩ τáßΓ∞ ßΓѬá ( stack space ) ¿ß»«½∞º«óá¡á.
  5326.  
  5327.        Å« π¼«½τá¡¿ε αẼÑαδ πτáßΓ¬«ó »á¼∩Γ¿:
  5328.  
  5329.        heap       5.000 bytes
  5330.        stack      5.000 bytes
  5331.  
  5332.        AutoLISP, αáí«Γá∩ ß AutoCAD«¼, ¡Ñ ¼«ªÑΓ ¼Ñ¡∩Γ∞ αẼÑαδ  πτáßΓ-
  5333. ¬«ó »á¼∩Γ¿ heap ¿ stack. àß½¿ óδ , óδτ¿ß½∩∩ ñ«ßΓáτ¡« í«½∞Φ«Ñ ¬«½¿τÑßΓó«
  5334.  
  5335.  
  5336.  
  5337.  
  5338.                            - 87 -
  5339.  
  5340.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5341.  
  5342.  
  5343. Σπ¡¬µ¿⌐ ¿ »ÑαѼѡ¡δσ , ¿ºαáßσ«ñπÑΓÑ óÑß∞ πτáßΓ«¬ »á¼∩Γ¿ heap, AutoLISP
  5344. óδóÑñÑΓ ¡á ñ¿ß»½Ñ⌐ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ:
  5345.  
  5346.        Insufficient node space
  5347.        ìÑñ«ßΓáΓ«τ¡«Ñ node »α«ßΓαá¡ßΓó«
  5348. ¿ ºá¬«¡τ¿Γ óδ»«½¡Ñ¡¿Ñ ΓѬπΘÑ⌐ Σπ¡¬µ¿¿. àß½¿ ¡Ññ«ßΓáΓ«τ¡« »á¼∩Γ¿ , τΓ«íδ
  5349. ºáúαπº¿Γ∞ AutoLISP , ¬«úñá  óδ ó AutoCADÑ , ¡á φ¬αá¡ ñ¿ß»½Ñ∩ íπñÑΓ óδ-
  5350. óÑñÑ¡« ß««íΘÑ¡¿Ñ:
  5351.  
  5352.        Insufficient memory - AutoLISP disabled
  5353.        ìÑñ«ßΓáΓ«τ¡« »á¼∩Γ¿ - AutoLISP ¡Ñ󫺼«ªÑ¡
  5354.  
  5355.        AutoLISP ¡Ñ íπñÑΓ Σπ¡¬µ¿«¡¿α«óáΓ∞ ñ« ΓÑσ »«α, »«¬á »á¼∩Γ∞ ¡Ñ
  5356. íπñÑΓ »αÑñ«ßΓáó½Ñ¡á , ¿ AutoCAD óδ»«½¡¿Γß∩ ß¡«óá.
  5357.  
  5358.  
  5359.        6. 1.   ôßΓá¡áó½¿óáѼδÑ AutoLISP«¼ ΓαÑí«óá¡¿∩ ¬ »á¼∩Γ¿
  5360.  
  5361.        àß½¿ óδ «»δΓ¡δ⌐ »α«úαá¼¼¿ßΓ ¿ σ«α«Φ« º¡á¬«¼δ ß ¬«¡µÑ»µ¿Ñ⌐ ¿ß»«½∞-
  5362. º«óá¡¿∩ "heap" ¿ "stack" «í½áßΓÑ⌐ »á¼∩Γ¿ ó ∩ºδ¬áσ »α«úαá¼¼¿α«óá¡¿∩ , óδ
  5363. ¼«ªÑΓÑ »« ªÑ½á¡¿ε ¿ß»«½∞º«óáΓ∞ ¬«¼á¡ñπ "SET" ß¿ßΓѼδ DOS, τΓ«íδ »«ß½Ñ
  5364. φΓ«ú« AutoLISP »«½πτ¿½ ñ«ßΓáΓ«τ¡πε »á¼∩Γ∞ ñ½∩ πτáßΓ¬«ó  heap ¿
  5365. stack. ìá»α¿¼Ñα, ¬«¼á¡ñδ:
  5366.  
  5367.        C>SET  LISPHEAP=25000
  5368.        C>SET  LISPSTACK=10000
  5369.  
  5370. ú«ó«α∩Γ  AutoLISPπ αѺÑαó¿α«óáΓ∞ 25000 íá⌐Γ«ó »á¼∩Γ¿ ñ½∩ πτáßΓ¬á heap,
  5371. ¿ 10000 íá⌐Γ«ó ñ½∩ πτáßΓ¬á stack. Å«½¡δ⌐ «íΩѼ »á¼∩Γ¿ ñ½∩ ñóπσ πτáßΓ¬«ó
  5372. ¡Ñ ñ«½ªÑ¡ »αÑóδΦáΓ∞ 45000 íá⌐Γ.àß½¿ óδ σ«Γ¿ΓÑ,óδ ¼«ªÑΓÑ »«¼ÑßΓ¿Γ∞
  5373. πΓóÑαªñÑ¡¿∩ , »«ñ«í¡δÑ »α¿óÑñÑ¡¡δ¼ óδΦÑ , ó óáΦ Σá⌐½ " autoexec.bat",
  5374. ¿ «¡¿ íπñπΓ óδ»«½¡∩Γ∞ß∩ óßÑúñá , ¬«úñá óδ ó¬½ετáÑΓÑ óáΦ ¬«¼»∞εΓÑα.
  5375. ¥Γ¿ ¬«¼á¡ñδ "SET" φΣΣÑ¬Γ¿ó¡δ Γ«½∞¬« ó AutoLISPÑ , «¡¿ ¡Ñ ∩ó½∩εΓß∩ »α¿-
  5376. τ¿¡«⌐ , Γ«ú«, τΓ« »á¼∩Γ∞ óáΦÑú« ¬«¼»∞εΓÑαá íπñÑΓ "»«ú¿íΦÑ⌐"(" lost "),
  5377. »«¬á AutoLISP ¡Ñ ºáúαπªÑ¡.
  5378.  
  5379.  
  5380.        6. 2.  é«ßßΓá¡áó½¿óáѼ«Ñ NODE SPACE(πτáßΓ«¬ »á¼∩Γ¿ node)
  5381.  
  5382.        éδ ¼«ªÑΓÑ «í¡áαπª¿Γ∞, τΓ« ¡Ñ¬«Γ«αδÑ ß«ºñá¡¡δÑ óἿ Σπ¡¬µ¿¿ ¿ »Ñ-
  5383. αѼѡ¡δÑ ¡πª¡δ óá¼ Γ«½∞¬« ¡á ¡Ñ¬«Γ«α«Ñ óαѼ∩. è«úñá «¡¿ óá¼ íπ-
  5384. ñπΓ πªÑ ¡Ñ ¡πª¡δ, óδ ¼«ªÑΓÑ φΣΣÑ¬Γ¿ó¡« " ¡Ñ «í¡áαπª¿Γ∞" ¿σ, »α¿ßóá¿óá∩
  5385. ¿¼ º¡áτÑ¡¿Ñ "nil". ìá»α¿¼Ñα, Ñß½¿ óδ ºáúαπº¿½¿ß∞ ¿ ¿ß»«½∞º«ó὿ Σπ¡¬µ¿ε
  5386. ß ¿¼Ñ¡Ñ¼  SETUP , á ñá½∞ΦÑ ó ¡Ñ⌐ ¡Ñ ¡πªñáÑΓÑß∞ , óδ ¼«ªÑΓÑ:
  5387.  
  5388.        (setq setup nil),
  5389.  
  5390. τΓ«íδ ¿ºíáó¿Γ∞ß∩ «Γ ¡ÑÑ. Node (heap) πτáßΓ«¬ »á¼∩Γ¿ , ¿ß»«½∞ºπѼδ⌐ φΓ«⌐
  5391. Σπ¡¬µ¿Ñ⌐ , ó«ßßΓá¡«ó¿Γß∩, ñáóá∩ ó«º¼«ª¡«ßΓ∞ ¿ß»«½∞º«óáΓ∞ Ñú« ñαπú¿¼¿
  5392. Σπ¡¬µ¿∩¼¿ ¿ »ÑαѼѡ¡δ¼¿.
  5393.        àß½¿ óδ σ«Γ¿ΓÑ »«τ¿ßΓ¿Γ∞(πñ὿Γ∞) óßÑ  Σπ¡¬µ¿¿ ¿ »ÑαѼѡ¡δÑ , ¬«-
  5394. Γ«αδÑ óδ ºáúαπº¿½¿ ¿½¿ «»αÑñѽ¿½¿ ó« óαѼ∩ φΓ«ú« ßÑá¡ßá αÑñá¬Γ¿α«óá¡¿∩,
  5395. φΓ« Γ«ªÑ ½Ñú¬« ¼«ª¡« ßñѽáΓ∞. AutoLISP «íß½πª¿óáÑΓ ß»¿ß«¬ ß ¿¼Ñ¡Ñ¼
  5396. ATOMLIST, ¬«Γ«αδ⌐ »Ñαó«¡áτá½∞¡« ß«ñÑαª¿Γ ¿¼Ñ¡á óßÑσ ß¿ßΓѼ¡δσ ( system-
  5397. defined)  Σπ¡¬µ¿⌐ ¿ »ÑαѼѡ¡δσ. ( àß½¿ óδ σ«Γ¿ΓÑ ó¿ñÑΓ∞ Ñú« ß«ñÑαªá¡¿Ñ,
  5398. óóÑñ¿ΓÑ Γ«½∞¬« "!atomlist" ó «ΓóÑΓ ¡á »«ñ߬Ậπ AutoCADá "Command:")
  5399.  
  5400.  
  5401.  
  5402.  
  5403.                            - 88 -
  5404.  
  5405.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5406.  
  5407.  
  5408. èá¬ Γ«½∞¬« óδ ß«ºñáÑΓÑ ¡«óδÑ Σπ¡¬µ¿¿ ¿ »ÑαѼѡ¡δÑ , ¿σ ¿¼Ñ¡á ºá¡«ß∩Γß∩
  5409. ó «ú½áó½Ñ¡¿Ñ ATOMLIST. éδ ¼«ªÑΓÑ ¿ºΩ∩Γ∞ ½εí«Ñ ,«í«º¡áτÑ¡¡«Ñ óἿ, ¿º
  5410. Γ«ú« τΓ« ÑßΓ∞ ó «α¿ú¿¡á½Ñ, »αÑαδó᡿Ѽ ATOMLISTá . üπñ∞ΓÑ ó¡¿¼áΓѽ∞¡δ,
  5411. «ñ¡á¬«, ¡Ñ »αÑαδóá⌐ΓÑ ß¿ßΓѼ¡δσ Σπ¡¬µ¿⌐ , ¿¡áτÑ óδ «¬áªÑΓÑß∞ ó Γπ»¿¬Ñ.
  5412.  
  5413.        àß½¿ óδ »«¼ÑßΓ¿ΓÑ ß½ÑñπεΘπε Σπ¡¬µ¿ε ó óáΦ "acad.lsp" Σá⌐½:
  5414.  
  5415.        (defun C:CLEAN ()
  5416.           (setq atomlist (member 'C:CLEAN atomlist))
  5417.           'DONE
  5418.        )
  5419.  
  5420. π óáß íπñÑΓ ó«º¼«ª¡«ßΓ∞ óóÑßΓ¿ ¬«¼á¡ñπ CLEAN , óßÑúñá , ¬«úñá óδ σ«Γ¿ΓÑ
  5421. ßñѽáΓ∞ ATOMLIST á¬¬παáΓ¡δ¼ ¿ »«½πτ¿Γ∞ «íαáΓ¡« πτáßΓ«¬ »á¼∩Γ¿ node,
  5422. ¿ß»«½∞ºπѼδ⌐ óßѼ¿ óáΦ¿¼¿ Σπ¡¬µ¿∩¼¿ ¿ »ÑαѼѡ¡δ¼¿. àß½¿  C:CLEAN »«ß½Ññ-
  5423. ¡∩∩ Σπ¡¬µ¿∩ ó óáΦѼ "acad.lsp" Σá⌐½Ñ , Σπ¡¬µ¿¿, ¬«Γ«αδÑ óδ «»αÑñѽ∩ÑΓÑ
  5424. αá¡ÑÑ ó Σá⌐½Ñ, íπñπΓ ß«σαá¡Ñ¡δ , ¬«úñá óδ óóÑñÑΓÑ CLEAN. öπ¡¬µ¿∩ CLEAN
  5425. ßíαáßδóáÑΓ Γ«½∞¬« »«ñ»«ß½Ññ«óáΓѽ∞¡« «»αÑñѽ∩ѼδÑ( subsequently-defined)
  5426. Σπ¡¬µ¿¿ ¿ »ÑαѼѡ¡δÑ, Γᬿ¼ «íαẫ¼, óßÑ , τΓ« óδ ó " acad.lsp" «»αÑ-
  5427. ñѽ¿½¿ αá¡∞ΦÑ, «íαáí«ΓáÑΓß∩ ¬á¬ ß¿ßΓѼ¡« «»αÑñѽ∩ѼδÑ Σπ¡¬µ¿¿.
  5428.  
  5429.        çÇÅÄîìêÆà. îÑσá¡¿º¼ ATOMLIST ¡ÑßΓá¡ñáαΓ¡á∩ «ß«íÑ¡¡«ßΓ∞ LISPá ¿
  5430.        ¼«ªÑΓ íδΓ∞ ¿º¼Ñ¡Ñ¡á ó íπñπΘ¿σ óÑαß¿∩σ AutoLISPá. è Γ«¼π ªÑ, ΓÑσ¡¿-
  5431.        ¬á »αÑαδóá¡¿∩ ATOMLISTá ¡Ñ ¼«ªÑ
  5432.        Γ íδΓ∞ ¿ß»«½∞º«óá¡á , ¬«úñá ¿¼ÑÑΓß∩
  5433.        ó«º¼«ª¡«ßΓ∞ ½¿ßΓá¡¿∩ ó¿αΓπá½∞¡δσ Σπ¡¬µ¿⌐. æ¼«Γα¿ ß½ÑñπεΘ¿⌐ αáºñѽ.
  5434.  
  5435.  
  5436.        6. 3.    é¿αΓπá½∞¡δÑ ßΓαá¡¿τ¡δÑ Σπ¡¬µ¿¿
  5437.  
  5438.        àß½¿ »α¿¼Ñ¡Ñ¡¿Ñ óáΦÑú« AutoLISPá ßΓá¡«ó¿Γß∩ ß½¿Φ¬«¼ í«½∞Φ¿¼ ,
  5439. τΓ«íδ íδΓ∞ ó»«απ ¿¼ÑεΘѼπß∩ πτáßΓ¬π »á¼∩Γ¿ node (πßΓá¡«ó½Ñ¡¡«¼π »ÑαÑ-
  5440. ¼Ñ¡¡«⌐ SET ó LISPHEAP , ¬á¬ «»¿ßá¡« óδΦÑ), óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞
  5441. »Ñαѽ¿ßΓδóáΓѽ∞ ó¿αΓπá½∞¡«⌐ Σπ¡¬µ¿¿ AutoLISPá, τΓ«íδ »«ºó«½¿Γ∞ α«ßΓ óá-
  5442. ΦÑ⌐ »α«úαá¼¼δ. ùΓ«íδ ßñѽáΓ∞ φΓ«, »α«ßΓ« óδ»«½¡¿ΓÑ Σπ¡¬µ¿ε:
  5443.  
  5444.        (vmon)
  5445.  
  5446. »ÑαÑñ »Ñαóδ¼ DEFUN ó óáΦÑ⌐ »α«úαá¼¼Ñ. ¥Γ« »«ºó«½¿Γ ó¿αΓπá½∞¡«⌐ Σπ¡¬µ¿¿
  5447. αáºí¿Γ∞ »á¼∩Γ∞ ¡á ßΓαá¡¿µδ, ñ½∩ «ßΓáΓ¬á ßÑá¡ßá AutoCAD Drawing Editor.
  5448. Äñ¡áªñδ »«ºó«½Ñ¡¡á∩ , Σπ¡¬µ¿∩ αáºí¿Ñ¡¿∩ »á¼∩Γ¿ ¡á ßΓαá¡¿µδ  ¡Ñ «Γ¬½ετáÑΓ-
  5449. ß∩. Æ«½∞¬« Σπ¡¬µ¿¿, ß«ºñá¡¡δÑ τÑαѺ Σπ¡¬µ¿¿ DEFUN ,ß½ÑñπεΘ¿Ñ
  5450. ºá Σπ¡¬µ¿Ñ⌐ VMON, »«ñσ«ñ∩Γ ñ½∩ αáºí¿Ñ¡¿∩ »á¼∩Γ¿ ¡á ßΓαá¡¿µδ , á,
  5451. Ñß½¿ π óáß Σπ¡¬µ¿¿ DEFUN »ÑαÑñ VMON , «¡¿ ¡Ñ íπñπΓ αáºí¿óáΓ∞ »á¼∩Γ∞ ¡á
  5452. ßΓαá¡¿µδ ¿ ÑΘÑ ¼«úπΓ óδºóáΓ∞ ¡á ΓÑନ¡á½ ß««íΘÑ¡¿Ñ:
  5453.  
  5454.        "Insufficient node space"   ìÑñ«ßΓáΓ«τ¡« »á¼∩Γ¿ node
  5455.  
  5456.       Å«ß½Ñ Γ«ú« , ¬á¬ Σπ¡¬µ¿∩ VMON óδ»«½¡¿Γß∩,  AutoLISP íπñÑΓ »Ñαѽ¿ß-
  5457. ΓδóáΓ∞ ßΓαá¡¿µδ  αÑñ¬« ¿ß»«½∞ºπѼδσ Σπ¡¬µ¿⌐, óß∩¬¿⌐  αẠ¬«úñá «¡¿ ºá-
  5458. »π߬áεΓß∩ ¿º »á¼∩Γ¿, ¿ áóΓ«¼áΓ¿τÑ߬¿ τ¿ΓáΓ∞ ¿σ ß¡«óá, ¬«úñá «¡¿ »«¡áñ«-
  5459. í∩Γß∩. éá¼ ¡Ñ ¡πª¡« íÑß»«¬«¿Γ∞ß∩ «í φΓ«¼ »Ñαѽ¿ßΓδóá¡¿¿,Γᬠ¬á¬ «¡« π»-
  5460. αáó½∩ÑΓß∩ áóΓ«¼áΓ¿τÑ߬¿, ¿ φΓ« ∩ß¡« ¿º  óáΦÑ⌐ »α«úαá¼¼δ.¥Γ¿ Σπ¡¬µ¿¿ óαÑ-
  5461. ¼Ñ¡¡« »ÑαѬáτ¿óáεΓß∩ ó Σá⌐½ , τÑαѺ ¬«Γ«αδ⌐ π»αáó½∩ÑΓß∩ Σá⌐½ »Ñαѽ¿ßΓδ-
  5462. óáΓѽ∩ ßΓαá¡¿µ AutoCADá. êΓᬠ, ¬«úñá óδ ¿¼ÑÑΓÑ ñ«ßΓáΓ«τ¡« αáßΦ¿αÑ¡¡πε
  5463. ¿½¿ »α«ñ½Ñ¡¡πε »á¼∩Γ∞, «íδτ¡« φΓá »á¼∩Γ∞ íπñÑΓ »ÑαѬáτ¿óáΓ∞ Σπ¡¬µ¿¿ ¿
  5464.  
  5465.  
  5466.  
  5467.  
  5468.                            - 89 -
  5469.  
  5470.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5471.  
  5472.  
  5473. óδñáßΓ αѺπ½∞ΓáΓ ¡á¼¡«ú« íδßΓαÑÑ , τѼ ßó«»¿¡ú(»ÑαѬáτ¬á)¡á ñ¿ß¬.
  5474.        çừ¼¡¿ΓÑ, τΓ« ß¿ßΓѼá ß ó¿αΓπá½∞¡«⌐ »á¼∩Γ∞ε Γ«½∞¬« ½¿ßΓáÑΓ Σπ¡¬-
  5475. µ¿¿: «ñ¡á¬«, óδ ñ«½ª¡δ ¿¼ÑΓ∞ ñ«ßΓáΓ«τ¡δ⌐ πτáßΓ«¬ node »á¼∩Γ¿ ñ½∩ αẼÑ-
  5476. ΘÑ¡¿∩ óßÑσ ß»¿ß¬«ó (data lists) , ¿ß»«½∞ºπεΘ¿σß∩ ó óáΦÑ⌐ »α«úαá¼¼Ñ, á
  5477. ΓᬪѠΣπ¡¬µ¿⌐ ¿ ¿¼Ñ¡ »ÑαѼѡ¡δσ. æ½Ññ«óáΓѽ∞¡«, σ«Γ∩ ½¿ßΓá¡¿Ñ ßΓαá¡¿µ
  5478. »«ºó«½∩ÑΓ »α«ú¡áΓ∞ í«½∞Φπε »α«úαá¼¼π ß« ¼¡«ú« ¼Ñ¡∞ΦÑ⌐ »á¼∩Γ∞ε, óδ ,«ñ¡á-
  5479. ¬«, ñ«½ª¡δ πßΓá¡«ó¿Γ∞ «»Γ¿¼á½∞¡δ⌐ αẼÑα πτáßΓ¬á heap ¿ ¡áí«α LISPHEAP
  5480. ß««ΓóÑΓßΓóÑ¡¡«. Æ« ªÑ ßἫѠ«Γ¡«ß¿Γß∩ ¬ αẼÑαπ πτáßΓ¬á stack ¿ ¬ ¡áí«-
  5481. απ LISPSTACK »α¿ αáí«ΓÑ ß ó¿αΓπá½∞¡«⌐ »á¼∩Γ∞ε.
  5482.  
  5483.  
  5484.        ÆÑσ¡¿τÑ߬¿Ñ ºá¼Ñτá¡¿∩
  5485.  
  5486.        æ½ÑñπεΘá∩ ¿¡Σ«α¼áµ¿∩ »«½Ñº¡á Γ«½∞¬« «»δΓ¡δ¼ σá¬Ñαá¼ (»α«úαá¼¼¿ß-
  5487. Γá¼ ) LISPá. ì«ó¿τ¬¿ ¿ ΓÑ, ¬Γ« ¿úαáεΓ, ¬á¬ »αá󿽫, ¼«úπΓ( ¿ ñ«½ª¡δ) ¿ú-
  5488. ¡«α¿α«óáΓ∞ φΓπ ñ¿ß¬πßß¿ε.
  5489.  
  5490.  
  5491.        Å«ß½Ñ Γ«ú« , ¬á¬ Σπ¡¬µ¿∩ VMON óδ»«½¡¿Γß∩, óßÑ Σπ¡¬µ¿¿ DEFUN ºá¡¿-
  5492. ¼áεΓ ¡«óδ⌐ πτáßΓ«¬ node »á¼∩Γ¿, ¡áºδóáѼδ⌐ Γáí½¿µá ßΓαá¡¿µ (page table),
  5493. ó ¡áτá½Ñ ¬áªñ«ú« ß»¿ß¬á Σπ¡¬µ¿¿. ¥Γ«Γ node πτáßΓ«¬ ñ«íáó½∩ÑΓß∩ »ÑαÑñ
  5494. ß»¿ß¬«¼, ß«ñÑαªáΘ¿¼ Σ«α¼á½∞¡δÑ áαúπ¼Ñ¡Γδ. ôτáßΓ«¬ »á¼∩Γ¿ page table node
  5495. ¿ß»«½∞ºπÑΓß∩ ¿ß¬½ετ¿Γѽ∞¡«,¬á¬ »Ñαѽ¿ßΓδóáΓѽ∞ ßΓαá¡¿µ ,¿ ó ½εí«¼ ß½πτáÑ,
  5496. ¿¼ ¡Ñ½∞º∩ ¼á¡¿»π½¿α«óáΓ∞ »«½∞º«óáΓÑ½ε »α«úαá¼¼. öπ¡¬µ¿∩ TYPE ó«ºóαáΘáÑΓ
  5497. PAGETB ó φΓ¿ πτáßΓ¬¿ »á¼∩Γ¿ node.
  5498.        è«úñá »α«úαá¼¼á AutoLISP ºáúαπªáÑΓß∩ ¿º πτáßΓ¬á »á¼∩Γ¿ node, ¼Ñ-
  5499. ¡∞ΦÑ óßÑú« ¿ß»«½∞ºπѼá∩ Σπ¡¬µ¿∩ ßíαáßδóáÑΓß∩  ºá»¿ß∞ε ÑÑ ó ßΓαá-
  5500. ¡¿τ¡δ⌐ Σá⌐½ (paging file) , ß«σαá¡∩∩ áñαÑß ßΓαá¡¿τ¡«ú« Σá⌐½á ó Γáí½¿µÑ
  5501. ßΓαá¡¿µ, ¿ «ßó«í«ªñá∩ óÑß∞ πτáßΓ«¬ »á¼∩Γ¿ node, ºá¡¿¼áѼδ⌐ Σπ¡¬µ¿Ñ⌐,
  5502. ß½ÑñπεΘÑ⌐ ºá Γáí½¿µÑ⌐ ßΓαá¡¿µ. é Γáí½¿µÑ ßΓαá¡¿µ ¼áનαπÑΓß∩ Γá Σπ¡¬µ¿∩,
  5503. ¬«Γ«αá∩ ßíα«ΦÑ¡á. è«úñá ßíα«ΦÑ¡¡á∩ Σπ¡¬µ¿∩ óδτ¿ß½Ñ¡á, «¡á ß¡«óá ßτ¿Γδóá-
  5504. ÑΓß∩ ¿º ßΓαá¡¿τ¡«ú« Σá⌐½á( ó«º¼«ª¡« «Γ¬áτ¿óá¡¿Ñ ñαπú¿σ Σπ¡¬µ¿⌐) »« »α¿-
  5505. «α¿ΓÑΓπ óδ»«½¡Ñ¡¿∩. è«úñá Σπ¡¬µ¿∩ ß»¿ßá¡á ¿º ßΓαá¡¿τ¡«ú« Σá⌐½á,
  5506. »«ß½ÑñπεΘ¿Ñ «Γ¬áτ¬¿ »α«ßΓ« «ßó«í«ªñáεΓ φëàπτáßΓ«¬ hode »á¼∩Γ¿. ìÑΓ
  5507. ¡Ñ«íσ«ñ¿¼«ßΓ¿  πñá½∩Γ∞ Σπ¡¬µ¿ε , Γᬠ¬á¬ «¡á óßÑúñá »α¿ßπΓßΓóπÑΓ ó Σá⌐½Ñ.
  5508.        é AutoLISPÑ Σπ¡¬µ¿¿, ß«ºñá¡¡δÑ ß »«¼«Θ∞ε DEFUN, ∩ó½∩εΓß∩ »α«ßΓ«
  5509. ß»¿ß¬á¼¿, ¿ ¿¼¿ ¼«ª¡« ¼á¡¿»π½¿α«óáΓ∞ ¬á¬ ß« ß»¿ß¬á¼¿. Åα«úαá¼¼δ , ¬«Γ«αδÑ
  5510. ñѽáεΓ φΓ« , ñ«½ª¡δ íδΓ∞ «ßóÑñ«¼½Ñ¡δ «í «»Ñαᵿ¿ »Ñαѽ¿ßΓδóá¡¿∩ ßΓαá¡¿µ
  5511. ( ¿½¿ ¡Ñ »α¿¼Ñ¡∩⌐ΓÑ VMON). ÅαѪñÑ óßÑú«,Σπ¡¬µ¿¿, ß«ºñáóáѼδÑ ß »«¼«Θ∞ε
  5512. Σπ¡¬µ¿¿ DEFUN, ¿¼ÑεΓ ó ¡áτá½Ñ πτáßΓ«¬ »á¼∩Γ¿ node Γáí½¿µδ ßΓαá¡¿µ ( page
  5513. table), ΓᬠτΓ« , óδ ñ«½ª¡δ »ÑαÑ߬«τ¿Γ∞ Ñú«, Ñß½¿ íπñÑΓѠ߬᡿α«óáΓ∞ Σπ-
  5514. ¡¬µ¿ε. àß½¿ óδ ß«ºñáÑΓÑ Σπ¡¬µ¿ε ßἿ ñ½∩ ßÑí∩ , ¬á¬ ß»¿ß«¬( «íσ«ñ∩
  5515. DEFUN), «¡á íπñÑΓ αáí«ΓáΓ∞ »αѬαáß¡«,¡« «¡á ¡Ñ »«ñ«⌐ñÑΓ ñ½∩ ßó«»¿¡úá
  5516. ( »ÑαѬáτ¿óá¡¿∩) , »«φΓ«¼π óδ ¼«ªÑΓÑ ½Ñú¬« ºá»πßΓ¿Γ∞ ÑÑ ¿º »á¼∩Γ¿,
  5517. Ñß½¿  óá¼ φΓ« πñ«í¡ÑÑ. ìá«í«α«Γ, óδ ¼«ªÑΓÑ »«¼ÑßΓ¿Γ∞ Σπ¡¬µ¿ε
  5518. ó »á¼∩Γ∞ , »ÑαÑ«»αÑñѽ∩∩ ÑÑ íѺ Γáí½¿µδ ßΓαá¡¿µ. ìá»α¿¼Ñα, τΓ«íδ »«¼Ñß-
  5519. Γ¿Γ∞ Σπ¡¬µ¿ε, «»αÑñѽѡ¡πε DEFUN«¼ ß ¿¼Ñ¡Ñ¼ ZORP,ó »á¼∩Γ∞,óδ ñ«½ª¡δ ¿ß-
  5520. »«½∞º«óáΓ∞:
  5521.  
  5522.        (setq zorp (cdr zorp))
  5523. τΓ«íδ πñ὿Γ∞ »α¿¼Ñ¡Ñ¡¿Ñ Γáí½¿µδ ßΓαá¡¿µ. Æáí½¿µδ ßΓαá¡¿µ »ÑτáΓáεΓß∩ »α«-
  5524. ßΓ« ¬á¬ »α«íѽ , ¬«úñá óδ ¿ß»«½∞ºπÑΓÑ Σπ¡¬µ¿ε PRINT. éδ ¼«ªÑΓÑ «»αÑñѽ¿Γ∞,
  5525. ¬«úñá Σπ¡¬µ¿∩  »ÑαѬáτ¿óáѼá, »α«óÑα¿ó, ¿¼ÑÑΓß∩ ½¿ »α«íѽ »«ß½Ñ »Ñαó«⌐
  5526. ½Ñó«⌐ ß¬«í¬¿: Ñß½¿ Γᬠ, «¡á »ÑαѬáτ¿óáѼá.
  5527.        àß½¿ óδ »δΓáÑΓÑß∞ ß¬á¡¿α«óáΓ∞ Σπ¡¬µ¿ε, ¬á¬ ñá¡¡δÑ, ¿ «Γ¬áτ¿-
  5528. óáΓ∞ ÑÑ, óδ ñ«½ª¡δ ¡á⌐Γ¿ Γ«½∞¬« Γáí½¿µπ ßΓαá¡¿µ ó ß»¿ß¬Ñ Σπ¡¬µ¿¿. Åα«σ«ñ-
  5529.  
  5530.  
  5531.  
  5532.  
  5533.                            - 90 -
  5534.  
  5535.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5536.  
  5537.  
  5538. ¡á∩ Σπ¡¬µ¿∩ ¡Ñ íπñÑΓ »ÑαѬáτÑ¡á- Γ«½∞¬« óδτ¿ß½¿óΦ¿  ÑÑ, ¼«ª¡« ßñѽáΓ∞ φΓ«.
  5539. êΓá¬, Ñß½¿ óδ ß«ºñáÑΓÑ Σπ¡¬µ¿¿ ¿ ¼«ñ¿Σ¿µ¿απÑΓÑ ¿σ ß σ¿Γα«ßΓ∞ε, «αúá¡¿ºπ⌐-
  5540. ΓÑ ¿σ ¬á¬ ß»¿ß¬¿ , ó¼ÑßΓ« ¿ß»«½∞º«óá¡¿∩ Σπ¡¬µ¿¿ DEFUN, ¿½¿ ¿ß»«½∞ºπ⌐ΓÑ
  5541. Γαε¬,»α¿óÑñÑ¡¡δ⌐ óδΦÑ, τΓ«íδ »«¼ÑßΓ¿Γ∞ ¿σ ó »á¼∩Γ∞.
  5542.         æ»¿ß«¬ ß¿¼ó«½«ó, ¿ºóÑßΓ¡δσ AutoLISPπ, ¡áºδóáÑΓß∩ ATOMLIST. àßΓ∞
  5543. 󫺼«ª¡«ßΓ∞ σ¿Γα«⌐ »α«úαἼѠ¼á¡¿»π½¿α«óáΓ∞ φΓ¿¼ ß»¿ß¬«¼, τΓ«íδ ¿ß»αáó¿Γ∞
  5544. »α«íѽ ¿½¿ ß¬á¡¿α«óáΓ∞ óßÑ ß¿¼ó«½δ. ( èᬠ«Γ¼ÑτÑ¡« ó »αÑñδñπΘÑ⌐ ú½áóÑ,
  5545. φΓ« ¡Ñ ßΓá¡ñáαΓ¡á∩ «ß«íÑ¡¡«ßΓ∞ LISPá, ¿ «¡á ¼«ªÑΓ íδΓ∞ ¿º¼Ñ¡Ñ¡á ó íπñπ-
  5546. Θ¿σ óÑαß¿∩σ AutoLISPá.) è«úñá Σπ¡¬µ¿∩ «Γ¬áτ¿óáÑΓß∩ , «¡á »αÑ«íαá-
  5547. ºπÑΓß∩ ó »πΓ¿ , φΓ« »αÑñ»«½áúáÑΓ τΓ« ATOMLIST, ¡Ñ íπñÑΓ ¿º¼Ñ¡Ñ¡ ñ« ΓÑσ
  5548. »«α, »«¬á Σπ¡¬µ¿∩ ¡Ñ «Γ¬áτáÑΓß∩ ( Ñß½¿ αáºí¿Ñ¡¿∩ »á¼∩Γ¿ ¡á ßΓαá¡¿µδ ¡ÑΓ
  5549. ¡á φΓ«¼ »πΓ¿, Σπ¡¬µ¿∩ ºá¡¿¼áÑΓ ú«αáºñ« í«½∞ΦÑ ¼ÑßΓá ¡á ñ¿ß¬Ñ ¿ ¿ñÑΓ ó
  5550. »∩Γ∞ αẠ¼Ññ½Ñ¡¡Ñ⌐). ùΓ«íδ íδΓ∞ πóÑαÑ¡¡δ¼ , τΓ« ATOMLIST ¡Ñ ¿º¼Ñ¡¿Γß∩,
  5551. ¬«úñá ½¿ßΓá¡¿Ñ ñÑ⌐ßΓó¿Γѽ∞¡« ¿¼ÑÑΓß∩, ñ«ßΓπ» ¬ ATOMLISTπ í½«¬¿απÑΓß∩
  5552. »ÑαѼÑΘÑ¡¿Ñ¼ ATOMLISTá ¿º ß»¿ß¬á ß¿¼ó«½«ó ,ñ«ßΓπ»¡σ »«½∞º«óáΓѽε. àß½¿
  5553. óδ ¿ß»«½∞ºπÑΓÑ ó¿αΓπá½∞¡πε Σπ¡¬µ¿ε ½¿ßΓá¡¿∩ ßΓαá¡¿µ, «ßΓáó∞ΓÑ ATOMLIST
  5554. ó »«¬«Ñ.
  5555.        àß½¿ óδ ñÑ⌐ßΓó¿Γѽ∞¡« σ«Γ¿ΓÑ , τΓ«íδ π óáß í뫨 ¡Ñ»α¿∩Γ¡«ßΓ¿,
  5556. óδ ¼«ªÑΓÑ φΓ« ßñѽáΓ∞. éδ ¼«ªÑΓÑ ß«ºñáΓ∞ ßó«ε ß«íßΓóÑ¡¡πε Σπ¡¬µ¿ε,
  5557. ó¬½ετá∩ Γáí½¿µπ ßΓαá¡¿µ, ¿º ½εí«⌐ ñαπú«⌐ Σπ¡¬µ¿¿. éδ ñ«½ª¡δ »α¿ßó«¿Γ∞
  5558. ATOMLISTπ ß«íßΓóÑ¡¡πε »ÑαѼѡ¡πε ¿ ¿º¼Ñ¡¿Γ∞ ÑÑ »«ß½Ñ Γ«ú« , ¬á¬ AutoLISP
  5559. ßΓáαΓπÑΓ ñ½∩ ½¿ßΓá¡¿∩ ßΓαá¡¿µ. éδ ¼«ªÑΓÑ ñáªÑ »α¿ñπ¼áΓ∞ τΓ«-¡¿íπñ∞ í«-
  5560. ½ÑÑ Γó«ατÑ߬«Ñ ¿ πªáß¡«Ñ. Äñ¡á¬« , ΓᬫѠ»«óÑñÑ¡¿Ñ ¼«ªÑΓ íδΓ∞ «Γ¼ΘÑ¡«
  5561. αáºαπΦÑ¡¿Ñ¼ óáΦÑ⌐ »α«úαá¼¼δ; φΓ« ¡Ñ ¼«ªÑΓ »«óαÑñ¿Γ∞ AutoLISPπ ¿½¿ Auto-
  5562. CADπ. êΓá¬, Ñß½¿ óδ σ«Γ¿ΓÑ ¡ÑßΓ¿ »«ΓÑα¿, ó»ÑαÑñ.
  5563.  
  5564.  
  5565.  
  5566.  
  5567.  
  5568.                           â½áóá  7
  5569.  
  5570.                     æÄÄüÖàìꃠÄü ÄÿêüèÇò
  5571.  
  5572.  
  5573.        ì¿ªÑ »α¿óÑñÑ¡ ß»¿ß«¬ ß««íΘÑ¡¿⌐ «í «Φ¿í¬áσ, ¬«Γ«αδÑ óδ óαѼ∩ «Γ
  5574. óαѼѡ¿ πó¿ñ¿ΓÑ, ¬«úñá óδ »¿ΦÑΓÑ ¿½¿ óδó«ñ¿ΓÑ Σπ¡¬µ¿¿ AutoLISPá. àß½¿
  5575. Σπ¡¬µ¿∩ "ERROR" «»αÑñѽѡᠡѠ»«½∞º«óáΓѽѼ ("ERROR" ßó∩ºá¡á ß nil),
  5576. «Φ¿í¬á ∩ó½∩ÑΓß∩ ßΓá¡ñáαΓ¡«⌐ á¬µ¿Ñ⌐ , Γ«úñá φΓ¿ ß««íΘÑ¡¿∩ óδó«ñ∩Γß∩
  5577. ¡á φ¬αá¡ ñ¿ß»½Ñ∩ ó ó¿ñÑ:
  5578.        error: message
  5579.        «Φ¿í¬á:ß««íΘÑ¡¿Ñ
  5580. ß½Ññ«¼ ºá »α«ß½ÑªÑ¡¡⌐ Σπ¡¬µ¿Ñ⌐. àß½¿ ßπΘÑßΓóπÑΓ »«½∞º«óáΓѽ∞-«»αÑñѽ¿Γѽ∞
  5581. Σπ¡¬µ¿¿ "ERROR", φΓá Σπ¡¬µ¿∩ , ¡áºδóáѼá∩ ß««íΘÑ¡¿Ñ¼, »α«⌐ñÑΓ Γ«½∞¬« ó
  5582. ¬áτÑßΓóÑ áαúπ¼Ñ¡Γá.
  5583.  
  5584.  
  5585.  
  5586.        öπ¡¬µ¿¿, «Γ¬½«¡∩ѼδÑ AutoCAD«¼
  5587.  
  5588.        Çαúπ¼Ñ¡Γδ »α«σ«ñ∩Θ¿σ ó AutoCAD Σπ¡¬µ¿⌐ ¡ÑñÑ⌐ßΓó¿Γѽ∞¡δ ( Γᬿσ,
  5589.        ¬á¬ Σπ¡¬µ¿¿  GETVAR "NOSUCH" ¿½¿ SETVAR ß Γ«½∞¬« τ¿ΓáÑ¼δ¼¿
  5590.        ß¿ßΓѼ¡δ¼¿ »ÑαѼѡ¡δ¼¿), ¿½¿ Σπ¡¬µ¿∩, »ÑαÑσ«ñ∩Θá∩ ßá¼á ó ßÑí∩,
  5591.        ¡ÑñÑ⌐ßΓó¿Γѽ∞¡á ó ΓѬπΘѼ ¬«¡ΓѬßΓÑ.
  5592.  
  5593.  
  5594.  
  5595.  
  5596.  
  5597.  
  5598.                            - 91 -
  5599.  
  5600.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5601.  
  5602.  
  5603.        bad argument type
  5604.  
  5605.        öπ¡¬µ¿∩ ß¡áíªÑ¡á ¡Ñ¬«ααÑ¬Γ¡δ¼ Γ¿»«¼ áαúπ¼Ñ¡Γá.( ìá»α¿¼Ñα, óδ ¡Ñ
  5606. ¼«ªÑΓÑ óº∩Γ∞ STRLEN ¬á¬ µÑ½«Ñ.)
  5607.  
  5608.  
  5609.        bad association list
  5610.  
  5611.        æ»¿ß«¬ , «íΩ∩ó½Ñ¡¡δ⌐ Σπ¡¬µ¿Ñ⌐ ASSOC, ¡Ñ ß«ßΓ«¿Γ ¿º "(¡πª¡á∩ ¬½á-
  5612. ó¿Φá ) ß»¿ß¬«ó.
  5613.  
  5614.  
  5615.        bad entmod list
  5616.  
  5617.        Çαúπ¼Ñ¡Γ, »α«σ«ñ∩Θ¿⌐ ó Σπ¡¬µ¿ε ENTMOD,¿¼ÑÑΓ ¡Ñ»«ñσ«ñ∩Θ¿⌐ óσ«ñ
  5618. ß»¿ß¬á ñá¡¡δσ (ΓᬠªÑ , ¬á¬ ó«ºóαáΘáѼδ⌐ Σπ¡¬µ¿Ñ⌐ ENTGET).
  5619.  
  5620.  
  5621.        bad formal argument list
  5622.  
  5623.        è«úñá óδτ¿ß½Ñ¡á φΓá Σπ¡¬µ¿∩, AutoLISP πñá½¿Γ ß»¿ß«¬ ¡ÑñÑ⌐ßΓó¿ΓÑ-
  5624. ½∞¡δσ Σ«α¼á½∞¡δσ áαúπ¼Ñ¡Γ«ó. é«º¼«ª¡«, τΓ« Σπ¡¬µ¿∩ ó«óßÑ ¡Ñ ∩ó½∩ÑΓß∩
  5625. Σπ¡¬µ¿Ñ⌐ , á ó ¡Ñ¬«Γ«α«⌐ ßΓѻѡ¿ , ß»¿ß«¬ ñá¡¡δσ.
  5626.  
  5627.  
  5628.        bad function
  5629.  
  5630.        ÅÑαóδ⌐ φ½Ñ¼Ñ¡Γ ó ß»¿ß¬Ñ -¡ÑñÑ⌐ßΓó¿Γѽ∞¡«Ñ ¿¼∩ Σπ¡¬µ¿¿. é«º¼«ª¡«,
  5631. τΓ« φΓ« ¿¼∩ »ÑαѼѡ¡«⌐ ¿½¿ τ¿ß½«. ¥Γ« ß««íΘÑ¡¿Ñ ΓᬪѠ¼«ªÑΓ »«¬áºδóáΓ∞,
  5632. τΓ« ¡áºóá¡¡á∩ Σπ¡¬µ¿∩ ¡Ñ»«ñσ«ñ∩ΘÑ «»αÑñѽѡá- ¡Ñ ºáíδóá⌐ΓÑ ó«ºóαáΘáѼδ⌐
  5633. ß»¿ß«¬ Σ«α¼á½∞¡δσ áαúπ¼Ñ¡Γ«ó.
  5634.  
  5635.  
  5636.        bad list
  5637.  
  5638.        ìÑ»«ñσ«ñ∩ΘÑ «αúá¡¿º«óá¡ ß»¿ß«¬, ¬«Γ«αδ¼ ß¡áíªÑ¡á Σπ¡¬µ¿∩. ¥Γ« ¼«-
  5639. ªÑΓ ß½πτ¿Γ∞ß∩ , Ñß½¿ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½« ¡áτ¿¡áÑΓ ñÑß∩Γ¿τ¡á∩ Γ«τ¬á;
  5640. ó Γᬫ¼ ß½πτáÑ óδ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ óóÑñÑ¡¿Ñ 0.
  5641.  
  5642.  
  5643.        Bad node ( »½«σ«⌐ πτáßΓ«¬ »á¼∩Γ¿ node)
  5644.  
  5645.        ìÑñÑ⌐ßΓó¿Γѽѡ »π¡¬Γ , óßΓαÑτáѼδ⌐ Σπ¡¬µ¿Ñ⌐ TYPE.
  5646.  
  5647.  
  5648.        bad node type in list
  5649.  
  5650.        ìÑñÑ⌐ßΓó¿Γѽѡ »π¡¬Γ , óßΓαÑτáѼδ⌐ Σπ¡¬µ¿Ñ⌐ FOREACH.
  5651.  
  5652.  
  5653.        bad point argument
  5654.  
  5655.        ìÑñ«ßΓáΓ«τ¡« «»αÑñѽѡá Γ«τ¬á ( ß»¿ß«¬ ñóπσ ñÑ⌐ßΓó¿Γѽ∞¡δσ τ¿ßѽ)
  5656. »α«σ«ñ∩Θá∩ ó Σπ¡¬µ¿ε , «ª¿ñáεΘπε Γ«τ¬π. üπñ∞ΓÑ ó¡¿¼áΓѽ∞¡δ, ¡Ñ ¡áτ¿¡á⌐ΓÑ
  5657. ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½« ß ñÑß∩Γ¿τ¡«⌐ Γ«τ¬¿; ó Γᬫ¼ ß½πτáÑ, óδ ñ«½ª¡δ ¿ß-
  5658. »«½∞º«óáΓ∞ óóÑñÑ¡¿Ñ 0.
  5659.  
  5660.  
  5661.  
  5662.  
  5663.                            - 92 -
  5664.  
  5665.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5666.  
  5667.  
  5668.  
  5669.  
  5670.         bad point value
  5671.  
  5672.         Æ« ªÑ ßἫѠ,τΓ« óδΦÑ.
  5673.  
  5674.  
  5675.         bool arg1 <0 or >15
  5676.  
  5677.         ÅÑαóδ⌐ áαúπ¼Ñ¡Γ Σπ¡¬µ¿¿ BOOLE (üπ½Ñóá Σπ¡¬µ¿∩) ñ«½ª¡« íδΓ∞ µÑ-
  5678. ½«Ñ ¼áªñπ 0 ¿ 15.
  5679.  
  5680.  
  5681.        can't evaluate expression
  5682.  
  5683.        ¥Γá «Φ¿í¬á ¼«ªÑΓ íδΓ∞ óδºóá¡á ¡Ñ»αáó¿½∞¡δ¼ ¼ÑßΓ«»«½«ªÑ¡¿Ñ¼ ñÑß∩-
  5684. Γ¿τ¡«⌐ Γ«τ¬¿ ¿ ß ñαπú«⌐ ßΓ«α«¡δ, ¡Ññ«ßΓáΓ«τ¡« ßΣ«α¼π½¿α«óá¡¡δ¼ óδαáªÑ¡¿-
  5685. Ѽ.
  5686.  
  5687.  
  5688.        console break
  5689.  
  5690.        Å«½∞º«óáΓѽ∞ óóѽ CTRL C , ó Γ« óαѼ∩ , ¬«úñá Σπ¡¬µ¿∩ «íαáíáΓδ-
  5691. óá½áß∞.
  5692.  
  5693.  
  5694.        divide by zero
  5695.  
  5696.        äѽѡ¿Ñ ¡á ¡π½∞ ¡Ñ αáºαÑΦáÑΓß∩.
  5697.  
  5698.  
  5699.        extra right paren
  5700.  
  5701.        éßΓαÑΓ¿½¿ß∞ «ñ¡¿ ¿½¿ í«½ÑÑ ½¿Φ¡¿Ñ »αáóδѠ߬«í¬¿.
  5702.  
  5703.  
  5704.        file not open
  5705.  
  5706.        Ä»¿ßáΓѽ∞ Σá⌐½á  ñ½∩ «»Ñαᵿ¿ óó«ñá-óδó«ñá (I/O) ¡Ñ Γᬫ⌐ , ¬á¬
  5707. π ñ«ßΓπ»¡«ú« Σá⌐½á.
  5708.  
  5709.  
  5710.        Function cancelled ( ß¡¿¼áѼá∩ Σπ¡¬µ¿∩)
  5711.  
  5712.        Å«½∞º«óáΓѽ∞ ¡áªá½ CTRL C ó «ΓóÑΓ ¡á »«ñ߬Ậπ.
  5713.  
  5714.  
  5715.        function undefined for argument
  5716.  
  5717.        Çαúπ¼Ñ¡Γá, «í«º¡áτÑ¡¡«ú« ó Σπ¡¬µ¿∩σ LOG ¿½¿ SQRT,¡ÑΓ ó ñ¿á»áº«¡Ñ.
  5718.  
  5719.  
  5720.        function undefined for real
  5721.  
  5722.        Çαúπ¼Ñ¡Γ Σπ¡¬µ¿¿ ó¼ÑßΓ« µÑ½«ú« τ¿ß½á «í«º¡áτÑ¡ ñÑ⌐ßΓó¿Γѽ∞¡δ¼.
  5723. ìá»α¿¼Ñα, (LSH val 1.2)
  5724.  
  5725.  
  5726.  
  5727.  
  5728.                            - 93 -
  5729.  
  5730.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5731.  
  5732.  
  5733.  
  5734.  
  5735.        improper argument
  5736.  
  5737.        Çαúπ¼Ñ¡Γ ó GCD «Γα¿µáΓѽ∞¡«Ñ τ¿ß½« ¿½¿ ¡«½∞.
  5738.  
  5739.  
  5740.        incorrect number of arguments to a function
  5741.  
  5742.        è«½¿τÑßΓó« áαúπ¼Ñ¡Γ«ó «»αÑñѽ∩Ѽ«⌐ »«½∞º«óáΓѽѼ Σπ¡¬µ¿¿ ¡Ñ ß««Γ-
  5743. óÑΓßΓóπÑΓ ¬«½¿τÑßΓóπ Σ«α¼á½∞¡δσ áαúπ¼Ñ¡Γ«ó, «íΩ∩ó½Ñ¡¡δσ Σπ¡¬µ¿Ñ⌐ DEFUN.
  5744.  
  5745.  
  5746.         insufficient node space
  5747.  
  5748.         ìÑñ«ßΓáΓ«τÑ¡ πτáßΓ«¬ »á¼∩Γ¿ node , ñ½∩ Γ«ú« τΓ«íδ ó¼ÑßΓ¿Γ∞ »«ΓαÑí-
  5749. ¡δÑ ñÑ⌐ßΓó¿∩. æ¼. ú½áóπ 6.
  5750.  
  5751.  
  5752.        insufficient string space
  5753.  
  5754.        ìÑñ«ßΓáΓ«τÑ¡ πτáßΓ«¬ »á¼∩Γ¿ heap , τΓ«íδ ó¼ÑßΓ¿Γ∞ ßΓ᫬π ΓѬßΓá.
  5755. æ¼. ú½áóπ 6.
  5756.  
  5757.  
  5758.        invalid argument
  5759.  
  5760.        ìÑ»αáó¿½∞¡δ⌐ Γ¿» áαúπ¼Ñ¡Γá ¿½¿ áαúπ¼Ñ¡Γ ó¡Ñ ñ¿á»áº«¡á.
  5761.  
  5762.  
  5763.        invalid character
  5764.  
  5765.        éδαáªÑ¡¿Ñ ß«ñÑαª¿Γ ¡ÑóÑα¡δ⌐ º¡á¬.
  5766.  
  5767.  
  5768.        invalid dotted pair
  5769.  
  5770.        Æ«τÑτ¡δÑ »áαδ-φΓ« ß»¿ß¬¿, ß«ñÑαªáΘ¿Ñ ñóá φ½Ñ¼Ñ¡Γá, αáºñÑ-
  5771. ½Ñ¡¡δÑ ¬«¡ßΓαπ¬µ¿Ñ⌐ "space-period-space". éδ ¼«ªÑΓÑ »«½πτ¿Γ∞ φΓ« ß««í-
  5772. ΘÑ¡¿Ñ «í «Φ¿í¬Ñ , Ñß½¿ óδ ¡áτ¿¡áÑΓÑ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½« ß ñÑß∩Γ¿τ¡«⌐
  5773. Γ«τ¬¿; ó Γᬫ¼ ß½πτáÑ óδ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ óóÑñÑ¡¿Ñ 0.
  5774.  
  5775.  
  5776.        LISPSTACK overflow (»ÑαÑ»«½¡Ñ¡¿Ñ ßΓѬá )
  5777.  
  5778.        æΓѬ AutoLISPá »ÑαÑ»«½¡Ñ¡. ¥Γ« »α«¿ßσ«ñ¿Γ ¿º-ºá ταѺ¼Ñα¡«ú«
  5779. »«óΓ«αÑ¡¿∩ Σπ¡¬µ¿¿ ¿½¿ «τÑ¡∞ í«½∞Φ¿σ ß»¿ß¬«ó áαúπ¼Ñ¡Γ«ó Σπ¡¬µ¿¿. Å«»δ-
  5780. Γá⌐ΓÑß∞ πóѽ¿τ¿Γ∞ ßαÑñπ LISPSTACK ñ½∩ »ÑαѼѡ¡δσ.
  5781.  
  5782.  
  5783.        misplaced dot
  5784.  
  5785.        ¥Γ« ¼«ªÑΓ ¿¼ÑΓ∞ ¼ÑßΓ« , Ñß½¿ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ τ¿ß½« ¡áτ¿¡áÑΓ ñÑß∩-
  5786. Γ¿τ¡á∩ Γ«τ¬á; ó Γᬫ¼ ß½πτáÑ óδ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ óóÑñÑ¡¿Ñ 0 .
  5787.  
  5788.  
  5789.  
  5790.  
  5791.  
  5792.  
  5793.                            - 94 -
  5794.  
  5795.             Éπ¬«ó«ñßΓó« »«½∞º«óáΓѽ∩ »« ÇéÆÄïêæÅπ
  5796.  
  5797.  
  5798.        null function
  5799.  
  5800.        üδ½á ßñѽá¡á »«»δΓ¬á óδτ¿ß½¿Γ∞ Σπ¡¬µ¿ε , ¬«Γ«αá∩ ¿¼ÑÑΓ ¡π½Ñó«⌐
  5801. «»αÑñѽ¿Γѽ∞.
  5802.  
  5803.  
  5804.        quit\ exit abort
  5805.  
  5806.        ¥Γ« αѺπ½∞ΓáΓ ó맮óá Σπ¡¬µ¿⌐ QUIT ¿½¿ EXIT. ¥Γ¿ Σπ¡¬µ¿¿ ßÑ⌐τáß
  5807. ¡Ñ ¿ß»«½∞ºπεΓß∩ ó AutoLISPÑ.
  5808.  
  5809.  
  5810.        too few argyments
  5811.  
  5812.        æ½¿Φ¬«¼ ¼á½« áαúπ¼Ñ¡Γ«ó «íΩ∩ó½Ñ¡« ó« óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿
  5813.  
  5814.  
  5815.        too many arguments
  5816.  
  5817.        æ½¿Φ¬«¼ ¼¡«ú« áαúπ¼Ñ¡Γ«ó «íΩ∩ó½Ñ¡« ó« óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿.
  5818.  
  5819.  
  5820.        unexpected signal nnn
  5821.  
  5822.        ( Æ«½∞¬« ñ½∩ ß¿ßΓѼδ UNIX) ÄΓ αáí«ΓáεΘÑ⌐ ß¿ßΓÑ¼δ »«½πτÑ¡ ¡Ñ«ª¿-
  5823. ñá¡¡δ⌐ ß¿ú¡á½.
  5824.  
  5825.  
  5826.  
  5827.